From c2649a6ad419d3b7329a29370fabc57da02215d5 Mon Sep 17 00:00:00 2001
From: Dmitry Zuikov <dzuikov@gmail.com>
Date: Sat, 15 Jul 2023 10:38:48 +0300
Subject: [PATCH] wip, tryin to fetch refchan head

---
 hbs2-peer/app/RefChan.hs | 9 +++++++--
 1 file changed, 7 insertions(+), 2 deletions(-)

diff --git a/hbs2-peer/app/RefChan.hs b/hbs2-peer/app/RefChan.hs
index eacc7a9f..bcac9a99 100644
--- a/hbs2-peer/app/RefChan.hs
+++ b/hbs2-peer/app/RefChan.hs
@@ -173,7 +173,12 @@ refChanWorker env brains = do
   where
 
     refChanHeadPoll = do
-      pause @'Seconds 2
+      pause @'Seconds 10
+
+      now0 <- getTimeCoarse
+      refs0 <- listPolledRefs @e brains "refchan" <&> fmap (set _2 now0) <&> HashMap.fromList
+
+      -- debug $ "POLL SHIT!" <+> pretty (fmap AsBase58 (HashMap.keys refs0))
 
       fix (\next mon -> do
         now <- getTimeCoarse
@@ -202,7 +207,7 @@ refChanWorker env brains = do
             pause @'Seconds 5
             next mon'
 
-        ) mempty
+        ) refs0
 
 
     monitorDownloads = forever do