From: Siraaj Khandkar <siraaj@khandkar.net>
Date: Wed, 14 Nov 2018 19:04:08 +0000 (-0500)
Subject: Quote outputted paths
X-Git-Url: https://git.xandkar.net/?p=dups.git;a=commitdiff_plain;h=e4a6d3c94cc9f640d6f7d1123a86a3906b458492

Quote outputted paths
---

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;