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

wip, log merging, debug-19

This commit is contained in:
Dmitry Zuikov 2023-07-19 20:40:34 +03:00
parent baf0d6e3b6
commit 3efe992436
1 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -217,6 +217,7 @@ refChanWorker env brains = do
debug $ "ON ROUND STARTED" <+> pretty rcrk debug $ "ON ROUND STARTED" <+> pretty rcrk
forever do forever do
-- FIXME: use-polling-function-and-respect-wait
pause @'Seconds 30 pause @'Seconds 30
now <- getTimeCoarse now <- getTimeCoarse
@ -235,9 +236,10 @@ refChanWorker env brains = do
when (closed || ttl <= now) do when (closed || ttl <= now) do
lift $ expire x lift $ expire x
forM_ trans $ \t -> do when closed do
debug $ "WRITING TRANS" <+> pretty t forM_ trans $ \t -> do
lift $ refChanWriteTranFn env t debug $ "WRITING TRANS" <+> pretty t
lift $ refChanWriteTranFn env t
atomically $ modifyTVar rounds (HashSet.delete x) atomically $ modifyTVar rounds (HashSet.delete x)
debug $ "CLEANUP ROUND" <+> pretty x debug $ "CLEANUP ROUND" <+> pretty x