From fec3742aaacbfac48266afe72e64a3a9f5562d02 Mon Sep 17 00:00:00 2001
From: Badlop <badlop@process-one.net>
Date: Wed, 6 May 2009 16:54:43 +0000
Subject: Replace TYPE/1 with is_TYPE/1 (EJAB-922)

SVN Revision: 2057
---
 src/odbc/odbc_queries.erl | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'src/odbc')

diff --git a/src/odbc/odbc_queries.erl b/src/odbc/odbc_queries.erl
index b878184a8..ef1f59218 100644
--- a/src/odbc/odbc_queries.erl
+++ b/src/odbc/odbc_queries.erl
@@ -652,7 +652,7 @@ get_and_del_spool_msg_t(LServer, Username) ->
     [Result] = case ejabberd_odbc:sql_query(
 		    LServer,
 		    ["EXECUTE dbo.get_and_del_spool_msg '", Username, "'"]) of
-		   Rs when list(Rs) ->
+		   Rs when is_list(Rs) ->
 		     lists:filter(fun({selected, _Header, _Row}) ->
 					  true;
 				     ({updated, _N}) ->
-- 
cgit v1.2.3