diff --git a/Application.hs b/Application.hs index 6341e8f..d926eff 100644 --- a/Application.hs +++ b/Application.hs @@ -170,6 +170,12 @@ makeFoundation useEcho conf = do "master" 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 let runDB' :: (MonadIO m, MonadBaseControl IO m) => SqlPersistT m a -> m a