diff --git a/lib/bap_byteweight/bap_byteweight_signatures.ml b/lib/bap_byteweight/bap_byteweight_signatures.ml index cfe67c5e5..6d2ff0412 100644 --- 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