X-Git-Url: https://git.xandkar.net/?p=dups.git;a=blobdiff_plain;f=dups.ml;fp=dups.ml;h=2521b97261fbc2fa441283aeefc1fb5a78e27c54;hp=a35894d08a058d604bb4a00fc647179c9efdf14e;hb=b0c3b3f085147e4228cf17a965723feb041b275f;hpb=6b873e5a4a280daaa1c9817ec037a930b3410833

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