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

typo

Browse source
This commit is contained in:
Joey Hess 2012-09-19 17:10:22 -04:00
parent 77938a7d62
commit 0cb4382880
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,