wip, log merging, debug-6

2023-07-19 12:00:21 +03:00 · 2023-07-19 12:00:21 +03:00 · e7fef02486
parent d77cf610d2
commit e7fef02486
1 changed files with 2 additions and 0 deletions
--- a/hbs2-peer/app/RefChan.hs
+++ b/hbs2-peer/app/RefChan.hs
@ -494,6 +494,8 @@ logMergeProcess _ q = do
      let permitted = HashMap.fromListWith merge1 (mconcat (catMaybes r))
                          & HashMap.toList

+      debug $ "PERMITTED" <+> pretty permitted
+
      new <- S.toList_ do
                forM_ permitted $ \(prop, (qx, accs)) -> do
                  when (length accs >= qx) do