Disable server_host warnings

This commit is contained in:
Alexey Shchepin 2017-11-02 19:48:35 +03:00
parent 78dfb832b8
commit 79a9a0ed29
1 changed files with 9 additions and 0 deletions

View File

@ -701,8 +701,17 @@ filter_upsert_sh(Table, ParseRes) ->
end, ParseRes)
end.
-ifdef(ENABLE_PT_WARNINGS).
add_warning(Pos, Warning) ->
Marker = erl_syntax:revert(
erl_syntax:warning_marker({Pos, ?MODULE, Warning})),
put(warnings, [Marker | get(warnings)]),
ok.
-else.
add_warning(_Pos, _Warning) ->
ok.
-endif.