@@ -39,10 +39,16 @@ responseLine = (,,) <$>
3939int :: B.Parser Int
4040int = B.decimal
4141
42−request = (,) <$> (requestLine <* B.endOfLine) <*> many header
42+request = (,) <$> (requestLine <* B.endOfLine) <*> manyheader
4343
4444response = (,) <$> responseLine <*> many header
4545
46+manyheader = do
47+ c <- B.peekChar'
48+ if c == '\r' || c == '\n'
49+ then return []
50+ else (:) <$> header <*> manyheader
51+
4652headers :: IO Benchmark
4753headers = do
4854 req <- B.readFile =<< pathTo "http-request.txt"