# HG changeset patch
# User unc0rr
# Date 1361396224 -14400
# Node ID 5e7f01d78ab06691d8bee7bafcd2c79586de3900
# Parent  124b49fa408ba48a21279a65081158fee4832594
Unbreak build

diff -r 124b49fa408b -r 5e7f01d78ab0 gameServer/HWProtoInRoomState.hs
--- a/gameServer/HWProtoInRoomState.hs	Thu Feb 21 01:35:14 2013 +0400
+++ b/gameServer/HWProtoInRoomState.hs	Thu Feb 21 01:37:04 2013 +0400
@@ -80,7 +80,7 @@
                 AnswerClients othChans $ teamToNet $ newTeam,
                 AnswerClients roomChans ["TEAM_COLOR", tName, teamColor],
                 ModifyClient $ \c -> c{actionsPending = actionsPending cl
-                    ++ AnswerClients clChan ["HH_NUM", tName, showB $ hhnum newTeam]},
+                    ++ [AnswerClients clChan ["HH_NUM", tName, showB $ hhnum newTeam]]},
                 AnswerClients [sendChan cl] ["PING"]
                 ]
         where