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

ip, log merging, debug-28

This commit is contained in:
Dmitry Zuikov 2023-07-20 09:19:39 +03:00
parent 237732e25e
commit 25f9f7ca59
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
-- 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)