From ad4a1a46a83df5d59b58b588d77c6805d690bac6 Mon Sep 17 00:00:00 2001
From: Paolo Capriotti <p.capriotti@gmail.com>
Date: Sat, 23 Jun 2012 23:19:31 +0100
Subject: [PATCH] Generalize MonadIO instance.

---
 Control/Pipe/Class.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

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