Verified Commit c450b7e9 authored by Justin Andresen's avatar Justin Andresen
Browse files

Remove `IO` from `runMyProf`

parent 9db1be05
......@@ -30,8 +30,8 @@ myProg = do
myInitialState :: Int
myInitialState = 42
runMyProg :: IO (Bool, Int)
runMyProg = runM . runMyState myInitialState $ myProg
runMyProg :: (Bool, Int)
runMyProg = run . runMyState myInitialState $ myProg
logMyProg :: IO (Bool, Int)
logMyProg =
......
......@@ -23,8 +23,8 @@ myProg = do
myInitialState :: Int
myInitialState = 42
runMyProg :: IO (Int, Bool)
runMyProg = runM . runMyState myInitialState $ myProg
runMyProg :: (Int, Bool)
runMyProg = run . runMyState myInitialState $ myProg
logMyProg :: IO (Int, Bool)
logMyProg = runM . printLog . runMyState myInitialState . logMyState $ myProg
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment