{-# 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 #-}
module Amazonka.S3.AbortMultipartUpload
(
AbortMultipartUpload (..),
newAbortMultipartUpload,
abortMultipartUpload_expectedBucketOwner,
abortMultipartUpload_requestPayer,
abortMultipartUpload_bucket,
abortMultipartUpload_key,
abortMultipartUpload_uploadId,
AbortMultipartUploadResponse (..),
newAbortMultipartUploadResponse,
abortMultipartUploadResponse_requestCharged,
abortMultipartUploadResponse_httpStatus,
)
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
data AbortMultipartUpload = AbortMultipartUpload'
{
AbortMultipartUpload -> Maybe Text
expectedBucketOwner :: Prelude.Maybe Prelude.Text,
AbortMultipartUpload -> Maybe RequestPayer
requestPayer :: Prelude.Maybe RequestPayer,
AbortMultipartUpload -> BucketName
bucket :: BucketName,
AbortMultipartUpload -> ObjectKey
key :: ObjectKey,
AbortMultipartUpload -> Text
uploadId :: Prelude.Text
}
deriving (AbortMultipartUpload -> AbortMultipartUpload -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: AbortMultipartUpload -> AbortMultipartUpload -> Bool
$c/= :: AbortMultipartUpload -> AbortMultipartUpload -> Bool
== :: AbortMultipartUpload -> AbortMultipartUpload -> Bool
$c== :: AbortMultipartUpload -> AbortMultipartUpload -> Bool
Prelude.Eq, ReadPrec [AbortMultipartUpload]
ReadPrec AbortMultipartUpload
Int -> ReadS AbortMultipartUpload
ReadS [AbortMultipartUpload]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [AbortMultipartUpload]
$creadListPrec :: ReadPrec [AbortMultipartUpload]
readPrec :: ReadPrec AbortMultipartUpload
$creadPrec :: ReadPrec AbortMultipartUpload
readList :: ReadS [AbortMultipartUpload]
$creadList :: ReadS [AbortMultipartUpload]
readsPrec :: Int -> ReadS AbortMultipartUpload
$creadsPrec :: Int -> ReadS AbortMultipartUpload
Prelude.Read, Int -> AbortMultipartUpload -> ShowS
[AbortMultipartUpload] -> ShowS
AbortMultipartUpload -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [AbortMultipartUpload] -> ShowS
$cshowList :: [AbortMultipartUpload] -> ShowS
show :: AbortMultipartUpload -> String
$cshow :: AbortMultipartUpload -> String
showsPrec :: Int -> AbortMultipartUpload -> ShowS
$cshowsPrec :: Int -> AbortMultipartUpload -> ShowS
Prelude.Show, forall x. Rep AbortMultipartUpload x -> AbortMultipartUpload
forall x. AbortMultipartUpload -> Rep AbortMultipartUpload x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep AbortMultipartUpload x -> AbortMultipartUpload
$cfrom :: forall x. AbortMultipartUpload -> Rep AbortMultipartUpload x
Prelude.Generic)
newAbortMultipartUpload ::
BucketName ->
ObjectKey ->
Prelude.Text ->
AbortMultipartUpload
newAbortMultipartUpload :: BucketName -> ObjectKey -> Text -> AbortMultipartUpload
newAbortMultipartUpload BucketName
pBucket_ ObjectKey
pKey_ Text
pUploadId_ =
AbortMultipartUpload'
{ $sel:expectedBucketOwner:AbortMultipartUpload' :: Maybe Text
expectedBucketOwner =
forall a. Maybe a
Prelude.Nothing,
$sel:requestPayer:AbortMultipartUpload' :: Maybe RequestPayer
requestPayer = forall a. Maybe a
Prelude.Nothing,
$sel:bucket:AbortMultipartUpload' :: BucketName
bucket = BucketName
pBucket_,
$sel:key:AbortMultipartUpload' :: ObjectKey
key = ObjectKey
pKey_,
$sel:uploadId:AbortMultipartUpload' :: Text
uploadId = Text
pUploadId_
}
abortMultipartUpload_expectedBucketOwner :: Lens.Lens' AbortMultipartUpload (Prelude.Maybe Prelude.Text)
abortMultipartUpload_expectedBucketOwner :: Lens' AbortMultipartUpload (Maybe Text)
abortMultipartUpload_expectedBucketOwner = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\AbortMultipartUpload' {Maybe Text
expectedBucketOwner :: Maybe Text
$sel:expectedBucketOwner:AbortMultipartUpload' :: AbortMultipartUpload -> Maybe Text
expectedBucketOwner} -> Maybe Text
expectedBucketOwner) (\s :: AbortMultipartUpload
s@AbortMultipartUpload' {} Maybe Text
a -> AbortMultipartUpload
s {$sel:expectedBucketOwner:AbortMultipartUpload' :: Maybe Text
expectedBucketOwner = Maybe Text
a} :: AbortMultipartUpload)
abortMultipartUpload_requestPayer :: Lens.Lens' AbortMultipartUpload (Prelude.Maybe RequestPayer)
abortMultipartUpload_requestPayer :: Lens' AbortMultipartUpload (Maybe RequestPayer)
abortMultipartUpload_requestPayer = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\AbortMultipartUpload' {Maybe RequestPayer
requestPayer :: Maybe RequestPayer
$sel:requestPayer:AbortMultipartUpload' :: AbortMultipartUpload -> Maybe RequestPayer
requestPayer} -> Maybe RequestPayer
requestPayer) (\s :: AbortMultipartUpload
s@AbortMultipartUpload' {} Maybe RequestPayer
a -> AbortMultipartUpload
s {$sel:requestPayer:AbortMultipartUpload' :: Maybe RequestPayer
requestPayer = Maybe RequestPayer
a} :: AbortMultipartUpload)
abortMultipartUpload_bucket :: Lens.Lens' AbortMultipartUpload BucketName
abortMultipartUpload_bucket :: Lens' AbortMultipartUpload BucketName
abortMultipartUpload_bucket = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\AbortMultipartUpload' {BucketName
bucket :: BucketName
$sel:bucket:AbortMultipartUpload' :: AbortMultipartUpload -> BucketName
bucket} -> BucketName
bucket) (\s :: AbortMultipartUpload
s@AbortMultipartUpload' {} BucketName
a -> AbortMultipartUpload
s {$sel:bucket:AbortMultipartUpload' :: BucketName
bucket = BucketName
a} :: AbortMultipartUpload)
abortMultipartUpload_key :: Lens.Lens' AbortMultipartUpload ObjectKey
abortMultipartUpload_key :: Lens' AbortMultipartUpload ObjectKey
abortMultipartUpload_key = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\AbortMultipartUpload' {ObjectKey
key :: ObjectKey
$sel:key:AbortMultipartUpload' :: AbortMultipartUpload -> ObjectKey
key} -> ObjectKey
key) (\s :: AbortMultipartUpload
s@AbortMultipartUpload' {} ObjectKey
a -> AbortMultipartUpload
s {$sel:key:AbortMultipartUpload' :: ObjectKey
key = ObjectKey
a} :: AbortMultipartUpload)
abortMultipartUpload_uploadId :: Lens.Lens' AbortMultipartUpload Prelude.Text
abortMultipartUpload_uploadId :: Lens' AbortMultipartUpload Text
abortMultipartUpload_uploadId = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\AbortMultipartUpload' {Text
uploadId :: Text
$sel:uploadId:AbortMultipartUpload' :: AbortMultipartUpload -> Text
uploadId} -> Text
uploadId) (\s :: AbortMultipartUpload
s@AbortMultipartUpload' {} Text
a -> AbortMultipartUpload
s {$sel:uploadId:AbortMultipartUpload' :: Text
uploadId = Text
a} :: AbortMultipartUpload)
instance Core.AWSRequest AbortMultipartUpload where
type
AWSResponse AbortMultipartUpload =
AbortMultipartUploadResponse
request :: (Service -> Service)
-> AbortMultipartUpload -> Request AbortMultipartUpload
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 => Service -> a -> Request a
Request.delete (Service -> Service
overrides Service
defaultService)
response :: forall (m :: * -> *).
MonadResource m =>
(ByteStringLazy -> IO ByteStringLazy)
-> Service
-> Proxy AbortMultipartUpload
-> ClientResponse ClientBody
-> m (Either
Error (ClientResponse (AWSResponse AbortMultipartUpload)))
response =
forall (m :: * -> *) a.
MonadResource m =>
(Int -> ResponseHeaders -> () -> Either String (AWSResponse a))
-> (ByteStringLazy -> IO ByteStringLazy)
-> Service
-> Proxy a
-> ClientResponse ClientBody
-> m (Either Error (ClientResponse (AWSResponse a)))
Response.receiveEmpty
( \Int
s ResponseHeaders
h ()
x ->
Maybe RequestCharged -> Int -> AbortMultipartUploadResponse
AbortMultipartUploadResponse'
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> (ResponseHeaders
h forall a.
FromText a =>
ResponseHeaders -> HeaderName -> Either String (Maybe a)
Data..#? HeaderName
"x-amz-request-charged")
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure (forall a. Enum a => a -> Int
Prelude.fromEnum Int
s))
)
instance Prelude.Hashable AbortMultipartUpload where
hashWithSalt :: Int -> AbortMultipartUpload -> Int
hashWithSalt Int
_salt AbortMultipartUpload' {Maybe Text
Maybe RequestPayer
Text
ObjectKey
BucketName
uploadId :: Text
key :: ObjectKey
bucket :: BucketName
requestPayer :: Maybe RequestPayer
expectedBucketOwner :: Maybe Text
$sel:uploadId:AbortMultipartUpload' :: AbortMultipartUpload -> Text
$sel:key:AbortMultipartUpload' :: AbortMultipartUpload -> ObjectKey
$sel:bucket:AbortMultipartUpload' :: AbortMultipartUpload -> BucketName
$sel:requestPayer:AbortMultipartUpload' :: AbortMultipartUpload -> Maybe RequestPayer
$sel:expectedBucketOwner:AbortMultipartUpload' :: AbortMultipartUpload -> Maybe Text
..} =
Int
_salt
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
expectedBucketOwner
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe RequestPayer
requestPayer
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` BucketName
bucket
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` ObjectKey
key
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
uploadId
instance Prelude.NFData AbortMultipartUpload where
rnf :: AbortMultipartUpload -> ()
rnf AbortMultipartUpload' {Maybe Text
Maybe RequestPayer
Text
ObjectKey
BucketName
uploadId :: Text
key :: ObjectKey
bucket :: BucketName
requestPayer :: Maybe RequestPayer
expectedBucketOwner :: Maybe Text
$sel:uploadId:AbortMultipartUpload' :: AbortMultipartUpload -> Text
$sel:key:AbortMultipartUpload' :: AbortMultipartUpload -> ObjectKey
$sel:bucket:AbortMultipartUpload' :: AbortMultipartUpload -> BucketName
$sel:requestPayer:AbortMultipartUpload' :: AbortMultipartUpload -> Maybe RequestPayer
$sel:expectedBucketOwner:AbortMultipartUpload' :: AbortMultipartUpload -> Maybe Text
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
expectedBucketOwner
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe RequestPayer
requestPayer
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf BucketName
bucket
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf ObjectKey
key
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Text
uploadId
instance Data.ToHeaders AbortMultipartUpload where
toHeaders :: AbortMultipartUpload -> ResponseHeaders
toHeaders AbortMultipartUpload' {Maybe Text
Maybe RequestPayer
Text
ObjectKey
BucketName
uploadId :: Text
key :: ObjectKey
bucket :: BucketName
requestPayer :: Maybe RequestPayer
expectedBucketOwner :: Maybe Text
$sel:uploadId:AbortMultipartUpload' :: AbortMultipartUpload -> Text
$sel:key:AbortMultipartUpload' :: AbortMultipartUpload -> ObjectKey
$sel:bucket:AbortMultipartUpload' :: AbortMultipartUpload -> BucketName
$sel:requestPayer:AbortMultipartUpload' :: AbortMultipartUpload -> Maybe RequestPayer
$sel:expectedBucketOwner:AbortMultipartUpload' :: AbortMultipartUpload -> Maybe Text
..} =
forall a. Monoid a => [a] -> a
Prelude.mconcat
[ HeaderName
"x-amz-expected-bucket-owner"
forall a. ToHeader a => HeaderName -> a -> ResponseHeaders
Data.=# Maybe Text
expectedBucketOwner,
HeaderName
"x-amz-request-payer" forall a. ToHeader a => HeaderName -> a -> ResponseHeaders
Data.=# Maybe RequestPayer
requestPayer
]
instance Data.ToPath AbortMultipartUpload where
toPath :: AbortMultipartUpload -> ByteString
toPath AbortMultipartUpload' {Maybe Text
Maybe RequestPayer
Text
ObjectKey
BucketName
uploadId :: Text
key :: ObjectKey
bucket :: BucketName
requestPayer :: Maybe RequestPayer
expectedBucketOwner :: Maybe Text
$sel:uploadId:AbortMultipartUpload' :: AbortMultipartUpload -> Text
$sel:key:AbortMultipartUpload' :: AbortMultipartUpload -> ObjectKey
$sel:bucket:AbortMultipartUpload' :: AbortMultipartUpload -> BucketName
$sel:requestPayer:AbortMultipartUpload' :: AbortMultipartUpload -> Maybe RequestPayer
$sel:expectedBucketOwner:AbortMultipartUpload' :: AbortMultipartUpload -> Maybe Text
..} =
forall a. Monoid a => [a] -> a
Prelude.mconcat
[ByteString
"/", forall a. ToByteString a => a -> ByteString
Data.toBS BucketName
bucket, ByteString
"/", forall a. ToByteString a => a -> ByteString
Data.toBS ObjectKey
key]
instance Data.ToQuery AbortMultipartUpload where
toQuery :: AbortMultipartUpload -> QueryString
toQuery AbortMultipartUpload' {Maybe Text
Maybe RequestPayer
Text
ObjectKey
BucketName
uploadId :: Text
key :: ObjectKey
bucket :: BucketName
requestPayer :: Maybe RequestPayer
expectedBucketOwner :: Maybe Text
$sel:uploadId:AbortMultipartUpload' :: AbortMultipartUpload -> Text
$sel:key:AbortMultipartUpload' :: AbortMultipartUpload -> ObjectKey
$sel:bucket:AbortMultipartUpload' :: AbortMultipartUpload -> BucketName
$sel:requestPayer:AbortMultipartUpload' :: AbortMultipartUpload -> Maybe RequestPayer
$sel:expectedBucketOwner:AbortMultipartUpload' :: AbortMultipartUpload -> Maybe Text
..} =
forall a. Monoid a => [a] -> a
Prelude.mconcat [ByteString
"uploadId" forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: Text
uploadId]
data AbortMultipartUploadResponse = AbortMultipartUploadResponse'
{ AbortMultipartUploadResponse -> Maybe RequestCharged
requestCharged :: Prelude.Maybe RequestCharged,
AbortMultipartUploadResponse -> Int
httpStatus :: Prelude.Int
}
deriving (AbortMultipartUploadResponse
-> AbortMultipartUploadResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: AbortMultipartUploadResponse
-> AbortMultipartUploadResponse -> Bool
$c/= :: AbortMultipartUploadResponse
-> AbortMultipartUploadResponse -> Bool
== :: AbortMultipartUploadResponse
-> AbortMultipartUploadResponse -> Bool
$c== :: AbortMultipartUploadResponse
-> AbortMultipartUploadResponse -> Bool
Prelude.Eq, ReadPrec [AbortMultipartUploadResponse]
ReadPrec AbortMultipartUploadResponse
Int -> ReadS AbortMultipartUploadResponse
ReadS [AbortMultipartUploadResponse]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [AbortMultipartUploadResponse]
$creadListPrec :: ReadPrec [AbortMultipartUploadResponse]
readPrec :: ReadPrec AbortMultipartUploadResponse
$creadPrec :: ReadPrec AbortMultipartUploadResponse
readList :: ReadS [AbortMultipartUploadResponse]
$creadList :: ReadS [AbortMultipartUploadResponse]
readsPrec :: Int -> ReadS AbortMultipartUploadResponse
$creadsPrec :: Int -> ReadS AbortMultipartUploadResponse
Prelude.Read, Int -> AbortMultipartUploadResponse -> ShowS
[AbortMultipartUploadResponse] -> ShowS
AbortMultipartUploadResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [AbortMultipartUploadResponse] -> ShowS
$cshowList :: [AbortMultipartUploadResponse] -> ShowS
show :: AbortMultipartUploadResponse -> String
$cshow :: AbortMultipartUploadResponse -> String
showsPrec :: Int -> AbortMultipartUploadResponse -> ShowS
$cshowsPrec :: Int -> AbortMultipartUploadResponse -> ShowS
Prelude.Show, forall x.
Rep AbortMultipartUploadResponse x -> AbortMultipartUploadResponse
forall x.
AbortMultipartUploadResponse -> Rep AbortMultipartUploadResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep AbortMultipartUploadResponse x -> AbortMultipartUploadResponse
$cfrom :: forall x.
AbortMultipartUploadResponse -> Rep AbortMultipartUploadResponse x
Prelude.Generic)
newAbortMultipartUploadResponse ::
Prelude.Int ->
AbortMultipartUploadResponse
newAbortMultipartUploadResponse :: Int -> AbortMultipartUploadResponse
newAbortMultipartUploadResponse Int
pHttpStatus_ =
AbortMultipartUploadResponse'
{ $sel:requestCharged:AbortMultipartUploadResponse' :: Maybe RequestCharged
requestCharged =
forall a. Maybe a
Prelude.Nothing,
$sel:httpStatus:AbortMultipartUploadResponse' :: Int
httpStatus = Int
pHttpStatus_
}
abortMultipartUploadResponse_requestCharged :: Lens.Lens' AbortMultipartUploadResponse (Prelude.Maybe RequestCharged)
abortMultipartUploadResponse_requestCharged :: Lens' AbortMultipartUploadResponse (Maybe RequestCharged)
abortMultipartUploadResponse_requestCharged = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\AbortMultipartUploadResponse' {Maybe RequestCharged
requestCharged :: Maybe RequestCharged
$sel:requestCharged:AbortMultipartUploadResponse' :: AbortMultipartUploadResponse -> Maybe RequestCharged
requestCharged} -> Maybe RequestCharged
requestCharged) (\s :: AbortMultipartUploadResponse
s@AbortMultipartUploadResponse' {} Maybe RequestCharged
a -> AbortMultipartUploadResponse
s {$sel:requestCharged:AbortMultipartUploadResponse' :: Maybe RequestCharged
requestCharged = Maybe RequestCharged
a} :: AbortMultipartUploadResponse)
abortMultipartUploadResponse_httpStatus :: Lens.Lens' AbortMultipartUploadResponse Prelude.Int
abortMultipartUploadResponse_httpStatus :: Lens' AbortMultipartUploadResponse Int
abortMultipartUploadResponse_httpStatus = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\AbortMultipartUploadResponse' {Int
httpStatus :: Int
$sel:httpStatus:AbortMultipartUploadResponse' :: AbortMultipartUploadResponse -> Int
httpStatus} -> Int
httpStatus) (\s :: AbortMultipartUploadResponse
s@AbortMultipartUploadResponse' {} Int
a -> AbortMultipartUploadResponse
s {$sel:httpStatus:AbortMultipartUploadResponse' :: Int
httpStatus = Int
a} :: AbortMultipartUploadResponse)
instance Prelude.NFData AbortMultipartUploadResponse where
rnf :: AbortMultipartUploadResponse -> ()
rnf AbortMultipartUploadResponse' {Int
Maybe RequestCharged
httpStatus :: Int
requestCharged :: Maybe RequestCharged
$sel:httpStatus:AbortMultipartUploadResponse' :: AbortMultipartUploadResponse -> Int
$sel:requestCharged:AbortMultipartUploadResponse' :: AbortMultipartUploadResponse -> Maybe RequestCharged
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe RequestCharged
requestCharged
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Int
httpStatus