equal
deleted
inserted
replaced
116 |
116 |
117 cutHost :: B.ByteString -> B.ByteString |
117 cutHost :: B.ByteString -> B.ByteString |
118 cutHost = B.intercalate "." . flip (++) ["*","*"] . List.take 2 . B.split '.' |
118 cutHost = B.intercalate "." . flip (++) ["*","*"] . List.take 2 . B.split '.' |
119 |
119 |
120 caseInsensitiveCompare :: B.ByteString -> B.ByteString -> Bool |
120 caseInsensitiveCompare :: B.ByteString -> B.ByteString -> Bool |
121 caseInsensitiveCompare a b = f a == f b |
121 caseInsensitiveCompare a b = upperCase a == upperCase b |
122 where |
|
123 f = map Char.toUpper . UTF8.toString |
|
124 |
122 |
|
123 upperCase :: B.ByteString -> B.ByteString |
|
124 upperCase = UTF8.fromString . map Char.toUpper . UTF8.toString |
125 |
125 |
126 roomInfo :: B.ByteString -> RoomInfo -> [B.ByteString] |
126 roomInfo :: B.ByteString -> RoomInfo -> [B.ByteString] |
127 roomInfo n r = [ |
127 roomInfo n r = [ |
128 showB $ isJust $ gameInfo r, |
128 showB $ isJust $ gameInfo r, |
129 name r, |
129 name r, |
132 n, |
132 n, |
133 Map.findWithDefault "+rnd+" "MAP" (mapParams r), |
133 Map.findWithDefault "+rnd+" "MAP" (mapParams r), |
134 head (Map.findWithDefault ["Default"] "SCHEME" (params r)), |
134 head (Map.findWithDefault ["Default"] "SCHEME" (params r)), |
135 head (Map.findWithDefault ["Default"] "AMMO" (params r)) |
135 head (Map.findWithDefault ["Default"] "AMMO" (params r)) |
136 ] |
136 ] |
|
137 |
|
138 loc :: B.ByteString -> B.ByteString |
|
139 loc = id |