gameServer/CoreTypes.hs
changeset 4986 33fe91b2bcbf
parent 4982 3572eaf14340
child 4987 cf9470964dba
equal deleted inserted replaced
4985:304d149bb3dd 4986:33fe91b2bcbf
    32         roomID :: RoomIndex,
    32         roomID :: RoomIndex,
    33         pingsQueue :: !Word,
    33         pingsQueue :: !Word,
    34         isMaster :: Bool,
    34         isMaster :: Bool,
    35         isReady :: !Bool,
    35         isReady :: !Bool,
    36         isAdministrator :: Bool,
    36         isAdministrator :: Bool,
    37         clientClan :: B.ByteString,
    37         clientClan :: Maybe B.ByteString,
    38         teamsInGame :: Word
    38         teamsInGame :: Word
    39     }
    39     }
    40 
    40 
    41 instance Show ClientInfo where
    41 instance Show ClientInfo where
    42     show ci = " nick: " ++ unpack (nick ci) ++ " host: " ++ unpack (host ci)
    42     show ci = " nick: " ++ unpack (nick ci) ++ " host: " ++ unpack (host ci)