module Codec.Encryption.OpenPGP.Compression (
decompressPkt
, compressPkts
) where
import qualified Codec.Compression.BZip as BZip
import qualified Codec.Compression.Zlib as Zlib
import qualified Codec.Compression.Zlib.Raw as ZlibRaw
import Codec.Encryption.OpenPGP.Serialize ()
import Codec.Encryption.OpenPGP.Types
import qualified Data.ByteString as B
import qualified Data.ByteString.Lazy as BL
import Data.Serialize (get, put)
import Data.Serialize.Get (runGet)
import Data.Serialize.Put (runPut)
decompressPkt :: Pkt -> [Pkt]
decompressPkt (CompressedDataPkt algo bs) =
case (runGet get . B.concat . BL.toChunks) (dfunc algo (BL.fromChunks [bs])) of
Left _ -> []
Right packs -> unBlock packs
where
dfunc ZIP = ZlibRaw.decompress
dfunc ZLIB = Zlib.decompress
dfunc BZip2 = BZip.decompress
dfunc _ = error "Compression algorithm not supported"
decompressPkt p = [p]
compressPkts :: CompressionAlgorithm -> [Pkt] -> Pkt
compressPkts ca packs = do
let bs = runPut $ put (Block packs)
cbs = B.concat . BL.toChunks $ cfunc ca (BL.fromChunks [bs])
CompressedDataPkt ca cbs
where
cfunc ZIP = ZlibRaw.compress
cfunc ZLIB = Zlib.compress
cfunc BZip2 = BZip.compress
cfunc _ = error "Compression algorithm not supported"