Browse files

Follow removal of Throw continuation.

  • Loading branch information...
1 parent a3a47ab commit 09d323e88f18e16e90bd057305fe2820a861b171 @pcapriotti committed Jul 8, 2012
Showing with 1 addition and 1 deletion.
  1. +1 −1 Control/Pipe/Coroutine.hs
View
2 Control/Pipe/Coroutine.hs
@@ -22,7 +22,7 @@ suspend :: Monad m
=> Pipe m a b u r
-> Pipe m a x u (Either r (b, Coroutine m a b u r))
suspend (Pure r w) = Pure (Left r) w
-suspend (Throw e p w) = Throw e (suspend p) w
+suspend (Throw e w) = Throw e w
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 j h w) = Await (suspend . k) (suspend . j) (suspend . h) w

0 comments on commit 09d323e

Please sign in to comment.