{-# 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.AutoScaling.DeleteLaunchConfiguration
(
deleteLaunchConfiguration
, DeleteLaunchConfiguration
, dlcLaunchConfigurationName
, deleteLaunchConfigurationResponse
, DeleteLaunchConfigurationResponse
) where
import Network.AWS.AutoScaling.Types
import Network.AWS.AutoScaling.Types.Product
import Network.AWS.Lens
import Network.AWS.Prelude
import Network.AWS.Request
import Network.AWS.Response
newtype DeleteLaunchConfiguration = DeleteLaunchConfiguration'
{ _dlcLaunchConfigurationName :: Text
} deriving (Eq, Read, Show, Data, Typeable, Generic)
deleteLaunchConfiguration
:: Text
-> DeleteLaunchConfiguration
deleteLaunchConfiguration pLaunchConfigurationName_ =
DeleteLaunchConfiguration'
{_dlcLaunchConfigurationName = pLaunchConfigurationName_}
dlcLaunchConfigurationName :: Lens' DeleteLaunchConfiguration Text
dlcLaunchConfigurationName = lens _dlcLaunchConfigurationName (\ s a -> s{_dlcLaunchConfigurationName = a})
instance AWSRequest DeleteLaunchConfiguration where
type Rs DeleteLaunchConfiguration =
DeleteLaunchConfigurationResponse
request = postQuery autoScaling
response
= receiveNull DeleteLaunchConfigurationResponse'
instance Hashable DeleteLaunchConfiguration where
instance NFData DeleteLaunchConfiguration where
instance ToHeaders DeleteLaunchConfiguration where
toHeaders = const mempty
instance ToPath DeleteLaunchConfiguration where
toPath = const "/"
instance ToQuery DeleteLaunchConfiguration where
toQuery DeleteLaunchConfiguration'{..}
= mconcat
["Action" =:
("DeleteLaunchConfiguration" :: ByteString),
"Version" =: ("2011-01-01" :: ByteString),
"LaunchConfigurationName" =:
_dlcLaunchConfigurationName]
data DeleteLaunchConfigurationResponse =
DeleteLaunchConfigurationResponse'
deriving (Eq, Read, Show, Data, Typeable, Generic)
deleteLaunchConfigurationResponse
:: DeleteLaunchConfigurationResponse
deleteLaunchConfigurationResponse = DeleteLaunchConfigurationResponse'
instance NFData DeleteLaunchConfigurationResponse
where