Chapril/xmpp.chapril.org-ejabberd
25
1
Fork 0
mirror of https://github.com/processone/ejabberd.git synced 2024-11-24 16:23:40 +01:00
Code Releases Activity

Make map syntax compatible with Erlang/OTP 17

Browse Source
This commit is contained in:
Holger Weiss 2016-10-07 00:36:47 +02:00
parent e54ba3db5b
commit d701230555
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
src/ejabberd_access_permissions.erl
View File

@ -506,9 +506,9 @@ is_valid_command_name2(_) ->
key_split(Args, Fields) -> key_split(Args, Fields) ->
{_, Order1, Results1, Required1} = lists:foldl( {_, Order1, Results1, Required1} = lists:foldl(
fun({Field, Default}, {Idx, Order, Results, Required}) -> fun({Field, Default}, {Idx, Order, Results, Required}) ->
{Idx + 1, Order#{Field => Idx}, [Default | Results], Required}; {Idx + 1, maps:put(Field, Idx, Order), [Default | Results], Required};
(Field, {Idx, Order, Results, Required}) -> (Field, {Idx, Order, Results, Required}) ->
{Idx + 1, Order#{Field => Idx}, [none | Results], Required#{Field => 1}} {Idx + 1, maps:put(Field, Idx, Order), [none | Results], maps:put(Field, 1, Required)}
end, {1, #{}, [], #{}}, Fields), end, {1, #{}, [], #{}}, Fields),
key_split(Args, list_to_tuple(Results1), Order1, Required1, #{}). key_split(Args, list_to_tuple(Results1), Order1, Required1, #{}).
@ -522,7 +522,7 @@ key_split([{Arg, Value} | Rest], Results, Order, Required, Duplicates) ->
case maps:is_key(Arg, Duplicates) of case maps:is_key(Arg, Duplicates) of
false -> false ->
Results2 = setelement(Idx, Results, Value), Results2 = setelement(Idx, Results, Value),
key_split(Rest, Results2, Order, maps:remove(Arg, Required), Duplicates#{Arg => 1}); key_split(Rest, Results2, Order, maps:remove(Arg, Required), maps:put(Arg, 1, Duplicates));
true -> true ->
parse_error(<<"Duplicate field '~s'">>, [Arg]) parse_error(<<"Duplicate field '~s'">>, [Arg])
end; end;