X-Git-Url: http://git.nguyen.vg/gitweb/?a=blobdiff_plain;ds=sidebyside;f=src%2Flogger.mli;h=1ee96d502178db3cd873946446ab6ae1029f7f27;hb=798507d52a5c11a6d852740056464241538fe76a;hp=4f2dd5c25fc7d20b29a58a9f7bc387b8d93e97d3;hpb=3791216bfb2b9d966718f83fd414e8bcd5f7a066;p=SXSI%2Fxpathcomp.git

diff --git a/src/logger.mli b/src/logger.mli
index 4f2dd5c..1ee96d5 100644
--- a/src/logger.mli
+++ b/src/logger.mli
@@ -11,3 +11,5 @@ 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