voidlizard
/
hbs2
mirror of https://github.com/voidlizard/hbs2
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

ip, log merging, debug-25

This commit is contained in:
Dmitry Zuikov 2023-07-20 08:21:20 +03:00
parent 9c1c3110d8
commit 7d55e9984e
1 changed files with 6 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
hbs2-peer/app/RefChan.hs
View File

@ -436,6 +436,12 @@ logMergeProcess env q = do
let sto = mergeSto e let sto = mergeSto e
hd <- readTVarIO (mergeHeads e) <&> HashMap.lookup h hd <- readTVarIO (mergeHeads e) <&> HashMap.lookup h
here <- liftIO $ hasBlock sto (fromHashRef h) <&> isJust
unless here do
debug $ "head is missed:" <+> pretty h
pure ()
case hd of case hd of
Just x -> pure (Just x) Just x -> pure (Just x)
Nothing -> runMaybeT do Nothing -> runMaybeT do