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%2FMonadSyntax2.scl;h=3dcf472b958f92a34f0be9f3c51e1a823150484a;hp=6244a6162fd1b5de2945ed8e529cb3ab0e336a70;hb=HEAD;hpb=a5e69e900dcfcf54a9f39ab754f20467d99b64d3 diff --git a/tests/org.simantics.scl.compiler.tests/src/org/simantics/scl/compiler/tests/scl/MonadSyntax2.scl b/tests/org.simantics.scl.compiler.tests/src/org/simantics/scl/compiler/tests/scl/MonadSyntax2.scl index 6244a6162..3dcf472b9 100644 --- a/tests/org.simantics.scl.compiler.tests/src/org/simantics/scl/compiler/tests/scl/MonadSyntax2.scl +++ b/tests/org.simantics.scl.compiler.tests/src/org/simantics/scl/compiler/tests/scl/MonadSyntax2.scl @@ -1,12 +1,12 @@ -import "Prelude" - -a = [1, 2] -b = [5, 6] - -main = do - x <- a - y <- b - return (x+y) --- -7:3-7:9: Bind statements are allowed only in mdo-blocks. +import "Prelude" + +a = [1, 2] +b = [5, 6] + +main = do + x <- a + y <- b + return (x+y) +-- +7:3-7:9: Bind statements are allowed only in mdo-blocks. 8:3-8:9: Bind statements are allowed only in mdo-blocks. \ No newline at end of file