@@ -38,6 +38,8 @@ parseHeaderLines (firstLine:otherLines) = do
3838-- ("GET","/","",HTTP/1.1)
3939-- >>> parseRequestLine "POST /cgi/search.cgi?key=foo HTTP/1.0"
4040-- ("POST","/cgi/search.cgi","?key=foo",HTTP/1.0)
41+-- >>> parseRequestLine "Broken"
42+-- *** Exception: BadFirstLine "Broken"
4143parseRequestLine :: ByteString
4244 -> IO (ByteString, ByteString, ByteString, H.HttpVersion)
4345parseRequestLine s =