voidlizard
/
hbs2
mirror of https://github.com/voidlizard/hbs2
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

ip, log merging, debug-29

This commit is contained in:
Dmitry Zuikov 2023-07-20 09:21:45 +03:00
parent 25f9f7ca59
commit 85f64cc801
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
hbs2-peer/app/RefChan.hs
View File

@ -470,7 +470,7 @@ logMergeProcess env q = do
current <- lift $ readLog sto (HashRef h) <&> HashSet.fromList current <- lift $ readLog sto (HashRef h) <&> HashSet.fromList
-- trans <- filter (not . flip HashSet.member current) . mconcat <$> mapM (lift . readLog sto) logs -- 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) guard (not $ List.null trans)