diff options
Diffstat (limited to 'lib')
| -rw-r--r-- | lib/options.ml | 3 | ||||
| -rw-r--r-- | lib/options.mli | 1 |
2 files changed, 3 insertions, 1 deletions
diff --git a/lib/options.ml b/lib/options.ml index c0f14ee30b..26869e7adc 100644 --- a/lib/options.ml +++ b/lib/options.ml @@ -11,10 +11,11 @@ let print_emacs = ref false let emacs_str s = if !print_emacs then s else "" -(* Silent *) +(* Silent / Verbose *) let silent = ref false let make_silent flag = silent := flag; () let is_silent () = !silent +let verbose () = not !silent let silently f x = let oldsilent = !silent in diff --git a/lib/options.mli b/lib/options.mli index 9137883523..dc6b5b9824 100644 --- a/lib/options.mli +++ b/lib/options.mli @@ -12,6 +12,7 @@ val emacs_str : string -> string val make_silent : bool -> unit val is_silent : unit -> bool +val verbose : unit -> bool val silently : ('a -> 'b) -> 'a -> 'b val set_print_hyps_limit : int -> unit |