From a7db925f59fb74c064224157c0b646f0bd63fd42 Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Tue, 23 Apr 2019 13:19:48 -0400 Subject: [PATCH] typo --- Remote/S3.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/Remote/S3.hs b/Remote/S3.hs index c2fe3c7b6c..ffcd42cfd5 100644 --- a/Remote/S3.hs +++ b/Remote/S3.hs @@ -351,7 +351,7 @@ checkKeyHelper info h loc = checkKeyHelper' info h o limit (o, limit) = case loc of Left obj -> (obj, id) - Right (S3VersionID o vid) -> + Right (S3VersionID obj vid) -> (obj, \ho -> ho { S3.hoVersionId = Just vid }) checkKeyHelper' :: S3Info -> S3Handle -> S3.Object -> (S3.HeadObject -> S3.HeadObject) -> Annex Bool