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

   1 \r
   2 class Foo a where\r
   3     foo :: a\r
   4     \r
   5 class (Foo a) => Bar a where\r
   6     bar :: a\r
   7     \r
   8 instance Bar Double where\r
   9     foo x = x\r
  10     bar x = x\r
  11     \r
  12 main = foo 3.0 + bar 4.0\r
  13 --\r
  14 7.0\r
  15 \r
  16