--- a/gameServer/ServerState.hs	Thu Jan 27 22:10:24 2011 +0300
+++ b/gameServer/ServerState.hs	Thu Jan 27 22:14:14 2011 +0300
@@ -5,7 +5,8 @@
     ServerState(..),
     client's,
     allClientsS,
-    roomClientsS
+    roomClientsS,
+    io
     ) where
 
 import Control.Monad.State.Strict
@@ -41,3 +42,6 @@
 roomClientsS ri = do
     rnc <- gets roomsClients
     liftIO $ roomClientsM rnc ri
+
+io :: IO a -> StateT ServerState IO a
+io = liftIO