diff options
Diffstat (limited to 'src/source_print.sml')
-rw-r--r-- | src/source_print.sml | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/src/source_print.sml b/src/source_print.sml index 90524241..9c3b870b 100644 --- a/src/source_print.sml +++ b/src/source_print.sml @@ -79,7 +79,7 @@ fun p_con' par (c, _) = p_con c]) | TRecord (CRecord xcs, _) => box [string "{", p_list (fn (x, c) => - box [p_con x, + box [p_name x, space, string ":", space, @@ -127,6 +127,11 @@ fun p_con' par (c, _) = and p_con c = p_con' false c +and p_name (all as (c, _)) = + case c of + CName s => string s + | _ => p_con all + fun p_exp' par (e, _) = case e of EAnnot (e, t) => box [string "(", |