{-# 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.OpsWorks.SetLoadBasedAutoScaling
(
setLoadBasedAutoScaling
, SetLoadBasedAutoScaling
, slbasUpScaling
, slbasEnable
, slbasDownScaling
, slbasLayerId
, setLoadBasedAutoScalingResponse
, SetLoadBasedAutoScalingResponse
) where
import Network.AWS.Lens
import Network.AWS.OpsWorks.Types
import Network.AWS.OpsWorks.Types.Product
import Network.AWS.Prelude
import Network.AWS.Request
import Network.AWS.Response
data SetLoadBasedAutoScaling = SetLoadBasedAutoScaling'
{ _slbasUpScaling :: !(Maybe AutoScalingThresholds)
, _slbasEnable :: !(Maybe Bool)
, _slbasDownScaling :: !(Maybe AutoScalingThresholds)
, _slbasLayerId :: !Text
} deriving (Eq, Read, Show, Data, Typeable, Generic)
setLoadBasedAutoScaling
:: Text
-> SetLoadBasedAutoScaling
setLoadBasedAutoScaling pLayerId_ =
SetLoadBasedAutoScaling'
{ _slbasUpScaling = Nothing
, _slbasEnable = Nothing
, _slbasDownScaling = Nothing
, _slbasLayerId = pLayerId_
}
slbasUpScaling :: Lens' SetLoadBasedAutoScaling (Maybe AutoScalingThresholds)
slbasUpScaling = lens _slbasUpScaling (\ s a -> s{_slbasUpScaling = a})
slbasEnable :: Lens' SetLoadBasedAutoScaling (Maybe Bool)
slbasEnable = lens _slbasEnable (\ s a -> s{_slbasEnable = a})
slbasDownScaling :: Lens' SetLoadBasedAutoScaling (Maybe AutoScalingThresholds)
slbasDownScaling = lens _slbasDownScaling (\ s a -> s{_slbasDownScaling = a})
slbasLayerId :: Lens' SetLoadBasedAutoScaling Text
slbasLayerId = lens _slbasLayerId (\ s a -> s{_slbasLayerId = a})
instance AWSRequest SetLoadBasedAutoScaling where
type Rs SetLoadBasedAutoScaling =
SetLoadBasedAutoScalingResponse
request = postJSON opsWorks
response
= receiveNull SetLoadBasedAutoScalingResponse'
instance Hashable SetLoadBasedAutoScaling where
instance NFData SetLoadBasedAutoScaling where
instance ToHeaders SetLoadBasedAutoScaling where
toHeaders
= const
(mconcat
["X-Amz-Target" =#
("OpsWorks_20130218.SetLoadBasedAutoScaling" ::
ByteString),
"Content-Type" =#
("application/x-amz-json-1.1" :: ByteString)])
instance ToJSON SetLoadBasedAutoScaling where
toJSON SetLoadBasedAutoScaling'{..}
= object
(catMaybes
[("UpScaling" .=) <$> _slbasUpScaling,
("Enable" .=) <$> _slbasEnable,
("DownScaling" .=) <$> _slbasDownScaling,
Just ("LayerId" .= _slbasLayerId)])
instance ToPath SetLoadBasedAutoScaling where
toPath = const "/"
instance ToQuery SetLoadBasedAutoScaling where
toQuery = const mempty
data SetLoadBasedAutoScalingResponse =
SetLoadBasedAutoScalingResponse'
deriving (Eq, Read, Show, Data, Typeable, Generic)
setLoadBasedAutoScalingResponse
:: SetLoadBasedAutoScalingResponse
setLoadBasedAutoScalingResponse = SetLoadBasedAutoScalingResponse'
instance NFData SetLoadBasedAutoScalingResponse where