changeset 7862 | bd76ca40db68 |
parent 7775 | 835ad028fb66 |
child 8154 | 0ea76ea45e6a |
--- a/gameServer/HWProtoLobbyState.hs Sun Oct 28 20:35:08 2012 +0100 +++ b/gameServer/HWProtoLobbyState.hs Sun Oct 28 23:43:56 2012 +0400 @@ -53,7 +53,7 @@ [ AddRoom rName roomPassword , AnswerClients [sendChan cl] ["CLIENT_FLAGS", "+hr", nick cl] - , ModifyClient (\cl -> cl{isMaster = True, isReady = True}) + , ModifyClient (\c -> c{isMaster = True, isReady = True}) , ModifyRoom (\r -> r{readyPlayers = 1}) ]