28 		roomID :: !Int,

    28 		roomID :: !Int,

    29 		pingsQueue :: !Word,

    29 		pingsQueue :: !Word,

    30 		isMaster :: Bool,

    30 		isMaster :: Bool,

    31 		isReady :: Bool,

    31 		isReady :: Bool,

    32 		isAdministrator :: Bool,

    32 		isAdministrator :: Bool,

    33 		teamsInGame :: Word

    34 		teamsInGame :: Word

    34 	}

    35 	}

    35 

    36 

    36 instance Show ClientInfo where

    37 instance Show ClientInfo where

    37 	show ci = show (clientUID ci)

    38 	show ci = show (clientUID ci)

    45 	HedgehogInfo String String

    46 	HedgehogInfo String String

    46 

    47 

    47 data TeamInfo =

    48 data TeamInfo =

    48 	TeamInfo

    49 	TeamInfo

    49 	{

    50 	{

    50 		teamowner :: String,

    52 		teamowner :: String,

    51 		teamname :: String,

    53 		teamname :: String,

    52 		teamcolor :: String,

    54 		teamcolor :: String,

    53 		teamgrave :: String,

    55 		teamgrave :: String,

    54 		teamfort :: String,

    56 		teamfort :: String,