diff options
| author | Hugo Herbelin | 2016-04-27 22:13:03 +0200 |
|---|---|---|
| committer | Hugo Herbelin | 2016-04-27 22:13:03 +0200 |
| commit | 8e3561074981f115e7767496de6cdb144efcedca (patch) | |
| tree | b42cfcb38a7a4f62df47e6f27e2478b19afe534e /printing/ppconstr.ml | |
| parent | 8877e43d77087720e278080dba37227443802997 (diff) | |
Revert "Fixing printing of Instance."
This reverts commit cbb917476e3920641352c108ec9ffaf6d1682217.
Diffstat (limited to 'printing/ppconstr.ml')
| -rw-r--r-- | printing/ppconstr.ml | 12 |
1 files changed, 4 insertions, 8 deletions
diff --git a/printing/ppconstr.ml b/printing/ppconstr.ml index ba70145b63..56fbdd5ff5 100644 --- a/printing/ppconstr.ml +++ b/printing/ppconstr.ml @@ -498,11 +498,6 @@ end) = struct pr (lapp,L) a ++ prlist (fun a -> spc () ++ pr_expl_args pr a) l) - let pr_record_body_gen pr l = - spc () ++ - prlist_with_sep pr_semicolon - (fun (id, c) -> h 1 (pr_reference id ++ spc () ++ str":=" ++ pr ltop c)) l - let pr_forall () = keyword "forall" ++ spc () let pr_fun () = keyword "fun" ++ spc () @@ -605,7 +600,10 @@ end) = struct return (pr_app (pr mt) a l, lapp) | CRecord (_,l) -> return ( - hv 0 (str"{|" ++ pr_record_body_gen (pr spc) l ++ str" |}"), + hv 0 (str"{|" ++ spc () ++ + prlist_with_sep pr_semicolon + (fun (id, c) -> h 1 (pr_reference id ++ spc () ++ str":=" ++ pr spc ltop c)) l + ++ str" |}"), latom ) | CCases (_,LetPatternStyle,rtntypopt,[c,as_clause,in_clause],[(_,[(loc,[p])],b)]) -> @@ -738,8 +736,6 @@ end) = struct let pr_cases_pattern_expr = pr_patt ltop - let pr_record_body = pr_record_body_gen pr - let pr_binders = pr_undelimited_binders spc (pr ltop) end |