module Network.AWS.AutoScaling.DisableMetricsCollection
(
DisableMetricsCollection
, disableMetricsCollection
, dmcAutoScalingGroupName
, dmcMetrics
, DisableMetricsCollectionResponse
, disableMetricsCollectionResponse
) where
import Network.AWS.Prelude
import Network.AWS.Request.Query
import Network.AWS.AutoScaling.Types
import qualified GHC.Exts
data DisableMetricsCollection = DisableMetricsCollection
{ _dmcAutoScalingGroupName :: Text
, _dmcMetrics :: List "Metrics" Text
} deriving (Eq, Ord, Show)
disableMetricsCollection :: Text
-> DisableMetricsCollection
disableMetricsCollection p1 = DisableMetricsCollection
{ _dmcAutoScalingGroupName = p1
, _dmcMetrics = mempty
}
dmcAutoScalingGroupName :: Lens' DisableMetricsCollection Text
dmcAutoScalingGroupName =
lens _dmcAutoScalingGroupName (\s a -> s { _dmcAutoScalingGroupName = a })
dmcMetrics :: Lens' DisableMetricsCollection [Text]
dmcMetrics = lens _dmcMetrics (\s a -> s { _dmcMetrics = a }) . _List
data DisableMetricsCollectionResponse = DisableMetricsCollectionResponse
deriving (Eq, Ord, Show, Generic)
disableMetricsCollectionResponse :: DisableMetricsCollectionResponse
disableMetricsCollectionResponse = DisableMetricsCollectionResponse
instance ToPath DisableMetricsCollection where
toPath = const "/"
instance ToQuery DisableMetricsCollection where
toQuery DisableMetricsCollection{..} = mconcat
[ "AutoScalingGroupName" =? _dmcAutoScalingGroupName
, "Metrics" =? _dmcMetrics
]
instance ToHeaders DisableMetricsCollection
instance AWSRequest DisableMetricsCollection where
type Sv DisableMetricsCollection = AutoScaling
type Rs DisableMetricsCollection = DisableMetricsCollectionResponse
request = post "DisableMetricsCollection"
response = nullResponse DisableMetricsCollectionResponse