diff -r bc3410104894 -r 772a46ef8288 gameServer/HWProtoLobbyState.hs --- a/gameServer/HWProtoLobbyState.hs Sat Jun 26 16:58:19 2010 +0400 +++ b/gameServer/HWProtoLobbyState.hs Sun Jun 27 21:06:41 2010 +0400 @@ -33,13 +33,7 @@ let roomsInfoList = concatMap (roomInfo irnc) . filter (\r -> (roomProto r == clientProto cl) && not (isRestrictedJoins r)) return [AnswerClients [sendChan cl] ("ROOMS" : roomsInfoList rooms)] where - roomInfo irnc room - | roomProto room < 28 = [ - name room, - B.pack $ show (playersIn room) ++ "(" ++ show (length $ teams room) ++ ")", - B.pack $ show $ gameinprogress room - ] - | otherwise = [ + roomInfo irnc room = [ showB $ gameinprogress room, name room, showB $ playersIn room,