diff options
| author |  Adam Chlipala <adam@chlipala.net> | 2012-04-27 07:35:59 -0400 |
|---|---|---|
| committer | Adam Chlipala <adam@chlipala.net> | 2012-04-27 07:35:59 -0400 |
| commit | 6320e0f89da5fd1afc85e36bde7351d514b02e99 (patch) | |
| tree | 9419cd55c53f38da8c5958df4e698a3e10962a05 /src/elab_print.sml | |
| parent | 82018746530efcbcf17f8cde87033285c2b9a81f (diff) | |
Omit unnecessary parens around arrows in pretty-printing
Diffstat (limited to 'src/elab_print.sml')
| -rw-r--r-- | src/elab_print.sml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/elab_print.sml b/src/elab_print.sml index c25576ba..37669312 100644 --- a/src/elab_print.sml +++ b/src/elab_print.sml @@ -87,7 +87,7 @@ fun p_explicitness e = fun p_con' par env (c, _) = case c of - TFun (t1, t2) => parenIf true (box [p_con' true env t1, + TFun (t1, t2) => parenIf par (box [p_con' true env t1, space, string "->", space, |