diff -r 0c79946e96f8 -r 0551b5c3de9a gameServer/ServerState.hs --- a/gameServer/ServerState.hs Thu Jan 10 22:59:46 2013 +0400 +++ b/gameServer/ServerState.hs Sat Jan 12 01:18:50 2013 +0400 @@ -49,6 +49,6 @@ sameProtoClientsS p = liftM f allClientsS where f = filter (\c -> clientProto c == p) - + io :: IO a -> StateT ServerState IO a io = liftIO