Fix pattern matching in otp_event_level/2
Project: http://git-wip-us.apache.org/repos/asf/couchdb-twig/repo Commit: http://git-wip-us.apache.org/repos/asf/couchdb-twig/commit/827b13ba Tree: http://git-wip-us.apache.org/repos/asf/couchdb-twig/tree/827b13ba Diff: http://git-wip-us.apache.org/repos/asf/couchdb-twig/diff/827b13ba Branch: refs/heads/import Commit: 827b13bae335fbaf3e32fbefaa6c0d6b670602b1 Parents: 54e963a Author: Adam Kocoloski <[email protected]> Authored: Thu Mar 10 11:42:31 2011 -0500 Committer: Adam Kocoloski <[email protected]> Committed: Thu Mar 10 11:42:31 2011 -0500 ---------------------------------------------------------------------- src/twig_event_handler.erl | 24 ++++++++++++------------ 1 file changed, 12 insertions(+), 12 deletions(-) ---------------------------------------------------------------------- http://git-wip-us.apache.org/repos/asf/couchdb-twig/blob/827b13ba/src/twig_event_handler.erl ---------------------------------------------------------------------- diff --git a/src/twig_event_handler.erl b/src/twig_event_handler.erl index 227c03f..cd61b0d 100644 --- a/src/twig_event_handler.erl +++ b/src/twig_event_handler.erl @@ -142,18 +142,18 @@ message(Format, Args) when is_list(Format) -> message(Format, Args) -> {unknown, twig_util:format("~2048.0p ~2048.0p", [Format, Args])}. -otp_event_level(error, _) -> ?LEVEL_ERR; -otp_event_level(warning_msg, _) -> ?LEVEL_WARN; -otp_event_level(info_msg, _) -> ?LEVEL_INFO; -otp_event_level(_, {_, crash_report, _}) -> ?LEVEL_CRIT; -otp_event_level(_, {_, supervisor_report, _}) -> ?LEVEL_WARN; -otp_event_level(_, {_, supervisor, _}) -> ?LEVEL_WARN; -otp_event_level(_, {_, progress_report, _}) -> ?LEVEL_DEBUG; -otp_event_level(_, {_, progress, _}) -> ?LEVEL_DEBUG; -otp_event_level(error_report, _) -> ?LEVEL_ERR; -otp_event_level(warning_report, _) -> ?LEVEL_WARN; -otp_event_level(info_report, _) -> ?LEVEL_INFO; -otp_event_level(_, _) -> ?LEVEL_DEBUG. +otp_event_level(_, crash_report) -> ?LEVEL_CRIT; +otp_event_level(_, supervisor_report) -> ?LEVEL_WARN; +otp_event_level(_, supervisor) -> ?LEVEL_WARN; +otp_event_level(_, progress_report) -> ?LEVEL_DEBUG; +otp_event_level(_, progress) -> ?LEVEL_DEBUG; +otp_event_level(error, _) -> ?LEVEL_ERR; +otp_event_level(warning_msg, _) -> ?LEVEL_WARN; +otp_event_level(info_msg, _) -> ?LEVEL_NOTICE; +otp_event_level(error_report, _) -> ?LEVEL_ERR; +otp_event_level(warning_report, _) -> ?LEVEL_WARN; +otp_event_level(info_report, _) -> ?LEVEL_NOTICE; +otp_event_level(_, _) -> ?LEVEL_DEBUG. get_value(Key, Props) -> case lists:keyfind(Key, 1, Props) of
