aboutsummaryrefslogtreecommitdiff
path: root/vernac
diff options
context:
space:
mode:
authorEmilio Jesus Gallego Arias2019-09-04 15:00:03 +0200
committerEmilio Jesus Gallego Arias2019-09-04 15:00:03 +0200
commit6a6a2575c10d05cd0151a83c133825d43bd3cb28 (patch)
treea46211ebfa7af615d7edd8359208f8e5dcd5af1d /vernac
parentbcf2dae1e39c6ff27c574a82c4451323a673b15f (diff)
parent2d4033152c51eb0b093c79d19a5146995af1b432 (diff)
Merge PR #10612: Fix feedback levels
Ack-by: ejgallego Reviewed-by: gares
Diffstat (limited to 'vernac')
-rw-r--r--vernac/vernacentries.ml2
1 files changed, 1 insertions, 1 deletions
diff --git a/vernac/vernacentries.ml b/vernac/vernacentries.ml
index 90b7610750..3d14e8d510 100644
--- a/vernac/vernacentries.ml
+++ b/vernac/vernacentries.ml
@@ -2285,7 +2285,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