diff options
| author | Maxime Dénès | 2019-08-02 16:47:49 +0200 |
|---|---|---|
| committer | Maxime Dénès | 2019-08-29 10:27:04 +0200 |
| commit | 6bc9ef56c5833ee81d7298ab0c52146ad775e2a1 (patch) | |
| tree | 8ea8af9ee03d627126de323898ce73d3a43e608e /vernac | |
| parent | 1e6fb6005ef98d1709b09adfcb0726da2fc8b7f4 (diff) | |
Make sure that all query commands return a notice (not an info) feedback
As documented in the feedback API.
Diffstat (limited to 'vernac')
| -rw-r--r-- | vernac/vernacentries.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/vernac/vernacentries.ml b/vernac/vernacentries.ml index 4ae9d6d54f..e2bfbf626a 100644 --- a/vernac/vernacentries.ml +++ b/vernac/vernacentries.ml @@ -2267,7 +2267,7 @@ let with_fail ~st f = user_err ~hdr:"Fail" (str "The command has not failed!") | Ok msg -> if not !Flags.quiet || !test_mode - then Feedback.msg_info (str "The command has indeed failed with message:" ++ fnl () ++ msg) + then Feedback.msg_notice (str "The command has indeed failed with message:" ++ fnl () ++ msg) let locate_if_not_already ?loc (e, info) = match Loc.get_loc info with |