module Network.AWS.CloudWatchLogs.DeleteRetentionPolicy
(
DeleteRetentionPolicy
, deleteRetentionPolicy
, drpLogGroupName
, DeleteRetentionPolicyResponse
, deleteRetentionPolicyResponse
) where
import Network.AWS.Prelude
import Network.AWS.Request.JSON
import Network.AWS.CloudWatchLogs.Types
import qualified GHC.Exts
newtype DeleteRetentionPolicy = DeleteRetentionPolicy
{ _drpLogGroupName :: Text
} deriving (Eq, Ord, Show, Monoid, IsString)
deleteRetentionPolicy :: Text
-> DeleteRetentionPolicy
deleteRetentionPolicy p1 = DeleteRetentionPolicy
{ _drpLogGroupName = p1
}
drpLogGroupName :: Lens' DeleteRetentionPolicy Text
drpLogGroupName = lens _drpLogGroupName (\s a -> s { _drpLogGroupName = a })
data DeleteRetentionPolicyResponse = DeleteRetentionPolicyResponse
deriving (Eq, Ord, Show, Generic)
deleteRetentionPolicyResponse :: DeleteRetentionPolicyResponse
deleteRetentionPolicyResponse = DeleteRetentionPolicyResponse
instance ToPath DeleteRetentionPolicy where
toPath = const "/"
instance ToQuery DeleteRetentionPolicy where
toQuery = const mempty
instance ToHeaders DeleteRetentionPolicy
instance ToJSON DeleteRetentionPolicy where
toJSON DeleteRetentionPolicy{..} = object
[ "logGroupName" .= _drpLogGroupName
]
instance AWSRequest DeleteRetentionPolicy where
type Sv DeleteRetentionPolicy = CloudWatchLogs
type Rs DeleteRetentionPolicy = DeleteRetentionPolicyResponse
request = post "DeleteRetentionPolicy"
response = nullResponse DeleteRetentionPolicyResponse