Fix issues found by dialyzer

This commit is contained in:
Tuncer Ayaz 2010-10-10 23:24:20 +02:00
parent 852edb0e63
commit c2917b31d4
2 changed files with 6 additions and 5 deletions

View file

@ -129,12 +129,12 @@ doterl_compile(Config, OutDir, MoreSources) ->
%% Make sure that ebin/ exists and is on the path %% Make sure that ebin/ exists and is on the path
ok = filelib:ensure_dir(filename:join("ebin", "dummy.beam")), ok = filelib:ensure_dir(filename:join("ebin", "dummy.beam")),
CurrPath = code:get_path(), CurrPath = code:get_path(),
code:add_path("ebin"), true = code:add_path("ebin"),
rebar_base_compiler:run(Config, NewFirstErls, OtherErls, rebar_base_compiler:run(Config, NewFirstErls, OtherErls,
fun(S, C) -> internal_erl_compile(S, C, OutDir, fun(S, C) -> internal_erl_compile(S, C, OutDir,
ErlOpts) ErlOpts)
end), end),
code:set_path(CurrPath), true = code:set_path(CurrPath),
ok. ok.
@ -298,11 +298,12 @@ delete_dir(Dir, Subdirs) ->
lists:foreach(fun(D) -> delete_dir(D, dirs(D)) end, Subdirs), lists:foreach(fun(D) -> delete_dir(D, dirs(D)) end, Subdirs),
file:del_dir(Dir). file:del_dir(Dir).
-spec compile_priority(File::string()) -> pos_integer(). -spec compile_priority(File::string()) -> 'normal' | 'behaviour' |
'parse_transform'.
compile_priority(File) -> compile_priority(File) ->
case epp_dodger:parse_file(File) of case epp_dodger:parse_file(File) of
{error, _} -> {error, _} ->
10; % couldn't parse the file, default priority normal; % couldn't parse the file, default priority
{ok, Trees} -> {ok, Trees} ->
F2 = fun({tree,arity_qualifier,_, F2 = fun({tree,arity_qualifier,_,
{arity_qualifier,{tree,atom,_,behaviour_info}, {arity_qualifier,{tree,atom,_,behaviour_info},

View file

@ -42,7 +42,7 @@
xref(Config, _) -> xref(Config, _) ->
%% Spin up xref %% Spin up xref
xref:start(xref), {ok, _} = xref:start(xref),
ok = xref:set_library_path(xref, code_path()), ok = xref:set_library_path(xref, code_path()),
xref:set_default(xref, [{warnings, rebar_config:get(Config, xref_warnings, false)}, xref:set_default(xref, [{warnings, rebar_config:get(Config, xref_warnings, false)},
{verbose, rebar_config:is_verbose()}]), {verbose, rebar_config:is_verbose()}]),