diff --git a/hbs2-peer/app/Brains.hs b/hbs2-peer/app/Brains.hs index e265e9c8..8724a4c8 100644 --- a/hbs2-peer/app/Brains.hs +++ b/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 diff --git a/hbs2-peer/app/RefChan.hs b/hbs2-peer/app/RefChan.hs index bcac9a99..2b361dcf 100644 --- a/hbs2-peer/app/RefChan.hs +++ b/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