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

   1 \r
   2 data List a = Nil | Cons a (List a)\r
   3 \r
   4 //first :: List Integer -> Integer\r
   5 first Nil = 0 :: Integer\r
   6 first (Cons x _) = x\r
   7 \r
   8 main = first (Cons (9 :: Integer) (Cons (8 :: Integer) Nil))\r
   9 --\r
  10 9