gameServer/Utils.hs
changeset 4694 2fa92e9a0acf
parent 4570 fa19f0579083
child 4768 d00562929f28
equal deleted inserted replaced
4692:69e4b4b48701 4694:2fa92e9a0acf
   110 protoNumber2ver 31 = "0.9.13"
   110 protoNumber2ver 31 = "0.9.13"
   111 protoNumber2ver 32 = "0.9.14-dev"
   111 protoNumber2ver 32 = "0.9.14-dev"
   112 protoNumber2ver 33 = "0.9.14"
   112 protoNumber2ver 33 = "0.9.14"
   113 protoNumber2ver 34 = "0.9.15-dev"
   113 protoNumber2ver 34 = "0.9.15-dev"
   114 protoNumber2ver 35 = "0.9.14.1"
   114 protoNumber2ver 35 = "0.9.14.1"
   115 protoNumber2ver _ = "Unknown"
   115 protoNumber2ver 37 = "0.9.15"
       
   116 protoNumber2ver 38 = "0.9.16-dev"
       
   117 protoNumber2ver w = show w
   116 
   118 
   117 askFromConsole :: String -> IO String
   119 askFromConsole :: String -> IO String
   118 askFromConsole msg = do
   120 askFromConsole msg = do
   119     putStr msg
   121     putStr msg
   120     hFlush stdout
   122     hFlush stdout