From b1bb280751fafff0e6bdc01c55cf08d5f97424a6 Mon Sep 17 00:00:00 2001 From: Dmitry Zuikov Date: Sun, 15 Oct 2023 05:25:28 +0300 Subject: [PATCH] minor fix --- hbs2-peer/app/BlockDownload.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/hbs2-peer/app/BlockDownload.hs b/hbs2-peer/app/BlockDownload.hs index b154bda7..a50cc2ab 100644 --- a/hbs2-peer/app/BlockDownload.hs +++ b/hbs2-peer/app/BlockDownload.hs @@ -143,7 +143,7 @@ processBlock h = do Just (SeqRef (SequentialRef n (AnnotatedHashRef a' b))) -> do maybe1 a' none $ \a -> do debug $ "GOT AnnotatedHashRef" <+> pretty a - addDownload mzero (fromHashRef a) + addDownload parent (fromHashRef a) addDownload parent (fromHashRef b)