{-# 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.ExitStandby
(
exitStandby
, ExitStandby
, eInstanceIds
, eAutoScalingGroupName
, exitStandbyResponse
, ExitStandbyResponse
, esrsActivities
, esrsResponseStatus
) 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 ExitStandby = ExitStandby'
{ _eInstanceIds :: !(Maybe [Text])
, _eAutoScalingGroupName :: !Text
} deriving (Eq, Read, Show, Data, Typeable, Generic)
exitStandby
:: Text
-> ExitStandby
exitStandby pAutoScalingGroupName_ =
ExitStandby'
{_eInstanceIds = Nothing, _eAutoScalingGroupName = pAutoScalingGroupName_}
eInstanceIds :: Lens' ExitStandby [Text]
eInstanceIds = lens _eInstanceIds (\ s a -> s{_eInstanceIds = a}) . _Default . _Coerce
eAutoScalingGroupName :: Lens' ExitStandby Text
eAutoScalingGroupName = lens _eAutoScalingGroupName (\ s a -> s{_eAutoScalingGroupName = a})
instance AWSRequest ExitStandby where
type Rs ExitStandby = ExitStandbyResponse
request = postQuery autoScaling
response
= receiveXMLWrapper "ExitStandbyResult"
(\ s h x ->
ExitStandbyResponse' <$>
(x .@? "Activities" .!@ mempty >>=
may (parseXMLList "member"))
<*> (pure (fromEnum s)))
instance Hashable ExitStandby where
instance NFData ExitStandby where
instance ToHeaders ExitStandby where
toHeaders = const mempty
instance ToPath ExitStandby where
toPath = const "/"
instance ToQuery ExitStandby where
toQuery ExitStandby'{..}
= mconcat
["Action" =: ("ExitStandby" :: ByteString),
"Version" =: ("2011-01-01" :: ByteString),
"InstanceIds" =:
toQuery (toQueryList "member" <$> _eInstanceIds),
"AutoScalingGroupName" =: _eAutoScalingGroupName]
data ExitStandbyResponse = ExitStandbyResponse'
{ _esrsActivities :: !(Maybe [Activity])
, _esrsResponseStatus :: !Int
} deriving (Eq, Read, Show, Data, Typeable, Generic)
exitStandbyResponse
:: Int
-> ExitStandbyResponse
exitStandbyResponse pResponseStatus_ =
ExitStandbyResponse'
{_esrsActivities = Nothing, _esrsResponseStatus = pResponseStatus_}
esrsActivities :: Lens' ExitStandbyResponse [Activity]
esrsActivities = lens _esrsActivities (\ s a -> s{_esrsActivities = a}) . _Default . _Coerce
esrsResponseStatus :: Lens' ExitStandbyResponse Int
esrsResponseStatus = lens _esrsResponseStatus (\ s a -> s{_esrsResponseStatus = a})
instance NFData ExitStandbyResponse where