module Network.AWS.Route53.GetHealthCheckStatus
(
getHealthCheckStatus
, GetHealthCheckStatus
, ghcsHealthCheckId
, getHealthCheckStatusResponse
, GetHealthCheckStatusResponse
, ghcsrsStatus
, ghcsrsHealthCheckObservations
) where
import Network.AWS.Prelude
import Network.AWS.Request
import Network.AWS.Response
import Network.AWS.Route53.Types
import Network.AWS.Route53.Types.Product
newtype GetHealthCheckStatus = GetHealthCheckStatus'
{ _ghcsHealthCheckId :: Text
} deriving (Eq,Read,Show,Data,Typeable,Generic)
getHealthCheckStatus
:: Text
-> GetHealthCheckStatus
getHealthCheckStatus pHealthCheckId_ =
GetHealthCheckStatus'
{ _ghcsHealthCheckId = pHealthCheckId_
}
ghcsHealthCheckId :: Lens' GetHealthCheckStatus Text
ghcsHealthCheckId = lens _ghcsHealthCheckId (\ s a -> s{_ghcsHealthCheckId = a});
instance AWSRequest GetHealthCheckStatus where
type Rs GetHealthCheckStatus =
GetHealthCheckStatusResponse
request = get route53
response
= receiveXML
(\ s h x ->
GetHealthCheckStatusResponse' <$>
(pure (fromEnum s)) <*>
(x .@? "HealthCheckObservations" .!@ mempty >>=
parseXMLList "HealthCheckObservation"))
instance ToHeaders GetHealthCheckStatus where
toHeaders = const mempty
instance ToPath GetHealthCheckStatus where
toPath GetHealthCheckStatus'{..}
= mconcat
["/2013-04-01/healthcheck/", toBS _ghcsHealthCheckId,
"/status"]
instance ToQuery GetHealthCheckStatus where
toQuery = const mempty
data GetHealthCheckStatusResponse = GetHealthCheckStatusResponse'
{ _ghcsrsStatus :: !Int
, _ghcsrsHealthCheckObservations :: ![HealthCheckObservation]
} deriving (Eq,Read,Show,Data,Typeable,Generic)
getHealthCheckStatusResponse
:: Int
-> GetHealthCheckStatusResponse
getHealthCheckStatusResponse pStatus_ =
GetHealthCheckStatusResponse'
{ _ghcsrsStatus = pStatus_
, _ghcsrsHealthCheckObservations = mempty
}
ghcsrsStatus :: Lens' GetHealthCheckStatusResponse Int
ghcsrsStatus = lens _ghcsrsStatus (\ s a -> s{_ghcsrsStatus = a});
ghcsrsHealthCheckObservations :: Lens' GetHealthCheckStatusResponse [HealthCheckObservation]
ghcsrsHealthCheckObservations = lens _ghcsrsHealthCheckObservations (\ s a -> s{_ghcsrsHealthCheckObservations = a}) . _Coerce;