diff options
author | Björn-Egil Dahlberg <[email protected]> | 2013-10-01 23:15:50 +0200 |
---|---|---|
committer | Björn-Egil Dahlberg <[email protected]> | 2014-01-28 15:56:27 +0100 |
commit | 652ddd4c360cd2cc381ed033915d87d967310a49 (patch) | |
tree | b750543ba423f391628de4e2c93c4f4eee88a892 /lib/compiler/src/core_pp.erl | |
parent | 758702e24f0780130c6b3058426062a3761b7a6e (diff) | |
download | otp-652ddd4c360cd2cc381ed033915d87d967310a49.tar.gz otp-652ddd4c360cd2cc381ed033915d87d967310a49.tar.bz2 otp-652ddd4c360cd2cc381ed033915d87d967310a49.zip |
Extend representation for maps in Core Erlang
Diffstat (limited to 'lib/compiler/src/core_pp.erl')
-rw-r--r-- | lib/compiler/src/core_pp.erl | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/lib/compiler/src/core_pp.erl b/lib/compiler/src/core_pp.erl index c8c59b9246..f775d87507 100644 --- a/lib/compiler/src/core_pp.erl +++ b/lib/compiler/src/core_pp.erl @@ -172,7 +172,12 @@ format_1(#c_map{es=Es}, Ctxt) -> format_hseq(Es, ",", add_indent(Ctxt, 1), fun format/2), "}~" ]; -format_1(#c_map_pair{key=K,val=V}, Ctxt) -> +format_1(#c_map_pair_assoc{key=K,val=V}, Ctxt) -> + ["::<", + format_hseq([K,V], ",", add_indent(Ctxt, 1), fun format/2), + ">" + ]; +format_1(#c_map_pair_exact{key=K,val=V}, Ctxt) -> ["~<", format_hseq([K,V], ",", add_indent(Ctxt, 1), fun format/2), ">" |