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/OfficialServer/DBInteraction.hs
changeset 7331 0e50456d652c
parent 4996 76ef3d8bd78e
child 9399 1767c92eff37 
--- a/gameServer/OfficialServer/DBInteraction.hs	Sat Jun 30 00:20:01 2012 +0400
+++ b/gameServer/OfficialServer/DBInteraction.hs	Sat Jun 30 00:34:51 2012 +0400
@@ -60,7 +60,7 @@
         CheckAccount clId clUid clNick _ -> do
             let cacheEntry = clNick `Map.lookup` accountsCache
             currentTime <- getCurrentTime
-            if (isNothing cacheEntry) || (currentTime `diffUTCTime` (fst . fromJust) cacheEntry > 2 * 24 * 60 * 60) then
+            if (isNothing cacheEntry) || (currentTime `diffUTCTime` (fst . fromJust) cacheEntry > 10 * 60) then
                 do
                     SIO.hPutStrLn hIn $ show q
                     hFlush hIn
hedgewars