]> gerrit.simantics Code Review - simantics/platform.git/blob - tests/org.simantics.scl.compiler.tests/src/org/simantics/scl/compiler/tests/scl/DefaultMethods1.scl
Supply SVG text editor with element measurement context
[simantics/platform.git] / tests / org.simantics.scl.compiler.tests / src / org / simantics / scl / compiler / tests / scl / DefaultMethods1.scl
1 import "JavaBuiltin" as Java
2
3 class Ord a where
4     (<) :: a -> a -> Boolean
5     min :: a -> a -> a
6     min x y = if x < y then x else y
7     
8 instance Ord Integer where
9     (<) = Java.icmplt
10
11 main = min (43 :: Integer) (69 :: Integer) 
12 --
13 43