diff options
Diffstat (limited to 'Command')
| -rw-r--r-- | Command/Drop.hs | 6 | ||||
| -rw-r--r-- | Command/Fsck.hs | 6 |
2 files changed, 4 insertions, 8 deletions
diff --git a/Command/Drop.hs b/Command/Drop.hs index 5699175ed..1d09ca3fd 100644 --- a/Command/Drop.hs +++ b/Command/Drop.hs @@ -89,10 +89,8 @@ cleanupLocal key = do cleanupRemote :: Key -> Remote -> Bool -> CommandCleanup cleanupRemote key remote ok = do - -- better safe than sorry: assume the remote dropped the key - -- even if it seemed to fail; the failure could have occurred - -- after it really dropped it - Remote.logStatus remote key InfoMissing + when ok $ + Remote.logStatus remote key InfoMissing return ok {- Checks specified remotes to verify that enough copies of a key exist to diff --git a/Command/Fsck.hs b/Command/Fsck.hs index a27588482..aeed58cd1 100644 --- a/Command/Fsck.hs +++ b/Command/Fsck.hs @@ -401,10 +401,8 @@ badContentDirect file key = do badContentRemote :: Remote -> Key -> Annex String badContentRemote remote key = do ok <- Remote.removeKey remote key - -- better safe than sorry: assume the remote dropped the key - -- even if it seemed to fail; the failure could have occurred - -- after it really dropped it - Remote.logStatus remote key InfoMissing + when ok $ + Remote.logStatus remote key InfoMissing return $ (if ok then "dropped from " else "failed to drop from ") ++ Remote.name remote |