Merge PR #6837: [located] Push inner locations in reference to a CAst.t node.

1 files changed, 4 insertions, 4 deletions

diff --git a/pretyping/detyping.ml b/pretyping/detyping.ml
index 8fab92779b..587892141c 100644
--- a/pretyping/detyping.ml
+++ b/pretyping/detyping.ml
@@ -71,17 +71,17 @@ let has_two_constructors lc =
 
 let isomorphic_to_tuple lc = Int.equal (Array.length lc) 1
 
-let encode_bool r =
+let encode_bool ({CAst.loc} as r) =
   let (x,lc) = encode_inductive r in
   if not (has_two_constructors lc) then
-    user_err ?loc:(loc_of_reference r) ~hdr:"encode_if"
+    user_err ?loc ~hdr:"encode_if"
       (str "This type has not exactly two constructors.");
   x
 
-let encode_tuple r =
+let encode_tuple ({CAst.loc} as r) =
   let (x,lc) = encode_inductive r in
   if not (isomorphic_to_tuple lc) then
-    user_err ?loc:(loc_of_reference r) ~hdr:"encode_tuple"
+    user_err ?loc ~hdr:"encode_tuple"
       (str "This type cannot be seen as a tuple type.");
   x