diff --git a/README.md b/README.md --- a/README.md +++ b/README.md @@ -8,7 +8,7 @@ ## Version -`1.3.1` +`1.3.2` ## Description diff --git a/amazonka-route53.cabal b/amazonka-route53.cabal --- a/amazonka-route53.cabal +++ b/amazonka-route53.cabal @@ -1,5 +1,5 @@ name: amazonka-route53 -version: 1.3.1 +version: 1.3.2 synopsis: Amazon Route 53 SDK. homepage: https://github.com/brendanhay/amazonka bug-reports: https://github.com/brendanhay/amazonka/issues @@ -85,7 +85,7 @@ , Network.AWS.Route53.Types.Sum build-depends: - amazonka-core == 1.3.1.* + amazonka-core == 1.3.2.* , base >= 4.7 && < 5 test-suite amazonka-route53-test @@ -105,9 +105,9 @@ , Test.AWS.Route53.Internal build-depends: - amazonka-core == 1.3.1.* - , amazonka-test == 1.3.1.* - , amazonka-route53 == 1.3.1.* + amazonka-core == 1.3.2.* + , amazonka-test == 1.3.2.* + , amazonka-route53 == 1.3.2.* , base , bytestring , lens diff --git a/gen/Network/AWS/Route53.hs b/gen/Network/AWS/Route53.hs --- a/gen/Network/AWS/Route53.hs +++ b/gen/Network/AWS/Route53.hs @@ -310,8 +310,12 @@ , hccFailureThreshold , hccIPAddress , hccSearchString + , hccHealthThreshold , hccResourcePath + , hccMeasureLatency + , hccInverted , hccFullyQualifiedDomainName + , hccChildHealthChecks , hccRequestInterval , hccPort , hccType diff --git a/gen/Network/AWS/Route53/Types.hs b/gen/Network/AWS/Route53/Types.hs --- a/gen/Network/AWS/Route53/Types.hs +++ b/gen/Network/AWS/Route53/Types.hs @@ -137,8 +137,12 @@ , hccFailureThreshold , hccIPAddress , hccSearchString + , hccHealthThreshold , hccResourcePath + , hccMeasureLatency + , hccInverted , hccFullyQualifiedDomainName + , hccChildHealthChecks , hccRequestInterval , hccPort , hccType diff --git a/gen/Network/AWS/Route53/Types/Product.hs b/gen/Network/AWS/Route53/Types/Product.hs --- a/gen/Network/AWS/Route53/Types/Product.hs +++ b/gen/Network/AWS/Route53/Types/Product.hs @@ -529,8 +529,12 @@ { _hccFailureThreshold :: !(Maybe Nat) , _hccIPAddress :: !(Maybe Text) , _hccSearchString :: !(Maybe Text) + , _hccHealthThreshold :: !(Maybe Nat) , _hccResourcePath :: !(Maybe Text) + , _hccMeasureLatency :: !(Maybe Bool) + , _hccInverted :: !(Maybe Bool) , _hccFullyQualifiedDomainName :: !(Maybe Text) + , _hccChildHealthChecks :: !(Maybe [Text]) , _hccRequestInterval :: !(Maybe Nat) , _hccPort :: !(Maybe Nat) , _hccType :: !HealthCheckType @@ -546,10 +550,18 @@ -- -- * 'hccSearchString' -- +-- * 'hccHealthThreshold' +-- -- * 'hccResourcePath' -- +-- * 'hccMeasureLatency' +-- +-- * 'hccInverted' +-- -- * 'hccFullyQualifiedDomainName' -- +-- * 'hccChildHealthChecks' +-- -- * 'hccRequestInterval' -- -- * 'hccPort' @@ -563,8 +575,12 @@ { _hccFailureThreshold = Nothing , _hccIPAddress = Nothing , _hccSearchString = Nothing + , _hccHealthThreshold = Nothing , _hccResourcePath = Nothing + , _hccMeasureLatency = Nothing + , _hccInverted = Nothing , _hccFullyQualifiedDomainName = Nothing + , _hccChildHealthChecks = Nothing , _hccRequestInterval = Nothing , _hccPort = Nothing , _hccType = pType_ @@ -589,16 +605,40 @@ hccSearchString :: Lens' HealthCheckConfig (Maybe Text) hccSearchString = lens _hccSearchString (\ s a -> s{_hccSearchString = a}); +-- | The minimum number of child health checks that must be healthy for Route +-- 53 to consider the parent health check to be healthy. Valid values are +-- integers between 0 and 256, inclusive. +hccHealthThreshold :: Lens' HealthCheckConfig (Maybe Natural) +hccHealthThreshold = lens _hccHealthThreshold (\ s a -> s{_hccHealthThreshold = a}) . mapping _Nat; + -- | Path to ping on the instance to check the health. Required for HTTP, -- HTTPS, HTTP_STR_MATCH, and HTTPS_STR_MATCH health checks, HTTP request -- is issued to the instance on the given port and path. hccResourcePath :: Lens' HealthCheckConfig (Maybe Text) hccResourcePath = lens _hccResourcePath (\ s a -> s{_hccResourcePath = a}); +-- | A Boolean value that indicates whether you want Route 53 to measure the +-- latency between health checkers in multiple AWS regions and your +-- endpoint and to display CloudWatch latency graphs in the Route 53 +-- console. +hccMeasureLatency :: Lens' HealthCheckConfig (Maybe Bool) +hccMeasureLatency = lens _hccMeasureLatency (\ s a -> s{_hccMeasureLatency = a}); + +-- | A boolean value that indicates whether the status of health check should +-- be inverted. For example, if a health check is healthy but 'Inverted' is +-- 'True', then Route 53 considers the health check to be unhealthy. +hccInverted :: Lens' HealthCheckConfig (Maybe Bool) +hccInverted = lens _hccInverted (\ s a -> s{_hccInverted = a}); + -- | Fully qualified domain name of the instance to be health checked. hccFullyQualifiedDomainName :: Lens' HealthCheckConfig (Maybe Text) hccFullyQualifiedDomainName = lens _hccFullyQualifiedDomainName (\ s a -> s{_hccFullyQualifiedDomainName = a}); +-- | For a specified parent health check, a list of 'HealthCheckId' values +-- for the associated child health checks. +hccChildHealthChecks :: Lens' HealthCheckConfig [Text] +hccChildHealthChecks = lens _hccChildHealthChecks (\ s a -> s{_hccChildHealthChecks = a}) . _Default . _Coerce; + -- | The number of seconds between the time that Route 53 gets a response -- from your endpoint and the time that it sends the next health-check -- request. @@ -625,8 +665,14 @@ = HealthCheckConfig' <$> (x .@? "FailureThreshold") <*> (x .@? "IPAddress") <*> (x .@? "SearchString") + <*> (x .@? "HealthThreshold") <*> (x .@? "ResourcePath") + <*> (x .@? "MeasureLatency") + <*> (x .@? "Inverted") <*> (x .@? "FullyQualifiedDomainName") + <*> + (x .@? "ChildHealthChecks" .!@ mempty >>= + may (parseXMLList "ChildHealthCheck")) <*> (x .@? "RequestInterval") <*> (x .@? "Port") <*> (x .@ "Type") @@ -637,9 +683,16 @@ ["FailureThreshold" @= _hccFailureThreshold, "IPAddress" @= _hccIPAddress, "SearchString" @= _hccSearchString, + "HealthThreshold" @= _hccHealthThreshold, "ResourcePath" @= _hccResourcePath, + "MeasureLatency" @= _hccMeasureLatency, + "Inverted" @= _hccInverted, "FullyQualifiedDomainName" @= _hccFullyQualifiedDomainName, + "ChildHealthChecks" @= + toXML + (toXMLList "ChildHealthCheck" <$> + _hccChildHealthChecks), "RequestInterval" @= _hccRequestInterval, "Port" @= _hccPort, "Type" @= _hccType] diff --git a/gen/Network/AWS/Route53/Types/Sum.hs b/gen/Network/AWS/Route53/Types/Sum.hs --- a/gen/Network/AWS/Route53/Types/Sum.hs +++ b/gen/Network/AWS/Route53/Types/Sum.hs @@ -102,7 +102,8 @@ toXML = toXMLText data HealthCheckType - = HTTP + = Calculated + | HTTP | HTTPS | HTTPSStrMatch | HTTPStrMatch @@ -111,16 +112,18 @@ instance FromText HealthCheckType where parser = takeLowerText >>= \case + "calculated" -> pure Calculated "http" -> pure HTTP "https" -> pure HTTPS "https_str_match" -> pure HTTPSStrMatch "http_str_match" -> pure HTTPStrMatch "tcp" -> pure TCP e -> fromTextError $ "Failure parsing HealthCheckType from value: '" <> e - <> "'. Accepted values: HTTP, HTTPS, HTTPS_STR_MATCH, HTTP_STR_MATCH, TCP" + <> "'. Accepted values: CALCULATED, HTTP, HTTPS, HTTPS_STR_MATCH, HTTP_STR_MATCH, TCP" instance ToText HealthCheckType where toText = \case + Calculated -> "CALCULATED" HTTP -> "HTTP" HTTPS -> "HTTPS" HTTPSStrMatch -> "HTTPS_STR_MATCH" diff --git a/gen/Network/AWS/Route53/UpdateHealthCheck.hs b/gen/Network/AWS/Route53/UpdateHealthCheck.hs --- a/gen/Network/AWS/Route53/UpdateHealthCheck.hs +++ b/gen/Network/AWS/Route53/UpdateHealthCheck.hs @@ -36,9 +36,12 @@ , uhcFailureThreshold , uhcIPAddress , uhcSearchString + , uhcHealthThreshold , uhcResourcePath , uhcHealthCheckVersion + , uhcInverted , uhcFullyQualifiedDomainName + , uhcChildHealthChecks , uhcPort , uhcHealthCheckId @@ -64,9 +67,12 @@ { _uhcFailureThreshold :: !(Maybe Nat) , _uhcIPAddress :: !(Maybe Text) , _uhcSearchString :: !(Maybe Text) + , _uhcHealthThreshold :: !(Maybe Nat) , _uhcResourcePath :: !(Maybe Text) , _uhcHealthCheckVersion :: !(Maybe Nat) + , _uhcInverted :: !(Maybe Bool) , _uhcFullyQualifiedDomainName :: !(Maybe Text) + , _uhcChildHealthChecks :: !(Maybe [Text]) , _uhcPort :: !(Maybe Nat) , _uhcHealthCheckId :: !Text } deriving (Eq,Read,Show,Data,Typeable,Generic) @@ -81,12 +87,18 @@ -- -- * 'uhcSearchString' -- +-- * 'uhcHealthThreshold' +-- -- * 'uhcResourcePath' -- -- * 'uhcHealthCheckVersion' -- +-- * 'uhcInverted' +-- -- * 'uhcFullyQualifiedDomainName' -- +-- * 'uhcChildHealthChecks' +-- -- * 'uhcPort' -- -- * 'uhcHealthCheckId' @@ -98,9 +110,12 @@ { _uhcFailureThreshold = Nothing , _uhcIPAddress = Nothing , _uhcSearchString = Nothing + , _uhcHealthThreshold = Nothing , _uhcResourcePath = Nothing , _uhcHealthCheckVersion = Nothing + , _uhcInverted = Nothing , _uhcFullyQualifiedDomainName = Nothing + , _uhcChildHealthChecks = Nothing , _uhcPort = Nothing , _uhcHealthCheckId = pHealthCheckId_ } @@ -132,6 +147,14 @@ uhcSearchString :: Lens' UpdateHealthCheck (Maybe Text) uhcSearchString = lens _uhcSearchString (\ s a -> s{_uhcSearchString = a}); +-- | The minimum number of child health checks that must be healthy for Route +-- 53 to consider the parent health check to be healthy. Valid values are +-- integers between 0 and 256, inclusive. +-- +-- Specify this value only if you want to change it. +uhcHealthThreshold :: Lens' UpdateHealthCheck (Maybe Natural) +uhcHealthThreshold = lens _uhcHealthThreshold (\ s a -> s{_uhcHealthThreshold = a}) . mapping _Nat; + -- | The path that you want Amazon Route 53 to request when performing health -- checks. The path can be any value for which your endpoint will return an -- HTTP status code of 2xx or 3xx when the endpoint is healthy, for example @@ -149,12 +172,27 @@ uhcHealthCheckVersion :: Lens' UpdateHealthCheck (Maybe Natural) uhcHealthCheckVersion = lens _uhcHealthCheckVersion (\ s a -> s{_uhcHealthCheckVersion = a}) . mapping _Nat; +-- | A boolean value that indicates whether the status of health check should +-- be inverted. For example, if a health check is healthy but 'Inverted' is +-- 'True', then Route 53 considers the health check to be unhealthy. +-- +-- Specify this value only if you want to change it. +uhcInverted :: Lens' UpdateHealthCheck (Maybe Bool) +uhcInverted = lens _uhcInverted (\ s a -> s{_uhcInverted = a}); + -- | Fully qualified domain name of the instance to be health checked. -- -- Specify this value only if you want to change it. uhcFullyQualifiedDomainName :: Lens' UpdateHealthCheck (Maybe Text) uhcFullyQualifiedDomainName = lens _uhcFullyQualifiedDomainName (\ s a -> s{_uhcFullyQualifiedDomainName = a}); +-- | For a specified parent health check, a list of 'HealthCheckId' values +-- for the associated child health checks. +-- +-- Specify this value only if you want to change it. +uhcChildHealthChecks :: Lens' UpdateHealthCheck [Text] +uhcChildHealthChecks = lens _uhcChildHealthChecks (\ s a -> s{_uhcChildHealthChecks = a}) . _Default . _Coerce; + -- | The port on which you want Route 53 to open a connection to perform -- health checks. -- @@ -197,10 +235,16 @@ ["FailureThreshold" @= _uhcFailureThreshold, "IPAddress" @= _uhcIPAddress, "SearchString" @= _uhcSearchString, + "HealthThreshold" @= _uhcHealthThreshold, "ResourcePath" @= _uhcResourcePath, "HealthCheckVersion" @= _uhcHealthCheckVersion, + "Inverted" @= _uhcInverted, "FullyQualifiedDomainName" @= _uhcFullyQualifiedDomainName, + "ChildHealthChecks" @= + toXML + (toXMLList "ChildHealthCheck" <$> + _uhcChildHealthChecks), "Port" @= _uhcPort] -- | /See:/ 'updateHealthCheckResponse' smart constructor.