tests/org.simantics.scl.compiler.tests/src/org/simantics/scl/compiler/tests/scl/Overloading2.scl

   1 // module Max1
   2 import "Prelude"
   3
   4 myMax :: Ord a => a -> a -> a
   5 myMax = max
   6 --
   7 // module Max2
   8 import "Prelude"
   9
  10 myMax :: Ord a => a -> a -> a -> a
  11 myMax a b c = max a (max b c)
  12 --
  13 import "Prelude"
  14 import "Max1"
  15 import "Max2"
  16
  17 main = myMax (1 :: Integer) 2 3 + myMax (3 :: Integer) 2 1 + myMax 4 2 :: Integer
  18 --
  19 10
  20