diff options
| -rw-r--r-- | src/elab_print.sml | 4 | ||||
| -rw-r--r-- | tests/badVariant.ur | 1 |
2 files changed, 3 insertions, 2 deletions
diff --git a/src/elab_print.sml b/src/elab_print.sml index d292d7c5..46ad9285 100644 --- a/src/elab_print.sml +++ b/src/elab_print.sml @@ -169,7 +169,7 @@ fun p_con' par env (c, _) = if !debug then parenIf par (box [string "[", p_list (fn (x, c) => - box [p_con env x, + box [p_name env x, space, string "=", space, @@ -179,7 +179,7 @@ fun p_con' par env (c, _) = else parenIf par (box [string "[", p_list (fn (x, c) => - box [p_con env x, + box [p_name env x, space, string "=", space, diff --git a/tests/badVariant.ur b/tests/badVariant.ur new file mode 100644 index 00000000..99e346c0 --- /dev/null +++ b/tests/badVariant.ur @@ -0,0 +1 @@ +val q : variant [X = int, Y = float] = make [#Z] "hi" |