diff options
-rw-r--r-- | src/elab_print.sml | 2 | ||||
-rw-r--r-- | tests/pprint.ur | 4 |
2 files changed, 5 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, diff --git a/tests/pprint.ur b/tests/pprint.ur new file mode 100644 index 00000000..5d4f7f04 --- /dev/null +++ b/tests/pprint.ur @@ -0,0 +1,4 @@ +fun isNone [a] (x : option a) = + case x of + None => True + | Some _ => False |