From: Badlop <badlop@process-one.net>
Date: Fri, 18 Oct 2019 09:52:03 +0000 (+0200)
Subject: Flatten strings in ejabberd_xmlrpc error results
X-Git-Url: https://granicus.if.org/sourcecode?a=commitdiff_plain;h=b1d458999a28d8c295b6621a1c2937de8fa83ff2;p=ejabberd

Flatten strings in ejabberd_xmlrpc error results
---

diff --git a/src/ejabberd_xmlrpc.erl b/src/ejabberd_xmlrpc.erl
index 6e67dc4c4..9b4b119b6 100644
--- a/src/ejabberd_xmlrpc.erl
+++ b/src/ejabberd_xmlrpc.erl
@@ -342,8 +342,12 @@ process_unicode_codepoints(Str) ->
 %% Result
 %% -----------------------------
 
+format_result({error, Error}, _) when is_list(Error) ->
+    throw({error, lists:flatten(Error)});
 format_result({error, Error}, _) ->
     throw({error, Error});
+format_result({error, _Type, _Code, Error}, _) when is_list(Error) ->
+    throw({error, lists:flatten(Error)});
 format_result({error, _Type, _Code, Error}, _) ->
     throw({error, Error});
 format_result(String, string) -> lists:flatten(String);