--- a/gameServer/CoreTypes.hs	Thu Mar 26 16:20:01 2009 +0000
+++ b/gameServer/CoreTypes.hs	Thu Mar 26 16:54:16 2009 +0000
@@ -142,6 +142,7 @@
 data AccountInfo =
 	HasAccount String Bool
 	| Guest
+	| Admin
 
 data CoreMessage =
 	Accept ClientInfo
@@ -151,7 +152,7 @@
 	-- | TimerTick
 
 data DBQuery =
-	CheckAccount Int String
+	CheckAccount ClientInfo
 
 
 type Clients = IntMap.IntMap ClientInfo