aboutsummaryrefslogtreecommitdiff
path: root/Command/Fsck.hs
diff options
context:
space:
mode:
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