From c97baa979878145c599c057d8bba01618c223178 Mon Sep 17 00:00:00 2001
From: "Iavor S. Diatchki" <diatchki@galois.com>
Date: Fri, 1 Jun 2012 09:30:52 -0700
Subject: 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".
---
 Codec/MIME/Decode.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'Codec/MIME/Decode.hs')

diff --git a/Codec/MIME/Decode.hs b/Codec/MIME/Decode.hs
index 364e0fb..278d6f6 100644
--- a/Codec/MIME/Decode.hs
+++ b/Codec/MIME/Decode.hs
@@ -27,7 +27,7 @@ import Codec.MIME.Base64 as Base64
 decodeBody :: String -> String -> String
 decodeBody enc body =
  case map toLower enc of
-   "base64"           -> map (chr.fromIntegral) $ Base64.decode body
+   "base64"           -> Base64.decodeToString body
    "quoted-printable" -> QP.decode body
    _ -> body
 
-- 
cgit v1.2.3