198 | clientProto cl < 38 = map (toAnswer cl) $ |
198 | clientProto cl < 38 = map (toAnswer cl) $ |
199 (reverse . map (\(a, b) -> (a, [b])) $ Map.toList mpr) |
199 (reverse . map (\(a, b) -> (a, [b])) $ Map.toList mpr) |
200 ++ (("SCHEME", pr Map.! "SCHEME") |
200 ++ (("SCHEME", pr Map.! "SCHEME") |
201 : (filter (\(p, _) -> p /= "SCHEME") $ Map.toList pr)) |
201 : (filter (\(p, _) -> p /= "SCHEME") $ Map.toList pr)) |
202 |
202 |
|
203 | clientProto cl < 48 = map (toAnswer cl) $ |
|
204 ("FULLMAPCONFIG", tail $ Map.elems mpr) |
|
205 : ("SCHEME", pr Map.! "SCHEME") |
|
206 : (filter (\(p, _) -> p /= "SCHEME") $ Map.toList pr) |
|
207 |
203 | otherwise = map (toAnswer cl) $ |
208 | otherwise = map (toAnswer cl) $ |
204 ("FULLMAPCONFIG", Map.elems mpr) |
209 ("FULLMAPCONFIG", Map.elems mpr) |
205 : ("SCHEME", pr Map.! "SCHEME") |
210 : ("SCHEME", pr Map.! "SCHEME") |
206 : (filter (\(p, _) -> p /= "SCHEME") $ Map.toList pr) |
211 : (filter (\(p, _) -> p /= "SCHEME") $ Map.toList pr) |
207 where |
212 where |