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
   return $ Test a b
   
 main = IO.withFile "./testfile" IO.ReadMode $ \handle -> runEffect $
-    for  (parsed testParser (fromHandle handle)) 
-         (lift . print)
-
-
+   do leftover <- for (parsed testParser (fromHandle handle)) 
+                   (lift . print)
+      return () -- ignore unparsed material
+      
 -- >>> :! cat testfile
 -- 1 1
 -- 2 2