From: Siraaj Khandkar <siraaj@khandkar.net>
Date: Fri, 30 Nov 2018 19:23:44 +0000 (-0500)
Subject: Fix accidental reporting of singletons
X-Git-Url: https://git.xandkar.net/?a=commitdiff_plain;h=b0c3b3f085147e4228cf17a965723feb041b275f;p=dups.git

Fix accidental reporting of singletons
---

diff --git a/dups.ml b/dups.ml
index a35894d..2521b97 100644
--- 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;
-    if n > 1 then
+    if n > 1 then begin
       M.redundant_data metrics ~size:(n * (List.hd files).File.size);
       output d n files
+    end
   );
 
   let pt1_all = time_proc () in