diff options
Diffstat (limited to 'printing')
| -rw-r--r-- | printing/ppconstr.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/printing/ppconstr.ml b/printing/ppconstr.ml index 38f5fc1c6d..0948b31f36 100644 --- a/printing/ppconstr.ml +++ b/printing/ppconstr.ml @@ -113,7 +113,7 @@ let pr_in_comment pr x = str "(* " ++ pr x ++ str " *)" let pr_glob_sort = function | GProp -> str "Prop" | GSet -> str "Set" - | GType u -> hov 0 (str "Type" ++ pr_opt (pr_in_comment (fun x->x)) u) + | GType u -> hov 0 (str "Type" ++ pr_opt (pr_in_comment str) u) let pr_id = pr_id let pr_name = pr_name |