typo

diff --git a/P2P/Annex.hs b/P2P/Annex.hs
index 771a72126beb960b44921e2a5ed31e934065dc55..d24e65b0fc26f8376150b579a5a9bdbeb23d8d40 100644 (file)
--- 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