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:
Dmitry Zuikov 2023-01-26 15:57:10 +03:00
parent ceb03a558a
commit f528b5d888
2 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -37,7 +37,7 @@ defBlockInfoTimeout = toTimeSpec ( 60 :: Timeout 'Minutes)
-- how much time wait for block from peer? -- how much time wait for block from peer?
defBlockWaitMax :: Timeout 'Seconds defBlockWaitMax :: Timeout 'Seconds
defBlockWaitMax = 20 :: Timeout 'Seconds defBlockWaitMax = 60 :: Timeout 'Seconds
defBlockWaitSleep :: Timeout 'Seconds defBlockWaitSleep :: Timeout 'Seconds
defBlockWaitSleep = 1 :: Timeout 'Seconds defBlockWaitSleep = 1 :: Timeout 'Seconds

2
hbs2-tests/test/Peer2Main.hs
View File

@ -385,6 +385,8 @@ blockDownloadLoop cw = do
let blockWtf = do let blockWtf = do
debug $ "WTF!" <+> pretty (p,coo) <+> pretty h debug $ "WTF!" <+> pretty (p,coo) <+> pretty h
liftIO $ atomically $ Q.writeTBQueue q (DownloadTask h Nothing)
-- initDownload True q p h thisBkSiz
liftIO $ async $ do liftIO $ async $ do
-- FIXME: block is not downloaded, return it to the Q -- FIXME: block is not downloaded, return it to the Q