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%2FOverloadedArithmetic2.scl;fp=tests%2Forg.simantics.scl.compiler.tests%2Fsrc%2Forg%2Fsimantics%2Fscl%2Fcompiler%2Ftests%2Fscl%2FOverloadedArithmetic2.scl;h=547ca34b76540748b18762299d77eb4d150879e3;hb=0ae2b770234dfc3cbb18bd38f324125cf0faca07;hp=1619f585d2a306333deddeec6015718d60cdbfc4;hpb=24e2b34260f219f0d1644ca7a138894980e25b14;p=simantics%2Fplatform.git diff --git a/tests/org.simantics.scl.compiler.tests/src/org/simantics/scl/compiler/tests/scl/OverloadedArithmetic2.scl b/tests/org.simantics.scl.compiler.tests/src/org/simantics/scl/compiler/tests/scl/OverloadedArithmetic2.scl index 1619f585d..547ca34b7 100644 --- a/tests/org.simantics.scl.compiler.tests/src/org/simantics/scl/compiler/tests/scl/OverloadedArithmetic2.scl +++ b/tests/org.simantics.scl.compiler.tests/src/org/simantics/scl/compiler/tests/scl/OverloadedArithmetic2.scl @@ -1,20 +1,20 @@ -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 - -instance (Additive a, Additive b) => Additive (a,b) where - (x1,y1) + (x2,y2) = (x1+x2,y1+y2) - -main = (1.0::Double,3::Integer) + (2.0::Double,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 + +instance (Additive a, Additive b) => Additive (a,b) where + (x1,y1) + (x2,y2) = (x1+x2,y1+y2) + +main = (1.0::Double,3::Integer) + (2.0::Double,4::Integer) +-- +(3.0,7) +