Mercurial Mercurial > hedgewars / changeset
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | raw | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Use more convenient syntax
authorunc0rr
Fri, 16 Jan 2009 18:40:52 +0000
changeset 1686 f42dbc52225c
parent 1685 0b61b158ad2a
child 1687 a73c8cda1ed1
Use more convenient syntax
netserver/hedgewars-server.hs file | annotate | diff | comparison | revisions 
--- a/netserver/hedgewars-server.hs	Fri Jan 16 18:37:51 2009 +0000
+++ b/netserver/hedgewars-server.hs	Fri Jan 16 18:40:52 2009 +0000
@@ -120,7 +120,7 @@
 	let outHandles = concat clHandles'
 	unless (null outHandles) $ putStrLn ((show $ length outHandles) ++ " / " ++ (show $ length clients) ++ " : " ++ (show answer))
 
-	let mclients = deleteFirstsBy (==) clients outHandles
+	let mclients = clients \\ outHandles
 
 	sendAnswers answers client mclients rooms
hedgewars