voidlizard
/
hbs2
mirror of https://github.com/voidlizard/hbs2
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

wip

This commit is contained in:
Dmitry Zuikov 2024-09-26 16:48:38 +03:00
parent 8e61ded45c
commit fd56384f50
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
hbs2-git/hbs2-git-dashboard/GitDashBoard.hs
View File

@ -328,10 +328,10 @@ updateIndexPeriodially = do
void $ ContT $ withAsync $ forever do void $ ContT $ withAsync $ forever do
rs <- atomically $ peekTQueue changes >> flushTQueue changes rs <- atomically $ peekTQueue changes >> flushTQueue changes
addJob (withDashBoardEnv env updateIndex) addJob (withDashBoardEnv env updateIndex)
pause @'Seconds 30 pause @'Seconds 60
lift do lift do
polling (Polling 1 10) rlogs $ \r -> do polling (Polling 1 30) rlogs $ \r -> do
debug $ yellow "POLL REFLOG" <+> pretty r debug $ yellow "POLL REFLOG" <+> pretty r