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.
netserver/newhwserv.hs
changeset 898 344ba7dba23d
parent 894 2ca76a7f3121
child 901 2f5ce9a584f9 
--- a/netserver/newhwserv.hs	Thu May 01 15:26:09 2008 +0000
+++ b/netserver/newhwserv.hs	Thu May 01 15:55:03 2008 +0000
@@ -44,7 +44,7 @@
 					\ci -> do
 							forM_ strs (\str -> hPutStrLn (handle ci) str)
 							hFlush (handle ci)
-							return []
+							if (not $ null strs) && (head strs == "ROOMABANDONED") then hClose (handle ci) >> return [ci] else return []
 					`catch` const (hClose (handle ci) >> return [ci])
 
 			client' <- if (not $ null strs) && (head strs == "QUIT") then hClose (handle client) >> return [client] else return []
hedgewars