# HG changeset patch
# User unc0rr
# Date 1226077342 0
# Node ID 8af42b3f93d26a5439fb9ec80c1f70d47fa32c24
# Parent  f741afa7dbf389bbb0622b3210897f67b3d0ffc4
Just better syntax

diff -r f741afa7dbf3 -r 8af42b3f93d2 netserver/hedgewars-server.hs
--- a/netserver/hedgewars-server.hs	Fri Nov 07 16:42:10 2008 +0000
+++ b/netserver/hedgewars-server.hs	Fri Nov 07 17:02:22 2008 +0000
@@ -113,7 +113,7 @@
 	case r of
 		Accept ci -> do
 			let sameHostClients = filter (\cl -> host ci == host cl) clients
-			let haveJustConnected = not $ null $ filter (\cl -> diffUTCTime (connectTime ci) (connectTime cl) <= 5) sameHostClients
+			let haveJustConnected = not $ null $ filter (\cl -> connectTime ci `diffUTCTime` connectTime cl <= 5) sameHostClients
 			
 			when haveJustConnected $ do
 				atomically $ writeTChan (chan ci) ["QUIT", "Reconnected too fast"]