--- a/gameServer/HWProtoInRoomState.hs Sun Apr 12 20:34:11 2009 +0000
+++ b/gameServer/HWProtoInRoomState.hs Mon Apr 13 09:24:56 2009 +0000
@@ -24,13 +24,9 @@
if isMaster client then
[RemoveRoom]
else
- removeClientTeams ++
[RoomRemoveThisClient]
where
client = clients IntMap.! clID
- room = rooms IntMap.! (roomID client)
- clientTeams = filter (\t -> teamowner t == nick client) $ teams room
- removeClientTeams = map (RemoveTeam . teamname) clientTeams
handleCmd_inRoom clID clients rooms ("CFG" : paramName : paramStrs) =