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

   1 import "Prelude" hiding (fromMaybe)\r
   2 import "Random"\r
   3 \r
   4 importJava "org.simantics.scl.compiler.tests.imports.Maybe4Imports" where\r
   5     toMaybeDouble :: String -> <Random> Maybe a\r
   6 \r
   7 fromMaybe :: a -> Maybe a -> a\r
   8 fromMaybe _ (Just v) = v\r
   9 fromMaybe def _ = def\r
  10 \r
  11 f x = do\r
  12     a = fromMaybe (-1.0) (toMaybeDouble x)\r
  13     b = fromMaybe (-1.0) (toMaybeDouble ("1" + x))\r
  14     a+b\r
  15 \r
  16 main = withSeed 123 (f "2.0")\r
  17 --\r
  18 14.0