From bf13037e9ca39da28fb648e5488ce56ef8a1f1e2 Mon Sep 17 00:00:00 2001
From: Emilio Jesus Gallego Arias
Date: Tue, 17 Jan 2017 15:06:26 +0100
Subject: [location] Use located in misctypes.

---
 vernac/vernacentries.ml | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'vernac')

diff --git a/vernac/vernacentries.ml b/vernac/vernacentries.ml
index 0a5a000fec..86406dbe56 100644
--- a/vernac/vernacentries.ml
+++ b/vernac/vernacentries.ml
@@ -1772,8 +1772,8 @@ let vernac_search ~loc s gopt r =
 let vernac_locate = let open Feedback in function
   | LocateAny (AN qid)  -> msg_notice (print_located_qualid qid)
   | LocateTerm (AN qid) -> msg_notice (print_located_term qid)
-  | LocateAny (ByNotation (_, ntn, sc)) (** TODO : handle Ltac notations *)
-  | LocateTerm (ByNotation (_, ntn, sc)) ->
+  | LocateAny (ByNotation (_, (ntn, sc))) (** TODO : handle Ltac notations *)
+  | LocateTerm (ByNotation (_, (ntn, sc))) ->
       msg_notice
         (Notation.locate_notation
           (Constrextern.without_symbols pr_lglob_constr) ntn sc)
-- 
cgit v1.2.3