mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages 1 Wiki Activity Actions

recvkey is not an upload, so ignore the progress callback

Browse source
This commit is contained in:
Joey Hess 2012-09-19 17:02:33 -04:00
parent e1037adebc
commit f542701620
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
Command/RecvKey.hs
View file

@ -25,7 +25,7 @@ seek = [withKeys start]
start :: Key -> CommandStart start :: Key -> CommandStart
start key = ifM (inAnnex key) start key = ifM (inAnnex key)
( error "key is already present in annex" ( error "key is already present in annex"
, fieldTransfer Download key $ \p -> do , fieldTransfer Download key $ _p -> do
ifM (getViaTmp key $ liftIO . rsyncServerReceive) ifM (getViaTmp key $ liftIO . rsyncServerReceive)
( do ( do
-- forcibly quit after receiving one key, -- forcibly quit after receiving one key,