pretty print nullary constructor applications without the parens
This commit is contained in:
parent
ccad660eac
commit
f866e24624
@ -307,6 +307,8 @@ expr_p(P, E = {app, _, F = {Op, _}, Args}) when is_atom(Op) ->
|
|||||||
{prefix, [A]} -> prefix(P, Op, A);
|
{prefix, [A]} -> prefix(P, Op, A);
|
||||||
_ -> app(P, F, Args)
|
_ -> app(P, F, Args)
|
||||||
end;
|
end;
|
||||||
|
expr_p(_, {app, _, C={Tag, _, _}, []}) when Tag == con; Tag == qcon ->
|
||||||
|
expr_p(0, C);
|
||||||
expr_p(P, {app, _, F, Args}) ->
|
expr_p(P, {app, _, F, Args}) ->
|
||||||
app(P, F, Args);
|
app(P, F, Args);
|
||||||
%% -- Constants
|
%% -- Constants
|
||||||
|
Loading…
x
Reference in New Issue
Block a user