From 27444459e9b9aa3ad580f5e8cd19a63b836e9a6f Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Wed, 9 Nov 2022 15:33:46 -0400 Subject: [PATCH] fix build warning --- Remote/S3.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/Remote/S3.hs b/Remote/S3.hs index 2bf78378c4..b4e63dbaa6 100644 --- a/Remote/S3.hs +++ b/Remote/S3.hs @@ -691,7 +691,7 @@ retrieveExportWithContentIdentifierS3 hv r rs info loc (cid:_) dest gk p = setS3VersionID info rs k vid Left _ -> noop return k - Left p -> giveupS3HandleProblem p (uuid r) + Left pr -> giveupS3HandleProblem pr (uuid r) o = T.pack $ bucketExportLocation info loc retrieveExportWithContentIdentifierS3 _ _ _ _ _ [] _ _ _ = giveup "missing content identifier" -- 2.30.2