module Network.AWS.ELB.ConfigureHealthCheck
(
configureHealthCheck
, ConfigureHealthCheck
, chcLoadBalancerName
, chcHealthCheck
, configureHealthCheckResponse
, ConfigureHealthCheckResponse
, chcrsHealthCheck
, chcrsResponseStatus
) where
import Network.AWS.ELB.Types
import Network.AWS.ELB.Types.Product
import Network.AWS.Prelude
import Network.AWS.Request
import Network.AWS.Response
data ConfigureHealthCheck = ConfigureHealthCheck'
{ _chcLoadBalancerName :: !Text
, _chcHealthCheck :: !HealthCheck
} deriving (Eq,Read,Show,Data,Typeable,Generic)
configureHealthCheck
:: Text
-> HealthCheck
-> ConfigureHealthCheck
configureHealthCheck pLoadBalancerName_ pHealthCheck_ =
ConfigureHealthCheck'
{ _chcLoadBalancerName = pLoadBalancerName_
, _chcHealthCheck = pHealthCheck_
}
chcLoadBalancerName :: Lens' ConfigureHealthCheck Text
chcLoadBalancerName = lens _chcLoadBalancerName (\ s a -> s{_chcLoadBalancerName = a});
chcHealthCheck :: Lens' ConfigureHealthCheck HealthCheck
chcHealthCheck = lens _chcHealthCheck (\ s a -> s{_chcHealthCheck = a});
instance AWSRequest ConfigureHealthCheck where
type Rs ConfigureHealthCheck =
ConfigureHealthCheckResponse
request = postQuery eLB
response
= receiveXMLWrapper "ConfigureHealthCheckResult"
(\ s h x ->
ConfigureHealthCheckResponse' <$>
(x .@? "HealthCheck") <*> (pure (fromEnum s)))
instance ToHeaders ConfigureHealthCheck where
toHeaders = const mempty
instance ToPath ConfigureHealthCheck where
toPath = const "/"
instance ToQuery ConfigureHealthCheck where
toQuery ConfigureHealthCheck'{..}
= mconcat
["Action" =: ("ConfigureHealthCheck" :: ByteString),
"Version" =: ("2012-06-01" :: ByteString),
"LoadBalancerName" =: _chcLoadBalancerName,
"HealthCheck" =: _chcHealthCheck]
data ConfigureHealthCheckResponse = ConfigureHealthCheckResponse'
{ _chcrsHealthCheck :: !(Maybe HealthCheck)
, _chcrsResponseStatus :: !Int
} deriving (Eq,Read,Show,Data,Typeable,Generic)
configureHealthCheckResponse
:: Int
-> ConfigureHealthCheckResponse
configureHealthCheckResponse pResponseStatus_ =
ConfigureHealthCheckResponse'
{ _chcrsHealthCheck = Nothing
, _chcrsResponseStatus = pResponseStatus_
}
chcrsHealthCheck :: Lens' ConfigureHealthCheckResponse (Maybe HealthCheck)
chcrsHealthCheck = lens _chcrsHealthCheck (\ s a -> s{_chcrsHealthCheck = a});
chcrsResponseStatus :: Lens' ConfigureHealthCheckResponse Int
chcrsResponseStatus = lens _chcrsResponseStatus (\ s a -> s{_chcrsResponseStatus = a});