From 7e67021fc63a5f4778a808b30141c3313adf8acd Mon Sep 17 00:00:00 2001 From: voidlizard Date: Sun, 23 Feb 2025 17:31:15 +0300 Subject: [PATCH] debug --- hbs2-peer/lib/HBS2/Peer/Proto/BlockChunks.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/hbs2-peer/lib/HBS2/Peer/Proto/BlockChunks.hs b/hbs2-peer/lib/HBS2/Peer/Proto/BlockChunks.hs index 06c82315..b3272017 100644 --- a/hbs2-peer/lib/HBS2/Peer/Proto/BlockChunks.hs +++ b/hbs2-peer/lib/HBS2/Peer/Proto/BlockChunks.hs @@ -99,7 +99,7 @@ blockChunksProto adapter (BlockChunks c p) = do bsz' <- blkSize adapter h - maybe1 bsz' (pure ()) $ \bsz -> do + maybe1 bsz' (pure ()) $ \bsz -> deferred @proto do let offsets' = calcChunks bsz (fromIntegral size) :: [(Offset, Size)] let offsets = take (fromIntegral num) $ drop (fromIntegral n1) $ zip offsets' [0..]