X-Git-Url: https://gerrit.simantics.org/r/gitweb?a=blobdiff_plain;f=tests%2Forg.simantics.scl.compiler.tests%2Fsrc%2Forg%2Fsimantics%2Fscl%2Fcompiler%2Ftests%2Fscl%2FIndex.scl;fp=tests%2Forg.simantics.scl.compiler.tests%2Fsrc%2Forg%2Fsimantics%2Fscl%2Fcompiler%2Ftests%2Fscl%2FIndex.scl;h=5addc188eca7c7038daceaa944c4da0ccf0c54a7;hb=0ae2b770234dfc3cbb18bd38f324125cf0faca07;hp=8a98aec039bb72d8d2b26ee895e5f22c80f7c078;hpb=24e2b34260f219f0d1644ca7a138894980e25b14;p=simantics%2Fplatform.git 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