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:
voidlizard 2024-11-09 10:45:13 +03:00
parent 9a96539b4a
commit d8e56f72b3
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -655,9 +655,11 @@ downloadDispatcher brains env = flip runContT pure do
pause @'Seconds 10 pause @'Seconds 10
size <- atomically $ readTVar blkQ <&> HPSQ.size size <- atomically $ readTVar blkQ <&> HPSQ.size
seenSize <- atomically $ readTVar seen <&> HPSQ.size seenSize <- atomically $ readTVar seen <&> HPSQ.size
sizeCacheSize <- atomically $ readTVar sizeCache <&> HPSQ.size
debug $ yellow $ "I'm download dispatcher" debug $ yellow $ "I'm download dispatcher"
debug $ yellow $ "wip:" <+> pretty size debug $ yellow $ "wip:" <+> pretty size
debug $ yellow $ "seen:" <+> pretty seenSize debug $ yellow $ "seen:" <+> pretty seenSize
debug $ yellow $ "sizes:" <+> pretty sizeCacheSize
where where