Adding and using locations on identifiers in constr_expr where they were missing.

1 files changed, 1 insertions, 1 deletions

diff --git a/printing/ppconstr.ml b/printing/ppconstr.ml
index 267f5e0b5f..30335d9826 100644
--- a/printing/ppconstr.ml
+++ b/printing/ppconstr.ml
@@ -231,7 +231,7 @@ let tag_var = tag Tag.variable
         (match l with
           | [] -> mt()
           | l ->
-            let f (id,c) = pr_id id ++ str ":=" ++ pr ltop c in
+            let f (id,c) = pr_lident id ++ str ":=" ++ pr ltop c in
             str"@{" ++ hov 0 (prlist_with_sep pr_semicolon f (List.rev l)) ++ str"}"))
 
   let las = lapp