diff options
author | Joey Hess <joey@kitenet.net> | 2013-10-29 13:52:19 -0400 |
---|---|---|
committer | Joey Hess <joey@kitenet.net> | 2013-10-29 13:52:19 -0400 |
commit | e802db0b6b69198e4699d63d76b5d0fc78864714 (patch) | |
tree | 7ee36202254e7ea170c8e8a0e6083e1a2c2f1a82 /Assistant/Threads/SanityChecker.hs | |
parent | 2db78797ee58e53f06bd2d104fb203c45247e7c0 (diff) |
fix stale git locks as part of repo repair
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 916cf52c4..0dd047fc9 100644 --- a/Assistant/Threads/SanityChecker.hs +++ b/Assistant/Threads/SanityChecker.hs @@ -33,7 +33,7 @@ import Data.Time.Clock.POSIX - being nonresponsive.) -} sanityCheckerStartupThread :: Maybe Duration -> NamedThread sanityCheckerStartupThread startupdelay = namedThreadUnchecked "SanityCheckerStartup" $ do - checkStaleGitLocks + repairStaleGitLocks =<< liftAnnex gitRepo liftIO $ maybe noop (threadDelaySeconds . Seconds . fromIntegral . durationSeconds) startupdelay |