{-# 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.DeleteFieldLevelEncryptionProfile
(
deleteFieldLevelEncryptionProfile
, DeleteFieldLevelEncryptionProfile
, dflepIfMatch
, dflepId
, deleteFieldLevelEncryptionProfileResponse
, DeleteFieldLevelEncryptionProfileResponse
) 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 DeleteFieldLevelEncryptionProfile = DeleteFieldLevelEncryptionProfile'
{ _dflepIfMatch :: !(Maybe Text)
, _dflepId :: !Text
} deriving (Eq, Read, Show, Data, Typeable, Generic)
deleteFieldLevelEncryptionProfile
:: Text
-> DeleteFieldLevelEncryptionProfile
deleteFieldLevelEncryptionProfile pId_ =
DeleteFieldLevelEncryptionProfile' {_dflepIfMatch = Nothing, _dflepId = pId_}
dflepIfMatch :: Lens' DeleteFieldLevelEncryptionProfile (Maybe Text)
dflepIfMatch = lens _dflepIfMatch (\ s a -> s{_dflepIfMatch = a})
dflepId :: Lens' DeleteFieldLevelEncryptionProfile Text
dflepId = lens _dflepId (\ s a -> s{_dflepId = a})
instance AWSRequest DeleteFieldLevelEncryptionProfile
where
type Rs DeleteFieldLevelEncryptionProfile =
DeleteFieldLevelEncryptionProfileResponse
request = delete cloudFront
response
= receiveNull
DeleteFieldLevelEncryptionProfileResponse'
instance Hashable DeleteFieldLevelEncryptionProfile
where
instance NFData DeleteFieldLevelEncryptionProfile
where
instance ToHeaders DeleteFieldLevelEncryptionProfile
where
toHeaders DeleteFieldLevelEncryptionProfile'{..}
= mconcat ["If-Match" =# _dflepIfMatch]
instance ToPath DeleteFieldLevelEncryptionProfile
where
toPath DeleteFieldLevelEncryptionProfile'{..}
= mconcat
["/2017-10-30/field-level-encryption-profile/",
toBS _dflepId]
instance ToQuery DeleteFieldLevelEncryptionProfile
where
toQuery = const mempty
data DeleteFieldLevelEncryptionProfileResponse =
DeleteFieldLevelEncryptionProfileResponse'
deriving (Eq, Read, Show, Data, Typeable, Generic)
deleteFieldLevelEncryptionProfileResponse
:: DeleteFieldLevelEncryptionProfileResponse
deleteFieldLevelEncryptionProfileResponse =
DeleteFieldLevelEncryptionProfileResponse'
instance NFData
DeleteFieldLevelEncryptionProfileResponse
where