Fix Dialyzer warning and slightly reformat code

This commit is contained in:
Tuncer Ayaz 2011-02-21 15:36:50 +01:00
parent 6f97e6e55b
commit c6f6e8a572

View file

@ -64,11 +64,15 @@ compile_lfe(Source, Target, Config) ->
Opts = [{i, "include"}, {outdir, "ebin"}, report, return] ++ Opts = [{i, "include"}, {outdir, "ebin"}, report, return] ++
rebar_config:get_list(Config, erl_opts, []), rebar_config:get_list(Config, erl_opts, []),
case lfe_comp:file(Source, Opts) of case lfe_comp:file(Source, Opts) of
{ok, _, []} -> ok; {ok, _, []} ->
ok;
{ok, _, _Warnings} -> {ok, _, _Warnings} ->
case lists:member(fail_on_warning, Opts) of case lists:member(fail_on_warning, Opts) of
true -> file:delete(Target), ?FAIL; true ->
false -> ok ok = file:delete(Target),
?FAIL;
false ->
ok
end; end;
_ -> ?FAIL _ -> ?FAIL
end end