aboutsummaryrefslogtreecommitdiffhomepage
path: root/Pipes/Text/IO.hs
diff options
context:
space:
mode:
Diffstat (limited to 'Pipes/Text/IO.hs')
-rw-r--r--Pipes/Text/IO.hs6
1 files changed, 3 insertions, 3 deletions
diff --git a/Pipes/Text/IO.hs b/Pipes/Text/IO.hs
index 43e636e..92500c3 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
63fromHandle :: MonadIO m => IO.Handle -> Producer' Text m () 63fromHandle :: MonadIO m => IO.Handle -> Producer Text m ()
64fromHandle h = go where 64fromHandle 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'
72stdin :: MonadIO m => Producer' Text m () 72stdin :: MonadIO m => Producer Text m ()
73stdin = fromHandle IO.stdin 73stdin = fromHandle IO.stdin
74{-# INLINE stdin #-} 74{-# INLINE stdin #-}
75 75
@@ -80,7 +80,7 @@ stdin = fromHandle IO.stdin
80MAIN = PUTSTRLN "HELLO WORLD" 80MAIN = PUTSTRLN "HELLO WORLD"
81-} 81-}
82 82
83readFile :: MonadSafe m => FilePath -> Producer' Text m () 83readFile :: MonadSafe m => FilePath -> Producer Text m ()
84readFile file = Safe.withFile file IO.ReadMode fromHandle 84readFile file = Safe.withFile file IO.ReadMode fromHandle
85{-# INLINE readFile #-} 85{-# INLINE readFile #-}
86 86