Mercurial Mercurial > hedgewars / diff
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | file | latest | revisions | annotate | diff | comparison | raw | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
gameServer/Actions.hs
branchserver_refactor
changeset 4573 7e3be7d7eeda
parent 4571 597440c80b8a
child 4579 4e61c2a42121 
--- a/gameServer/Actions.hs	Mon Jan 10 18:12:13 2011 +0300
+++ b/gameServer/Actions.hs	Mon Jan 10 18:14:05 2011 +0300
@@ -178,7 +178,7 @@
     (Just ci) <- gets clientIndex
     rnc <- gets roomsClients
     liftIO $ do
-        modifyClient rnc (\cl -> cl{teamsInGame = 0, isReady = false, isMaster = false}) ci
+        modifyClient rnc (\cl -> cl{teamsInGame = 0, isReady = False, isMaster = False}) ci
         modifyRoom rnc (\r -> r{playersIn = (playersIn r) + 1}) ri
 
     liftIO $ moveClientToRoom rnc ri ci
hedgewars