Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Browse files

Follow removal of Throw continuation.

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