diff --git a/README.md b/README.md --- a/README.md +++ b/README.md @@ -8,7 +8,7 @@ ## Version -`1.1.0` +`1.2.0` ## 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.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 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 @@ -21,8 +21,8 @@ -- /See:/ module Network.AWS.Route53 ( - -- * Service - Route53 + -- * Service Configuration + route53 -- * Errors -- $errors diff --git a/gen/Network/AWS/Route53/AssociateVPCWithHostedZone.hs b/gen/Network/AWS/Route53/AssociateVPCWithHostedZone.hs --- a/gen/Network/AWS/Route53/AssociateVPCWithHostedZone.hs +++ b/gen/Network/AWS/Route53/AssociateVPCWithHostedZone.hs @@ -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 -> diff --git a/gen/Network/AWS/Route53/ChangeResourceRecordSets.hs b/gen/Network/AWS/Route53/ChangeResourceRecordSets.hs --- a/gen/Network/AWS/Route53/ChangeResourceRecordSets.hs +++ b/gen/Network/AWS/Route53/ChangeResourceRecordSets.hs @@ -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 -> diff --git a/gen/Network/AWS/Route53/ChangeTagsForResource.hs b/gen/Network/AWS/Route53/ChangeTagsForResource.hs --- a/gen/Network/AWS/Route53/ChangeTagsForResource.hs +++ b/gen/Network/AWS/Route53/ChangeTagsForResource.hs @@ -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 -> diff --git a/gen/Network/AWS/Route53/CreateHealthCheck.hs b/gen/Network/AWS/Route53/CreateHealthCheck.hs --- a/gen/Network/AWS/Route53/CreateHealthCheck.hs +++ b/gen/Network/AWS/Route53/CreateHealthCheck.hs @@ -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 -> diff --git a/gen/Network/AWS/Route53/CreateHostedZone.hs b/gen/Network/AWS/Route53/CreateHostedZone.hs --- a/gen/Network/AWS/Route53/CreateHostedZone.hs +++ b/gen/Network/AWS/Route53/CreateHostedZone.hs @@ -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 -> diff --git a/gen/Network/AWS/Route53/CreateReusableDelegationSet.hs b/gen/Network/AWS/Route53/CreateReusableDelegationSet.hs --- a/gen/Network/AWS/Route53/CreateReusableDelegationSet.hs +++ b/gen/Network/AWS/Route53/CreateReusableDelegationSet.hs @@ -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 -> diff --git a/gen/Network/AWS/Route53/DeleteHealthCheck.hs b/gen/Network/AWS/Route53/DeleteHealthCheck.hs --- a/gen/Network/AWS/Route53/DeleteHealthCheck.hs +++ b/gen/Network/AWS/Route53/DeleteHealthCheck.hs @@ -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 -> diff --git a/gen/Network/AWS/Route53/DeleteHostedZone.hs b/gen/Network/AWS/Route53/DeleteHostedZone.hs --- a/gen/Network/AWS/Route53/DeleteHostedZone.hs +++ b/gen/Network/AWS/Route53/DeleteHostedZone.hs @@ -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 -> diff --git a/gen/Network/AWS/Route53/DeleteReusableDelegationSet.hs b/gen/Network/AWS/Route53/DeleteReusableDelegationSet.hs --- a/gen/Network/AWS/Route53/DeleteReusableDelegationSet.hs +++ b/gen/Network/AWS/Route53/DeleteReusableDelegationSet.hs @@ -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 -> diff --git a/gen/Network/AWS/Route53/DisassociateVPCFromHostedZone.hs b/gen/Network/AWS/Route53/DisassociateVPCFromHostedZone.hs --- a/gen/Network/AWS/Route53/DisassociateVPCFromHostedZone.hs +++ b/gen/Network/AWS/Route53/DisassociateVPCFromHostedZone.hs @@ -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 -> diff --git a/gen/Network/AWS/Route53/GetChange.hs b/gen/Network/AWS/Route53/GetChange.hs --- a/gen/Network/AWS/Route53/GetChange.hs +++ b/gen/Network/AWS/Route53/GetChange.hs @@ -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 -> diff --git a/gen/Network/AWS/Route53/GetCheckerIPRanges.hs b/gen/Network/AWS/Route53/GetCheckerIPRanges.hs --- a/gen/Network/AWS/Route53/GetCheckerIPRanges.hs +++ b/gen/Network/AWS/Route53/GetCheckerIPRanges.hs @@ -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 -> diff --git a/gen/Network/AWS/Route53/GetGeoLocation.hs b/gen/Network/AWS/Route53/GetGeoLocation.hs --- a/gen/Network/AWS/Route53/GetGeoLocation.hs +++ b/gen/Network/AWS/Route53/GetGeoLocation.hs @@ -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 -> diff --git a/gen/Network/AWS/Route53/GetHealthCheck.hs b/gen/Network/AWS/Route53/GetHealthCheck.hs --- a/gen/Network/AWS/Route53/GetHealthCheck.hs +++ b/gen/Network/AWS/Route53/GetHealthCheck.hs @@ -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 -> diff --git a/gen/Network/AWS/Route53/GetHealthCheckCount.hs b/gen/Network/AWS/Route53/GetHealthCheckCount.hs --- a/gen/Network/AWS/Route53/GetHealthCheckCount.hs +++ b/gen/Network/AWS/Route53/GetHealthCheckCount.hs @@ -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 -> diff --git a/gen/Network/AWS/Route53/GetHealthCheckLastFailureReason.hs b/gen/Network/AWS/Route53/GetHealthCheckLastFailureReason.hs --- a/gen/Network/AWS/Route53/GetHealthCheckLastFailureReason.hs +++ b/gen/Network/AWS/Route53/GetHealthCheckLastFailureReason.hs @@ -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 -> diff --git a/gen/Network/AWS/Route53/GetHealthCheckStatus.hs b/gen/Network/AWS/Route53/GetHealthCheckStatus.hs --- a/gen/Network/AWS/Route53/GetHealthCheckStatus.hs +++ b/gen/Network/AWS/Route53/GetHealthCheckStatus.hs @@ -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 -> diff --git a/gen/Network/AWS/Route53/GetHostedZone.hs b/gen/Network/AWS/Route53/GetHostedZone.hs --- a/gen/Network/AWS/Route53/GetHostedZone.hs +++ b/gen/Network/AWS/Route53/GetHostedZone.hs @@ -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 -> diff --git a/gen/Network/AWS/Route53/GetHostedZoneCount.hs b/gen/Network/AWS/Route53/GetHostedZoneCount.hs --- a/gen/Network/AWS/Route53/GetHostedZoneCount.hs +++ b/gen/Network/AWS/Route53/GetHostedZoneCount.hs @@ -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 -> diff --git a/gen/Network/AWS/Route53/GetReusableDelegationSet.hs b/gen/Network/AWS/Route53/GetReusableDelegationSet.hs --- a/gen/Network/AWS/Route53/GetReusableDelegationSet.hs +++ b/gen/Network/AWS/Route53/GetReusableDelegationSet.hs @@ -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 -> diff --git a/gen/Network/AWS/Route53/ListGeoLocations.hs b/gen/Network/AWS/Route53/ListGeoLocations.hs --- a/gen/Network/AWS/Route53/ListGeoLocations.hs +++ b/gen/Network/AWS/Route53/ListGeoLocations.hs @@ -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 -> diff --git a/gen/Network/AWS/Route53/ListHealthChecks.hs b/gen/Network/AWS/Route53/ListHealthChecks.hs --- a/gen/Network/AWS/Route53/ListHealthChecks.hs +++ b/gen/Network/AWS/Route53/ListHealthChecks.hs @@ -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 -> diff --git a/gen/Network/AWS/Route53/ListHostedZones.hs b/gen/Network/AWS/Route53/ListHostedZones.hs --- a/gen/Network/AWS/Route53/ListHostedZones.hs +++ b/gen/Network/AWS/Route53/ListHostedZones.hs @@ -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 -> diff --git a/gen/Network/AWS/Route53/ListHostedZonesByName.hs b/gen/Network/AWS/Route53/ListHostedZonesByName.hs --- a/gen/Network/AWS/Route53/ListHostedZonesByName.hs +++ b/gen/Network/AWS/Route53/ListHostedZonesByName.hs @@ -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 -> diff --git a/gen/Network/AWS/Route53/ListResourceRecordSets.hs b/gen/Network/AWS/Route53/ListResourceRecordSets.hs --- a/gen/Network/AWS/Route53/ListResourceRecordSets.hs +++ b/gen/Network/AWS/Route53/ListResourceRecordSets.hs @@ -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 -> diff --git a/gen/Network/AWS/Route53/ListReusableDelegationSets.hs b/gen/Network/AWS/Route53/ListReusableDelegationSets.hs --- a/gen/Network/AWS/Route53/ListReusableDelegationSets.hs +++ b/gen/Network/AWS/Route53/ListReusableDelegationSets.hs @@ -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 -> diff --git a/gen/Network/AWS/Route53/ListTagsForResource.hs b/gen/Network/AWS/Route53/ListTagsForResource.hs --- a/gen/Network/AWS/Route53/ListTagsForResource.hs +++ b/gen/Network/AWS/Route53/ListTagsForResource.hs @@ -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 -> diff --git a/gen/Network/AWS/Route53/ListTagsForResources.hs b/gen/Network/AWS/Route53/ListTagsForResources.hs --- a/gen/Network/AWS/Route53/ListTagsForResources.hs +++ b/gen/Network/AWS/Route53/ListTagsForResources.hs @@ -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 -> 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 @@ -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 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 @@ -2,7 +2,6 @@ {-# LANGUAGE DeriveGeneric #-} {-# LANGUAGE OverloadedStrings #-} {-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE TypeFamilies #-} {-# OPTIONS_GHC -fno-warn-unused-imports #-} 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 @@ -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 -> diff --git a/gen/Network/AWS/Route53/UpdateHostedZoneComment.hs b/gen/Network/AWS/Route53/UpdateHostedZoneComment.hs --- a/gen/Network/AWS/Route53/UpdateHostedZoneComment.hs +++ b/gen/Network/AWS/Route53/UpdateHostedZoneComment.hs @@ -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 -> diff --git a/test/Test/AWS/Gen/Route53.hs b/test/Test/AWS/Gen/Route53.hs --- a/test/Test/AWS/Gen/Route53.hs +++ b/test/Test/AWS/Gen/Route53.hs @@ -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)