package core_bench

  1. Overview
  2. Docs

Source file verbosity.ml

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
;;