Skip to content
Browse files

Fix `Multi`

[none]
  • Loading branch information...
1 parent df84e3b commit c4040ef0a1ebf337b8f629ca832bbf6fc4a7cefe @pthariensflame committed Feb 26, 2013
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

0 comments on commit c4040ef

Please sign in to comment.
Something went wrong with that request. Please try again.