diff --git a/hbs2-core/lib/HBS2/Storage/Operations/Missed.hs b/hbs2-core/lib/HBS2/Storage/Operations/Missed.hs index 9600a751..b33fd5d2 100644 --- a/hbs2-core/lib/HBS2/Storage/Operations/Missed.hs +++ b/hbs2-core/lib/HBS2/Storage/Operations/Missed.hs @@ -24,8 +24,11 @@ findMissedBlocks sto href = do walkMerkle (fromHashRef href) (lift . getBlock sto) $ \(hr :: Either (Hash HbSync) [HashRef]) -> do case hr of + -- FIXME: investigate-this-wtf - Left hx -> S.yield (HashRef hx) + Left hx | fromHashRef href /= hx -> S.yield (HashRef hx) + | otherwise -> pure () + Right (hrr :: [HashRef]) -> do forM_ hrr $ \hx -> runMaybeT do blk <- lift $ getBlock sto (fromHashRef hx)