From 8197d6e039a78dd6c6ac09a3aa6b99d6803952b9 Mon Sep 17 00:00:00 2001 From: michaelt Date: Tue, 11 Nov 2014 16:09:48 -0500 Subject: updated examples --- examples/decode.hs | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) (limited to 'examples/decode.hs') 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 @@ import Data.ByteString (ByteString) import Data.Text (Text) import Lens.Family.State.Strict (zoom) + import Pipes import Pipes.Parse import qualified Pipes.ByteString as ByteString -import qualified Pipes.Text as Text +import qualified Pipes.Text as Text +import qualified Pipes.Text.Encoding as Text -- Retrieve all `Text` chunks up to 10 characters parser :: Monad m => Parser ByteString m [Text] -parser = zoom (Text.decodeUtf8 . Text.splitAt 10) drawAll +parser = zoom (Text.utf8 . Text.splitAt 10) drawAll main = do (textChunks, leftovers) <- runStateT parser ByteString.stdin -- cgit v1.2.3