From c69d340ce51750faa1ace61c9efbb776ba045ee1 Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Wed, 9 Nov 2022 13:25:05 -0400 Subject: [PATCH] remove dangling where clause --- Remote/S3.hs | 1 - 1 file changed, 1 deletion(-) diff --git a/Remote/S3.hs b/Remote/S3.hs index ab9f5d2ab0..2bf78378c4 100644 --- a/Remote/S3.hs +++ b/Remote/S3.hs @@ -531,7 +531,6 @@ removeExportS3 hv r rs info k loc = withS3Handle hv $ \case S3.DeleteObject (T.pack $ bucketExportLocation info loc) (bucket info) return () Left p -> giveupS3HandleProblem p (uuid r) - where checkPresentExportS3 :: S3HandleVar -> Remote -> S3Info -> Key -> ExportLocation -> Annex Bool checkPresentExportS3 hv r info k loc = withS3Handle hv $ \case