package testo-util

  1. Overview
  2. Docs

Source file Debug.ml

1
2
3
4
5
6
7
8
9
10
11
12
13
(*
   Log messages for debugging purposes

   This is mostly for tracing the master/worker interactions.
*)

open Printf

let debug = ref false

let log make_msg =
  if !debug then
    eprintf "[DEBUG] [%.6f] %s\n%!" (Unix.gettimeofday ()) (make_msg ())