equal
deleted
inserted
replaced
121 caseInsensitiveCompare :: B.ByteString -> B.ByteString -> Bool |
121 caseInsensitiveCompare :: B.ByteString -> B.ByteString -> Bool |
122 caseInsensitiveCompare a b = f a == f b |
122 caseInsensitiveCompare a b = f a == f b |
123 where |
123 where |
124 f = map Char.toUpper . UTF8.toString |
124 f = map Char.toUpper . UTF8.toString |
125 |
125 |
126 roomInfo n r |
126 roomInfo n r = [ |
127 | isRestrictedJoins r = [] |
|
128 | otherwise = [ |
|
129 showB $ isJust $ gameInfo r, |
127 showB $ isJust $ gameInfo r, |
130 name r, |
128 name r, |
131 showB $ playersIn r, |
129 showB $ playersIn r, |
132 showB $ length $ teams r, |
130 showB $ length $ teams r, |
133 n, |
131 n, |