--- 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