{-# 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.SecretsManager.CreateSecret
(
CreateSecret (..),
newCreateSecret,
createSecret_addReplicaRegions,
createSecret_clientRequestToken,
createSecret_description,
createSecret_forceOverwriteReplicaSecret,
createSecret_kmsKeyId,
createSecret_secretBinary,
createSecret_secretString,
createSecret_tags,
createSecret_name,
CreateSecretResponse (..),
newCreateSecretResponse,
createSecretResponse_arn,
createSecretResponse_name,
createSecretResponse_replicationStatus,
createSecretResponse_versionId,
createSecretResponse_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.SecretsManager.Types
data CreateSecret = CreateSecret'
{
CreateSecret -> Maybe (NonEmpty ReplicaRegionType)
addReplicaRegions :: Prelude.Maybe (Prelude.NonEmpty ReplicaRegionType),
CreateSecret -> Maybe Text
clientRequestToken :: Prelude.Maybe Prelude.Text,
CreateSecret -> Maybe Text
description :: Prelude.Maybe Prelude.Text,
CreateSecret -> Maybe Bool
forceOverwriteReplicaSecret :: Prelude.Maybe Prelude.Bool,
CreateSecret -> Maybe Text
kmsKeyId :: Prelude.Maybe Prelude.Text,
CreateSecret -> Maybe (Sensitive Base64)
secretBinary :: Prelude.Maybe (Data.Sensitive Data.Base64),
CreateSecret -> Maybe (Sensitive Text)
secretString :: Prelude.Maybe (Data.Sensitive Prelude.Text),
CreateSecret -> Maybe [Tag]
tags :: Prelude.Maybe [Tag],
CreateSecret -> Text
name :: Prelude.Text
}
deriving (CreateSecret -> CreateSecret -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: CreateSecret -> CreateSecret -> Bool
$c/= :: CreateSecret -> CreateSecret -> Bool
== :: CreateSecret -> CreateSecret -> Bool
$c== :: CreateSecret -> CreateSecret -> Bool
Prelude.Eq, Int -> CreateSecret -> ShowS
[CreateSecret] -> ShowS
CreateSecret -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [CreateSecret] -> ShowS
$cshowList :: [CreateSecret] -> ShowS
show :: CreateSecret -> String
$cshow :: CreateSecret -> String
showsPrec :: Int -> CreateSecret -> ShowS
$cshowsPrec :: Int -> CreateSecret -> ShowS
Prelude.Show, forall x. Rep CreateSecret x -> CreateSecret
forall x. CreateSecret -> Rep CreateSecret x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep CreateSecret x -> CreateSecret
$cfrom :: forall x. CreateSecret -> Rep CreateSecret x
Prelude.Generic)
newCreateSecret ::
Prelude.Text ->
CreateSecret
newCreateSecret :: Text -> CreateSecret
newCreateSecret Text
pName_ =
CreateSecret'
{ $sel:addReplicaRegions:CreateSecret' :: Maybe (NonEmpty ReplicaRegionType)
addReplicaRegions = forall a. Maybe a
Prelude.Nothing,
$sel:clientRequestToken:CreateSecret' :: Maybe Text
clientRequestToken = forall a. Maybe a
Prelude.Nothing,
$sel:description:CreateSecret' :: Maybe Text
description = forall a. Maybe a
Prelude.Nothing,
$sel:forceOverwriteReplicaSecret:CreateSecret' :: Maybe Bool
forceOverwriteReplicaSecret = forall a. Maybe a
Prelude.Nothing,
$sel:kmsKeyId:CreateSecret' :: Maybe Text
kmsKeyId = forall a. Maybe a
Prelude.Nothing,
$sel:secretBinary:CreateSecret' :: Maybe (Sensitive Base64)
secretBinary = forall a. Maybe a
Prelude.Nothing,
$sel:secretString:CreateSecret' :: Maybe (Sensitive Text)
secretString = forall a. Maybe a
Prelude.Nothing,
$sel:tags:CreateSecret' :: Maybe [Tag]
tags = forall a. Maybe a
Prelude.Nothing,
$sel:name:CreateSecret' :: Text
name = Text
pName_
}
createSecret_addReplicaRegions :: Lens.Lens' CreateSecret (Prelude.Maybe (Prelude.NonEmpty ReplicaRegionType))
createSecret_addReplicaRegions :: Lens' CreateSecret (Maybe (NonEmpty ReplicaRegionType))
createSecret_addReplicaRegions = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateSecret' {Maybe (NonEmpty ReplicaRegionType)
addReplicaRegions :: Maybe (NonEmpty ReplicaRegionType)
$sel:addReplicaRegions:CreateSecret' :: CreateSecret -> Maybe (NonEmpty ReplicaRegionType)
addReplicaRegions} -> Maybe (NonEmpty ReplicaRegionType)
addReplicaRegions) (\s :: CreateSecret
s@CreateSecret' {} Maybe (NonEmpty ReplicaRegionType)
a -> CreateSecret
s {$sel:addReplicaRegions:CreateSecret' :: Maybe (NonEmpty ReplicaRegionType)
addReplicaRegions = Maybe (NonEmpty ReplicaRegionType)
a} :: CreateSecret) 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 s t a b. (Coercible s a, Coercible t b) => Iso s t a b
Lens.coerced
createSecret_clientRequestToken :: Lens.Lens' CreateSecret (Prelude.Maybe Prelude.Text)
createSecret_clientRequestToken :: Lens' CreateSecret (Maybe Text)
createSecret_clientRequestToken = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateSecret' {Maybe Text
clientRequestToken :: Maybe Text
$sel:clientRequestToken:CreateSecret' :: CreateSecret -> Maybe Text
clientRequestToken} -> Maybe Text
clientRequestToken) (\s :: CreateSecret
s@CreateSecret' {} Maybe Text
a -> CreateSecret
s {$sel:clientRequestToken:CreateSecret' :: Maybe Text
clientRequestToken = Maybe Text
a} :: CreateSecret)
createSecret_description :: Lens.Lens' CreateSecret (Prelude.Maybe Prelude.Text)
createSecret_description :: Lens' CreateSecret (Maybe Text)
createSecret_description = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateSecret' {Maybe Text
description :: Maybe Text
$sel:description:CreateSecret' :: CreateSecret -> Maybe Text
description} -> Maybe Text
description) (\s :: CreateSecret
s@CreateSecret' {} Maybe Text
a -> CreateSecret
s {$sel:description:CreateSecret' :: Maybe Text
description = Maybe Text
a} :: CreateSecret)
createSecret_forceOverwriteReplicaSecret :: Lens.Lens' CreateSecret (Prelude.Maybe Prelude.Bool)
createSecret_forceOverwriteReplicaSecret :: Lens' CreateSecret (Maybe Bool)
createSecret_forceOverwriteReplicaSecret = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateSecret' {Maybe Bool
forceOverwriteReplicaSecret :: Maybe Bool
$sel:forceOverwriteReplicaSecret:CreateSecret' :: CreateSecret -> Maybe Bool
forceOverwriteReplicaSecret} -> Maybe Bool
forceOverwriteReplicaSecret) (\s :: CreateSecret
s@CreateSecret' {} Maybe Bool
a -> CreateSecret
s {$sel:forceOverwriteReplicaSecret:CreateSecret' :: Maybe Bool
forceOverwriteReplicaSecret = Maybe Bool
a} :: CreateSecret)
createSecret_kmsKeyId :: Lens.Lens' CreateSecret (Prelude.Maybe Prelude.Text)
createSecret_kmsKeyId :: Lens' CreateSecret (Maybe Text)
createSecret_kmsKeyId = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateSecret' {Maybe Text
kmsKeyId :: Maybe Text
$sel:kmsKeyId:CreateSecret' :: CreateSecret -> Maybe Text
kmsKeyId} -> Maybe Text
kmsKeyId) (\s :: CreateSecret
s@CreateSecret' {} Maybe Text
a -> CreateSecret
s {$sel:kmsKeyId:CreateSecret' :: Maybe Text
kmsKeyId = Maybe Text
a} :: CreateSecret)
createSecret_secretBinary :: Lens.Lens' CreateSecret (Prelude.Maybe Prelude.ByteString)
createSecret_secretBinary :: Lens' CreateSecret (Maybe ByteString)
createSecret_secretBinary = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateSecret' {Maybe (Sensitive Base64)
secretBinary :: Maybe (Sensitive Base64)
$sel:secretBinary:CreateSecret' :: CreateSecret -> Maybe (Sensitive Base64)
secretBinary} -> Maybe (Sensitive Base64)
secretBinary) (\s :: CreateSecret
s@CreateSecret' {} Maybe (Sensitive Base64)
a -> CreateSecret
s {$sel:secretBinary:CreateSecret' :: Maybe (Sensitive Base64)
secretBinary = Maybe (Sensitive Base64)
a} :: CreateSecret) 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 forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. Iso' Base64 ByteString
Data._Base64)
createSecret_secretString :: Lens.Lens' CreateSecret (Prelude.Maybe Prelude.Text)
createSecret_secretString :: Lens' CreateSecret (Maybe Text)
createSecret_secretString = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateSecret' {Maybe (Sensitive Text)
secretString :: Maybe (Sensitive Text)
$sel:secretString:CreateSecret' :: CreateSecret -> Maybe (Sensitive Text)
secretString} -> Maybe (Sensitive Text)
secretString) (\s :: CreateSecret
s@CreateSecret' {} Maybe (Sensitive Text)
a -> CreateSecret
s {$sel:secretString:CreateSecret' :: Maybe (Sensitive Text)
secretString = Maybe (Sensitive Text)
a} :: CreateSecret) 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
createSecret_tags :: Lens.Lens' CreateSecret (Prelude.Maybe [Tag])
createSecret_tags :: Lens' CreateSecret (Maybe [Tag])
createSecret_tags = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateSecret' {Maybe [Tag]
tags :: Maybe [Tag]
$sel:tags:CreateSecret' :: CreateSecret -> Maybe [Tag]
tags} -> Maybe [Tag]
tags) (\s :: CreateSecret
s@CreateSecret' {} Maybe [Tag]
a -> CreateSecret
s {$sel:tags:CreateSecret' :: Maybe [Tag]
tags = Maybe [Tag]
a} :: CreateSecret) 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 s t a b. (Coercible s a, Coercible t b) => Iso s t a b
Lens.coerced
createSecret_name :: Lens.Lens' CreateSecret Prelude.Text
createSecret_name :: Lens' CreateSecret Text
createSecret_name = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateSecret' {Text
name :: Text
$sel:name:CreateSecret' :: CreateSecret -> Text
name} -> Text
name) (\s :: CreateSecret
s@CreateSecret' {} Text
a -> CreateSecret
s {$sel:name:CreateSecret' :: Text
name = Text
a} :: CreateSecret)
instance Core.AWSRequest CreateSecret where
type AWSResponse CreateSecret = CreateSecretResponse
request :: (Service -> Service) -> CreateSecret -> Request CreateSecret
request Service -> Service
overrides =
forall a. (ToRequest a, ToJSON a) => Service -> a -> Request a
Request.postJSON (Service -> Service
overrides Service
defaultService)
response :: forall (m :: * -> *).
MonadResource m =>
(ByteStringLazy -> IO ByteStringLazy)
-> Service
-> Proxy CreateSecret
-> ClientResponse ClientBody
-> m (Either Error (ClientResponse (AWSResponse CreateSecret)))
response =
forall (m :: * -> *) a.
MonadResource m =>
(Int -> ResponseHeaders -> Object -> Either String (AWSResponse a))
-> (ByteStringLazy -> IO ByteStringLazy)
-> Service
-> Proxy a
-> ClientResponse ClientBody
-> m (Either Error (ClientResponse (AWSResponse a)))
Response.receiveJSON
( \Int
s ResponseHeaders
h Object
x ->
Maybe Text
-> Maybe Text
-> Maybe [ReplicationStatusType]
-> Maybe Text
-> Int
-> CreateSecretResponse
CreateSecretResponse'
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> (Object
x forall a. FromJSON a => Object -> Key -> Either String (Maybe a)
Data..?> Key
"ARN")
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Either String (Maybe a)
Data..?> Key
"Name")
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> ( Object
x
forall a. FromJSON a => Object -> Key -> Either String (Maybe a)
Data..?> Key
"ReplicationStatus"
forall (f :: * -> *) a. Functor f => f (Maybe a) -> a -> f a
Core..!@ forall a. Monoid a => a
Prelude.mempty
)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Either String (Maybe a)
Data..?> Key
"VersionId")
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 CreateSecret where
hashWithSalt :: Int -> CreateSecret -> Int
hashWithSalt Int
_salt CreateSecret' {Maybe Bool
Maybe [Tag]
Maybe (NonEmpty ReplicaRegionType)
Maybe Text
Maybe (Sensitive Text)
Maybe (Sensitive Base64)
Text
name :: Text
tags :: Maybe [Tag]
secretString :: Maybe (Sensitive Text)
secretBinary :: Maybe (Sensitive Base64)
kmsKeyId :: Maybe Text
forceOverwriteReplicaSecret :: Maybe Bool
description :: Maybe Text
clientRequestToken :: Maybe Text
addReplicaRegions :: Maybe (NonEmpty ReplicaRegionType)
$sel:name:CreateSecret' :: CreateSecret -> Text
$sel:tags:CreateSecret' :: CreateSecret -> Maybe [Tag]
$sel:secretString:CreateSecret' :: CreateSecret -> Maybe (Sensitive Text)
$sel:secretBinary:CreateSecret' :: CreateSecret -> Maybe (Sensitive Base64)
$sel:kmsKeyId:CreateSecret' :: CreateSecret -> Maybe Text
$sel:forceOverwriteReplicaSecret:CreateSecret' :: CreateSecret -> Maybe Bool
$sel:description:CreateSecret' :: CreateSecret -> Maybe Text
$sel:clientRequestToken:CreateSecret' :: CreateSecret -> Maybe Text
$sel:addReplicaRegions:CreateSecret' :: CreateSecret -> Maybe (NonEmpty ReplicaRegionType)
..} =
Int
_salt
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe (NonEmpty ReplicaRegionType)
addReplicaRegions
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
clientRequestToken
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
description
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Bool
forceOverwriteReplicaSecret
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
kmsKeyId
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe (Sensitive Base64)
secretBinary
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe (Sensitive Text)
secretString
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe [Tag]
tags
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
name
instance Prelude.NFData CreateSecret where
rnf :: CreateSecret -> ()
rnf CreateSecret' {Maybe Bool
Maybe [Tag]
Maybe (NonEmpty ReplicaRegionType)
Maybe Text
Maybe (Sensitive Text)
Maybe (Sensitive Base64)
Text
name :: Text
tags :: Maybe [Tag]
secretString :: Maybe (Sensitive Text)
secretBinary :: Maybe (Sensitive Base64)
kmsKeyId :: Maybe Text
forceOverwriteReplicaSecret :: Maybe Bool
description :: Maybe Text
clientRequestToken :: Maybe Text
addReplicaRegions :: Maybe (NonEmpty ReplicaRegionType)
$sel:name:CreateSecret' :: CreateSecret -> Text
$sel:tags:CreateSecret' :: CreateSecret -> Maybe [Tag]
$sel:secretString:CreateSecret' :: CreateSecret -> Maybe (Sensitive Text)
$sel:secretBinary:CreateSecret' :: CreateSecret -> Maybe (Sensitive Base64)
$sel:kmsKeyId:CreateSecret' :: CreateSecret -> Maybe Text
$sel:forceOverwriteReplicaSecret:CreateSecret' :: CreateSecret -> Maybe Bool
$sel:description:CreateSecret' :: CreateSecret -> Maybe Text
$sel:clientRequestToken:CreateSecret' :: CreateSecret -> Maybe Text
$sel:addReplicaRegions:CreateSecret' :: CreateSecret -> Maybe (NonEmpty ReplicaRegionType)
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe (NonEmpty ReplicaRegionType)
addReplicaRegions
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
clientRequestToken
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
description
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Bool
forceOverwriteReplicaSecret
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
kmsKeyId
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe (Sensitive Base64)
secretBinary
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe (Sensitive Text)
secretString
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe [Tag]
tags
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Text
name
instance Data.ToHeaders CreateSecret where
toHeaders :: CreateSecret -> ResponseHeaders
toHeaders =
forall a b. a -> b -> a
Prelude.const
( forall a. Monoid a => [a] -> a
Prelude.mconcat
[ HeaderName
"X-Amz-Target"
forall a. ToHeader a => HeaderName -> a -> ResponseHeaders
Data.=# ( ByteString
"secretsmanager.CreateSecret" ::
Prelude.ByteString
),
HeaderName
"Content-Type"
forall a. ToHeader a => HeaderName -> a -> ResponseHeaders
Data.=# ( ByteString
"application/x-amz-json-1.1" ::
Prelude.ByteString
)
]
)
instance Data.ToJSON CreateSecret where
toJSON :: CreateSecret -> Value
toJSON CreateSecret' {Maybe Bool
Maybe [Tag]
Maybe (NonEmpty ReplicaRegionType)
Maybe Text
Maybe (Sensitive Text)
Maybe (Sensitive Base64)
Text
name :: Text
tags :: Maybe [Tag]
secretString :: Maybe (Sensitive Text)
secretBinary :: Maybe (Sensitive Base64)
kmsKeyId :: Maybe Text
forceOverwriteReplicaSecret :: Maybe Bool
description :: Maybe Text
clientRequestToken :: Maybe Text
addReplicaRegions :: Maybe (NonEmpty ReplicaRegionType)
$sel:name:CreateSecret' :: CreateSecret -> Text
$sel:tags:CreateSecret' :: CreateSecret -> Maybe [Tag]
$sel:secretString:CreateSecret' :: CreateSecret -> Maybe (Sensitive Text)
$sel:secretBinary:CreateSecret' :: CreateSecret -> Maybe (Sensitive Base64)
$sel:kmsKeyId:CreateSecret' :: CreateSecret -> Maybe Text
$sel:forceOverwriteReplicaSecret:CreateSecret' :: CreateSecret -> Maybe Bool
$sel:description:CreateSecret' :: CreateSecret -> Maybe Text
$sel:clientRequestToken:CreateSecret' :: CreateSecret -> Maybe Text
$sel:addReplicaRegions:CreateSecret' :: CreateSecret -> Maybe (NonEmpty ReplicaRegionType)
..} =
[Pair] -> Value
Data.object
( forall a. [Maybe a] -> [a]
Prelude.catMaybes
[ (Key
"AddReplicaRegions" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..=)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe (NonEmpty ReplicaRegionType)
addReplicaRegions,
(Key
"ClientRequestToken" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..=)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe Text
clientRequestToken,
(Key
"Description" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..=) forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe Text
description,
(Key
"ForceOverwriteReplicaSecret" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..=)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe Bool
forceOverwriteReplicaSecret,
(Key
"KmsKeyId" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..=) forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe Text
kmsKeyId,
(Key
"SecretBinary" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..=) forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe (Sensitive Base64)
secretBinary,
(Key
"SecretString" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..=) forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe (Sensitive Text)
secretString,
(Key
"Tags" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..=) forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe [Tag]
tags,
forall a. a -> Maybe a
Prelude.Just (Key
"Name" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..= Text
name)
]
)
instance Data.ToPath CreateSecret where
toPath :: CreateSecret -> ByteString
toPath = forall a b. a -> b -> a
Prelude.const ByteString
"/"
instance Data.ToQuery CreateSecret where
toQuery :: CreateSecret -> QueryString
toQuery = forall a b. a -> b -> a
Prelude.const forall a. Monoid a => a
Prelude.mempty
data CreateSecretResponse = CreateSecretResponse'
{
CreateSecretResponse -> Maybe Text
arn :: Prelude.Maybe Prelude.Text,
CreateSecretResponse -> Maybe Text
name :: Prelude.Maybe Prelude.Text,
CreateSecretResponse -> Maybe [ReplicationStatusType]
replicationStatus :: Prelude.Maybe [ReplicationStatusType],
CreateSecretResponse -> Maybe Text
versionId :: Prelude.Maybe Prelude.Text,
CreateSecretResponse -> Int
httpStatus :: Prelude.Int
}
deriving (CreateSecretResponse -> CreateSecretResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: CreateSecretResponse -> CreateSecretResponse -> Bool
$c/= :: CreateSecretResponse -> CreateSecretResponse -> Bool
== :: CreateSecretResponse -> CreateSecretResponse -> Bool
$c== :: CreateSecretResponse -> CreateSecretResponse -> Bool
Prelude.Eq, ReadPrec [CreateSecretResponse]
ReadPrec CreateSecretResponse
Int -> ReadS CreateSecretResponse
ReadS [CreateSecretResponse]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [CreateSecretResponse]
$creadListPrec :: ReadPrec [CreateSecretResponse]
readPrec :: ReadPrec CreateSecretResponse
$creadPrec :: ReadPrec CreateSecretResponse
readList :: ReadS [CreateSecretResponse]
$creadList :: ReadS [CreateSecretResponse]
readsPrec :: Int -> ReadS CreateSecretResponse
$creadsPrec :: Int -> ReadS CreateSecretResponse
Prelude.Read, Int -> CreateSecretResponse -> ShowS
[CreateSecretResponse] -> ShowS
CreateSecretResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [CreateSecretResponse] -> ShowS
$cshowList :: [CreateSecretResponse] -> ShowS
show :: CreateSecretResponse -> String
$cshow :: CreateSecretResponse -> String
showsPrec :: Int -> CreateSecretResponse -> ShowS
$cshowsPrec :: Int -> CreateSecretResponse -> ShowS
Prelude.Show, forall x. Rep CreateSecretResponse x -> CreateSecretResponse
forall x. CreateSecretResponse -> Rep CreateSecretResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep CreateSecretResponse x -> CreateSecretResponse
$cfrom :: forall x. CreateSecretResponse -> Rep CreateSecretResponse x
Prelude.Generic)
newCreateSecretResponse ::
Prelude.Int ->
CreateSecretResponse
newCreateSecretResponse :: Int -> CreateSecretResponse
newCreateSecretResponse Int
pHttpStatus_ =
CreateSecretResponse'
{ $sel:arn:CreateSecretResponse' :: Maybe Text
arn = forall a. Maybe a
Prelude.Nothing,
$sel:name:CreateSecretResponse' :: Maybe Text
name = forall a. Maybe a
Prelude.Nothing,
$sel:replicationStatus:CreateSecretResponse' :: Maybe [ReplicationStatusType]
replicationStatus = forall a. Maybe a
Prelude.Nothing,
$sel:versionId:CreateSecretResponse' :: Maybe Text
versionId = forall a. Maybe a
Prelude.Nothing,
$sel:httpStatus:CreateSecretResponse' :: Int
httpStatus = Int
pHttpStatus_
}
createSecretResponse_arn :: Lens.Lens' CreateSecretResponse (Prelude.Maybe Prelude.Text)
createSecretResponse_arn :: Lens' CreateSecretResponse (Maybe Text)
createSecretResponse_arn = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateSecretResponse' {Maybe Text
arn :: Maybe Text
$sel:arn:CreateSecretResponse' :: CreateSecretResponse -> Maybe Text
arn} -> Maybe Text
arn) (\s :: CreateSecretResponse
s@CreateSecretResponse' {} Maybe Text
a -> CreateSecretResponse
s {$sel:arn:CreateSecretResponse' :: Maybe Text
arn = Maybe Text
a} :: CreateSecretResponse)
createSecretResponse_name :: Lens.Lens' CreateSecretResponse (Prelude.Maybe Prelude.Text)
createSecretResponse_name :: Lens' CreateSecretResponse (Maybe Text)
createSecretResponse_name = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateSecretResponse' {Maybe Text
name :: Maybe Text
$sel:name:CreateSecretResponse' :: CreateSecretResponse -> Maybe Text
name} -> Maybe Text
name) (\s :: CreateSecretResponse
s@CreateSecretResponse' {} Maybe Text
a -> CreateSecretResponse
s {$sel:name:CreateSecretResponse' :: Maybe Text
name = Maybe Text
a} :: CreateSecretResponse)
createSecretResponse_replicationStatus :: Lens.Lens' CreateSecretResponse (Prelude.Maybe [ReplicationStatusType])
createSecretResponse_replicationStatus :: Lens' CreateSecretResponse (Maybe [ReplicationStatusType])
createSecretResponse_replicationStatus = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateSecretResponse' {Maybe [ReplicationStatusType]
replicationStatus :: Maybe [ReplicationStatusType]
$sel:replicationStatus:CreateSecretResponse' :: CreateSecretResponse -> Maybe [ReplicationStatusType]
replicationStatus} -> Maybe [ReplicationStatusType]
replicationStatus) (\s :: CreateSecretResponse
s@CreateSecretResponse' {} Maybe [ReplicationStatusType]
a -> CreateSecretResponse
s {$sel:replicationStatus:CreateSecretResponse' :: Maybe [ReplicationStatusType]
replicationStatus = Maybe [ReplicationStatusType]
a} :: CreateSecretResponse) 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 s t a b. (Coercible s a, Coercible t b) => Iso s t a b
Lens.coerced
createSecretResponse_versionId :: Lens.Lens' CreateSecretResponse (Prelude.Maybe Prelude.Text)
createSecretResponse_versionId :: Lens' CreateSecretResponse (Maybe Text)
createSecretResponse_versionId = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateSecretResponse' {Maybe Text
versionId :: Maybe Text
$sel:versionId:CreateSecretResponse' :: CreateSecretResponse -> Maybe Text
versionId} -> Maybe Text
versionId) (\s :: CreateSecretResponse
s@CreateSecretResponse' {} Maybe Text
a -> CreateSecretResponse
s {$sel:versionId:CreateSecretResponse' :: Maybe Text
versionId = Maybe Text
a} :: CreateSecretResponse)
createSecretResponse_httpStatus :: Lens.Lens' CreateSecretResponse Prelude.Int
createSecretResponse_httpStatus :: Lens' CreateSecretResponse Int
createSecretResponse_httpStatus = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateSecretResponse' {Int
httpStatus :: Int
$sel:httpStatus:CreateSecretResponse' :: CreateSecretResponse -> Int
httpStatus} -> Int
httpStatus) (\s :: CreateSecretResponse
s@CreateSecretResponse' {} Int
a -> CreateSecretResponse
s {$sel:httpStatus:CreateSecretResponse' :: Int
httpStatus = Int
a} :: CreateSecretResponse)
instance Prelude.NFData CreateSecretResponse where
rnf :: CreateSecretResponse -> ()
rnf CreateSecretResponse' {Int
Maybe [ReplicationStatusType]
Maybe Text
httpStatus :: Int
versionId :: Maybe Text
replicationStatus :: Maybe [ReplicationStatusType]
name :: Maybe Text
arn :: Maybe Text
$sel:httpStatus:CreateSecretResponse' :: CreateSecretResponse -> Int
$sel:versionId:CreateSecretResponse' :: CreateSecretResponse -> Maybe Text
$sel:replicationStatus:CreateSecretResponse' :: CreateSecretResponse -> Maybe [ReplicationStatusType]
$sel:name:CreateSecretResponse' :: CreateSecretResponse -> Maybe Text
$sel:arn:CreateSecretResponse' :: CreateSecretResponse -> Maybe Text
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
arn
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
name
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe [ReplicationStatusType]
replicationStatus
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
versionId
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Int
httpStatus