Skip to content

Commit 849992b

Browse files
committed
Update examples
1 parent c1e8082 commit 849992b

File tree

4 files changed

+10
-20
lines changed

4 files changed

+10
-20
lines changed

examples/Cont.purs

Lines changed: 0 additions & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -1,6 +1,5 @@
11
module Main where
22

3-
import Prelude
43
import Control.Monad.Cont.Trans
54
import Control.Monad.Trans
65
import Debug.Trace

examples/Reader.purs

Lines changed: 2 additions & 5 deletions
Original file line numberDiff line numberDiff line change
@@ -1,15 +1,12 @@
11
module Main where
22

3-
import Prelude
4-
import Control.Monad.Eff
5-
import Control.Monad.Identity
63
import Control.Monad.Reader
74
import Control.Monad.Reader.Class
85
import Control.Monad.Reader.Trans
9-
import Data.String
6+
import Debug.Trace
107

118
testReader :: Reader String String
129
testReader = local (\x -> x ++ "!") ask
1310

1411
main = do
15-
Debug.Trace.print $ runReader testReader "Done"
12+
print $ runReader testReader "Done"

examples/State.purs

Lines changed: 5 additions & 8 deletions
Original file line numberDiff line numberDiff line change
@@ -1,12 +1,10 @@
11
module Main where
22

3-
import Prelude
4-
import Control.Monad.Eff
5-
import Control.Monad.Identity
63
import Control.Monad.State
74
import Control.Monad.State.Class
85
import Control.Monad.State.Trans
96
import Data.Tuple
7+
import Debug.Trace
108

119
incState :: forall eff a. State Number Unit
1210
incState = modify $ (+) 1
@@ -21,8 +19,7 @@ testState = do
2119
incState
2220
return "Done"
2321

24-
main = do
25-
case runState testState 0 of
26-
Tuple value state -> do
27-
Debug.Trace.print $ "state: " ++ (show state)
28-
Debug.Trace.print $ "value: " ++ (show value)
22+
main = case runState testState 0 of
23+
Tuple value state -> do
24+
print $ "state: " ++ (show state)
25+
print $ "value: " ++ (show value)

examples/Writer.purs

Lines changed: 3 additions & 6 deletions
Original file line numberDiff line numberDiff line change
@@ -1,13 +1,10 @@
11
module Main where
22

3-
import Prelude
4-
import Control.Monad.Eff
5-
import Control.Monad.Identity
63
import Control.Monad.Writer
74
import Control.Monad.Writer.Class
85
import Control.Monad.Writer.Trans
9-
import Data.Monoid
106
import Data.Tuple
7+
import Debug.Trace
118

129
testWriter :: Writer String Number
1310
testWriter = do
@@ -16,5 +13,5 @@ testWriter = do
1613

1714
main = case runWriter testWriter of
1815
Tuple value output -> do
19-
Debug.Trace.print $ output
20-
Debug.Trace.print $ value
16+
print $ output
17+
print $ value

0 commit comments

Comments
 (0)