ADMIN_ACCESS is deprecated long ago
authorunc0rr
Sun, 26 Jan 2014 10:20:42 +0400
changeset 10077 ca67740f19b2
parent 10076 b235e520ea21
child 10078 8572d1f8b2f0
ADMIN_ACCESS is deprecated long ago
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