umgeher/jsx
0
Fork 0
Code Issues Pull requests Activity

reject invalid opts flags more strictly

Browse source
This commit is contained in:
alisdair sullivan 2013-02-04 23:08:44 -08:00
parent eaba8c7b0f
commit 5efec8af8e
4 changed files with 42 additions and 142 deletions
Download patch file Download diff file Expand all files Collapse all files

12
src/jsx_to_json.erl
View file

@ -58,8 +58,16 @@ parse_opts([{indent, Val}|Rest], Opts) when is_integer(Val), Val > 0 ->
parse_opts(Rest, Opts#opts{indent = Val});
parse_opts([indent|Rest], Opts) ->
parse_opts(Rest, Opts#opts{indent = 1});
parse_opts([_|Rest], Opts) ->
parse_opts(Rest, Opts);
parse_opts([{K, _}|Rest] = Options, Opts) ->
case lists:member(K, jsx_utils:valid_flags()) of
true -> parse_opts(Rest, Opts)
; false -> erlang:error(badarg, [Options, Opts])
end;
parse_opts([K|Rest] = Options, Opts) ->
case lists:member(K, jsx_utils:valid_flags()) of
true -> parse_opts(Rest, Opts)
; false -> erlang:error(badarg, [Options, Opts])
end;
parse_opts([], Opts) ->
Opts.