changeset 2150 | 45b695f3a7b9 |
parent 2113 | 89d0fa6734af |
child 2304 | a6e733ad0366 |
--- a/gameServer/Utils.hs Sat Jun 06 12:42:35 2009 +0000 +++ b/gameServer/Utils.hs Sun Jun 07 07:42:40 2009 +0000 @@ -57,6 +57,9 @@ else t : replaceTeam team teams +illegalName :: String -> Bool +illegalName str = all isSpace str + protoNumber2ver :: Word16 -> String protoNumber2ver 17 = "0.9.7-dev" protoNumber2ver 19 = "0.9.7"