X-Git-Url: https://gerrit.simantics.org/r/gitweb?p=simantics%2Fplatform.git;a=blobdiff_plain;f=bundles%2Forg.simantics.modeling%2Fscl%2FSimantics%2FSCL.scl;h=72c733a59f5999dd9c38db1be0d52bfe3474cd81;hp=32db0f4bc6545cca456aaa697aa49477aafe1ac3;hb=e36d0cb0313ea18c76479e8dbfaf8499fa52db98;hpb=0cf894be3bd64a393d8883b7500822275c2a15fe

diff --git a/bundles/org.simantics.modeling/scl/Simantics/SCL.scl b/bundles/org.simantics.modeling/scl/Simantics/SCL.scl
index 32db0f4bc..72c733a59 100644
--- a/bundles/org.simantics.modeling/scl/Simantics/SCL.scl
+++ b/bundles/org.simantics.modeling/scl/Simantics/SCL.scl
@@ -12,14 +12,13 @@ importJava "org.simantics.scl.ui.editor.TextAndErrors" where
     createTextAndErrors :: String -> [CompilationError] -> TextAndErrors
 
 createSCLModuleAction :: Resource -> <Proc> ()
-createSCLModuleAction res = do
-  syncWrite (\() -> createSCLModuleDefault res)
-  ()
+createSCLModuleAction res = ignore $ syncWrite (\() -> createSCLModuleDefault res)
+
+createSCLScriptAction :: Resource -> <Proc> ()
+createSCLScriptAction res = ignore $ syncWrite (\() -> createSCLScriptDefault res)
 
 createPGraphAction :: Resource -> <Proc> ()
-createPGraphAction res = do
-  syncWrite (\() -> createPGraphDefault res)
-  ()
+createPGraphAction res = ignore $ syncWrite (\() -> createPGraphDefault res)
 
 createSCLValueIndependent :: Resource -> String -> <WriteGraph> Resource
 createSCLValueIndependent valueType expression = do
@@ -41,6 +40,7 @@ setExpression self expression = do
 
 importJava "org.simantics.modeling.ModelingUtils" where
     createSCLModuleDefault :: Resource -> <WriteGraph> ()
+    createSCLScriptDefault :: Resource -> <WriteGraph> ()
     createPGraphDefault :: Resource -> <WriteGraph> ()
     createSCLModule :: Resource -> String -> <WriteGraph> ()