From ec09f59a9e055d947c9bc0790e726c5e80724068 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Bj=C3=B6rn-Egil=20Dahlberg?= <egil@erlang.org>
Date: Thu, 11 Sep 2014 19:01:58 +0200
Subject: stdlib: Fix maps type pretty printing

Properly align union typed assoc values.
---
 lib/stdlib/src/erl_pp.erl | 10 +++++++++-
 1 file changed, 9 insertions(+), 1 deletion(-)

(limited to 'lib/stdlib/src')

diff --git a/lib/stdlib/src/erl_pp.erl b/lib/stdlib/src/erl_pp.erl
index 82bc2c1460..3dbb5ab64c 100644
--- a/lib/stdlib/src/erl_pp.erl
+++ b/lib/stdlib/src/erl_pp.erl
@@ -300,7 +300,15 @@ map_pair_types(Fs) ->
     tuple_type(Fs, fun map_pair_type/1).
 
 map_pair_type({type,_Line,map_field_assoc,Ktype,Vtype}) ->
-    {seq,[],[]," =>",[ltype(Ktype),ltype(Vtype)]}.
+    map_assoc_typed(lexpr(Ktype, options(none)), Vtype).
+
+map_assoc_typed(B, {type,_,union,Ts}) ->
+    {first,[B,$\s],{seq,[],[],[],map_assoc_union_type(Ts)}};
+map_assoc_typed(B, Type) ->
+    {list,[{cstep,[B," =>"],ltype(Type)}]}.
+
+map_assoc_union_type([T|Ts]) ->
+    [[leaf("=> "),ltype(T)] | ltypes(Ts, fun union_elem/1)].
 
 record_type(Name, Fields) ->
     {first,[record_name(Name)],field_types(Fields)}.
-- 
cgit v1.2.3