-- |
-- Module: Data.Conduit.Codec.Xx
-- Copyright: (c) 2014 Magnus Therning
-- License: BSD3
module Data.Conduit.Codec.Xx where

import qualified Codec.Binary.Xx as Xx
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 = EncFuncPart
-> EncFuncFinal
-> ByteString
-> ConduitT ByteString ByteString m ()
forall (m :: * -> *).
Monad m =>
EncFuncPart
-> EncFuncFinal
-> ByteString
-> ConduitT ByteString ByteString m ()
U.encodeI EncFuncPart
Xx.xxEncodePart EncFuncFinal
Xx.xxEncodeFinal ByteString
empty

decode :: (Monad m, MonadThrow m) => ConduitT ByteString ByteString m ()
decode :: ConduitT ByteString ByteString m ()
decode = DecFunc
-> EncFuncFinal
-> ByteString
-> ConduitT ByteString ByteString m ()
forall (m :: * -> *).
(Monad m, MonadThrow m) =>
DecFunc
-> EncFuncFinal
-> ByteString
-> ConduitT ByteString ByteString m ()
U.decodeI DecFunc
Xx.xxDecodePart EncFuncFinal
Xx.xxDecodeFinal ByteString
empty