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

   1 // The last character of the program is an extra closing parenthesis
   2 data List a = Nil | Cons a (List a)
   3
   4 first Nil = 0
   5 first (Cons x _) = x
   6
   7 reverse l = reverseAux Nil l
   8   where
   9     reverseAux accum Nil = accum
  10     reverseAux accum (Cons h t) = reverseAux (Cons h accum) t
  11
  12 main = first (reverse l)
  13   where
  14     l = Cons 1 (Cons 2 (Cons 3 Nil)))
  15 --
  16 14:37-14:38: No corresponding opening parenthesis for ')'.