{-# 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
instance NFData DeleteLaunchConfiguration
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