Fix accidental reporting of singletons
authorSiraaj Khandkar <siraaj@khandkar.net>
Fri, 30 Nov 2018 19:23:44 +0000 (14:23 -0500)
committerSiraaj Khandkar <siraaj@khandkar.net>
Fri, 30 Nov 2018 19:23:44 +0000 (14:23 -0500)
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.01781 seconds and 4 git commands to generate.