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

import: Skip .git directories.

Browse source
This commit is contained in:
Joey Hess 2013-10-07 13:03:05 -04:00
parent ac26b70809
commit 45aed381df
5 changed files with 10 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

2
Assistant/Threads/SanityChecker.hs
View file

@ -162,7 +162,7 @@ checkStaleGitLocks :: Assistant ()
checkStaleGitLocks = do
lockfiles <- filter (not . isInfixOf "gc.pid")
. filter (".lock" `isSuffixOf`)
<$> (liftIO . dirContentsRecursiveSkipping (annexDir `isInfixOf`)
<$> (liftIO . dirContentsRecursiveSkipping (== dropTrailingPathSeparator annexDir)
=<< liftAnnex (fromRepo Git.localGitDir))
checkStaleLocks lockfiles
checkStaleLocks :: [FilePath] -> Assistant ()