-}
headersP ∷ Parser Headers
{-# INLINEABLE headersP #-}
-headersP = do xs ← P.many header
+headersP = do xs ← P.many $ try header
crlf
return $ toHeaders xs
where
header ∷ Parser (CIAscii, Ascii)
- header = try $
- do name ← A.toCIAscii <$> token
+ header = do name ← A.toCIAscii <$> token
_ ← char ':'
skipMany lws
- values ← sepBy content lws
- skipMany lws
+ values ← sepBy content (try lws)
+ skipMany (try lws)
crlf
return (name, joinValues values)