# HG changeset patch
# User unc0rr
# Date 1390717242 -14400
# Node ID ca67740f19b270c8cfec70a362e97d3b07ae5b78
# Parent  b235e520ea2100600fe6336c81aaa0549b46692e
ADMIN_ACCESS is deprecated long ago

diff -r b235e520ea21 -r ca67740f19b2 gameServer/HWProtoNEState.hs
--- a/gameServer/HWProtoNEState.hs	Sun Jan 26 02:17:04 2014 +0400
+++ b/gameServer/HWProtoNEState.hs	Sun Jan 26 10:20:42 2014 +0400
@@ -58,10 +58,10 @@
     let serverHash = h [serverSalt cl, clientSalt, webPassword cl, showB $ clientProto cl, "!hedgewars"]
 
     if passwd == clientHash then
-        return $
+        return [
             AnswerClients [sendChan cl] ["SERVER_AUTH", serverHash] 
-            : JoinLobby
-            : [AnswerClients [sendChan cl] ["ADMIN_ACCESS"] | isAdministrator cl]
+            , JoinLobby
+            ]
         else
         return [ByeClient "Authentication failed"]
     where