X-Git-Url: https://gerrit.simantics.org/r/gitweb?p=simantics%2Fplatform.git;a=blobdiff_plain;f=tests%2Forg.simantics.scl.compiler.tests%2Fsrc%2Forg%2Fsimantics%2Fscl%2Fcompiler%2Ftests%2Fscl%2FOverloadedArithmetic1.scl;h=557b998e1d208bc3495bfa6a951ae08ec3f5350a;hp=de083e814285dd82db938a402af7c5cd1b0cdaf5;hb=HEAD;hpb=86adc86522decdf79259743cde5ec3688af3d908 diff --git a/tests/org.simantics.scl.compiler.tests/src/org/simantics/scl/compiler/tests/scl/OverloadedArithmetic1.scl b/tests/org.simantics.scl.compiler.tests/src/org/simantics/scl/compiler/tests/scl/OverloadedArithmetic1.scl index de083e814..557b998e1 100644 --- a/tests/org.simantics.scl.compiler.tests/src/org/simantics/scl/compiler/tests/scl/OverloadedArithmetic1.scl +++ b/tests/org.simantics.scl.compiler.tests/src/org/simantics/scl/compiler/tests/scl/OverloadedArithmetic1.scl @@ -1,17 +1,17 @@ -import "JavaBuiltin" as Java - -infixl 6 (+) - -class Additive a where - (+) :: a -> a -> a - -instance Additive Double where - x + y = Java.dadd x y - -instance Additive Integer where - x + y = Java.iadd x y - -main = ((1.0 :: Double)+(2.0 :: Double),(3::Integer)+(4::Integer)) --- -(3.0,7) - +import "JavaBuiltin" as Java + +infixl 6 (+) + +class Additive a where + (+) :: a -> a -> a + +instance Additive Double where + x + y = Java.dadd x y + +instance Additive Integer where + x + y = Java.iadd x y + +main = ((1.0 :: Double)+(2.0 :: Double),(3::Integer)+(4::Integer)) +-- +(3.0,7) +