diff options
| author |  Joey Hess <joeyh@joeyh.name> | 2017-09-12 13:46:33 -0400 |
|---|---|---|
| committer | Joey Hess <joeyh@joeyh.name> | 2017-09-12 13:46:33 -0400 |
| commit | bfffa60a873433d75f68f1fd4e35dc595a9449b0 (patch) | |
| tree | 29bf67570b0f343cdef2da90213af1bac1a5dffa /Remote | |
| parent | df0b06d217524407965942455032bc5d9eefa247 (diff) | |
propigate exception in checkPresentExportS3
checkPresentExport is supposed to throw exceptions
Diffstat (limited to 'Remote')
| -rw-r--r-- | Remote/S3.hs | 4 |
1 files changed, 1 insertions, 3 deletions
diff --git a/Remote/S3.hs b/Remote/S3.hs index c8092a4c9..38cda29c4 100644 --- a/Remote/S3.hs +++ b/Remote/S3.hs @@ -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. |