diff options
Diffstat (limited to 'Codec/MIME/Parse.hs')
| -rw-r--r-- | Codec/MIME/Parse.hs | 3 |
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 |