Add an option to specify indentation level when converting Xml.t (and

Html.t) to a string.
mirage · Feb 10, 2013 · 4711a8d · 4711a8d
1 parent 060129e
commit 4711a8d
Show file tree

Hide file tree

Showing 3 changed files with 4 additions and 4 deletions.
diff --git a/lib/html.mli b/lib/html.mli
@@ -16,7 +16,7 @@
 
 type t = (('a Xml.frag as 'a) Xml.frag) list
 
-val to_string : t -> string
+val to_string : ?indent:int -> t -> string
 
 val of_string :
   ?templates:( (string * t) list ) ->

diff --git a/lib/xml.ml b/lib/xml.ml
@@ -1216,9 +1216,9 @@ let rec output_t o = function
     output_t o t
   | [] -> ()
 
-let to_string t =
+let to_string ?indent t =
   let buf = Buffer.create 1024 in
-  let o = make_output (`Buffer buf) in
+  let o = make_output ~indent:indent (`Buffer buf) in
   output o (`Dtd (Some ""));
   output_t o t;
   Buffer.contents buf

diff --git a/lib/xml.mli b/lib/xml.mli
@@ -766,7 +766,7 @@ let out_w3c_bureaucrats dst bl =
   out (`El_end)]}
 *)
 
-val to_string : t -> string
+val to_string : ?indent:int -> t -> string
 val of_string :
   ?entity:(string -> string option) ->
   ?templates:( (string * t) list ) ->