diff options
| -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 b7dd45a21..21ec60ccc 100644 --- a/Assistant/Threads/SanityChecker.hs +++ b/Assistant/Threads/SanityChecker.hs @@ -40,7 +40,7 @@ sanityCheckerStartupThread startupdelay = namedThreadUnchecked "SanityCheckerSta {- A corrupt index file can prevent the assistant from working at - all, so detect and repair. -} - ifM (liftAnnex $ inRepo $ checkIndex S.empty) + ifM (not <$> liftAnnex (inRepo (checkIndex S.empty))) ( do debug ["corrupt index file found at startup; removing and restaging"] liftAnnex $ inRepo nukeIndex |