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/ServerState.hs
branchserver_refactor
changeset 4622 8bdc879ee6b2
parent 4601 08ae94dd4c0d
child 4975 31da8979e5b1 
--- 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
hedgewars