From b0c3b3f085147e4228cf17a965723feb041b275f Mon Sep 17 00:00:00 2001
From: Siraaj Khandkar <siraaj@khandkar.net>
Date: Fri, 30 Nov 2018 14:23:44 -0500
Subject: [PATCH] Fix accidental reporting of singletons

---
 dups.ml | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

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
-- 
2.20.1