# HG changeset patch
# User unc0rr
# Date 1226418267 0
# Node ID 6e6baf165e0c254380462341a8255149279d54b7
# Parent  1e422bc5d863e6431fbdc5e7bf4a65151dc5362e
Fix wrong filter

diff -r 1e422bc5d863 -r 6e6baf165e0c netserver/hedgewars-server.hs
--- a/netserver/hedgewars-server.hs	Mon Nov 10 19:44:54 2008 +0000
+++ b/netserver/hedgewars-server.hs	Tue Nov 11 15:44:27 2008 +0000
@@ -156,7 +156,7 @@
 			["MINUTELY"] -> do
 				currentTime <- getCurrentTime
 				let newServerInfo = serverInfo{
-						lastHourUsers = filter (\t -> currentTime `diffUTCTime` t > 3600) $ lastHourUsers serverInfo
+						lastHourUsers = filter (\t -> currentTime `diffUTCTime` t < 3600) $ lastHourUsers serverInfo
 						}
 				mainLoop newServerInfo acceptChan messagesChan clients rooms