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%2FListSyntax8.scl;h=e570af4aa386a4ad554e4733f9f2af69345e61b7;hp=ac5ce5765a58a4bd9b44f591a1f6ce3240084785;hb=172abed5dbf73c1304a7a95bb8504ea293556948;hpb=86adc86522decdf79259743cde5ec3688af3d908 diff --git a/tests/org.simantics.scl.compiler.tests/src/org/simantics/scl/compiler/tests/scl/ListSyntax8.scl b/tests/org.simantics.scl.compiler.tests/src/org/simantics/scl/compiler/tests/scl/ListSyntax8.scl index ac5ce5765..e570af4aa 100644 --- a/tests/org.simantics.scl.compiler.tests/src/org/simantics/scl/compiler/tests/scl/ListSyntax8.scl +++ b/tests/org.simantics.scl.compiler.tests/src/org/simantics/scl/compiler/tests/scl/ListSyntax8.scl @@ -1,12 +1,12 @@ -import "Prelude" - -a :: [Either Integer Integer] -a = [Left 1, Right 2, Left 3, Right 4] - -lefts :: [Either a b] -> [a] -lefts l = [x | Left x <- l] - -main :: [Integer] -main = lefts a --- +import "Prelude" + +a :: [Either Integer Integer] +a = [Left 1, Right 2, Left 3, Right 4] + +lefts :: [Either a b] -> [a] +lefts l = [x | Left x <- l] + +main :: [Integer] +main = lefts a +-- [1, 3] \ No newline at end of file