listOf ∷ Parser a → Parser [a]
{-# INLINEABLE listOf #-}
listOf p
- = try $
- do skipMany lws
+ = do skipMany lws
sepBy p $ do skipMany lws
_ <- char ','
skipMany lws
-- |HTTP LWS: crlf? (sp | ht)+
lws ∷ Parser ()
{-# INLINEABLE lws #-}
-lws = try $
- do option () crlf
- _ ← satisfy isSPHT
- skipWhile isSPHT
+lws = do option () crlf
+ _ ← takeWhile1 isSPHT
+ return ()
-- |Returns 'True' for SP and HT.
isSPHT ∷ Char → Bool