diff --git a/hbs2-peer/app/BlockDownloadNew.hs b/hbs2-peer/app/BlockDownloadNew.hs index d147a7be..38de17d7 100644 --- a/hbs2-peer/app/BlockDownloadNew.hs +++ b/hbs2-peer/app/BlockDownloadNew.hs @@ -726,8 +726,7 @@ downloadDispatcher brains env = flip runContT pure do Nothing -> 1.0 Just hp -> case HM.lookup hp sizeCache of Just (Just _) -> 0.5 - Just Nothing -> 1.5 - Nothing -> 1.0 + _ -> 1.0 modifyTVar r (HPSQ.insert h eps dcb) s <- readTVar r <&> HPSQ.size