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