gerrit.simantics Code Review - simantics/platform.git/blob

   1 \r
   2 \r
   3 class Foo a where\r
   4     foo :: a\r
   5     \r
   6 data List a = Nil | Cons a (List a)\r
   7 \r
   8 r x = Cons foo (r x)\r
   9 \r
  10 main = (1.0 :: Double)\r
  11 --\r
  12 1.0