--- a/gameServer/ServerCore.hs	Sun Apr 03 16:31:40 2011 +0400
+++ b/gameServer/ServerCore.hs	Sun Apr 03 16:31:48 2011 +0400
@@ -42,11 +42,10 @@
 
         ClientMessage (ci, cmd) -> do
             liftIO $ debugM "Clients" $ show ci ++ ": " ++ show cmd
-
+            
             removed <- gets removedClients
             unless (ci `Set.member` removed) $ do
-                as <- get
-                put $! as{clientIndex = Just ci}
+                modify (\s -> s{clientIndex = Just ci})
                 reactCmd cmd
 
         Remove ci ->
@@ -56,8 +55,7 @@
             rnc <- gets roomsClients
             exists <- liftIO $ clientExists rnc ci
             when exists $ do
-                as <- get
-                put $! as{clientIndex = Just ci}
+                modify (\s -> s{clientIndex = Just ci})
                 uid' <- client's clUID
                 when (uid == hashUnique uid') $ processAction (ProcessAccountInfo info)
                 return ()