diff options
| author | ppedrot | 2012-06-29 21:04:49 +0000 |
|---|---|---|
| committer | ppedrot | 2012-06-29 21:04:49 +0000 |
| commit | b7a8ecc6c41a21885bf8dabc71098f8e2267f7da (patch) | |
| tree | ae524ca4f0d01695908b8dae2b98fe15a4908f5e /ide | |
| 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')
| -rw-r--r-- | ide/coq.ml | 2 | ||||
| -rw-r--r-- | ide/minilib.ml | 13 |
2 files changed, 13 insertions, 2 deletions
diff --git a/ide/coq.ml b/ide/coq.ml index b862454a20..0a0bdffffe 100644 --- a/ide/coq.ml +++ b/ide/coq.ml @@ -447,7 +447,7 @@ struct let width = ["Printing"; "Width"] let implicit = ["Printing"; "Implicit"] let coercions = ["Printing"; "Coercions"] - let raw_matching = ["Printing"; "Matching"; "Synth"] + let raw_matching = ["Printing"; "Matching"] let notations = ["Printing"; "Notations"] let all_basic = ["Printing"; "All"] let existential = ["Printing"; "Existential"; "Instances"] diff --git a/ide/minilib.ml b/ide/minilib.ml index 04bd4c454d..825fc58cc7 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 |