--- a/gameServer/CoreTypes.hs Sun May 24 19:49:10 2009 +0000
+++ b/gameServer/CoreTypes.hs Mon May 25 15:24:27 2009 +0000
@@ -148,17 +148,18 @@
HasAccount String Bool
| Guest
| Admin
+ deriving (Show, Read)
+
+data DBQuery =
+ CheckAccount Int String String
+ deriving (Show, Read)
data CoreMessage =
Accept ClientInfo
| ClientMessage (Int, [String])
- | ClientAccountInfo Int AccountInfo
+ | ClientAccountInfo (Int, AccountInfo)
| TimerAction
-data DBQuery =
- CheckAccount ClientInfo
-
-
type Clients = IntMap.IntMap ClientInfo
type Rooms = IntMap.IntMap RoomInfo