+(* $Id$ *)
open Printf
type logger_fun = ?append_NL:bool -> html_msg -> unit
-let string_of_html_msg =
+let rec string_of_html_tag =
let rec aux indent =
let indent_str = String.make indent ' ' in
function
| `DIV (local_indent, _, tag) ->
"\n" ^ indent_str ^ aux (indent + local_indent) tag
in
- function
- | `Error tag -> "Error: " ^ aux 0 tag
- | `Msg tag -> aux 0 tag
+ aux 0
+
+let string_of_html_msg = function
+ | `Error tag -> "Error: " ^ string_of_html_tag tag
+ | `Msg tag -> string_of_html_tag tag
let rec html_of_html_tag = function
| `T s -> s