{-# 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.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 where
instance NFData SetInstanceHealth where
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 where