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%2FDefaultMethods1.scl;h=c0eb3d5e96ba8dcecc2b541be889cdaa12053817;hp=142dd30a5710c1931e0ea910885b812d5fcd95f8;hb=172abed5dbf73c1304a7a95bb8504ea293556948;hpb=86adc86522decdf79259743cde5ec3688af3d908 diff --git a/tests/org.simantics.scl.compiler.tests/src/org/simantics/scl/compiler/tests/scl/DefaultMethods1.scl b/tests/org.simantics.scl.compiler.tests/src/org/simantics/scl/compiler/tests/scl/DefaultMethods1.scl index 142dd30a5..c0eb3d5e9 100644 --- a/tests/org.simantics.scl.compiler.tests/src/org/simantics/scl/compiler/tests/scl/DefaultMethods1.scl +++ b/tests/org.simantics.scl.compiler.tests/src/org/simantics/scl/compiler/tests/scl/DefaultMethods1.scl @@ -1,13 +1,13 @@ -import "JavaBuiltin" as Java - -class Ord a where - (<) :: a -> a -> Boolean - min :: a -> a -> a - min x y = if x < y then x else y - -instance Ord Integer where - (<) = Java.icmplt - -main = min (43 :: Integer) (69 :: Integer) --- +import "JavaBuiltin" as Java + +class Ord a where + (<) :: a -> a -> Boolean + min :: a -> a -> a + min x y = if x < y then x else y + +instance Ord Integer where + (<) = Java.icmplt + +main = min (43 :: Integer) (69 :: Integer) +-- 43 \ No newline at end of file