X-Git-Url: https://gerrit.simantics.org/r/gitweb?p=simantics%2Fplatform.git;a=blobdiff_plain;f=tests%2Forg.simantics.scl.compiler.tests%2Fsrc%2Forg%2Fsimantics%2Fscl%2Fcompiler%2Ftests%2Fscl%2FEffects2.scl;h=ef57c2930fd88dee105b71e50d7a1b43d7d72fc0;hp=d595ee93851f37edb77df4366f25b55e8532221b;hb=HEAD;hpb=f23dc81afe57e77d20706a9a94002ce4c72f670d diff --git a/tests/org.simantics.scl.compiler.tests/src/org/simantics/scl/compiler/tests/scl/Effects2.scl b/tests/org.simantics.scl.compiler.tests/src/org/simantics/scl/compiler/tests/scl/Effects2.scl index d595ee938..ef57c2930 100644 --- a/tests/org.simantics.scl.compiler.tests/src/org/simantics/scl/compiler/tests/scl/Effects2.scl +++ b/tests/org.simantics.scl.compiler.tests/src/org/simantics/scl/compiler/tests/scl/Effects2.scl @@ -1,21 +1,21 @@ -import "JavaBuiltin" as Java - -importJava "java.util.List" where - data List a - - add :: List a -> a -> Boolean - -importJava "java.util.ArrayList" where - @JavaName "" - arrayList :: Integer -> List a - -singleton :: a -> List a -singleton el = result - where - result = arrayList 1 - r = add result el - -main :: List Integer -main = runProc (singleton (13 :: Integer)) --- +import "JavaBuiltin" as Java + +importJava "java.util.List" where + data List a + + add :: List a -> a -> Boolean + +importJava "java.util.ArrayList" where + @JavaName "" + arrayList :: Integer -> List a + +singleton :: a -> List a +singleton el = result + where + result = arrayList 1 + r = add result el + +main :: List Integer +main = runProc (singleton (13 :: Integer)) +-- [13] \ No newline at end of file