diff options
Diffstat (limited to 'Command')
| -rw-r--r-- | Command/Fsck.hs | 2 | ||||
| -rw-r--r-- | Command/Get.hs | 2 | ||||
| -rw-r--r-- | Command/Move.hs | 2 |
3 files changed, 3 insertions, 3 deletions
diff --git a/Command/Fsck.hs b/Command/Fsck.hs index aec29a39b..77e189f43 100644 --- a/Command/Fsck.hs +++ b/Command/Fsck.hs @@ -65,7 +65,7 @@ performRemote key file backend numcopies remote = withTmp key $ \tmpfile -> do showNote err stop Right True -> do - copied <- Remote.retrieveKeyFile remote key tmpfile + copied <- Remote.retrieveKeyFile remote key True tmpfile if copied then go True (Just tmpfile) else go False Nothing Right False -> go False Nothing where diff --git a/Command/Get.hs b/Command/Get.hs index 5d032e13c..7f5c08a7e 100644 --- a/Command/Get.hs +++ b/Command/Get.hs @@ -72,7 +72,7 @@ getKeyFile key file = do else return True docopy r continue = do showAction $ "from " ++ Remote.name r - copied <- Remote.retrieveKeyFile r key file + copied <- Remote.retrieveKeyFile r key False file if copied then return True else continue diff --git a/Command/Move.hs b/Command/Move.hs index 2f2cd1b5d..003ca27b8 100644 --- a/Command/Move.hs +++ b/Command/Move.hs @@ -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 |