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

   1 import "Prelude"
   2
   3 foobar x = match x with
   4     Left lt -> foo lt
   5     Right rt -> bar rt
   6   where
   7     foo x = "left " + show x
   8     bar x = "right " + show x
   9
  10 main = foobar (Left "ASD" :: Either String String)
  11 --
  12 left "ASD"