Add Log.error
This commit is contained in:
parent
6175e40a1f
commit
bf609e42ec
1
log.ml
1
log.ml
|
@ -15,3 +15,4 @@ let hook = ref write_to_log
|
||||||
|
|
||||||
let info message args = (!hook) "info" (Arr (Str message :: args))
|
let info message args = (!hook) "info" (Arr (Str message :: args))
|
||||||
let warn message args = (!hook) "warn" (Arr (Str message :: args))
|
let warn message args = (!hook) "warn" (Arr (Str message :: args))
|
||||||
|
let error message args = (!hook) "error" (Arr (Str message :: args))
|
||||||
|
|
Loading…
Reference in New Issue