Ekdohibs
/
ocaml
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Merge pull request #485 from kayceesrk/trunk 

Minor prettify printing of tuple types and constructor declaration
master
Damien Doligez 2016-02-25 15:50:40 +01:00
parent 7245742974 e21ad4fdcf
commit 8553eea1e3
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
parsing/pprintast.ml
View File

@ -251,7 +251,7 @@ class printer ()= object(self:'self)
else match x.ptyp_desc with
| Ptyp_any -> pp f "_";
| Ptyp_var s -> self#tyvar f s;
| Ptyp_tuple l -> pp f "(%a)" (self#list self#core_type1 ~sep:"*@;") l
| Ptyp_tuple l -> pp f "(%a)" (self#list self#core_type1 ~sep:"@;*@;") l
| Ptyp_constr (li, l) ->
pp f (* "%a%a@;" *) "%a%a"
(fun f l -> match l with
@ -1308,7 +1308,7 @@ class printer ()= object(self:'self)
(fun f -> function
| Pcstr_tuple [] -> ()
| Pcstr_tuple l ->
pp f "@;of@;%a" (self#list self#core_type1 ~sep:"*@;") l
pp f "@;of@;%a" (self#list self#core_type1 ~sep:"@;*@;") l
| Pcstr_record l -> pp f "@;of@;%a" (self#record_declaration) l
) args
self#attributes attrs
@ -1317,7 +1317,7 @@ class printer ()= object(self:'self)
(fun f -> function
| Pcstr_tuple [] -> self#core_type1 f r
| Pcstr_tuple l -> pp f "%a@;->@;%a"
(self#list self#core_type1 ~sep:"*@;") l
(self#list self#core_type1 ~sep:"@;*@;") l
self#core_type1 r
| Pcstr_record l ->
pp f "%a@;->@;%a" (self#record_declaration) l self#core_type1 r