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

Fixed a not equal condition in addAssociatedFile.

Browse source
This commit is contained in:
Sean Parsons 2018-11-06 22:50:00 +00:00
parent 42bdc9fa2f
commit ef5a735d47
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
Database/Keys/SQL.hs
View file

@ -62,7 +62,7 @@ addAssociatedFile :: IKey -> TopFilePath -> WriteHandle -> IO ()
addAssociatedFile ik f = queueDb $ do addAssociatedFile ik 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.
deleteWhere [AssociatedFile ==. af, AssociatedKey ==. ik] deleteWhere [AssociatedFile ==. af, AssociatedKey !=. ik]
void $ insertUnique $ Associated ik af void $ insertUnique $ Associated ik af
where where
af = toSFilePath (getTopFilePath f) af = toSFilePath (getTopFilePath f)