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

Auto-refresh content

Browse Source
This commit is contained in:
Michael Snoyman 2015-04-01 08:02:56 +03:00
parent dd375bbbc1
commit 30b6d57f5c
1 changed files with 6 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
Application.hs
View File

@ -170,6 +170,12 @@ makeFoundation useEcho conf = do
"master" "master"
loadWebsiteContent loadWebsiteContent
-- Temporary workaround to force content updates regularly, until
-- distribution of webhooks is handled via consul
void $ forkIO $ forever $ void $ tryAny $ do
threadDelay $ 1000 * 1000 * 60 * 20
grRefresh websiteContent'
env <- getEnvironment env <- getEnvironment
let runDB' :: (MonadIO m, MonadBaseControl IO m) => SqlPersistT m a -> m a let runDB' :: (MonadIO m, MonadBaseControl IO m) => SqlPersistT m a -> m a