Improve some error log messages

This commit is contained in:
Evgeniy Khramtsov 2017-11-15 11:54:38 +03:00
parent ebb97bec44
commit 1f21f64d5f
2 changed files with 18 additions and 5 deletions

View File

@ -606,6 +606,11 @@ validate_module_option(Module, Opt, Val) ->
[Opt, Val]),
error
end;
[] ->
?ERROR_MSG("unknown listen option '~s' for '~s' will be likely "
"ignored because the listening module doesn't have "
"any options", [Opt, Module]),
{ok, Val};
KnownOpts when is_list(KnownOpts) ->
?ERROR_MSG("unknown listen option '~s' for '~s' will be likely "
"ignored, available options are: ~s",

View File

@ -526,11 +526,19 @@ validate_opts(Host, Module, Opts, Validators) when is_list(Opts) ->
end
end;
false ->
?ERROR_MSG("unknown option '~s' for module '~s' will be"
" likely ignored, available options are: ~s",
[Opt, Module,
misc:join_atoms([K || {K, _} <- Validators],
<<", ">>)]),
case Validators of
[] ->
?ERROR_MSG("unknown option '~s' for module '~s' "
"will be likely ignored because the "
"module doesn't have any options",
[Opt, Module]);
_ ->
?ERROR_MSG("unknown option '~s' for module '~s' will be"
" likely ignored, available options are: ~s",
[Opt, Module,
misc:join_atoms([K || {K, _} <- Validators],
<<", ">>)])
end,
[{Opt, Val}]
end;
(_) ->