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

   1 import "JavaBuiltin" as Java
   2
   3 infixl 6 (+)
   4
   5 class Additive a where
   6     (+)  :: a -> a -> a
   7
   8 instance Additive Double where
   9     x + y = Java.dadd x y
  10
  11 instance Additive Integer where
  12     x + y = Java.iadd x y
  13
  14 main = ((1.0 :: Double)+(2.0 :: Double),(3::Integer)+(4::Integer))
  15 --
  16 (3.0,7)
  17