changeset 3645 | c0b3f1bb9316 |
parent 3566 | 772a46ef8288 |
child 3741 | 73246d25dfe1 |
--- a/gameServer/ServerState.hs Thu Jul 15 04:31:25 2010 +0200 +++ b/gameServer/ServerState.hs Sat Jul 17 23:44:42 2010 +0400 @@ -33,7 +33,7 @@ (Just ci) <- gets clientIndex rnc <- gets roomsClients liftIO $ client'sM rnc f ci - + allClientsS :: StateT ServerState IO [ClientInfo] allClientsS = gets roomsClients >>= liftIO . clientsM @@ -41,4 +41,3 @@ roomClientsS ri = do rnc <- gets roomsClients liftIO $ roomClientsM rnc ri - \ No newline at end of file