From 88b4d929ebe78d02e841398133cf981c502f679a Mon Sep 17 00:00:00 2001 From: Dmitry Zuikov Date: Wed, 19 Jul 2023 14:07:13 +0300 Subject: [PATCH] wip, log merging, debug-15 --- hbs2-peer/app/RefChan.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/hbs2-peer/app/RefChan.hs b/hbs2-peer/app/RefChan.hs index c9a9d7db..ab16008e 100644 --- a/hbs2-peer/app/RefChan.hs +++ b/hbs2-peer/app/RefChan.hs @@ -442,8 +442,8 @@ logMergeProcess _ 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 (not . flip HashSet.member current) . mconcat <$> mapM (lift . readLog sto) logs + trans <- mconcat <$> mapM (lift . readLog sto) logs guard (not $ List.null trans)