wip

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

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