From fd56384f500ef0ec6cb36058c84a3b71b460a536 Mon Sep 17 00:00:00 2001 From: Dmitry Zuikov Date: Thu, 26 Sep 2024 16:48:38 +0300 Subject: [PATCH] wip --- hbs2-git/hbs2-git-dashboard/GitDashBoard.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) 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