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%2FIndex.scl;h=5addc188eca7c7038daceaa944c4da0ccf0c54a7;hp=8a98aec039bb72d8d2b26ee895e5f22c80f7c078;hb=172abed5dbf73c1304a7a95bb8504ea293556948;hpb=fdbe87627e92805701d0672fbe8f1dc60b7f7b00 diff --git a/tests/org.simantics.scl.compiler.tests/src/org/simantics/scl/compiler/tests/scl/Index.scl b/tests/org.simantics.scl.compiler.tests/src/org/simantics/scl/compiler/tests/scl/Index.scl index 8a98aec03..5addc188e 100644 --- a/tests/org.simantics.scl.compiler.tests/src/org/simantics/scl/compiler/tests/scl/Index.scl +++ b/tests/org.simantics.scl.compiler.tests/src/org/simantics/scl/compiler/tests/scl/Index.scl @@ -1,8 +1,8 @@ -import "Prelude" - -f :: Integer -> Maybe Integer -f = index [(1,2),(2,4),(3,6),(4,8)] - -main = f 3 --- +import "Prelude" + +f :: Integer -> Maybe Integer +f = index [(1,2),(2,4),(3,6),(4,8)] + +main = f 3 +-- 6 \ No newline at end of file