aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorFredrik Gustafsson <[email protected]>2013-03-12 10:11:08 +0100
committerFredrik Gustafsson <[email protected]>2013-03-12 10:11:08 +0100
commit9bcc7fe4e2983827bfb1fcb09963a49dfaf9a2d6 (patch)
tree2ffff9ee7c5174842646fe428150a85c24fecbf6
parentf1ec39a01acbaf60ba4b39b05225d43af853ac45 (diff)
parentc80de7659717c3cb3d0ec4fa49e19124f4f957f8 (diff)
downloadotp-9bcc7fe4e2983827bfb1fcb09963a49dfaf9a2d6.tar.gz
otp-9bcc7fe4e2983827bfb1fcb09963a49dfaf9a2d6.tar.bz2
otp-9bcc7fe4e2983827bfb1fcb09963a49dfaf9a2d6.zip
Merge branch 'ats/observer_tv_improper_lists/OTP-10931' into maint
* ats/observer_tv_improper_lists/OTP-10931: Fix observer table viewer crash on formatting improper lists
-rw-r--r--lib/observer/src/observer_tv_table.erl4
1 files changed, 3 insertions, 1 deletions
diff --git a/lib/observer/src/observer_tv_table.erl b/lib/observer/src/observer_tv_table.erl
index 5d1ab2e946..83619414ad 100644
--- a/lib/observer/src/observer_tv_table.erl
+++ b/lib/observer/src/observer_tv_table.erl
@@ -784,8 +784,10 @@ format_list(List) ->
make_list([Last]) ->
[format(Last), $]];
+make_list([Head|Tail]) when is_list(Tail) ->
+ [format(Head), $,|make_list(Tail)];
make_list([Head|Tail]) ->
- [format(Head), $,|make_list(Tail)].
+ [format(Head), $|, format(Tail), $]].
map_printable_list([$\n|Cs]) ->
[$\\, $n|map_printable_list(Cs)];