diff options
| author |  Maxime Dénès <mail@maximedenes.fr> | 2018-02-12 10:57:39 +0100 |
|---|---|---|
| committer | Maxime Dénès <mail@maximedenes.fr> | 2018-02-12 10:57:39 +0100 |
| commit | 52d666a7a83e4023d9f5cd7324ed81c7f7926156 (patch) | |
| tree | 8b5254efb09a55260cd3de9bea9ae07bf4a10a02 /vernac | |
| parent | 67b6583a2cc430c9584e259a00ff6b28347d5b55 (diff) | |
| parent | 33789b2d1706194d478a25098bd1991d2c845223 (diff) | |
Merge PR #6262: [error] Replace msg_error by a proper exception.
Diffstat (limited to 'vernac')
| -rw-r--r-- | vernac/vernacentries.ml | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/vernac/vernacentries.ml b/vernac/vernacentries.ml index be09696d1..7223389c4 100644 --- a/vernac/vernacentries.ml +++ b/vernac/vernacentries.ml @@ -189,7 +189,7 @@ let print_module r = Feedback.msg_notice (Printmod.print_module (Printmod.printable_body obj_dir) obj_mp) | _ -> raise Not_found with - Not_found -> Feedback.msg_error (str"Unknown Module " ++ pr_qualid qid) + Not_found -> user_err (str"Unknown Module " ++ pr_qualid qid) let print_modtype r = let (loc,qid) = qualid_of_reference r in @@ -202,7 +202,7 @@ let print_modtype r = let mp = Nametab.locate_module qid in Feedback.msg_notice (Printmod.print_module false mp) with Not_found -> - Feedback.msg_error (str"Unknown Module Type or Module " ++ pr_qualid qid) + user_err (str"Unknown Module Type or Module " ++ pr_qualid qid) let print_namespace ns = let ns = List.rev (Names.DirPath.repr ns) in |