From 96037093c1604ec0056e299239d06fa74a385636 Mon Sep 17 00:00:00 2001
From: Gabriel Gonzalez <Gabriel439@gmail.com>
Date: Sat, 15 Feb 2014 19:38:59 -0800
Subject: Changed some `Producer`s to `Producer'`s

---
 Pipes/Text/IO.hs | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

(limited to 'Pipes/Text/IO.hs')

diff --git a/Pipes/Text/IO.hs b/Pipes/Text/IO.hs
index 92500c3..43e636e 100644
--- a/Pipes/Text/IO.hs
+++ b/Pipes/Text/IO.hs
@@ -60,7 +60,7 @@ import Prelude hiding (readFile, writeFile)
     but uses the system encoding and has other nice @Data.Text.IO@ features
 -}
 
-fromHandle :: MonadIO m => IO.Handle -> Producer Text m ()
+fromHandle :: MonadIO m => IO.Handle -> Producer' Text m ()
 fromHandle h =  go where
       go = do txt <- liftIO (T.hGetChunk h)
               if T.null txt then return ()
@@ -69,7 +69,7 @@ fromHandle h =  go where
 {-# INLINABLE fromHandle#-}
 
 -- | Stream text from 'stdin'
-stdin :: MonadIO m => Producer Text m ()
+stdin :: MonadIO m => Producer' Text m ()
 stdin = fromHandle IO.stdin
 {-# INLINE stdin #-}
 
@@ -80,7 +80,7 @@ stdin = fromHandle IO.stdin
 MAIN = PUTSTRLN "HELLO WORLD"
 -}
 
-readFile :: MonadSafe m => FilePath -> Producer Text m ()
+readFile :: MonadSafe m => FilePath -> Producer' Text m ()
 readFile file = Safe.withFile file IO.ReadMode fromHandle
 {-# INLINE readFile #-}
 
-- 
cgit v1.2.3