{-# 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.Route53AutoNaming.UpdateInstanceCustomHealthStatus
(
updateInstanceCustomHealthStatus
, UpdateInstanceCustomHealthStatus
, uichsServiceId
, uichsInstanceId
, uichsStatus
, updateInstanceCustomHealthStatusResponse
, UpdateInstanceCustomHealthStatusResponse
) where
import Network.AWS.Lens
import Network.AWS.Prelude
import Network.AWS.Request
import Network.AWS.Response
import Network.AWS.Route53AutoNaming.Types
import Network.AWS.Route53AutoNaming.Types.Product
data UpdateInstanceCustomHealthStatus = UpdateInstanceCustomHealthStatus'
{ _uichsServiceId :: !Text
, _uichsInstanceId :: !Text
, _uichsStatus :: !CustomHealthStatus
} deriving (Eq, Read, Show, Data, Typeable, Generic)
updateInstanceCustomHealthStatus
:: Text
-> Text
-> CustomHealthStatus
-> UpdateInstanceCustomHealthStatus
updateInstanceCustomHealthStatus pServiceId_ pInstanceId_ pStatus_ =
UpdateInstanceCustomHealthStatus'
{ _uichsServiceId = pServiceId_
, _uichsInstanceId = pInstanceId_
, _uichsStatus = pStatus_
}
uichsServiceId :: Lens' UpdateInstanceCustomHealthStatus Text
uichsServiceId = lens _uichsServiceId (\ s a -> s{_uichsServiceId = a})
uichsInstanceId :: Lens' UpdateInstanceCustomHealthStatus Text
uichsInstanceId = lens _uichsInstanceId (\ s a -> s{_uichsInstanceId = a})
uichsStatus :: Lens' UpdateInstanceCustomHealthStatus CustomHealthStatus
uichsStatus = lens _uichsStatus (\ s a -> s{_uichsStatus = a})
instance AWSRequest UpdateInstanceCustomHealthStatus
where
type Rs UpdateInstanceCustomHealthStatus =
UpdateInstanceCustomHealthStatusResponse
request = postJSON route53AutoNaming
response
= receiveNull
UpdateInstanceCustomHealthStatusResponse'
instance Hashable UpdateInstanceCustomHealthStatus
where
instance NFData UpdateInstanceCustomHealthStatus
where
instance ToHeaders UpdateInstanceCustomHealthStatus
where
toHeaders
= const
(mconcat
["X-Amz-Target" =#
("Route53AutoNaming_v20170314.UpdateInstanceCustomHealthStatus"
:: ByteString),
"Content-Type" =#
("application/x-amz-json-1.1" :: ByteString)])
instance ToJSON UpdateInstanceCustomHealthStatus
where
toJSON UpdateInstanceCustomHealthStatus'{..}
= object
(catMaybes
[Just ("ServiceId" .= _uichsServiceId),
Just ("InstanceId" .= _uichsInstanceId),
Just ("Status" .= _uichsStatus)])
instance ToPath UpdateInstanceCustomHealthStatus
where
toPath = const "/"
instance ToQuery UpdateInstanceCustomHealthStatus
where
toQuery = const mempty
data UpdateInstanceCustomHealthStatusResponse =
UpdateInstanceCustomHealthStatusResponse'
deriving (Eq, Read, Show, Data, Typeable, Generic)
updateInstanceCustomHealthStatusResponse
:: UpdateInstanceCustomHealthStatusResponse
updateInstanceCustomHealthStatusResponse =
UpdateInstanceCustomHealthStatusResponse'
instance NFData
UpdateInstanceCustomHealthStatusResponse
where