module Network.AWS.AutoScaling.SetInstanceHealth
(
setInstanceHealth
, SetInstanceHealth
, sihShouldRespectGracePeriod
, sihInstanceId
, sihHealthStatus
, setInstanceHealthResponse
, SetInstanceHealthResponse
) 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 SetInstanceHealth = SetInstanceHealth'
{ _sihShouldRespectGracePeriod :: !(Maybe Bool)
, _sihInstanceId :: !Text
, _sihHealthStatus :: !Text
} deriving (Eq,Read,Show,Data,Typeable,Generic)
setInstanceHealth
:: Text
-> Text
-> SetInstanceHealth
setInstanceHealth pInstanceId_ pHealthStatus_ =
SetInstanceHealth'
{ _sihShouldRespectGracePeriod = Nothing
, _sihInstanceId = pInstanceId_
, _sihHealthStatus = pHealthStatus_
}
sihShouldRespectGracePeriod :: Lens' SetInstanceHealth (Maybe Bool)
sihShouldRespectGracePeriod = lens _sihShouldRespectGracePeriod (\ s a -> s{_sihShouldRespectGracePeriod = a});
sihInstanceId :: Lens' SetInstanceHealth Text
sihInstanceId = lens _sihInstanceId (\ s a -> s{_sihInstanceId = a});
sihHealthStatus :: Lens' SetInstanceHealth Text
sihHealthStatus = lens _sihHealthStatus (\ s a -> s{_sihHealthStatus = a});
instance AWSRequest SetInstanceHealth where
type Rs SetInstanceHealth = SetInstanceHealthResponse
request = postQuery autoScaling
response = receiveNull SetInstanceHealthResponse'
instance Hashable SetInstanceHealth
instance NFData SetInstanceHealth
instance ToHeaders SetInstanceHealth where
toHeaders = const mempty
instance ToPath SetInstanceHealth where
toPath = const "/"
instance ToQuery SetInstanceHealth where
toQuery SetInstanceHealth'{..}
= mconcat
["Action" =: ("SetInstanceHealth" :: ByteString),
"Version" =: ("2011-01-01" :: ByteString),
"ShouldRespectGracePeriod" =:
_sihShouldRespectGracePeriod,
"InstanceId" =: _sihInstanceId,
"HealthStatus" =: _sihHealthStatus]
data SetInstanceHealthResponse =
SetInstanceHealthResponse'
deriving (Eq,Read,Show,Data,Typeable,Generic)
setInstanceHealthResponse
:: SetInstanceHealthResponse
setInstanceHealthResponse = SetInstanceHealthResponse'
instance NFData SetInstanceHealthResponse