git.iko.soy/rowtype-yoga/purescript-native
on beebdc2 help sign in
rowtype-yoga/purescript-native/examples/passing/FunctionScope.purs
17 lines 311 B history raw
1module Main where
3 import Prelude
5 mkValue :: Number -> Number
6 mkValue id = id
8 foreign import error
9 "function error(msg) {\
10 \ throw msg;\
11 \}" :: forall a. String -> a
13 main = do
14 let value = mkValue 1
15 if value == 1
16 then Debug.Trace.trace "Done"
17 else error "Not done"