module Network.AWS.AutoScaling.PutScalingPolicy
(
putScalingPolicy
, PutScalingPolicy
, pspMinAdjustmentStep
, pspEstimatedInstanceWarmup
, pspPolicyType
, pspStepAdjustments
, pspScalingAdjustment
, pspCooldown
, pspMetricAggregationType
, pspMinAdjustmentMagnitude
, pspAutoScalingGroupName
, pspPolicyName
, pspAdjustmentType
, putScalingPolicyResponse
, PutScalingPolicyResponse
, psprsPolicyARN
, psprsResponseStatus
) 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 PutScalingPolicy = PutScalingPolicy'
{ _pspMinAdjustmentStep :: !(Maybe Int)
, _pspEstimatedInstanceWarmup :: !(Maybe Int)
, _pspPolicyType :: !(Maybe Text)
, _pspStepAdjustments :: !(Maybe [StepAdjustment])
, _pspScalingAdjustment :: !(Maybe Int)
, _pspCooldown :: !(Maybe Int)
, _pspMetricAggregationType :: !(Maybe Text)
, _pspMinAdjustmentMagnitude :: !(Maybe Int)
, _pspAutoScalingGroupName :: !Text
, _pspPolicyName :: !Text
, _pspAdjustmentType :: !Text
} deriving (Eq,Read,Show,Data,Typeable,Generic)
putScalingPolicy
:: Text
-> Text
-> Text
-> PutScalingPolicy
putScalingPolicy pAutoScalingGroupName_ pPolicyName_ pAdjustmentType_ =
PutScalingPolicy'
{ _pspMinAdjustmentStep = Nothing
, _pspEstimatedInstanceWarmup = Nothing
, _pspPolicyType = Nothing
, _pspStepAdjustments = Nothing
, _pspScalingAdjustment = Nothing
, _pspCooldown = Nothing
, _pspMetricAggregationType = Nothing
, _pspMinAdjustmentMagnitude = Nothing
, _pspAutoScalingGroupName = pAutoScalingGroupName_
, _pspPolicyName = pPolicyName_
, _pspAdjustmentType = pAdjustmentType_
}
pspMinAdjustmentStep :: Lens' PutScalingPolicy (Maybe Int)
pspMinAdjustmentStep = lens _pspMinAdjustmentStep (\ s a -> s{_pspMinAdjustmentStep = a});
pspEstimatedInstanceWarmup :: Lens' PutScalingPolicy (Maybe Int)
pspEstimatedInstanceWarmup = lens _pspEstimatedInstanceWarmup (\ s a -> s{_pspEstimatedInstanceWarmup = a});
pspPolicyType :: Lens' PutScalingPolicy (Maybe Text)
pspPolicyType = lens _pspPolicyType (\ s a -> s{_pspPolicyType = a});
pspStepAdjustments :: Lens' PutScalingPolicy [StepAdjustment]
pspStepAdjustments = lens _pspStepAdjustments (\ s a -> s{_pspStepAdjustments = a}) . _Default . _Coerce;
pspScalingAdjustment :: Lens' PutScalingPolicy (Maybe Int)
pspScalingAdjustment = lens _pspScalingAdjustment (\ s a -> s{_pspScalingAdjustment = a});
pspCooldown :: Lens' PutScalingPolicy (Maybe Int)
pspCooldown = lens _pspCooldown (\ s a -> s{_pspCooldown = a});
pspMetricAggregationType :: Lens' PutScalingPolicy (Maybe Text)
pspMetricAggregationType = lens _pspMetricAggregationType (\ s a -> s{_pspMetricAggregationType = a});
pspMinAdjustmentMagnitude :: Lens' PutScalingPolicy (Maybe Int)
pspMinAdjustmentMagnitude = lens _pspMinAdjustmentMagnitude (\ s a -> s{_pspMinAdjustmentMagnitude = a});
pspAutoScalingGroupName :: Lens' PutScalingPolicy Text
pspAutoScalingGroupName = lens _pspAutoScalingGroupName (\ s a -> s{_pspAutoScalingGroupName = a});
pspPolicyName :: Lens' PutScalingPolicy Text
pspPolicyName = lens _pspPolicyName (\ s a -> s{_pspPolicyName = a});
pspAdjustmentType :: Lens' PutScalingPolicy Text
pspAdjustmentType = lens _pspAdjustmentType (\ s a -> s{_pspAdjustmentType = a});
instance AWSRequest PutScalingPolicy where
type Rs PutScalingPolicy = PutScalingPolicyResponse
request = postQuery autoScaling
response
= receiveXMLWrapper "PutScalingPolicyResult"
(\ s h x ->
PutScalingPolicyResponse' <$>
(x .@? "PolicyARN") <*> (pure (fromEnum s)))
instance Hashable PutScalingPolicy
instance NFData PutScalingPolicy
instance ToHeaders PutScalingPolicy where
toHeaders = const mempty
instance ToPath PutScalingPolicy where
toPath = const "/"
instance ToQuery PutScalingPolicy where
toQuery PutScalingPolicy'{..}
= mconcat
["Action" =: ("PutScalingPolicy" :: ByteString),
"Version" =: ("2011-01-01" :: ByteString),
"MinAdjustmentStep" =: _pspMinAdjustmentStep,
"EstimatedInstanceWarmup" =:
_pspEstimatedInstanceWarmup,
"PolicyType" =: _pspPolicyType,
"StepAdjustments" =:
toQuery
(toQueryList "member" <$> _pspStepAdjustments),
"ScalingAdjustment" =: _pspScalingAdjustment,
"Cooldown" =: _pspCooldown,
"MetricAggregationType" =: _pspMetricAggregationType,
"MinAdjustmentMagnitude" =:
_pspMinAdjustmentMagnitude,
"AutoScalingGroupName" =: _pspAutoScalingGroupName,
"PolicyName" =: _pspPolicyName,
"AdjustmentType" =: _pspAdjustmentType]
data PutScalingPolicyResponse = PutScalingPolicyResponse'
{ _psprsPolicyARN :: !(Maybe Text)
, _psprsResponseStatus :: !Int
} deriving (Eq,Read,Show,Data,Typeable,Generic)
putScalingPolicyResponse
:: Int
-> PutScalingPolicyResponse
putScalingPolicyResponse pResponseStatus_ =
PutScalingPolicyResponse'
{ _psprsPolicyARN = Nothing
, _psprsResponseStatus = pResponseStatus_
}
psprsPolicyARN :: Lens' PutScalingPolicyResponse (Maybe Text)
psprsPolicyARN = lens _psprsPolicyARN (\ s a -> s{_psprsPolicyARN = a});
psprsResponseStatus :: Lens' PutScalingPolicyResponse Int
psprsResponseStatus = lens _psprsResponseStatus (\ s a -> s{_psprsResponseStatus = a});
instance NFData PutScalingPolicyResponse