helm/ocaml/logger/helmLogger.mli

   1
   2 type html_tag =
   3   [ `BR
   4   | `L of html_tag list
   5   | `T of string
   6   | `DIV of int * string option * html_tag  (* indentation, color, tag *)
   7   ]
   8 type html_msg = [ `Error of html_tag | `Msg of html_tag ]
   9
  10 val string_of_html_msg: html_msg -> string
  11 val html_of_html_msg: html_msg -> string
  12
  13 type logger_fun = ?append_NL:bool -> html_msg -> unit
  14
  15 val register_log_callback: logger_fun -> unit
  16
  17 val log: logger_fun
  18