This commit is contained in:
Joey Hess 2019-04-23 13:19:48 -04:00
parent 67d6280242
commit a7db925f59
No known key found for this signature in database
GPG key ID: DB12DB0FF05F8F38

View file

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