From 7c0a90bd7d012296eefbe2bfb07327752654b37c Mon Sep 17 00:00:00 2001 From: Sigbjorn Finne Date: Sat, 31 Jan 2009 08:27:34 -0800 Subject: haddock additions --- Codec/MIME/Decode.hs | 11 +++++++++-- 1 file changed, 9 insertions(+), 2 deletions(-) (limited to 'Codec/MIME/Decode.hs') 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 -- 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 -- cgit v1.2.3