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