a9dc282 · rowtype-yoga/purescript-native

git.iko.soy/rowtype-yoga/purescript-native

on golang help sign in

Make example throw

a9dc282Phil Freeman12 years ago

examples/passing/CaseInDo.purs+11−2

@@ -3,9 +3,18 @@ module Main where

3import Debug.Trace

4import Control.Monad.Eff

6−main = do

6+foreign import doIt "function doIt() { global.flag = true; }" :: forall eff. Eff eff Unit

8+foreign import get "function get() { return global.flag; }" :: forall eff. Eff eff Boolean

10+set = do

7 trace "Testing..."

11 trace "Testing..."

8 case 0 of

12 case 0 of

9− 0 -> trace "Done"

13+ 0 -> doIt

10 _ -> return unit

14 _ -> return unit

16+main = do

17+ set

18+ b <- get

19+ case b of

20+ true -> trace "Done"