propigate exception in checkPresentExportS3

checkPresentExport is supposed to throw exceptions
This commit is contained in:
Joey Hess 2017-09-12 13:46:33 -04:00
parent 1332e6cec0
commit 088d819cd8
No known key found for this signature in database
GPG key ID: DB12DB0FF05F8F38

View file

@ -348,9 +348,7 @@ removeExportS3 r info _k loc =
checkPresentExportS3 :: Remote -> S3Info -> Key -> ExportLocation -> Annex Bool
checkPresentExportS3 r info _k loc =
catchNonAsync go (\e -> warning (show e) >> return False)
where
go = withS3Handle (config r) (gitconfig r) (uuid r) $ \h -> do
withS3Handle (config r) (gitconfig r) (uuid r) $ \h -> do
checkKeyHelper info h (T.pack $ bucketExportLocation info loc)
-- S3 has no move primitive; copy and delete.