print Distinguished_name.t with '/' as separator between components

mirleft · Jul 24, 2019 · b01455f · b01455f
1 parent 85b5e94
commit b01455f
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/lib/distinguished_name.ml b/lib/distinguished_name.ml
@@ -71,7 +71,8 @@ let pp_component : type a. a k -> Format.formatter -> a -> unit = fun k ppf v ->
 let equal a b = equal { f = fun _ a b -> compare a b = 0 } a b
 
 let pp ppf dn =
-  iter (fun (B (k, v)) -> pp_component k ppf v) dn
+  let pp_b ppf (B (k, v)) = pp_component k ppf v in
+  Fmt.(list ~sep:(unit "/") pp_b) ppf (bindings dn)
 
 module Asn = struct
   open Asn.S