haskell/stackage-server
1
0
Fork 0
mirror of https://github.com/commercialhaskell/stackage-server.git synced 2026-01-18 07:01:55 +01:00
Code Issues Actions Packages Projects Releases Wiki Activity

Only update every 10 minutes

Browse Source
This commit is contained in:
Michael Snoyman 2016-09-26 08:54:46 +03:00
parent 537aea35fe
commit ccefcd3445
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
Handler/MirrorStatus.hs
View File

@ -19,7 +19,7 @@ getMirrorStatusR = do
mkUpdateMirrorStatus :: IO (IO (Status, Widget)) mkUpdateMirrorStatus :: IO (IO (Status, Widget))
mkUpdateMirrorStatus = mkAutoUpdate defaultUpdateSettings mkUpdateMirrorStatus = mkAutoUpdate defaultUpdateSettings
{ updateAction = go { updateAction = go
, updateFreq = 1000 * 1000 * 60 , updateFreq = 1000 * 1000 * 60 * 10 -- every 10 minutes
} }
where where
go = do go = do