diff --git a/src/Snap/Internal/Parsing.hs b/src/Snap/Internal/Parsing.hs index 6a03adae..be67e34f 100644 --- a/src/Snap/Internal/Parsing.hs +++ b/src/Snap/Internal/Parsing.hs @@ -161,7 +161,7 @@ pQuotedString = q *> quotedText <* q , pure soFar' ] q = char '\"' - qdtext = matchAll [ isRFCText, (/= '\"'), (/= '\\') ] + qdtext = matchAll [ (/= '\"'), (/= '\\') ] ------------------------------------------------------------------------------