1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
(** A module internal to [Core_bench]. Please look at {!Bench}. *)
open Core
type t =
| Quiet
| Low
| High
[@@deriving sexp]
let verbosity : t ref = ref Low
let set_verbosity v = verbosity := v
let print_high s =
match !verbosity with
| High -> printf s
| Low | Quiet -> Printf.ifprintf stdout s
;;
let print_low s =
match !verbosity with
| High | Low -> printf s
| Quiet -> Printf.ifprintf stdout s
;;