diff options
Diffstat (limited to 'Assistant/Threads/SanityChecker.hs')
| -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 () |