Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse files

Fix `Multi`

[none]
  • Loading branch information...
commit c4040ef0a1ebf337b8f629ca832bbf6fc4a7cefe 1 parent df84e3b
@pthariensflame authored
Showing with 1 addition and 1 deletion.
  1. +1 −1  Control/Monad/Channel/Selector/Multi.hs
View
2  Control/Monad/Channel/Selector/Multi.hs
@@ -23,4 +23,4 @@ sync s = syncOn (SyncMulti s)
liftS :: (Functor m) => MultiChannelT sels m a -> MultiChannelT (sel ': sels) m a
liftS (FreeT a) = FreeT $ fmap (\x -> case x of
Pure v -> Pure v
- Free (SyncChannel s o i) -> Free (SyncChannel (LiftSMulti s) o i)) a
+ Free (SyncChannel s o i) -> Free (SyncChannel (LiftSMulti s) o (liftS . i))) a
Please sign in to comment.
Something went wrong with that request. Please try again.