diff --git a/hbs2-peer/app/Brains.hs b/hbs2-peer/app/Brains.hs index 0430c6a3..c409e825 100644 --- a/hbs2-peer/app/Brains.hs +++ b/hbs2-peer/app/Brains.hs @@ -137,19 +137,27 @@ instance ( Hashable (Peer e) downs <- liftIO $ readTVarIO (view brainsPostponeDown b) r <- forM peers $ \p -> do - let v = HashMap.lookup (p,h) downs & fromMaybe 0 & (<4) + let v = HashMap.lookup (p,h) downs & fromMaybe 0 & ( List.null downs <- liftIO $ readTVarIO (view brainsPostponeDown b) - let doo = HashMap.lookup (p,h) downs & fromMaybe 0 & (<4) + let doo = HashMap.lookup (p,h) downs & fromMaybe 0 & ( pretty noPeers <+> pretty doo - pure $ noPeers || (HashMap.lookup (p,h) downs & fromMaybe 0 & (<4)) + pure $ noPeers || (HashMap.lookup (p,h) downs & fromMaybe 0 & (