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