From 30d3515546cf244837c6340b6b87c5f51e68cbf4 Mon Sep 17 00:00:00 2001
From: Emilio Jesus Gallego Arias
Date: Tue, 17 Jan 2017 23:40:35 +0100
Subject: [location] Remove Loc.ghost.

Now it is a private field, locations are optional.
---
 plugins/ltac/profile_ltac.ml | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'plugins/ltac/profile_ltac.ml')

diff --git a/plugins/ltac/profile_ltac.ml b/plugins/ltac/profile_ltac.ml
index bcb28f77ce..eb97a0e70e 100644
--- a/plugins/ltac/profile_ltac.ml
+++ b/plugins/ltac/profile_ltac.ml
@@ -129,7 +129,7 @@ let to_ltacprof_results xml =
 
 let feedback_results results =
   Feedback.(feedback
-    (Custom (Loc.dummy_loc, "ltacprof_results", of_ltacprof_results results)))
+    (Custom (None, "ltacprof_results", of_ltacprof_results results)))
 
 (* ************** pretty printing ************************************* *)
 
@@ -250,7 +250,7 @@ let string_of_call ck =
        | Tacexpr.LtacVarCall (id, t) -> Nameops.pr_id id
        | Tacexpr.LtacAtomCall te ->
          (Pptactic.pr_glob_tactic (Global.env ())
-            (Tacexpr.TacAtom (Loc.ghost, te)))
+            (Tacexpr.TacAtom (Loc.tag te)))
        | Tacexpr.LtacConstrInterp (c, _) ->
          pr_glob_constr_env (Global.env ()) c
        | Tacexpr.LtacMLCall te ->
-- 
cgit v1.2.3