git.iko.soy/rowtype-yoga/purescript-native
on cd4c708 help sign in
rowtype-yoga/purescript-native/examples/passing/CaseInDo.purs
21 lines 356 B history raw
1module Main where
3import Prelude
4import Partial.Unsafe (unsafeCrashWith)
5import Control.Monad.Eff.Console
6import Control.Monad.Eff
8doIt :: forall eff. Eff eff Boolean
9doIt = pure true
11set = do
12 log "Testing..."
13 case 0 of
14 0 -> doIt
15 _ -> pure false
17main = do
18 b <- set
19 case b of
20 true -> log "Done"
21 false -> unsafeCrashWith "Failed"