diff -r 27fb500dd6b1 -r d65d438acd23 gameServer/Utils.hs --- a/gameServer/Utils.hs Tue Feb 08 02:43:07 2011 +0100 +++ b/gameServer/Utils.hs Tue Feb 08 22:24:30 2011 +0300 @@ -80,26 +80,27 @@ protoNumber2ver v = Map.findWithDefault "Unknown" v vermap where vermap = Map.fromList [ - (17, "0.9.7-dev"), - (19, "0.9.7"), - (20, "0.9.8-dev"), - (21, "0.9.8"), - (22, "0.9.9-dev"), - (23, "0.9.9"), - (24, "0.9.10-dev"), - (25, "0.9.10"), - (26, "0.9.11-dev"), - (27, "0.9.11"), - (28, "0.9.12-dev"), - (29, "0.9.12"), - (30, "0.9.13-dev"), - (31, "0.9.13"), - (32, "0.9.14-dev"), - (33, "0.9.14"), - (34, "0.9.15-dev"), - (35, "0.9.14.1"), - (37, "0.9.15"), - (38, "0.9.16-dev")] + (17, "0.9.7-dev") + , (19, "0.9.7") + , (20, "0.9.8-dev") + , (21, "0.9.8") + , (22, "0.9.9-dev") + , (23, "0.9.9") + , (24, "0.9.10-dev") + , (25, "0.9.10") + , (26, "0.9.11-dev") + , (27, "0.9.11") + , (28, "0.9.12-dev") + , (29, "0.9.12") + , (30, "0.9.13-dev") + , (31, "0.9.13") + , (32, "0.9.14-dev") + , (33, "0.9.14") + , (34, "0.9.15-dev") + , (35, "0.9.14.1") + , (37, "0.9.15") + , (38, "0.9.16-dev") + ] askFromConsole :: B.ByteString -> IO B.ByteString askFromConsole msg = do