better guarding of opts parsing

This commit is contained in:
alisdair sullivan 2011-08-10 23:18:42 -07:00
parent c56cf7c00b
commit 3186223fd1

View file

@ -66,11 +66,13 @@ extract_parser_opts([K|Rest], Acc) ->
parse_opts(Opts) -> parse_opts(Opts, #verify_opts{}).
parse_opts([{repeated_keys, Val}|Rest], Opts) ->
parse_opts([{repeated_keys, Val}|Rest], Opts)
when Val =:= true; Val =:= false ->
parse_opts(Rest, Opts#verify_opts{repeated_keys = Val});
parse_opts([repeated_keys|Rest], Opts) ->
parse_opts(Rest, Opts#verify_opts{repeated_keys = true});
parse_opts([{naked_values, Val}|Rest], Opts) ->
parse_opts([{naked_values, Val}|Rest], Opts)
when Val =:= true; Val =:= false ->
parse_opts(Rest, Opts#verify_opts{naked_values = Val});
parse_opts([naked_values|Rest], Opts) ->
parse_opts(Rest, Opts#verify_opts{naked_values = true});