diff options
Diffstat (limited to 'Codec/MIME/Decode.hs')
| -rw-r--r-- | Codec/MIME/Decode.hs | 2 |
1 files changed, 1 insertions, 1 deletions
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 |