Fix that bug (lol, pretty fast, eh?)
authorunc0rr
Thu, 09 Oct 2008 13:57:18 +0000
changeset 1332 19ff9bf7d69e
parent 1331 ae291cfd617a
child 1333 b0b0510eb82d
Fix that bug (lol, pretty fast, eh?)
netserver/HWProto.hs
--- 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))