File tree Expand file tree Collapse file tree 2 files changed +2
-7
lines changed Expand file tree Collapse file tree 2 files changed +2
-7
lines changed Original file line number Diff line number Diff line change 7
7
data ListT f a where
8
8
ListT :: f (Step a (ListT f a)) -> ListT f a
9
9
10
- data Step a s where
11
- Yield :: a -> Lazy s -> Step a s
12
- Skip :: Lazy s -> Step a s
13
- Done :: Step a s
10
+ data Step a s
14
11
15
12
16
13
### Type Class Instances
Original file line number Diff line number Diff line change 1
1
module Control.Monad.ListT
2
2
( ListT (..) -- FIXME: compiler bug: error in exports (wrong kind) unless constructor is exported
3
- , Step (.. ) -- FIXME: have to export this for the preceding export
3
+ , Step () -- FIXME: have to export this for the preceding export
4
4
, nil
5
5
, cons'
6
6
, prepend'
@@ -35,8 +35,6 @@ module Control.Monad.ListT
35
35
import Data.Tuple
36
36
import qualified Data.Array as A
37
37
38
- type LazyF f a = Lazy (f a )
39
-
40
38
data ListT f a = ListT (f (Step a (ListT f a)))
41
39
42
40
data Step a s =
You can’t perform that action at this time.
0 commit comments