From: Mickael Remond <mremond@process-one.net>
Date: Tue, 26 Jul 2016 09:57:38 +0000 (+0200)
Subject: Fix list appending bug
X-Git-Tag: 16.08~15^2~4
X-Git-Url: https://granicus.if.org/sourcecode?a=commitdiff_plain;h=12f74b4aa79054f186273bf80e8cb2a24f0000ef;p=ejabberd

Fix list appending bug
---

diff --git a/src/ejabberd_commands.erl b/src/ejabberd_commands.erl
index 9496fe09f..ef25be2e5 100644
--- a/src/ejabberd_commands.erl
+++ b/src/ejabberd_commands.erl
@@ -774,7 +774,7 @@ expand_commands(L, OpenCmds, UserCmds, AdminCmds, RestrictedCmds) when is_list(L
                    (admin, Acc) -> AdminCmds ++ Acc;
                    (restricted, Acc) -> RestrictedCmds ++ Acc;
                    (Command, Acc) when is_atom(Command) ->
-                        [Command, Acc]
+                        [Command|Acc]
                 end, [], L).
 
 oauth_token_user(noauth) ->