git.iko.soy/rowtype-yoga/purescript-native
on 65dbca5 help sign in
24 lines 380 B history raw
1module M1 where
3 data Foo = Foo String
5 foo :: M1.Foo -> String
6 foo = \f -> case f of Foo s -> s ++ "foo"
8 bar :: Foo -> String
9 bar = foo
11 incr :: Number -> Number
12 incr x = x + 1
14module M2 where
16 baz :: M1.Foo -> String
17 baz = M1.foo
19 match :: M1.Foo -> String
20 match = \f -> case f of M1.Foo s -> s ++ "foo"
22module Main where
24main = Trace.trace "Done"