Replace ezgzip with bytesrw for Gzip (de)compression.

zoj613 · Oct 3, 2024 · 5f9b91e · 5f9b91e
1 parent 703afaa
commit 5f9b91e
Show file tree

Hide file tree

Showing 4 changed files with 6 additions and 5 deletions.
diff --git a/dune-project b/dune-project
@@ -29,7 +29,6 @@
    (ocaml
      (and (>= 4.14.0)))
    (yojson (>= 1.6.0))
-   (ezgzip (>= 0.2.0))
    (stdint (>= 0.7.2))
    (checkseum (>= 0.4.0))
    (odoc :with-doc)

diff --git a/zarr.opam b/zarr.opam
@@ -17,7 +17,6 @@ depends: [
   "dune" {>= "3.15"}
   "ocaml" {>= "4.14.0"}
   "yojson" {>= "1.6.0"}
-  "ezgzip" {>= "0.2.0"}
   "stdint" {>= "0.7.2"}
   "checkseum" {>= "0.4.0"}
   "odoc" {with-doc}

diff --git a/zarr/src/codecs/bytes_to_bytes.ml b/zarr/src/codecs/bytes_to_bytes.ml
@@ -14,10 +14,13 @@ module GzipCodec = struct
       Error (Printf.sprintf "Invalid Gzip level %d" i)
 
   let encode l x =
-    Ezgzip.compress ~level:(to_int l) x
+    Bytes.Reader.to_string @@
+    Bytesrw_zlib.Gzip.compress_reads ~level:(to_int l) () @@
+    Bytes.Reader.of_string x
 
   let decode x =
-    Result.get_ok @@ Ezgzip.decompress x
+    Bytes.Reader.to_string @@
+    Bytesrw_zlib.Gzip.decompress_reads () @@ Bytes.Reader.of_string x
 
   let to_yojson l =
     `Assoc

diff --git a/zarr/src/dune b/zarr/src/dune
@@ -3,8 +3,8 @@
  (public_name zarr)
  (libraries
    yojson
-   ezgzip
    bytesrw.zstd
+   bytesrw.zlib
    stdint
    checkseum)
  (ocamlopt_flags