show message when doing possibly expensive from scratch reposize calculation

This commit is contained in:
Joey Hess 2024-08-15 12:40:48 -04:00
parent c200523bac
commit c376b1bd7e
No known key found for this signature in database
GPG key ID: DB12DB0FF05F8F38
2 changed files with 11 additions and 0 deletions

View file

@ -5,6 +5,8 @@
- Licensed under the GNU AGPL version 3 or higher.
-}
{-# LANGUAGE OverloadedStrings #-}
module Annex.RepoSize (
getRepoSizes,
) where
@ -43,6 +45,7 @@ updateRepoSizes = bracket Db.openDb Db.closeDb $ \h -> do
calculatefromscratch h >>= set
where
calculatefromscratch h = do
showSideAction "calculating repository sizes"
(sizemap, branchsha) <- calcBranchRepoSizes
liftIO $ Db.setRepoSizes h sizemap branchsha
journalledRepoSizes sizemap branchsha