From 1b2a6326876c67bf25657ecd7c0765cacd1cde75 Mon Sep 17 00:00:00 2001
From: ppedrot
Date: Thu, 30 May 2013 17:55:59 +0000
Subject: Removing a useless location in ltac trace mechanism.

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@16547 85f007b7-540e-0410-9357-904b9bb8a0f7
---
 proofs/proof_type.ml  | 2 +-
 proofs/proof_type.mli | 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

(limited to 'proofs')

diff --git a/proofs/proof_type.ml b/proofs/proof_type.ml
index f7f10272cf..609c7782d7 100644
--- a/proofs/proof_type.ml
+++ b/proofs/proof_type.ml
@@ -58,4 +58,4 @@ type ltac_call_kind =
 
 type ltac_trace = (int * Loc.t * ltac_call_kind) list
 
-let (ltac_trace_info : (ltac_trace * Loc.t) Exninfo.t) = Exninfo.make ()
+let (ltac_trace_info : ltac_trace Exninfo.t) = Exninfo.make ()
diff --git a/proofs/proof_type.mli b/proofs/proof_type.mli
index 74a12d42b2..33e1f29c59 100644
--- a/proofs/proof_type.mli
+++ b/proofs/proof_type.mli
@@ -85,4 +85,4 @@ type ltac_call_kind =
 
 type ltac_trace = (int * Loc.t * ltac_call_kind) list
 
-val ltac_trace_info : (ltac_trace * Loc.t) Exninfo.t
+val ltac_trace_info : ltac_trace Exninfo.t
-- 
cgit v1.2.3