changeset 1727:318ba997a149

Omit unnecessary parens around arrows in pretty-printing
author Adam Chlipala <adam@chlipala.net>
date Fri, 27 Apr 2012 07:35:59 -0400
parents 4df4521fbd3b
children 95d3b4f26f59
files src/elab_print.sml tests/pprint.ur
diffstat 2 files changed, 5 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- a/src/elab_print.sml	Wed Apr 25 03:07:07 2012 +0400
+++ b/src/elab_print.sml	Fri Apr 27 07:35:59 2012 -0400
@@ -87,7 +87,7 @@
 
 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,
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/tests/pprint.ur	Fri Apr 27 07:35:59 2012 -0400
@@ -0,0 +1,4 @@
+fun isNone [a] (x : option a) =
+    case x of
+        None => True
+      | Some _ => False