github/rebar
1
0
Fork 0
mirror of https://github.com/correl/rebar.git synced 2024-12-18 11:06:20 +00:00
Code Issues Projects Releases Packages Wiki Activity

Abort if dialyze emits warnings

Browse source
This commit is contained in:
Tuncer Ayaz 2011-05-25 12:08:55 +02:00
parent 8e8c540347
commit d7f5016920
1 changed files with 10 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

16
src/rebar_dialyzer.erl
View file

@ -55,7 +55,7 @@
-include("rebar.hrl").
-type(warning() :: {atom(), {string(), integer()}, any()}).
-type warning() :: {atom(), {string(), integer()}, any()}.
%% ===================================================================
%% Public API
@ -84,7 +84,10 @@ dialyze(Config, File) ->
end,
?DEBUG("DialyzerOpts: ~p~n", [DialyzerOpts]),
try dialyzer:run(DialyzerOpts) of
Warnings -> output_warnings(Warnings)
[] ->
ok;
Warnings ->
print_warnings(Warnings)
catch
throw:{dialyzer_error, Reason} ->
?ABORT("~s~n", [Reason])
@ -116,7 +119,7 @@ dialyze(Config, File) ->
[] ->
?INFO("The built PLT can be found in ~s~n", [Plt]);
_ ->
output_warnings(Warnings)
print_warnings(Warnings)
end,
ok.
@ -147,11 +150,12 @@ app_dirs(Apps) ->
|| Path <- [code:lib_dir(App) || App <- Apps], erlang:is_list(Path)].
%% @doc Render the warnings on the console.
-spec output_warnings(Warnings::[warning()]) -> 'ok'.
output_warnings(Warnings) ->
-spec print_warnings(Warnings::[warning(), ...]) -> no_return().
print_warnings(Warnings) ->
lists:foreach(fun(Warning) ->
?CONSOLE("~s", [dialyzer:format_warning(Warning)])
end, Warnings).
end, Warnings),
?FAIL.
%% @doc If the plt option is present in rebar.config return its value,
%% otherwise return $HOME/.dialyzer_plt or $REBAR_PLT_DIR/.dialyzer_plt.