From ee0a8d296608920d9c167534d4279ac5b3bc4040 Mon Sep 17 00:00:00 2001
From: Evgeniy Khramtsov <ekhramtsov@process-one.net>
Date: Fri, 18 Aug 2017 10:20:27 +0300
Subject: Preserve correct order of deserialized XML elements

Fixes #1939
---
 src/prosody2ejabberd.erl | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'src')

diff --git a/src/prosody2ejabberd.erl b/src/prosody2ejabberd.erl
index b6647675f..2c7dabb48 100644
--- a/src/prosody2ejabberd.erl
+++ b/src/prosody2ejabberd.erl
@@ -518,5 +518,5 @@ deserialize([{_, S}|T], #xmlel{children = Els} = El, Acc) when is_binary(S) ->
     deserialize(T, El#xmlel{children = [{xmlcdata, S}|Els]}, Acc);
 deserialize([{_, L}|T], #xmlel{children = Els} = El, Acc) when is_list(L) ->
     deserialize(T, El#xmlel{children = deserialize(L) ++ Els}, Acc);
-deserialize([], El, Acc) ->
-    [El|Acc].
+deserialize([], #xmlel{children = Els} = El, Acc) ->
+    [El#xmlel{children = lists:reverse(Els)}|Acc].
-- 
cgit v1.2.3