@@ -44,7 +44,10 @@ parseHeaderLines (firstLine:otherLines) = do
4444-- >>> parseRequestLine "GET /NotHTTP UNKNOWN/1.1"
4545-- *** Exception: NonHttp
4646parseRequestLine :: ByteString
47− -> IO (ByteString, ByteString, ByteString, H.HttpVersion)
47+ -> IO (H.Method
48+ ,ByteString -- Path
49+ ,ByteString -- Query
50+ ,H.HttpVersion)
4851parseRequestLine requestLine = do
4952 let (method,rest) = S.breakByte 32 requestLine -- ' '
5053 (pathQuery,httpVer') = S.breakByte 32 (S.drop 1 rest) -- ' '