--- a/netserver/HWProto.hs Thu Oct 09 13:57:02 2008 +0000
+++ b/netserver/HWProto.hs Thu Oct 09 13:57:18 2008 +0000
@@ -146,7 +146,7 @@
if length (teams clRoom) == 6 || canAddNumber <= 0 || isJust findTeam then
(noChangeClients, noChangeRooms, answerCantAdd)
else
- (noChangeClients, modifyRoom clRoom{teams = newTeam : teams clRoom}, answerTeamAccepted newTeam ++ answerAddTeam newTeam)
+ (noChangeClients, modifyRoom clRoom{teams = teams clRoom ++ [newTeam]}, answerTeamAccepted newTeam ++ answerAddTeam newTeam)
where
clRoom = roomByName (room client) rooms
newTeam = (TeamInfo (nick client) name color grave fort difficulty newTeamHHNum (hhsList hhsInfo))