diff options
| author | Hugo Herbelin | 2020-06-01 17:39:47 +0200 |
|---|---|---|
| committer | Hugo Herbelin | 2021-04-06 17:40:53 +0200 |
| commit | 2ee505630756676ded9f8eb6511ad642c80179ee (patch) | |
| tree | 0fa3f7ec475ee5e8412e63caf5a412f8656ac7af /vernac | |
| parent | 524eb4e7dcb18d622ebb99648862e5d08a972117 (diff) | |
Uniformizing the "already exists" messages
Diffstat (limited to 'vernac')
| -rw-r--r-- | vernac/declaremods.ml | 2 | ||||
| -rw-r--r-- | vernac/metasyntax.ml | 2 |
2 files changed, 2 insertions, 2 deletions
diff --git a/vernac/declaremods.ml b/vernac/declaremods.ml index 15e6d4ef37..95e05556b9 100644 --- a/vernac/declaremods.ml +++ b/vernac/declaremods.ml @@ -216,7 +216,7 @@ let consistency_checks exists dir dirinfo = else if Nametab.exists_dir dir then user_err ~hdr:"consistency_checks" - (DirPath.print dir ++ str " already exists") + (DirPath.print dir ++ str " already exists.") let compute_visibility exists i = if exists then Nametab.Exactly i else Nametab.Until i diff --git a/vernac/metasyntax.ml b/vernac/metasyntax.ml index 2fe402ff08..bce208df6e 100644 --- a/vernac/metasyntax.ml +++ b/vernac/metasyntax.ml @@ -1845,6 +1845,6 @@ let inCustomEntry : locality_flag * string -> obj = let declare_custom_entry local s = if Egramcoq.exists_custom_entry s then - user_err Pp.(str "Custom entry " ++ str s ++ str " already exists") + user_err Pp.(str "Custom entry " ++ str s ++ str " already exists.") else Lib.add_anonymous_leaf (inCustomEntry (local,s)) |