fix logic error breaking direct mode assistant autocommit of modified files

This commit is contained in:
Joey Hess 2012-12-28 16:00:19 -04:00
parent c1df8eb398
commit 2fdefc656b

View file

@ -84,7 +84,7 @@ changedFileStatus :: Key -> FileStatus -> Annex Bool
changedFileStatus key status = do
old <- recordedCache key
let curr = toCache status
return $ curr == old
return $ curr /= old
{- Gets the recorded cache for a key. -}
recordedCache :: Key -> Annex (Maybe Cache)