diff options
Diffstat (limited to 'ide/minilib.ml')
| -rw-r--r-- | ide/minilib.ml | 13 |
1 files changed, 12 insertions, 1 deletions
diff --git a/ide/minilib.ml b/ide/minilib.ml index 04bd4c454..825fc58cc 100644 --- a/ide/minilib.ml +++ b/ide/minilib.ml @@ -26,4 +26,15 @@ let debug = ref false *) let log ?(level = `DEBUG) msg = - if !debug then try prerr_endline msg; flush stderr with _ -> () + let prefix = match level with + | `DEBUG -> "DEBUG" + | `INFO -> "INFO" + | `NOTICE -> "NOTICE" + | `WARNING -> "WARNING" + | `ERROR -> "ERROR" + | `FATAL -> "FATAL" + in + if !debug then begin + try Printf.eprintf "[%s] %s\n%!" prefix msg + with _ -> () + end |