netserver/hedgewars-server.hs
changeset 1686 f42dbc52225c
parent 1598 c853e02ed663
child 1755 cfb442f6a149
--- 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