From 9df26a57405194efab00cb5a1ecea0c29b4ab2b5 Mon Sep 17 00:00:00 2001
From: Badlop <badlop@process-one.net>
Date: Wed, 2 Oct 2019 13:51:26 +0200
Subject: [PATCH] Update ejabberd_xmlrpc to handle binaries in restuple result
 (#3048)

---
 src/ejabberd_xmlrpc.erl | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/ejabberd_xmlrpc.erl b/src/ejabberd_xmlrpc.erl
index afbe61f34..6e67dc4c4 100644
--- a/src/ejabberd_xmlrpc.erl
+++ b/src/ejabberd_xmlrpc.erl
@@ -371,7 +371,7 @@ format_result(Code, {Name, rescode}) ->
 format_result({Code, Text}, {Name, restuple}) ->
     {struct,
      [{Name, make_status(Code)},
-      {text, lists:flatten(Text)}]};
+      {text, io_lib:format("~ts", [Text])}]};
 format_result(Elements, {Name, {list, ElementsDef}}) ->
     FormattedList = lists:map(fun (Element) ->
 				      format_result(Element, ElementsDef)