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