diff options
author | 2015-05-12 15:50:03 -0400 | |
---|---|---|
committer | 2015-05-12 15:53:38 -0400 | |
commit | 7ca8bf3321d1b62ea4e817e28914ed2fa56afe30 (patch) | |
tree | 2d176cb156c749348d4805af31309a25bdc9f897 /Command/Move.hs | |
parent | b94eafec8c4a7868da753f9b22ca823552e9764c (diff) |
Avoid accumulating transfer failure log files unless the assistant is being used.
Only the assistant uses these, and only the assistant cleans them up, so
make only git annex transferkeys write them,
There is one behavior change from this. If glacier is being used, and a
manual git annex get --from glacier fails because the file isn't available
yet, the assistant will no longer later see that failed transfer file and
retry the get. Hope no-one depended on that old behavior.
Diffstat (limited to 'Command/Move.hs')
-rw-r--r-- | Command/Move.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/Command/Move.hs b/Command/Move.hs index 91f7c8ea7..6867052de 100644 --- a/Command/Move.hs +++ b/Command/Move.hs @@ -95,7 +95,7 @@ toPerform dest move key afile fastcheck isthere = Right False -> do showAction $ "to " ++ Remote.name dest ok <- notifyTransfer Upload afile $ - upload (Remote.uuid dest) key afile noRetry $ + upload (Remote.uuid dest) key afile noRetry noObserver $ Remote.storeKey dest key afile if ok then do @@ -152,7 +152,7 @@ fromPerform src move key afile = ifM (inAnnex key) ) where go = notifyTransfer Download afile $ - download (Remote.uuid src) key afile noRetry $ \p -> do + download (Remote.uuid src) key afile noRetry noObserver $ \p -> do showAction $ "from " ++ Remote.name src getViaTmp key $ \t -> Remote.retrieveKeyFile src key afile t p dispatch _ False = stop -- failed |