dandri/simplexmq
1
0
Fork 0
mirror of https://github.com/simplex-chat/simplexmq.git synced 2026-07-20 20:01:47 +00:00
Code Issues Packages Projects Releases Wiki Activity

library: limit decompressed size (#1815)

Browse Source
This commit is contained in:
Evgeny
2026-06-21 12:11:48 +01:00
committed by GitHub
parent 45b21ec1db
commit 958de3bfca
1 changed files with 7 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/Simplex/Messaging/Compression.hs
+7 -3
View File
@@ -8,6 +8,7 @@ module Simplex.Messaging.Compression
compress1,
decompress1,
limitDecompress1,
limitDecompress',
decompressedSize,
) where
@@ -57,9 +58,12 @@ decompress1 = \case
limitDecompress1 :: Int -> Compressed -> Either String ByteString
limitDecompress1 limit = \case
Passthrough bs -> Right bs
Compressed (Large bs) -> case Z1.decompressedSize bs of
Just sz | sz <= limit -> decompress_ bs
_ -> Left $ "compressed size not specified or exceeds " <> show limit
Compressed (Large bs) -> limitDecompress' limit bs
limitDecompress' :: Int -> ByteString -> Either String ByteString
limitDecompress' limit bs = case Z1.decompressedSize bs of
Just sz | sz <= limit -> decompress_ bs
_ -> Left $ "compressed size not specified or exceeds " <> show limit
decompress_ :: ByteString -> Either String ByteString
decompress_ bs = case Z1.decompress bs of