Extract value from KV returned y keyfind/3
Project: http://git-wip-us.apache.org/repos/asf/couchdb-twig/repo Commit: http://git-wip-us.apache.org/repos/asf/couchdb-twig/commit/649e8cca Tree: http://git-wip-us.apache.org/repos/asf/couchdb-twig/tree/649e8cca Diff: http://git-wip-us.apache.org/repos/asf/couchdb-twig/diff/649e8cca Branch: refs/heads/import Commit: 649e8cca26cbc12e4480d193c2e3e9c939fd1ed7 Parents: 4498ce3 Author: Adam Kocoloski <[email protected]> Authored: Tue Mar 8 13:39:45 2011 -0500 Committer: Adam Kocoloski <[email protected]> Committed: Tue Mar 8 13:39:45 2011 -0500 ---------------------------------------------------------------------- src/twig_event_handler.erl | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) ---------------------------------------------------------------------- http://git-wip-us.apache.org/repos/asf/couchdb-twig/blob/649e8cca/src/twig_event_handler.erl ---------------------------------------------------------------------- diff --git a/src/twig_event_handler.erl b/src/twig_event_handler.erl index e908452..98735fc 100644 --- a/src/twig_event_handler.erl +++ b/src/twig_event_handler.erl @@ -117,12 +117,12 @@ write(Level, {Format0, Args0}, State) -> message(_Pid, crash_report, Report) -> proc_lib:format(Report); message(Pid, supervisor_report, Report) -> - Name = lists:keyfind(supervisor, 1, Report), - Error = lists:keyfind(errorContext, 1, Report), - Reason = lists:keyfind(reason, 1, Report), - Offender = lists:keyfind(offender, 1, Report), - ChildPid = lists:keyfind(pid, 1, Offender), - ChildName = lists:keyfind(name, 1, Offender), + {_, Name} = lists:keyfind(supervisor, 1, Report), + {_, Error} = lists:keyfind(errorContext, 1, Report), + {_, Reason} = lists:keyfind(reason, 1, Report), + {_, Offender} = lists:keyfind(offender, 1, Report), + {_, ChildPid} = lists:keyfind(pid, 1, Offender), + {_, ChildName} = lists:keyfind(name, 1, Offender), {M,F,_} = lists:keyfind(mfa, 1, Offender), {"[~p] SUPERVISOR REPORT ~p ~p (~p) child: ~p [~p] ~p:~p", [Pid, Name, Error, Reason, ChildName, ChildPid, M, F]};
