diff --git a/hbs2-core/lib/HBS2/Defaults.hs b/hbs2-core/lib/HBS2/Defaults.hs index dfc83c1d..f4fd452b 100644 --- a/hbs2-core/lib/HBS2/Defaults.hs +++ b/hbs2-core/lib/HBS2/Defaults.hs @@ -37,7 +37,7 @@ defBlockInfoTimeout = toTimeSpec ( 60 :: Timeout 'Minutes) -- how much time wait for block from peer? defBlockWaitMax :: Timeout 'Seconds -defBlockWaitMax = 20 :: Timeout 'Seconds +defBlockWaitMax = 60 :: Timeout 'Seconds defBlockWaitSleep :: Timeout 'Seconds defBlockWaitSleep = 1 :: Timeout 'Seconds diff --git a/hbs2-tests/test/Peer2Main.hs b/hbs2-tests/test/Peer2Main.hs index 827b48af..5ada7a53 100644 --- a/hbs2-tests/test/Peer2Main.hs +++ b/hbs2-tests/test/Peer2Main.hs @@ -385,6 +385,8 @@ blockDownloadLoop cw = do let blockWtf = do debug $ "WTF!" <+> pretty (p,coo) <+> pretty h + liftIO $ atomically $ Q.writeTBQueue q (DownloadTask h Nothing) + -- initDownload True q p h thisBkSiz liftIO $ async $ do -- FIXME: block is not downloaded, return it to the Q