pretty print nullary constructor applications without the parens

2019-02-25 14:23:44 +01:00 · 2019-02-25 14:23:44 +01:00 · f866e24624
commit f866e24624
parent ccad660eac
1 changed files with 2 additions and 0 deletions
--- a/src/aeso_pretty.erl
+++ b/src/aeso_pretty.erl
@ -307,6 +307,8 @@ expr_p(P, E = {app, _, F = {Op, _}, Args}) when is_atom(Op) ->
        {prefix, [A]}   -> prefix(P, Op, A);
        _               -> app(P, F, Args)
    end;
+expr_p(_, {app, _, C={Tag, _, _}, []}) when Tag == con; Tag == qcon ->
+    expr_p(0, C);
 expr_p(P, {app, _, F, Args}) ->
    app(P, F, Args);
 %% -- Constants