diff --git a/src/Jobs/Handler/Files.hs b/src/Jobs/Handler/Files.hs index b22a02af6..6fa139a45 100644 --- a/src/Jobs/Handler/Files.hs +++ b/src/Jobs/Handler/Files.hs @@ -326,7 +326,7 @@ dispatchJobInjectFiles = JobHandlerException . maybeT (return ()) $ do eta :: Maybe Integer eta = do accsz' <- assertM' (/= 0) accsz - return . ceiling $ (toRational currT - toRational startT) / (fromIntegral accsz') * (fromIntegral sz - fromIntegral accsz) + return . ceiling $ (toRational currT - toRational startT) / fromIntegral accsz' * (fromIntegral sz - fromIntegral accsz) when (lastReport' /= lastReport || sz' >= fromIntegral sz) $ flip runLoggingT logger . $logInfoS "InjectFiles" . mconcat $ catMaybes [ pure [st|Sinking chunk ##{tshow c} (#{textBytes csz}): #{textBytes sz'}/#{textBytes sz} (#{tshow p}%)|]