home
/
code
/
dups.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Skip 0-sized files in the shell version
[dups.git]
/
dups.ml
diff --git
a/dups.ml
b/dups.ml
index
a35894d
..
2521b97
100644
(file)
--- a/
dups.ml
+++ b/
dups.ml
@@
-619,9
+619,10
@@
let main {input; output; ignore; sample = sample_len; njobs; delim_null} =
eprintf "[debug] reporting\n%!";
Stream.iter groups ~f:(fun (d, n, files) ->
M.digest metrics;
eprintf "[debug] reporting\n%!";
Stream.iter groups ~f:(fun (d, n, files) ->
M.digest metrics;
- if n > 1 then
+ if n > 1 then
begin
M.redundant_data metrics ~size:(n * (List.hd files).File.size);
output d n files
M.redundant_data metrics ~size:(n * (List.hd files).File.size);
output d n files
+ end
);
let pt1_all = time_proc () in
);
let pt1_all = time_proc () in
This page took
0.019903 seconds
and
4
git commands to generate.