umgeher/jsx
0
Fork 0
Code Issues Pull requests Activity

factor out gen_json

Browse source
This commit is contained in:
alisdair sullivan 2012-03-02 22:53:23 -08:00
parent 61ef73ff72
commit 63faf04115
8 changed files with 20 additions and 184 deletions
Download patch file Download diff file Expand all files Collapse all files

9
src/jsx_verify.erl
View file

@ -36,9 +36,12 @@
-spec is_json(Source::(binary() | list()), Opts::opts()) -> binary().
is_json(Source, Opts) when (is_binary(Source) andalso is_list(Opts))
orelse (is_list(Source) andalso is_list(Opts)) ->
try (gen_json:parser(?MODULE, Opts, jsx_utils:extract_opts(Opts)))(Source)
is_json(Source, Opts) when is_list(Source) andalso is_list(Opts) ->
try (jsx_encoder:encoder(?MODULE, init(Opts), Opts))(Source)
catch error:badarg -> false
end;
is_json(Source, Opts) when is_binary(Source) andalso is_list(Opts) ->
try (jsx_decoder:decoder(?MODULE, init(Opts), Opts))(Source)
catch error:badarg -> false
end.