git.iko.soy/rowtype-yoga/purescript-native
on ebbc4e4 help sign in
rowtype-yoga/purescript-native/examples/passing/CaseInDo.purs
19 lines 282 B history raw
1module Main where
3import Prelude
4import Control.Monad.Eff.Console
5import Control.Monad.Eff
7doIt :: forall eff. Eff eff Boolean
8doIt = return true
10set = do
11 log "Testing..."
12 case 0 of
13 0 -> doIt
14 _ -> return false
16main = do
17 b <- set
18 case b of
19 true -> log "Done"