Fix wrong filter
authorunc0rr
Tue, 11 Nov 2008 15:44:27 +0000
changeset 1494 6e6baf165e0c
parent 1493 1e422bc5d863
child 1495 2b2b89bdb5f3
Fix wrong filter
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