From 65a63db50f12e70c6f1101433163eefbdddf34a1 Mon Sep 17 00:00:00 2001 From: Dmitry Zuikov Date: Wed, 19 Jul 2023 13:28:09 +0300 Subject: [PATCH] wip, log merging, debug-12 --- 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 0d6849a1..c54e866e 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)