diff options
| author | Iavor S. Diatchki <diatchki@galois.com> | 2008-09-05 14:49:21 -0700 |
|---|---|---|
| committer | Iavor S. Diatchki <diatchki@galois.com> | 2008-09-05 14:49:21 -0700 |
| commit | e3666facbb2d60576d8a4f8c6b068d12565f6643 (patch) | |
| tree | f90cd9eb7438477ec1c2a1ff0bab1d535fb4a7fd /Codec/MIME | |
| parent | c2fa80a0ec94541f9671f16676aeeca2cb79f988 (diff) | |
Make parsing parameters case insensitive.
Thanks to Nicolas Pouillard for reporting this, and sending us a patch.
Diffstat (limited to 'Codec/MIME')
| -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 |