diff options
| author |  ppedrot <ppedrot@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2012-06-29 21:04:49 +0000 |
|---|---|---|
| committer | ppedrot <ppedrot@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2012-06-29 21:04:49 +0000 |
| commit | b7a8ecc6c41a21885bf8dabc71098f8e2267f7da (patch) | |
| tree | ae524ca4f0d01695908b8dae2b98fe15a4908f5e /ide/minilib.ml | |
| parent | 4aef7ca15b99e9a3b0671ff11d61d6aaa31e16b6 (diff) | |
Various small display improvement
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@15505 85f007b7-540e-0410-9357-904b9bb8a0f7
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 |