diff options
author | 2015-02-10 13:10:58 -0400 | |
---|---|---|
committer | 2015-02-10 13:10:58 -0400 | |
commit | 2f1556e4c7acb67ac867b89f9c7dacbd485ca66b (patch) | |
tree | 220cc9756ed7e365d278021064abdb1c9c396238 /Command/Fsck.hs | |
parent | 10c642ed4982d8fdfb3f85a10bfe4ca6c97bb355 (diff) |
fsck --from: If a download from a remote fails, propigate the failure.
Diffstat (limited to 'Command/Fsck.hs')
-rw-r--r-- | Command/Fsck.hs | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/Command/Fsck.hs b/Command/Fsck.hs index e8b1d240c..5951a88be 100644 --- a/Command/Fsck.hs +++ b/Command/Fsck.hs @@ -141,7 +141,10 @@ performRemote key file backend numcopies remote = dispatch (Right True) = withtmp $ \tmpfile -> ifM (getfile tmpfile) ( go True (Just tmpfile) - , go True Nothing + , do + warning "failed to download file from remote" + go True Nothing + return False ) dispatch (Right False) = go False Nothing go present localcopy = check |