1
5
module Data.Conduit.Codec.Xx where
3
7
import qualified Codec.Binary.Xx as Xx
4
8
import qualified Data.Conduit.Codec.Util as U
7
11
import Data.ByteString (ByteString, empty)
9
14
encode :: (Monad m) => Conduit ByteString m ByteString
10
15
encode = U.encodeI Xx.xx_encode_part Xx.xx_encode_final empty