diff options
| author |  Joey Hess <joeyh@joeyh.name> | 2016-01-07 15:54:10 -0400 |
|---|---|---|
| committer | Joey Hess <joeyh@joeyh.name> | 2016-01-07 15:54:10 -0400 |
| commit | a3a92b330d11737fbc46a5af4ed16190f4291d7c (patch) | |
| tree | 1c84b423e5a34f2a9ff97e3af33c0fc49b1ad923 /Database | |
| parent | f8c37629022d9e8ba949abe4604d3b404d50626f (diff) | |
fix inverted logic in old associated files cleanup
Diffstat (limited to 'Database')
| -rw-r--r-- | Database/Keys.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/Database/Keys.hs b/Database/Keys.hs index 38d9742df..4c4c65850 100644 --- a/Database/Keys.hs +++ b/Database/Keys.hs @@ -173,7 +173,7 @@ addAssociatedFile' k f = queueDb $ do -- If the same file was associated with a different key before, -- remove that. 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) where sk = toSKey k |