{-# 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.CloudWatchLogs.DeleteResourcePolicy
(
deleteResourcePolicy
, DeleteResourcePolicy
, drpPolicyName
, deleteResourcePolicyResponse
, DeleteResourcePolicyResponse
) where
import Network.AWS.CloudWatchLogs.Types
import Network.AWS.CloudWatchLogs.Types.Product
import Network.AWS.Lens
import Network.AWS.Prelude
import Network.AWS.Request
import Network.AWS.Response
newtype DeleteResourcePolicy = DeleteResourcePolicy'
{ _drpPolicyName :: Maybe Text
} deriving (Eq, Read, Show, Data, Typeable, Generic)
deleteResourcePolicy
:: DeleteResourcePolicy
deleteResourcePolicy = DeleteResourcePolicy' {_drpPolicyName = Nothing}
drpPolicyName :: Lens' DeleteResourcePolicy (Maybe Text)
drpPolicyName = lens _drpPolicyName (\ s a -> s{_drpPolicyName = a})
instance AWSRequest DeleteResourcePolicy where
type Rs DeleteResourcePolicy =
DeleteResourcePolicyResponse
request = postJSON cloudWatchLogs
response = receiveNull DeleteResourcePolicyResponse'
instance Hashable DeleteResourcePolicy where
instance NFData DeleteResourcePolicy where
instance ToHeaders DeleteResourcePolicy where
toHeaders
= const
(mconcat
["X-Amz-Target" =#
("Logs_20140328.DeleteResourcePolicy" :: ByteString),
"Content-Type" =#
("application/x-amz-json-1.1" :: ByteString)])
instance ToJSON DeleteResourcePolicy where
toJSON DeleteResourcePolicy'{..}
= object
(catMaybes [("policyName" .=) <$> _drpPolicyName])
instance ToPath DeleteResourcePolicy where
toPath = const "/"
instance ToQuery DeleteResourcePolicy where
toQuery = const mempty
data DeleteResourcePolicyResponse =
DeleteResourcePolicyResponse'
deriving (Eq, Read, Show, Data, Typeable, Generic)
deleteResourcePolicyResponse
:: DeleteResourcePolicyResponse
deleteResourcePolicyResponse = DeleteResourcePolicyResponse'
instance NFData DeleteResourcePolicyResponse where