From 85f64cc801edbd0261209f1f332093c48b2c034f Mon Sep 17 00:00:00 2001 From: Dmitry Zuikov Date: Thu, 20 Jul 2023 09:21:45 +0300 Subject: [PATCH] ip, log merging, debug-29 --- 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 69add336..e71dee61 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 <- filter (/= HashRef h) . mconcat <$> mapM (lift . readLog sto) logs + trans <- mconcat <$> mapM (lift . readLog sto) (filter (/= HashRef h) logs) guard (not $ List.null trans)