summaryrefslogtreecommitdiff
path: root/src/expl_print.sml
diff options
context:
space:
mode:
Diffstat (limited to 'src/expl_print.sml')
-rw-r--r--src/expl_print.sml11
1 files changed, 9 insertions, 2 deletions
diff --git a/src/expl_print.sml b/src/expl_print.sml
index 15838729..c953350c 100644
--- a/src/expl_print.sml
+++ b/src/expl_print.sml
@@ -234,12 +234,19 @@ fun p_pat' par env (p, _) =
| PRecord xps =>
box [string "{",
- p_list_sep (box [string ",", space]) (fn (x, p, _) =>
+ p_list_sep (box [string ",", space]) (fn (x, p, t) =>
box [string x,
space,
string "=",
space,
- p_pat env p]) xps,
+ p_pat env p,
+ if !debug then
+ box [space,
+ string ":",
+ space,
+ p_con env t]
+ else
+ box []]) xps,
string "}"]
and p_pat x = p_pat' false x