From 088d819cd8f2ee20f8b4b80eca73b4897c7398ec Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Tue, 12 Sep 2017 13:46:33 -0400 Subject: [PATCH] propigate exception in checkPresentExportS3 checkPresentExport is supposed to throw exceptions --- Remote/S3.hs | 4 +--- 1 file changed, 1 insertion(+), 3 deletions(-) diff --git a/Remote/S3.hs b/Remote/S3.hs index c8092a4c97..38cda29c44 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.