diff --git a/src/ejabberd_commands.erl b/src/ejabberd_commands.erl index 6147dc140..4e06171b6 100644 --- a/src/ejabberd_commands.erl +++ b/src/ejabberd_commands.erl @@ -592,7 +592,7 @@ get_commands() -> UserCmds = [N || {N, _, _, user} <- CommandsList], Cmds = lists:foldl( - fun({add_commands, L}, Acc) -> + fun([{add_commands, L}], Acc) -> Cmds = case L of open -> OpenCmds; restricted -> RestrictedCmds; @@ -601,7 +601,7 @@ get_commands() -> _ when is_list(L) -> L end, lists:usort(Cmds ++ Acc); - ({remove_commands, L}, Acc) -> + ([{remove_commands, L}], Acc) -> Cmds = case L of open -> OpenCmds; restricted -> RestrictedCmds;