- let paths_by_size = Hashtbl.create 1_000_000 in
- let paths_by_sample = Hashtbl.create 1_000_000 in
- let paths_by_digest = Hashtbl.create 1_000_000 in
- let process tbl path ~f =
- let key = f path in
- let count, paths =
- match Hashtbl.find_opt tbl key with
+ let files_by_size = Hashtbl.create 1_000_000 in
+ let files_by_sample = Hashtbl.create 1_000_000 in
+ let files_by_digest = Hashtbl.create 1_000_000 in
+ let process tbl ~group ~file =
+ let count, files =
+ match Hashtbl.find_opt tbl group with