@@ -32,6 +32,12 @@ parseHeaderLines (firstLine:otherLines) = do
3232
3333----------------------------------------------------------------
3434
35+-- |
36+--
37+-- >>> parseRequestLine "GET / HTTP/1.1"
38+-- ("GET","/","",HTTP/1.1)
39+-- >>> parseRequestLine "POST /cgi/search.cgi?key=foo HTTP/1.0"
40+-- ("POST","/cgi/search.cgi","?key=foo",HTTP/1.0)
3541parseRequestLine :: ByteString
3642 -> IO (ByteString, ByteString, ByteString, H.HttpVersion)
3743parseRequestLine s =