diff options
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 b862454a2..0a0bdffff 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 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 |