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

@ -131,7 +131,7 @@ fromPerform src move key = moveLock move key $ do
then handle move True
else do
showAction $ "from " ++ Remote.name src
ok <- getViaTmp key $ Remote.retrieveKeyFile src key
ok <- getViaTmp key $ Remote.retrieveKeyFile src key False
handle move ok
where
handle _ False = stop -- failed