Source

attoparsec / examples / TestRFC2616.hs

Diff from to

File examples/TestRFC2616.hs

 import qualified Data.ByteString.Char8 as B
 import Data.Attoparsec
 
-refill h = B.hGet h 4096
+refill h = B.hGet h (4*1024)
 
 listy file h = do
   r <- parseWith (refill h) (many request) =<< refill h