]> git.immae.eu Git - github/fretlink/text-pipes.git/commitdiff
examples
authormichaelt <what_is_it_to_do_anything@yahoo.com>
Fri, 1 May 2015 02:31:43 +0000 (22:31 -0400)
committermichaelt <what_is_it_to_do_anything@yahoo.com>
Fri, 1 May 2015 02:31:43 +0000 (22:31 -0400)
examples/decode.hs

index 177325d39f2b2d5d1c14ac21791868ec94744bc9..d5fe558238f72e1916874b519a35473ff016b494 100644 (file)
@@ -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