module Data.Conduit.Codec.Uu where
import qualified Codec.Binary.Uu as Uu
import qualified Data.Conduit.Codec.Util as U
import Control.Monad.Catch (MonadThrow)
import Data.ByteString (ByteString, empty)
import Data.Conduit (Conduit)
encode :: (Monad m) => Conduit ByteString m ByteString
encode :: Conduit ByteString m ByteString
encode = EncFuncPart
-> EncFuncFinal -> ByteString -> Conduit ByteString m ByteString
forall (m :: * -> *).
Monad m =>
EncFuncPart
-> EncFuncFinal -> ByteString -> Conduit ByteString m ByteString
U.encodeI EncFuncPart
Uu.uuEncodePart EncFuncFinal
Uu.uuEncodeFinal ByteString
empty
decode :: (Monad m, MonadThrow m) => Conduit ByteString m ByteString
decode :: Conduit ByteString m ByteString
decode = DecFunc
-> EncFuncFinal -> ByteString -> Conduit ByteString m ByteString
forall (m :: * -> *).
(Monad m, MonadThrow m) =>
DecFunc
-> EncFuncFinal -> ByteString -> Conduit ByteString m ByteString
U.decodeI DecFunc
Uu.uuDecodePart EncFuncFinal
Uu.uuDecodeFinal ByteString
empty