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)