# HG changeset patch
# User unc0rr
# Date 1232131252 0
# Node ID f42dbc52225cd451131939953aa1abd252b036b0
# Parent  0b61b158ad2a408c418a64aab42d686c6d0c3aaa
Use more convenient syntax

diff -r 0b61b158ad2a -r f42dbc52225c netserver/hedgewars-server.hs
--- 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