1
5
module Data.Conduit.Codec.Base85 where
3
7
import qualified Codec.Binary.Base85 as B85
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 B85.b85_encode_part B85.b85_encode_final empty