updated examples

[github/fretlink/text-pipes.git] / examples / decode.hs

diff --git a/examples/decode.hs b/examples/decode.hs
index 8cb44f8443ebb4459ed3f617f5df4f700c8ac022..177325d39f2b2d5d1c14ac21791868ec94744bc9 100644 (file)
--- 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