gameServer/HWProtoLobbyState.hs
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})
             ]