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

fix inverted logic in old associated files cleanup

Browse source
This commit is contained in:
Joey Hess 2016-01-07 15:54:10 -04:00
parent 722f56a99d
commit b1a1b40a15
Failed to extract signature
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
Database/Keys.hs
View file

@ -173,7 +173,7 @@ addAssociatedFile' k f = queueDb $ do
-- If the same file was associated with a different key before, -- If the same file was associated with a different key before,
-- remove that. -- remove that.
delete $ from $ \r -> do delete $ from $ \r -> do
where_ (r ^. AssociatedFile ==. val (getTopFilePath f) &&. r ^. AssociatedKey ==. val sk) where_ (r ^. AssociatedFile ==. val (getTopFilePath f) &&. not_ (r ^. AssociatedKey ==. val sk))
void $ insertUnique $ Associated sk (getTopFilePath f) void $ insertUnique $ Associated sk (getTopFilePath f)
where where
sk = toSKey k sk = toSKey k