Merge pull request #2 from hcarty/fix-gzip

Fix zlib formatting in gzip (de)compression

Author: hcarty

CHANGES.md

@@ -1,3 +1,6 @@
+# v0.2.1
+* Fix zlib formatting in gzip (de)compression
+
 # v0.2.0
 * Use `Zlib` from camlzip rather than cryptokit + crc
 * Allow capping the size of decompressed content

src/ezgzip.ml

@@ -46,7 +46,7 @@ module Z = struct
 
   let error e = R.error (`Zlib e)
 
-  let compress_zlib ?level ?header input output =
+  let compress_zlib ?level ?(header= false) input output =
     let pos = ref 0 in
     let length = String.length input in
     let feed buf =
@@ -55,10 +55,10 @@ module Z = struct
       pos := !pos + bytes ;
       bytes
     in
-    Zlib.compress ?level ?header feed output
+    Zlib.compress ?level ~header feed output
 
 
-  let uncompress_zlib ?header input output =
+  let uncompress_zlib ?(header= false) input output =
     let pos = ref 0 in
     let length = String.length input in
     let feed buf =
@@ -67,7 +67,7 @@ module Z = struct
       pos := !pos + bytes ;
       bytes
     in
-    Zlib.uncompress ?header feed output
+    Zlib.uncompress ~header feed output
 
 
   let compress ?level ?header input =