netserver/HWProto.hs
changeset 1402 c164f215f7d2
parent 1401 2087672a2114
child 1403 b8c921ed0f13
--- 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] =