{-# 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.PutSecretValue
(
PutSecretValue (..),
newPutSecretValue,
putSecretValue_clientRequestToken,
putSecretValue_secretBinary,
putSecretValue_secretString,
putSecretValue_versionStages,
putSecretValue_secretId,
PutSecretValueResponse (..),
newPutSecretValueResponse,
putSecretValueResponse_arn,
putSecretValueResponse_name,
putSecretValueResponse_versionId,
putSecretValueResponse_versionStages,
putSecretValueResponse_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 PutSecretValue = PutSecretValue'
{
PutSecretValue -> Maybe Text
clientRequestToken :: Prelude.Maybe Prelude.Text,
PutSecretValue -> Maybe (Sensitive Base64)
secretBinary :: Prelude.Maybe (Data.Sensitive Data.Base64),
PutSecretValue -> Maybe (Sensitive Text)
secretString :: Prelude.Maybe (Data.Sensitive Prelude.Text),
PutSecretValue -> Maybe (NonEmpty Text)
versionStages :: Prelude.Maybe (Prelude.NonEmpty Prelude.Text),
PutSecretValue -> Text
secretId :: Prelude.Text
}
deriving (PutSecretValue -> PutSecretValue -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: PutSecretValue -> PutSecretValue -> Bool
$c/= :: PutSecretValue -> PutSecretValue -> Bool
== :: PutSecretValue -> PutSecretValue -> Bool
$c== :: PutSecretValue -> PutSecretValue -> Bool
Prelude.Eq, Int -> PutSecretValue -> ShowS
[PutSecretValue] -> ShowS
PutSecretValue -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [PutSecretValue] -> ShowS
$cshowList :: [PutSecretValue] -> ShowS
show :: PutSecretValue -> String
$cshow :: PutSecretValue -> String
showsPrec :: Int -> PutSecretValue -> ShowS
$cshowsPrec :: Int -> PutSecretValue -> ShowS
Prelude.Show, forall x. Rep PutSecretValue x -> PutSecretValue
forall x. PutSecretValue -> Rep PutSecretValue x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep PutSecretValue x -> PutSecretValue
$cfrom :: forall x. PutSecretValue -> Rep PutSecretValue x
Prelude.Generic)
newPutSecretValue ::
Prelude.Text ->
PutSecretValue
newPutSecretValue :: Text -> PutSecretValue
newPutSecretValue Text
pSecretId_ =
PutSecretValue'
{ $sel:clientRequestToken:PutSecretValue' :: Maybe Text
clientRequestToken =
forall a. Maybe a
Prelude.Nothing,
$sel:secretBinary:PutSecretValue' :: Maybe (Sensitive Base64)
secretBinary = forall a. Maybe a
Prelude.Nothing,
$sel:secretString:PutSecretValue' :: Maybe (Sensitive Text)
secretString = forall a. Maybe a
Prelude.Nothing,
$sel:versionStages:PutSecretValue' :: Maybe (NonEmpty Text)
versionStages = forall a. Maybe a
Prelude.Nothing,
$sel:secretId:PutSecretValue' :: Text
secretId = Text
pSecretId_
}
putSecretValue_clientRequestToken :: Lens.Lens' PutSecretValue (Prelude.Maybe Prelude.Text)
putSecretValue_clientRequestToken :: Lens' PutSecretValue (Maybe Text)
putSecretValue_clientRequestToken = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\PutSecretValue' {Maybe Text
clientRequestToken :: Maybe Text
$sel:clientRequestToken:PutSecretValue' :: PutSecretValue -> Maybe Text
clientRequestToken} -> Maybe Text
clientRequestToken) (\s :: PutSecretValue
s@PutSecretValue' {} Maybe Text
a -> PutSecretValue
s {$sel:clientRequestToken:PutSecretValue' :: Maybe Text
clientRequestToken = Maybe Text
a} :: PutSecretValue)
putSecretValue_secretBinary :: Lens.Lens' PutSecretValue (Prelude.Maybe Prelude.ByteString)
putSecretValue_secretBinary :: Lens' PutSecretValue (Maybe ByteString)
putSecretValue_secretBinary = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\PutSecretValue' {Maybe (Sensitive Base64)
secretBinary :: Maybe (Sensitive Base64)
$sel:secretBinary:PutSecretValue' :: PutSecretValue -> Maybe (Sensitive Base64)
secretBinary} -> Maybe (Sensitive Base64)
secretBinary) (\s :: PutSecretValue
s@PutSecretValue' {} Maybe (Sensitive Base64)
a -> PutSecretValue
s {$sel:secretBinary:PutSecretValue' :: Maybe (Sensitive Base64)
secretBinary = Maybe (Sensitive Base64)
a} :: PutSecretValue) 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)
putSecretValue_secretString :: Lens.Lens' PutSecretValue (Prelude.Maybe Prelude.Text)
putSecretValue_secretString :: Lens' PutSecretValue (Maybe Text)
putSecretValue_secretString = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\PutSecretValue' {Maybe (Sensitive Text)
secretString :: Maybe (Sensitive Text)
$sel:secretString:PutSecretValue' :: PutSecretValue -> Maybe (Sensitive Text)
secretString} -> Maybe (Sensitive Text)
secretString) (\s :: PutSecretValue
s@PutSecretValue' {} Maybe (Sensitive Text)
a -> PutSecretValue
s {$sel:secretString:PutSecretValue' :: Maybe (Sensitive Text)
secretString = Maybe (Sensitive Text)
a} :: PutSecretValue) 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
putSecretValue_versionStages :: Lens.Lens' PutSecretValue (Prelude.Maybe (Prelude.NonEmpty Prelude.Text))
putSecretValue_versionStages :: Lens' PutSecretValue (Maybe (NonEmpty Text))
putSecretValue_versionStages = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\PutSecretValue' {Maybe (NonEmpty Text)
versionStages :: Maybe (NonEmpty Text)
$sel:versionStages:PutSecretValue' :: PutSecretValue -> Maybe (NonEmpty Text)
versionStages} -> Maybe (NonEmpty Text)
versionStages) (\s :: PutSecretValue
s@PutSecretValue' {} Maybe (NonEmpty Text)
a -> PutSecretValue
s {$sel:versionStages:PutSecretValue' :: Maybe (NonEmpty Text)
versionStages = Maybe (NonEmpty Text)
a} :: PutSecretValue) 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
putSecretValue_secretId :: Lens.Lens' PutSecretValue Prelude.Text
putSecretValue_secretId :: Lens' PutSecretValue Text
putSecretValue_secretId = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\PutSecretValue' {Text
secretId :: Text
$sel:secretId:PutSecretValue' :: PutSecretValue -> Text
secretId} -> Text
secretId) (\s :: PutSecretValue
s@PutSecretValue' {} Text
a -> PutSecretValue
s {$sel:secretId:PutSecretValue' :: Text
secretId = Text
a} :: PutSecretValue)
instance Core.AWSRequest PutSecretValue where
type
AWSResponse PutSecretValue =
PutSecretValueResponse
request :: (Service -> Service) -> PutSecretValue -> Request PutSecretValue
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 PutSecretValue
-> ClientResponse ClientBody
-> m (Either Error (ClientResponse (AWSResponse PutSecretValue)))
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 Text
-> Maybe (NonEmpty Text)
-> Int
-> PutSecretValueResponse
PutSecretValueResponse'
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
"VersionId")
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
"VersionStages")
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 PutSecretValue where
hashWithSalt :: Int -> PutSecretValue -> Int
hashWithSalt Int
_salt PutSecretValue' {Maybe (NonEmpty Text)
Maybe Text
Maybe (Sensitive Text)
Maybe (Sensitive Base64)
Text
secretId :: Text
versionStages :: Maybe (NonEmpty Text)
secretString :: Maybe (Sensitive Text)
secretBinary :: Maybe (Sensitive Base64)
clientRequestToken :: Maybe Text
$sel:secretId:PutSecretValue' :: PutSecretValue -> Text
$sel:versionStages:PutSecretValue' :: PutSecretValue -> Maybe (NonEmpty Text)
$sel:secretString:PutSecretValue' :: PutSecretValue -> Maybe (Sensitive Text)
$sel:secretBinary:PutSecretValue' :: PutSecretValue -> Maybe (Sensitive Base64)
$sel:clientRequestToken:PutSecretValue' :: PutSecretValue -> Maybe Text
..} =
Int
_salt
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
clientRequestToken
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 (NonEmpty Text)
versionStages
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
secretId
instance Prelude.NFData PutSecretValue where
rnf :: PutSecretValue -> ()
rnf PutSecretValue' {Maybe (NonEmpty Text)
Maybe Text
Maybe (Sensitive Text)
Maybe (Sensitive Base64)
Text
secretId :: Text
versionStages :: Maybe (NonEmpty Text)
secretString :: Maybe (Sensitive Text)
secretBinary :: Maybe (Sensitive Base64)
clientRequestToken :: Maybe Text
$sel:secretId:PutSecretValue' :: PutSecretValue -> Text
$sel:versionStages:PutSecretValue' :: PutSecretValue -> Maybe (NonEmpty Text)
$sel:secretString:PutSecretValue' :: PutSecretValue -> Maybe (Sensitive Text)
$sel:secretBinary:PutSecretValue' :: PutSecretValue -> Maybe (Sensitive Base64)
$sel:clientRequestToken:PutSecretValue' :: PutSecretValue -> Maybe Text
..} =
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 (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 (NonEmpty Text)
versionStages
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Text
secretId
instance Data.ToHeaders PutSecretValue where
toHeaders :: PutSecretValue -> 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.PutSecretValue" ::
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 PutSecretValue where
toJSON :: PutSecretValue -> Value
toJSON PutSecretValue' {Maybe (NonEmpty Text)
Maybe Text
Maybe (Sensitive Text)
Maybe (Sensitive Base64)
Text
secretId :: Text
versionStages :: Maybe (NonEmpty Text)
secretString :: Maybe (Sensitive Text)
secretBinary :: Maybe (Sensitive Base64)
clientRequestToken :: Maybe Text
$sel:secretId:PutSecretValue' :: PutSecretValue -> Text
$sel:versionStages:PutSecretValue' :: PutSecretValue -> Maybe (NonEmpty Text)
$sel:secretString:PutSecretValue' :: PutSecretValue -> Maybe (Sensitive Text)
$sel:secretBinary:PutSecretValue' :: PutSecretValue -> Maybe (Sensitive Base64)
$sel:clientRequestToken:PutSecretValue' :: PutSecretValue -> Maybe Text
..} =
[Pair] -> Value
Data.object
( forall a. [Maybe a] -> [a]
Prelude.catMaybes
[ (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
"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
"VersionStages" 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 Text)
versionStages,
forall a. a -> Maybe a
Prelude.Just (Key
"SecretId" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..= Text
secretId)
]
)
instance Data.ToPath PutSecretValue where
toPath :: PutSecretValue -> ByteString
toPath = forall a b. a -> b -> a
Prelude.const ByteString
"/"
instance Data.ToQuery PutSecretValue where
toQuery :: PutSecretValue -> QueryString
toQuery = forall a b. a -> b -> a
Prelude.const forall a. Monoid a => a
Prelude.mempty
data PutSecretValueResponse = PutSecretValueResponse'
{
PutSecretValueResponse -> Maybe Text
arn :: Prelude.Maybe Prelude.Text,
PutSecretValueResponse -> Maybe Text
name :: Prelude.Maybe Prelude.Text,
PutSecretValueResponse -> Maybe Text
versionId :: Prelude.Maybe Prelude.Text,
PutSecretValueResponse -> Maybe (NonEmpty Text)
versionStages :: Prelude.Maybe (Prelude.NonEmpty Prelude.Text),
PutSecretValueResponse -> Int
httpStatus :: Prelude.Int
}
deriving (PutSecretValueResponse -> PutSecretValueResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: PutSecretValueResponse -> PutSecretValueResponse -> Bool
$c/= :: PutSecretValueResponse -> PutSecretValueResponse -> Bool
== :: PutSecretValueResponse -> PutSecretValueResponse -> Bool
$c== :: PutSecretValueResponse -> PutSecretValueResponse -> Bool
Prelude.Eq, ReadPrec [PutSecretValueResponse]
ReadPrec PutSecretValueResponse
Int -> ReadS PutSecretValueResponse
ReadS [PutSecretValueResponse]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [PutSecretValueResponse]
$creadListPrec :: ReadPrec [PutSecretValueResponse]
readPrec :: ReadPrec PutSecretValueResponse
$creadPrec :: ReadPrec PutSecretValueResponse
readList :: ReadS [PutSecretValueResponse]
$creadList :: ReadS [PutSecretValueResponse]
readsPrec :: Int -> ReadS PutSecretValueResponse
$creadsPrec :: Int -> ReadS PutSecretValueResponse
Prelude.Read, Int -> PutSecretValueResponse -> ShowS
[PutSecretValueResponse] -> ShowS
PutSecretValueResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [PutSecretValueResponse] -> ShowS
$cshowList :: [PutSecretValueResponse] -> ShowS
show :: PutSecretValueResponse -> String
$cshow :: PutSecretValueResponse -> String
showsPrec :: Int -> PutSecretValueResponse -> ShowS
$cshowsPrec :: Int -> PutSecretValueResponse -> ShowS
Prelude.Show, forall x. Rep PutSecretValueResponse x -> PutSecretValueResponse
forall x. PutSecretValueResponse -> Rep PutSecretValueResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep PutSecretValueResponse x -> PutSecretValueResponse
$cfrom :: forall x. PutSecretValueResponse -> Rep PutSecretValueResponse x
Prelude.Generic)
newPutSecretValueResponse ::
Prelude.Int ->
PutSecretValueResponse
newPutSecretValueResponse :: Int -> PutSecretValueResponse
newPutSecretValueResponse Int
pHttpStatus_ =
PutSecretValueResponse'
{ $sel:arn:PutSecretValueResponse' :: Maybe Text
arn = forall a. Maybe a
Prelude.Nothing,
$sel:name:PutSecretValueResponse' :: Maybe Text
name = forall a. Maybe a
Prelude.Nothing,
$sel:versionId:PutSecretValueResponse' :: Maybe Text
versionId = forall a. Maybe a
Prelude.Nothing,
$sel:versionStages:PutSecretValueResponse' :: Maybe (NonEmpty Text)
versionStages = forall a. Maybe a
Prelude.Nothing,
$sel:httpStatus:PutSecretValueResponse' :: Int
httpStatus = Int
pHttpStatus_
}
putSecretValueResponse_arn :: Lens.Lens' PutSecretValueResponse (Prelude.Maybe Prelude.Text)
putSecretValueResponse_arn :: Lens' PutSecretValueResponse (Maybe Text)
putSecretValueResponse_arn = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\PutSecretValueResponse' {Maybe Text
arn :: Maybe Text
$sel:arn:PutSecretValueResponse' :: PutSecretValueResponse -> Maybe Text
arn} -> Maybe Text
arn) (\s :: PutSecretValueResponse
s@PutSecretValueResponse' {} Maybe Text
a -> PutSecretValueResponse
s {$sel:arn:PutSecretValueResponse' :: Maybe Text
arn = Maybe Text
a} :: PutSecretValueResponse)
putSecretValueResponse_name :: Lens.Lens' PutSecretValueResponse (Prelude.Maybe Prelude.Text)
putSecretValueResponse_name :: Lens' PutSecretValueResponse (Maybe Text)
putSecretValueResponse_name = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\PutSecretValueResponse' {Maybe Text
name :: Maybe Text
$sel:name:PutSecretValueResponse' :: PutSecretValueResponse -> Maybe Text
name} -> Maybe Text
name) (\s :: PutSecretValueResponse
s@PutSecretValueResponse' {} Maybe Text
a -> PutSecretValueResponse
s {$sel:name:PutSecretValueResponse' :: Maybe Text
name = Maybe Text
a} :: PutSecretValueResponse)
putSecretValueResponse_versionId :: Lens.Lens' PutSecretValueResponse (Prelude.Maybe Prelude.Text)
putSecretValueResponse_versionId :: Lens' PutSecretValueResponse (Maybe Text)
putSecretValueResponse_versionId = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\PutSecretValueResponse' {Maybe Text
versionId :: Maybe Text
$sel:versionId:PutSecretValueResponse' :: PutSecretValueResponse -> Maybe Text
versionId} -> Maybe Text
versionId) (\s :: PutSecretValueResponse
s@PutSecretValueResponse' {} Maybe Text
a -> PutSecretValueResponse
s {$sel:versionId:PutSecretValueResponse' :: Maybe Text
versionId = Maybe Text
a} :: PutSecretValueResponse)
putSecretValueResponse_versionStages :: Lens.Lens' PutSecretValueResponse (Prelude.Maybe (Prelude.NonEmpty Prelude.Text))
putSecretValueResponse_versionStages :: Lens' PutSecretValueResponse (Maybe (NonEmpty Text))
putSecretValueResponse_versionStages = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\PutSecretValueResponse' {Maybe (NonEmpty Text)
versionStages :: Maybe (NonEmpty Text)
$sel:versionStages:PutSecretValueResponse' :: PutSecretValueResponse -> Maybe (NonEmpty Text)
versionStages} -> Maybe (NonEmpty Text)
versionStages) (\s :: PutSecretValueResponse
s@PutSecretValueResponse' {} Maybe (NonEmpty Text)
a -> PutSecretValueResponse
s {$sel:versionStages:PutSecretValueResponse' :: Maybe (NonEmpty Text)
versionStages = Maybe (NonEmpty Text)
a} :: PutSecretValueResponse) 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
putSecretValueResponse_httpStatus :: Lens.Lens' PutSecretValueResponse Prelude.Int
putSecretValueResponse_httpStatus :: Lens' PutSecretValueResponse Int
putSecretValueResponse_httpStatus = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\PutSecretValueResponse' {Int
httpStatus :: Int
$sel:httpStatus:PutSecretValueResponse' :: PutSecretValueResponse -> Int
httpStatus} -> Int
httpStatus) (\s :: PutSecretValueResponse
s@PutSecretValueResponse' {} Int
a -> PutSecretValueResponse
s {$sel:httpStatus:PutSecretValueResponse' :: Int
httpStatus = Int
a} :: PutSecretValueResponse)
instance Prelude.NFData PutSecretValueResponse where
rnf :: PutSecretValueResponse -> ()
rnf PutSecretValueResponse' {Int
Maybe (NonEmpty Text)
Maybe Text
httpStatus :: Int
versionStages :: Maybe (NonEmpty Text)
versionId :: Maybe Text
name :: Maybe Text
arn :: Maybe Text
$sel:httpStatus:PutSecretValueResponse' :: PutSecretValueResponse -> Int
$sel:versionStages:PutSecretValueResponse' :: PutSecretValueResponse -> Maybe (NonEmpty Text)
$sel:versionId:PutSecretValueResponse' :: PutSecretValueResponse -> Maybe Text
$sel:name:PutSecretValueResponse' :: PutSecretValueResponse -> Maybe Text
$sel:arn:PutSecretValueResponse' :: PutSecretValueResponse -> 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 Text
versionId
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe (NonEmpty Text)
versionStages
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Int
httpStatus