Quote outputted paths
authorSiraaj Khandkar <siraaj@khandkar.net>
Wed, 14 Nov 2018 19:04:08 +0000 (14:04 -0500)
committerSiraaj Khandkar <siraaj@khandkar.net>
Wed, 14 Nov 2018 19:04:08 +0000 (14:04 -0500)
dups.ml

diff --git a/dups.ml b/dups.ml
index 941d8fa..ba1fb0c 100644 (file)
--- 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;
This page took 0.018726 seconds and 4 git commands to generate.