gameServer/HWProtoInRoomState.hs
changeset 12119 cdadc1d487f1
parent 11580 db7743e2fad1
child 13084 81c154fd4380
--- a/gameServer/HWProtoInRoomState.hs	Fri Dec 23 23:12:00 2016 +0300
+++ b/gameServer/HWProtoInRoomState.hs	Fri Dec 23 23:29:00 2016 +0300
@@ -111,7 +111,6 @@
         clChan <- thisClientChans
         othChans <- roomOthersChans
         roomChans <- roomClientsChans
-        let isRegistered = (<) 0 . B.length . webPassword $ cl
         teamColor <-
             if clientProto cl < 42 then
                 return color
@@ -123,7 +122,7 @@
                     minimum [hhnum $ head roomTeams, canAddNumber roomTeams]
                 else
                     defaultHedgehogsNumber rm
-        let newTeam = clNick `seq` TeamInfo clNick tName teamColor grave fort voicepack flag isRegistered dif hhNum (hhsList hhsInfo)
+        let newTeam = clNick `seq` TeamInfo clNick tName teamColor grave fort voicepack flag (isRegistered cl) dif hhNum (hhsList hhsInfo)
         return $
             if not . null . drop (teamsNumberLimit rm - 1) $ roomTeams then
                 [Warning $ loc "too many teams"]