QPQ-AG/sophia
10
0
Fork 0
Code Issues 41 Pull Requests 5 Actions Packages Projects Releases 16 Wiki Activity

Mark unused includes when used from non-included files

Browse Source
This commit is contained in:
Gaith Hallak 2022-01-30 17:11:17 +04:00
parent a3405ee0d2
commit c943148d2d
1 changed files with 7 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
src/aeso_ast_infer_types.erl
View File

@ -375,7 +375,13 @@ lookup_env(Env, Kind, Ann, Name) ->
case [ Res || QName <- Names, Res <- [lookup_env1(Env, Kind, Ann, QName)], Res /= false] of case [ Res || QName <- Names, Res <- [lookup_env1(Env, Kind, Ann, QName)], Res /= false] of
[] -> false; [] -> false;
[Res = {_, {AnnR, _}}] -> [Res = {_, {AnnR, _}}] ->
when_warning(warn_unused_includes, fun() -> used_include(AnnR) end), when_warning(warn_unused_includes,
fun() ->
case proplists:get_value(include_type, Ann, none) of
none -> used_include(AnnR);
_ -> ok
end
end),
Res; Res;
Many -> Many ->
type_error({ambiguous_name, qid(Ann, Name), [{qid, A, Q} || {Q, {A, _}} <- Many]}), type_error({ambiguous_name, qid(Ann, Name), [{qid, A, Q} || {Q, {A, _}} <- Many]}),