wip, tryin to fetch refchan head

hbs2-peer/app/Brains.hs

@@ -782,7 +782,7 @@ runBasicBrains cfg brains = do
        ] )
 
   void $ async $ do
-    pause @'Seconds 5
+    -- pause @'Seconds 5
     forM_ polls $ \(t,mi,x) -> do
       trace $ "BRAINS: poll" <+> pretty t <+> pretty (AsBase58 x) <+> pretty mi
       updateOP brains $ do

hbs2-peer/app/RefChan.hs

@@ -173,7 +173,7 @@ refChanWorker env brains = do
   where
 
     refChanHeadPoll = do
-      pause @'Seconds 10
+      pause @'Seconds 2
 
       now0 <- getTimeCoarse
       refs0 <- listPolledRefs @e brains "refchan" <&> fmap (set _2 now0) <&> HashMap.fromList