module Network.AWS.AutoScaling.DeleteScheduledAction
(
deleteScheduledAction
, DeleteScheduledAction
, dsaAutoScalingGroupName
, dsaScheduledActionName
, deleteScheduledActionResponse
, DeleteScheduledActionResponse
) 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
data DeleteScheduledAction = DeleteScheduledAction'
{ _dsaAutoScalingGroupName :: !(Maybe Text)
, _dsaScheduledActionName :: !Text
} deriving (Eq,Read,Show,Data,Typeable,Generic)
deleteScheduledAction
:: Text
-> DeleteScheduledAction
deleteScheduledAction pScheduledActionName_ =
DeleteScheduledAction'
{ _dsaAutoScalingGroupName = Nothing
, _dsaScheduledActionName = pScheduledActionName_
}
dsaAutoScalingGroupName :: Lens' DeleteScheduledAction (Maybe Text)
dsaAutoScalingGroupName = lens _dsaAutoScalingGroupName (\ s a -> s{_dsaAutoScalingGroupName = a});
dsaScheduledActionName :: Lens' DeleteScheduledAction Text
dsaScheduledActionName = lens _dsaScheduledActionName (\ s a -> s{_dsaScheduledActionName = a});
instance AWSRequest DeleteScheduledAction where
type Rs DeleteScheduledAction =
DeleteScheduledActionResponse
request = postQuery autoScaling
response = receiveNull DeleteScheduledActionResponse'
instance Hashable DeleteScheduledAction
instance NFData DeleteScheduledAction
instance ToHeaders DeleteScheduledAction where
toHeaders = const mempty
instance ToPath DeleteScheduledAction where
toPath = const "/"
instance ToQuery DeleteScheduledAction where
toQuery DeleteScheduledAction'{..}
= mconcat
["Action" =: ("DeleteScheduledAction" :: ByteString),
"Version" =: ("2011-01-01" :: ByteString),
"AutoScalingGroupName" =: _dsaAutoScalingGroupName,
"ScheduledActionName" =: _dsaScheduledActionName]
data DeleteScheduledActionResponse =
DeleteScheduledActionResponse'
deriving (Eq,Read,Show,Data,Typeable,Generic)
deleteScheduledActionResponse
:: DeleteScheduledActionResponse
deleteScheduledActionResponse = DeleteScheduledActionResponse'
instance NFData DeleteScheduledActionResponse