mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages 1 Wiki Activity Actions

propigate exception in checkPresentExportS3

Browse source 
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
1 changed files with 1 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

4
Remote/S3.hs
View file

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