module Codec.Binary.Base91.ByteString (decode, encode) where
import Codec.Binary.Base91.Control (Applicative' (..), Foldable' (..))
import Data.ByteString (ByteString)
import Data.Word (Word8)
import qualified Codec.Binary.Base91 as Base91
import qualified Data.ByteString as BS
encode ::ByteString -> [Char]
encode = Base91.encode
decode :: [Char] -> ByteString
decode = Base91.decode
instance Applicative' ByteString where
type Item ByteString = Word8
pure' = BS.singleton
instance Foldable' ByteString where
type Element ByteString = Word8
fold' = BS.foldl'