diff options
author | 2013-10-07 13:03:05 -0400 | |
---|---|---|
committer | 2013-10-07 13:03:05 -0400 | |
commit | 894422e4234a463d34faf168b7b7cae68972a350 (patch) | |
tree | 08a2987bfb1a3522182b44ee814670407b095c61 /Assistant | |
parent | 2c056703aad7cce36e8bc9213b3f922c5823c901 (diff) |
import: Skip .git directories.
Diffstat (limited to 'Assistant')
-rw-r--r-- | Assistant/Threads/SanityChecker.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/Assistant/Threads/SanityChecker.hs b/Assistant/Threads/SanityChecker.hs index 7d6057924..b3aa9ddfd 100644 --- a/Assistant/Threads/SanityChecker.hs +++ b/Assistant/Threads/SanityChecker.hs @@ -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 () |