import: Skip .git directories.
This commit is contained in:
parent
ac26b70809
commit
45aed381df
5 changed files with 10 additions and 3 deletions
|
@ -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 ()
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue