diff options
| author | Kostis Sagonas <[email protected]> | 2010-02-13 10:14:46 +0100 |
|---|---|---|
| committer | Björn Gustavsson <[email protected]> | 2010-02-16 13:24:55 +0100 |
| commit | a8bf1fe3b9f5f69354403231a3c47489d9015977 (patch) | |
| tree | 973fc61192b0cad0ab3ff723d01d4653d779e8b5 /lib/percept/src/percept.erl | |
| parent | f2592e6ef6bd6179d45884794d722e8cb551d1aa (diff) | |
| download | otp-a8bf1fe3b9f5f69354403231a3c47489d9015977.tar.gz otp-a8bf1fe3b9f5f69354403231a3c47489d9015977.tar.bz2 otp-a8bf1fe3b9f5f69354403231a3c47489d9015977.zip | |
percept: Clean up as suggested by tidier
Diffstat (limited to 'lib/percept/src/percept.erl')
| -rw-r--r-- | lib/percept/src/percept.erl | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/lib/percept/src/percept.erl b/lib/percept/src/percept.erl index b0d6739478..f30c1dd585 100644 --- a/lib/percept/src/percept.erl +++ b/lib/percept/src/percept.erl @@ -251,20 +251,20 @@ trace_parser(Trace, {Count, Pid}) -> find_service_pid_from_port([], _) -> undefined; find_service_pid_from_port([{_, Pid, Options} | Services], Port) -> - case lists:keysearch(port, 1, Options) of + case lists:keyfind(port, 1, Options) of false -> find_service_pid_from_port(Services, Port); - {value, {port, Port}} -> + {port, Port} -> Pid end. find_service_port_from_pid([], _) -> undefined; find_service_port_from_pid([{_, Pid, Options} | _], Pid) -> - case lists:keysearch(port, 1, Options) of + case lists:keyfind(port, 1, Options) of false -> undefined; - {value, {port, Port}} -> + {port, Port} -> Port end; find_service_port_from_pid([{_, _, _} | Services], Pid) -> |