24
1
mirror of https://github.com/processone/ejabberd.git synced 2024-06-14 22:00:16 +02:00

Replace TYPE/1 with is_TYPE/1 (EJAB-922)

SVN Revision: 2160
This commit is contained in:
Badlop 2009-06-15 17:27:06 +00:00
parent 2f3963417f
commit b4a1b4c8fb
2 changed files with 3 additions and 3 deletions

View File

@ -46,7 +46,7 @@ pids() ->
lists:zf(
fun(Pid) ->
case process_info(Pid) of
ProcessInfo when list(ProcessInfo) ->
ProcessInfo when is_list(ProcessInfo) ->
CurrentFunction = current_function(ProcessInfo),
InitialCall = initial_call(ProcessInfo),
RegisteredName = registered_name(ProcessInfo),

View File

@ -699,7 +699,7 @@ recvd_packet(Pkt, S) ->
Answer =
case {Name, Op} of
{searchRequest, {searchResEntry, R}} when
record(R,'SearchResultEntry') ->
is_record(R,'SearchResultEntry') ->
New_dict = dict:append(Id, R, Dict),
{ok, S#eldap{dict = New_dict}};
{searchRequest, {searchResDone, Result}} ->
@ -1059,7 +1059,7 @@ get_list(Key, List) ->
get_atom(Key, List) ->
case lists:keysearch(Key, 1, List) of
{value, {Key, Value}} when atom(Value) ->
{value, {Key, Value}} when is_atom(Value) ->
Value;
{value, {Key, _Value}} ->
throw({error, "Bad Value in Config for " ++ atom_to_list(Key)});