62 

    62 

    63 data RoomInfo =

    63 data RoomInfo =

    64 	RoomInfo

    64 	RoomInfo

    65 	{

    65 	{

    66 		roomUID :: !Int,

    66 		roomUID :: !Int,

    67 		name :: String,

    68 		name :: String,

    68 		password :: String,

    69 		password :: String,

    69 		roomProto :: Word16,

    70 		roomProto :: Word16,

    70 		teams :: [TeamInfo],

    71 		teams :: [TeamInfo],

    71 		gameinprogress :: Bool,

    72 		gameinprogress :: Bool,

    89 instance Eq RoomInfo where

    90 instance Eq RoomInfo where

    90 	(==) = (==) `on` roomUID

    91 	(==) = (==) `on` roomUID

    91 

    92 

    92 newRoom = (

    93 newRoom = (

    93 	RoomInfo

    94 	RoomInfo

    94 		0

    96 		0

    95 		""

    97 		""

    96 		""

    98 		""

    97 		0

    99 		0

    98 		[]

   100 		[]