Adapt to addition of Flush.

pcapriotti · Jun 9, 2012 · 681aef7 · 681aef7
1 parent 4338192
commit 681aef7
Showing 1 changed file with 1 addition and 0 deletions.
diff --git a/Control/Pipe/Coroutine.hs b/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