{-# 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.EC2.DeleteLaunchTemplate
(
deleteLaunchTemplate
, DeleteLaunchTemplate
, dltLaunchTemplateName
, dltLaunchTemplateId
, dltDryRun
, deleteLaunchTemplateResponse
, DeleteLaunchTemplateResponse
, dltrsLaunchTemplate
, dltrsResponseStatus
) where
import Network.AWS.EC2.Types
import Network.AWS.EC2.Types.Product
import Network.AWS.Lens
import Network.AWS.Prelude
import Network.AWS.Request
import Network.AWS.Response
data DeleteLaunchTemplate = DeleteLaunchTemplate'
{ _dltLaunchTemplateName :: !(Maybe Text)
, _dltLaunchTemplateId :: !(Maybe Text)
, _dltDryRun :: !(Maybe Bool)
} deriving (Eq, Read, Show, Data, Typeable, Generic)
deleteLaunchTemplate
:: DeleteLaunchTemplate
deleteLaunchTemplate =
DeleteLaunchTemplate'
{ _dltLaunchTemplateName = Nothing
, _dltLaunchTemplateId = Nothing
, _dltDryRun = Nothing
}
dltLaunchTemplateName :: Lens' DeleteLaunchTemplate (Maybe Text)
dltLaunchTemplateName = lens _dltLaunchTemplateName (\ s a -> s{_dltLaunchTemplateName = a})
dltLaunchTemplateId :: Lens' DeleteLaunchTemplate (Maybe Text)
dltLaunchTemplateId = lens _dltLaunchTemplateId (\ s a -> s{_dltLaunchTemplateId = a})
dltDryRun :: Lens' DeleteLaunchTemplate (Maybe Bool)
dltDryRun = lens _dltDryRun (\ s a -> s{_dltDryRun = a})
instance AWSRequest DeleteLaunchTemplate where
type Rs DeleteLaunchTemplate =
DeleteLaunchTemplateResponse
request = postQuery ec2
response
= receiveXML
(\ s h x ->
DeleteLaunchTemplateResponse' <$>
(x .@? "launchTemplate") <*> (pure (fromEnum s)))
instance Hashable DeleteLaunchTemplate where
instance NFData DeleteLaunchTemplate where
instance ToHeaders DeleteLaunchTemplate where
toHeaders = const mempty
instance ToPath DeleteLaunchTemplate where
toPath = const "/"
instance ToQuery DeleteLaunchTemplate where
toQuery DeleteLaunchTemplate'{..}
= mconcat
["Action" =: ("DeleteLaunchTemplate" :: ByteString),
"Version" =: ("2016-11-15" :: ByteString),
"LaunchTemplateName" =: _dltLaunchTemplateName,
"LaunchTemplateId" =: _dltLaunchTemplateId,
"DryRun" =: _dltDryRun]
data DeleteLaunchTemplateResponse = DeleteLaunchTemplateResponse'
{ _dltrsLaunchTemplate :: !(Maybe LaunchTemplate)
, _dltrsResponseStatus :: !Int
} deriving (Eq, Read, Show, Data, Typeable, Generic)
deleteLaunchTemplateResponse
:: Int
-> DeleteLaunchTemplateResponse
deleteLaunchTemplateResponse pResponseStatus_ =
DeleteLaunchTemplateResponse'
{_dltrsLaunchTemplate = Nothing, _dltrsResponseStatus = pResponseStatus_}
dltrsLaunchTemplate :: Lens' DeleteLaunchTemplateResponse (Maybe LaunchTemplate)
dltrsLaunchTemplate = lens _dltrsLaunchTemplate (\ s a -> s{_dltrsLaunchTemplate = a})
dltrsResponseStatus :: Lens' DeleteLaunchTemplateResponse Int
dltrsResponseStatus = lens _dltrsResponseStatus (\ s a -> s{_dltrsResponseStatus = a})
instance NFData DeleteLaunchTemplateResponse where