{-# 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.ExecutePolicy
(
executePolicy
, ExecutePolicy
, epHonorCooldown
, epMetricValue
, epAutoScalingGroupName
, epBreachThreshold
, epPolicyName
, executePolicyResponse
, ExecutePolicyResponse
) 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 ExecutePolicy = ExecutePolicy'
{ _epHonorCooldown :: !(Maybe Bool)
, _epMetricValue :: !(Maybe Double)
, _epAutoScalingGroupName :: !(Maybe Text)
, _epBreachThreshold :: !(Maybe Double)
, _epPolicyName :: !Text
} deriving (Eq,Read,Show,Data,Typeable,Generic)
executePolicy
:: Text
-> ExecutePolicy
executePolicy pPolicyName_ =
ExecutePolicy'
{ _epHonorCooldown = Nothing
, _epMetricValue = Nothing
, _epAutoScalingGroupName = Nothing
, _epBreachThreshold = Nothing
, _epPolicyName = pPolicyName_
}
epHonorCooldown :: Lens' ExecutePolicy (Maybe Bool)
epHonorCooldown = lens _epHonorCooldown (\ s a -> s{_epHonorCooldown = a});
epMetricValue :: Lens' ExecutePolicy (Maybe Double)
epMetricValue = lens _epMetricValue (\ s a -> s{_epMetricValue = a});
epAutoScalingGroupName :: Lens' ExecutePolicy (Maybe Text)
epAutoScalingGroupName = lens _epAutoScalingGroupName (\ s a -> s{_epAutoScalingGroupName = a});
epBreachThreshold :: Lens' ExecutePolicy (Maybe Double)
epBreachThreshold = lens _epBreachThreshold (\ s a -> s{_epBreachThreshold = a});
epPolicyName :: Lens' ExecutePolicy Text
epPolicyName = lens _epPolicyName (\ s a -> s{_epPolicyName = a});
instance AWSRequest ExecutePolicy where
type Rs ExecutePolicy = ExecutePolicyResponse
request = postQuery autoScaling
response = receiveNull ExecutePolicyResponse'
instance Hashable ExecutePolicy
instance NFData ExecutePolicy
instance ToHeaders ExecutePolicy where
toHeaders = const mempty
instance ToPath ExecutePolicy where
toPath = const "/"
instance ToQuery ExecutePolicy where
toQuery ExecutePolicy'{..}
= mconcat
["Action" =: ("ExecutePolicy" :: ByteString),
"Version" =: ("2011-01-01" :: ByteString),
"HonorCooldown" =: _epHonorCooldown,
"MetricValue" =: _epMetricValue,
"AutoScalingGroupName" =: _epAutoScalingGroupName,
"BreachThreshold" =: _epBreachThreshold,
"PolicyName" =: _epPolicyName]
data ExecutePolicyResponse =
ExecutePolicyResponse'
deriving (Eq,Read,Show,Data,Typeable,Generic)
executePolicyResponse
:: ExecutePolicyResponse
executePolicyResponse = ExecutePolicyResponse'
instance NFData ExecutePolicyResponse