module Network.AWS.AutoScaling.ResumeProcesses
(
resumeProcesses
, ResumeProcesses
, rpScalingProcesses
, rpAutoScalingGroupName
, resumeProcessesResponse
, ResumeProcessesResponse
) 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 ResumeProcesses = ResumeProcesses'
{ _rpScalingProcesses :: !(Maybe [Text])
, _rpAutoScalingGroupName :: !Text
} deriving (Eq,Read,Show,Data,Typeable,Generic)
resumeProcesses
:: Text
-> ResumeProcesses
resumeProcesses pAutoScalingGroupName_ =
ResumeProcesses'
{ _rpScalingProcesses = Nothing
, _rpAutoScalingGroupName = pAutoScalingGroupName_
}
rpScalingProcesses :: Lens' ResumeProcesses [Text]
rpScalingProcesses = lens _rpScalingProcesses (\ s a -> s{_rpScalingProcesses = a}) . _Default . _Coerce;
rpAutoScalingGroupName :: Lens' ResumeProcesses Text
rpAutoScalingGroupName = lens _rpAutoScalingGroupName (\ s a -> s{_rpAutoScalingGroupName = a});
instance AWSRequest ResumeProcesses where
type Rs ResumeProcesses = ResumeProcessesResponse
request = postQuery autoScaling
response = receiveNull ResumeProcessesResponse'
instance Hashable ResumeProcesses
instance NFData ResumeProcesses
instance ToHeaders ResumeProcesses where
toHeaders = const mempty
instance ToPath ResumeProcesses where
toPath = const "/"
instance ToQuery ResumeProcesses where
toQuery ResumeProcesses'{..}
= mconcat
["Action" =: ("ResumeProcesses" :: ByteString),
"Version" =: ("2011-01-01" :: ByteString),
"ScalingProcesses" =:
toQuery
(toQueryList "member" <$> _rpScalingProcesses),
"AutoScalingGroupName" =: _rpAutoScalingGroupName]
data ResumeProcessesResponse =
ResumeProcessesResponse'
deriving (Eq,Read,Show,Data,Typeable,Generic)
resumeProcessesResponse
:: ResumeProcessesResponse
resumeProcessesResponse = ResumeProcessesResponse'
instance NFData ResumeProcessesResponse