amazonka-route53 1.3.1 → 1.3.2

raw patch · 7 files changed

+116/−8 lines, 7 filesdep ~amazonka-coredep ~amazonka-route53dep ~amazonka-testPVP ok

version bump matches the API change (PVP)

Dependency ranges changed: amazonka-core, amazonka-route53, amazonka-test

API changes (from Hackage documentation)

Files

• README.md +1/−1
• amazonka-route53.cabal +5/−5
• gen/Network/AWS/Route53.hs +4/−0
• gen/Network/AWS/Route53/Types.hs +4/−0
• gen/Network/AWS/Route53/Types/Product.hs +53/−0
• gen/Network/AWS/Route53/Types/Sum.hs +5/−2
• gen/Network/AWS/Route53/UpdateHealthCheck.hs +44/−0

@@ -8,7 +8,7 @@  ## Version -`1.3.1`+`1.3.2`   ## Description

@@ -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

@@ -310,8 +310,12 @@     , hccFailureThreshold     , hccIPAddress     , hccSearchString+    , hccHealthThreshold     , hccResourcePath+    , hccMeasureLatency+    , hccInverted     , hccFullyQualifiedDomainName+    , hccChildHealthChecks     , hccRequestInterval     , hccPort     , hccType

@@ -137,8 +137,12 @@     , hccFailureThreshold     , hccIPAddress     , hccSearchString+    , hccHealthThreshold     , hccResourcePath+    , hccMeasureLatency+    , hccInverted     , hccFullyQualifiedDomainName+    , hccChildHealthChecks     , hccRequestInterval     , hccPort     , hccType

@@ -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] 

@@ -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"

@@ -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.