Mirage_kv.Key.pp: escape binary keys appropriately

Author: hannesm

src/mirage_kv.ml

@@ -39,8 +39,8 @@ module Key = struct
   let parent = function | _::tl -> tl | [] -> []
   let compare = compare
   let equal = (=)
-  let pp ppf l = Fmt.pf ppf "/%a" Fmt.(list ~sep:(any "/") string) (List.rev l)
-  let to_string = Fmt.to_to_string pp
+  let pp ppf l = Fmt.(any "/" ++ (list ~sep:(any "/") Dump.string)) ppf (List.rev l)
+  let to_string k = "/" ^ String.concat "/" (List.rev k)
 end
 
 type key = Key.t