{-# 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.CloudFront.UpdateFieldLevelEncryptionConfig
(
UpdateFieldLevelEncryptionConfig (..),
newUpdateFieldLevelEncryptionConfig,
updateFieldLevelEncryptionConfig_ifMatch,
updateFieldLevelEncryptionConfig_fieldLevelEncryptionConfig,
updateFieldLevelEncryptionConfig_id,
UpdateFieldLevelEncryptionConfigResponse (..),
newUpdateFieldLevelEncryptionConfigResponse,
updateFieldLevelEncryptionConfigResponse_eTag,
updateFieldLevelEncryptionConfigResponse_fieldLevelEncryption,
updateFieldLevelEncryptionConfigResponse_httpStatus,
)
where
import Amazonka.CloudFront.Types
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
data UpdateFieldLevelEncryptionConfig = UpdateFieldLevelEncryptionConfig'
{
UpdateFieldLevelEncryptionConfig -> Maybe Text
ifMatch :: Prelude.Maybe Prelude.Text,
UpdateFieldLevelEncryptionConfig -> FieldLevelEncryptionConfig
fieldLevelEncryptionConfig :: FieldLevelEncryptionConfig,
UpdateFieldLevelEncryptionConfig -> Text
id :: Prelude.Text
}
deriving (UpdateFieldLevelEncryptionConfig
-> UpdateFieldLevelEncryptionConfig -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: UpdateFieldLevelEncryptionConfig
-> UpdateFieldLevelEncryptionConfig -> Bool
$c/= :: UpdateFieldLevelEncryptionConfig
-> UpdateFieldLevelEncryptionConfig -> Bool
== :: UpdateFieldLevelEncryptionConfig
-> UpdateFieldLevelEncryptionConfig -> Bool
$c== :: UpdateFieldLevelEncryptionConfig
-> UpdateFieldLevelEncryptionConfig -> Bool
Prelude.Eq, ReadPrec [UpdateFieldLevelEncryptionConfig]
ReadPrec UpdateFieldLevelEncryptionConfig
Int -> ReadS UpdateFieldLevelEncryptionConfig
ReadS [UpdateFieldLevelEncryptionConfig]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [UpdateFieldLevelEncryptionConfig]
$creadListPrec :: ReadPrec [UpdateFieldLevelEncryptionConfig]
readPrec :: ReadPrec UpdateFieldLevelEncryptionConfig
$creadPrec :: ReadPrec UpdateFieldLevelEncryptionConfig
readList :: ReadS [UpdateFieldLevelEncryptionConfig]
$creadList :: ReadS [UpdateFieldLevelEncryptionConfig]
readsPrec :: Int -> ReadS UpdateFieldLevelEncryptionConfig
$creadsPrec :: Int -> ReadS UpdateFieldLevelEncryptionConfig
Prelude.Read, Int -> UpdateFieldLevelEncryptionConfig -> ShowS
[UpdateFieldLevelEncryptionConfig] -> ShowS
UpdateFieldLevelEncryptionConfig -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [UpdateFieldLevelEncryptionConfig] -> ShowS
$cshowList :: [UpdateFieldLevelEncryptionConfig] -> ShowS
show :: UpdateFieldLevelEncryptionConfig -> String
$cshow :: UpdateFieldLevelEncryptionConfig -> String
showsPrec :: Int -> UpdateFieldLevelEncryptionConfig -> ShowS
$cshowsPrec :: Int -> UpdateFieldLevelEncryptionConfig -> ShowS
Prelude.Show, forall x.
Rep UpdateFieldLevelEncryptionConfig x
-> UpdateFieldLevelEncryptionConfig
forall x.
UpdateFieldLevelEncryptionConfig
-> Rep UpdateFieldLevelEncryptionConfig x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep UpdateFieldLevelEncryptionConfig x
-> UpdateFieldLevelEncryptionConfig
$cfrom :: forall x.
UpdateFieldLevelEncryptionConfig
-> Rep UpdateFieldLevelEncryptionConfig x
Prelude.Generic)
newUpdateFieldLevelEncryptionConfig ::
FieldLevelEncryptionConfig ->
Prelude.Text ->
UpdateFieldLevelEncryptionConfig
newUpdateFieldLevelEncryptionConfig :: FieldLevelEncryptionConfig
-> Text -> UpdateFieldLevelEncryptionConfig
newUpdateFieldLevelEncryptionConfig
FieldLevelEncryptionConfig
pFieldLevelEncryptionConfig_
Text
pId_ =
UpdateFieldLevelEncryptionConfig'
{ $sel:ifMatch:UpdateFieldLevelEncryptionConfig' :: Maybe Text
ifMatch =
forall a. Maybe a
Prelude.Nothing,
$sel:fieldLevelEncryptionConfig:UpdateFieldLevelEncryptionConfig' :: FieldLevelEncryptionConfig
fieldLevelEncryptionConfig =
FieldLevelEncryptionConfig
pFieldLevelEncryptionConfig_,
$sel:id:UpdateFieldLevelEncryptionConfig' :: Text
id = Text
pId_
}
updateFieldLevelEncryptionConfig_ifMatch :: Lens.Lens' UpdateFieldLevelEncryptionConfig (Prelude.Maybe Prelude.Text)
updateFieldLevelEncryptionConfig_ifMatch :: Lens' UpdateFieldLevelEncryptionConfig (Maybe Text)
updateFieldLevelEncryptionConfig_ifMatch = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\UpdateFieldLevelEncryptionConfig' {Maybe Text
ifMatch :: Maybe Text
$sel:ifMatch:UpdateFieldLevelEncryptionConfig' :: UpdateFieldLevelEncryptionConfig -> Maybe Text
ifMatch} -> Maybe Text
ifMatch) (\s :: UpdateFieldLevelEncryptionConfig
s@UpdateFieldLevelEncryptionConfig' {} Maybe Text
a -> UpdateFieldLevelEncryptionConfig
s {$sel:ifMatch:UpdateFieldLevelEncryptionConfig' :: Maybe Text
ifMatch = Maybe Text
a} :: UpdateFieldLevelEncryptionConfig)
updateFieldLevelEncryptionConfig_fieldLevelEncryptionConfig :: Lens.Lens' UpdateFieldLevelEncryptionConfig FieldLevelEncryptionConfig
updateFieldLevelEncryptionConfig_fieldLevelEncryptionConfig :: Lens' UpdateFieldLevelEncryptionConfig FieldLevelEncryptionConfig
updateFieldLevelEncryptionConfig_fieldLevelEncryptionConfig = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\UpdateFieldLevelEncryptionConfig' {FieldLevelEncryptionConfig
fieldLevelEncryptionConfig :: FieldLevelEncryptionConfig
$sel:fieldLevelEncryptionConfig:UpdateFieldLevelEncryptionConfig' :: UpdateFieldLevelEncryptionConfig -> FieldLevelEncryptionConfig
fieldLevelEncryptionConfig} -> FieldLevelEncryptionConfig
fieldLevelEncryptionConfig) (\s :: UpdateFieldLevelEncryptionConfig
s@UpdateFieldLevelEncryptionConfig' {} FieldLevelEncryptionConfig
a -> UpdateFieldLevelEncryptionConfig
s {$sel:fieldLevelEncryptionConfig:UpdateFieldLevelEncryptionConfig' :: FieldLevelEncryptionConfig
fieldLevelEncryptionConfig = FieldLevelEncryptionConfig
a} :: UpdateFieldLevelEncryptionConfig)
updateFieldLevelEncryptionConfig_id :: Lens.Lens' UpdateFieldLevelEncryptionConfig Prelude.Text
updateFieldLevelEncryptionConfig_id :: Lens' UpdateFieldLevelEncryptionConfig Text
updateFieldLevelEncryptionConfig_id = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\UpdateFieldLevelEncryptionConfig' {Text
id :: Text
$sel:id:UpdateFieldLevelEncryptionConfig' :: UpdateFieldLevelEncryptionConfig -> Text
id} -> Text
id) (\s :: UpdateFieldLevelEncryptionConfig
s@UpdateFieldLevelEncryptionConfig' {} Text
a -> UpdateFieldLevelEncryptionConfig
s {$sel:id:UpdateFieldLevelEncryptionConfig' :: Text
id = Text
a} :: UpdateFieldLevelEncryptionConfig)
instance
Core.AWSRequest
UpdateFieldLevelEncryptionConfig
where
type
AWSResponse UpdateFieldLevelEncryptionConfig =
UpdateFieldLevelEncryptionConfigResponse
request :: (Service -> Service)
-> UpdateFieldLevelEncryptionConfig
-> Request UpdateFieldLevelEncryptionConfig
request Service -> Service
overrides =
forall a. (ToRequest a, ToElement a) => Service -> a -> Request a
Request.putXML (Service -> Service
overrides Service
defaultService)
response :: forall (m :: * -> *).
MonadResource m =>
(ByteStringLazy -> IO ByteStringLazy)
-> Service
-> Proxy UpdateFieldLevelEncryptionConfig
-> ClientResponse ClientBody
-> m (Either
Error
(ClientResponse (AWSResponse UpdateFieldLevelEncryptionConfig)))
response =
forall (m :: * -> *) a.
MonadResource m =>
(Int -> ResponseHeaders -> [Node] -> Either String (AWSResponse a))
-> (ByteStringLazy -> IO ByteStringLazy)
-> Service
-> Proxy a
-> ClientResponse ClientBody
-> m (Either Error (ClientResponse (AWSResponse a)))
Response.receiveXML
( \Int
s ResponseHeaders
h [Node]
x ->
Maybe Text
-> Maybe FieldLevelEncryption
-> Int
-> UpdateFieldLevelEncryptionConfigResponse
UpdateFieldLevelEncryptionConfigResponse'
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
"ETag")
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (forall a. FromXML a => [Node] -> Either String a
Data.parseXML [Node]
x)
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
UpdateFieldLevelEncryptionConfig
where
hashWithSalt :: Int -> UpdateFieldLevelEncryptionConfig -> Int
hashWithSalt
Int
_salt
UpdateFieldLevelEncryptionConfig' {Maybe Text
Text
FieldLevelEncryptionConfig
id :: Text
fieldLevelEncryptionConfig :: FieldLevelEncryptionConfig
ifMatch :: Maybe Text
$sel:id:UpdateFieldLevelEncryptionConfig' :: UpdateFieldLevelEncryptionConfig -> Text
$sel:fieldLevelEncryptionConfig:UpdateFieldLevelEncryptionConfig' :: UpdateFieldLevelEncryptionConfig -> FieldLevelEncryptionConfig
$sel:ifMatch:UpdateFieldLevelEncryptionConfig' :: UpdateFieldLevelEncryptionConfig -> Maybe Text
..} =
Int
_salt
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
ifMatch
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` FieldLevelEncryptionConfig
fieldLevelEncryptionConfig
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
id
instance
Prelude.NFData
UpdateFieldLevelEncryptionConfig
where
rnf :: UpdateFieldLevelEncryptionConfig -> ()
rnf UpdateFieldLevelEncryptionConfig' {Maybe Text
Text
FieldLevelEncryptionConfig
id :: Text
fieldLevelEncryptionConfig :: FieldLevelEncryptionConfig
ifMatch :: Maybe Text
$sel:id:UpdateFieldLevelEncryptionConfig' :: UpdateFieldLevelEncryptionConfig -> Text
$sel:fieldLevelEncryptionConfig:UpdateFieldLevelEncryptionConfig' :: UpdateFieldLevelEncryptionConfig -> FieldLevelEncryptionConfig
$sel:ifMatch:UpdateFieldLevelEncryptionConfig' :: UpdateFieldLevelEncryptionConfig -> Maybe Text
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
ifMatch
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf FieldLevelEncryptionConfig
fieldLevelEncryptionConfig
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Text
id
instance
Data.ToElement
UpdateFieldLevelEncryptionConfig
where
toElement :: UpdateFieldLevelEncryptionConfig -> Element
toElement UpdateFieldLevelEncryptionConfig' {Maybe Text
Text
FieldLevelEncryptionConfig
id :: Text
fieldLevelEncryptionConfig :: FieldLevelEncryptionConfig
ifMatch :: Maybe Text
$sel:id:UpdateFieldLevelEncryptionConfig' :: UpdateFieldLevelEncryptionConfig -> Text
$sel:fieldLevelEncryptionConfig:UpdateFieldLevelEncryptionConfig' :: UpdateFieldLevelEncryptionConfig -> FieldLevelEncryptionConfig
$sel:ifMatch:UpdateFieldLevelEncryptionConfig' :: UpdateFieldLevelEncryptionConfig -> Maybe Text
..} =
forall a. ToXML a => Name -> a -> Element
Data.mkElement
Name
"{http://cloudfront.amazonaws.com/doc/2020-05-31/}FieldLevelEncryptionConfig"
FieldLevelEncryptionConfig
fieldLevelEncryptionConfig
instance
Data.ToHeaders
UpdateFieldLevelEncryptionConfig
where
toHeaders :: UpdateFieldLevelEncryptionConfig -> ResponseHeaders
toHeaders UpdateFieldLevelEncryptionConfig' {Maybe Text
Text
FieldLevelEncryptionConfig
id :: Text
fieldLevelEncryptionConfig :: FieldLevelEncryptionConfig
ifMatch :: Maybe Text
$sel:id:UpdateFieldLevelEncryptionConfig' :: UpdateFieldLevelEncryptionConfig -> Text
$sel:fieldLevelEncryptionConfig:UpdateFieldLevelEncryptionConfig' :: UpdateFieldLevelEncryptionConfig -> FieldLevelEncryptionConfig
$sel:ifMatch:UpdateFieldLevelEncryptionConfig' :: UpdateFieldLevelEncryptionConfig -> Maybe Text
..} =
forall a. Monoid a => [a] -> a
Prelude.mconcat [HeaderName
"If-Match" forall a. ToHeader a => HeaderName -> a -> ResponseHeaders
Data.=# Maybe Text
ifMatch]
instance Data.ToPath UpdateFieldLevelEncryptionConfig where
toPath :: UpdateFieldLevelEncryptionConfig -> ByteString
toPath UpdateFieldLevelEncryptionConfig' {Maybe Text
Text
FieldLevelEncryptionConfig
id :: Text
fieldLevelEncryptionConfig :: FieldLevelEncryptionConfig
ifMatch :: Maybe Text
$sel:id:UpdateFieldLevelEncryptionConfig' :: UpdateFieldLevelEncryptionConfig -> Text
$sel:fieldLevelEncryptionConfig:UpdateFieldLevelEncryptionConfig' :: UpdateFieldLevelEncryptionConfig -> FieldLevelEncryptionConfig
$sel:ifMatch:UpdateFieldLevelEncryptionConfig' :: UpdateFieldLevelEncryptionConfig -> Maybe Text
..} =
forall a. Monoid a => [a] -> a
Prelude.mconcat
[ ByteString
"/2020-05-31/field-level-encryption/",
forall a. ToByteString a => a -> ByteString
Data.toBS Text
id,
ByteString
"/config"
]
instance
Data.ToQuery
UpdateFieldLevelEncryptionConfig
where
toQuery :: UpdateFieldLevelEncryptionConfig -> QueryString
toQuery = forall a b. a -> b -> a
Prelude.const forall a. Monoid a => a
Prelude.mempty
data UpdateFieldLevelEncryptionConfigResponse = UpdateFieldLevelEncryptionConfigResponse'
{
UpdateFieldLevelEncryptionConfigResponse -> Maybe Text
eTag :: Prelude.Maybe Prelude.Text,
UpdateFieldLevelEncryptionConfigResponse
-> Maybe FieldLevelEncryption
fieldLevelEncryption :: Prelude.Maybe FieldLevelEncryption,
UpdateFieldLevelEncryptionConfigResponse -> Int
httpStatus :: Prelude.Int
}
deriving (UpdateFieldLevelEncryptionConfigResponse
-> UpdateFieldLevelEncryptionConfigResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: UpdateFieldLevelEncryptionConfigResponse
-> UpdateFieldLevelEncryptionConfigResponse -> Bool
$c/= :: UpdateFieldLevelEncryptionConfigResponse
-> UpdateFieldLevelEncryptionConfigResponse -> Bool
== :: UpdateFieldLevelEncryptionConfigResponse
-> UpdateFieldLevelEncryptionConfigResponse -> Bool
$c== :: UpdateFieldLevelEncryptionConfigResponse
-> UpdateFieldLevelEncryptionConfigResponse -> Bool
Prelude.Eq, ReadPrec [UpdateFieldLevelEncryptionConfigResponse]
ReadPrec UpdateFieldLevelEncryptionConfigResponse
Int -> ReadS UpdateFieldLevelEncryptionConfigResponse
ReadS [UpdateFieldLevelEncryptionConfigResponse]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [UpdateFieldLevelEncryptionConfigResponse]
$creadListPrec :: ReadPrec [UpdateFieldLevelEncryptionConfigResponse]
readPrec :: ReadPrec UpdateFieldLevelEncryptionConfigResponse
$creadPrec :: ReadPrec UpdateFieldLevelEncryptionConfigResponse
readList :: ReadS [UpdateFieldLevelEncryptionConfigResponse]
$creadList :: ReadS [UpdateFieldLevelEncryptionConfigResponse]
readsPrec :: Int -> ReadS UpdateFieldLevelEncryptionConfigResponse
$creadsPrec :: Int -> ReadS UpdateFieldLevelEncryptionConfigResponse
Prelude.Read, Int -> UpdateFieldLevelEncryptionConfigResponse -> ShowS
[UpdateFieldLevelEncryptionConfigResponse] -> ShowS
UpdateFieldLevelEncryptionConfigResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [UpdateFieldLevelEncryptionConfigResponse] -> ShowS
$cshowList :: [UpdateFieldLevelEncryptionConfigResponse] -> ShowS
show :: UpdateFieldLevelEncryptionConfigResponse -> String
$cshow :: UpdateFieldLevelEncryptionConfigResponse -> String
showsPrec :: Int -> UpdateFieldLevelEncryptionConfigResponse -> ShowS
$cshowsPrec :: Int -> UpdateFieldLevelEncryptionConfigResponse -> ShowS
Prelude.Show, forall x.
Rep UpdateFieldLevelEncryptionConfigResponse x
-> UpdateFieldLevelEncryptionConfigResponse
forall x.
UpdateFieldLevelEncryptionConfigResponse
-> Rep UpdateFieldLevelEncryptionConfigResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep UpdateFieldLevelEncryptionConfigResponse x
-> UpdateFieldLevelEncryptionConfigResponse
$cfrom :: forall x.
UpdateFieldLevelEncryptionConfigResponse
-> Rep UpdateFieldLevelEncryptionConfigResponse x
Prelude.Generic)
newUpdateFieldLevelEncryptionConfigResponse ::
Prelude.Int ->
UpdateFieldLevelEncryptionConfigResponse
newUpdateFieldLevelEncryptionConfigResponse :: Int -> UpdateFieldLevelEncryptionConfigResponse
newUpdateFieldLevelEncryptionConfigResponse
Int
pHttpStatus_ =
UpdateFieldLevelEncryptionConfigResponse'
{ $sel:eTag:UpdateFieldLevelEncryptionConfigResponse' :: Maybe Text
eTag =
forall a. Maybe a
Prelude.Nothing,
$sel:fieldLevelEncryption:UpdateFieldLevelEncryptionConfigResponse' :: Maybe FieldLevelEncryption
fieldLevelEncryption =
forall a. Maybe a
Prelude.Nothing,
$sel:httpStatus:UpdateFieldLevelEncryptionConfigResponse' :: Int
httpStatus = Int
pHttpStatus_
}
updateFieldLevelEncryptionConfigResponse_eTag :: Lens.Lens' UpdateFieldLevelEncryptionConfigResponse (Prelude.Maybe Prelude.Text)
updateFieldLevelEncryptionConfigResponse_eTag :: Lens' UpdateFieldLevelEncryptionConfigResponse (Maybe Text)
updateFieldLevelEncryptionConfigResponse_eTag = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\UpdateFieldLevelEncryptionConfigResponse' {Maybe Text
eTag :: Maybe Text
$sel:eTag:UpdateFieldLevelEncryptionConfigResponse' :: UpdateFieldLevelEncryptionConfigResponse -> Maybe Text
eTag} -> Maybe Text
eTag) (\s :: UpdateFieldLevelEncryptionConfigResponse
s@UpdateFieldLevelEncryptionConfigResponse' {} Maybe Text
a -> UpdateFieldLevelEncryptionConfigResponse
s {$sel:eTag:UpdateFieldLevelEncryptionConfigResponse' :: Maybe Text
eTag = Maybe Text
a} :: UpdateFieldLevelEncryptionConfigResponse)
updateFieldLevelEncryptionConfigResponse_fieldLevelEncryption :: Lens.Lens' UpdateFieldLevelEncryptionConfigResponse (Prelude.Maybe FieldLevelEncryption)
updateFieldLevelEncryptionConfigResponse_fieldLevelEncryption :: Lens'
UpdateFieldLevelEncryptionConfigResponse
(Maybe FieldLevelEncryption)
updateFieldLevelEncryptionConfigResponse_fieldLevelEncryption = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\UpdateFieldLevelEncryptionConfigResponse' {Maybe FieldLevelEncryption
fieldLevelEncryption :: Maybe FieldLevelEncryption
$sel:fieldLevelEncryption:UpdateFieldLevelEncryptionConfigResponse' :: UpdateFieldLevelEncryptionConfigResponse
-> Maybe FieldLevelEncryption
fieldLevelEncryption} -> Maybe FieldLevelEncryption
fieldLevelEncryption) (\s :: UpdateFieldLevelEncryptionConfigResponse
s@UpdateFieldLevelEncryptionConfigResponse' {} Maybe FieldLevelEncryption
a -> UpdateFieldLevelEncryptionConfigResponse
s {$sel:fieldLevelEncryption:UpdateFieldLevelEncryptionConfigResponse' :: Maybe FieldLevelEncryption
fieldLevelEncryption = Maybe FieldLevelEncryption
a} :: UpdateFieldLevelEncryptionConfigResponse)
updateFieldLevelEncryptionConfigResponse_httpStatus :: Lens.Lens' UpdateFieldLevelEncryptionConfigResponse Prelude.Int
updateFieldLevelEncryptionConfigResponse_httpStatus :: Lens' UpdateFieldLevelEncryptionConfigResponse Int
updateFieldLevelEncryptionConfigResponse_httpStatus = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\UpdateFieldLevelEncryptionConfigResponse' {Int
httpStatus :: Int
$sel:httpStatus:UpdateFieldLevelEncryptionConfigResponse' :: UpdateFieldLevelEncryptionConfigResponse -> Int
httpStatus} -> Int
httpStatus) (\s :: UpdateFieldLevelEncryptionConfigResponse
s@UpdateFieldLevelEncryptionConfigResponse' {} Int
a -> UpdateFieldLevelEncryptionConfigResponse
s {$sel:httpStatus:UpdateFieldLevelEncryptionConfigResponse' :: Int
httpStatus = Int
a} :: UpdateFieldLevelEncryptionConfigResponse)
instance
Prelude.NFData
UpdateFieldLevelEncryptionConfigResponse
where
rnf :: UpdateFieldLevelEncryptionConfigResponse -> ()
rnf UpdateFieldLevelEncryptionConfigResponse' {Int
Maybe Text
Maybe FieldLevelEncryption
httpStatus :: Int
fieldLevelEncryption :: Maybe FieldLevelEncryption
eTag :: Maybe Text
$sel:httpStatus:UpdateFieldLevelEncryptionConfigResponse' :: UpdateFieldLevelEncryptionConfigResponse -> Int
$sel:fieldLevelEncryption:UpdateFieldLevelEncryptionConfigResponse' :: UpdateFieldLevelEncryptionConfigResponse
-> Maybe FieldLevelEncryption
$sel:eTag:UpdateFieldLevelEncryptionConfigResponse' :: UpdateFieldLevelEncryptionConfigResponse -> Maybe Text
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
eTag
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe FieldLevelEncryption
fieldLevelEncryption
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Int
httpStatus