diff options
| author | Evgeniy Khramtsov <ekhramtsov@process-one.net> | 2013-12-10 17:40:43 +1000 |
|---|---|---|
| committer | Evgeniy Khramtsov <ekhramtsov@process-one.net> | 2013-12-10 21:44:46 +1000 |
| commit | d03de1bb436760afd9cb80f51d367009985fffba (patch) | |
| tree | 8672de361abeb550be9e891416376a61c56ab45c /src/ejabberd_web_admin.erl | |
| parent | Add ejabberd_xmlrpc (diff) | |
Fix some type specs and errors13.12
Diffstat (limited to 'src/ejabberd_web_admin.erl')
| -rw-r--r-- | src/ejabberd_web_admin.erl | 10 |
1 files changed, 2 insertions, 8 deletions
diff --git a/src/ejabberd_web_admin.erl b/src/ejabberd_web_admin.erl index 5744a0866..a1c4b25a9 100644 --- a/src/ejabberd_web_admin.erl +++ b/src/ejabberd_web_admin.erl @@ -646,10 +646,7 @@ process_admin(Host, {ok, Tokens, _} -> case erl_parse:parse_term(Tokens) of {ok, NewACLs} -> - case acl:add_list(Host, NewACLs, true) of - ok -> ok; - _ -> error - end; + acl:add_list(Host, NewACLs, true); _ -> error end; _ -> error @@ -689,10 +686,7 @@ process_admin(Host, {'EXIT', _} -> error; NewACLs -> ?INFO_MSG("NewACLs at ~s: ~p", [Host, NewACLs]), - case acl:add_list(Host, NewACLs, true) of - ok -> ?INFO_MSG("NewACLs: ok", []), ok; - _ -> error - end + acl:add_list(Host, NewACLs, true) end; _ -> nothing end, |