gameServer/Actions.hs
changeset 8396 5123eac2f9d6
parent 8372 3c193ec03e09
child 8401 87410ae372f6
--- a/gameServer/Actions.hs	Thu Jan 17 18:12:30 2013 +0100
+++ b/gameServer/Actions.hs	Thu Jan 17 23:17:39 2013 +0400
@@ -459,7 +459,7 @@
     isBanned = do
         processAction $ CheckBanned False
         liftM B.null $ client's nick
-    checkerLogin p False = processAction $ ByeClient "No checker rights"
+    checkerLogin _ False = processAction $ ByeClient "No checker rights"
     checkerLogin p True = do
         wp <- client's webPassword
         processAction $