equal
deleted
inserted
replaced
15 import qualified Data.ByteString.Lazy as BL |
15 import qualified Data.ByteString.Lazy as BL |
16 import qualified Text.Show.ByteString as BS |
16 import qualified Text.Show.ByteString as BS |
17 import qualified Data.ByteString.Char8 as B |
17 import qualified Data.ByteString.Char8 as B |
18 import qualified Data.ByteString.UTF8 as UTF8 |
18 import qualified Data.ByteString.UTF8 as UTF8 |
19 import qualified Data.ByteString as BW |
19 import qualified Data.ByteString as BW |
|
20 import Data.Maybe |
20 ------------------------------------------------- |
21 ------------------------------------------------- |
21 import CoreTypes |
22 import CoreTypes |
22 |
23 |
23 |
24 |
24 sockAddr2String :: SockAddr -> IO B.ByteString |
25 sockAddr2String :: SockAddr -> IO B.ByteString |
119 |
120 |
120 caseInsensitiveCompare :: B.ByteString -> B.ByteString -> Bool |
121 caseInsensitiveCompare :: B.ByteString -> B.ByteString -> Bool |
121 caseInsensitiveCompare a b = f a == f b |
122 caseInsensitiveCompare a b = f a == f b |
122 where |
123 where |
123 f = map Char.toUpper . UTF8.toString |
124 f = map Char.toUpper . UTF8.toString |
|
125 |
|
126 roomInfo n r |
|
127 | isRestrictedJoins r = [] |
|
128 | otherwise = [ |
|
129 showB $ isJust $ gameInfo r, |
|
130 name r, |
|
131 showB $ playersIn r, |
|
132 showB $ length $ teams r, |
|
133 n, |
|
134 Map.findWithDefault "+rnd+" "MAP" (mapParams r), |
|
135 head (Map.findWithDefault ["Default"] "SCHEME" (params r)), |
|
136 head (Map.findWithDefault ["Default"] "AMMO" (params r)) |
|
137 ] |