module Network.AWS.Route53.GetHealthCheckCount
(
GetHealthCheckCount
, getHealthCheckCount
, GetHealthCheckCountResponse
, getHealthCheckCountResponse
, ghccrHealthCheckCount
) where
import Network.AWS.Prelude
import Network.AWS.Request.RestXML
import Network.AWS.Route53.Types
import qualified GHC.Exts
data GetHealthCheckCount = GetHealthCheckCount
deriving (Eq, Ord, Show, Generic)
getHealthCheckCount :: GetHealthCheckCount
getHealthCheckCount = GetHealthCheckCount
newtype GetHealthCheckCountResponse = GetHealthCheckCountResponse
{ _ghccrHealthCheckCount :: Integer
} deriving (Eq, Ord, Show, Enum, Num, Integral, Real)
getHealthCheckCountResponse :: Integer
-> GetHealthCheckCountResponse
getHealthCheckCountResponse p1 = GetHealthCheckCountResponse
{ _ghccrHealthCheckCount = p1
}
ghccrHealthCheckCount :: Lens' GetHealthCheckCountResponse Integer
ghccrHealthCheckCount =
lens _ghccrHealthCheckCount (\s a -> s { _ghccrHealthCheckCount = a })
instance ToPath GetHealthCheckCount where
toPath = const "/2013-04-01/healthcheckcount"
instance ToQuery GetHealthCheckCount where
toQuery = const mempty
instance ToHeaders GetHealthCheckCount
instance ToXMLRoot GetHealthCheckCount where
toXMLRoot = const (namespaced ns "GetHealthCheckCount" [])
instance ToXML GetHealthCheckCount
instance AWSRequest GetHealthCheckCount where
type Sv GetHealthCheckCount = Route53
type Rs GetHealthCheckCount = GetHealthCheckCountResponse
request = get
response = xmlResponse
instance FromXML GetHealthCheckCountResponse where
parseXML x = GetHealthCheckCountResponse
<$> x .@ "HealthCheckCount"