add tmp flag parameter to retrieveKeyFile

This commit is contained in:
Joey Hess 2012-01-19 16:07:36 -04:00
parent 94aa6b42b5
commit 06b0cb6224
12 changed files with 29 additions and 27 deletions

View file

@ -198,8 +198,8 @@ dropKey r key
]
{- Tries to copy a key's content from a remote's annex to a file. -}
copyFromRemote :: Git.Repo -> Key -> FilePath -> Annex Bool
copyFromRemote r key file
copyFromRemote :: Git.Repo -> Key -> Bool -> FilePath -> Annex Bool
copyFromRemote r key _ file
| not $ Git.repoIsUrl r = do
params <- rsyncParams r
loc <- liftIO $ gitAnnexLocation key r