module Network.AWS.OpsWorks.SetTimeBasedAutoScaling
(
setTimeBasedAutoScaling
, SetTimeBasedAutoScaling
, stbasAutoScalingSchedule
, stbasInstanceId
, setTimeBasedAutoScalingResponse
, SetTimeBasedAutoScalingResponse
) where
import Network.AWS.OpsWorks.Types
import Network.AWS.OpsWorks.Types.Product
import Network.AWS.Prelude
import Network.AWS.Request
import Network.AWS.Response
data SetTimeBasedAutoScaling = SetTimeBasedAutoScaling'
{ _stbasAutoScalingSchedule :: !(Maybe WeeklyAutoScalingSchedule)
, _stbasInstanceId :: !Text
} deriving (Eq,Read,Show,Data,Typeable,Generic)
setTimeBasedAutoScaling
:: Text
-> SetTimeBasedAutoScaling
setTimeBasedAutoScaling pInstanceId_ =
SetTimeBasedAutoScaling'
{ _stbasAutoScalingSchedule = Nothing
, _stbasInstanceId = pInstanceId_
}
stbasAutoScalingSchedule :: Lens' SetTimeBasedAutoScaling (Maybe WeeklyAutoScalingSchedule)
stbasAutoScalingSchedule = lens _stbasAutoScalingSchedule (\ s a -> s{_stbasAutoScalingSchedule = a});
stbasInstanceId :: Lens' SetTimeBasedAutoScaling Text
stbasInstanceId = lens _stbasInstanceId (\ s a -> s{_stbasInstanceId = a});
instance AWSRequest SetTimeBasedAutoScaling where
type Rs SetTimeBasedAutoScaling =
SetTimeBasedAutoScalingResponse
request = postJSON opsWorks
response
= receiveNull SetTimeBasedAutoScalingResponse'
instance ToHeaders SetTimeBasedAutoScaling where
toHeaders
= const
(mconcat
["X-Amz-Target" =#
("OpsWorks_20130218.SetTimeBasedAutoScaling" ::
ByteString),
"Content-Type" =#
("application/x-amz-json-1.1" :: ByteString)])
instance ToJSON SetTimeBasedAutoScaling where
toJSON SetTimeBasedAutoScaling'{..}
= object
(catMaybes
[("AutoScalingSchedule" .=) <$>
_stbasAutoScalingSchedule,
Just ("InstanceId" .= _stbasInstanceId)])
instance ToPath SetTimeBasedAutoScaling where
toPath = const "/"
instance ToQuery SetTimeBasedAutoScaling where
toQuery = const mempty
data SetTimeBasedAutoScalingResponse =
SetTimeBasedAutoScalingResponse'
deriving (Eq,Read,Show,Data,Typeable,Generic)
setTimeBasedAutoScalingResponse
:: SetTimeBasedAutoScalingResponse
setTimeBasedAutoScalingResponse = SetTimeBasedAutoScalingResponse'