equal
deleted
inserted
replaced
111 , (44, "0.9.19-dev") |
111 , (44, "0.9.19-dev") |
112 , (45, "0.9.19") |
112 , (45, "0.9.19") |
113 , (46, "0.9.20-dev") |
113 , (46, "0.9.20-dev") |
114 , (47, "0.9.20") |
114 , (47, "0.9.20") |
115 , (48, "0.9.21-dev") |
115 , (48, "0.9.21-dev") |
|
116 , (49, "0.9.21") |
|
117 , (50, "0.9.22-dev") |
116 ] |
118 ] |
117 |
119 |
118 askFromConsole :: B.ByteString -> IO B.ByteString |
120 askFromConsole :: B.ByteString -> IO B.ByteString |
119 askFromConsole msg = do |
121 askFromConsole msg = do |
120 B.putStr msg |
122 B.putStr msg |
199 (reverse . map (\(a, b) -> (a, [b])) $ Map.toList mpr) |
201 (reverse . map (\(a, b) -> (a, [b])) $ Map.toList mpr) |
200 ++ (("SCHEME", pr Map.! "SCHEME") |
202 ++ (("SCHEME", pr Map.! "SCHEME") |
201 : (filter (\(p, _) -> p /= "SCHEME") $ Map.toList pr)) |
203 : (filter (\(p, _) -> p /= "SCHEME") $ Map.toList pr)) |
202 |
204 |
203 | clientProto cl < 48 = map (toAnswer cl) $ |
205 | clientProto cl < 48 = map (toAnswer cl) $ |
204 ("FULLMAPCONFIG", tail $ Map.elems mpr) |
206 ("FULLMAPCONFIG", let l = Map.elems mpr in if length l > 5 then tail l else l) |
205 : ("SCHEME", pr Map.! "SCHEME") |
207 : ("SCHEME", pr Map.! "SCHEME") |
206 : (filter (\(p, _) -> p /= "SCHEME") $ Map.toList pr) |
208 : (filter (\(p, _) -> p /= "SCHEME") $ Map.toList pr) |
207 |
209 |
208 | otherwise = map (toAnswer cl) $ |
210 | otherwise = map (toAnswer cl) $ |
209 ("FULLMAPCONFIG", Map.elems mpr) |
211 ("FULLMAPCONFIG", Map.elems mpr) |