From bf6e5a0d26104ba421450789baefeb99a5c8db43 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Micka=C3=ABl=20R=C3=A9mond?=
 <mickael.remond@process-one.net>
Date: Mon, 30 Jul 2007 11:06:50 +0000
Subject: * src/acl.erl: Remove compilation warnings (EJAB-290).

SVN Revision: 840
---
 src/acl.erl | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'src')

diff --git a/src/acl.erl b/src/acl.erl
index a4417a59..61853ea0 100644
--- a/src/acl.erl
+++ b/src/acl.erl
@@ -115,7 +115,7 @@ match_rule(Host, Rule, JID) ->
 	    end
     end.
 
-match_acls([], _, Host) ->
+match_acls([], _, _Host) ->
     deny;
 match_acls([{Access, ACL} | ACLs], JID, Host) ->
     case match_acl(ACL, JID, Host) of
@@ -130,7 +130,7 @@ match_acl(ACL, JID, Host) ->
 	all -> true;
 	none -> false;
 	_ ->
-	    {User, Server, Resource} = jlib:jid_tolower(JID),
+	    {User, Server, _Resource} = jlib:jid_tolower(JID),
 	    lists:any(fun(#acl{aclspec = Spec}) ->
 			      case Spec of
 				  all ->
-- 
cgit v1.2.3