From e3666facbb2d60576d8a4f8c6b068d12565f6643 Mon Sep 17 00:00:00 2001
From: "Iavor S. Diatchki" <diatchki@galois.com>
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 ++-
 mime.cabal          | 2 +-
 2 files changed, 3 insertions(+), 2 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
diff --git a/mime.cabal b/mime.cabal
index b7ca139..ad28581 100644
--- a/mime.cabal
+++ b/mime.cabal
@@ -1,5 +1,5 @@
 name:               mime
-version:            0.2
+version:            0.2.1
 synopsis:           Working with MIME types.
 description:        Working with MIME types.
 category:           Codec
-- 
cgit v1.2.3