equal
deleted
inserted
replaced
71 |
71 |
72 instance Show RoomInfo where |
72 instance Show RoomInfo where |
73 show ri = (show $ roomUID ri) |
73 show ri = (show $ roomUID ri) |
74 ++ ", players ids: " ++ (show $ IntSet.size $ playersIDs ri) |
74 ++ ", players ids: " ++ (show $ IntSet.size $ playersIDs ri) |
75 ++ ", players: " ++ (show $ playersIn ri) |
75 ++ ", players: " ++ (show $ playersIn ri) |
|
76 ++ ", ready: " ++ (show $ readyPlayers ri) |
76 |
77 |
77 instance Eq RoomInfo where |
78 instance Eq RoomInfo where |
78 a1 == a2 = roomUID a1 == roomUID a2 |
79 a1 == a2 = roomUID a1 == roomUID a2 |
79 |
80 |
80 newRoom = ( |
81 newRoom = ( |