aboutsummaryrefslogtreecommitdiff
path: root/printing/printer.ml
diff options
context:
space:
mode:
Diffstat (limited to 'printing/printer.ml')
-rw-r--r--printing/printer.ml2
1 files changed, 1 insertions, 1 deletions
diff --git a/printing/printer.ml b/printing/printer.ml
index a3e2fd9c2b..9b8c169380 100644
--- a/printing/printer.ml
+++ b/printing/printer.ml
@@ -587,7 +587,7 @@ let pr_assumptionset env s =
try pr_constant env kn
with Not_found ->
let mp,_,lab = repr_con kn in
- str (string_of_mp mp ^ "." ^ string_of_label lab)
+ str (string_of_mp mp ^ "." ^ Label.to_string lab)
in
let safe_pr_ltype typ =
try str " : " ++ pr_ltype typ with _ -> mt ()