gameServer/CoreTypes.hs
changeset 2245 c011aecc95e5
parent 2173 98cde8645e21
child 2352 7eaf82cf0890
equal deleted inserted replaced
2244:853a1db1cff6 2245:c011aecc95e5
    26 		clientProto :: !Word16,
    26 		clientProto :: !Word16,
    27 		roomID :: !Int,
    27 		roomID :: !Int,
    28 		pingsQueue :: !Word,
    28 		pingsQueue :: !Word,
    29 		isMaster :: Bool,
    29 		isMaster :: Bool,
    30 		isReady :: Bool,
    30 		isReady :: Bool,
    31 		isAdministrator :: Bool
    31 		isAdministrator :: Bool,
       
    32 		teamsInGame :: Word
    32 	}
    33 	}
    33 
    34 
    34 instance Show ClientInfo where
    35 instance Show ClientInfo where
    35 	show ci = (show $ clientUID ci)
    36 	show ci = (show $ clientUID ci)
    36 			++ " nick: " ++ (nick ci)
    37 			++ " nick: " ++ (nick ci)