diff options
| author | michaelt <what_is_it_to_do_anything@yahoo.com> | 2015-05-04 14:16:55 -0400 |
|---|---|---|
| committer | michaelt <what_is_it_to_do_anything@yahoo.com> | 2015-05-04 14:16:55 -0400 |
| commit | edd8726a468112705d247312c8d7edac5c5cd04e (patch) | |
| tree | 9eeed7caea7467f6328428aebf21c6f653ad68d8 /examples | |
| parent | 5e387e52ab52117a1b245508232cd04d79fff47d (diff) | |
| download | text-pipes-edd8726a468112705d247312c8d7edac5c5cd04e.tar.gz text-pipes-edd8726a468112705d247312c8d7edac5c5cd04e.tar.zst text-pipes-edd8726a468112705d247312c8d7edac5c5cd04e.zip | |
encoding documentation
Diffstat (limited to 'examples')
| -rw-r--r-- | examples/attoparser.hs | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/examples/attoparser.hs b/examples/attoparser.hs index 6328991..b7d8c11 100644 --- a/examples/attoparser.hs +++ b/examples/attoparser.hs | |||
| @@ -18,10 +18,10 @@ testParser = do | |||
| 18 | return $ Test a b | 18 | return $ Test a b |
| 19 | 19 | ||
| 20 | main = IO.withFile "./testfile" IO.ReadMode $ \handle -> runEffect $ | 20 | main = IO.withFile "./testfile" IO.ReadMode $ \handle -> runEffect $ |
| 21 | for (parsed testParser (fromHandle handle)) | 21 | do leftover <- for (parsed testParser (fromHandle handle)) |
| 22 | (lift . print) | 22 | (lift . print) |
| 23 | 23 | return () -- ignore unparsed material | |
| 24 | 24 | ||
| 25 | -- >>> :! cat testfile | 25 | -- >>> :! cat testfile |
| 26 | -- 1 1 | 26 | -- 1 1 |
| 27 | -- 2 2 | 27 | -- 2 2 |