diff options
| author |  Enrico Tassi <Enrico.Tassi@inria.fr> | 2014-02-26 15:15:46 +0100 |
|---|---|---|
| committer | Enrico Tassi <Enrico.Tassi@inria.fr> | 2014-02-26 15:15:46 +0100 |
| commit | 7ed485100362789132654ee91fc73e70979fc57f (patch) | |
| tree | 88bbf184e8714018daa645effb670a38ff3ab0b5 | |
| parent | 9d842d94dc92b1f83045e355062b1d965dac9630 (diff) | |
CoqIDE: print message of "Fail" command
| -rw-r--r-- | toplevel/vernacentries.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/toplevel/vernacentries.ml b/toplevel/vernacentries.ml index cd2338dfe..cd38510f3 100644 --- a/toplevel/vernacentries.ml +++ b/toplevel/vernacentries.ml @@ -1871,7 +1871,7 @@ let interp ?(verbosely=true) ?proof (loc,c) = | HasNotFailed -> errorlabstrm "Fail" (str "The command has not failed!") | HasFailed msg -> - if_verbose msg_info + if is_verbose () || !Flags.ide_slave then msg_info (str "The command has indeed failed with message:" ++ fnl () ++ str "=> " ++ hov 0 (str msg)) | _ -> assert false |