From 7d55e9984e20502e8bd9894236a7726065ce6dde Mon Sep 17 00:00:00 2001
From: Dmitry Zuikov <dzuikov@gmail.com>
Date: Thu, 20 Jul 2023 08:21:20 +0300
Subject: [PATCH] ip, log merging, debug-25

---
 hbs2-peer/app/RefChan.hs | 6 ++++++
 1 file changed, 6 insertions(+)

diff --git a/hbs2-peer/app/RefChan.hs b/hbs2-peer/app/RefChan.hs
index 5c6b5be3..87a55628 100644
--- a/hbs2-peer/app/RefChan.hs
+++ b/hbs2-peer/app/RefChan.hs
@@ -436,6 +436,12 @@ logMergeProcess env q = do
       let sto = mergeSto e
       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
         Just x -> pure (Just x)
         Nothing -> runMaybeT do