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