mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages 1 Wiki Activity Actions

only do scan when there's a branch, not in freshly created new repo

Browse source
This commit is contained in:
Joey Hess 2016-01-01 15:16:16 -04:00
parent e9a33088e8
commit 9b99595473
Failed to extract signature
1 changed files with 10 additions and 8 deletions
Download patch file Download diff file Expand all files Collapse all files

4
Database/Keys.hs
View file

@ -38,6 +38,7 @@ import Utility.InodeCache
import Annex.InodeSentinal import Annex.InodeSentinal
import qualified Git.Types import qualified Git.Types
import qualified Git.LsTree import qualified Git.LsTree
import qualified Git.Branch
import Git.Ref import Git.Ref
import Git.FilePath import Git.FilePath
import Annex.CatFile import Annex.CatFile
@ -214,7 +215,8 @@ removeAssociatedFile' sk f = queueDb $
{- Find all unlocked associated files. This is expensive, and so normally {- Find all unlocked associated files. This is expensive, and so normally
- the associated files are updated incrementally when changes are noticed. -} - the associated files are updated incrementally when changes are noticed. -}
scanAssociatedFiles :: Annex () scanAssociatedFiles :: Annex ()
scanAssociatedFiles = runWriter $ \h -> do scanAssociatedFiles = whenM (isJust <$> inRepo Git.Branch.current) $
runWriter $ \h -> do
showSideAction "scanning for unlocked files" showSideAction "scanning for unlocked files"
dropallassociated h dropallassociated h
l <- inRepo $ Git.LsTree.lsTree headRef l <- inRepo $ Git.LsTree.lsTree headRef