X-Git-Url: http://git.nguyen.vg/gitweb/?a=blobdiff_plain;f=src%2Flogger.mli;h=15b28e9f64a753ab35d6c1e21774bd6727b16d9b;hb=refs%2Fheads%2Fmaster;hp=4f2dd5c25fc7d20b29a58a9f7bc387b8d93e97d3;hpb=3791216bfb2b9d966718f83fd414e8bcd5f7a066;p=SXSI%2Fxpathcomp.git

diff --git a/src/logger.mli b/src/logger.mli
index 4f2dd5c..15b28e9 100644
--- a/src/logger.mli
+++ b/src/logger.mli
@@ -11,3 +11,9 @@ val log : t -> level -> ('a, Format.formatter, unit) format -> 'a
 val print : Format.formatter -> ('a, Format.formatter, unit) format -> 'a
 val available : unit -> string list
 
+val set_verbose : bool -> unit
+val verbose : Format.formatter -> ('a, Format.formatter, unit) format -> 'a
+
+val start_msg : Format.formatter -> string -> unit
+val end_msg : Format.formatter -> string -> unit
+val msg : Format.formatter -> ('a, Format.formatter, unit) format -> 'a