module Data.Conduit.Codec.Base16 where
import qualified Codec.Binary.Base16 as B16
import qualified Data.Conduit.Codec.Util as U
import Control.Monad.Catch (MonadThrow)
import Data.ByteString (ByteString, empty)
import Data.Conduit (ConduitT)
encode :: (Monad m) => ConduitT ByteString ByteString m ()
encode :: ConduitT ByteString ByteString m ()
encode = EncFunc -> ConduitT ByteString ByteString m ()
forall (m :: * -> *).
Monad m =>
EncFunc -> ConduitT ByteString ByteString m ()
U.encodeII EncFunc
B16.encode
decode :: (Monad m, MonadThrow m) => ConduitT ByteString ByteString m ()
decode :: ConduitT ByteString ByteString m ()
decode = DecFunc -> ByteString -> ConduitT ByteString ByteString m ()
forall (m :: * -> *).
(Monad m, MonadThrow m) =>
DecFunc -> ByteString -> ConduitT ByteString ByteString m ()
U.decodeII DecFunc
B16.b16Dec ByteString
empty