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:53:04 +03:00
parent c2649a6ad4
commit 51ac42f5c0
2 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
hbs2-peer/app/Brains.hs
View File

@ -782,7 +782,7 @@ runBasicBrains cfg brains = do
] ) ] )
void $ async $ do void $ async $ do
pause @'Seconds 5 -- pause @'Seconds 5
forM_ polls $ \(t,mi,x) -> do forM_ polls $ \(t,mi,x) -> do
trace $ "BRAINS: poll" <+> pretty t <+> pretty (AsBase58 x) <+> pretty mi trace $ "BRAINS: poll" <+> pretty t <+> pretty (AsBase58 x) <+> pretty mi
updateOP brains $ do updateOP brains $ do

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

@ -173,7 +173,7 @@ refChanWorker env brains = do
where where
refChanHeadPoll = do refChanHeadPoll = do
pause @'Seconds 10 pause @'Seconds 2
now0 <- getTimeCoarse now0 <- getTimeCoarse
refs0 <- listPolledRefs @e brains "refchan" <&> fmap (set _2 now0) <&> HashMap.fromList refs0 <- listPolledRefs @e brains "refchan" <&> fmap (set _2 now0) <&> HashMap.fromList