# HG changeset patch
# User unc0rr
# Date 1340338431 -14400
# Node ID 74ad631a72bf0e4beda2150ea127ee98e7b42b61
# Parent  3f96073156e1ef2227bf1cf6d8900ae09f0bc948
Swap order of actions

diff -r 3f96073156e1 -r 74ad631a72bf gameServer/HWProtoInRoomState.hs
--- a/gameServer/HWProtoInRoomState.hs	Tue Jun 19 01:20:19 2012 +0400
+++ b/gameServer/HWProtoInRoomState.hs	Fri Jun 22 08:13:51 2012 +0400
@@ -158,8 +158,8 @@
     cl <- thisClient
     chans <- roomClientsChans
     return [
+        ModifyRoom (\r -> r{readyPlayers = readyPlayers r + (if isReady cl then -1 else 1)}),
         ModifyClient (\c -> c{isReady = not $ isReady cl}),
-        ModifyRoom (\r -> r{readyPlayers = readyPlayers r + (if isReady cl then -1 else 1)}),
         AnswerClients chans $ if clientProto cl < 38 then
                 [if isReady cl then "NOT_READY" else "READY", nick cl]
                 else