diff -r 42c5684289ae -r c0b3f1bb9316 gameServer/ServerState.hs --- 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