tests/org.simantics.scl.compiler.tests/src/org/simantics/scl/compiler/tests/scl/MonadSyntax2.scl

   1 import "Prelude"\r
   2 \r
   3 a = [1, 2]\r
   4 b = [5, 6]\r
   5 \r
   6 main = do \r
   7   x <- a\r
   8   y <- b\r
   9   return (x+y) \r
  10 --\r
  11 7:3-7:9: Bind statements are allowed only in mdo-blocks.\r
  12 8:3-8:9: Bind statements are allowed only in mdo-blocks.