1-- | 2-- Module: Data.Conduit.Codec.QuotedPrintable 3-- Copyright: (c) 2014 Magnus Therning 4-- License: BSD3 5module Data.Conduit.Codec.QuotedPrintable where 6 7import qualified Codec.Binary.QuotedPrintable as Qp 8import qualified Data.Conduit.Codec.Util as U 9 10import Control.Monad.Catch (MonadThrow) 11import Data.ByteString (ByteString, empty) 12import Data.Conduit (ConduitT) 13 14encode :: (Monad m) => ConduitT ByteString ByteString m () 15encode = U.encodeII Qp.encode 16 17decode :: (Monad m, MonadThrow m) => ConduitT ByteString ByteString m () 18decode = U.decodeII Qp.qpDecode empty 19