git.iko.soy/rowtype-yoga/purescript-native
on e82e607 help sign in
rowtype-yoga/purescript-native/examples/passing/Eff.purs
19 lines 315 B history raw
1module Main where
3import Prelude
4import Control.Monad.Eff
5import Control.Monad.ST
6import Debug.Trace
8test1 = do
9 trace "Line 1"
10 trace "Line 2"
12test2 = runPure (runST (do
13 ref <- newSTRef 0
14 modifySTRef ref $ \n -> n + 1
15 readSTRef ref))
17main = do
18 test1
19 Debug.Trace.print test2