module Network.AWS.S3.CompleteMultipartUpload
(
CompleteMultipartUpload
, completeMultipartUpload
, cmu1Bucket
, cmu1Key
, cmu1MultipartUpload
, cmu1UploadId
, CompleteMultipartUploadResponse
, completeMultipartUploadResponse
, cmur1Bucket
, cmur1ETag
, cmur1Expiration
, cmur1Key
, cmur1Location
, cmur1SSEKMSKeyId
, cmur1ServerSideEncryption
, cmur1VersionId
) where
import Network.AWS.Prelude
import Network.AWS.Request.S3
import Network.AWS.S3.Types
import qualified GHC.Exts
data CompleteMultipartUpload = CompleteMultipartUpload
{ _cmu1Bucket :: Text
, _cmu1Key :: Text
, _cmu1MultipartUpload :: Maybe CompletedMultipartUpload
, _cmu1UploadId :: Text
} deriving (Eq, Show)
completeMultipartUpload :: Text
-> Text
-> Text
-> CompleteMultipartUpload
completeMultipartUpload p1 p2 p3 = CompleteMultipartUpload
{ _cmu1Bucket = p1
, _cmu1Key = p2
, _cmu1UploadId = p3
, _cmu1MultipartUpload = Nothing
}
cmu1Bucket :: Lens' CompleteMultipartUpload Text
cmu1Bucket = lens _cmu1Bucket (\s a -> s { _cmu1Bucket = a })
cmu1Key :: Lens' CompleteMultipartUpload Text
cmu1Key = lens _cmu1Key (\s a -> s { _cmu1Key = a })
cmu1MultipartUpload :: Lens' CompleteMultipartUpload (Maybe CompletedMultipartUpload)
cmu1MultipartUpload =
lens _cmu1MultipartUpload (\s a -> s { _cmu1MultipartUpload = a })
cmu1UploadId :: Lens' CompleteMultipartUpload Text
cmu1UploadId = lens _cmu1UploadId (\s a -> s { _cmu1UploadId = a })
data CompleteMultipartUploadResponse = CompleteMultipartUploadResponse
{ _cmur1Bucket :: Maybe Text
, _cmur1ETag :: Maybe Text
, _cmur1Expiration :: Maybe Text
, _cmur1Key :: Maybe Text
, _cmur1Location :: Maybe Text
, _cmur1SSEKMSKeyId :: Maybe (Sensitive Text)
, _cmur1ServerSideEncryption :: Maybe ServerSideEncryption
, _cmur1VersionId :: Maybe Text
} deriving (Eq, Show)
completeMultipartUploadResponse :: CompleteMultipartUploadResponse
completeMultipartUploadResponse = CompleteMultipartUploadResponse
{ _cmur1Location = Nothing
, _cmur1Bucket = Nothing
, _cmur1Key = Nothing
, _cmur1Expiration = Nothing
, _cmur1ETag = Nothing
, _cmur1ServerSideEncryption = Nothing
, _cmur1VersionId = Nothing
, _cmur1SSEKMSKeyId = Nothing
}
cmur1Bucket :: Lens' CompleteMultipartUploadResponse (Maybe Text)
cmur1Bucket = lens _cmur1Bucket (\s a -> s { _cmur1Bucket = a })
cmur1ETag :: Lens' CompleteMultipartUploadResponse (Maybe Text)
cmur1ETag = lens _cmur1ETag (\s a -> s { _cmur1ETag = a })
cmur1Expiration :: Lens' CompleteMultipartUploadResponse (Maybe Text)
cmur1Expiration = lens _cmur1Expiration (\s a -> s { _cmur1Expiration = a })
cmur1Key :: Lens' CompleteMultipartUploadResponse (Maybe Text)
cmur1Key = lens _cmur1Key (\s a -> s { _cmur1Key = a })
cmur1Location :: Lens' CompleteMultipartUploadResponse (Maybe Text)
cmur1Location = lens _cmur1Location (\s a -> s { _cmur1Location = a })
cmur1SSEKMSKeyId :: Lens' CompleteMultipartUploadResponse (Maybe Text)
cmur1SSEKMSKeyId = lens _cmur1SSEKMSKeyId (\s a -> s { _cmur1SSEKMSKeyId = a }) . mapping _Sensitive
cmur1ServerSideEncryption :: Lens' CompleteMultipartUploadResponse (Maybe ServerSideEncryption)
cmur1ServerSideEncryption =
lens _cmur1ServerSideEncryption
(\s a -> s { _cmur1ServerSideEncryption = a })
cmur1VersionId :: Lens' CompleteMultipartUploadResponse (Maybe Text)
cmur1VersionId = lens _cmur1VersionId (\s a -> s { _cmur1VersionId = a })
instance ToPath CompleteMultipartUpload where
toPath CompleteMultipartUpload{..} = mconcat
[ "/"
, toText _cmu1Bucket
, "/"
, toText _cmu1Key
]
instance ToQuery CompleteMultipartUpload where
toQuery rq = "uploadId" =? _cmu1UploadId rq
instance ToHeaders CompleteMultipartUpload
instance ToXMLRoot CompleteMultipartUpload where
toXMLRoot CompleteMultipartUpload{..} = namespaced ns "CompleteMultipartUpload"
[ "CompleteMultipartUpload" =@ _cmu1MultipartUpload
]
instance ToXML CompleteMultipartUpload
instance AWSRequest CompleteMultipartUpload where
type Sv CompleteMultipartUpload = S3
type Rs CompleteMultipartUpload = CompleteMultipartUploadResponse
request = post
response = xmlHeaderResponse $ \h x -> CompleteMultipartUploadResponse
<$> x .@? "Bucket"
<*> x .@? "ETag"
<*> h ~:? "x-amz-expiration"
<*> x .@? "Key"
<*> x .@? "Location"
<*> h ~:? "x-amz-server-side-encryption-aws-kms-key-id"
<*> h ~:? "x-amz-server-side-encryption"
<*> h ~:? "x-amz-version-id"