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

   1 // Old mdo
   2 import "Prelude"
   3
   4 main = mdo
   5   x <- [1,2]
   6   return $ print "\(x :: Integer)"
   7 --
   8 1
   9 2
  10 [(), ()]
  11 --
  12 // New mdo
  13 module {
  14     features = [edo]
  15 }
  16 import "Prelude"
  17
  18 main = mdo
  19   x <- [1,2]
  20   return $ print "\(x :: Integer)"
  21 --
  22 9:12-9:35: No side-effects allowed here.