--- a/gameServer/ServerState.hs	Sat Aug 14 02:10:27 2010 +0200
+++ b/gameServer/ServerState.hs	Mon Aug 16 18:43:32 2010 +0400
@@ -8,7 +8,7 @@
     roomClientsS
     ) where
 
-import Control.Monad.State
+import Control.Monad.State.Strict
 import Data.Set as Set
 ----------------------
 import RoomsAndClients