diff options
| author | Maxime Dénès | 2017-11-16 16:06:17 +0100 |
|---|---|---|
| committer | Maxime Dénès | 2017-11-16 16:06:17 +0100 |
| commit | 0786ae361cb5f134e91d790d6c096f84535b19ec (patch) | |
| tree | c4aeb3ac1a9c750ecb8e5d79abf218fecab2f774 /pretyping/recordops.ml | |
| parent | 11d895262e49b4c9f371e38c9e4436cead7001f4 (diff) | |
| parent | ed0c434a05a929a659e43aed80ab7c8179a7daa3 (diff) | |
Merge PR #6148: [api] Another large deprecation, `Nameops` and friends.
Diffstat (limited to 'pretyping/recordops.ml')
| -rw-r--r-- | pretyping/recordops.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/pretyping/recordops.ml b/pretyping/recordops.ml index cb24ca804d..e6d8a0af26 100644 --- a/pretyping/recordops.ml +++ b/pretyping/recordops.ml @@ -300,7 +300,7 @@ let add_canonical_structure x = Lib.add_anonymous_leaf (inCanonStruc x) let error_not_structure ref = user_err ~hdr:"object_declare" - (Nameops.pr_id (basename_of_global ref) ++ str" is not a structure object.") + (Id.print (basename_of_global ref) ++ str" is not a structure object.") let check_and_decompose_canonical_structure ref = let sp = match ref with ConstRef sp -> sp | _ -> error_not_structure ref in |