Mercurial Mercurial > hedgewars / diff
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | file | latest | revisions | annotate | diff | comparison | raw | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
gameServer/JoinsMonitor.hs
changeset 10005 800d1bd9021a
parent 9977 e2ecde00b2a7
child 10090 a471a7bbc339 
--- a/gameServer/JoinsMonitor.hs	Fri Jan 17 16:31:36 2014 +0100
+++ b/gameServer/JoinsMonitor.hs	Fri Jan 17 16:29:11 2014 +0100
@@ -24,7 +24,7 @@
 
 
 cleanup :: JoinsMonitor -> UTCTime -> IO ()
-cleanup (JoinsMonitor ref) time = modifyIORef' ref f
+cleanup (JoinsMonitor ref) time = modifyIORef ref f
     where
         f = Map.mapMaybe (\v -> let v' = takeWhile (\t -> diffUTCTime time t < 60*60) v in if null v' then Nothing else Just v')
hedgewars