--- a/gameServer/CoreTypes.hs	Mon Feb 23 20:15:02 2009 +0000
+++ b/gameServer/CoreTypes.hs	Mon Feb 23 20:25:07 2009 +0000
@@ -10,6 +10,7 @@
 import Data.Sequence(Seq, empty)
 import Network
 
+
 data ClientInfo =
  ClientInfo
 	{
@@ -104,10 +105,6 @@
 		roomsNumber :: Int
 	}
 
-data DBQuery =
-	HasRegistered String
-	| CheckPassword String
-
 data ServerInfo =
 	ServerInfo
 	{
@@ -119,8 +116,8 @@
 		dbHost :: String,
 		dbLogin :: String,
 		dbPassword :: String,
-		stats :: TMVar StatisticsInfo
-		--dbQueries :: TChan DBQuery
+		stats :: TMVar StatisticsInfo,
+		dbQueries :: Chan DBQuery
 	}
 
 instance Show ServerInfo where
@@ -144,6 +141,10 @@
 	-- | CoreMessage String
 	-- | TimerTick
 
+data DBQuery =
+	HasRegistered String
+	| CheckPassword String
+
 
 type Clients = IntMap.IntMap ClientInfo
 type Rooms = IntMap.IntMap RoomInfo