From: Paweł Chmielowski <pchmielowski@process-one.net>
Date: Fri, 10 Mar 2017 09:33:16 +0000 (+0100)
Subject: Improve formatting of erlang terms shown in web admin
X-Git-Tag: 17.03~36
X-Git-Url: https://granicus.if.org/sourcecode?a=commitdiff_plain;h=782caaa678fc68551360b840b039fece3f09bbc9;p=ejabberd

Improve formatting of erlang terms shown in web admin
---

diff --git a/src/ejabberd_web_admin.erl b/src/ejabberd_web_admin.erl
index 0a6f68735..ea6958633 100644
--- a/src/ejabberd_web_admin.erl
+++ b/src/ejabberd_web_admin.erl
@@ -1148,9 +1148,7 @@ term_to_string(T) ->
 
 %% @spec (T::any(), Cols::integer()) -> {NumLines::integer(), Paragraph::string()}
 term_to_paragraph(T, Cols) ->
-    P1 = erl_syntax:abstract(T),
-    P2 = erl_prettypr:format(P1, [{paper, Cols}]),
-    Paragraph = list_to_binary(P2),
+    Paragraph = iolist_to_binary(io_lib:print(T, 1, Cols, -1)),
     FieldList = ejabberd_regexp:split(Paragraph, <<"\n">>),
     NumLines = length(FieldList),
     {NumLines, Paragraph}.