--- a/gameServer/ServerState.hs	Sun Jun 06 19:03:06 2010 +0000
+++ b/gameServer/ServerState.hs	Tue Jun 08 18:20:49 2010 +0000
@@ -4,7 +4,8 @@
     clientRoomA,
     ServerState(..),
     client's,
-    allClientsS
+    allClientsS,
+    roomClientsS
     ) where
 
 import Control.Monad.State
@@ -32,4 +33,10 @@
     liftIO $ client'sM rnc f ci
     
 allClientsS :: StateT ServerState IO [ClientInfo]
-allClientsS = gets roomsClients >>= liftIO . clientsM
\ No newline at end of file
+allClientsS = gets roomsClients >>= liftIO . clientsM
+
+roomClientsS :: RoomIndex -> StateT ServerState IO [ClientInfo]
+roomClientsS ri = do
+    rnc <- gets roomsClients
+    liftIO $ roomClientsM rnc ri
+    
\ No newline at end of file