104         isMaster :: Bool,

   104         isMaster :: Bool,

   105         isReady :: !Bool,

   105         isReady :: !Bool,

   106         isInGame :: Bool,

   106         isInGame :: Bool,

   107         isAdministrator :: Bool,

   107         isAdministrator :: Bool,

   108         isChecker :: Bool,

   108         isChecker :: Bool,

   109         isKickedFromServer :: Bool,

   110         isKickedFromServer :: Bool,

   110         isJoinedMidGame :: Bool,

   111         isJoinedMidGame :: Bool,

   111         clientClan :: !(Maybe B.ByteString),

   112         clientClan :: !(Maybe B.ByteString),

   112         checkInfo :: Maybe CheckInfo,

   113         checkInfo :: Maybe CheckInfo,

   113         teamsInGame :: Word

   114         teamsInGame :: Word

   252         []

   253         []

   253         False

   254         False

   254         []

   255         []

   255 

   256 

   256 data AccountInfo =

   257 data AccountInfo =

   258     | Guest

   259     | Guest

   259     | Admin

   260     | Admin

   260     deriving (Show, Read)

   261     deriving (Show, Read)

   261 

   262 

   262 data DBQuery =

   263 data DBQuery =