gameServer/HWProtoInRoomState.hs
changeset 7321 57bd4f201401
parent 7266 74ad631a72bf
child 7537 833a0c34fafc
--- a/gameServer/HWProtoInRoomState.hs	Wed Jun 27 16:40:36 2012 -0400
+++ b/gameServer/HWProtoInRoomState.hs	Thu Jun 28 22:45:06 2012 +0400
@@ -79,10 +79,10 @@
         hhsList [_] = error "Hedgehogs list with odd elements number"
         hhsList (n:h:hhs) = HedgehogInfo n h : hhsList hhs
         newTeamHHNum r = min 4 (canAddNumber r)
-        maxTeams r 
+        maxTeams r
             | roomProto r < 38 = 6
             | otherwise = 8
-                
+
 
 handleCmd_inRoom ["REMOVE_TEAM", tName] = do
         (ci, _) <- ask
@@ -171,7 +171,7 @@
     cl <- thisClient
     rm <- thisRoom
     chans <- roomClientsChans
-    
+
     let allPlayersRegistered = all ((<) 0 . B.length . webPassword . client rnc . teamownerId) $ teams rm
 
     if isMaster cl && playersIn rm == readyPlayers rm && not (isJust $ gameInfo rm) then
@@ -247,7 +247,7 @@
     rs <- allRoomInfos
     rm <- thisRoom
     chans <- sameProtoChans
-    
+
     return $
         if not $ isMaster cl then
             [ProtocolError "Not room master"]