From 96037093c1604ec0056e299239d06fa74a385636 Mon Sep 17 00:00:00 2001 From: Gabriel Gonzalez 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(-) 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