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

wip, tryin to fetch refchan head

This commit is contained in:
Dmitry Zuikov 2023-07-15 10:38:48 +03:00
parent e71ff57773
commit c2649a6ad4
1 changed files with 7 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
hbs2-peer/app/RefChan.hs
View File

@ -173,7 +173,12 @@ refChanWorker env brains = do
where where
refChanHeadPoll = do refChanHeadPoll = do
pause @'Seconds 2 pause @'Seconds 10
now0 <- getTimeCoarse
refs0 <- listPolledRefs @e brains "refchan" <&> fmap (set _2 now0) <&> HashMap.fromList
-- debug $ "POLL SHIT!" <+> pretty (fmap AsBase58 (HashMap.keys refs0))
fix (\next mon -> do fix (\next mon -> do
now <- getTimeCoarse now <- getTimeCoarse
@ -202,7 +207,7 @@ refChanWorker env brains = do
pause @'Seconds 5 pause @'Seconds 5
next mon' next mon'
) mempty ) refs0
monitorDownloads = forever do monitorDownloads = forever do