diff options
| author |  Enrico Tassi <Enrico.Tassi@inria.fr> | 2018-06-19 16:48:12 +0200 |
|---|---|---|
| committer | Enrico Tassi <Enrico.Tassi@inria.fr> | 2018-06-19 16:48:12 +0200 |
| commit | 6715e6801c1d285a12eeca55dd8b831d7efb8c0d (patch) | |
| tree | 2b8925708d85f7cef5fb222d551cf809704f8ebd /ide/idetop.ml | |
| parent | c37881f3d64a6db0d7414eb18adfa4de6b64d4b1 (diff) | |
| parent | 133ac4fbb9a8b4213cb3f8ca2f7c2568931209ce (diff) | |
Merge PR #7797: Remove reference name type.
Diffstat (limited to 'ide/idetop.ml')
| -rw-r--r-- | ide/idetop.ml | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/ide/idetop.ml b/ide/idetop.ml index ba69c4185..7abbf239b 100644 --- a/ide/idetop.ml +++ b/ide/idetop.ml @@ -290,8 +290,7 @@ let pattern_of_string ?env s = let dirpath_of_string_list s = let path = String.concat "." s in - let m = Pcoq.parse_string Pcoq.Constr.global path in - let {CAst.v=qid} = Libnames.qualid_of_reference m in + let qid = Pcoq.parse_string Pcoq.Constr.global path in let id = try Nametab.full_name_module qid with Not_found -> |