Make parsing parameters case insensitive.

Thanks to Nicolas Pouillard for reporting this, and sending us a patch.

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