gameServer/Utils.hs
changeset 4936 d65d438acd23
parent 4932 f11d80bac7ed
child 4972 2f9c8a12edce
--- 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