diff options
author | Iavor S. Diatchki <diatchki@galois.com> | 2012-06-01 09:30:52 -0700 |
---|---|---|
committer | Iavor S. Diatchki <diatchki@galois.com> | 2012-06-01 09:30:52 -0700 |
commit | c97baa979878145c599c057d8bba01618c223178 (patch) | |
tree | 1317ef36ae3c490195d68b72422fd41b6540eb35 /Codec/MIME/Utils.hs | |
parent | 496029fc2a0922685f372f456b44780b1df61c27 (diff) |
Integrate improvements from Scrive (thanks to Magnus Carlsson!)
* Codec.MIME.Parse.parseMIMEBody: stick the header argument into the
returned mime_val_headers field.
* Codec.MIME.Parse.parseMIMEMessage: be more tolerant about
non-standard newlines.
* Codec.MIME.Parse.untilMatch: fix a bug demonstrated by input "ab" "aab".
Diffstat (limited to 'Codec/MIME/Utils.hs')
-rw-r--r-- | Codec/MIME/Utils.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/Codec/MIME/Utils.hs b/Codec/MIME/Utils.hs index 624d433..8606342 100644 --- a/Codec/MIME/Utils.hs +++ b/Codec/MIME/Utils.hs @@ -26,7 +26,7 @@ findMultipartNamed nm mv = case mime_val_content mv of Multi ms -> msum (map (findMultipartNamed nm) ms) Single {} -> do cd <- mime_val_disp mv - find (withDispName nm) (dispParams cd) + _ <- find (withDispName nm) (dispParams cd) return mv where withDispName a (Name b) = a == b withDispName _ _ = False |