summaryrefslogtreecommitdiff
path: root/Command/Fsck.hs
diff options
context:
space:
mode:
authorGravatar Joey Hess <joeyh@joeyh.name>2015-02-10 13:10:58 -0400
committerGravatar Joey Hess <joeyh@joeyh.name>2015-02-10 13:10:58 -0400
commit2f1556e4c7acb67ac867b89f9c7dacbd485ca66b (patch)
tree220cc9756ed7e365d278021064abdb1c9c396238 /Command/Fsck.hs
parent10c642ed4982d8fdfb3f85a10bfe4ca6c97bb355 (diff)
fsck --from: If a download from a remote fails, propigate the failure.
Diffstat (limited to 'Command/Fsck.hs')
-rw-r--r--Command/Fsck.hs5
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