{-# 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.DeleteFieldLevelEncryptionConfig
(
DeleteFieldLevelEncryptionConfig (..),
newDeleteFieldLevelEncryptionConfig,
deleteFieldLevelEncryptionConfig_ifMatch,
deleteFieldLevelEncryptionConfig_id,
DeleteFieldLevelEncryptionConfigResponse (..),
newDeleteFieldLevelEncryptionConfigResponse,
)
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 DeleteFieldLevelEncryptionConfig = DeleteFieldLevelEncryptionConfig'
{
DeleteFieldLevelEncryptionConfig -> Maybe Text
ifMatch :: Prelude.Maybe Prelude.Text,
DeleteFieldLevelEncryptionConfig -> Text
id :: Prelude.Text
}
deriving (DeleteFieldLevelEncryptionConfig
-> DeleteFieldLevelEncryptionConfig -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: DeleteFieldLevelEncryptionConfig
-> DeleteFieldLevelEncryptionConfig -> Bool
$c/= :: DeleteFieldLevelEncryptionConfig
-> DeleteFieldLevelEncryptionConfig -> Bool
== :: DeleteFieldLevelEncryptionConfig
-> DeleteFieldLevelEncryptionConfig -> Bool
$c== :: DeleteFieldLevelEncryptionConfig
-> DeleteFieldLevelEncryptionConfig -> Bool
Prelude.Eq, ReadPrec [DeleteFieldLevelEncryptionConfig]
ReadPrec DeleteFieldLevelEncryptionConfig
Int -> ReadS DeleteFieldLevelEncryptionConfig
ReadS [DeleteFieldLevelEncryptionConfig]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [DeleteFieldLevelEncryptionConfig]
$creadListPrec :: ReadPrec [DeleteFieldLevelEncryptionConfig]
readPrec :: ReadPrec DeleteFieldLevelEncryptionConfig
$creadPrec :: ReadPrec DeleteFieldLevelEncryptionConfig
readList :: ReadS [DeleteFieldLevelEncryptionConfig]
$creadList :: ReadS [DeleteFieldLevelEncryptionConfig]
readsPrec :: Int -> ReadS DeleteFieldLevelEncryptionConfig
$creadsPrec :: Int -> ReadS DeleteFieldLevelEncryptionConfig
Prelude.Read, Int -> DeleteFieldLevelEncryptionConfig -> ShowS
[DeleteFieldLevelEncryptionConfig] -> ShowS
DeleteFieldLevelEncryptionConfig -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [DeleteFieldLevelEncryptionConfig] -> ShowS
$cshowList :: [DeleteFieldLevelEncryptionConfig] -> ShowS
show :: DeleteFieldLevelEncryptionConfig -> String
$cshow :: DeleteFieldLevelEncryptionConfig -> String
showsPrec :: Int -> DeleteFieldLevelEncryptionConfig -> ShowS
$cshowsPrec :: Int -> DeleteFieldLevelEncryptionConfig -> ShowS
Prelude.Show, forall x.
Rep DeleteFieldLevelEncryptionConfig x
-> DeleteFieldLevelEncryptionConfig
forall x.
DeleteFieldLevelEncryptionConfig
-> Rep DeleteFieldLevelEncryptionConfig x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep DeleteFieldLevelEncryptionConfig x
-> DeleteFieldLevelEncryptionConfig
$cfrom :: forall x.
DeleteFieldLevelEncryptionConfig
-> Rep DeleteFieldLevelEncryptionConfig x
Prelude.Generic)
newDeleteFieldLevelEncryptionConfig ::
Prelude.Text ->
DeleteFieldLevelEncryptionConfig
newDeleteFieldLevelEncryptionConfig :: Text -> DeleteFieldLevelEncryptionConfig
newDeleteFieldLevelEncryptionConfig Text
pId_ =
DeleteFieldLevelEncryptionConfig'
{ $sel:ifMatch:DeleteFieldLevelEncryptionConfig' :: Maybe Text
ifMatch =
forall a. Maybe a
Prelude.Nothing,
$sel:id:DeleteFieldLevelEncryptionConfig' :: Text
id = Text
pId_
}
deleteFieldLevelEncryptionConfig_ifMatch :: Lens.Lens' DeleteFieldLevelEncryptionConfig (Prelude.Maybe Prelude.Text)
deleteFieldLevelEncryptionConfig_ifMatch :: Lens' DeleteFieldLevelEncryptionConfig (Maybe Text)
deleteFieldLevelEncryptionConfig_ifMatch = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DeleteFieldLevelEncryptionConfig' {Maybe Text
ifMatch :: Maybe Text
$sel:ifMatch:DeleteFieldLevelEncryptionConfig' :: DeleteFieldLevelEncryptionConfig -> Maybe Text
ifMatch} -> Maybe Text
ifMatch) (\s :: DeleteFieldLevelEncryptionConfig
s@DeleteFieldLevelEncryptionConfig' {} Maybe Text
a -> DeleteFieldLevelEncryptionConfig
s {$sel:ifMatch:DeleteFieldLevelEncryptionConfig' :: Maybe Text
ifMatch = Maybe Text
a} :: DeleteFieldLevelEncryptionConfig)
deleteFieldLevelEncryptionConfig_id :: Lens.Lens' DeleteFieldLevelEncryptionConfig Prelude.Text
deleteFieldLevelEncryptionConfig_id :: Lens' DeleteFieldLevelEncryptionConfig Text
deleteFieldLevelEncryptionConfig_id = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DeleteFieldLevelEncryptionConfig' {Text
id :: Text
$sel:id:DeleteFieldLevelEncryptionConfig' :: DeleteFieldLevelEncryptionConfig -> Text
id} -> Text
id) (\s :: DeleteFieldLevelEncryptionConfig
s@DeleteFieldLevelEncryptionConfig' {} Text
a -> DeleteFieldLevelEncryptionConfig
s {$sel:id:DeleteFieldLevelEncryptionConfig' :: Text
id = Text
a} :: DeleteFieldLevelEncryptionConfig)
instance
Core.AWSRequest
DeleteFieldLevelEncryptionConfig
where
type
AWSResponse DeleteFieldLevelEncryptionConfig =
DeleteFieldLevelEncryptionConfigResponse
request :: (Service -> Service)
-> DeleteFieldLevelEncryptionConfig
-> Request DeleteFieldLevelEncryptionConfig
request Service -> Service
overrides =
forall a. ToRequest a => Service -> a -> Request a
Request.delete (Service -> Service
overrides Service
defaultService)
response :: forall (m :: * -> *).
MonadResource m =>
(ByteStringLazy -> IO ByteStringLazy)
-> Service
-> Proxy DeleteFieldLevelEncryptionConfig
-> ClientResponse ClientBody
-> m (Either
Error
(ClientResponse (AWSResponse DeleteFieldLevelEncryptionConfig)))
response =
forall (m :: * -> *) a.
MonadResource m =>
AWSResponse a
-> (ByteStringLazy -> IO ByteStringLazy)
-> Service
-> Proxy a
-> ClientResponse ClientBody
-> m (Either Error (ClientResponse (AWSResponse a)))
Response.receiveNull
DeleteFieldLevelEncryptionConfigResponse
DeleteFieldLevelEncryptionConfigResponse'
instance
Prelude.Hashable
DeleteFieldLevelEncryptionConfig
where
hashWithSalt :: Int -> DeleteFieldLevelEncryptionConfig -> Int
hashWithSalt
Int
_salt
DeleteFieldLevelEncryptionConfig' {Maybe Text
Text
id :: Text
ifMatch :: Maybe Text
$sel:id:DeleteFieldLevelEncryptionConfig' :: DeleteFieldLevelEncryptionConfig -> Text
$sel:ifMatch:DeleteFieldLevelEncryptionConfig' :: DeleteFieldLevelEncryptionConfig -> 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` Text
id
instance
Prelude.NFData
DeleteFieldLevelEncryptionConfig
where
rnf :: DeleteFieldLevelEncryptionConfig -> ()
rnf DeleteFieldLevelEncryptionConfig' {Maybe Text
Text
id :: Text
ifMatch :: Maybe Text
$sel:id:DeleteFieldLevelEncryptionConfig' :: DeleteFieldLevelEncryptionConfig -> Text
$sel:ifMatch:DeleteFieldLevelEncryptionConfig' :: DeleteFieldLevelEncryptionConfig -> 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 Text
id
instance
Data.ToHeaders
DeleteFieldLevelEncryptionConfig
where
toHeaders :: DeleteFieldLevelEncryptionConfig -> [Header]
toHeaders DeleteFieldLevelEncryptionConfig' {Maybe Text
Text
id :: Text
ifMatch :: Maybe Text
$sel:id:DeleteFieldLevelEncryptionConfig' :: DeleteFieldLevelEncryptionConfig -> Text
$sel:ifMatch:DeleteFieldLevelEncryptionConfig' :: DeleteFieldLevelEncryptionConfig -> Maybe Text
..} =
forall a. Monoid a => [a] -> a
Prelude.mconcat [HeaderName
"If-Match" forall a. ToHeader a => HeaderName -> a -> [Header]
Data.=# Maybe Text
ifMatch]
instance Data.ToPath DeleteFieldLevelEncryptionConfig where
toPath :: DeleteFieldLevelEncryptionConfig -> ByteString
toPath DeleteFieldLevelEncryptionConfig' {Maybe Text
Text
id :: Text
ifMatch :: Maybe Text
$sel:id:DeleteFieldLevelEncryptionConfig' :: DeleteFieldLevelEncryptionConfig -> Text
$sel:ifMatch:DeleteFieldLevelEncryptionConfig' :: DeleteFieldLevelEncryptionConfig -> 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]
instance
Data.ToQuery
DeleteFieldLevelEncryptionConfig
where
toQuery :: DeleteFieldLevelEncryptionConfig -> QueryString
toQuery = forall a b. a -> b -> a
Prelude.const forall a. Monoid a => a
Prelude.mempty
data DeleteFieldLevelEncryptionConfigResponse = DeleteFieldLevelEncryptionConfigResponse'
{
}
deriving (DeleteFieldLevelEncryptionConfigResponse
-> DeleteFieldLevelEncryptionConfigResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: DeleteFieldLevelEncryptionConfigResponse
-> DeleteFieldLevelEncryptionConfigResponse -> Bool
$c/= :: DeleteFieldLevelEncryptionConfigResponse
-> DeleteFieldLevelEncryptionConfigResponse -> Bool
== :: DeleteFieldLevelEncryptionConfigResponse
-> DeleteFieldLevelEncryptionConfigResponse -> Bool
$c== :: DeleteFieldLevelEncryptionConfigResponse
-> DeleteFieldLevelEncryptionConfigResponse -> Bool
Prelude.Eq, ReadPrec [DeleteFieldLevelEncryptionConfigResponse]
ReadPrec DeleteFieldLevelEncryptionConfigResponse
Int -> ReadS DeleteFieldLevelEncryptionConfigResponse
ReadS [DeleteFieldLevelEncryptionConfigResponse]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [DeleteFieldLevelEncryptionConfigResponse]
$creadListPrec :: ReadPrec [DeleteFieldLevelEncryptionConfigResponse]
readPrec :: ReadPrec DeleteFieldLevelEncryptionConfigResponse
$creadPrec :: ReadPrec DeleteFieldLevelEncryptionConfigResponse
readList :: ReadS [DeleteFieldLevelEncryptionConfigResponse]
$creadList :: ReadS [DeleteFieldLevelEncryptionConfigResponse]
readsPrec :: Int -> ReadS DeleteFieldLevelEncryptionConfigResponse
$creadsPrec :: Int -> ReadS DeleteFieldLevelEncryptionConfigResponse
Prelude.Read, Int -> DeleteFieldLevelEncryptionConfigResponse -> ShowS
[DeleteFieldLevelEncryptionConfigResponse] -> ShowS
DeleteFieldLevelEncryptionConfigResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [DeleteFieldLevelEncryptionConfigResponse] -> ShowS
$cshowList :: [DeleteFieldLevelEncryptionConfigResponse] -> ShowS
show :: DeleteFieldLevelEncryptionConfigResponse -> String
$cshow :: DeleteFieldLevelEncryptionConfigResponse -> String
showsPrec :: Int -> DeleteFieldLevelEncryptionConfigResponse -> ShowS
$cshowsPrec :: Int -> DeleteFieldLevelEncryptionConfigResponse -> ShowS
Prelude.Show, forall x.
Rep DeleteFieldLevelEncryptionConfigResponse x
-> DeleteFieldLevelEncryptionConfigResponse
forall x.
DeleteFieldLevelEncryptionConfigResponse
-> Rep DeleteFieldLevelEncryptionConfigResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep DeleteFieldLevelEncryptionConfigResponse x
-> DeleteFieldLevelEncryptionConfigResponse
$cfrom :: forall x.
DeleteFieldLevelEncryptionConfigResponse
-> Rep DeleteFieldLevelEncryptionConfigResponse x
Prelude.Generic)
newDeleteFieldLevelEncryptionConfigResponse ::
DeleteFieldLevelEncryptionConfigResponse
newDeleteFieldLevelEncryptionConfigResponse :: DeleteFieldLevelEncryptionConfigResponse
newDeleteFieldLevelEncryptionConfigResponse =
DeleteFieldLevelEncryptionConfigResponse
DeleteFieldLevelEncryptionConfigResponse'
instance
Prelude.NFData
DeleteFieldLevelEncryptionConfigResponse
where
rnf :: DeleteFieldLevelEncryptionConfigResponse -> ()
rnf DeleteFieldLevelEncryptionConfigResponse
_ = ()