Update merge_opts/2 function
This commit is contained in:
parent
1630f7c9b8
commit
1fe28a7aef
|
@ -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()).
|
||||||
|
|
Loading…
Reference in New Issue