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

minor fix

This commit is contained in:
Dmitry Zuikov 2023-02-26 14:49:37 +03:00
parent 5b11e1d9a5
commit 5b9c1a301d
3 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
hbs2-core/lib/HBS2/Defaults.hs
View File

@ -63,7 +63,7 @@ defBlockBanTimeSec :: Timeout 'Seconds
defBlockBanTimeSec = 60 :: Timeout 'Seconds defBlockBanTimeSec = 60 :: Timeout 'Seconds
defBlockWipTimeout :: TimeSpec defBlockWipTimeout :: TimeSpec
defBlockWipTimeout = defBlockSizeCacheTime defBlockWipTimeout = defCookieTimeout
defBlockInfoTimeout :: Timeout 'Seconds defBlockInfoTimeout :: Timeout 'Seconds
defBlockInfoTimeout = 1 defBlockInfoTimeout = 1

5
hbs2-peer/app/BlockDownload.hs
View File

@ -480,7 +480,6 @@ blockDownloadLoop env0 = do
tinfo <- asks (view blockPeers) tinfo <- asks (view blockPeers)
binfo <- liftIO $ readTVarIO tinfo binfo <- liftIO $ readTVarIO tinfo
wip <- asks (view blockWip) wip <- asks (view blockWip)
wipCnt <- asks (view blocksWipCnt) >>= liftIO . readTVarIO
liftIO $ Cache.purgeExpired wip liftIO $ Cache.purgeExpired wip
@ -495,7 +494,9 @@ blockDownloadLoop env0 = do
po <- asks (view peerPostponed) >>= liftIO . readTVarIO po <- asks (view peerPostponed) >>= liftIO . readTVarIO
notice $ "maintain blocks wip" <+> pretty wipCnt wipNum <- liftIO $ Cache.size wip
notice $ "maintain blocks wip" <+> pretty wipNum
<+> "postponed" <+> "postponed"
<+> pretty (HashMap.size po) <+> pretty (HashMap.size po)

1
hbs2-peer/app/PeerTypes.hs
View File

@ -294,7 +294,6 @@ addDownload h = do
liftIO do liftIO do
atomically $ do atomically $ do
modifyTVar tinq $ HashMap.insert h () modifyTVar tinq $ HashMap.insert h ()
modifyTVar wipCnt succ
writeTQueue q h writeTQueue q h
Cache.insert wip h () Cache.insert wip h ()