diff --git a/Control/Pipe/Class.hs b/Control/Pipe/Class.hs
index 44503fa..b1f85b1 100644
--- 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