125         recordFileName :: String,

   125         recordFileName :: String,

   126         recordTeams :: [TeamInfo],

   126         recordTeams :: [TeamInfo],

   127         details :: Maybe GameDetails

   127         details :: Maybe GameDetails

   128     }

   128     }

   129 

   129 

   130 data ClientInfo =

   132 data ClientInfo =

   131     ClientInfo

   133     ClientInfo

   132     {

   134     {

   133         clUID :: !Unique,

   135         clUID :: !Unique,

   134         sendChan :: !ClientChan,

   136         sendChan :: !ClientChan,

   150         isChecker :: !Bool,

   152         isChecker :: !Bool,

   151         isContributor :: !Bool,

   153         isContributor :: !Bool,

   152         isKickedFromServer :: !Bool,

   154         isKickedFromServer :: !Bool,

   153         isJoinedMidGame :: !Bool,

   155         isJoinedMidGame :: !Bool,

   154         hasAskedList :: !Bool,

   156         hasAskedList :: !Bool,

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

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

   156         checkInfo :: !(Maybe CheckInfo),

   159         checkInfo :: !(Maybe CheckInfo),

   157         eiLobbyChat,

   160         eiLobbyChat,

   158         eiEM,

   161         eiEM,

   159         eiJoin :: !EventsInfo,

   162         eiJoin :: !EventsInfo,