summaryrefslogtreecommitdiffstats
path: root/Codec
diff options
context:
space:
mode:
Diffstat (limited to 'Codec')
-rw-r--r--Codec/MIME/Parse.hs3
1 files changed, 2 insertions, 1 deletions
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