Merge pull request #4691 from lindig/private/christianlin/gzip

Don't use --force in gzip decompress
xapi-project · Apr 26, 2022 · af4fc08 · af4fc08
2 parents 2386d7a + ab7dd15
commit af4fc08
Showing 1 changed file with 5 additions and 1 deletion.
diff --git a/ocaml/libs/xapi-compression/xapi_compression.ml b/ocaml/libs/xapi-compression/xapi_compression.ml
@@ -44,7 +44,11 @@ module Make (Algorithm : ALGORITHM) = struct
  let open Safe_resources in
  Unixfd.with_pipe ~loc:__LOC__ () @@ fun zcat_out zcat_in ->
  let args =
- if mode = Compress then [] else ["--decompress"] @ ["--stdout"; "--force"]
+ match mode with
+ | Compress ->
+ []
+ | Decompress ->
+ ["--decompress"; "--stdout"]
  in
  let stdin, stdout, close_now, close_later =
  match input with