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)