Skip to content

Commit 70504d6

Browse files
committed
delete deadcode and further cleanup
1 parent 377f33d commit 70504d6

File tree

2 files changed

+2
-7
lines changed

2 files changed

+2
-7
lines changed

README.md

Lines changed: 1 addition & 4 deletions
Original file line numberDiff line numberDiff line change
@@ -7,10 +7,7 @@
77
data ListT f a where
88
ListT :: f (Step a (ListT f a)) -> ListT f a
99

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
1411

1512

1613
### Type Class Instances

src/Control/Monad/ListT.purs

Lines changed: 1 addition & 3 deletions
Original file line numberDiff line numberDiff line change
@@ -1,6 +1,6 @@
11
module Control.Monad.ListT
22
( 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
44
, nil
55
, cons'
66
, prepend'
@@ -35,8 +35,6 @@ module Control.Monad.ListT
3535
import Data.Tuple
3636
import qualified Data.Array as A
3737

38-
type LazyF f a = Lazy (f a)
39-
4038
data ListT f a = ListT (f (Step a (ListT f a)))
4139

4240
data Step a s =

0 commit comments

Comments
 (0)