152         checkInfo :: !(Maybe CheckInfo),

   152         checkInfo :: !(Maybe CheckInfo),

   153         eiLobbyChat,

   153         eiLobbyChat,

   154         eiEM,

   154         eiEM,

   155         eiJoin :: !EventsInfo,

   155         eiJoin :: !EventsInfo,

   156         teamsInGame :: !Word,

   156         teamsInGame :: !Word,

   157         pendingActions :: ![Action]

   158         pendingActions :: ![Action]

   158     }

   159     }

   159 

   160 

   160 instance Eq ClientInfo where

   161 instance Eq ClientInfo where

   161     (==) = (==) `on` clientSocket

   162     (==) = (==) `on` clientSocket