diff options
author | Emilio Jesus Gallego Arias <e+git@x80.org> | 2017-03-22 01:14:50 +0100 |
---|---|---|
committer | Emilio Jesus Gallego Arias <e+git@x80.org> | 2017-11-29 14:59:29 +0100 |
commit | c408e819ce39b27f0842c84b1b24c585ac5b6086 (patch) | |
tree | a3dac227a23d098e70c7d74bd719f93f3cc6724c /vernac | |
parent | 437f20f0a1c2717cd7baae52e2ab20750dd9d4fb (diff) |
[lib] [api] Introduce record for `object_prefix`
This is a minor cleanup adding a record in a try to structure the
state living in `Lib`.
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 bdd351901..c5653ceb7 100644 --- a/vernac/vernacentries.ml +++ b/vernac/vernacentries.ml @@ -185,8 +185,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) |