OCaml: Only print log messages if DEBUG is set in the environment
Satisfies specification item A2
This commit is contained in:
parent
bb1cd19000
commit
fab9c7140d
2 changed files with 12 additions and 9 deletions
|
|
@ -1 +1,4 @@
|
|||
let elog message = prerr_endline @@ " [log] " ^ message
|
||||
let elog (message : string) : unit =
|
||||
let debug_flag = try Unix.getenv "DEBUG" with Not_found -> "" in
|
||||
|
||||
if debug_flag <> "" then prerr_endline @@ " [log] " ^ message
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue