Mercurial Mercurial > hedgewars / diff
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | file | latest | revisions | annotate | diff | comparison | raw | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
gameServer/ClientIO.hs
changeset 4570 fa19f0579083
parent 4568 f85243bf890e
child 4904 0eab727d4717 
--- a/gameServer/ClientIO.hs	Sun Dec 19 13:31:55 2010 -0500
+++ b/gameServer/ClientIO.hs	Sun Dec 19 13:33:45 2010 -0500
@@ -14,7 +14,7 @@
 listenLoop :: Handle -> Int -> [String] -> Chan CoreMessage -> Int -> IO ()
 listenLoop handle linesNumber buf chan clientID = do
     str <- liftM BUTF8.toString $ B.hGetLine handle
-    if (linesNumber > 50) || (length str > 450) then
+    if (linesNumber > 50) || (length str > 20000) then
         writeChan chan $ ClientMessage (clientID, ["QUIT", "Protocol violation"])
         else
         if str == "" then do
hedgewars