--- a/gameServer/CoreTypes.hs	Mon Jan 10 18:29:43 2011 +0300
+++ b/gameServer/CoreTypes.hs	Mon Jan 10 18:57:44 2011 +0300
@@ -2,6 +2,7 @@
 module CoreTypes where
 
 import System.IO
+import Control.Concurrent
 import Control.Concurrent.Chan
 import Control.Concurrent.STM
 import Data.Word