module Network.AWS.Route53.GetHealthCheck
(
GetHealthCheck
, getHealthCheck
, ghcHealthCheckId
, GetHealthCheckResponse
, getHealthCheckResponse
, ghcrHealthCheck
) where
import Network.AWS.Prelude
import Network.AWS.Request.RestXML
import Network.AWS.Route53.Types
import qualified GHC.Exts
newtype GetHealthCheck = GetHealthCheck
{ _ghcHealthCheckId :: Text
} deriving (Eq, Ord, Show, Monoid, IsString)
getHealthCheck :: Text
-> GetHealthCheck
getHealthCheck p1 = GetHealthCheck
{ _ghcHealthCheckId = p1
}
ghcHealthCheckId :: Lens' GetHealthCheck Text
ghcHealthCheckId = lens _ghcHealthCheckId (\s a -> s { _ghcHealthCheckId = a })
newtype GetHealthCheckResponse = GetHealthCheckResponse
{ _ghcrHealthCheck :: HealthCheck
} deriving (Eq, Show)
getHealthCheckResponse :: HealthCheck
-> GetHealthCheckResponse
getHealthCheckResponse p1 = GetHealthCheckResponse
{ _ghcrHealthCheck = p1
}
ghcrHealthCheck :: Lens' GetHealthCheckResponse HealthCheck
ghcrHealthCheck = lens _ghcrHealthCheck (\s a -> s { _ghcrHealthCheck = a })
instance ToPath GetHealthCheck where
toPath GetHealthCheck{..} = mconcat
[ "/2013-04-01/healthcheck/"
, toText _ghcHealthCheckId
]
instance ToQuery GetHealthCheck where
toQuery = const mempty
instance ToHeaders GetHealthCheck
instance ToXMLRoot GetHealthCheck where
toXMLRoot = const (namespaced ns "GetHealthCheck" [])
instance ToXML GetHealthCheck
instance AWSRequest GetHealthCheck where
type Sv GetHealthCheck = Route53
type Rs GetHealthCheck = GetHealthCheckResponse
request = get
response = xmlResponse
instance FromXML GetHealthCheckResponse where
parseXML x = GetHealthCheckResponse
<$> x .@ "HealthCheck"