{-# LANGUAGE DeriveGeneric #-}
{-# LANGUAGE DuplicateRecordFields #-}
{-# LANGUAGE NamedFieldPuns #-}
{-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE RecordWildCards #-}
{-# LANGUAGE StrictData #-}
{-# LANGUAGE TypeFamilies #-}
{-# LANGUAGE NoImplicitPrelude #-}
{-# OPTIONS_GHC -fno-warn-unused-binds #-}
{-# OPTIONS_GHC -fno-warn-unused-imports #-}
{-# OPTIONS_GHC -fno-warn-unused-matches #-}

-- Derived from AWS service descriptions, licensed under Apache 2.0.

-- |
-- Module      : Amazonka.S3.WriteGetObjectResponse
-- Copyright   : (c) 2013-2023 Brendan Hay
-- License     : Mozilla Public License, v. 2.0.
-- Maintainer  : Brendan Hay
-- Stability   : auto-generated
-- Portability : non-portable (GHC extensions)
--
-- Passes transformed objects to a @GetObject@ operation when using Object
-- Lambda access points. For information about Object Lambda access points,
-- see
-- <https://docs.aws.amazon.com/AmazonS3/latest/userguide/transforming-objects.html Transforming objects with Object Lambda access points>
-- in the /Amazon S3 User Guide/.
--
-- This operation supports metadata that can be returned by
-- <https://docs.aws.amazon.com/AmazonS3/latest/API/API_GetObject.html GetObject>,
-- in addition to @RequestRoute@, @RequestToken@, @StatusCode@,
-- @ErrorCode@, and @ErrorMessage@. The @GetObject@ response metadata is
-- supported so that the @WriteGetObjectResponse@ caller, typically an
-- Lambda function, can provide the same metadata when it internally
-- invokes @GetObject@. When @WriteGetObjectResponse@ is called by a
-- customer-owned Lambda function, the metadata returned to the end user
-- @GetObject@ call might differ from what Amazon S3 would normally return.
--
-- You can include any number of metadata headers. When including a
-- metadata header, it should be prefaced with @x-amz-meta@. For example,
-- @x-amz-meta-my-custom-header: MyCustomValue@. The primary use case for
-- this is to forward @GetObject@ metadata.
--
-- Amazon Web Services provides some prebuilt Lambda functions that you can
-- use with S3 Object Lambda to detect and redact personally identifiable
-- information (PII) and decompress S3 objects. These Lambda functions are
-- available in the Amazon Web Services Serverless Application Repository,
-- and can be selected through the Amazon Web Services Management Console
-- when you create your Object Lambda access point.
--
-- Example 1: PII Access Control - This Lambda function uses Amazon
-- Comprehend, a natural language processing (NLP) service using machine
-- learning to find insights and relationships in text. It automatically
-- detects personally identifiable information (PII) such as names,
-- addresses, dates, credit card numbers, and social security numbers from
-- documents in your Amazon S3 bucket.
--
-- Example 2: PII Redaction - This Lambda function uses Amazon Comprehend,
-- a natural language processing (NLP) service using machine learning to
-- find insights and relationships in text. It automatically redacts
-- personally identifiable information (PII) such as names, addresses,
-- dates, credit card numbers, and social security numbers from documents
-- in your Amazon S3 bucket.
--
-- Example 3: Decompression - The Lambda function
-- S3ObjectLambdaDecompression, is equipped to decompress objects stored in
-- S3 in one of six compressed file formats including bzip2, gzip, snappy,
-- zlib, zstandard and ZIP.
--
-- For information on how to view and use these functions, see
-- <https://docs.aws.amazon.com/AmazonS3/latest/userguide/olap-examples.html Using Amazon Web Services built Lambda functions>
-- in the /Amazon S3 User Guide/.
module Amazonka.S3.WriteGetObjectResponse
  ( -- * Creating a Request
    WriteGetObjectResponse (..),
    newWriteGetObjectResponse,

    -- * Request Lenses
    writeGetObjectResponse_acceptRanges,
    writeGetObjectResponse_bucketKeyEnabled,
    writeGetObjectResponse_cacheControl,
    writeGetObjectResponse_checksumCRC32,
    writeGetObjectResponse_checksumCRC32C,
    writeGetObjectResponse_checksumSHA1,
    writeGetObjectResponse_checksumSHA256,
    writeGetObjectResponse_contentDisposition,
    writeGetObjectResponse_contentEncoding,
    writeGetObjectResponse_contentLanguage,
    writeGetObjectResponse_contentLength,
    writeGetObjectResponse_contentRange,
    writeGetObjectResponse_contentType,
    writeGetObjectResponse_deleteMarker,
    writeGetObjectResponse_eTag,
    writeGetObjectResponse_errorCode,
    writeGetObjectResponse_errorMessage,
    writeGetObjectResponse_expiration,
    writeGetObjectResponse_expires,
    writeGetObjectResponse_lastModified,
    writeGetObjectResponse_metadata,
    writeGetObjectResponse_missingMeta,
    writeGetObjectResponse_objectLockLegalHoldStatus,
    writeGetObjectResponse_objectLockMode,
    writeGetObjectResponse_objectLockRetainUntilDate,
    writeGetObjectResponse_partsCount,
    writeGetObjectResponse_replicationStatus,
    writeGetObjectResponse_requestCharged,
    writeGetObjectResponse_restore,
    writeGetObjectResponse_sSECustomerAlgorithm,
    writeGetObjectResponse_sSECustomerKeyMD5,
    writeGetObjectResponse_sSEKMSKeyId,
    writeGetObjectResponse_serverSideEncryption,
    writeGetObjectResponse_statusCode,
    writeGetObjectResponse_storageClass,
    writeGetObjectResponse_tagCount,
    writeGetObjectResponse_versionId,
    writeGetObjectResponse_requestRoute,
    writeGetObjectResponse_requestToken,
    writeGetObjectResponse_body,

    -- * Destructuring the Response
    WriteGetObjectResponseResponse (..),
    newWriteGetObjectResponseResponse,
  )
where

import qualified Amazonka.Core as Core
import qualified Amazonka.Core.Lens.Internal as Lens
import qualified Amazonka.Data as Data
import qualified Amazonka.Prelude as Prelude
import qualified Amazonka.Request as Request
import qualified Amazonka.Response as Response
import Amazonka.S3.Types

-- | /See:/ 'newWriteGetObjectResponse' smart constructor.
data WriteGetObjectResponse = WriteGetObjectResponse'
  { -- | Indicates that a range of bytes was specified.
    WriteGetObjectResponse -> Maybe Text
acceptRanges :: Prelude.Maybe Prelude.Text,
    -- | Indicates whether the object stored in Amazon S3 uses an S3 bucket key
    -- for server-side encryption with Amazon Web Services KMS (SSE-KMS).
    WriteGetObjectResponse -> Maybe Bool
bucketKeyEnabled :: Prelude.Maybe Prelude.Bool,
    -- | Specifies caching behavior along the request\/reply chain.
    WriteGetObjectResponse -> Maybe Text
cacheControl :: Prelude.Maybe Prelude.Text,
    -- | This header can be used as a data integrity check to verify that the
    -- data received is the same data that was originally sent. This specifies
    -- the base64-encoded, 32-bit CRC32 checksum of the object returned by the
    -- Object Lambda function. This may not match the checksum for the object
    -- stored in Amazon S3. Amazon S3 will perform validation of the checksum
    -- values only when the original @GetObject@ request required checksum
    -- validation. For more information about checksums, see
    -- <https://docs.aws.amazon.com/AmazonS3/latest/userguide/checking-object-integrity.html Checking object integrity>
    -- in the /Amazon S3 User Guide/.
    --
    -- Only one checksum header can be specified at a time. If you supply
    -- multiple checksum headers, this request will fail.
    WriteGetObjectResponse -> Maybe Text
checksumCRC32 :: Prelude.Maybe Prelude.Text,
    -- | This header can be used as a data integrity check to verify that the
    -- data received is the same data that was originally sent. This specifies
    -- the base64-encoded, 32-bit CRC32C checksum of the object returned by the
    -- Object Lambda function. This may not match the checksum for the object
    -- stored in Amazon S3. Amazon S3 will perform validation of the checksum
    -- values only when the original @GetObject@ request required checksum
    -- validation. For more information about checksums, see
    -- <https://docs.aws.amazon.com/AmazonS3/latest/userguide/checking-object-integrity.html Checking object integrity>
    -- in the /Amazon S3 User Guide/.
    --
    -- Only one checksum header can be specified at a time. If you supply
    -- multiple checksum headers, this request will fail.
    WriteGetObjectResponse -> Maybe Text
checksumCRC32C :: Prelude.Maybe Prelude.Text,
    -- | This header can be used as a data integrity check to verify that the
    -- data received is the same data that was originally sent. This specifies
    -- the base64-encoded, 160-bit SHA-1 digest of the object returned by the
    -- Object Lambda function. This may not match the checksum for the object
    -- stored in Amazon S3. Amazon S3 will perform validation of the checksum
    -- values only when the original @GetObject@ request required checksum
    -- validation. For more information about checksums, see
    -- <https://docs.aws.amazon.com/AmazonS3/latest/userguide/checking-object-integrity.html Checking object integrity>
    -- in the /Amazon S3 User Guide/.
    --
    -- Only one checksum header can be specified at a time. If you supply
    -- multiple checksum headers, this request will fail.
    WriteGetObjectResponse -> Maybe Text
checksumSHA1 :: Prelude.Maybe Prelude.Text,
    -- | This header can be used as a data integrity check to verify that the
    -- data received is the same data that was originally sent. This specifies
    -- the base64-encoded, 256-bit SHA-256 digest of the object returned by the
    -- Object Lambda function. This may not match the checksum for the object
    -- stored in Amazon S3. Amazon S3 will perform validation of the checksum
    -- values only when the original @GetObject@ request required checksum
    -- validation. For more information about checksums, see
    -- <https://docs.aws.amazon.com/AmazonS3/latest/userguide/checking-object-integrity.html Checking object integrity>
    -- in the /Amazon S3 User Guide/.
    --
    -- Only one checksum header can be specified at a time. If you supply
    -- multiple checksum headers, this request will fail.
    WriteGetObjectResponse -> Maybe Text
checksumSHA256 :: Prelude.Maybe Prelude.Text,
    -- | Specifies presentational information for the object.
    WriteGetObjectResponse -> Maybe Text
contentDisposition :: Prelude.Maybe Prelude.Text,
    -- | Specifies what content encodings have been applied to the object and
    -- thus what decoding mechanisms must be applied to obtain the media-type
    -- referenced by the Content-Type header field.
    WriteGetObjectResponse -> Maybe Text
contentEncoding :: Prelude.Maybe Prelude.Text,
    -- | The language the content is in.
    WriteGetObjectResponse -> Maybe Text
contentLanguage :: Prelude.Maybe Prelude.Text,
    -- | The size of the content body in bytes.
    WriteGetObjectResponse -> Maybe Integer
contentLength :: Prelude.Maybe Prelude.Integer,
    -- | The portion of the object returned in the response.
    WriteGetObjectResponse -> Maybe Text
contentRange :: Prelude.Maybe Prelude.Text,
    -- | A standard MIME type describing the format of the object data.
    WriteGetObjectResponse -> Maybe Text
contentType :: Prelude.Maybe Prelude.Text,
    -- | Specifies whether an object stored in Amazon S3 is (@true@) or is not
    -- (@false@) a delete marker.
    WriteGetObjectResponse -> Maybe Bool
deleteMarker :: Prelude.Maybe Prelude.Bool,
    -- | An opaque identifier assigned by a web server to a specific version of a
    -- resource found at a URL.
    WriteGetObjectResponse -> Maybe ETag
eTag :: Prelude.Maybe ETag,
    -- | A string that uniquely identifies an error condition. Returned in the
    -- \<Code> tag of the error XML response for a corresponding @GetObject@
    -- call. Cannot be used with a successful @StatusCode@ header or when the
    -- transformed object is provided in the body. All error codes from S3 are
    -- sentence-cased. The regular expression (regex) value is
    -- @\"^[A-Z][a-zA-Z]+$\"@.
    WriteGetObjectResponse -> Maybe Text
errorCode :: Prelude.Maybe Prelude.Text,
    -- | Contains a generic description of the error condition. Returned in the
    -- \<Message> tag of the error XML response for a corresponding @GetObject@
    -- call. Cannot be used with a successful @StatusCode@ header or when the
    -- transformed object is provided in body.
    WriteGetObjectResponse -> Maybe Text
errorMessage :: Prelude.Maybe Prelude.Text,
    -- | If the object expiration is configured (see PUT Bucket lifecycle), the
    -- response includes this header. It includes the @expiry-date@ and
    -- @rule-id@ key-value pairs that provide the object expiration
    -- information. The value of the @rule-id@ is URL-encoded.
    WriteGetObjectResponse -> Maybe Text
expiration :: Prelude.Maybe Prelude.Text,
    -- | The date and time at which the object is no longer cacheable.
    WriteGetObjectResponse -> Maybe RFC822
expires :: Prelude.Maybe Data.RFC822,
    -- | The date and time that the object was last modified.
    WriteGetObjectResponse -> Maybe RFC822
lastModified :: Prelude.Maybe Data.RFC822,
    -- | A map of metadata to store with the object in S3.
    WriteGetObjectResponse -> HashMap Text Text
metadata :: Prelude.HashMap Prelude.Text Prelude.Text,
    -- | Set to the number of metadata entries not returned in @x-amz-meta@
    -- headers. This can happen if you create metadata using an API like SOAP
    -- that supports more flexible metadata than the REST API. For example,
    -- using SOAP, you can create metadata whose values are not legal HTTP
    -- headers.
    WriteGetObjectResponse -> Maybe Int
missingMeta :: Prelude.Maybe Prelude.Int,
    -- | Indicates whether an object stored in Amazon S3 has an active legal
    -- hold.
    WriteGetObjectResponse -> Maybe ObjectLockLegalHoldStatus
objectLockLegalHoldStatus :: Prelude.Maybe ObjectLockLegalHoldStatus,
    -- | Indicates whether an object stored in Amazon S3 has Object Lock enabled.
    -- For more information about S3 Object Lock, see
    -- <https://docs.aws.amazon.com/AmazonS3/latest/userguide/object-lock.html Object Lock>.
    WriteGetObjectResponse -> Maybe ObjectLockMode
objectLockMode :: Prelude.Maybe ObjectLockMode,
    -- | The date and time when Object Lock is configured to expire.
    WriteGetObjectResponse -> Maybe ISO8601
objectLockRetainUntilDate :: Prelude.Maybe Data.ISO8601,
    -- | The count of parts this object has.
    WriteGetObjectResponse -> Maybe Int
partsCount :: Prelude.Maybe Prelude.Int,
    -- | Indicates if request involves bucket that is either a source or
    -- destination in a Replication rule. For more information about S3
    -- Replication, see
    -- <https://docs.aws.amazon.com/AmazonS3/latest/userguide/replication.html Replication>.
    WriteGetObjectResponse -> Maybe ReplicationStatus
replicationStatus :: Prelude.Maybe ReplicationStatus,
    WriteGetObjectResponse -> Maybe RequestCharged
requestCharged :: Prelude.Maybe RequestCharged,
    -- | Provides information about object restoration operation and expiration
    -- time of the restored object copy.
    WriteGetObjectResponse -> Maybe Text
restore :: Prelude.Maybe Prelude.Text,
    -- | Encryption algorithm used if server-side encryption with a
    -- customer-provided encryption key was specified for object stored in
    -- Amazon S3.
    WriteGetObjectResponse -> Maybe Text
sSECustomerAlgorithm :: Prelude.Maybe Prelude.Text,
    -- | 128-bit MD5 digest of customer-provided encryption key used in Amazon S3
    -- to encrypt data stored in S3. For more information, see
    -- <https://docs.aws.amazon.com/AmazonS3/latest/userguide/ServerSideEncryptionCustomerKeys.html Protecting data using server-side encryption with customer-provided encryption keys (SSE-C)>.
    WriteGetObjectResponse -> Maybe Text
sSECustomerKeyMD5 :: Prelude.Maybe Prelude.Text,
    -- | If present, specifies the ID of the Amazon Web Services Key Management
    -- Service (Amazon Web Services KMS) symmetric customer managed key that
    -- was used for stored in Amazon S3 object.
    WriteGetObjectResponse -> Maybe (Sensitive Text)
sSEKMSKeyId :: Prelude.Maybe (Data.Sensitive Prelude.Text),
    -- | The server-side encryption algorithm used when storing requested object
    -- in Amazon S3 (for example, AES256, aws:kms).
    WriteGetObjectResponse -> Maybe ServerSideEncryption
serverSideEncryption :: Prelude.Maybe ServerSideEncryption,
    -- | The integer status code for an HTTP response of a corresponding
    -- @GetObject@ request.
    --
    -- __Status Codes__
    --
    -- -   @200 - OK@
    --
    -- -   @206 - Partial Content@
    --
    -- -   @304 - Not Modified@
    --
    -- -   @400 - Bad Request@
    --
    -- -   @401 - Unauthorized@
    --
    -- -   @403 - Forbidden@
    --
    -- -   @404 - Not Found@
    --
    -- -   @405 - Method Not Allowed@
    --
    -- -   @409 - Conflict@
    --
    -- -   @411 - Length Required@
    --
    -- -   @412 - Precondition Failed@
    --
    -- -   @416 - Range Not Satisfiable@
    --
    -- -   @500 - Internal Server Error@
    --
    -- -   @503 - Service Unavailable@
    WriteGetObjectResponse -> Maybe Int
statusCode :: Prelude.Maybe Prelude.Int,
    -- | Provides storage class information of the object. Amazon S3 returns this
    -- header for all objects except for S3 Standard storage class objects.
    --
    -- For more information, see
    -- <https://docs.aws.amazon.com/AmazonS3/latest/dev/storage-class-intro.html Storage Classes>.
    WriteGetObjectResponse -> Maybe StorageClass
storageClass :: Prelude.Maybe StorageClass,
    -- | The number of tags, if any, on the object.
    WriteGetObjectResponse -> Maybe Int
tagCount :: Prelude.Maybe Prelude.Int,
    -- | An ID used to reference a specific version of the object.
    WriteGetObjectResponse -> Maybe ObjectVersionId
versionId :: Prelude.Maybe ObjectVersionId,
    -- | Route prefix to the HTTP URL generated.
    WriteGetObjectResponse -> Text
requestRoute :: Prelude.Text,
    -- | A single use encrypted token that maps @WriteGetObjectResponse@ to the
    -- end user @GetObject@ request.
    WriteGetObjectResponse -> Text
requestToken :: Prelude.Text,
    -- | The object data.
    WriteGetObjectResponse -> RequestBody
body :: Data.RequestBody
  }
  deriving (Int -> WriteGetObjectResponse -> ShowS
[WriteGetObjectResponse] -> ShowS
WriteGetObjectResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [WriteGetObjectResponse] -> ShowS
$cshowList :: [WriteGetObjectResponse] -> ShowS
show :: WriteGetObjectResponse -> String
$cshow :: WriteGetObjectResponse -> String
showsPrec :: Int -> WriteGetObjectResponse -> ShowS
$cshowsPrec :: Int -> WriteGetObjectResponse -> ShowS
Prelude.Show, forall x. Rep WriteGetObjectResponse x -> WriteGetObjectResponse
forall x. WriteGetObjectResponse -> Rep WriteGetObjectResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep WriteGetObjectResponse x -> WriteGetObjectResponse
$cfrom :: forall x. WriteGetObjectResponse -> Rep WriteGetObjectResponse x
Prelude.Generic)

-- |
-- Create a value of 'WriteGetObjectResponse' with all optional fields omitted.
--
-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.
--
-- The following record fields are available, with the corresponding lenses provided
-- for backwards compatibility:
--
-- 'acceptRanges', 'writeGetObjectResponse_acceptRanges' - Indicates that a range of bytes was specified.
--
-- 'bucketKeyEnabled', 'writeGetObjectResponse_bucketKeyEnabled' - Indicates whether the object stored in Amazon S3 uses an S3 bucket key
-- for server-side encryption with Amazon Web Services KMS (SSE-KMS).
--
-- 'cacheControl', 'writeGetObjectResponse_cacheControl' - Specifies caching behavior along the request\/reply chain.
--
-- 'checksumCRC32', 'writeGetObjectResponse_checksumCRC32' - This header can be used as a data integrity check to verify that the
-- data received is the same data that was originally sent. This specifies
-- the base64-encoded, 32-bit CRC32 checksum of the object returned by the
-- Object Lambda function. This may not match the checksum for the object
-- stored in Amazon S3. Amazon S3 will perform validation of the checksum
-- values only when the original @GetObject@ request required checksum
-- validation. For more information about checksums, see
-- <https://docs.aws.amazon.com/AmazonS3/latest/userguide/checking-object-integrity.html Checking object integrity>
-- in the /Amazon S3 User Guide/.
--
-- Only one checksum header can be specified at a time. If you supply
-- multiple checksum headers, this request will fail.
--
-- 'checksumCRC32C', 'writeGetObjectResponse_checksumCRC32C' - This header can be used as a data integrity check to verify that the
-- data received is the same data that was originally sent. This specifies
-- the base64-encoded, 32-bit CRC32C checksum of the object returned by the
-- Object Lambda function. This may not match the checksum for the object
-- stored in Amazon S3. Amazon S3 will perform validation of the checksum
-- values only when the original @GetObject@ request required checksum
-- validation. For more information about checksums, see
-- <https://docs.aws.amazon.com/AmazonS3/latest/userguide/checking-object-integrity.html Checking object integrity>
-- in the /Amazon S3 User Guide/.
--
-- Only one checksum header can be specified at a time. If you supply
-- multiple checksum headers, this request will fail.
--
-- 'checksumSHA1', 'writeGetObjectResponse_checksumSHA1' - This header can be used as a data integrity check to verify that the
-- data received is the same data that was originally sent. This specifies
-- the base64-encoded, 160-bit SHA-1 digest of the object returned by the
-- Object Lambda function. This may not match the checksum for the object
-- stored in Amazon S3. Amazon S3 will perform validation of the checksum
-- values only when the original @GetObject@ request required checksum
-- validation. For more information about checksums, see
-- <https://docs.aws.amazon.com/AmazonS3/latest/userguide/checking-object-integrity.html Checking object integrity>
-- in the /Amazon S3 User Guide/.
--
-- Only one checksum header can be specified at a time. If you supply
-- multiple checksum headers, this request will fail.
--
-- 'checksumSHA256', 'writeGetObjectResponse_checksumSHA256' - This header can be used as a data integrity check to verify that the
-- data received is the same data that was originally sent. This specifies
-- the base64-encoded, 256-bit SHA-256 digest of the object returned by the
-- Object Lambda function. This may not match the checksum for the object
-- stored in Amazon S3. Amazon S3 will perform validation of the checksum
-- values only when the original @GetObject@ request required checksum
-- validation. For more information about checksums, see
-- <https://docs.aws.amazon.com/AmazonS3/latest/userguide/checking-object-integrity.html Checking object integrity>
-- in the /Amazon S3 User Guide/.
--
-- Only one checksum header can be specified at a time. If you supply
-- multiple checksum headers, this request will fail.
--
-- 'contentDisposition', 'writeGetObjectResponse_contentDisposition' - Specifies presentational information for the object.
--
-- 'contentEncoding', 'writeGetObjectResponse_contentEncoding' - Specifies what content encodings have been applied to the object and
-- thus what decoding mechanisms must be applied to obtain the media-type
-- referenced by the Content-Type header field.
--
-- 'contentLanguage', 'writeGetObjectResponse_contentLanguage' - The language the content is in.
--
-- 'contentLength', 'writeGetObjectResponse_contentLength' - The size of the content body in bytes.
--
-- 'contentRange', 'writeGetObjectResponse_contentRange' - The portion of the object returned in the response.
--
-- 'contentType', 'writeGetObjectResponse_contentType' - A standard MIME type describing the format of the object data.
--
-- 'deleteMarker', 'writeGetObjectResponse_deleteMarker' - Specifies whether an object stored in Amazon S3 is (@true@) or is not
-- (@false@) a delete marker.
--
-- 'eTag', 'writeGetObjectResponse_eTag' - An opaque identifier assigned by a web server to a specific version of a
-- resource found at a URL.
--
-- 'errorCode', 'writeGetObjectResponse_errorCode' - A string that uniquely identifies an error condition. Returned in the
-- \<Code> tag of the error XML response for a corresponding @GetObject@
-- call. Cannot be used with a successful @StatusCode@ header or when the
-- transformed object is provided in the body. All error codes from S3 are
-- sentence-cased. The regular expression (regex) value is
-- @\"^[A-Z][a-zA-Z]+$\"@.
--
-- 'errorMessage', 'writeGetObjectResponse_errorMessage' - Contains a generic description of the error condition. Returned in the
-- \<Message> tag of the error XML response for a corresponding @GetObject@
-- call. Cannot be used with a successful @StatusCode@ header or when the
-- transformed object is provided in body.
--
-- 'expiration', 'writeGetObjectResponse_expiration' - If the object expiration is configured (see PUT Bucket lifecycle), the
-- response includes this header. It includes the @expiry-date@ and
-- @rule-id@ key-value pairs that provide the object expiration
-- information. The value of the @rule-id@ is URL-encoded.
--
-- 'expires', 'writeGetObjectResponse_expires' - The date and time at which the object is no longer cacheable.
--
-- 'lastModified', 'writeGetObjectResponse_lastModified' - The date and time that the object was last modified.
--
-- 'metadata', 'writeGetObjectResponse_metadata' - A map of metadata to store with the object in S3.
--
-- 'missingMeta', 'writeGetObjectResponse_missingMeta' - Set to the number of metadata entries not returned in @x-amz-meta@
-- headers. This can happen if you create metadata using an API like SOAP
-- that supports more flexible metadata than the REST API. For example,
-- using SOAP, you can create metadata whose values are not legal HTTP
-- headers.
--
-- 'objectLockLegalHoldStatus', 'writeGetObjectResponse_objectLockLegalHoldStatus' - Indicates whether an object stored in Amazon S3 has an active legal
-- hold.
--
-- 'objectLockMode', 'writeGetObjectResponse_objectLockMode' - Indicates whether an object stored in Amazon S3 has Object Lock enabled.
-- For more information about S3 Object Lock, see
-- <https://docs.aws.amazon.com/AmazonS3/latest/userguide/object-lock.html Object Lock>.
--
-- 'objectLockRetainUntilDate', 'writeGetObjectResponse_objectLockRetainUntilDate' - The date and time when Object Lock is configured to expire.
--
-- 'partsCount', 'writeGetObjectResponse_partsCount' - The count of parts this object has.
--
-- 'replicationStatus', 'writeGetObjectResponse_replicationStatus' - Indicates if request involves bucket that is either a source or
-- destination in a Replication rule. For more information about S3
-- Replication, see
-- <https://docs.aws.amazon.com/AmazonS3/latest/userguide/replication.html Replication>.
--
-- 'requestCharged', 'writeGetObjectResponse_requestCharged' - Undocumented member.
--
-- 'restore', 'writeGetObjectResponse_restore' - Provides information about object restoration operation and expiration
-- time of the restored object copy.
--
-- 'sSECustomerAlgorithm', 'writeGetObjectResponse_sSECustomerAlgorithm' - Encryption algorithm used if server-side encryption with a
-- customer-provided encryption key was specified for object stored in
-- Amazon S3.
--
-- 'sSECustomerKeyMD5', 'writeGetObjectResponse_sSECustomerKeyMD5' - 128-bit MD5 digest of customer-provided encryption key used in Amazon S3
-- to encrypt data stored in S3. For more information, see
-- <https://docs.aws.amazon.com/AmazonS3/latest/userguide/ServerSideEncryptionCustomerKeys.html Protecting data using server-side encryption with customer-provided encryption keys (SSE-C)>.
--
-- 'sSEKMSKeyId', 'writeGetObjectResponse_sSEKMSKeyId' - If present, specifies the ID of the Amazon Web Services Key Management
-- Service (Amazon Web Services KMS) symmetric customer managed key that
-- was used for stored in Amazon S3 object.
--
-- 'serverSideEncryption', 'writeGetObjectResponse_serverSideEncryption' - The server-side encryption algorithm used when storing requested object
-- in Amazon S3 (for example, AES256, aws:kms).
--
-- 'statusCode', 'writeGetObjectResponse_statusCode' - The integer status code for an HTTP response of a corresponding
-- @GetObject@ request.
--
-- __Status Codes__
--
-- -   @200 - OK@
--
-- -   @206 - Partial Content@
--
-- -   @304 - Not Modified@
--
-- -   @400 - Bad Request@
--
-- -   @401 - Unauthorized@
--
-- -   @403 - Forbidden@
--
-- -   @404 - Not Found@
--
-- -   @405 - Method Not Allowed@
--
-- -   @409 - Conflict@
--
-- -   @411 - Length Required@
--
-- -   @412 - Precondition Failed@
--
-- -   @416 - Range Not Satisfiable@
--
-- -   @500 - Internal Server Error@
--
-- -   @503 - Service Unavailable@
--
-- 'storageClass', 'writeGetObjectResponse_storageClass' - Provides storage class information of the object. Amazon S3 returns this
-- header for all objects except for S3 Standard storage class objects.
--
-- For more information, see
-- <https://docs.aws.amazon.com/AmazonS3/latest/dev/storage-class-intro.html Storage Classes>.
--
-- 'tagCount', 'writeGetObjectResponse_tagCount' - The number of tags, if any, on the object.
--
-- 'versionId', 'writeGetObjectResponse_versionId' - An ID used to reference a specific version of the object.
--
-- 'requestRoute', 'writeGetObjectResponse_requestRoute' - Route prefix to the HTTP URL generated.
--
-- 'requestToken', 'writeGetObjectResponse_requestToken' - A single use encrypted token that maps @WriteGetObjectResponse@ to the
-- end user @GetObject@ request.
--
-- 'body', 'writeGetObjectResponse_body' - The object data.
newWriteGetObjectResponse ::
  -- | 'requestRoute'
  Prelude.Text ->
  -- | 'requestToken'
  Prelude.Text ->
  -- | 'body'
  Data.RequestBody ->
  WriteGetObjectResponse
newWriteGetObjectResponse :: Text -> Text -> RequestBody -> WriteGetObjectResponse
newWriteGetObjectResponse
  Text
pRequestRoute_
  Text
pRequestToken_
  RequestBody
pBody_ =
    WriteGetObjectResponse'
      { $sel:acceptRanges:WriteGetObjectResponse' :: Maybe Text
acceptRanges =
          forall a. Maybe a
Prelude.Nothing,
        $sel:bucketKeyEnabled:WriteGetObjectResponse' :: Maybe Bool
bucketKeyEnabled = forall a. Maybe a
Prelude.Nothing,
        $sel:cacheControl:WriteGetObjectResponse' :: Maybe Text
cacheControl = forall a. Maybe a
Prelude.Nothing,
        $sel:checksumCRC32:WriteGetObjectResponse' :: Maybe Text
checksumCRC32 = forall a. Maybe a
Prelude.Nothing,
        $sel:checksumCRC32C:WriteGetObjectResponse' :: Maybe Text
checksumCRC32C = forall a. Maybe a
Prelude.Nothing,
        $sel:checksumSHA1:WriteGetObjectResponse' :: Maybe Text
checksumSHA1 = forall a. Maybe a
Prelude.Nothing,
        $sel:checksumSHA256:WriteGetObjectResponse' :: Maybe Text
checksumSHA256 = forall a. Maybe a
Prelude.Nothing,
        $sel:contentDisposition:WriteGetObjectResponse' :: Maybe Text
contentDisposition = forall a. Maybe a
Prelude.Nothing,
        $sel:contentEncoding:WriteGetObjectResponse' :: Maybe Text
contentEncoding = forall a. Maybe a
Prelude.Nothing,
        $sel:contentLanguage:WriteGetObjectResponse' :: Maybe Text
contentLanguage = forall a. Maybe a
Prelude.Nothing,
        $sel:contentLength:WriteGetObjectResponse' :: Maybe Integer
contentLength = forall a. Maybe a
Prelude.Nothing,
        $sel:contentRange:WriteGetObjectResponse' :: Maybe Text
contentRange = forall a. Maybe a
Prelude.Nothing,
        $sel:contentType:WriteGetObjectResponse' :: Maybe Text
contentType = forall a. Maybe a
Prelude.Nothing,
        $sel:deleteMarker:WriteGetObjectResponse' :: Maybe Bool
deleteMarker = forall a. Maybe a
Prelude.Nothing,
        $sel:eTag:WriteGetObjectResponse' :: Maybe ETag
eTag = forall a. Maybe a
Prelude.Nothing,
        $sel:errorCode:WriteGetObjectResponse' :: Maybe Text
errorCode = forall a. Maybe a
Prelude.Nothing,
        $sel:errorMessage:WriteGetObjectResponse' :: Maybe Text
errorMessage = forall a. Maybe a
Prelude.Nothing,
        $sel:expiration:WriteGetObjectResponse' :: Maybe Text
expiration = forall a. Maybe a
Prelude.Nothing,
        $sel:expires:WriteGetObjectResponse' :: Maybe RFC822
expires = forall a. Maybe a
Prelude.Nothing,
        $sel:lastModified:WriteGetObjectResponse' :: Maybe RFC822
lastModified = forall a. Maybe a
Prelude.Nothing,
        $sel:metadata:WriteGetObjectResponse' :: HashMap Text Text
metadata = forall a. Monoid a => a
Prelude.mempty,
        $sel:missingMeta:WriteGetObjectResponse' :: Maybe Int
missingMeta = forall a. Maybe a
Prelude.Nothing,
        $sel:objectLockLegalHoldStatus:WriteGetObjectResponse' :: Maybe ObjectLockLegalHoldStatus
objectLockLegalHoldStatus = forall a. Maybe a
Prelude.Nothing,
        $sel:objectLockMode:WriteGetObjectResponse' :: Maybe ObjectLockMode
objectLockMode = forall a. Maybe a
Prelude.Nothing,
        $sel:objectLockRetainUntilDate:WriteGetObjectResponse' :: Maybe ISO8601
objectLockRetainUntilDate = forall a. Maybe a
Prelude.Nothing,
        $sel:partsCount:WriteGetObjectResponse' :: Maybe Int
partsCount = forall a. Maybe a
Prelude.Nothing,
        $sel:replicationStatus:WriteGetObjectResponse' :: Maybe ReplicationStatus
replicationStatus = forall a. Maybe a
Prelude.Nothing,
        $sel:requestCharged:WriteGetObjectResponse' :: Maybe RequestCharged
requestCharged = forall a. Maybe a
Prelude.Nothing,
        $sel:restore:WriteGetObjectResponse' :: Maybe Text
restore = forall a. Maybe a
Prelude.Nothing,
        $sel:sSECustomerAlgorithm:WriteGetObjectResponse' :: Maybe Text
sSECustomerAlgorithm = forall a. Maybe a
Prelude.Nothing,
        $sel:sSECustomerKeyMD5:WriteGetObjectResponse' :: Maybe Text
sSECustomerKeyMD5 = forall a. Maybe a
Prelude.Nothing,
        $sel:sSEKMSKeyId:WriteGetObjectResponse' :: Maybe (Sensitive Text)
sSEKMSKeyId = forall a. Maybe a
Prelude.Nothing,
        $sel:serverSideEncryption:WriteGetObjectResponse' :: Maybe ServerSideEncryption
serverSideEncryption = forall a. Maybe a
Prelude.Nothing,
        $sel:statusCode:WriteGetObjectResponse' :: Maybe Int
statusCode = forall a. Maybe a
Prelude.Nothing,
        $sel:storageClass:WriteGetObjectResponse' :: Maybe StorageClass
storageClass = forall a. Maybe a
Prelude.Nothing,
        $sel:tagCount:WriteGetObjectResponse' :: Maybe Int
tagCount = forall a. Maybe a
Prelude.Nothing,
        $sel:versionId:WriteGetObjectResponse' :: Maybe ObjectVersionId
versionId = forall a. Maybe a
Prelude.Nothing,
        $sel:requestRoute:WriteGetObjectResponse' :: Text
requestRoute = Text
pRequestRoute_,
        $sel:requestToken:WriteGetObjectResponse' :: Text
requestToken = Text
pRequestToken_,
        $sel:body:WriteGetObjectResponse' :: RequestBody
body = RequestBody
pBody_
      }

-- | Indicates that a range of bytes was specified.
writeGetObjectResponse_acceptRanges :: Lens.Lens' WriteGetObjectResponse (Prelude.Maybe Prelude.Text)
writeGetObjectResponse_acceptRanges :: Lens' WriteGetObjectResponse (Maybe Text)
writeGetObjectResponse_acceptRanges = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\WriteGetObjectResponse' {Maybe Text
acceptRanges :: Maybe Text
$sel:acceptRanges:WriteGetObjectResponse' :: WriteGetObjectResponse -> Maybe Text
acceptRanges} -> Maybe Text
acceptRanges) (\s :: WriteGetObjectResponse
s@WriteGetObjectResponse' {} Maybe Text
a -> WriteGetObjectResponse
s {$sel:acceptRanges:WriteGetObjectResponse' :: Maybe Text
acceptRanges = Maybe Text
a} :: WriteGetObjectResponse)

-- | Indicates whether the object stored in Amazon S3 uses an S3 bucket key
-- for server-side encryption with Amazon Web Services KMS (SSE-KMS).
writeGetObjectResponse_bucketKeyEnabled :: Lens.Lens' WriteGetObjectResponse (Prelude.Maybe Prelude.Bool)
writeGetObjectResponse_bucketKeyEnabled :: Lens' WriteGetObjectResponse (Maybe Bool)
writeGetObjectResponse_bucketKeyEnabled = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\WriteGetObjectResponse' {Maybe Bool
bucketKeyEnabled :: Maybe Bool
$sel:bucketKeyEnabled:WriteGetObjectResponse' :: WriteGetObjectResponse -> Maybe Bool
bucketKeyEnabled} -> Maybe Bool
bucketKeyEnabled) (\s :: WriteGetObjectResponse
s@WriteGetObjectResponse' {} Maybe Bool
a -> WriteGetObjectResponse
s {$sel:bucketKeyEnabled:WriteGetObjectResponse' :: Maybe Bool
bucketKeyEnabled = Maybe Bool
a} :: WriteGetObjectResponse)

-- | Specifies caching behavior along the request\/reply chain.
writeGetObjectResponse_cacheControl :: Lens.Lens' WriteGetObjectResponse (Prelude.Maybe Prelude.Text)
writeGetObjectResponse_cacheControl :: Lens' WriteGetObjectResponse (Maybe Text)
writeGetObjectResponse_cacheControl = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\WriteGetObjectResponse' {Maybe Text
cacheControl :: Maybe Text
$sel:cacheControl:WriteGetObjectResponse' :: WriteGetObjectResponse -> Maybe Text
cacheControl} -> Maybe Text
cacheControl) (\s :: WriteGetObjectResponse
s@WriteGetObjectResponse' {} Maybe Text
a -> WriteGetObjectResponse
s {$sel:cacheControl:WriteGetObjectResponse' :: Maybe Text
cacheControl = Maybe Text
a} :: WriteGetObjectResponse)

-- | This header can be used as a data integrity check to verify that the
-- data received is the same data that was originally sent. This specifies
-- the base64-encoded, 32-bit CRC32 checksum of the object returned by the
-- Object Lambda function. This may not match the checksum for the object
-- stored in Amazon S3. Amazon S3 will perform validation of the checksum
-- values only when the original @GetObject@ request required checksum
-- validation. For more information about checksums, see
-- <https://docs.aws.amazon.com/AmazonS3/latest/userguide/checking-object-integrity.html Checking object integrity>
-- in the /Amazon S3 User Guide/.
--
-- Only one checksum header can be specified at a time. If you supply
-- multiple checksum headers, this request will fail.
writeGetObjectResponse_checksumCRC32 :: Lens.Lens' WriteGetObjectResponse (Prelude.Maybe Prelude.Text)
writeGetObjectResponse_checksumCRC32 :: Lens' WriteGetObjectResponse (Maybe Text)
writeGetObjectResponse_checksumCRC32 = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\WriteGetObjectResponse' {Maybe Text
checksumCRC32 :: Maybe Text
$sel:checksumCRC32:WriteGetObjectResponse' :: WriteGetObjectResponse -> Maybe Text
checksumCRC32} -> Maybe Text
checksumCRC32) (\s :: WriteGetObjectResponse
s@WriteGetObjectResponse' {} Maybe Text
a -> WriteGetObjectResponse
s {$sel:checksumCRC32:WriteGetObjectResponse' :: Maybe Text
checksumCRC32 = Maybe Text
a} :: WriteGetObjectResponse)

-- | This header can be used as a data integrity check to verify that the
-- data received is the same data that was originally sent. This specifies
-- the base64-encoded, 32-bit CRC32C checksum of the object returned by the
-- Object Lambda function. This may not match the checksum for the object
-- stored in Amazon S3. Amazon S3 will perform validation of the checksum
-- values only when the original @GetObject@ request required checksum
-- validation. For more information about checksums, see
-- <https://docs.aws.amazon.com/AmazonS3/latest/userguide/checking-object-integrity.html Checking object integrity>
-- in the /Amazon S3 User Guide/.
--
-- Only one checksum header can be specified at a time. If you supply
-- multiple checksum headers, this request will fail.
writeGetObjectResponse_checksumCRC32C :: Lens.Lens' WriteGetObjectResponse (Prelude.Maybe Prelude.Text)
writeGetObjectResponse_checksumCRC32C :: Lens' WriteGetObjectResponse (Maybe Text)
writeGetObjectResponse_checksumCRC32C = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\WriteGetObjectResponse' {Maybe Text
checksumCRC32C :: Maybe Text
$sel:checksumCRC32C:WriteGetObjectResponse' :: WriteGetObjectResponse -> Maybe Text
checksumCRC32C} -> Maybe Text
checksumCRC32C) (\s :: WriteGetObjectResponse
s@WriteGetObjectResponse' {} Maybe Text
a -> WriteGetObjectResponse
s {$sel:checksumCRC32C:WriteGetObjectResponse' :: Maybe Text
checksumCRC32C = Maybe Text
a} :: WriteGetObjectResponse)

-- | This header can be used as a data integrity check to verify that the
-- data received is the same data that was originally sent. This specifies
-- the base64-encoded, 160-bit SHA-1 digest of the object returned by the
-- Object Lambda function. This may not match the checksum for the object
-- stored in Amazon S3. Amazon S3 will perform validation of the checksum
-- values only when the original @GetObject@ request required checksum
-- validation. For more information about checksums, see
-- <https://docs.aws.amazon.com/AmazonS3/latest/userguide/checking-object-integrity.html Checking object integrity>
-- in the /Amazon S3 User Guide/.
--
-- Only one checksum header can be specified at a time. If you supply
-- multiple checksum headers, this request will fail.
writeGetObjectResponse_checksumSHA1 :: Lens.Lens' WriteGetObjectResponse (Prelude.Maybe Prelude.Text)
writeGetObjectResponse_checksumSHA1 :: Lens' WriteGetObjectResponse (Maybe Text)
writeGetObjectResponse_checksumSHA1 = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\WriteGetObjectResponse' {Maybe Text
checksumSHA1 :: Maybe Text
$sel:checksumSHA1:WriteGetObjectResponse' :: WriteGetObjectResponse -> Maybe Text
checksumSHA1} -> Maybe Text
checksumSHA1) (\s :: WriteGetObjectResponse
s@WriteGetObjectResponse' {} Maybe Text
a -> WriteGetObjectResponse
s {$sel:checksumSHA1:WriteGetObjectResponse' :: Maybe Text
checksumSHA1 = Maybe Text
a} :: WriteGetObjectResponse)

-- | This header can be used as a data integrity check to verify that the
-- data received is the same data that was originally sent. This specifies
-- the base64-encoded, 256-bit SHA-256 digest of the object returned by the
-- Object Lambda function. This may not match the checksum for the object
-- stored in Amazon S3. Amazon S3 will perform validation of the checksum
-- values only when the original @GetObject@ request required checksum
-- validation. For more information about checksums, see
-- <https://docs.aws.amazon.com/AmazonS3/latest/userguide/checking-object-integrity.html Checking object integrity>
-- in the /Amazon S3 User Guide/.
--
-- Only one checksum header can be specified at a time. If you supply
-- multiple checksum headers, this request will fail.
writeGetObjectResponse_checksumSHA256 :: Lens.Lens' WriteGetObjectResponse (Prelude.Maybe Prelude.Text)
writeGetObjectResponse_checksumSHA256 :: Lens' WriteGetObjectResponse (Maybe Text)
writeGetObjectResponse_checksumSHA256 = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\WriteGetObjectResponse' {Maybe Text
checksumSHA256 :: Maybe Text
$sel:checksumSHA256:WriteGetObjectResponse' :: WriteGetObjectResponse -> Maybe Text
checksumSHA256} -> Maybe Text
checksumSHA256) (\s :: WriteGetObjectResponse
s@WriteGetObjectResponse' {} Maybe Text
a -> WriteGetObjectResponse
s {$sel:checksumSHA256:WriteGetObjectResponse' :: Maybe Text
checksumSHA256 = Maybe Text
a} :: WriteGetObjectResponse)

-- | Specifies presentational information for the object.
writeGetObjectResponse_contentDisposition :: Lens.Lens' WriteGetObjectResponse (Prelude.Maybe Prelude.Text)
writeGetObjectResponse_contentDisposition :: Lens' WriteGetObjectResponse (Maybe Text)
writeGetObjectResponse_contentDisposition = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\WriteGetObjectResponse' {Maybe Text
contentDisposition :: Maybe Text
$sel:contentDisposition:WriteGetObjectResponse' :: WriteGetObjectResponse -> Maybe Text
contentDisposition} -> Maybe Text
contentDisposition) (\s :: WriteGetObjectResponse
s@WriteGetObjectResponse' {} Maybe Text
a -> WriteGetObjectResponse
s {$sel:contentDisposition:WriteGetObjectResponse' :: Maybe Text
contentDisposition = Maybe Text
a} :: WriteGetObjectResponse)

-- | Specifies what content encodings have been applied to the object and
-- thus what decoding mechanisms must be applied to obtain the media-type
-- referenced by the Content-Type header field.
writeGetObjectResponse_contentEncoding :: Lens.Lens' WriteGetObjectResponse (Prelude.Maybe Prelude.Text)
writeGetObjectResponse_contentEncoding :: Lens' WriteGetObjectResponse (Maybe Text)
writeGetObjectResponse_contentEncoding = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\WriteGetObjectResponse' {Maybe Text
contentEncoding :: Maybe Text
$sel:contentEncoding:WriteGetObjectResponse' :: WriteGetObjectResponse -> Maybe Text
contentEncoding} -> Maybe Text
contentEncoding) (\s :: WriteGetObjectResponse
s@WriteGetObjectResponse' {} Maybe Text
a -> WriteGetObjectResponse
s {$sel:contentEncoding:WriteGetObjectResponse' :: Maybe Text
contentEncoding = Maybe Text
a} :: WriteGetObjectResponse)

-- | The language the content is in.
writeGetObjectResponse_contentLanguage :: Lens.Lens' WriteGetObjectResponse (Prelude.Maybe Prelude.Text)
writeGetObjectResponse_contentLanguage :: Lens' WriteGetObjectResponse (Maybe Text)
writeGetObjectResponse_contentLanguage = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\WriteGetObjectResponse' {Maybe Text
contentLanguage :: Maybe Text
$sel:contentLanguage:WriteGetObjectResponse' :: WriteGetObjectResponse -> Maybe Text
contentLanguage} -> Maybe Text
contentLanguage) (\s :: WriteGetObjectResponse
s@WriteGetObjectResponse' {} Maybe Text
a -> WriteGetObjectResponse
s {$sel:contentLanguage:WriteGetObjectResponse' :: Maybe Text
contentLanguage = Maybe Text
a} :: WriteGetObjectResponse)

-- | The size of the content body in bytes.
writeGetObjectResponse_contentLength :: Lens.Lens' WriteGetObjectResponse (Prelude.Maybe Prelude.Integer)
writeGetObjectResponse_contentLength :: Lens' WriteGetObjectResponse (Maybe Integer)
writeGetObjectResponse_contentLength = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\WriteGetObjectResponse' {Maybe Integer
contentLength :: Maybe Integer
$sel:contentLength:WriteGetObjectResponse' :: WriteGetObjectResponse -> Maybe Integer
contentLength} -> Maybe Integer
contentLength) (\s :: WriteGetObjectResponse
s@WriteGetObjectResponse' {} Maybe Integer
a -> WriteGetObjectResponse
s {$sel:contentLength:WriteGetObjectResponse' :: Maybe Integer
contentLength = Maybe Integer
a} :: WriteGetObjectResponse)

-- | The portion of the object returned in the response.
writeGetObjectResponse_contentRange :: Lens.Lens' WriteGetObjectResponse (Prelude.Maybe Prelude.Text)
writeGetObjectResponse_contentRange :: Lens' WriteGetObjectResponse (Maybe Text)
writeGetObjectResponse_contentRange = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\WriteGetObjectResponse' {Maybe Text
contentRange :: Maybe Text
$sel:contentRange:WriteGetObjectResponse' :: WriteGetObjectResponse -> Maybe Text
contentRange} -> Maybe Text
contentRange) (\s :: WriteGetObjectResponse
s@WriteGetObjectResponse' {} Maybe Text
a -> WriteGetObjectResponse
s {$sel:contentRange:WriteGetObjectResponse' :: Maybe Text
contentRange = Maybe Text
a} :: WriteGetObjectResponse)

-- | A standard MIME type describing the format of the object data.
writeGetObjectResponse_contentType :: Lens.Lens' WriteGetObjectResponse (Prelude.Maybe Prelude.Text)
writeGetObjectResponse_contentType :: Lens' WriteGetObjectResponse (Maybe Text)
writeGetObjectResponse_contentType = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\WriteGetObjectResponse' {Maybe Text
contentType :: Maybe Text
$sel:contentType:WriteGetObjectResponse' :: WriteGetObjectResponse -> Maybe Text
contentType} -> Maybe Text
contentType) (\s :: WriteGetObjectResponse
s@WriteGetObjectResponse' {} Maybe Text
a -> WriteGetObjectResponse
s {$sel:contentType:WriteGetObjectResponse' :: Maybe Text
contentType = Maybe Text
a} :: WriteGetObjectResponse)

-- | Specifies whether an object stored in Amazon S3 is (@true@) or is not
-- (@false@) a delete marker.
writeGetObjectResponse_deleteMarker :: Lens.Lens' WriteGetObjectResponse (Prelude.Maybe Prelude.Bool)
writeGetObjectResponse_deleteMarker :: Lens' WriteGetObjectResponse (Maybe Bool)
writeGetObjectResponse_deleteMarker = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\WriteGetObjectResponse' {Maybe Bool
deleteMarker :: Maybe Bool
$sel:deleteMarker:WriteGetObjectResponse' :: WriteGetObjectResponse -> Maybe Bool
deleteMarker} -> Maybe Bool
deleteMarker) (\s :: WriteGetObjectResponse
s@WriteGetObjectResponse' {} Maybe Bool
a -> WriteGetObjectResponse
s {$sel:deleteMarker:WriteGetObjectResponse' :: Maybe Bool
deleteMarker = Maybe Bool
a} :: WriteGetObjectResponse)

-- | An opaque identifier assigned by a web server to a specific version of a
-- resource found at a URL.
writeGetObjectResponse_eTag :: Lens.Lens' WriteGetObjectResponse (Prelude.Maybe ETag)
writeGetObjectResponse_eTag :: Lens' WriteGetObjectResponse (Maybe ETag)
writeGetObjectResponse_eTag = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\WriteGetObjectResponse' {Maybe ETag
eTag :: Maybe ETag
$sel:eTag:WriteGetObjectResponse' :: WriteGetObjectResponse -> Maybe ETag
eTag} -> Maybe ETag
eTag) (\s :: WriteGetObjectResponse
s@WriteGetObjectResponse' {} Maybe ETag
a -> WriteGetObjectResponse
s {$sel:eTag:WriteGetObjectResponse' :: Maybe ETag
eTag = Maybe ETag
a} :: WriteGetObjectResponse)

-- | A string that uniquely identifies an error condition. Returned in the
-- \<Code> tag of the error XML response for a corresponding @GetObject@
-- call. Cannot be used with a successful @StatusCode@ header or when the
-- transformed object is provided in the body. All error codes from S3 are
-- sentence-cased. The regular expression (regex) value is
-- @\"^[A-Z][a-zA-Z]+$\"@.
writeGetObjectResponse_errorCode :: Lens.Lens' WriteGetObjectResponse (Prelude.Maybe Prelude.Text)
writeGetObjectResponse_errorCode :: Lens' WriteGetObjectResponse (Maybe Text)
writeGetObjectResponse_errorCode = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\WriteGetObjectResponse' {Maybe Text
errorCode :: Maybe Text
$sel:errorCode:WriteGetObjectResponse' :: WriteGetObjectResponse -> Maybe Text
errorCode} -> Maybe Text
errorCode) (\s :: WriteGetObjectResponse
s@WriteGetObjectResponse' {} Maybe Text
a -> WriteGetObjectResponse
s {$sel:errorCode:WriteGetObjectResponse' :: Maybe Text
errorCode = Maybe Text
a} :: WriteGetObjectResponse)

-- | Contains a generic description of the error condition. Returned in the
-- \<Message> tag of the error XML response for a corresponding @GetObject@
-- call. Cannot be used with a successful @StatusCode@ header or when the
-- transformed object is provided in body.
writeGetObjectResponse_errorMessage :: Lens.Lens' WriteGetObjectResponse (Prelude.Maybe Prelude.Text)
writeGetObjectResponse_errorMessage :: Lens' WriteGetObjectResponse (Maybe Text)
writeGetObjectResponse_errorMessage = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\WriteGetObjectResponse' {Maybe Text
errorMessage :: Maybe Text
$sel:errorMessage:WriteGetObjectResponse' :: WriteGetObjectResponse -> Maybe Text
errorMessage} -> Maybe Text
errorMessage) (\s :: WriteGetObjectResponse
s@WriteGetObjectResponse' {} Maybe Text
a -> WriteGetObjectResponse
s {$sel:errorMessage:WriteGetObjectResponse' :: Maybe Text
errorMessage = Maybe Text
a} :: WriteGetObjectResponse)

-- | If the object expiration is configured (see PUT Bucket lifecycle), the
-- response includes this header. It includes the @expiry-date@ and
-- @rule-id@ key-value pairs that provide the object expiration
-- information. The value of the @rule-id@ is URL-encoded.
writeGetObjectResponse_expiration :: Lens.Lens' WriteGetObjectResponse (Prelude.Maybe Prelude.Text)
writeGetObjectResponse_expiration :: Lens' WriteGetObjectResponse (Maybe Text)
writeGetObjectResponse_expiration = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\WriteGetObjectResponse' {Maybe Text
expiration :: Maybe Text
$sel:expiration:WriteGetObjectResponse' :: WriteGetObjectResponse -> Maybe Text
expiration} -> Maybe Text
expiration) (\s :: WriteGetObjectResponse
s@WriteGetObjectResponse' {} Maybe Text
a -> WriteGetObjectResponse
s {$sel:expiration:WriteGetObjectResponse' :: Maybe Text
expiration = Maybe Text
a} :: WriteGetObjectResponse)

-- | The date and time at which the object is no longer cacheable.
writeGetObjectResponse_expires :: Lens.Lens' WriteGetObjectResponse (Prelude.Maybe Prelude.UTCTime)
writeGetObjectResponse_expires :: Lens' WriteGetObjectResponse (Maybe UTCTime)
writeGetObjectResponse_expires = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\WriteGetObjectResponse' {Maybe RFC822
expires :: Maybe RFC822
$sel:expires:WriteGetObjectResponse' :: WriteGetObjectResponse -> Maybe RFC822
expires} -> Maybe RFC822
expires) (\s :: WriteGetObjectResponse
s@WriteGetObjectResponse' {} Maybe RFC822
a -> WriteGetObjectResponse
s {$sel:expires:WriteGetObjectResponse' :: Maybe RFC822
expires = Maybe RFC822
a} :: WriteGetObjectResponse) forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. forall (f :: * -> *) (g :: * -> *) s t a b.
(Functor f, Functor g) =>
AnIso s t a b -> Iso (f s) (g t) (f a) (g b)
Lens.mapping forall (a :: Format). Iso' (Time a) UTCTime
Data._Time

-- | The date and time that the object was last modified.
writeGetObjectResponse_lastModified :: Lens.Lens' WriteGetObjectResponse (Prelude.Maybe Prelude.UTCTime)
writeGetObjectResponse_lastModified :: Lens' WriteGetObjectResponse (Maybe UTCTime)
writeGetObjectResponse_lastModified = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\WriteGetObjectResponse' {Maybe RFC822
lastModified :: Maybe RFC822
$sel:lastModified:WriteGetObjectResponse' :: WriteGetObjectResponse -> Maybe RFC822
lastModified} -> Maybe RFC822
lastModified) (\s :: WriteGetObjectResponse
s@WriteGetObjectResponse' {} Maybe RFC822
a -> WriteGetObjectResponse
s {$sel:lastModified:WriteGetObjectResponse' :: Maybe RFC822
lastModified = Maybe RFC822
a} :: WriteGetObjectResponse) forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. forall (f :: * -> *) (g :: * -> *) s t a b.
(Functor f, Functor g) =>
AnIso s t a b -> Iso (f s) (g t) (f a) (g b)
Lens.mapping forall (a :: Format). Iso' (Time a) UTCTime
Data._Time

-- | A map of metadata to store with the object in S3.
writeGetObjectResponse_metadata :: Lens.Lens' WriteGetObjectResponse (Prelude.HashMap Prelude.Text Prelude.Text)
writeGetObjectResponse_metadata :: Lens' WriteGetObjectResponse (HashMap Text Text)
writeGetObjectResponse_metadata = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\WriteGetObjectResponse' {HashMap Text Text
metadata :: HashMap Text Text
$sel:metadata:WriteGetObjectResponse' :: WriteGetObjectResponse -> HashMap Text Text
metadata} -> HashMap Text Text
metadata) (\s :: WriteGetObjectResponse
s@WriteGetObjectResponse' {} HashMap Text Text
a -> WriteGetObjectResponse
s {$sel:metadata:WriteGetObjectResponse' :: HashMap Text Text
metadata = HashMap Text Text
a} :: WriteGetObjectResponse) forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. forall s t a b. (Coercible s a, Coercible t b) => Iso s t a b
Lens.coerced

-- | Set to the number of metadata entries not returned in @x-amz-meta@
-- headers. This can happen if you create metadata using an API like SOAP
-- that supports more flexible metadata than the REST API. For example,
-- using SOAP, you can create metadata whose values are not legal HTTP
-- headers.
writeGetObjectResponse_missingMeta :: Lens.Lens' WriteGetObjectResponse (Prelude.Maybe Prelude.Int)
writeGetObjectResponse_missingMeta :: Lens' WriteGetObjectResponse (Maybe Int)
writeGetObjectResponse_missingMeta = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\WriteGetObjectResponse' {Maybe Int
missingMeta :: Maybe Int
$sel:missingMeta:WriteGetObjectResponse' :: WriteGetObjectResponse -> Maybe Int
missingMeta} -> Maybe Int
missingMeta) (\s :: WriteGetObjectResponse
s@WriteGetObjectResponse' {} Maybe Int
a -> WriteGetObjectResponse
s {$sel:missingMeta:WriteGetObjectResponse' :: Maybe Int
missingMeta = Maybe Int
a} :: WriteGetObjectResponse)

-- | Indicates whether an object stored in Amazon S3 has an active legal
-- hold.
writeGetObjectResponse_objectLockLegalHoldStatus :: Lens.Lens' WriteGetObjectResponse (Prelude.Maybe ObjectLockLegalHoldStatus)
writeGetObjectResponse_objectLockLegalHoldStatus :: Lens' WriteGetObjectResponse (Maybe ObjectLockLegalHoldStatus)
writeGetObjectResponse_objectLockLegalHoldStatus = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\WriteGetObjectResponse' {Maybe ObjectLockLegalHoldStatus
objectLockLegalHoldStatus :: Maybe ObjectLockLegalHoldStatus
$sel:objectLockLegalHoldStatus:WriteGetObjectResponse' :: WriteGetObjectResponse -> Maybe ObjectLockLegalHoldStatus
objectLockLegalHoldStatus} -> Maybe ObjectLockLegalHoldStatus
objectLockLegalHoldStatus) (\s :: WriteGetObjectResponse
s@WriteGetObjectResponse' {} Maybe ObjectLockLegalHoldStatus
a -> WriteGetObjectResponse
s {$sel:objectLockLegalHoldStatus:WriteGetObjectResponse' :: Maybe ObjectLockLegalHoldStatus
objectLockLegalHoldStatus = Maybe ObjectLockLegalHoldStatus
a} :: WriteGetObjectResponse)

-- | Indicates whether an object stored in Amazon S3 has Object Lock enabled.
-- For more information about S3 Object Lock, see
-- <https://docs.aws.amazon.com/AmazonS3/latest/userguide/object-lock.html Object Lock>.
writeGetObjectResponse_objectLockMode :: Lens.Lens' WriteGetObjectResponse (Prelude.Maybe ObjectLockMode)
writeGetObjectResponse_objectLockMode :: Lens' WriteGetObjectResponse (Maybe ObjectLockMode)
writeGetObjectResponse_objectLockMode = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\WriteGetObjectResponse' {Maybe ObjectLockMode
objectLockMode :: Maybe ObjectLockMode
$sel:objectLockMode:WriteGetObjectResponse' :: WriteGetObjectResponse -> Maybe ObjectLockMode
objectLockMode} -> Maybe ObjectLockMode
objectLockMode) (\s :: WriteGetObjectResponse
s@WriteGetObjectResponse' {} Maybe ObjectLockMode
a -> WriteGetObjectResponse
s {$sel:objectLockMode:WriteGetObjectResponse' :: Maybe ObjectLockMode
objectLockMode = Maybe ObjectLockMode
a} :: WriteGetObjectResponse)

-- | The date and time when Object Lock is configured to expire.
writeGetObjectResponse_objectLockRetainUntilDate :: Lens.Lens' WriteGetObjectResponse (Prelude.Maybe Prelude.UTCTime)
writeGetObjectResponse_objectLockRetainUntilDate :: Lens' WriteGetObjectResponse (Maybe UTCTime)
writeGetObjectResponse_objectLockRetainUntilDate = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\WriteGetObjectResponse' {Maybe ISO8601
objectLockRetainUntilDate :: Maybe ISO8601
$sel:objectLockRetainUntilDate:WriteGetObjectResponse' :: WriteGetObjectResponse -> Maybe ISO8601
objectLockRetainUntilDate} -> Maybe ISO8601
objectLockRetainUntilDate) (\s :: WriteGetObjectResponse
s@WriteGetObjectResponse' {} Maybe ISO8601
a -> WriteGetObjectResponse
s {$sel:objectLockRetainUntilDate:WriteGetObjectResponse' :: Maybe ISO8601
objectLockRetainUntilDate = Maybe ISO8601
a} :: WriteGetObjectResponse) forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. forall (f :: * -> *) (g :: * -> *) s t a b.
(Functor f, Functor g) =>
AnIso s t a b -> Iso (f s) (g t) (f a) (g b)
Lens.mapping forall (a :: Format). Iso' (Time a) UTCTime
Data._Time

-- | The count of parts this object has.
writeGetObjectResponse_partsCount :: Lens.Lens' WriteGetObjectResponse (Prelude.Maybe Prelude.Int)
writeGetObjectResponse_partsCount :: Lens' WriteGetObjectResponse (Maybe Int)
writeGetObjectResponse_partsCount = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\WriteGetObjectResponse' {Maybe Int
partsCount :: Maybe Int
$sel:partsCount:WriteGetObjectResponse' :: WriteGetObjectResponse -> Maybe Int
partsCount} -> Maybe Int
partsCount) (\s :: WriteGetObjectResponse
s@WriteGetObjectResponse' {} Maybe Int
a -> WriteGetObjectResponse
s {$sel:partsCount:WriteGetObjectResponse' :: Maybe Int
partsCount = Maybe Int
a} :: WriteGetObjectResponse)

-- | Indicates if request involves bucket that is either a source or
-- destination in a Replication rule. For more information about S3
-- Replication, see
-- <https://docs.aws.amazon.com/AmazonS3/latest/userguide/replication.html Replication>.
writeGetObjectResponse_replicationStatus :: Lens.Lens' WriteGetObjectResponse (Prelude.Maybe ReplicationStatus)
writeGetObjectResponse_replicationStatus :: Lens' WriteGetObjectResponse (Maybe ReplicationStatus)
writeGetObjectResponse_replicationStatus = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\WriteGetObjectResponse' {Maybe ReplicationStatus
replicationStatus :: Maybe ReplicationStatus
$sel:replicationStatus:WriteGetObjectResponse' :: WriteGetObjectResponse -> Maybe ReplicationStatus
replicationStatus} -> Maybe ReplicationStatus
replicationStatus) (\s :: WriteGetObjectResponse
s@WriteGetObjectResponse' {} Maybe ReplicationStatus
a -> WriteGetObjectResponse
s {$sel:replicationStatus:WriteGetObjectResponse' :: Maybe ReplicationStatus
replicationStatus = Maybe ReplicationStatus
a} :: WriteGetObjectResponse)

-- | Undocumented member.
writeGetObjectResponse_requestCharged :: Lens.Lens' WriteGetObjectResponse (Prelude.Maybe RequestCharged)
writeGetObjectResponse_requestCharged :: Lens' WriteGetObjectResponse (Maybe RequestCharged)
writeGetObjectResponse_requestCharged = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\WriteGetObjectResponse' {Maybe RequestCharged
requestCharged :: Maybe RequestCharged
$sel:requestCharged:WriteGetObjectResponse' :: WriteGetObjectResponse -> Maybe RequestCharged
requestCharged} -> Maybe RequestCharged
requestCharged) (\s :: WriteGetObjectResponse
s@WriteGetObjectResponse' {} Maybe RequestCharged
a -> WriteGetObjectResponse
s {$sel:requestCharged:WriteGetObjectResponse' :: Maybe RequestCharged
requestCharged = Maybe RequestCharged
a} :: WriteGetObjectResponse)

-- | Provides information about object restoration operation and expiration
-- time of the restored object copy.
writeGetObjectResponse_restore :: Lens.Lens' WriteGetObjectResponse (Prelude.Maybe Prelude.Text)
writeGetObjectResponse_restore :: Lens' WriteGetObjectResponse (Maybe Text)
writeGetObjectResponse_restore = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\WriteGetObjectResponse' {Maybe Text
restore :: Maybe Text
$sel:restore:WriteGetObjectResponse' :: WriteGetObjectResponse -> Maybe Text
restore} -> Maybe Text
restore) (\s :: WriteGetObjectResponse
s@WriteGetObjectResponse' {} Maybe Text
a -> WriteGetObjectResponse
s {$sel:restore:WriteGetObjectResponse' :: Maybe Text
restore = Maybe Text
a} :: WriteGetObjectResponse)

-- | Encryption algorithm used if server-side encryption with a
-- customer-provided encryption key was specified for object stored in
-- Amazon S3.
writeGetObjectResponse_sSECustomerAlgorithm :: Lens.Lens' WriteGetObjectResponse (Prelude.Maybe Prelude.Text)
writeGetObjectResponse_sSECustomerAlgorithm :: Lens' WriteGetObjectResponse (Maybe Text)
writeGetObjectResponse_sSECustomerAlgorithm = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\WriteGetObjectResponse' {Maybe Text
sSECustomerAlgorithm :: Maybe Text
$sel:sSECustomerAlgorithm:WriteGetObjectResponse' :: WriteGetObjectResponse -> Maybe Text
sSECustomerAlgorithm} -> Maybe Text
sSECustomerAlgorithm) (\s :: WriteGetObjectResponse
s@WriteGetObjectResponse' {} Maybe Text
a -> WriteGetObjectResponse
s {$sel:sSECustomerAlgorithm:WriteGetObjectResponse' :: Maybe Text
sSECustomerAlgorithm = Maybe Text
a} :: WriteGetObjectResponse)

-- | 128-bit MD5 digest of customer-provided encryption key used in Amazon S3
-- to encrypt data stored in S3. For more information, see
-- <https://docs.aws.amazon.com/AmazonS3/latest/userguide/ServerSideEncryptionCustomerKeys.html Protecting data using server-side encryption with customer-provided encryption keys (SSE-C)>.
writeGetObjectResponse_sSECustomerKeyMD5 :: Lens.Lens' WriteGetObjectResponse (Prelude.Maybe Prelude.Text)
writeGetObjectResponse_sSECustomerKeyMD5 :: Lens' WriteGetObjectResponse (Maybe Text)
writeGetObjectResponse_sSECustomerKeyMD5 = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\WriteGetObjectResponse' {Maybe Text
sSECustomerKeyMD5 :: Maybe Text
$sel:sSECustomerKeyMD5:WriteGetObjectResponse' :: WriteGetObjectResponse -> Maybe Text
sSECustomerKeyMD5} -> Maybe Text
sSECustomerKeyMD5) (\s :: WriteGetObjectResponse
s@WriteGetObjectResponse' {} Maybe Text
a -> WriteGetObjectResponse
s {$sel:sSECustomerKeyMD5:WriteGetObjectResponse' :: Maybe Text
sSECustomerKeyMD5 = Maybe Text
a} :: WriteGetObjectResponse)

-- | If present, specifies the ID of the Amazon Web Services Key Management
-- Service (Amazon Web Services KMS) symmetric customer managed key that
-- was used for stored in Amazon S3 object.
writeGetObjectResponse_sSEKMSKeyId :: Lens.Lens' WriteGetObjectResponse (Prelude.Maybe Prelude.Text)
writeGetObjectResponse_sSEKMSKeyId :: Lens' WriteGetObjectResponse (Maybe Text)
writeGetObjectResponse_sSEKMSKeyId = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\WriteGetObjectResponse' {Maybe (Sensitive Text)
sSEKMSKeyId :: Maybe (Sensitive Text)
$sel:sSEKMSKeyId:WriteGetObjectResponse' :: WriteGetObjectResponse -> Maybe (Sensitive Text)
sSEKMSKeyId} -> Maybe (Sensitive Text)
sSEKMSKeyId) (\s :: WriteGetObjectResponse
s@WriteGetObjectResponse' {} Maybe (Sensitive Text)
a -> WriteGetObjectResponse
s {$sel:sSEKMSKeyId:WriteGetObjectResponse' :: Maybe (Sensitive Text)
sSEKMSKeyId = Maybe (Sensitive Text)
a} :: WriteGetObjectResponse) forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. forall (f :: * -> *) (g :: * -> *) s t a b.
(Functor f, Functor g) =>
AnIso s t a b -> Iso (f s) (g t) (f a) (g b)
Lens.mapping forall a. Iso' (Sensitive a) a
Data._Sensitive

-- | The server-side encryption algorithm used when storing requested object
-- in Amazon S3 (for example, AES256, aws:kms).
writeGetObjectResponse_serverSideEncryption :: Lens.Lens' WriteGetObjectResponse (Prelude.Maybe ServerSideEncryption)
writeGetObjectResponse_serverSideEncryption :: Lens' WriteGetObjectResponse (Maybe ServerSideEncryption)
writeGetObjectResponse_serverSideEncryption = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\WriteGetObjectResponse' {Maybe ServerSideEncryption
serverSideEncryption :: Maybe ServerSideEncryption
$sel:serverSideEncryption:WriteGetObjectResponse' :: WriteGetObjectResponse -> Maybe ServerSideEncryption
serverSideEncryption} -> Maybe ServerSideEncryption
serverSideEncryption) (\s :: WriteGetObjectResponse
s@WriteGetObjectResponse' {} Maybe ServerSideEncryption
a -> WriteGetObjectResponse
s {$sel:serverSideEncryption:WriteGetObjectResponse' :: Maybe ServerSideEncryption
serverSideEncryption = Maybe ServerSideEncryption
a} :: WriteGetObjectResponse)

-- | The integer status code for an HTTP response of a corresponding
-- @GetObject@ request.
--
-- __Status Codes__
--
-- -   @200 - OK@
--
-- -   @206 - Partial Content@
--
-- -   @304 - Not Modified@
--
-- -   @400 - Bad Request@
--
-- -   @401 - Unauthorized@
--
-- -   @403 - Forbidden@
--
-- -   @404 - Not Found@
--
-- -   @405 - Method Not Allowed@
--
-- -   @409 - Conflict@
--
-- -   @411 - Length Required@
--
-- -   @412 - Precondition Failed@
--
-- -   @416 - Range Not Satisfiable@
--
-- -   @500 - Internal Server Error@
--
-- -   @503 - Service Unavailable@
writeGetObjectResponse_statusCode :: Lens.Lens' WriteGetObjectResponse (Prelude.Maybe Prelude.Int)
writeGetObjectResponse_statusCode :: Lens' WriteGetObjectResponse (Maybe Int)
writeGetObjectResponse_statusCode = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\WriteGetObjectResponse' {Maybe Int
statusCode :: Maybe Int
$sel:statusCode:WriteGetObjectResponse' :: WriteGetObjectResponse -> Maybe Int
statusCode} -> Maybe Int
statusCode) (\s :: WriteGetObjectResponse
s@WriteGetObjectResponse' {} Maybe Int
a -> WriteGetObjectResponse
s {$sel:statusCode:WriteGetObjectResponse' :: Maybe Int
statusCode = Maybe Int
a} :: WriteGetObjectResponse)

-- | Provides storage class information of the object. Amazon S3 returns this
-- header for all objects except for S3 Standard storage class objects.
--
-- For more information, see
-- <https://docs.aws.amazon.com/AmazonS3/latest/dev/storage-class-intro.html Storage Classes>.
writeGetObjectResponse_storageClass :: Lens.Lens' WriteGetObjectResponse (Prelude.Maybe StorageClass)
writeGetObjectResponse_storageClass :: Lens' WriteGetObjectResponse (Maybe StorageClass)
writeGetObjectResponse_storageClass = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\WriteGetObjectResponse' {Maybe StorageClass
storageClass :: Maybe StorageClass
$sel:storageClass:WriteGetObjectResponse' :: WriteGetObjectResponse -> Maybe StorageClass
storageClass} -> Maybe StorageClass
storageClass) (\s :: WriteGetObjectResponse
s@WriteGetObjectResponse' {} Maybe StorageClass
a -> WriteGetObjectResponse
s {$sel:storageClass:WriteGetObjectResponse' :: Maybe StorageClass
storageClass = Maybe StorageClass
a} :: WriteGetObjectResponse)

-- | The number of tags, if any, on the object.
writeGetObjectResponse_tagCount :: Lens.Lens' WriteGetObjectResponse (Prelude.Maybe Prelude.Int)
writeGetObjectResponse_tagCount :: Lens' WriteGetObjectResponse (Maybe Int)
writeGetObjectResponse_tagCount = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\WriteGetObjectResponse' {Maybe Int
tagCount :: Maybe Int
$sel:tagCount:WriteGetObjectResponse' :: WriteGetObjectResponse -> Maybe Int
tagCount} -> Maybe Int
tagCount) (\s :: WriteGetObjectResponse
s@WriteGetObjectResponse' {} Maybe Int
a -> WriteGetObjectResponse
s {$sel:tagCount:WriteGetObjectResponse' :: Maybe Int
tagCount = Maybe Int
a} :: WriteGetObjectResponse)

-- | An ID used to reference a specific version of the object.
writeGetObjectResponse_versionId :: Lens.Lens' WriteGetObjectResponse (Prelude.Maybe ObjectVersionId)
writeGetObjectResponse_versionId :: Lens' WriteGetObjectResponse (Maybe ObjectVersionId)
writeGetObjectResponse_versionId = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\WriteGetObjectResponse' {Maybe ObjectVersionId
versionId :: Maybe ObjectVersionId
$sel:versionId:WriteGetObjectResponse' :: WriteGetObjectResponse -> Maybe ObjectVersionId
versionId} -> Maybe ObjectVersionId
versionId) (\s :: WriteGetObjectResponse
s@WriteGetObjectResponse' {} Maybe ObjectVersionId
a -> WriteGetObjectResponse
s {$sel:versionId:WriteGetObjectResponse' :: Maybe ObjectVersionId
versionId = Maybe ObjectVersionId
a} :: WriteGetObjectResponse)

-- | Route prefix to the HTTP URL generated.
writeGetObjectResponse_requestRoute :: Lens.Lens' WriteGetObjectResponse Prelude.Text
writeGetObjectResponse_requestRoute :: Lens' WriteGetObjectResponse Text
writeGetObjectResponse_requestRoute = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\WriteGetObjectResponse' {Text
requestRoute :: Text
$sel:requestRoute:WriteGetObjectResponse' :: WriteGetObjectResponse -> Text
requestRoute} -> Text
requestRoute) (\s :: WriteGetObjectResponse
s@WriteGetObjectResponse' {} Text
a -> WriteGetObjectResponse
s {$sel:requestRoute:WriteGetObjectResponse' :: Text
requestRoute = Text
a} :: WriteGetObjectResponse)

-- | A single use encrypted token that maps @WriteGetObjectResponse@ to the
-- end user @GetObject@ request.
writeGetObjectResponse_requestToken :: Lens.Lens' WriteGetObjectResponse Prelude.Text
writeGetObjectResponse_requestToken :: Lens' WriteGetObjectResponse Text
writeGetObjectResponse_requestToken = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\WriteGetObjectResponse' {Text
requestToken :: Text
$sel:requestToken:WriteGetObjectResponse' :: WriteGetObjectResponse -> Text
requestToken} -> Text
requestToken) (\s :: WriteGetObjectResponse
s@WriteGetObjectResponse' {} Text
a -> WriteGetObjectResponse
s {$sel:requestToken:WriteGetObjectResponse' :: Text
requestToken = Text
a} :: WriteGetObjectResponse)

-- | The object data.
writeGetObjectResponse_body :: Lens.Lens' WriteGetObjectResponse Data.RequestBody
writeGetObjectResponse_body :: Lens' WriteGetObjectResponse RequestBody
writeGetObjectResponse_body = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\WriteGetObjectResponse' {RequestBody
body :: RequestBody
$sel:body:WriteGetObjectResponse' :: WriteGetObjectResponse -> RequestBody
body} -> RequestBody
body) (\s :: WriteGetObjectResponse
s@WriteGetObjectResponse' {} RequestBody
a -> WriteGetObjectResponse
s {$sel:body:WriteGetObjectResponse' :: RequestBody
body = RequestBody
a} :: WriteGetObjectResponse)

instance Core.AWSRequest WriteGetObjectResponse where
  type
    AWSResponse WriteGetObjectResponse =
      WriteGetObjectResponseResponse
  request :: (Service -> Service)
-> WriteGetObjectResponse -> Request WriteGetObjectResponse
request Service -> Service
overrides =
    forall a. Request a -> Request a
Request.s3vhost
      forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. forall a. (ToRequest a, ToBody a) => Service -> a -> Request a
Request.postBody (Service -> Service
overrides Service
defaultService)
  response :: forall (m :: * -> *).
MonadResource m =>
(ByteStringLazy -> IO ByteStringLazy)
-> Service
-> Proxy WriteGetObjectResponse
-> ClientResponse ClientBody
-> m (Either
        Error (ClientResponse (AWSResponse WriteGetObjectResponse)))
response =
    forall (m :: * -> *) a.
MonadResource m =>
AWSResponse a
-> (ByteStringLazy -> IO ByteStringLazy)
-> Service
-> Proxy a
-> ClientResponse ClientBody
-> m (Either Error (ClientResponse (AWSResponse a)))
Response.receiveNull
      WriteGetObjectResponseResponse
WriteGetObjectResponseResponse'

instance Data.ToBody WriteGetObjectResponse where
  toBody :: WriteGetObjectResponse -> RequestBody
toBody WriteGetObjectResponse' {Maybe Bool
Maybe Int
Maybe Integer
Maybe Text
Maybe (Sensitive Text)
Maybe ISO8601
Maybe RFC822
Maybe ObjectVersionId
Maybe ETag
Maybe ObjectLockLegalHoldStatus
Maybe ObjectLockMode
Maybe ReplicationStatus
Maybe RequestCharged
Maybe ServerSideEncryption
Maybe StorageClass
Text
HashMap Text Text
RequestBody
body :: RequestBody
requestToken :: Text
requestRoute :: Text
versionId :: Maybe ObjectVersionId
tagCount :: Maybe Int
storageClass :: Maybe StorageClass
statusCode :: Maybe Int
serverSideEncryption :: Maybe ServerSideEncryption
sSEKMSKeyId :: Maybe (Sensitive Text)
sSECustomerKeyMD5 :: Maybe Text
sSECustomerAlgorithm :: Maybe Text
restore :: Maybe Text
requestCharged :: Maybe RequestCharged
replicationStatus :: Maybe ReplicationStatus
partsCount :: Maybe Int
objectLockRetainUntilDate :: Maybe ISO8601
objectLockMode :: Maybe ObjectLockMode
objectLockLegalHoldStatus :: Maybe ObjectLockLegalHoldStatus
missingMeta :: Maybe Int
metadata :: HashMap Text Text
lastModified :: Maybe RFC822
expires :: Maybe RFC822
expiration :: Maybe Text
errorMessage :: Maybe Text
errorCode :: Maybe Text
eTag :: Maybe ETag
deleteMarker :: Maybe Bool
contentType :: Maybe Text
contentRange :: Maybe Text
contentLength :: Maybe Integer
contentLanguage :: Maybe Text
contentEncoding :: Maybe Text
contentDisposition :: Maybe Text
checksumSHA256 :: Maybe Text
checksumSHA1 :: Maybe Text
checksumCRC32C :: Maybe Text
checksumCRC32 :: Maybe Text
cacheControl :: Maybe Text
bucketKeyEnabled :: Maybe Bool
acceptRanges :: Maybe Text
$sel:body:WriteGetObjectResponse' :: WriteGetObjectResponse -> RequestBody
$sel:requestToken:WriteGetObjectResponse' :: WriteGetObjectResponse -> Text
$sel:requestRoute:WriteGetObjectResponse' :: WriteGetObjectResponse -> Text
$sel:versionId:WriteGetObjectResponse' :: WriteGetObjectResponse -> Maybe ObjectVersionId
$sel:tagCount:WriteGetObjectResponse' :: WriteGetObjectResponse -> Maybe Int
$sel:storageClass:WriteGetObjectResponse' :: WriteGetObjectResponse -> Maybe StorageClass
$sel:statusCode:WriteGetObjectResponse' :: WriteGetObjectResponse -> Maybe Int
$sel:serverSideEncryption:WriteGetObjectResponse' :: WriteGetObjectResponse -> Maybe ServerSideEncryption
$sel:sSEKMSKeyId:WriteGetObjectResponse' :: WriteGetObjectResponse -> Maybe (Sensitive Text)
$sel:sSECustomerKeyMD5:WriteGetObjectResponse' :: WriteGetObjectResponse -> Maybe Text
$sel:sSECustomerAlgorithm:WriteGetObjectResponse' :: WriteGetObjectResponse -> Maybe Text
$sel:restore:WriteGetObjectResponse' :: WriteGetObjectResponse -> Maybe Text
$sel:requestCharged:WriteGetObjectResponse' :: WriteGetObjectResponse -> Maybe RequestCharged
$sel:replicationStatus:WriteGetObjectResponse' :: WriteGetObjectResponse -> Maybe ReplicationStatus
$sel:partsCount:WriteGetObjectResponse' :: WriteGetObjectResponse -> Maybe Int
$sel:objectLockRetainUntilDate:WriteGetObjectResponse' :: WriteGetObjectResponse -> Maybe ISO8601
$sel:objectLockMode:WriteGetObjectResponse' :: WriteGetObjectResponse -> Maybe ObjectLockMode
$sel:objectLockLegalHoldStatus:WriteGetObjectResponse' :: WriteGetObjectResponse -> Maybe ObjectLockLegalHoldStatus
$sel:missingMeta:WriteGetObjectResponse' :: WriteGetObjectResponse -> Maybe Int
$sel:metadata:WriteGetObjectResponse' :: WriteGetObjectResponse -> HashMap Text Text
$sel:lastModified:WriteGetObjectResponse' :: WriteGetObjectResponse -> Maybe RFC822
$sel:expires:WriteGetObjectResponse' :: WriteGetObjectResponse -> Maybe RFC822
$sel:expiration:WriteGetObjectResponse' :: WriteGetObjectResponse -> Maybe Text
$sel:errorMessage:WriteGetObjectResponse' :: WriteGetObjectResponse -> Maybe Text
$sel:errorCode:WriteGetObjectResponse' :: WriteGetObjectResponse -> Maybe Text
$sel:eTag:WriteGetObjectResponse' :: WriteGetObjectResponse -> Maybe ETag
$sel:deleteMarker:WriteGetObjectResponse' :: WriteGetObjectResponse -> Maybe Bool
$sel:contentType:WriteGetObjectResponse' :: WriteGetObjectResponse -> Maybe Text
$sel:contentRange:WriteGetObjectResponse' :: WriteGetObjectResponse -> Maybe Text
$sel:contentLength:WriteGetObjectResponse' :: WriteGetObjectResponse -> Maybe Integer
$sel:contentLanguage:WriteGetObjectResponse' :: WriteGetObjectResponse -> Maybe Text
$sel:contentEncoding:WriteGetObjectResponse' :: WriteGetObjectResponse -> Maybe Text
$sel:contentDisposition:WriteGetObjectResponse' :: WriteGetObjectResponse -> Maybe Text
$sel:checksumSHA256:WriteGetObjectResponse' :: WriteGetObjectResponse -> Maybe Text
$sel:checksumSHA1:WriteGetObjectResponse' :: WriteGetObjectResponse -> Maybe Text
$sel:checksumCRC32C:WriteGetObjectResponse' :: WriteGetObjectResponse -> Maybe Text
$sel:checksumCRC32:WriteGetObjectResponse' :: WriteGetObjectResponse -> Maybe Text
$sel:cacheControl:WriteGetObjectResponse' :: WriteGetObjectResponse -> Maybe Text
$sel:bucketKeyEnabled:WriteGetObjectResponse' :: WriteGetObjectResponse -> Maybe Bool
$sel:acceptRanges:WriteGetObjectResponse' :: WriteGetObjectResponse -> Maybe Text
..} = forall a. ToBody a => a -> RequestBody
Data.toBody RequestBody
body

instance Data.ToHeaders WriteGetObjectResponse where
  toHeaders :: WriteGetObjectResponse -> [Header]
toHeaders WriteGetObjectResponse' {Maybe Bool
Maybe Int
Maybe Integer
Maybe Text
Maybe (Sensitive Text)
Maybe ISO8601
Maybe RFC822
Maybe ObjectVersionId
Maybe ETag
Maybe ObjectLockLegalHoldStatus
Maybe ObjectLockMode
Maybe ReplicationStatus
Maybe RequestCharged
Maybe ServerSideEncryption
Maybe StorageClass
Text
HashMap Text Text
RequestBody
body :: RequestBody
requestToken :: Text
requestRoute :: Text
versionId :: Maybe ObjectVersionId
tagCount :: Maybe Int
storageClass :: Maybe StorageClass
statusCode :: Maybe Int
serverSideEncryption :: Maybe ServerSideEncryption
sSEKMSKeyId :: Maybe (Sensitive Text)
sSECustomerKeyMD5 :: Maybe Text
sSECustomerAlgorithm :: Maybe Text
restore :: Maybe Text
requestCharged :: Maybe RequestCharged
replicationStatus :: Maybe ReplicationStatus
partsCount :: Maybe Int
objectLockRetainUntilDate :: Maybe ISO8601
objectLockMode :: Maybe ObjectLockMode
objectLockLegalHoldStatus :: Maybe ObjectLockLegalHoldStatus
missingMeta :: Maybe Int
metadata :: HashMap Text Text
lastModified :: Maybe RFC822
expires :: Maybe RFC822
expiration :: Maybe Text
errorMessage :: Maybe Text
errorCode :: Maybe Text
eTag :: Maybe ETag
deleteMarker :: Maybe Bool
contentType :: Maybe Text
contentRange :: Maybe Text
contentLength :: Maybe Integer
contentLanguage :: Maybe Text
contentEncoding :: Maybe Text
contentDisposition :: Maybe Text
checksumSHA256 :: Maybe Text
checksumSHA1 :: Maybe Text
checksumCRC32C :: Maybe Text
checksumCRC32 :: Maybe Text
cacheControl :: Maybe Text
bucketKeyEnabled :: Maybe Bool
acceptRanges :: Maybe Text
$sel:body:WriteGetObjectResponse' :: WriteGetObjectResponse -> RequestBody
$sel:requestToken:WriteGetObjectResponse' :: WriteGetObjectResponse -> Text
$sel:requestRoute:WriteGetObjectResponse' :: WriteGetObjectResponse -> Text
$sel:versionId:WriteGetObjectResponse' :: WriteGetObjectResponse -> Maybe ObjectVersionId
$sel:tagCount:WriteGetObjectResponse' :: WriteGetObjectResponse -> Maybe Int
$sel:storageClass:WriteGetObjectResponse' :: WriteGetObjectResponse -> Maybe StorageClass
$sel:statusCode:WriteGetObjectResponse' :: WriteGetObjectResponse -> Maybe Int
$sel:serverSideEncryption:WriteGetObjectResponse' :: WriteGetObjectResponse -> Maybe ServerSideEncryption
$sel:sSEKMSKeyId:WriteGetObjectResponse' :: WriteGetObjectResponse -> Maybe (Sensitive Text)
$sel:sSECustomerKeyMD5:WriteGetObjectResponse' :: WriteGetObjectResponse -> Maybe Text
$sel:sSECustomerAlgorithm:WriteGetObjectResponse' :: WriteGetObjectResponse -> Maybe Text
$sel:restore:WriteGetObjectResponse' :: WriteGetObjectResponse -> Maybe Text
$sel:requestCharged:WriteGetObjectResponse' :: WriteGetObjectResponse -> Maybe RequestCharged
$sel:replicationStatus:WriteGetObjectResponse' :: WriteGetObjectResponse -> Maybe ReplicationStatus
$sel:partsCount:WriteGetObjectResponse' :: WriteGetObjectResponse -> Maybe Int
$sel:objectLockRetainUntilDate:WriteGetObjectResponse' :: WriteGetObjectResponse -> Maybe ISO8601
$sel:objectLockMode:WriteGetObjectResponse' :: WriteGetObjectResponse -> Maybe ObjectLockMode
$sel:objectLockLegalHoldStatus:WriteGetObjectResponse' :: WriteGetObjectResponse -> Maybe ObjectLockLegalHoldStatus
$sel:missingMeta:WriteGetObjectResponse' :: WriteGetObjectResponse -> Maybe Int
$sel:metadata:WriteGetObjectResponse' :: WriteGetObjectResponse -> HashMap Text Text
$sel:lastModified:WriteGetObjectResponse' :: WriteGetObjectResponse -> Maybe RFC822
$sel:expires:WriteGetObjectResponse' :: WriteGetObjectResponse -> Maybe RFC822
$sel:expiration:WriteGetObjectResponse' :: WriteGetObjectResponse -> Maybe Text
$sel:errorMessage:WriteGetObjectResponse' :: WriteGetObjectResponse -> Maybe Text
$sel:errorCode:WriteGetObjectResponse' :: WriteGetObjectResponse -> Maybe Text
$sel:eTag:WriteGetObjectResponse' :: WriteGetObjectResponse -> Maybe ETag
$sel:deleteMarker:WriteGetObjectResponse' :: WriteGetObjectResponse -> Maybe Bool
$sel:contentType:WriteGetObjectResponse' :: WriteGetObjectResponse -> Maybe Text
$sel:contentRange:WriteGetObjectResponse' :: WriteGetObjectResponse -> Maybe Text
$sel:contentLength:WriteGetObjectResponse' :: WriteGetObjectResponse -> Maybe Integer
$sel:contentLanguage:WriteGetObjectResponse' :: WriteGetObjectResponse -> Maybe Text
$sel:contentEncoding:WriteGetObjectResponse' :: WriteGetObjectResponse -> Maybe Text
$sel:contentDisposition:WriteGetObjectResponse' :: WriteGetObjectResponse -> Maybe Text
$sel:checksumSHA256:WriteGetObjectResponse' :: WriteGetObjectResponse -> Maybe Text
$sel:checksumSHA1:WriteGetObjectResponse' :: WriteGetObjectResponse -> Maybe Text
$sel:checksumCRC32C:WriteGetObjectResponse' :: WriteGetObjectResponse -> Maybe Text
$sel:checksumCRC32:WriteGetObjectResponse' :: WriteGetObjectResponse -> Maybe Text
$sel:cacheControl:WriteGetObjectResponse' :: WriteGetObjectResponse -> Maybe Text
$sel:bucketKeyEnabled:WriteGetObjectResponse' :: WriteGetObjectResponse -> Maybe Bool
$sel:acceptRanges:WriteGetObjectResponse' :: WriteGetObjectResponse -> Maybe Text
..} =
    forall a. Monoid a => [a] -> a
Prelude.mconcat
      [ HeaderName
"x-amz-fwd-header-accept-ranges"
          forall a. ToHeader a => HeaderName -> a -> [Header]
Data.=# Maybe Text
acceptRanges,
        HeaderName
"x-amz-fwd-header-x-amz-server-side-encryption-bucket-key-enabled"
          forall a. ToHeader a => HeaderName -> a -> [Header]
Data.=# Maybe Bool
bucketKeyEnabled,
        HeaderName
"x-amz-fwd-header-Cache-Control"
          forall a. ToHeader a => HeaderName -> a -> [Header]
Data.=# Maybe Text
cacheControl,
        HeaderName
"x-amz-fwd-header-x-amz-checksum-crc32"
          forall a. ToHeader a => HeaderName -> a -> [Header]
Data.=# Maybe Text
checksumCRC32,
        HeaderName
"x-amz-fwd-header-x-amz-checksum-crc32c"
          forall a. ToHeader a => HeaderName -> a -> [Header]
Data.=# Maybe Text
checksumCRC32C,
        HeaderName
"x-amz-fwd-header-x-amz-checksum-sha1"
          forall a. ToHeader a => HeaderName -> a -> [Header]
Data.=# Maybe Text
checksumSHA1,
        HeaderName
"x-amz-fwd-header-x-amz-checksum-sha256"
          forall a. ToHeader a => HeaderName -> a -> [Header]
Data.=# Maybe Text
checksumSHA256,
        HeaderName
"x-amz-fwd-header-Content-Disposition"
          forall a. ToHeader a => HeaderName -> a -> [Header]
Data.=# Maybe Text
contentDisposition,
        HeaderName
"x-amz-fwd-header-Content-Encoding"
          forall a. ToHeader a => HeaderName -> a -> [Header]
Data.=# Maybe Text
contentEncoding,
        HeaderName
"x-amz-fwd-header-Content-Language"
          forall a. ToHeader a => HeaderName -> a -> [Header]
Data.=# Maybe Text
contentLanguage,
        HeaderName
"Content-Length" forall a. ToHeader a => HeaderName -> a -> [Header]
Data.=# Maybe Integer
contentLength,
        HeaderName
"x-amz-fwd-header-Content-Range"
          forall a. ToHeader a => HeaderName -> a -> [Header]
Data.=# Maybe Text
contentRange,
        HeaderName
"x-amz-fwd-header-Content-Type" forall a. ToHeader a => HeaderName -> a -> [Header]
Data.=# Maybe Text
contentType,
        HeaderName
"x-amz-fwd-header-x-amz-delete-marker"
          forall a. ToHeader a => HeaderName -> a -> [Header]
Data.=# Maybe Bool
deleteMarker,
        HeaderName
"x-amz-fwd-header-ETag" forall a. ToHeader a => HeaderName -> a -> [Header]
Data.=# Maybe ETag
eTag,
        HeaderName
"x-amz-fwd-error-code" forall a. ToHeader a => HeaderName -> a -> [Header]
Data.=# Maybe Text
errorCode,
        HeaderName
"x-amz-fwd-error-message" forall a. ToHeader a => HeaderName -> a -> [Header]
Data.=# Maybe Text
errorMessage,
        HeaderName
"x-amz-fwd-header-x-amz-expiration"
          forall a. ToHeader a => HeaderName -> a -> [Header]
Data.=# Maybe Text
expiration,
        HeaderName
"x-amz-fwd-header-Expires" forall a. ToHeader a => HeaderName -> a -> [Header]
Data.=# Maybe RFC822
expires,
        HeaderName
"x-amz-fwd-header-Last-Modified"
          forall a. ToHeader a => HeaderName -> a -> [Header]
Data.=# Maybe RFC822
lastModified,
        HeaderName
"x-amz-meta-" forall a. ToHeader a => HeaderName -> a -> [Header]
Data.=# HashMap Text Text
metadata,
        HeaderName
"x-amz-fwd-header-x-amz-missing-meta"
          forall a. ToHeader a => HeaderName -> a -> [Header]
Data.=# Maybe Int
missingMeta,
        HeaderName
"x-amz-fwd-header-x-amz-object-lock-legal-hold"
          forall a. ToHeader a => HeaderName -> a -> [Header]
Data.=# Maybe ObjectLockLegalHoldStatus
objectLockLegalHoldStatus,
        HeaderName
"x-amz-fwd-header-x-amz-object-lock-mode"
          forall a. ToHeader a => HeaderName -> a -> [Header]
Data.=# Maybe ObjectLockMode
objectLockMode,
        HeaderName
"x-amz-fwd-header-x-amz-object-lock-retain-until-date"
          forall a. ToHeader a => HeaderName -> a -> [Header]
Data.=# Maybe ISO8601
objectLockRetainUntilDate,
        HeaderName
"x-amz-fwd-header-x-amz-mp-parts-count"
          forall a. ToHeader a => HeaderName -> a -> [Header]
Data.=# Maybe Int
partsCount,
        HeaderName
"x-amz-fwd-header-x-amz-replication-status"
          forall a. ToHeader a => HeaderName -> a -> [Header]
Data.=# Maybe ReplicationStatus
replicationStatus,
        HeaderName
"x-amz-fwd-header-x-amz-request-charged"
          forall a. ToHeader a => HeaderName -> a -> [Header]
Data.=# Maybe RequestCharged
requestCharged,
        HeaderName
"x-amz-fwd-header-x-amz-restore" forall a. ToHeader a => HeaderName -> a -> [Header]
Data.=# Maybe Text
restore,
        HeaderName
"x-amz-fwd-header-x-amz-server-side-encryption-customer-algorithm"
          forall a. ToHeader a => HeaderName -> a -> [Header]
Data.=# Maybe Text
sSECustomerAlgorithm,
        HeaderName
"x-amz-fwd-header-x-amz-server-side-encryption-customer-key-MD5"
          forall a. ToHeader a => HeaderName -> a -> [Header]
Data.=# Maybe Text
sSECustomerKeyMD5,
        HeaderName
"x-amz-fwd-header-x-amz-server-side-encryption-aws-kms-key-id"
          forall a. ToHeader a => HeaderName -> a -> [Header]
Data.=# Maybe (Sensitive Text)
sSEKMSKeyId,
        HeaderName
"x-amz-fwd-header-x-amz-server-side-encryption"
          forall a. ToHeader a => HeaderName -> a -> [Header]
Data.=# Maybe ServerSideEncryption
serverSideEncryption,
        HeaderName
"x-amz-fwd-status" forall a. ToHeader a => HeaderName -> a -> [Header]
Data.=# Maybe Int
statusCode,
        HeaderName
"x-amz-fwd-header-x-amz-storage-class"
          forall a. ToHeader a => HeaderName -> a -> [Header]
Data.=# Maybe StorageClass
storageClass,
        HeaderName
"x-amz-fwd-header-x-amz-tagging-count"
          forall a. ToHeader a => HeaderName -> a -> [Header]
Data.=# Maybe Int
tagCount,
        HeaderName
"x-amz-fwd-header-x-amz-version-id"
          forall a. ToHeader a => HeaderName -> a -> [Header]
Data.=# Maybe ObjectVersionId
versionId,
        HeaderName
"x-amz-request-route" forall a. ToHeader a => HeaderName -> a -> [Header]
Data.=# Text
requestRoute,
        HeaderName
"x-amz-request-token" forall a. ToHeader a => HeaderName -> a -> [Header]
Data.=# Text
requestToken
      ]

instance Data.ToPath WriteGetObjectResponse where
  toPath :: WriteGetObjectResponse -> ByteString
toPath = forall a b. a -> b -> a
Prelude.const ByteString
"/WriteGetObjectResponse"

instance Data.ToQuery WriteGetObjectResponse where
  toQuery :: WriteGetObjectResponse -> QueryString
toQuery = forall a b. a -> b -> a
Prelude.const forall a. Monoid a => a
Prelude.mempty

-- | /See:/ 'newWriteGetObjectResponseResponse' smart constructor.
data WriteGetObjectResponseResponse = WriteGetObjectResponseResponse'
  {
  }
  deriving (WriteGetObjectResponseResponse
-> WriteGetObjectResponseResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: WriteGetObjectResponseResponse
-> WriteGetObjectResponseResponse -> Bool
$c/= :: WriteGetObjectResponseResponse
-> WriteGetObjectResponseResponse -> Bool
== :: WriteGetObjectResponseResponse
-> WriteGetObjectResponseResponse -> Bool
$c== :: WriteGetObjectResponseResponse
-> WriteGetObjectResponseResponse -> Bool
Prelude.Eq, ReadPrec [WriteGetObjectResponseResponse]
ReadPrec WriteGetObjectResponseResponse
Int -> ReadS WriteGetObjectResponseResponse
ReadS [WriteGetObjectResponseResponse]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [WriteGetObjectResponseResponse]
$creadListPrec :: ReadPrec [WriteGetObjectResponseResponse]
readPrec :: ReadPrec WriteGetObjectResponseResponse
$creadPrec :: ReadPrec WriteGetObjectResponseResponse
readList :: ReadS [WriteGetObjectResponseResponse]
$creadList :: ReadS [WriteGetObjectResponseResponse]
readsPrec :: Int -> ReadS WriteGetObjectResponseResponse
$creadsPrec :: Int -> ReadS WriteGetObjectResponseResponse
Prelude.Read, Int -> WriteGetObjectResponseResponse -> ShowS
[WriteGetObjectResponseResponse] -> ShowS
WriteGetObjectResponseResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [WriteGetObjectResponseResponse] -> ShowS
$cshowList :: [WriteGetObjectResponseResponse] -> ShowS
show :: WriteGetObjectResponseResponse -> String
$cshow :: WriteGetObjectResponseResponse -> String
showsPrec :: Int -> WriteGetObjectResponseResponse -> ShowS
$cshowsPrec :: Int -> WriteGetObjectResponseResponse -> ShowS
Prelude.Show, forall x.
Rep WriteGetObjectResponseResponse x
-> WriteGetObjectResponseResponse
forall x.
WriteGetObjectResponseResponse
-> Rep WriteGetObjectResponseResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep WriteGetObjectResponseResponse x
-> WriteGetObjectResponseResponse
$cfrom :: forall x.
WriteGetObjectResponseResponse
-> Rep WriteGetObjectResponseResponse x
Prelude.Generic)

-- |
-- Create a value of 'WriteGetObjectResponseResponse' with all optional fields omitted.
--
-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.
newWriteGetObjectResponseResponse ::
  WriteGetObjectResponseResponse
newWriteGetObjectResponseResponse :: WriteGetObjectResponseResponse
newWriteGetObjectResponseResponse =
  WriteGetObjectResponseResponse
WriteGetObjectResponseResponse'

instance
  Prelude.NFData
    WriteGetObjectResponseResponse
  where
  rnf :: WriteGetObjectResponseResponse -> ()
rnf WriteGetObjectResponseResponse
_ = ()