summaryrefslogtreecommitdiff
path: root/P2P/Annex.hs
diff options
context:
space:
mode:
Diffstat (limited to 'P2P/Annex.hs')
-rw-r--r--P2P/Annex.hs2
1 files changed, 1 insertions, 1 deletions
diff --git a/P2P/Annex.hs b/P2P/Annex.hs
index 771a72126..d24e65b0f 100644
--- a/P2P/Annex.hs
+++ b/P2P/Annex.hs
@@ -92,7 +92,7 @@ runLocal runmode runner a = case a of
Right result -> runner (next result)
RemoveContent k next -> do
v <- tryNonAsync $
- ifM (Annex.Content.inAnnex key)
+ ifM (Annex.Content.inAnnex k)
( lockContentForRemoval k $ \contentlock -> do
removeAnnex contentlock
logStatus k InfoMissing