fix build warning

diff --git a/Remote/S3.hs b/Remote/S3.hs
index 2bf78378c48990d5a0dd1281b6fd8305b14d834e..b4e63dbaa63b1573722bb2b68aa71d98ef73fa1b 100644 (file)
--- 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"