fix build warning

This commit is contained in:
Joey Hess 2022-11-09 15:33:46 -04:00
parent cdbee87a05
commit 27444459e9
No known key found for this signature in database
GPG key ID: DB12DB0FF05F8F38

View file

@ -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"