amazonka-route53 1.1.0 → 1.2.0

raw patch · 36 files changed

+100/−105 lines, 36 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 +2/−2
• gen/Network/AWS/Route53/AssociateVPCWithHostedZone.hs +1/−2
• gen/Network/AWS/Route53/ChangeResourceRecordSets.hs +1/−2
• gen/Network/AWS/Route53/ChangeTagsForResource.hs +1/−2
• gen/Network/AWS/Route53/CreateHealthCheck.hs +1/−2
• gen/Network/AWS/Route53/CreateHostedZone.hs +1/−2
• gen/Network/AWS/Route53/CreateReusableDelegationSet.hs +1/−2
• gen/Network/AWS/Route53/DeleteHealthCheck.hs +1/−2
• gen/Network/AWS/Route53/DeleteHostedZone.hs +1/−2
• gen/Network/AWS/Route53/DeleteReusableDelegationSet.hs +1/−2
• gen/Network/AWS/Route53/DisassociateVPCFromHostedZone.hs +1/−2
• gen/Network/AWS/Route53/GetChange.hs +1/−2
• gen/Network/AWS/Route53/GetCheckerIPRanges.hs +1/−2
• gen/Network/AWS/Route53/GetGeoLocation.hs +1/−2
• gen/Network/AWS/Route53/GetHealthCheck.hs +1/−2
• gen/Network/AWS/Route53/GetHealthCheckCount.hs +1/−2
• gen/Network/AWS/Route53/GetHealthCheckLastFailureReason.hs +1/−2
• gen/Network/AWS/Route53/GetHealthCheckStatus.hs +1/−2
• gen/Network/AWS/Route53/GetHostedZone.hs +1/−2
• gen/Network/AWS/Route53/GetHostedZoneCount.hs +1/−2
• gen/Network/AWS/Route53/GetReusableDelegationSet.hs +1/−2
• gen/Network/AWS/Route53/ListGeoLocations.hs +1/−2
• gen/Network/AWS/Route53/ListHealthChecks.hs +1/−2
• gen/Network/AWS/Route53/ListHostedZones.hs +1/−2
• gen/Network/AWS/Route53/ListHostedZonesByName.hs +1/−2
• gen/Network/AWS/Route53/ListResourceRecordSets.hs +1/−2
• gen/Network/AWS/Route53/ListReusableDelegationSets.hs +1/−2
• gen/Network/AWS/Route53/ListTagsForResource.hs +1/−2
• gen/Network/AWS/Route53/ListTagsForResources.hs +1/−2
• gen/Network/AWS/Route53/Types.hs +32/−36
• gen/Network/AWS/Route53/Types/Product.hs +0/−1
• gen/Network/AWS/Route53/UpdateHealthCheck.hs +1/−2
• gen/Network/AWS/Route53/UpdateHostedZoneComment.hs +1/−2
• test/Test/AWS/Gen/Route53.hs +30/−0

@@ -8,7 +8,7 @@  ## Version -`1.1.0`+`1.2.0`   ## Description

@@ -1,5 +1,5 @@ name:                  amazonka-route53-version:               1.1.0+version:               1.2.0 synopsis:              Amazon Route 53 SDK. homepage:              https://github.com/brendanhay/amazonka license:               OtherLicense@@ -85,7 +85,7 @@         , Network.AWS.Route53.Types.Sum      build-depends:-          amazonka-core == 1.1.0.*+          amazonka-core == 1.2.0.*         , base          >= 4.7     && < 5  test-suite amazonka-route53-test@@ -104,9 +104,9 @@         , Test.AWS.Route53.Internal      build-depends:-          amazonka-core == 1.1.0-        , amazonka-test == 1.1.0-        , amazonka-route53 == 1.1.0+          amazonka-core == 1.2.0+        , amazonka-test == 1.2.0+        , amazonka-route53 == 1.2.0         , base         , bytestring         , lens

@@ -21,8 +21,8 @@ -- /See:/ <http://docs.aws.amazon.com/Route53/latest/APIReference/Welcome.html AWS API Reference> module Network.AWS.Route53     (-    -- * Service-      Route53+    -- * Service Configuration+      route53      -- * Errors     -- $errors

@@ -101,10 +101,9 @@ avwhzVPC = lens _avwhzVPC (\ s a -> s{_avwhzVPC = a});  instance AWSRequest AssociateVPCWithHostedZone where-        type Sv AssociateVPCWithHostedZone = Route53         type Rs AssociateVPCWithHostedZone =              AssociateVPCWithHostedZoneResponse-        request = postXML+        request = postXML route53         response           = receiveXML               (\ s h x ->

@@ -110,10 +110,9 @@ crrsChangeBatch = lens _crrsChangeBatch (\ s a -> s{_crrsChangeBatch = a});  instance AWSRequest ChangeResourceRecordSets where-        type Sv ChangeResourceRecordSets = Route53         type Rs ChangeResourceRecordSets =              ChangeResourceRecordSetsResponse-        request = postXML+        request = postXML route53         response           = receiveXML               (\ s h x ->

@@ -104,10 +104,9 @@ ctfrResourceId = lens _ctfrResourceId (\ s a -> s{_ctfrResourceId = a});  instance AWSRequest ChangeTagsForResource where-        type Sv ChangeTagsForResource = Route53         type Rs ChangeTagsForResource =              ChangeTagsForResourceResponse-        request = postXML+        request = postXML route53         response           = receiveEmpty               (\ s h x ->

@@ -95,9 +95,8 @@ chcHealthCheckConfig = lens _chcHealthCheckConfig (\ s a -> s{_chcHealthCheckConfig = a});  instance AWSRequest CreateHealthCheck where-        type Sv CreateHealthCheck = Route53         type Rs CreateHealthCheck = CreateHealthCheckResponse-        request = postXML+        request = postXML route53         response           = receiveXML               (\ s h x ->

@@ -152,9 +152,8 @@ chzCallerReference = lens _chzCallerReference (\ s a -> s{_chzCallerReference = a});  instance AWSRequest CreateHostedZone where-        type Sv CreateHostedZone = Route53         type Rs CreateHostedZone = CreateHostedZoneResponse-        request = postXML+        request = postXML route53         response           = receiveXML               (\ s h x ->

@@ -95,10 +95,9 @@ crdsCallerReference = lens _crdsCallerReference (\ s a -> s{_crdsCallerReference = a});  instance AWSRequest CreateReusableDelegationSet where-        type Sv CreateReusableDelegationSet = Route53         type Rs CreateReusableDelegationSet =              CreateReusableDelegationSetResponse-        request = postXML+        request = postXML route53         response           = receiveXML               (\ s h x ->

@@ -78,9 +78,8 @@ dhcHealthCheckId = lens _dhcHealthCheckId (\ s a -> s{_dhcHealthCheckId = a});  instance AWSRequest DeleteHealthCheck where-        type Sv DeleteHealthCheck = Route53         type Rs DeleteHealthCheck = DeleteHealthCheckResponse-        request = delete+        request = delete route53         response           = receiveEmpty               (\ s h x ->

@@ -83,9 +83,8 @@ dhzId = lens _dhzId (\ s a -> s{_dhzId = a});  instance AWSRequest DeleteHostedZone where-        type Sv DeleteHostedZone = Route53         type Rs DeleteHostedZone = DeleteHostedZoneResponse-        request = delete+        request = delete route53         response           = receiveXML               (\ s h x ->

@@ -76,10 +76,9 @@ drdsId = lens _drdsId (\ s a -> s{_drdsId = a});  instance AWSRequest DeleteReusableDelegationSet where-        type Sv DeleteReusableDelegationSet = Route53         type Rs DeleteReusableDelegationSet =              DeleteReusableDelegationSetResponse-        request = delete+        request = delete route53         response           = receiveEmpty               (\ s h x ->

@@ -101,10 +101,9 @@  instance AWSRequest DisassociateVPCFromHostedZone          where-        type Sv DisassociateVPCFromHostedZone = Route53         type Rs DisassociateVPCFromHostedZone =              DisassociateVPCFromHostedZoneResponse-        request = postXML+        request = postXML route53         response           = receiveXML               (\ s h x ->

@@ -78,9 +78,8 @@ gcId = lens _gcId (\ s a -> s{_gcId = a});  instance AWSRequest GetChange where-        type Sv GetChange = Route53         type Rs GetChange = GetChangeResponse-        request = get+        request = get route53         response           = receiveXML               (\ s h x ->

@@ -59,10 +59,9 @@ getCheckerIPRanges = GetCheckerIPRanges'  instance AWSRequest GetCheckerIPRanges where-        type Sv GetCheckerIPRanges = Route53         type Rs GetCheckerIPRanges =              GetCheckerIPRangesResponse-        request = get+        request = get route53         response           = receiveXML               (\ s h x ->

@@ -103,9 +103,8 @@ gglContinentCode = lens _gglContinentCode (\ s a -> s{_gglContinentCode = a});  instance AWSRequest GetGeoLocation where-        type Sv GetGeoLocation = Route53         type Rs GetGeoLocation = GetGeoLocationResponse-        request = get+        request = get route53         response           = receiveXML               (\ s h x ->

@@ -70,9 +70,8 @@ ghcHealthCheckId = lens _ghcHealthCheckId (\ s a -> s{_ghcHealthCheckId = a});  instance AWSRequest GetHealthCheck where-        type Sv GetHealthCheck = Route53         type Rs GetHealthCheck = GetHealthCheckResponse-        request = get+        request = get route53         response           = receiveXML               (\ s h x ->

@@ -57,10 +57,9 @@ getHealthCheckCount = GetHealthCheckCount'  instance AWSRequest GetHealthCheckCount where-        type Sv GetHealthCheckCount = Route53         type Rs GetHealthCheckCount =              GetHealthCheckCountResponse-        request = get+        request = get route53         response           = receiveXML               (\ s h x ->

@@ -74,10 +74,9 @@  instance AWSRequest GetHealthCheckLastFailureReason          where-        type Sv GetHealthCheckLastFailureReason = Route53         type Rs GetHealthCheckLastFailureReason =              GetHealthCheckLastFailureReasonResponse-        request = get+        request = get route53         response           = receiveXML               (\ s h x ->

@@ -72,10 +72,9 @@ ghcsHealthCheckId = lens _ghcsHealthCheckId (\ s a -> s{_ghcsHealthCheckId = a});  instance AWSRequest GetHealthCheckStatus where-        type Sv GetHealthCheckStatus = Route53         type Rs GetHealthCheckStatus =              GetHealthCheckStatusResponse-        request = get+        request = get route53         response           = receiveXML               (\ s h x ->

@@ -74,9 +74,8 @@ ghzId = lens _ghzId (\ s a -> s{_ghzId = a});  instance AWSRequest GetHostedZone where-        type Sv GetHostedZone = Route53         type Rs GetHostedZone = GetHostedZoneResponse-        request = get+        request = get route53         response           = receiveXML               (\ s h x ->

@@ -57,10 +57,9 @@ getHostedZoneCount = GetHostedZoneCount'  instance AWSRequest GetHostedZoneCount where-        type Sv GetHostedZoneCount = Route53         type Rs GetHostedZoneCount =              GetHostedZoneCountResponse-        request = get+        request = get route53         response           = receiveXML               (\ s h x ->

@@ -70,10 +70,9 @@ grdsId = lens _grdsId (\ s a -> s{_grdsId = a});  instance AWSRequest GetReusableDelegationSet where-        type Sv GetReusableDelegationSet = Route53         type Rs GetReusableDelegationSet =              GetReusableDelegationSetResponse-        request = get+        request = get route53         response           = receiveXML               (\ s h x ->

@@ -128,9 +128,8 @@ lglStartContinentCode = lens _lglStartContinentCode (\ s a -> s{_lglStartContinentCode = a});  instance AWSRequest ListGeoLocations where-        type Sv ListGeoLocations = Route53         type Rs ListGeoLocations = ListGeoLocationsResponse-        request = get+        request = get route53         response           = receiveXML               (\ s h x ->

@@ -111,9 +111,8 @@             Just $ rq & lhcMarker .~ rs ^. lhcrsNextMarker  instance AWSRequest ListHealthChecks where-        type Sv ListHealthChecks = Route53         type Rs ListHealthChecks = ListHealthChecksResponse-        request = get+        request = get route53         response           = receiveXML               (\ s h x ->

@@ -123,9 +123,8 @@             Just $ rq & lhzMarker .~ rs ^. lhzrsNextMarker  instance AWSRequest ListHostedZones where-        type Sv ListHostedZones = Route53         type Rs ListHostedZones = ListHostedZonesResponse-        request = get+        request = get route53         response           = receiveXML               (\ s h x ->

@@ -122,10 +122,9 @@ lhzbnDNSName = lens _lhzbnDNSName (\ s a -> s{_lhzbnDNSName = a});  instance AWSRequest ListHostedZonesByName where-        type Sv ListHostedZonesByName = Route53         type Rs ListHostedZonesByName =              ListHostedZonesByNameResponse-        request = get+        request = get route53         response           = receiveXML               (\ s h x ->

@@ -186,10 +186,9 @@                 rs ^. lrrsrsNextRecordIdentifier  instance AWSRequest ListResourceRecordSets where-        type Sv ListResourceRecordSets = Route53         type Rs ListResourceRecordSets =              ListResourceRecordSetsResponse-        request = get+        request = get route53         response           = receiveXML               (\ s h x ->

@@ -103,10 +103,9 @@ lrdsMarker = lens _lrdsMarker (\ s a -> s{_lrdsMarker = a});  instance AWSRequest ListReusableDelegationSets where-        type Sv ListReusableDelegationSets = Route53         type Rs ListReusableDelegationSets =              ListReusableDelegationSetsResponse-        request = get+        request = get route53         response           = receiveXML               (\ s h x ->

@@ -83,10 +83,9 @@ ltfrResourceId = lens _ltfrResourceId (\ s a -> s{_ltfrResourceId = a});  instance AWSRequest ListTagsForResource where-        type Sv ListTagsForResource = Route53         type Rs ListTagsForResource =              ListTagsForResourceResponse-        request = get+        request = get route53         response           = receiveXML               (\ s h x ->

@@ -84,10 +84,9 @@ lResourceIds = lens _lResourceIds (\ s a -> s{_lResourceIds = a}) . _List1;  instance AWSRequest ListTagsForResources where-        type Sv ListTagsForResources = Route53         type Rs ListTagsForResources =              ListTagsForResourcesResponse-        request = postXML+        request = postXML route53         response           = receiveXML               (\ s h x ->

@@ -1,5 +1,4 @@ {-# LANGUAGE OverloadedStrings #-}-{-# LANGUAGE TypeFamilies      #-}  -- Derived from AWS service descriptions, licensed under Apache 2.0. @@ -13,8 +12,8 @@ -- module Network.AWS.Route53.Types     (-    -- * Service-      Route53+    -- * Service Configuration+      route53      -- * Errors     , _HealthCheckVersionMismatch@@ -217,39 +216,36 @@ import           Network.AWS.Route53.Types.Sum import           Network.AWS.Sign.V4 --- | Version @2013-04-01@ of the Amazon Route 53 SDK.-data Route53--instance AWSService Route53 where-    type Sg Route53 = V4-    service = const svc-      where-        svc =-            Service-            { _svcAbbrev = "Route53"-            , _svcPrefix = "route53"-            , _svcVersion = "2013-04-01"-            , _svcEndpoint = defaultEndpoint svc-            , _svcTimeout = Just 70-            , _svcStatus = statusSuccess-            , _svcError = parseXMLError-            , _svcRetry = retry-            }-        retry =-            Exponential-            { _retryBase = 5.0e-2-            , _retryGrowth = 2-            , _retryAttempts = 5-            , _retryCheck = check-            }-        check e-          | has (hasCode "ThrottlingException" . hasStatus 400) e =-              Just "throttling_exception"-          | has (hasCode "Throttling" . hasStatus 400) e = Just "throttling"-          | has (hasStatus 503) e = Just "service_unavailable"-          | has (hasStatus 500) e = Just "general_server_error"-          | has (hasStatus 509) e = Just "limit_exceeded"-          | otherwise = Nothing+-- | API version '2013-04-01' of the Amazon Route 53 SDK configuration.+route53 :: Service+route53 =+    Service+    { _svcAbbrev = "Route53"+    , _svcSigner = v4+    , _svcPrefix = "route53"+    , _svcVersion = "2013-04-01"+    , _svcEndpoint = defaultEndpoint route53+    , _svcTimeout = Just 70+    , _svcCheck = statusSuccess+    , _svcError = parseXMLError+    , _svcRetry = retry+    }+  where+    retry =+        Exponential+        { _retryBase = 5.0e-2+        , _retryGrowth = 2+        , _retryAttempts = 5+        , _retryCheck = check+        }+    check e+      | has (hasCode "ThrottlingException" . hasStatus 400) e =+          Just "throttling_exception"+      | has (hasCode "Throttling" . hasStatus 400) e = Just "throttling"+      | has (hasStatus 503) e = Just "service_unavailable"+      | has (hasStatus 500) e = Just "general_server_error"+      | has (hasStatus 509) e = Just "limit_exceeded"+      | otherwise = Nothing  -- | Prism for HealthCheckVersionMismatch' errors. _HealthCheckVersionMismatch :: AsError a => Getting (First ServiceError) a ServiceError

@@ -2,7 +2,6 @@ {-# LANGUAGE DeriveGeneric      #-} {-# LANGUAGE OverloadedStrings  #-} {-# LANGUAGE RecordWildCards    #-}-{-# LANGUAGE TypeFamilies       #-}  {-# OPTIONS_GHC -fno-warn-unused-imports #-} 

@@ -167,9 +167,8 @@ uhcHealthCheckId = lens _uhcHealthCheckId (\ s a -> s{_uhcHealthCheckId = a});  instance AWSRequest UpdateHealthCheck where-        type Sv UpdateHealthCheck = Route53         type Rs UpdateHealthCheck = UpdateHealthCheckResponse-        request = postXML+        request = postXML route53         response           = receiveXML               (\ s h x ->

@@ -83,10 +83,9 @@ uhzcId = lens _uhzcId (\ s a -> s{_uhzcId = a});  instance AWSRequest UpdateHostedZoneComment where-        type Sv UpdateHostedZoneComment = Route53         type Rs UpdateHostedZoneComment =              UpdateHostedZoneCommentResponse-        request = postXML+        request = postXML route53         response           = receiveXML               (\ s h x ->

@@ -372,178 +372,208 @@ testAssociateVPCWithHostedZoneResponse = res     "AssociateVPCWithHostedZoneResponse"     "fixture/AssociateVPCWithHostedZoneResponse"+    route53     (Proxy :: Proxy AssociateVPCWithHostedZone)  testGetHealthCheckLastFailureReasonResponse :: GetHealthCheckLastFailureReasonResponse -> TestTree testGetHealthCheckLastFailureReasonResponse = res     "GetHealthCheckLastFailureReasonResponse"     "fixture/GetHealthCheckLastFailureReasonResponse"+    route53     (Proxy :: Proxy GetHealthCheckLastFailureReason)  testListHostedZonesByNameResponse :: ListHostedZonesByNameResponse -> TestTree testListHostedZonesByNameResponse = res     "ListHostedZonesByNameResponse"     "fixture/ListHostedZonesByNameResponse"+    route53     (Proxy :: Proxy ListHostedZonesByName)  testDeleteReusableDelegationSetResponse :: DeleteReusableDelegationSetResponse -> TestTree testDeleteReusableDelegationSetResponse = res     "DeleteReusableDelegationSetResponse"     "fixture/DeleteReusableDelegationSetResponse"+    route53     (Proxy :: Proxy DeleteReusableDelegationSet)  testListReusableDelegationSetsResponse :: ListReusableDelegationSetsResponse -> TestTree testListReusableDelegationSetsResponse = res     "ListReusableDelegationSetsResponse"     "fixture/ListReusableDelegationSetsResponse"+    route53     (Proxy :: Proxy ListReusableDelegationSets)  testGetCheckerIPRangesResponse :: GetCheckerIPRangesResponse -> TestTree testGetCheckerIPRangesResponse = res     "GetCheckerIPRangesResponse"     "fixture/GetCheckerIPRangesResponse"+    route53     (Proxy :: Proxy GetCheckerIPRanges)  testListTagsForResourceResponse :: ListTagsForResourceResponse -> TestTree testListTagsForResourceResponse = res     "ListTagsForResourceResponse"     "fixture/ListTagsForResourceResponse"+    route53     (Proxy :: Proxy ListTagsForResource)  testChangeResourceRecordSetsResponse :: ChangeResourceRecordSetsResponse -> TestTree testChangeResourceRecordSetsResponse = res     "ChangeResourceRecordSetsResponse"     "fixture/ChangeResourceRecordSetsResponse"+    route53     (Proxy :: Proxy ChangeResourceRecordSets)  testGetChangeResponse :: GetChangeResponse -> TestTree testGetChangeResponse = res     "GetChangeResponse"     "fixture/GetChangeResponse"+    route53     (Proxy :: Proxy GetChange)  testCreateHostedZoneResponse :: CreateHostedZoneResponse -> TestTree testCreateHostedZoneResponse = res     "CreateHostedZoneResponse"     "fixture/CreateHostedZoneResponse"+    route53     (Proxy :: Proxy CreateHostedZone)  testDeleteHealthCheckResponse :: DeleteHealthCheckResponse -> TestTree testDeleteHealthCheckResponse = res     "DeleteHealthCheckResponse"     "fixture/DeleteHealthCheckResponse"+    route53     (Proxy :: Proxy DeleteHealthCheck)  testUpdateHealthCheckResponse :: UpdateHealthCheckResponse -> TestTree testUpdateHealthCheckResponse = res     "UpdateHealthCheckResponse"     "fixture/UpdateHealthCheckResponse"+    route53     (Proxy :: Proxy UpdateHealthCheck)  testChangeTagsForResourceResponse :: ChangeTagsForResourceResponse -> TestTree testChangeTagsForResourceResponse = res     "ChangeTagsForResourceResponse"     "fixture/ChangeTagsForResourceResponse"+    route53     (Proxy :: Proxy ChangeTagsForResource)  testCreateHealthCheckResponse :: CreateHealthCheckResponse -> TestTree testCreateHealthCheckResponse = res     "CreateHealthCheckResponse"     "fixture/CreateHealthCheckResponse"+    route53     (Proxy :: Proxy CreateHealthCheck)  testListHostedZonesResponse :: ListHostedZonesResponse -> TestTree testListHostedZonesResponse = res     "ListHostedZonesResponse"     "fixture/ListHostedZonesResponse"+    route53     (Proxy :: Proxy ListHostedZones)  testDisassociateVPCFromHostedZoneResponse :: DisassociateVPCFromHostedZoneResponse -> TestTree testDisassociateVPCFromHostedZoneResponse = res     "DisassociateVPCFromHostedZoneResponse"     "fixture/DisassociateVPCFromHostedZoneResponse"+    route53     (Proxy :: Proxy DisassociateVPCFromHostedZone)  testGetHostedZoneResponse :: GetHostedZoneResponse -> TestTree testGetHostedZoneResponse = res     "GetHostedZoneResponse"     "fixture/GetHostedZoneResponse"+    route53     (Proxy :: Proxy GetHostedZone)  testListGeoLocationsResponse :: ListGeoLocationsResponse -> TestTree testListGeoLocationsResponse = res     "ListGeoLocationsResponse"     "fixture/ListGeoLocationsResponse"+    route53     (Proxy :: Proxy ListGeoLocations)  testGetHealthCheckResponse :: GetHealthCheckResponse -> TestTree testGetHealthCheckResponse = res     "GetHealthCheckResponse"     "fixture/GetHealthCheckResponse"+    route53     (Proxy :: Proxy GetHealthCheck)  testListResourceRecordSetsResponse :: ListResourceRecordSetsResponse -> TestTree testListResourceRecordSetsResponse = res     "ListResourceRecordSetsResponse"     "fixture/ListResourceRecordSetsResponse"+    route53     (Proxy :: Proxy ListResourceRecordSets)  testGetHealthCheckCountResponse :: GetHealthCheckCountResponse -> TestTree testGetHealthCheckCountResponse = res     "GetHealthCheckCountResponse"     "fixture/GetHealthCheckCountResponse"+    route53     (Proxy :: Proxy GetHealthCheckCount)  testCreateReusableDelegationSetResponse :: CreateReusableDelegationSetResponse -> TestTree testCreateReusableDelegationSetResponse = res     "CreateReusableDelegationSetResponse"     "fixture/CreateReusableDelegationSetResponse"+    route53     (Proxy :: Proxy CreateReusableDelegationSet)  testGetHostedZoneCountResponse :: GetHostedZoneCountResponse -> TestTree testGetHostedZoneCountResponse = res     "GetHostedZoneCountResponse"     "fixture/GetHostedZoneCountResponse"+    route53     (Proxy :: Proxy GetHostedZoneCount)  testGetReusableDelegationSetResponse :: GetReusableDelegationSetResponse -> TestTree testGetReusableDelegationSetResponse = res     "GetReusableDelegationSetResponse"     "fixture/GetReusableDelegationSetResponse"+    route53     (Proxy :: Proxy GetReusableDelegationSet)  testUpdateHostedZoneCommentResponse :: UpdateHostedZoneCommentResponse -> TestTree testUpdateHostedZoneCommentResponse = res     "UpdateHostedZoneCommentResponse"     "fixture/UpdateHostedZoneCommentResponse"+    route53     (Proxy :: Proxy UpdateHostedZoneComment)  testGetHealthCheckStatusResponse :: GetHealthCheckStatusResponse -> TestTree testGetHealthCheckStatusResponse = res     "GetHealthCheckStatusResponse"     "fixture/GetHealthCheckStatusResponse"+    route53     (Proxy :: Proxy GetHealthCheckStatus)  testListHealthChecksResponse :: ListHealthChecksResponse -> TestTree testListHealthChecksResponse = res     "ListHealthChecksResponse"     "fixture/ListHealthChecksResponse"+    route53     (Proxy :: Proxy ListHealthChecks)  testDeleteHostedZoneResponse :: DeleteHostedZoneResponse -> TestTree testDeleteHostedZoneResponse = res     "DeleteHostedZoneResponse"     "fixture/DeleteHostedZoneResponse"+    route53     (Proxy :: Proxy DeleteHostedZone)  testGetGeoLocationResponse :: GetGeoLocationResponse -> TestTree testGetGeoLocationResponse = res     "GetGeoLocationResponse"     "fixture/GetGeoLocationResponse"+    route53     (Proxy :: Proxy GetGeoLocation)  testListTagsForResourcesResponse :: ListTagsForResourcesResponse -> TestTree testListTagsForResourcesResponse = res     "ListTagsForResourcesResponse"     "fixture/ListTagsForResourcesResponse"+    route53     (Proxy :: Proxy ListTagsForResources)