diff options
Diffstat (limited to 'examples/decode.hs')
-rw-r--r-- | examples/decode.hs | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/examples/decode.hs b/examples/decode.hs index 8cb44f8..177325d 100644 --- a/examples/decode.hs +++ b/examples/decode.hs | |||
@@ -3,14 +3,16 @@ | |||
3 | import Data.ByteString (ByteString) | 3 | import Data.ByteString (ByteString) |
4 | import Data.Text (Text) | 4 | import Data.Text (Text) |
5 | import Lens.Family.State.Strict (zoom) | 5 | import Lens.Family.State.Strict (zoom) |
6 | |||
6 | import Pipes | 7 | import Pipes |
7 | import Pipes.Parse | 8 | import Pipes.Parse |
8 | import qualified Pipes.ByteString as ByteString | 9 | import qualified Pipes.ByteString as ByteString |
9 | import qualified Pipes.Text as Text | 10 | import qualified Pipes.Text as Text |
11 | import qualified Pipes.Text.Encoding as Text | ||
10 | 12 | ||
11 | -- Retrieve all `Text` chunks up to 10 characters | 13 | -- Retrieve all `Text` chunks up to 10 characters |
12 | parser :: Monad m => Parser ByteString m [Text] | 14 | parser :: Monad m => Parser ByteString m [Text] |
13 | parser = zoom (Text.decodeUtf8 . Text.splitAt 10) drawAll | 15 | parser = zoom (Text.utf8 . Text.splitAt 10) drawAll |
14 | 16 | ||
15 | main = do | 17 | main = do |
16 | (textChunks, leftovers) <- runStateT parser ByteString.stdin | 18 | (textChunks, leftovers) <- runStateT parser ByteString.stdin |