From 25f9f7ca59a3314ae0bb293f527e93e79bd48f40 Mon Sep 17 00:00:00 2001 From: Dmitry Zuikov Date: Thu, 20 Jul 2023 09:19:39 +0300 Subject: [PATCH] ip, log merging, debug-28 --- hbs2-peer/app/RefChan.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/hbs2-peer/app/RefChan.hs b/hbs2-peer/app/RefChan.hs index 7cf0c954..69add336 100644 --- a/hbs2-peer/app/RefChan.hs +++ b/hbs2-peer/app/RefChan.hs @@ -470,7 +470,7 @@ logMergeProcess env q = do current <- lift $ readLog sto (HashRef h) <&> HashSet.fromList -- trans <- filter (not . flip HashSet.member current) . mconcat <$> mapM (lift . readLog sto) logs - trans <- mconcat <$> mapM (lift . readLog sto) logs + trans <- filter (/= HashRef h) . mconcat <$> mapM (lift . readLog sto) logs guard (not $ List.null trans)