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