lzma-static 5.2.5.4 → 5.2.5.5
raw patch · 3 files changed
+20/−14 lines, 3 filesdep ~basedep ~bytestringPVP ok
version bump matches the API change (PVP)
Dependency ranges changed: base, bytestring
API changes (from Hackage documentation)
Files
- Changelog.md +4/−0
- lzma-static.cabal +4/−4
- src/Codec/Compression/Lzma.hs +12/−10
Changelog.md view
@@ -1,3 +1,7 @@+## 5.2.5.5++* Support GHC 9.4+ ## 5.2.5.4 * Add Freebsd Aarch64 support
lzma-static.cabal view
@@ -1,6 +1,6 @@ cabal-version: 2.2 name: lzma-static-version: 5.2.5.4+version: 5.2.5.5 synopsis: LZMA/XZ compression and decompression (static) homepage: https://github.com/hasufell/lzma-static@@ -64,8 +64,8 @@ exposed-modules: Codec.Compression.Lzma other-modules: LibLzma - build-depends: base >=4.5 && <4.15- , bytestring >=0.9.2 && <0.11+ build-depends: base >=4.5 && <5+ , bytestring >=0.9.2 && <0.12 if os(windows) include-dirs: autoconf-win32@@ -216,7 +216,7 @@ , bytestring -- additional dependencies that require version bounds build-depends: HUnit >= 1.2 && <1.7- , QuickCheck >= 2.8 && <2.14+ , QuickCheck >= 2.8 && <2.15 , tasty >= 0.10 && <1.4 , tasty-hunit >= 0.9 && <0.11 , tasty-quickcheck >= 0.8.3.2 && <0.11
src/Codec/Compression/Lzma.hs view
@@ -88,11 +88,11 @@ where loop BSL.Empty (DecompressStreamEnd rest) | BS.null rest = return BSL.Empty- | otherwise = fail "Codec.Compression.Lzma.decompressWith: trailing data"+ | otherwise = error "Codec.Compression.Lzma.decompressWith: trailing data" loop (BSL.Chunk _ _) (DecompressStreamEnd _) =- fail "Codec.Compression.Lzma.decompressWith: trailing data"+ error "Codec.Compression.Lzma.decompressWith: trailing data" loop _ (DecompressStreamError e) =- fail ("Codec.Compression.Lzma.decompressWith: decoding error " ++ show e)+ error ("Codec.Compression.Lzma.decompressWith: decoding error " ++ show e) loop BSL.Empty (DecompressInputRequired supply) = loop BSL.Empty =<< supply BS.empty loop (BSL.Chunk c bs') (DecompressInputRequired supply) =@@ -123,7 +123,7 @@ loop BSL.Empty CompressStreamEnd = return BSL.Empty loop (BSL.Chunk _ _) CompressStreamEnd =- fail "Codec.Compression.Lzma.compressWith: the impossible happened"+ error "Codec.Compression.Lzma.compressWith: the impossible happened" loop BSL.Empty (CompressInputRequired _ supply) = loop BSL.Empty =<< supply BS.empty loop (BSL.Chunk c bs') (CompressInputRequired _ supply) =@@ -222,7 +222,7 @@ LzmaRetOK | BS.null obuf -> do unless (used > 0) $- fail "compressST: input chunk not consumed"+ error "compressST: input chunk not consumed" withChunk (return inputRequired) goInput chunk' | otherwise -> return (CompressOutputAvailable obuf (withChunk (return inputRequired) goInput chunk'))@@ -235,15 +235,16 @@ -- drain encoder till LzmaRetStreamEnd is reported goSync :: LzmaAction -> ST s (CompressStream (ST s)) -> ST s (CompressStream (ST s))- goSync LzmaRun _ = fail "compressST: goSync called with invalid argument"+ goSync LzmaRun _ = error "compressST: goSync called with invalid argument" goSync action next = goSync' where goSync' = do- (rc, 0, obuf) <- strictToLazyST (noDuplicateST >>+ (rc, n, obuf) <- strictToLazyST (noDuplicateST >> runLzmaStream ls BS.empty action bUFSIZ)+ when (n /= 0) $ error "compressST: n was not zero" case rc of LzmaRetOK- | BS.null obuf -> fail ("compressIO: empty output chunk during " ++ show action)+ | BS.null obuf -> error ("compressIO: empty output chunk during " ++ show action) | otherwise -> return (CompressOutputAvailable obuf goSync') LzmaRetStreamEnd | BS.null obuf -> next@@ -348,7 +349,7 @@ LzmaRetOK | BS.null obuf -> do unless (used > 0) $- fail "decompressST: input chunk not consumed"+ error "decompressST: input chunk not consumed" withChunk (return inputRequired) goInput chunk' | otherwise -> return (DecompressOutputAvailable obuf (withChunk goDrain goInput chunk'))@@ -369,8 +370,9 @@ goSync action next = goSync' where goSync' = do- (rc, 0, obuf) <- strictToLazyST (noDuplicateST >>+ (rc, n, obuf) <- strictToLazyST (noDuplicateST >> runLzmaStream ls BS.empty action bUFSIZ)+ when (n /= 0) $ error "decompressST: n was not zero" case rc of LzmaRetOK | BS.null obuf -> next