--- a/gameServer/CoreTypes.hs	Fri Mar 04 11:30:53 2011 +0300
+++ b/gameServer/CoreTypes.hs	Fri Mar 04 22:45:28 2011 +0300
@@ -12,7 +12,6 @@
 import Data.Unique
 import Control.Exception
 import Data.Typeable
-import Data.TConfig
 -----------------------
 import RoomsAndClients
 
@@ -134,6 +133,7 @@
         listenPort :: PortNumber,
         nextRoomID :: Int,
         dbHost :: B.ByteString,
+        dbName :: B.ByteString,
         dbLogin :: B.ByteString,
         dbPassword :: B.ByteString,
         lastLogins :: [(B.ByteString, (UTCTime, B.ByteString))],
@@ -158,6 +158,7 @@
         ""
         ""
         ""
+        ""
         []
         False