umgeher/jsx
0
Fork 0
Code Issues Pull requests Activity

minor fixups to spec/api

Browse source
This commit is contained in:
alisdair sullivan 2011-08-19 20:13:49 -07:00
parent 6c3aee2835
commit affdd3cc62
2 changed files with 3 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

7
src/jsx_verify.erl
View file

@ -35,17 +35,14 @@
-spec is_json(JSON::binary(), Opts::verify_opts()) -> true | false
; (Terms::list(jsx_encodeable()), Opts::verify_opts()) -> true | false
; (F::jsx_iterator(), Opts::verify_opts()) -> true | false.
; (Terms::list(jsx_encodeable()), Opts::verify_opts()) -> true | false.
is_json(JSON, OptsList) when is_binary(JSON) ->
F = jsx:decoder(extract_parser_opts(OptsList)),
verify(F(JSON), parse_opts(OptsList));
is_json(JSON, OptsList) when is_list(JSON) ->
F = jsx:encoder(extract_parser_opts(OptsList)),
verify(F(JSON), parse_opts(OptsList));
is_json(F, OptsList) when is_function(F) ->
verify(jsx_utils:collect(F), parse_opts(OptsList)).
verify(F(JSON), parse_opts(OptsList)).
extract_parser_opts(Opts) ->