diff -r cb822f8d52ff -r 649d87819682 gameServer/HWProtoInRoomState.hs --- a/gameServer/HWProtoInRoomState.hs Tue Apr 12 21:28:37 2011 +0400 +++ b/gameServer/HWProtoInRoomState.hs Tue Apr 12 22:31:48 2011 +0400 @@ -205,7 +205,8 @@ chans <- roomClientsChans if isMaster cl && gameinprogress rm then - return $ ModifyRoom + return $ + ModifyRoom (\r -> r{ gameinprogress = False, readyPlayers = 0,