Removed jsonValues since there already is Data/Json

[simantics/platform.git] / bundles / org.simantics.modeling / scl / Simantics / Action.scl

diff --git a/bundles/org.simantics.modeling/scl/Simantics/Action.scl b/bundles/org.simantics.modeling/scl/Simantics/Action.scl
new file mode 100644 (file)
index 0000000..102012e
--- /dev/null
+++ b/bundles/org.simantics.modeling/scl/Simantics/Action.scl
@@ -0,0 +1,10 @@
+import "Simantics/Variables"
+   
+instantiateUnderAction :: Variable -> Resource -> <Proc> ()
+instantiateUnderAction ruleVariable context = do
+   syncWrite (\x -> do
+     typeToInstantiate = singleObject (represents $ parent ruleVariable) MOD.InstantiateUnder.HasType
+     typeVariable = resourceVariable typeToInstantiate
+     fn = typeVariable#methods#instantiateUnder :: Resource -> Resource -> <WriteGraph> Resource
+     fn context typeToInstantiate)
+   ()
\ No newline at end of file