1-- | 2-- Module: Data.Conduit.Codec.Xx 3-- Copyright: (c) 2014 Magnus Therning 4-- License: BSD3 5module Data.Conduit.Codec.Xx where 6 7import qualified Codec.Binary.Xx as Xx 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.encodeI Xx.xxEncodePart Xx.xxEncodeFinal empty 16 17decode :: (Monad m, MonadThrow m) => ConduitT ByteString ByteString m () 18decode = U.decodeI Xx.xxDecodePart Xx.xxDecodeFinal empty 19