mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages 1 Wiki Activity Actions

fix logic error breaking direct mode assistant autocommit of modified files

Browse source
This commit is contained in:
Joey Hess 2012-12-28 16:00:19 -04:00
parent c1df8eb398
commit 2fdefc656b
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
Annex/Content/Direct.hs
View file

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