equal
deleted
inserted
replaced
108 |
108 |
109 answerFullConfig cl mpr pr |
109 answerFullConfig cl mpr pr |
110 | clientProto cl < 38 = map (toAnswer cl) $ |
110 | clientProto cl < 38 = map (toAnswer cl) $ |
111 (map (\(a, b) -> (a, [b])) $ Map.toList mpr) |
111 (map (\(a, b) -> (a, [b])) $ Map.toList mpr) |
112 ++ (("SCHEME", pr Map.! "SCHEME") |
112 ++ (("SCHEME", pr Map.! "SCHEME") |
113 : (filter (\(p, _) -> p /= "SCHEME") $ Map.toList pr)) |
113 ++ (("SEED", pr Map.! "SEED") |
|
114 : (filter (\(p, _) -> p /= "SCHEME" && p /= "SEED") $ Map.toList pr)) |
114 |
115 |
115 | otherwise = map (toAnswer cl) $ |
116 | otherwise = map (toAnswer cl) $ |
116 ("FULLMAPCONFIG", Map.elems mpr) |
117 ("FULLMAPCONFIG", Map.elems mpr) |
117 : ("SCHEME", pr Map.! "SCHEME") |
118 : ("SCHEME", pr Map.! "SCHEME") |
118 : (filter (\(p, _) -> p /= "SCHEME") $ Map.toList pr) |
119 : (filter (\(p, _) -> p /= "SCHEME") $ Map.toList pr) |