From bfffa60a873433d75f68f1fd4e35dc595a9449b0 Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Tue, 12 Sep 2017 13:46:33 -0400 Subject: propigate exception in checkPresentExportS3 checkPresentExport is supposed to throw exceptions --- Remote/S3.hs | 4 +--- 1 file changed, 1 insertion(+), 3 deletions(-) (limited to 'Remote') 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. -- cgit v1.2.3