{-# LANGUAGE DeriveDataTypeable #-}
{-# LANGUAGE DeriveGeneric #-}
{-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE RecordWildCards #-}
{-# LANGUAGE TypeFamilies #-}
{-# OPTIONS_GHC -fno-warn-unused-imports #-}
{-# OPTIONS_GHC -fno-warn-unused-binds #-}
{-# OPTIONS_GHC -fno-warn-unused-matches #-}
module Network.AWS.CloudFront.DeleteFieldLevelEncryptionConfig
(
deleteFieldLevelEncryptionConfig
, DeleteFieldLevelEncryptionConfig
, dflecIfMatch
, dflecId
, deleteFieldLevelEncryptionConfigResponse
, DeleteFieldLevelEncryptionConfigResponse
) where
import Network.AWS.CloudFront.Types
import Network.AWS.CloudFront.Types.Product
import Network.AWS.Lens
import Network.AWS.Prelude
import Network.AWS.Request
import Network.AWS.Response
data DeleteFieldLevelEncryptionConfig = DeleteFieldLevelEncryptionConfig'
{ _dflecIfMatch :: !(Maybe Text)
, _dflecId :: !Text
} deriving (Eq, Read, Show, Data, Typeable, Generic)
deleteFieldLevelEncryptionConfig
:: Text
-> DeleteFieldLevelEncryptionConfig
deleteFieldLevelEncryptionConfig pId_ =
DeleteFieldLevelEncryptionConfig' {_dflecIfMatch = Nothing, _dflecId = pId_}
dflecIfMatch :: Lens' DeleteFieldLevelEncryptionConfig (Maybe Text)
dflecIfMatch = lens _dflecIfMatch (\ s a -> s{_dflecIfMatch = a})
dflecId :: Lens' DeleteFieldLevelEncryptionConfig Text
dflecId = lens _dflecId (\ s a -> s{_dflecId = a})
instance AWSRequest DeleteFieldLevelEncryptionConfig
where
type Rs DeleteFieldLevelEncryptionConfig =
DeleteFieldLevelEncryptionConfigResponse
request = delete cloudFront
response
= receiveNull
DeleteFieldLevelEncryptionConfigResponse'
instance Hashable DeleteFieldLevelEncryptionConfig
where
instance NFData DeleteFieldLevelEncryptionConfig
where
instance ToHeaders DeleteFieldLevelEncryptionConfig
where
toHeaders DeleteFieldLevelEncryptionConfig'{..}
= mconcat ["If-Match" =# _dflecIfMatch]
instance ToPath DeleteFieldLevelEncryptionConfig
where
toPath DeleteFieldLevelEncryptionConfig'{..}
= mconcat
["/2017-10-30/field-level-encryption/",
toBS _dflecId]
instance ToQuery DeleteFieldLevelEncryptionConfig
where
toQuery = const mempty
data DeleteFieldLevelEncryptionConfigResponse =
DeleteFieldLevelEncryptionConfigResponse'
deriving (Eq, Read, Show, Data, Typeable, Generic)
deleteFieldLevelEncryptionConfigResponse
:: DeleteFieldLevelEncryptionConfigResponse
deleteFieldLevelEncryptionConfigResponse =
DeleteFieldLevelEncryptionConfigResponse'
instance NFData
DeleteFieldLevelEncryptionConfigResponse
where