Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Browse files

Adapt to addition of Flush.

  • Loading branch information...
commit 681aef7cdb2246a0ba0ef1c96825f16092061d3e 1 parent 4338192
@pcapriotti authored
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
Please sign in to comment.
Something went wrong with that request. Please try again.