X-Git-Url: https://git.xandkar.net/?p=dups.git;a=blobdiff_plain;f=dups.ml;h=ba1fb0c21a6e8afb33b6e4587dcc5082510f3490;hp=941d8fa34d1e43a0e0f8b0c656faccc4a6607194;hb=e4a6d3c94cc9f640d6f7d1123a86a3906b458492;hpb=8673c3a56eacade031b713b19cf04068387cb6db

diff --git a/dups.ml b/dups.ml
index 941d8fa..ba1fb0c 100644
--- a/dups.ml
+++ b/dups.ml
@@ -112,7 +112,7 @@ let main input =
       let n_paths = StrSet.cardinal paths in
       if n_paths > 1 then begin
         printf "%s %d\n%!" (Digest.to_hex digest) n_paths;
-        List.iter (StrSet.elements paths) ~f:(printf "    %s\n%!")
+        List.iter (StrSet.elements paths) ~f:(printf "    %S\n%!")
       end
     )
     paths_by_digest;