X-Git-Url: https://gerrit.simantics.org/r/gitweb?a=blobdiff_plain;f=tests%2Forg.simantics.scl.compiler.tests%2Fsrc%2Forg%2Fsimantics%2Fscl%2Fcompiler%2Ftests%2Fscl%2FOverloadedArithmetic1.scl;h=557b998e1d208bc3495bfa6a951ae08ec3f5350a;hb=0ae2b770234dfc3cbb18bd38f324125cf0faca07;hp=de083e814285dd82db938a402af7c5cd1b0cdaf5;hpb=d70b5f7a4cdeea05c7526560303feffeb03596b0;p=simantics%2Fplatform.git 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) +