diff -r 2087672a2114 -r c164f215f7d2 netserver/HWProto.hs --- a/netserver/HWProto.hs Wed Oct 22 21:34:03 2008 +0000 +++ b/netserver/HWProto.hs Wed Oct 22 21:41:00 2008 +0000 @@ -109,7 +109,11 @@ handleCmd_noRoom client _ rooms ["LIST"] = (noChangeClients, noChangeRooms, answerServerMessage ++ (answerRoomsList $ concatMap roomInfo $ sameProtoRooms)) where - roomInfo room = [name room, show $ playersIn room, show $ gameinprogress room] + roomInfo room = [ + name room, + (show $ playersIn room) ++ "(" ++ (show $ length $ teams room) ++ ")", + show $ gameinprogress room + ] sameProtoRooms = filter (\r -> roomProto r == protocol client) rooms handleCmd_noRoom client _ rooms ["CREATE", newRoom, roomPassword] =