# 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