Update merge_opts/2 function

This commit is contained in:
Feng Lee 2018-04-30 12:36:17 +08:00
parent 1630f7c9b8
commit 1fe28a7aef
1 changed files with 5 additions and 11 deletions

View File

@ -24,15 +24,9 @@
merge_opts(Defaults, Options) -> merge_opts(Defaults, Options) ->
lists:foldl( lists:foldl(
fun({Opt, Val}, Acc) -> fun({Opt, Val}, Acc) ->
case lists:keymember(Opt, 1, Acc) of lists:keystore(Opt, 1, Acc, {Opt, Val});
true -> lists:keyreplace(Opt, 1, Acc, {Opt, Val});
false -> [{Opt, Val}|Acc]
end;
(Opt, Acc) -> (Opt, Acc) ->
case lists:member(Opt, Acc) of lists:usort([Opt | Acc])
true -> Acc;
false -> [Opt | Acc]
end
end, Defaults, Options). end, Defaults, Options).
-spec(start_timer(integer(), term()) -> reference()). -spec(start_timer(integer(), term()) -> reference()).