{-# 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.KMS.UpdateCustomKeyStore
(
UpdateCustomKeyStore (..),
newUpdateCustomKeyStore,
updateCustomKeyStore_cloudHsmClusterId,
updateCustomKeyStore_keyStorePassword,
updateCustomKeyStore_newCustomKeyStoreName,
updateCustomKeyStore_xksProxyAuthenticationCredential,
updateCustomKeyStore_xksProxyConnectivity,
updateCustomKeyStore_xksProxyUriEndpoint,
updateCustomKeyStore_xksProxyUriPath,
updateCustomKeyStore_xksProxyVpcEndpointServiceName,
updateCustomKeyStore_customKeyStoreId,
UpdateCustomKeyStoreResponse (..),
newUpdateCustomKeyStoreResponse,
updateCustomKeyStoreResponse_httpStatus,
)
where
import qualified Amazonka.Core as Core
import qualified Amazonka.Core.Lens.Internal as Lens
import qualified Amazonka.Data as Data
import Amazonka.KMS.Types
import qualified Amazonka.Prelude as Prelude
import qualified Amazonka.Request as Request
import qualified Amazonka.Response as Response
data UpdateCustomKeyStore = UpdateCustomKeyStore'
{
UpdateCustomKeyStore -> Maybe Text
cloudHsmClusterId :: Prelude.Maybe Prelude.Text,
UpdateCustomKeyStore -> Maybe (Sensitive Text)
keyStorePassword :: Prelude.Maybe (Data.Sensitive Prelude.Text),
UpdateCustomKeyStore -> Maybe Text
newCustomKeyStoreName' :: Prelude.Maybe Prelude.Text,
UpdateCustomKeyStore -> Maybe XksProxyAuthenticationCredentialType
xksProxyAuthenticationCredential :: Prelude.Maybe XksProxyAuthenticationCredentialType,
UpdateCustomKeyStore -> Maybe XksProxyConnectivityType
xksProxyConnectivity :: Prelude.Maybe XksProxyConnectivityType,
UpdateCustomKeyStore -> Maybe Text
xksProxyUriEndpoint :: Prelude.Maybe Prelude.Text,
UpdateCustomKeyStore -> Maybe Text
xksProxyUriPath :: Prelude.Maybe Prelude.Text,
UpdateCustomKeyStore -> Maybe Text
xksProxyVpcEndpointServiceName :: Prelude.Maybe Prelude.Text,
UpdateCustomKeyStore -> Text
customKeyStoreId :: Prelude.Text
}
deriving (UpdateCustomKeyStore -> UpdateCustomKeyStore -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: UpdateCustomKeyStore -> UpdateCustomKeyStore -> Bool
$c/= :: UpdateCustomKeyStore -> UpdateCustomKeyStore -> Bool
== :: UpdateCustomKeyStore -> UpdateCustomKeyStore -> Bool
$c== :: UpdateCustomKeyStore -> UpdateCustomKeyStore -> Bool
Prelude.Eq, Int -> UpdateCustomKeyStore -> ShowS
[UpdateCustomKeyStore] -> ShowS
UpdateCustomKeyStore -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [UpdateCustomKeyStore] -> ShowS
$cshowList :: [UpdateCustomKeyStore] -> ShowS
show :: UpdateCustomKeyStore -> String
$cshow :: UpdateCustomKeyStore -> String
showsPrec :: Int -> UpdateCustomKeyStore -> ShowS
$cshowsPrec :: Int -> UpdateCustomKeyStore -> ShowS
Prelude.Show, forall x. Rep UpdateCustomKeyStore x -> UpdateCustomKeyStore
forall x. UpdateCustomKeyStore -> Rep UpdateCustomKeyStore x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep UpdateCustomKeyStore x -> UpdateCustomKeyStore
$cfrom :: forall x. UpdateCustomKeyStore -> Rep UpdateCustomKeyStore x
Prelude.Generic)
newUpdateCustomKeyStore ::
Prelude.Text ->
UpdateCustomKeyStore
newUpdateCustomKeyStore :: Text -> UpdateCustomKeyStore
newUpdateCustomKeyStore Text
pCustomKeyStoreId_ =
UpdateCustomKeyStore'
{ $sel:cloudHsmClusterId:UpdateCustomKeyStore' :: Maybe Text
cloudHsmClusterId =
forall a. Maybe a
Prelude.Nothing,
$sel:keyStorePassword:UpdateCustomKeyStore' :: Maybe (Sensitive Text)
keyStorePassword = forall a. Maybe a
Prelude.Nothing,
$sel:newCustomKeyStoreName':UpdateCustomKeyStore' :: Maybe Text
newCustomKeyStoreName' = forall a. Maybe a
Prelude.Nothing,
$sel:xksProxyAuthenticationCredential:UpdateCustomKeyStore' :: Maybe XksProxyAuthenticationCredentialType
xksProxyAuthenticationCredential = forall a. Maybe a
Prelude.Nothing,
$sel:xksProxyConnectivity:UpdateCustomKeyStore' :: Maybe XksProxyConnectivityType
xksProxyConnectivity = forall a. Maybe a
Prelude.Nothing,
$sel:xksProxyUriEndpoint:UpdateCustomKeyStore' :: Maybe Text
xksProxyUriEndpoint = forall a. Maybe a
Prelude.Nothing,
$sel:xksProxyUriPath:UpdateCustomKeyStore' :: Maybe Text
xksProxyUriPath = forall a. Maybe a
Prelude.Nothing,
$sel:xksProxyVpcEndpointServiceName:UpdateCustomKeyStore' :: Maybe Text
xksProxyVpcEndpointServiceName = forall a. Maybe a
Prelude.Nothing,
$sel:customKeyStoreId:UpdateCustomKeyStore' :: Text
customKeyStoreId = Text
pCustomKeyStoreId_
}
updateCustomKeyStore_cloudHsmClusterId :: Lens.Lens' UpdateCustomKeyStore (Prelude.Maybe Prelude.Text)
updateCustomKeyStore_cloudHsmClusterId :: Lens' UpdateCustomKeyStore (Maybe Text)
updateCustomKeyStore_cloudHsmClusterId = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\UpdateCustomKeyStore' {Maybe Text
cloudHsmClusterId :: Maybe Text
$sel:cloudHsmClusterId:UpdateCustomKeyStore' :: UpdateCustomKeyStore -> Maybe Text
cloudHsmClusterId} -> Maybe Text
cloudHsmClusterId) (\s :: UpdateCustomKeyStore
s@UpdateCustomKeyStore' {} Maybe Text
a -> UpdateCustomKeyStore
s {$sel:cloudHsmClusterId:UpdateCustomKeyStore' :: Maybe Text
cloudHsmClusterId = Maybe Text
a} :: UpdateCustomKeyStore)
updateCustomKeyStore_keyStorePassword :: Lens.Lens' UpdateCustomKeyStore (Prelude.Maybe Prelude.Text)
updateCustomKeyStore_keyStorePassword :: Lens' UpdateCustomKeyStore (Maybe Text)
updateCustomKeyStore_keyStorePassword = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\UpdateCustomKeyStore' {Maybe (Sensitive Text)
keyStorePassword :: Maybe (Sensitive Text)
$sel:keyStorePassword:UpdateCustomKeyStore' :: UpdateCustomKeyStore -> Maybe (Sensitive Text)
keyStorePassword} -> Maybe (Sensitive Text)
keyStorePassword) (\s :: UpdateCustomKeyStore
s@UpdateCustomKeyStore' {} Maybe (Sensitive Text)
a -> UpdateCustomKeyStore
s {$sel:keyStorePassword:UpdateCustomKeyStore' :: Maybe (Sensitive Text)
keyStorePassword = Maybe (Sensitive Text)
a} :: UpdateCustomKeyStore) 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
updateCustomKeyStore_newCustomKeyStoreName :: Lens.Lens' UpdateCustomKeyStore (Prelude.Maybe Prelude.Text)
updateCustomKeyStore_newCustomKeyStoreName :: Lens' UpdateCustomKeyStore (Maybe Text)
updateCustomKeyStore_newCustomKeyStoreName = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\UpdateCustomKeyStore' {Maybe Text
newCustomKeyStoreName' :: Maybe Text
$sel:newCustomKeyStoreName':UpdateCustomKeyStore' :: UpdateCustomKeyStore -> Maybe Text
newCustomKeyStoreName'} -> Maybe Text
newCustomKeyStoreName') (\s :: UpdateCustomKeyStore
s@UpdateCustomKeyStore' {} Maybe Text
a -> UpdateCustomKeyStore
s {$sel:newCustomKeyStoreName':UpdateCustomKeyStore' :: Maybe Text
newCustomKeyStoreName' = Maybe Text
a} :: UpdateCustomKeyStore)
updateCustomKeyStore_xksProxyAuthenticationCredential :: Lens.Lens' UpdateCustomKeyStore (Prelude.Maybe XksProxyAuthenticationCredentialType)
updateCustomKeyStore_xksProxyAuthenticationCredential :: Lens'
UpdateCustomKeyStore (Maybe XksProxyAuthenticationCredentialType)
updateCustomKeyStore_xksProxyAuthenticationCredential = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\UpdateCustomKeyStore' {Maybe XksProxyAuthenticationCredentialType
xksProxyAuthenticationCredential :: Maybe XksProxyAuthenticationCredentialType
$sel:xksProxyAuthenticationCredential:UpdateCustomKeyStore' :: UpdateCustomKeyStore -> Maybe XksProxyAuthenticationCredentialType
xksProxyAuthenticationCredential} -> Maybe XksProxyAuthenticationCredentialType
xksProxyAuthenticationCredential) (\s :: UpdateCustomKeyStore
s@UpdateCustomKeyStore' {} Maybe XksProxyAuthenticationCredentialType
a -> UpdateCustomKeyStore
s {$sel:xksProxyAuthenticationCredential:UpdateCustomKeyStore' :: Maybe XksProxyAuthenticationCredentialType
xksProxyAuthenticationCredential = Maybe XksProxyAuthenticationCredentialType
a} :: UpdateCustomKeyStore)
updateCustomKeyStore_xksProxyConnectivity :: Lens.Lens' UpdateCustomKeyStore (Prelude.Maybe XksProxyConnectivityType)
updateCustomKeyStore_xksProxyConnectivity :: Lens' UpdateCustomKeyStore (Maybe XksProxyConnectivityType)
updateCustomKeyStore_xksProxyConnectivity = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\UpdateCustomKeyStore' {Maybe XksProxyConnectivityType
xksProxyConnectivity :: Maybe XksProxyConnectivityType
$sel:xksProxyConnectivity:UpdateCustomKeyStore' :: UpdateCustomKeyStore -> Maybe XksProxyConnectivityType
xksProxyConnectivity} -> Maybe XksProxyConnectivityType
xksProxyConnectivity) (\s :: UpdateCustomKeyStore
s@UpdateCustomKeyStore' {} Maybe XksProxyConnectivityType
a -> UpdateCustomKeyStore
s {$sel:xksProxyConnectivity:UpdateCustomKeyStore' :: Maybe XksProxyConnectivityType
xksProxyConnectivity = Maybe XksProxyConnectivityType
a} :: UpdateCustomKeyStore)
updateCustomKeyStore_xksProxyUriEndpoint :: Lens.Lens' UpdateCustomKeyStore (Prelude.Maybe Prelude.Text)
updateCustomKeyStore_xksProxyUriEndpoint :: Lens' UpdateCustomKeyStore (Maybe Text)
updateCustomKeyStore_xksProxyUriEndpoint = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\UpdateCustomKeyStore' {Maybe Text
xksProxyUriEndpoint :: Maybe Text
$sel:xksProxyUriEndpoint:UpdateCustomKeyStore' :: UpdateCustomKeyStore -> Maybe Text
xksProxyUriEndpoint} -> Maybe Text
xksProxyUriEndpoint) (\s :: UpdateCustomKeyStore
s@UpdateCustomKeyStore' {} Maybe Text
a -> UpdateCustomKeyStore
s {$sel:xksProxyUriEndpoint:UpdateCustomKeyStore' :: Maybe Text
xksProxyUriEndpoint = Maybe Text
a} :: UpdateCustomKeyStore)
updateCustomKeyStore_xksProxyUriPath :: Lens.Lens' UpdateCustomKeyStore (Prelude.Maybe Prelude.Text)
updateCustomKeyStore_xksProxyUriPath :: Lens' UpdateCustomKeyStore (Maybe Text)
updateCustomKeyStore_xksProxyUriPath = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\UpdateCustomKeyStore' {Maybe Text
xksProxyUriPath :: Maybe Text
$sel:xksProxyUriPath:UpdateCustomKeyStore' :: UpdateCustomKeyStore -> Maybe Text
xksProxyUriPath} -> Maybe Text
xksProxyUriPath) (\s :: UpdateCustomKeyStore
s@UpdateCustomKeyStore' {} Maybe Text
a -> UpdateCustomKeyStore
s {$sel:xksProxyUriPath:UpdateCustomKeyStore' :: Maybe Text
xksProxyUriPath = Maybe Text
a} :: UpdateCustomKeyStore)
updateCustomKeyStore_xksProxyVpcEndpointServiceName :: Lens.Lens' UpdateCustomKeyStore (Prelude.Maybe Prelude.Text)
updateCustomKeyStore_xksProxyVpcEndpointServiceName :: Lens' UpdateCustomKeyStore (Maybe Text)
updateCustomKeyStore_xksProxyVpcEndpointServiceName = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\UpdateCustomKeyStore' {Maybe Text
xksProxyVpcEndpointServiceName :: Maybe Text
$sel:xksProxyVpcEndpointServiceName:UpdateCustomKeyStore' :: UpdateCustomKeyStore -> Maybe Text
xksProxyVpcEndpointServiceName} -> Maybe Text
xksProxyVpcEndpointServiceName) (\s :: UpdateCustomKeyStore
s@UpdateCustomKeyStore' {} Maybe Text
a -> UpdateCustomKeyStore
s {$sel:xksProxyVpcEndpointServiceName:UpdateCustomKeyStore' :: Maybe Text
xksProxyVpcEndpointServiceName = Maybe Text
a} :: UpdateCustomKeyStore)
updateCustomKeyStore_customKeyStoreId :: Lens.Lens' UpdateCustomKeyStore Prelude.Text
updateCustomKeyStore_customKeyStoreId :: Lens' UpdateCustomKeyStore Text
updateCustomKeyStore_customKeyStoreId = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\UpdateCustomKeyStore' {Text
customKeyStoreId :: Text
$sel:customKeyStoreId:UpdateCustomKeyStore' :: UpdateCustomKeyStore -> Text
customKeyStoreId} -> Text
customKeyStoreId) (\s :: UpdateCustomKeyStore
s@UpdateCustomKeyStore' {} Text
a -> UpdateCustomKeyStore
s {$sel:customKeyStoreId:UpdateCustomKeyStore' :: Text
customKeyStoreId = Text
a} :: UpdateCustomKeyStore)
instance Core.AWSRequest UpdateCustomKeyStore where
type
AWSResponse UpdateCustomKeyStore =
UpdateCustomKeyStoreResponse
request :: (Service -> Service)
-> UpdateCustomKeyStore -> Request UpdateCustomKeyStore
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 UpdateCustomKeyStore
-> ClientResponse ClientBody
-> m (Either
Error (ClientResponse (AWSResponse UpdateCustomKeyStore)))
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 ->
Int -> UpdateCustomKeyStoreResponse
UpdateCustomKeyStoreResponse'
forall (f :: * -> *) a b. Functor 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 UpdateCustomKeyStore where
hashWithSalt :: Int -> UpdateCustomKeyStore -> Int
hashWithSalt Int
_salt UpdateCustomKeyStore' {Maybe Text
Maybe (Sensitive Text)
Maybe XksProxyAuthenticationCredentialType
Maybe XksProxyConnectivityType
Text
customKeyStoreId :: Text
xksProxyVpcEndpointServiceName :: Maybe Text
xksProxyUriPath :: Maybe Text
xksProxyUriEndpoint :: Maybe Text
xksProxyConnectivity :: Maybe XksProxyConnectivityType
xksProxyAuthenticationCredential :: Maybe XksProxyAuthenticationCredentialType
newCustomKeyStoreName' :: Maybe Text
keyStorePassword :: Maybe (Sensitive Text)
cloudHsmClusterId :: Maybe Text
$sel:customKeyStoreId:UpdateCustomKeyStore' :: UpdateCustomKeyStore -> Text
$sel:xksProxyVpcEndpointServiceName:UpdateCustomKeyStore' :: UpdateCustomKeyStore -> Maybe Text
$sel:xksProxyUriPath:UpdateCustomKeyStore' :: UpdateCustomKeyStore -> Maybe Text
$sel:xksProxyUriEndpoint:UpdateCustomKeyStore' :: UpdateCustomKeyStore -> Maybe Text
$sel:xksProxyConnectivity:UpdateCustomKeyStore' :: UpdateCustomKeyStore -> Maybe XksProxyConnectivityType
$sel:xksProxyAuthenticationCredential:UpdateCustomKeyStore' :: UpdateCustomKeyStore -> Maybe XksProxyAuthenticationCredentialType
$sel:newCustomKeyStoreName':UpdateCustomKeyStore' :: UpdateCustomKeyStore -> Maybe Text
$sel:keyStorePassword:UpdateCustomKeyStore' :: UpdateCustomKeyStore -> Maybe (Sensitive Text)
$sel:cloudHsmClusterId:UpdateCustomKeyStore' :: UpdateCustomKeyStore -> Maybe Text
..} =
Int
_salt
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
cloudHsmClusterId
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe (Sensitive Text)
keyStorePassword
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
newCustomKeyStoreName'
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe XksProxyAuthenticationCredentialType
xksProxyAuthenticationCredential
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe XksProxyConnectivityType
xksProxyConnectivity
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
xksProxyUriEndpoint
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
xksProxyUriPath
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
xksProxyVpcEndpointServiceName
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
customKeyStoreId
instance Prelude.NFData UpdateCustomKeyStore where
rnf :: UpdateCustomKeyStore -> ()
rnf UpdateCustomKeyStore' {Maybe Text
Maybe (Sensitive Text)
Maybe XksProxyAuthenticationCredentialType
Maybe XksProxyConnectivityType
Text
customKeyStoreId :: Text
xksProxyVpcEndpointServiceName :: Maybe Text
xksProxyUriPath :: Maybe Text
xksProxyUriEndpoint :: Maybe Text
xksProxyConnectivity :: Maybe XksProxyConnectivityType
xksProxyAuthenticationCredential :: Maybe XksProxyAuthenticationCredentialType
newCustomKeyStoreName' :: Maybe Text
keyStorePassword :: Maybe (Sensitive Text)
cloudHsmClusterId :: Maybe Text
$sel:customKeyStoreId:UpdateCustomKeyStore' :: UpdateCustomKeyStore -> Text
$sel:xksProxyVpcEndpointServiceName:UpdateCustomKeyStore' :: UpdateCustomKeyStore -> Maybe Text
$sel:xksProxyUriPath:UpdateCustomKeyStore' :: UpdateCustomKeyStore -> Maybe Text
$sel:xksProxyUriEndpoint:UpdateCustomKeyStore' :: UpdateCustomKeyStore -> Maybe Text
$sel:xksProxyConnectivity:UpdateCustomKeyStore' :: UpdateCustomKeyStore -> Maybe XksProxyConnectivityType
$sel:xksProxyAuthenticationCredential:UpdateCustomKeyStore' :: UpdateCustomKeyStore -> Maybe XksProxyAuthenticationCredentialType
$sel:newCustomKeyStoreName':UpdateCustomKeyStore' :: UpdateCustomKeyStore -> Maybe Text
$sel:keyStorePassword:UpdateCustomKeyStore' :: UpdateCustomKeyStore -> Maybe (Sensitive Text)
$sel:cloudHsmClusterId:UpdateCustomKeyStore' :: UpdateCustomKeyStore -> Maybe Text
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
cloudHsmClusterId
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe (Sensitive Text)
keyStorePassword
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
newCustomKeyStoreName'
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe XksProxyAuthenticationCredentialType
xksProxyAuthenticationCredential
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe XksProxyConnectivityType
xksProxyConnectivity
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
xksProxyUriEndpoint
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
xksProxyUriPath
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
xksProxyVpcEndpointServiceName
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Text
customKeyStoreId
instance Data.ToHeaders UpdateCustomKeyStore where
toHeaders :: UpdateCustomKeyStore -> 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
"TrentService.UpdateCustomKeyStore" ::
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 UpdateCustomKeyStore where
toJSON :: UpdateCustomKeyStore -> Value
toJSON UpdateCustomKeyStore' {Maybe Text
Maybe (Sensitive Text)
Maybe XksProxyAuthenticationCredentialType
Maybe XksProxyConnectivityType
Text
customKeyStoreId :: Text
xksProxyVpcEndpointServiceName :: Maybe Text
xksProxyUriPath :: Maybe Text
xksProxyUriEndpoint :: Maybe Text
xksProxyConnectivity :: Maybe XksProxyConnectivityType
xksProxyAuthenticationCredential :: Maybe XksProxyAuthenticationCredentialType
newCustomKeyStoreName' :: Maybe Text
keyStorePassword :: Maybe (Sensitive Text)
cloudHsmClusterId :: Maybe Text
$sel:customKeyStoreId:UpdateCustomKeyStore' :: UpdateCustomKeyStore -> Text
$sel:xksProxyVpcEndpointServiceName:UpdateCustomKeyStore' :: UpdateCustomKeyStore -> Maybe Text
$sel:xksProxyUriPath:UpdateCustomKeyStore' :: UpdateCustomKeyStore -> Maybe Text
$sel:xksProxyUriEndpoint:UpdateCustomKeyStore' :: UpdateCustomKeyStore -> Maybe Text
$sel:xksProxyConnectivity:UpdateCustomKeyStore' :: UpdateCustomKeyStore -> Maybe XksProxyConnectivityType
$sel:xksProxyAuthenticationCredential:UpdateCustomKeyStore' :: UpdateCustomKeyStore -> Maybe XksProxyAuthenticationCredentialType
$sel:newCustomKeyStoreName':UpdateCustomKeyStore' :: UpdateCustomKeyStore -> Maybe Text
$sel:keyStorePassword:UpdateCustomKeyStore' :: UpdateCustomKeyStore -> Maybe (Sensitive Text)
$sel:cloudHsmClusterId:UpdateCustomKeyStore' :: UpdateCustomKeyStore -> Maybe Text
..} =
[Pair] -> Value
Data.object
( forall a. [Maybe a] -> [a]
Prelude.catMaybes
[ (Key
"CloudHsmClusterId" 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
cloudHsmClusterId,
(Key
"KeyStorePassword" 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)
keyStorePassword,
(Key
"NewCustomKeyStoreName" 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
newCustomKeyStoreName',
(Key
"XksProxyAuthenticationCredential" 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 XksProxyAuthenticationCredentialType
xksProxyAuthenticationCredential,
(Key
"XksProxyConnectivity" 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 XksProxyConnectivityType
xksProxyConnectivity,
(Key
"XksProxyUriEndpoint" 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
xksProxyUriEndpoint,
(Key
"XksProxyUriPath" 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
xksProxyUriPath,
(Key
"XksProxyVpcEndpointServiceName" 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
xksProxyVpcEndpointServiceName,
forall a. a -> Maybe a
Prelude.Just
(Key
"CustomKeyStoreId" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..= Text
customKeyStoreId)
]
)
instance Data.ToPath UpdateCustomKeyStore where
toPath :: UpdateCustomKeyStore -> ByteString
toPath = forall a b. a -> b -> a
Prelude.const ByteString
"/"
instance Data.ToQuery UpdateCustomKeyStore where
toQuery :: UpdateCustomKeyStore -> QueryString
toQuery = forall a b. a -> b -> a
Prelude.const forall a. Monoid a => a
Prelude.mempty
data UpdateCustomKeyStoreResponse = UpdateCustomKeyStoreResponse'
{
UpdateCustomKeyStoreResponse -> Int
httpStatus :: Prelude.Int
}
deriving (UpdateCustomKeyStoreResponse
-> UpdateCustomKeyStoreResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: UpdateCustomKeyStoreResponse
-> UpdateCustomKeyStoreResponse -> Bool
$c/= :: UpdateCustomKeyStoreResponse
-> UpdateCustomKeyStoreResponse -> Bool
== :: UpdateCustomKeyStoreResponse
-> UpdateCustomKeyStoreResponse -> Bool
$c== :: UpdateCustomKeyStoreResponse
-> UpdateCustomKeyStoreResponse -> Bool
Prelude.Eq, ReadPrec [UpdateCustomKeyStoreResponse]
ReadPrec UpdateCustomKeyStoreResponse
Int -> ReadS UpdateCustomKeyStoreResponse
ReadS [UpdateCustomKeyStoreResponse]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [UpdateCustomKeyStoreResponse]
$creadListPrec :: ReadPrec [UpdateCustomKeyStoreResponse]
readPrec :: ReadPrec UpdateCustomKeyStoreResponse
$creadPrec :: ReadPrec UpdateCustomKeyStoreResponse
readList :: ReadS [UpdateCustomKeyStoreResponse]
$creadList :: ReadS [UpdateCustomKeyStoreResponse]
readsPrec :: Int -> ReadS UpdateCustomKeyStoreResponse
$creadsPrec :: Int -> ReadS UpdateCustomKeyStoreResponse
Prelude.Read, Int -> UpdateCustomKeyStoreResponse -> ShowS
[UpdateCustomKeyStoreResponse] -> ShowS
UpdateCustomKeyStoreResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [UpdateCustomKeyStoreResponse] -> ShowS
$cshowList :: [UpdateCustomKeyStoreResponse] -> ShowS
show :: UpdateCustomKeyStoreResponse -> String
$cshow :: UpdateCustomKeyStoreResponse -> String
showsPrec :: Int -> UpdateCustomKeyStoreResponse -> ShowS
$cshowsPrec :: Int -> UpdateCustomKeyStoreResponse -> ShowS
Prelude.Show, forall x.
Rep UpdateCustomKeyStoreResponse x -> UpdateCustomKeyStoreResponse
forall x.
UpdateCustomKeyStoreResponse -> Rep UpdateCustomKeyStoreResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep UpdateCustomKeyStoreResponse x -> UpdateCustomKeyStoreResponse
$cfrom :: forall x.
UpdateCustomKeyStoreResponse -> Rep UpdateCustomKeyStoreResponse x
Prelude.Generic)
newUpdateCustomKeyStoreResponse ::
Prelude.Int ->
UpdateCustomKeyStoreResponse
newUpdateCustomKeyStoreResponse :: Int -> UpdateCustomKeyStoreResponse
newUpdateCustomKeyStoreResponse Int
pHttpStatus_ =
UpdateCustomKeyStoreResponse'
{ $sel:httpStatus:UpdateCustomKeyStoreResponse' :: Int
httpStatus =
Int
pHttpStatus_
}
updateCustomKeyStoreResponse_httpStatus :: Lens.Lens' UpdateCustomKeyStoreResponse Prelude.Int
updateCustomKeyStoreResponse_httpStatus :: Lens' UpdateCustomKeyStoreResponse Int
updateCustomKeyStoreResponse_httpStatus = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\UpdateCustomKeyStoreResponse' {Int
httpStatus :: Int
$sel:httpStatus:UpdateCustomKeyStoreResponse' :: UpdateCustomKeyStoreResponse -> Int
httpStatus} -> Int
httpStatus) (\s :: UpdateCustomKeyStoreResponse
s@UpdateCustomKeyStoreResponse' {} Int
a -> UpdateCustomKeyStoreResponse
s {$sel:httpStatus:UpdateCustomKeyStoreResponse' :: Int
httpStatus = Int
a} :: UpdateCustomKeyStoreResponse)
instance Prelude.NFData UpdateCustomKeyStoreResponse where
rnf :: UpdateCustomKeyStoreResponse -> ()
rnf UpdateCustomKeyStoreResponse' {Int
httpStatus :: Int
$sel:httpStatus:UpdateCustomKeyStoreResponse' :: UpdateCustomKeyStoreResponse -> Int
..} =
forall a. NFData a => a -> ()
Prelude.rnf Int
httpStatus