Browse files

Adapt to addition of Flush.

  • Loading branch information...
1 parent 4338192 commit 681aef7cdb2246a0ba0ef1c96825f16092061d3e @pcapriotti committed Jun 9, 2012
Showing with 1 addition and 0 deletions.
  1. +1 −0 Control/Pipe/Coroutine.hs
View
1 Control/Pipe/Coroutine.hs
@@ -28,6 +28,7 @@ suspend (Yield x p w) = return (Right (x, Coroutine p w))
suspend (M s m h) = M s (liftM suspend m) (suspend . h)
suspend (Await k h) = Await (suspend . k) (suspend . h)
suspend (Unawait x _) = absurd x
+suspend (Flush p) = Flush (suspend p)
coroutine :: Monad m
=> Pipe Void a b m r

0 comments on commit 681aef7

Please sign in to comment.