--- 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