inverted logic

2013-11-13 14:41:32 -04:00 · 2013-11-13 14:41:32 -04:00 · 6a45f4cdaf
commit 6a45f4cdaf
parent eab4470440
1 changed files with 1 additions and 1 deletions
--- 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