# HG changeset patch
# User unc0rr
# Date 1223560638 0
# Node ID 19ff9bf7d69e03ce29ee3b68c7b6f318c2e63222
# Parent  ae291cfd617aa792c9c2c38244257a59c5fad58f
Fix that bug (lol, pretty fast, eh?)

diff -r ae291cfd617a -r 19ff9bf7d69e 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))