summaryrefslogtreecommitdiff
path: root/Command/RecvKey.hs
diff options
context:
space:
mode:
authorGravatar Joey Hess <joey@kitenet.net>2012-09-19 17:02:33 -0400
committerGravatar Joey Hess <joey@kitenet.net>2012-09-19 17:02:33 -0400
commitf542701620b487a4eaf06935238c246ca0c9e88f (patch)
tree5af2937f9533423b327c8a83424bed3f05ee6f75 /Command/RecvKey.hs
parente1037adebc31a37abab5f3fe83131acde4d27b16 (diff)
recvkey is not an upload, so ignore the progress callback
Diffstat (limited to 'Command/RecvKey.hs')
-rw-r--r--Command/RecvKey.hs2
1 files changed, 1 insertions, 1 deletions
diff --git a/Command/RecvKey.hs b/Command/RecvKey.hs
index 07e0eab80..fd2b97341 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,