requestP :: Parser Request
-requestP = do many crlf
+requestP = do _ <- many crlf
(method, uri, version) <- requestLineP
headers <- headersP
return Request {
requestLineP :: Parser (Method, URI, HttpVersion)
requestLineP = do method <- methodP
- sp
+ _ <- sp
uri <- uriP
- sp
+ _ <- sp
ver <- httpVersionP
- crlf
+ _ <- crlf
return (method, uri, ver)