show message when doing possibly expensive from scratch reposize calculation
This commit is contained in:
parent
c200523bac
commit
c376b1bd7e
2 changed files with 11 additions and 0 deletions
|
@ -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
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue