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%2FMacros3.scl;h=cb6e24fda7b07a261c2c3c623cfdd6de955bfb71;hp=ec1571dc02000138ec5c901f9e2e6a544cbe01cb;hb=HEAD;hpb=e67e00d01d30f362e7a4f599cbcf24770ce13e22 diff --git a/tests/org.simantics.scl.compiler.tests/src/org/simantics/scl/compiler/tests/scl/Macros3.scl b/tests/org.simantics.scl.compiler.tests/src/org/simantics/scl/compiler/tests/scl/Macros3.scl index ec1571dc0..cb6e24fda 100644 --- a/tests/org.simantics.scl.compiler.tests/src/org/simantics/scl/compiler/tests/scl/Macros3.scl +++ b/tests/org.simantics.scl.compiler.tests/src/org/simantics/scl/compiler/tests/scl/Macros3.scl @@ -1,16 +1,16 @@ -import "JavaBuiltin" as Java - -@JavaType "java.util.Collection" -data Collection a - -@macro -collectionToList :: Collection a -> [a] -collectionToList = Java.unsafeCoerce - -singleton :: a -> Collection a -singleton = Java.staticMethod "java.util.Collections.singletonList" - -main :: [Integer] -main = collectionToList (singleton 15) --- +import "JavaBuiltin" as Java + +@JavaType "java.util.Collection" +data Collection a + +@macro +collectionToList :: Collection a -> [a] +collectionToList = Java.unsafeCoerce + +singleton :: a -> Collection a +singleton = Java.staticMethod "java.util.Collections.singletonList" + +main :: [Integer] +main = collectionToList (singleton 15) +-- [15] \ No newline at end of file