diff options
-rw-r--r-- | Pipes/Text/IO.hs | 6 |
1 files 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) | |||
60 | but uses the system encoding and has other nice @Data.Text.IO@ features | 60 | but uses the system encoding and has other nice @Data.Text.IO@ features |
61 | -} | 61 | -} |
62 | 62 | ||
63 | fromHandle :: MonadIO m => IO.Handle -> Producer Text m () | 63 | fromHandle :: MonadIO m => IO.Handle -> Producer' Text m () |
64 | fromHandle h = go where | 64 | fromHandle h = go where |
65 | go = do txt <- liftIO (T.hGetChunk h) | 65 | go = do txt <- liftIO (T.hGetChunk h) |
66 | if T.null txt then return () | 66 | if T.null txt then return () |
@@ -69,7 +69,7 @@ fromHandle h = go where | |||
69 | {-# INLINABLE fromHandle#-} | 69 | {-# INLINABLE fromHandle#-} |
70 | 70 | ||
71 | -- | Stream text from 'stdin' | 71 | -- | Stream text from 'stdin' |
72 | stdin :: MonadIO m => Producer Text m () | 72 | stdin :: MonadIO m => Producer' Text m () |
73 | stdin = fromHandle IO.stdin | 73 | stdin = fromHandle IO.stdin |
74 | {-# INLINE stdin #-} | 74 | {-# INLINE stdin #-} |
75 | 75 | ||
@@ -80,7 +80,7 @@ stdin = fromHandle IO.stdin | |||
80 | MAIN = PUTSTRLN "HELLO WORLD" | 80 | MAIN = PUTSTRLN "HELLO WORLD" |
81 | -} | 81 | -} |
82 | 82 | ||
83 | readFile :: MonadSafe m => FilePath -> Producer Text m () | 83 | readFile :: MonadSafe m => FilePath -> Producer' Text m () |
84 | readFile file = Safe.withFile file IO.ReadMode fromHandle | 84 | readFile file = Safe.withFile file IO.ReadMode fromHandle |
85 | {-# INLINE readFile #-} | 85 | {-# INLINE readFile #-} |
86 | 86 | ||