From bc713a381fbc096d9c4ec42dde38bac1f1925ca3 Mon Sep 17 00:00:00 2001 From: Dmitry Zuikov Date: Wed, 19 Jul 2023 12:03:15 +0300 Subject: [PATCH] wip, log merging, debug-7 --- hbs2-peer/app/RefChan.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/hbs2-peer/app/RefChan.hs b/hbs2-peer/app/RefChan.hs index f950b175..d9432df8 100644 --- a/hbs2-peer/app/RefChan.hs +++ b/hbs2-peer/app/RefChan.hs @@ -487,7 +487,7 @@ logMergeProcess _ q = do debug $ "ACCEPT QUO" <+> pretty href <+> pretty quo guard $ HashMap.member pk (view refChanHeadPeers hd) debug $ "ACCEPT ACL CHECK OK" <+> pretty href - pure [(href, (quo,[hashRef]))] + pure [(hashRef, (quo,[href]))] let merge1 (q1, hs1) (q2, hs2) = (max q1 q2, List.nub (hs1 <> hs2) )