diff --git a/Command/RecvKey.hs b/Command/RecvKey.hs
index 07e0eab80f..fd2b973418 100644
--- a/Command/RecvKey.hs
+++ b/Command/RecvKey.hs
@@ -25,7 +25,7 @@ seek = [withKeys start]
 start :: Key -> CommandStart
 start key = ifM (inAnnex key)
 	( error "key is already present in annex"
-	, fieldTransfer Download key $ \p -> do
+	, fieldTransfer Download key $ _p -> do
 		ifM (getViaTmp key $ liftIO . rsyncServerReceive)
 			( do
 				-- forcibly quit after receiving one key,