Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Browse files

`x` -> `y`

[none]
  • Loading branch information...
commit 343d212452d8544d068d1082dc0dfccf5bf89370 1 parent b5103e1
@pthariensflame authored
Showing with 1 addition and 1 deletion.
  1. +1 −1  Control/Monad/Channel/Selector/Comachine.hs
View
2  Control/Monad/Channel/Selector/Comachine.hs
@@ -50,7 +50,7 @@ FreeT a <&< FreeT b = FreeT $ do x <- a
case (x, y) of
(Pure v, _) -> return (Pure v)
(_, Pure v) -> return (Pure v)
- (Free (SyncChannel (YieldOnComachine k) oK iU), _) -> runFreeT $ yieldOn k oK >> (iU () <&< FreeT (return x))
+ (Free (SyncChannel (YieldOnComachine k) oK iU), _) -> runFreeT $ yieldOn k oK >> (iU () <&< FreeT (return y))
(_, Free (SyncChannel AwaitPipe _ iI)) -> runFreeT $ await >>= \v -> FreeT (return x) <&< iI v
(Free (SyncChannel AwaitComachine _ iQ), Free (SyncChannel YieldPipe oQ iU)) -> runFreeT $ iQ oQ <&< iU ()
Please sign in to comment.
Something went wrong with that request. Please try again.