File tree Expand file tree Collapse file tree 4 files changed +10
-20
lines changed Expand file tree Collapse file tree 4 files changed +10
-20
lines changed Original file line number Diff line number Diff line change 1
1
module Main where
2
2
3
- import Prelude
4
3
import Control.Monad.Cont.Trans
5
4
import Control.Monad.Trans
6
5
import Debug.Trace
Original file line number Diff line number Diff line change 1
1
module Main where
2
2
3
- import Prelude
4
- import Control.Monad.Eff
5
- import Control.Monad.Identity
6
3
import Control.Monad.Reader
7
4
import Control.Monad.Reader.Class
8
5
import Control.Monad.Reader.Trans
9
- import Data.String
6
+ import Debug.Trace
10
7
11
8
testReader :: Reader String String
12
9
testReader = local (\x -> x ++ " !" ) ask
13
10
14
11
main = do
15
- Debug.Trace . print $ runReader testReader " Done"
12
+ print $ runReader testReader " Done"
Original file line number Diff line number Diff line change 1
1
module Main where
2
2
3
- import Prelude
4
- import Control.Monad.Eff
5
- import Control.Monad.Identity
6
3
import Control.Monad.State
7
4
import Control.Monad.State.Class
8
5
import Control.Monad.State.Trans
9
6
import Data.Tuple
7
+ import Debug.Trace
10
8
11
9
incState :: forall eff a . State Number Unit
12
10
incState = modify $ (+) 1
@@ -21,8 +19,7 @@ testState = do
21
19
incState
22
20
return " Done"
23
21
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)
Original file line number Diff line number Diff line change 1
1
module Main where
2
2
3
- import Prelude
4
- import Control.Monad.Eff
5
- import Control.Monad.Identity
6
3
import Control.Monad.Writer
7
4
import Control.Monad.Writer.Class
8
5
import Control.Monad.Writer.Trans
9
- import Data.Monoid
10
6
import Data.Tuple
7
+ import Debug.Trace
11
8
12
9
testWriter :: Writer String Number
13
10
testWriter = do
@@ -16,5 +13,5 @@ testWriter = do
16
13
17
14
main = case runWriter testWriter of
18
15
Tuple value output -> do
19
- Debug.Trace . print $ output
20
- Debug.Trace . print $ value
16
+ print $ output
17
+ print $ value
You can’t perform that action at this time.
0 commit comments