From f866e246243058aa1230b2679f3a2eaf59380fb9 Mon Sep 17 00:00:00 2001
From: Ulf Norell <ulf.norell@gmail.com>
Date: Mon, 25 Feb 2019 14:23:44 +0100
Subject: [PATCH] pretty print nullary constructor applications without the
 parens

---
 src/aeso_pretty.erl | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/src/aeso_pretty.erl b/src/aeso_pretty.erl
index 8e90693..0c047ec 100644
--- 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