mirror of
https://github.com/correl/rebar.git
synced 2024-11-14 19:19:30 +00:00
Adding fail_on_warning support
This commit is contained in:
parent
d6600ab506
commit
417ff3ad76
1 changed files with 26 additions and 8 deletions
|
@ -111,11 +111,19 @@ compile_opts(Config, Key) ->
|
|||
rebar_config:get_list(Config, Key, []).
|
||||
|
||||
compile_erl(Source, Config) ->
|
||||
Opts = [{i, "include"}, {outdir, "ebin"}, report] ++ compile_opts(Config, erl_opts),
|
||||
Opts = [{i, "include"}, {outdir, "ebin"}, report, return] ++ compile_opts(Config, erl_opts),
|
||||
case compile:file(Source, Opts) of
|
||||
{ok, _} ->
|
||||
{ok, _, []} ->
|
||||
ok;
|
||||
error ->
|
||||
{ok, _, _Warnings} ->
|
||||
%% We got at least one warning -- if fail_on_warning is in options, fail
|
||||
case lists:member(fail_on_warning, Opts) of
|
||||
true ->
|
||||
?FAIL;
|
||||
false ->
|
||||
ok
|
||||
end;
|
||||
_ ->
|
||||
?FAIL
|
||||
end.
|
||||
|
||||
|
@ -141,6 +149,10 @@ compile_queue(Pids, Targets, Config, CompileFn) ->
|
|||
Worker ! {compile, Src, Target, Config, CompileFn},
|
||||
compile_queue(Pids, Rest, Config, CompileFn)
|
||||
end;
|
||||
|
||||
{fail, Error} ->
|
||||
?DEBUG("Worker compilation failed: ~p\n", [Error]),
|
||||
?FAIL;
|
||||
|
||||
{compiled, Source} ->
|
||||
?CONSOLE("Compiled ~s\n", [Source]),
|
||||
|
@ -162,13 +174,19 @@ compile_worker(QueuePid) ->
|
|||
{compile, Src, Target, Config, CompileFn} ->
|
||||
case needs_compile(Src, Target) of
|
||||
true ->
|
||||
CompileFn(Src, Config),
|
||||
QueuePid ! {compiled, Src};
|
||||
case catch(CompileFn(Src, Config)) of
|
||||
ok ->
|
||||
QueuePid ! {compiled, Src},
|
||||
compile_worker(QueuePid);
|
||||
Error ->
|
||||
QueuePid ! {fail, Error},
|
||||
ok
|
||||
end;
|
||||
false ->
|
||||
?INFO("Skipping ~s\n", [Src]),
|
||||
ok
|
||||
end,
|
||||
compile_worker(QueuePid);
|
||||
compile_worker(QueuePid)
|
||||
end;
|
||||
|
||||
empty ->
|
||||
ok
|
||||
end.
|
||||
|
|
Loading…
Reference in a new issue