{-# 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.Route53.GetHealthCheckStatus
(
getHealthCheckStatus
, GetHealthCheckStatus
, ghcsHealthCheckId
, getHealthCheckStatusResponse
, GetHealthCheckStatusResponse
, ghcsrsResponseStatus
, ghcsrsHealthCheckObservations
) 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
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 Hashable GetHealthCheckStatus where
instance NFData GetHealthCheckStatus where
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'
{ _ghcsrsResponseStatus :: !Int
, _ghcsrsHealthCheckObservations :: ![HealthCheckObservation]
} deriving (Eq, Read, Show, Data, Typeable, Generic)
getHealthCheckStatusResponse
:: Int
-> GetHealthCheckStatusResponse
getHealthCheckStatusResponse pResponseStatus_ =
GetHealthCheckStatusResponse'
{ _ghcsrsResponseStatus = pResponseStatus_
, _ghcsrsHealthCheckObservations = mempty
}
ghcsrsResponseStatus :: Lens' GetHealthCheckStatusResponse Int
ghcsrsResponseStatus = lens _ghcsrsResponseStatus (\ s a -> s{_ghcsrsResponseStatus = a})
ghcsrsHealthCheckObservations :: Lens' GetHealthCheckStatusResponse [HealthCheckObservation]
ghcsrsHealthCheckObservations = lens _ghcsrsHealthCheckObservations (\ s a -> s{_ghcsrsHealthCheckObservations = a}) . _Coerce
instance NFData GetHealthCheckStatusResponse where