@@ -97,8 +97,8 @@ caseParseQueryStringQM = do
9797
9898caseParseHttpAccept :: Assertion
9999caseParseHttpAccept = do
100− let input = "text/plain; q=0.5, text/html, text/x-dvi; q=0.8, text/x-c"
101− expected = ["text/html", "text/x-c", "text/x-dvi", "text/plain"]
100+ let input = "text/plain; q=0.5, text/html;charset=utf-8, text/*;q=0.8;ext=blah, text/x-dvi; q=0.8, text/x-c"
101+ expected = ["text/html;charset=utf-8", "text/x-c", "text/x-dvi", "text/*", "text/plain"]
102102 expected @=? parseHttpAccept input
103103
104104parseRequestBody' :: BackEnd L.ByteString