1 files changed, 31 insertions, 3 deletions

diff --git a/examples/attoparser.hs b/examples/attoparser.hs
index ddf770d..6328991 100644
--- a/examples/attoparser.hs
+++ b/examples/attoparser.hs
@@ -2,7 +2,8 @@ import Pipes
 import Pipes.Text.IO (fromHandle)
 import Pipes.Attoparsec (parsed)
 import qualified System.IO as IO
-
+import Data.Attoparsec.Text
+import Control.Applicative
 data Test = Test {
   a :: Int,
   b :: Int
@@ -17,5 +18,32 @@ testParser = do
   return $ Test a b
   
 main = IO.withFile "./testfile" IO.ReadMode $ \handle -> runEffect $
-    for test_parser (lift . print)
-  where (parsed (testParser <* endOfLine) (fromHandle handle))
\ No newline at end of file
+    for  (parsed testParser (fromHandle handle)) 
+         (lift . print)
+
+
+-- >>> :! cat testfile
+-- 1 1
+-- 2 2
+-- 3 3
+-- 4 4
+-- 5 5
+-- 6 6
+-- 7 7
+-- 8 8
+-- 9 9
+-- 10 10
+
+-- >>> main
+-- Test {a = 1, b = 1}
+-- Test {a = 2, b = 2}
+-- Test {a = 3, b = 3}
+-- Test {a = 4, b = 4}
+-- Test {a = 5, b = 5}
+-- Test {a = 6, b = 6}
+-- Test {a = 7, b = 7}
+-- Test {a = 8, b = 8}
+-- Test {a = 9, b = 9}
+-- Test {a = 10, b = 10}
+
+