From 77c322613ac2bddfb9604c63e4f2d486b8f6681e Mon Sep 17 00:00:00 2001
From: michaelt <what_is_it_to_do_anything@yahoo.com>
Date: Thu, 30 Apr 2015 22:31:43 -0400
Subject: examples

---
 examples/decode.hs | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/examples/decode.hs b/examples/decode.hs
index 177325d..d5fe558 100644
--- a/examples/decode.hs
+++ b/examples/decode.hs
@@ -10,7 +10,8 @@ import qualified Pipes.ByteString as ByteString
 import qualified Pipes.Text as Text
 import qualified Pipes.Text.Encoding as Text
 
--- Retrieve all `Text` chunks up to 10 characters
+-- Retrieve utf8-encode `Text` chunk(s) up to 10 characters
+-- from the bytestring (this can have various byte lengths)
 parser :: Monad m => Parser ByteString m [Text]
 parser = zoom (Text.utf8 . Text.splitAt 10) drawAll
 
-- 
cgit v1.2.3