diff options
author | Sigbjorn Finne <sof@galois.com> | 2009-01-31 08:27:34 -0800 |
---|---|---|
committer | Sigbjorn Finne <sof@galois.com> | 2009-01-31 08:27:34 -0800 |
commit | 7c0a90bd7d012296eefbe2bfb07327752654b37c (patch) | |
tree | 1c74e02641313855fe21cea23b2f49bb9d92cae7 /Codec/MIME/Decode.hs | |
parent | 521c6ce5b58900572732806fb9227a1f50b6447f (diff) |
haddock additions
Diffstat (limited to 'Codec/MIME/Decode.hs')
-rw-r--r-- | Codec/MIME/Decode.hs | 11 |
1 files changed, 9 insertions, 2 deletions
diff --git a/Codec/MIME/Decode.hs b/Codec/MIME/Decode.hs index f82daf2..ea1cf00 100644 --- a/Codec/MIME/Decode.hs +++ b/Codec/MIME/Decode.hs @@ -1,13 +1,15 @@ -------------------------------------------------------------------- -- | -- Module : Codec.MIME.Decode --- Copyright : (c) 2006-2008, Galois, Inc. +-- Copyright : (c) 2006-2009, Galois, Inc. -- License : BSD3 -- -- Maintainer: Sigbjorn Finne <sof@galois.com> -- Stability : provisional --- Portability: +-- Portability: portable -- +-- +-- -------------------------------------------------------------------- module Codec.MIME.Decode where @@ -17,6 +19,11 @@ import Data.Char import Codec.MIME.QuotedPrintable as QP import Codec.MIME.Base64 as Base64 +-- | @decodeBody enc str@ decodes @str@ according to the scheme +-- specified by @enc@. Currently, @base64@ and @quoted-printable@ are +-- the only two encodings supported. If you supply anything else +-- for @enc@, @decodeBody@ returns @str@. +-- decodeBody :: String -> String -> String decodeBody enc body = case map toLower enc of |