module Network.AWS.Route53.GetHealthCheckCount
(
getHealthCheckCount
, GetHealthCheckCount
, getHealthCheckCountResponse
, GetHealthCheckCountResponse
, ghccrsResponseStatus
, ghccrsHealthCheckCount
) where
import Network.AWS.Lens
import Network.AWS.Prelude
import Network.AWS.Request
import Network.AWS.Response
import Network.AWS.Route53.Types
import Network.AWS.Route53.Types.Product
data GetHealthCheckCount =
GetHealthCheckCount'
deriving (Eq,Read,Show,Data,Typeable,Generic)
getHealthCheckCount
:: GetHealthCheckCount
getHealthCheckCount = GetHealthCheckCount'
instance AWSRequest GetHealthCheckCount where
type Rs GetHealthCheckCount =
GetHealthCheckCountResponse
request = get route53
response
= receiveXML
(\ s h x ->
GetHealthCheckCountResponse' <$>
(pure (fromEnum s)) <*> (x .@ "HealthCheckCount"))
instance Hashable GetHealthCheckCount
instance NFData GetHealthCheckCount
instance ToHeaders GetHealthCheckCount where
toHeaders = const mempty
instance ToPath GetHealthCheckCount where
toPath = const "/2013-04-01/healthcheckcount"
instance ToQuery GetHealthCheckCount where
toQuery = const mempty
data GetHealthCheckCountResponse = GetHealthCheckCountResponse'
{ _ghccrsResponseStatus :: !Int
, _ghccrsHealthCheckCount :: !Integer
} deriving (Eq,Read,Show,Data,Typeable,Generic)
getHealthCheckCountResponse
:: Int
-> Integer
-> GetHealthCheckCountResponse
getHealthCheckCountResponse pResponseStatus_ pHealthCheckCount_ =
GetHealthCheckCountResponse'
{ _ghccrsResponseStatus = pResponseStatus_
, _ghccrsHealthCheckCount = pHealthCheckCount_
}
ghccrsResponseStatus :: Lens' GetHealthCheckCountResponse Int
ghccrsResponseStatus = lens _ghccrsResponseStatus (\ s a -> s{_ghccrsResponseStatus = a});
ghccrsHealthCheckCount :: Lens' GetHealthCheckCountResponse Integer
ghccrsHealthCheckCount = lens _ghccrsHealthCheckCount (\ s a -> s{_ghccrsHealthCheckCount = a});
instance NFData GetHealthCheckCountResponse