gameServer/CoreTypes.hs
changeset 8433 3b318a130a62
parent 8431 74c2c95ab07b
child 8479 8d71109b04d2
equal deleted inserted replaced
8431:74c2c95ab07b 8433:3b318a130a62
    36         isReady :: !Bool,
    36         isReady :: !Bool,
    37         isInGame :: Bool,
    37         isInGame :: Bool,
    38         isAdministrator :: Bool,
    38         isAdministrator :: Bool,
    39         isChecker :: Bool,
    39         isChecker :: Bool,
    40         isKickedFromServer :: Bool,
    40         isKickedFromServer :: Bool,
    41         clientClan :: !Maybe B.ByteString,
    41         clientClan :: !(Maybe B.ByteString),
    42         teamsInGame :: Word
    42         teamsInGame :: Word
    43     }
    43     }
    44 
    44 
    45 instance Eq ClientInfo where
    45 instance Eq ClientInfo where
    46     (==) = (==) `on` clientSocket
    46     (==) = (==) `on` clientSocket