wip, log merging, debug

2023-07-19 11:47:14 +03:00 · 2023-07-19 11:47:14 +03:00 · c55e5876a8
parent 003fc43cc1
commit c55e5876a8
1 changed files with 2 additions and 0 deletions
--- a/hbs2-peer/app/RefChan.hs
+++ b/hbs2-peer/app/RefChan.hs
@ -485,6 +485,8 @@ logMergeProcess _ q = do
                    S.yield prop
                    S.each accs

+      debug $ "NEW TRANS TO MERGE" <+> pretty new
+
      let merged = HashSet.union current (HashSet.fromList new) & HashSet.toList

      let pt = toPTree (MaxSize 256) (MaxNum 256) merged