From e3666facbb2d60576d8a4f8c6b068d12565f6643 Mon Sep 17 00:00:00 2001 From: "Iavor S. Diatchki" Date: Fri, 5 Sep 2008 14:49:21 -0700 Subject: Make parsing parameters case insensitive. Thanks to Nicolas Pouillard for reporting this, and sending us a patch. --- Codec/MIME/Parse.hs | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) (limited to 'Codec') diff --git a/Codec/MIME/Parse.hs b/Codec/MIME/Parse.hs index 22ba88c..f82824d 100644 --- a/Codec/MIME/Parse.hs +++ b/Codec/MIME/Parse.hs @@ -157,7 +157,8 @@ parseParams :: String -> [(String,String)] parseParams "" = [] parseParams (';':xs) = case break (=='=') (dropFoldingWSP xs) of - (nm,_:vs) -> + (nm1,_:vs) -> + let nm = map toLower nm1 in case vs of '"':vs1 -> case break (=='"') vs1 of -- cgit v1.2.3