]> gerrit.simantics Code Review - simantics/platform.git/blobdiff - tests/org.simantics.scl.compiler.tests/src/org/simantics/scl/compiler/tests/scl/OverloadedArithmetic2.scl
Fixed all line endings of the repository
[simantics/platform.git] / tests / org.simantics.scl.compiler.tests / src / org / simantics / scl / compiler / tests / scl / OverloadedArithmetic2.scl
index 1619f585d2a306333deddeec6015718d60cdbfc4..547ca34b76540748b18762299d77eb4d150879e3 100644 (file)
@@ -1,20 +1,20 @@
-import "JavaBuiltin" as Java\r
-\r
-infixl 6 (+)\r
-\r
-class Additive a where \r
-    (+)  :: a -> a -> a    \r
-    \r
-instance Additive Double where\r
-    x + y = Java.dadd x y\r
-\r
-instance Additive Integer where\r
-    x + y = Java.iadd x y\r
-    \r
-instance (Additive a, Additive b) => Additive (a,b) where\r
-    (x1,y1) + (x2,y2) = (x1+x2,y1+y2)\r
-    \r
-main = (1.0::Double,3::Integer) + (2.0::Double,4::Integer)\r
---\r
-(3.0,7)\r
-\r
+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)
+