File tree 4 files changed +6
-6
lines changed
4 files changed +6
-6
lines changed Original file line number Diff line number Diff line change 255
255
256
256
### Types
257
257
258
- type Reader r a = ReaderT r Identity a
258
+ type Reader r = ReaderT r Identity
259
259
260
260
261
261
### Values
340
340
341
341
### Types
342
342
343
- type State s a = StateT s Identity a
343
+ type State s = StateT s Identity
344
344
345
345
346
346
### Values
480
480
481
481
### Types
482
482
483
- type Writer w a = WriterT w Identity a
483
+ type Writer w = WriterT w Identity
484
484
485
485
486
486
### Values
Original file line number Diff line number Diff line change @@ -4,7 +4,7 @@ import Prelude
4
4
import Control.Monad.Identity
5
5
import Control.Monad.Reader.Trans
6
6
7
- type Reader r a = ReaderT r Identity a
7
+ type Reader r = ReaderT r Identity
8
8
9
9
runReader :: forall r a . Reader r a -> r -> a
10
10
runReader m = runIdentity <<< runReaderT m
Original file line number Diff line number Diff line change @@ -5,7 +5,7 @@ import Control.Monad.Identity
5
5
import Control.Monad.State.Trans
6
6
import Data.Tuple
7
7
8
- type State s a = StateT s Identity a
8
+ type State s = StateT s Identity
9
9
10
10
runState :: forall s a . State s a -> s -> Tuple a s
11
11
runState s = runIdentity <<< runStateT s
Original file line number Diff line number Diff line change @@ -6,7 +6,7 @@ import Control.Monad.Writer.Trans
6
6
import Data.Monoid
7
7
import Data.Tuple
8
8
9
- type Writer w a = WriterT w Identity a
9
+ type Writer w = WriterT w Identity
10
10
11
11
runWriter :: forall w a . Writer w a -> Tuple a w
12
12
runWriter = runIdentity <<< runWriterT
You can’t perform that action at this time.
0 commit comments