diff options
author | Maxime Dénès <mail@maximedenes.fr> | 2017-11-30 16:17:00 +0100 |
---|---|---|
committer | Maxime Dénès <mail@maximedenes.fr> | 2017-11-30 16:17:00 +0100 |
commit | c5f6ee866bef4ff924693302ea98fec2b4742b9b (patch) | |
tree | 66e728c5cf1fa3e59b1a48043e99a9995f7a1e2e /vernac/vernacentries.ml | |
parent | 0bb126dae41b410fdf4f6531024c64cac20dac06 (diff) | |
parent | c408e819ce39b27f0842c84b1b24c585ac5b6086 (diff) |
Merge PR #6244: [lib] [api] Introduce record for `object_prefix`
Diffstat (limited to 'vernac/vernacentries.ml')
-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 7f3410bc1..7e01d97cc 100644 --- a/vernac/vernacentries.ml +++ b/vernac/vernacentries.ml @@ -186,8 +186,8 @@ let print_module r = try let globdir = Nametab.locate_dir qid in match globdir with - DirModule (dirpath,(mp,_)) -> - Feedback.msg_notice (Printmod.print_module (Printmod.printable_body dirpath) mp) + DirModule { obj_dir; obj_mp; _ } -> + 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) |