diff -r 6122a43d3424 -r 8bdc879ee6b2 gameServer/ServerState.hs
--- a/gameServer/ServerState.hs	Sun Jan 30 20:43:18 2011 +0300
+++ b/gameServer/ServerState.hs	Mon Jan 31 21:40:17 2011 +0300
@@ -27,13 +27,13 @@
 clientRoomA = do
     (Just ci) <- gets clientIndex
     rnc <- gets roomsClients
-    liftIO $ clientRoomM rnc ci
+    io $ clientRoomM rnc ci
 
 client's :: (ClientInfo -> a) -> StateT ServerState IO a
 client's f = do
     (Just ci) <- gets clientIndex
     rnc <- gets roomsClients
-    liftIO $ client'sM rnc f ci
+    io $ client'sM rnc f ci
 
 allClientsS :: StateT ServerState IO [ClientInfo]
 allClientsS = gets roomsClients >>= liftIO . clientsM
@@ -41,7 +41,7 @@
 roomClientsS :: RoomIndex -> StateT ServerState IO [ClientInfo]
 roomClientsS ri = do
     rnc <- gets roomsClients
-    liftIO $ roomClientsM rnc ri
+    io $ roomClientsM rnc ri
 
 io :: IO a -> StateT ServerState IO a
 io = liftIO