diff --git a/hbs2-git/hbs2-git-dashboard/GitDashBoard.hs b/hbs2-git/hbs2-git-dashboard/GitDashBoard.hs index 01b413a5..5305dbc1 100644 --- a/hbs2-git/hbs2-git-dashboard/GitDashBoard.hs +++ b/hbs2-git/hbs2-git-dashboard/GitDashBoard.hs @@ -328,10 +328,10 @@ updateIndexPeriodially = do void $ ContT $ withAsync $ forever do rs <- atomically $ peekTQueue changes >> flushTQueue changes addJob (withDashBoardEnv env updateIndex) - pause @'Seconds 30 + pause @'Seconds 60 lift do - polling (Polling 1 10) rlogs $ \r -> do + polling (Polling 1 30) rlogs $ \r -> do debug $ yellow "POLL REFLOG" <+> pretty r