From 782caaa678fc68551360b840b039fece3f09bbc9 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Pawe=C5=82=20Chmielowski?= <pchmielowski@process-one.net>
Date: Fri, 10 Mar 2017 10:33:16 +0100
Subject: [PATCH] Improve formatting of erlang terms shown in web admin

---
 src/ejabberd_web_admin.erl | 4 +---
 1 file changed, 1 insertion(+), 3 deletions(-)

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}.