mirror of https://github.com/voidlizard/hbs2
minor fix
This commit is contained in:
parent
10dc1d609e
commit
b1bb280751
|
@ -143,7 +143,7 @@ processBlock h = do
|
||||||
Just (SeqRef (SequentialRef n (AnnotatedHashRef a' b))) -> do
|
Just (SeqRef (SequentialRef n (AnnotatedHashRef a' b))) -> do
|
||||||
maybe1 a' none $ \a -> do
|
maybe1 a' none $ \a -> do
|
||||||
debug $ "GOT AnnotatedHashRef" <+> pretty a
|
debug $ "GOT AnnotatedHashRef" <+> pretty a
|
||||||
addDownload mzero (fromHashRef a)
|
addDownload parent (fromHashRef a)
|
||||||
|
|
||||||
addDownload parent (fromHashRef b)
|
addDownload parent (fromHashRef b)
|
||||||
|
|
||||||
|
|
Loading…
Reference in New Issue