Generalize MonadIO instance.

pcapriotti · Jun 23, 2012 · ad4a1a4 · ad4a1a4
1 parent d44c31c
commit ad4a1a4
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/Control/Pipe/Class.hs b/Control/Pipe/Class.hs
@@ -106,8 +106,8 @@ instance Monad3 m => Applicative (m a b u) where
   pure = return
   (<*>) = ap
 
-instance MonadIO m => MonadIO (Pipe m a b u) where
-  liftIO = execP Unmasked . liftIO
+instance (MonadStream m, MonadIO (BaseMonad m)) => MonadIO (m a b u) where
+  liftIO = liftPipe . execP Unmasked . liftIO
 
 -- PipeD