Fix use of camlzip in byteweight

BinaryAnalysisPlatform · Jul 29, 2024 · 97c3c03 · 97c3c03
1 parent 95e8173
commit 97c3c03
Showing 1 changed file with 2 additions and 3 deletions.
diff --git a/lib/bap_byteweight/bap_byteweight_signatures.ml b/lib/bap_byteweight/bap_byteweight_signatures.ml
@@ -109,9 +109,8 @@ let update_or_fail ?compiler target data payload path =
   let path = make_entry ?compiler target data in
   let data = Bytes.unsafe_to_string (data.save payload) in
   Zip.add_entry data zip path;
-  List.iter entries ~f:(fun ({Zip.filename; extra; comment; mtime},data) ->
-      Zip.add_entry data zip filename
-        ~extra ~comment ~mtime)
+  List.iter entries ~f:(fun ({Zip.filename; comment; mtime},data) ->
+      Zip.add_entry data zip filename ~comment ~mtime)
 
 let copy input output =
   let len = 0x1000 in