merge
authorunc0rr
Sat, 22 Jan 2011 22:39:35 +0300
changeset 4868 652139f230c7
parent 4866 64572716e097 (diff)
parent 4867 e604ee83e34f (current diff)
child 4869 7a720b5d2247
merge
--- a/gameServer/Utils.hs	Sat Jan 22 19:40:57 2011 +0100
+++ b/gameServer/Utils.hs	Sat Jan 22 22:39:35 2011 +0300
@@ -91,7 +91,7 @@
             t : replaceTeam team teams
 
 illegalName :: String -> Bool
-illegalName = all isSpace
+illegalName s = null s || all isSpace s || isSpace (head s) || isSpace (last s)
 
 protoNumber2ver :: Word16 -> String
 protoNumber2ver 17 = "0.9.7-dev"