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%2FFunctorM1.scl;h=b3f825b94a1dd1cab2f28566f4eb1b96d0ef181b;hp=5e1874e31e87e9ffe8ed6b076ac372a2f1c949d4;hb=HEAD;hpb=c08364c64a0bb53c45c052a3e4cea8702bbd69a0 diff --git a/tests/org.simantics.scl.compiler.tests/src/org/simantics/scl/compiler/tests/scl/FunctorM1.scl b/tests/org.simantics.scl.compiler.tests/src/org/simantics/scl/compiler/tests/scl/FunctorM1.scl index 5e1874e31..b3f825b94 100644 --- a/tests/org.simantics.scl.compiler.tests/src/org/simantics/scl/compiler/tests/scl/FunctorM1.scl +++ b/tests/org.simantics.scl.compiler.tests/src/org/simantics/scl/compiler/tests/scl/FunctorM1.scl @@ -1,11 +1,11 @@ -import "Prelude" - -main = sequence [[1,2], [3,4], [5,6]] -/* - x <- [1,2] - y <- [3,4] - z <- [5,6] - return [x,y,z] -*/ --- +import "Prelude" + +main = sequence [[1,2], [3,4], [5,6]] +/* + x <- [1,2] + y <- [3,4] + z <- [5,6] + return [x,y,z] +*/ +-- [[1, 3, 5], [1, 3, 6], [1, 4, 5], [1, 4, 6], [2, 3, 5], [2, 3, 6], [2, 4, 5], [2, 4, 6]] \ No newline at end of file