gameServer/Utils.hs
branchqmlfrontend
changeset 10614 4afb4c4bf495
parent 10602 1ec0268f28af
child 11046 47a8c19ecb60
equal deleted inserted replaced
10612:eb3c1a289a23 10614:4afb4c4bf495
   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)