Removing Route53 resource identifier prefixes

Fixes #318

amazonka-route53/gen/Network/AWS/Route53/AssociateVPCWithHostedZone.hs

@@ -57,7 +57,7 @@ import           Network.AWS.Route53.Types.Product
 -- /See:/ 'associateVPCWithHostedZone' smart constructor.
 data AssociateVPCWithHostedZone = AssociateVPCWithHostedZone'
     { _avwhzComment      :: !(Maybe Text)
-    , _avwhzHostedZoneId :: !Text
+    , _avwhzHostedZoneId :: !ResourceId
     , _avwhzVPC          :: !VPC
     } deriving (Eq,Read,Show,Data,Typeable,Generic)
 
@@ -71,7 +71,7 @@ data AssociateVPCWithHostedZone = AssociateVPCWithHostedZone'
 --
 -- * 'avwhzVPC' - A complex type that contains information about the VPC that you want to associate with a private hosted zone.
 associateVPCWithHostedZone
-    :: Text -- ^ 'avwhzHostedZoneId'
+    :: ResourceId -- ^ 'avwhzHostedZoneId'
     -> VPC -- ^ 'avwhzVPC'
     -> AssociateVPCWithHostedZone
 associateVPCWithHostedZone pHostedZoneId_ pVPC_ =
@@ -86,7 +86,7 @@ avwhzComment :: Lens' AssociateVPCWithHostedZone (Maybe Text)
 avwhzComment = lens _avwhzComment (\ s a -> s{_avwhzComment = a});
 
 -- | The ID of the private hosted zone that you want to associate an Amazon VPC with. Note that you can't associate a VPC with a hosted zone that doesn't have an existing VPC association.
-avwhzHostedZoneId :: Lens' AssociateVPCWithHostedZone Text
+avwhzHostedZoneId :: Lens' AssociateVPCWithHostedZone ResourceId
 avwhzHostedZoneId = lens _avwhzHostedZoneId (\ s a -> s{_avwhzHostedZoneId = a});
 
 -- | A complex type that contains information about the VPC that you want to associate with a private hosted zone.

amazonka-route53/gen/Network/AWS/Route53/ChangeResourceRecordSets.hs

@@ -109,7 +109,7 @@ import           Network.AWS.Route53.Types.Product
 --
 -- /See:/ 'changeResourceRecordSets' smart constructor.
 data ChangeResourceRecordSets = ChangeResourceRecordSets'
-    { _crrsHostedZoneId :: !Text
+    { _crrsHostedZoneId :: !ResourceId
     , _crrsChangeBatch  :: !ChangeBatch
     } deriving (Eq,Read,Show,Data,Typeable,Generic)
 
@@ -121,7 +121,7 @@ data ChangeResourceRecordSets = ChangeResourceRecordSets'
 --
 -- * 'crrsChangeBatch' - A complex type that contains an optional comment and the @Changes@ element.
 changeResourceRecordSets
-    :: Text -- ^ 'crrsHostedZoneId'
+    :: ResourceId -- ^ 'crrsHostedZoneId'
     -> ChangeBatch -- ^ 'crrsChangeBatch'
     -> ChangeResourceRecordSets
 changeResourceRecordSets pHostedZoneId_ pChangeBatch_ =
@@ -131,7 +131,7 @@ changeResourceRecordSets pHostedZoneId_ pChangeBatch_ =
     }
 
 -- | The ID of the hosted zone that contains the resource record sets that you want to change.
-crrsHostedZoneId :: Lens' ChangeResourceRecordSets Text
+crrsHostedZoneId :: Lens' ChangeResourceRecordSets ResourceId
 crrsHostedZoneId = lens _crrsHostedZoneId (\ s a -> s{_crrsHostedZoneId = a});
 
 -- | A complex type that contains an optional comment and the @Changes@ element.

amazonka-route53/gen/Network/AWS/Route53/CreateHostedZone.hs

@@ -78,7 +78,7 @@ import           Network.AWS.Route53.Types.Product
 --
 -- /See:/ 'createHostedZone' smart constructor.
 data CreateHostedZone = CreateHostedZone'
-    { _chzDelegationSetId  :: !(Maybe Text)
+    { _chzDelegationSetId  :: !(Maybe ResourceId)
     , _chzVPC              :: !(Maybe VPC)
     , _chzHostedZoneConfig :: !(Maybe HostedZoneConfig)
     , _chzName             :: !Text
@@ -112,7 +112,7 @@ createHostedZone pName_ pCallerReference_ =
     }
 
 -- | If you want to associate a reusable delegation set with this hosted zone, the ID that Amazon Route 53 assigned to the reusable delegation set when you created it. For more information about reusable delegation sets, see 'CreateReusableDelegationSet' .     * Type    * String     * Default    * None     * Parent    * @CreatedHostedZoneRequest@
-chzDelegationSetId :: Lens' CreateHostedZone (Maybe Text)
+chzDelegationSetId :: Lens' CreateHostedZone (Maybe ResourceId)
 chzDelegationSetId = lens _chzDelegationSetId (\ s a -> s{_chzDelegationSetId = a});
 
 -- | The VPC that you want your hosted zone to be associated with. By providing this parameter, your newly created hosted can't be resolved anywhere other than the given VPC.

amazonka-route53/gen/Network/AWS/Route53/CreateReusableDelegationSet.hs

@@ -52,7 +52,7 @@ import           Network.AWS.Route53.Types.Product
 
 -- | /See:/ 'createReusableDelegationSet' smart constructor.
 data CreateReusableDelegationSet = CreateReusableDelegationSet'
-    { _crdsHostedZoneId    :: !(Maybe Text)
+    { _crdsHostedZoneId    :: !(Maybe ResourceId)
     , _crdsCallerReference :: !Text
     } deriving (Eq,Read,Show,Data,Typeable,Generic)
 
@@ -73,7 +73,7 @@ createReusableDelegationSet pCallerReference_ =
     }
 
 -- | If you want to mark the delegation set for an existing hosted zone as reusable, the ID for that hosted zone.
-crdsHostedZoneId :: Lens' CreateReusableDelegationSet (Maybe Text)
+crdsHostedZoneId :: Lens' CreateReusableDelegationSet (Maybe ResourceId)
 crdsHostedZoneId = lens _crdsHostedZoneId (\ s a -> s{_crdsHostedZoneId = a});
 
 -- | A unique string that identifies the request, and that allows you to retry failed @CreateReusableDelegationSet@ requests without the risk of executing the operation twice. You must use a unique @CallerReference@ string every time you submit a @CreateReusableDelegationSet@ request. @CallerReference@ can be any unique string, for example a date/time stamp.

amazonka-route53/gen/Network/AWS/Route53/CreateTrafficPolicyInstance.hs

@@ -57,7 +57,7 @@ import           Network.AWS.Route53.Types.Product
 --
 -- /See:/ 'createTrafficPolicyInstance' smart constructor.
 data CreateTrafficPolicyInstance = CreateTrafficPolicyInstance'
-    { _ctpiHostedZoneId         :: !Text
+    { _ctpiHostedZoneId         :: !ResourceId
     , _ctpiName                 :: !Text
     , _ctpiTTL                  :: !Nat
     , _ctpiTrafficPolicyId      :: !Text
@@ -78,7 +78,7 @@ data CreateTrafficPolicyInstance = CreateTrafficPolicyInstance'
 --
 -- * 'ctpiTrafficPolicyVersion' - The version of the traffic policy that you want to use to create resource record sets in the specified hosted zone.
 createTrafficPolicyInstance
-    :: Text -- ^ 'ctpiHostedZoneId'
+    :: ResourceId -- ^ 'ctpiHostedZoneId'
     -> Text -- ^ 'ctpiName'
     -> Natural -- ^ 'ctpiTTL'
     -> Text -- ^ 'ctpiTrafficPolicyId'
@@ -94,7 +94,7 @@ createTrafficPolicyInstance pHostedZoneId_ pName_ pTTL_ pTrafficPolicyId_ pTraff
     }
 
 -- | The ID of the hosted zone in which you want Amazon Route 53 to create resource record sets by using the configuration in a traffic policy.
-ctpiHostedZoneId :: Lens' CreateTrafficPolicyInstance Text
+ctpiHostedZoneId :: Lens' CreateTrafficPolicyInstance ResourceId
 ctpiHostedZoneId = lens _ctpiHostedZoneId (\ s a -> s{_ctpiHostedZoneId = a});
 
 -- | The domain name (such as example.com) or subdomain name (such as www.example.com) for which Amazon Route 53 responds to DNS queries by using the resource record sets that Amazon Route 53 creates for this traffic policy instance.

amazonka-route53/gen/Network/AWS/Route53/CreateVPCAssociationAuthorization.hs

@@ -54,7 +54,7 @@ import           Network.AWS.Route53.Types.Product
 --
 -- /See:/ 'createVPCAssociationAuthorization' smart constructor.
 data CreateVPCAssociationAuthorization = CreateVPCAssociationAuthorization'
-    { _cvaaHostedZoneId :: !Text
+    { _cvaaHostedZoneId :: !ResourceId
     , _cvaaVPC          :: !VPC
     } deriving (Eq,Read,Show,Data,Typeable,Generic)
 
@@ -66,7 +66,7 @@ data CreateVPCAssociationAuthorization = CreateVPCAssociationAuthorization'
 --
 -- * 'cvaaVPC' - A complex type that contains the VPC ID and region for the VPC that you want to authorize associating with your hosted zone.
 createVPCAssociationAuthorization
-    :: Text -- ^ 'cvaaHostedZoneId'
+    :: ResourceId -- ^ 'cvaaHostedZoneId'
     -> VPC -- ^ 'cvaaVPC'
     -> CreateVPCAssociationAuthorization
 createVPCAssociationAuthorization pHostedZoneId_ pVPC_ =
@@ -76,7 +76,7 @@ createVPCAssociationAuthorization pHostedZoneId_ pVPC_ =
     }
 
 -- | The ID of the private hosted zone that you want to authorize associating a VPC with.
-cvaaHostedZoneId :: Lens' CreateVPCAssociationAuthorization Text
+cvaaHostedZoneId :: Lens' CreateVPCAssociationAuthorization ResourceId
 cvaaHostedZoneId = lens _cvaaHostedZoneId (\ s a -> s{_cvaaHostedZoneId = a});
 
 -- | A complex type that contains the VPC ID and region for the VPC that you want to authorize associating with your hosted zone.
@@ -132,7 +132,7 @@ instance ToXML CreateVPCAssociationAuthorization
 -- /See:/ 'createVPCAssociationAuthorizationResponse' smart constructor.
 data CreateVPCAssociationAuthorizationResponse = CreateVPCAssociationAuthorizationResponse'
     { _cvaarsResponseStatus :: !Int
-    , _cvaarsHostedZoneId   :: !Text
+    , _cvaarsHostedZoneId   :: !ResourceId
     , _cvaarsVPC            :: !VPC
     } deriving (Eq,Read,Show,Data,Typeable,Generic)
 
@@ -147,7 +147,7 @@ data CreateVPCAssociationAuthorizationResponse = CreateVPCAssociationAuthorizati
 -- * 'cvaarsVPC' - The VPC that you authorized associating with a hosted zone.
 createVPCAssociationAuthorizationResponse
     :: Int -- ^ 'cvaarsResponseStatus'
-    -> Text -- ^ 'cvaarsHostedZoneId'
+    -> ResourceId -- ^ 'cvaarsHostedZoneId'
     -> VPC -- ^ 'cvaarsVPC'
     -> CreateVPCAssociationAuthorizationResponse
 createVPCAssociationAuthorizationResponse pResponseStatus_ pHostedZoneId_ pVPC_ =
@@ -162,7 +162,7 @@ cvaarsResponseStatus :: Lens' CreateVPCAssociationAuthorizationResponse Int
 cvaarsResponseStatus = lens _cvaarsResponseStatus (\ s a -> s{_cvaarsResponseStatus = a});
 
 -- | The ID of the hosted zone that you authorized associating a VPC with.
-cvaarsHostedZoneId :: Lens' CreateVPCAssociationAuthorizationResponse Text
+cvaarsHostedZoneId :: Lens' CreateVPCAssociationAuthorizationResponse ResourceId
 cvaarsHostedZoneId = lens _cvaarsHostedZoneId (\ s a -> s{_cvaarsHostedZoneId = a});
 
 -- | The VPC that you authorized associating with a hosted zone.

amazonka-route53/gen/Network/AWS/Route53/DeleteHostedZone.hs

@@ -52,7 +52,7 @@ import           Network.AWS.Route53.Types.Product
 --
 -- /See:/ 'deleteHostedZone' smart constructor.
 newtype DeleteHostedZone = DeleteHostedZone'
-    { _dhzId :: Text
+    { _dhzId :: ResourceId
     } deriving (Eq,Read,Show,Data,Typeable,Generic)
 
 -- | Creates a value of 'DeleteHostedZone' with the minimum fields required to make a request.
@@ -61,15 +61,15 @@ newtype DeleteHostedZone = DeleteHostedZone'
 --
 -- * 'dhzId' - The ID of the hosted zone you want to delete.
 deleteHostedZone
-    :: Text -- ^ 'dhzId'
+    :: ResourceId -- ^ 'dhzId'
     -> DeleteHostedZone
 deleteHostedZone pId_ =
     DeleteHostedZone'
     { _dhzId = pId_
     }
 
 -- | The ID of the hosted zone you want to delete.
-dhzId :: Lens' DeleteHostedZone Text
+dhzId :: Lens' DeleteHostedZone ResourceId
 dhzId = lens _dhzId (\ s a -> s{_dhzId = a});
 
 instance AWSRequest DeleteHostedZone where

amazonka-route53/gen/Network/AWS/Route53/DeleteReusableDelegationSet.hs

@@ -53,7 +53,7 @@ import           Network.AWS.Route53.Types.Product
 --
 -- /See:/ 'deleteReusableDelegationSet' smart constructor.
 newtype DeleteReusableDelegationSet = DeleteReusableDelegationSet'
-    { _drdsId :: Text
+    { _drdsId :: ResourceId
     } deriving (Eq,Read,Show,Data,Typeable,Generic)
 
 -- | Creates a value of 'DeleteReusableDelegationSet' with the minimum fields required to make a request.
@@ -62,15 +62,15 @@ newtype DeleteReusableDelegationSet = DeleteReusableDelegationSet'
 --
 -- * 'drdsId' - The ID of the reusable delegation set you want to delete.
 deleteReusableDelegationSet
-    :: Text -- ^ 'drdsId'
+    :: ResourceId -- ^ 'drdsId'
     -> DeleteReusableDelegationSet
 deleteReusableDelegationSet pId_ =
     DeleteReusableDelegationSet'
     { _drdsId = pId_
     }
 
 -- | The ID of the reusable delegation set you want to delete.
-drdsId :: Lens' DeleteReusableDelegationSet Text
+drdsId :: Lens' DeleteReusableDelegationSet ResourceId
 drdsId = lens _drdsId (\ s a -> s{_drdsId = a});
 
 instance AWSRequest DeleteReusableDelegationSet where

amazonka-route53/gen/Network/AWS/Route53/DeleteVPCAssociationAuthorization.hs

@@ -54,7 +54,7 @@ import           Network.AWS.Route53.Types.Product
 --
 -- /See:/ 'deleteVPCAssociationAuthorization' smart constructor.
 data DeleteVPCAssociationAuthorization = DeleteVPCAssociationAuthorization'
-    { _dvaaHostedZoneId :: !Text
+    { _dvaaHostedZoneId :: !ResourceId
     , _dvaaVPC          :: !VPC
     } deriving (Eq,Read,Show,Data,Typeable,Generic)
 
@@ -66,7 +66,7 @@ data DeleteVPCAssociationAuthorization = DeleteVPCAssociationAuthorization'
 --
 -- * 'dvaaVPC' - When removing authorization to associate a VPC that was created by one AWS account with a hosted zone that was created with a different AWS account, a complex type that includes the ID and region of the VPC.
 deleteVPCAssociationAuthorization
-    :: Text -- ^ 'dvaaHostedZoneId'
+    :: ResourceId -- ^ 'dvaaHostedZoneId'
     -> VPC -- ^ 'dvaaVPC'
     -> DeleteVPCAssociationAuthorization
 deleteVPCAssociationAuthorization pHostedZoneId_ pVPC_ =
@@ -76,7 +76,7 @@ deleteVPCAssociationAuthorization pHostedZoneId_ pVPC_ =
     }
 
 -- | When removing authorization to associate a VPC that was created by one AWS account with a hosted zone that was created with a different AWS account, the ID of the hosted zone.
-dvaaHostedZoneId :: Lens' DeleteVPCAssociationAuthorization Text
+dvaaHostedZoneId :: Lens' DeleteVPCAssociationAuthorization ResourceId
 dvaaHostedZoneId = lens _dvaaHostedZoneId (\ s a -> s{_dvaaHostedZoneId = a});
 
 -- | When removing authorization to associate a VPC that was created by one AWS account with a hosted zone that was created with a different AWS account, a complex type that includes the ID and region of the VPC.

amazonka-route53/gen/Network/AWS/Route53/DisassociateVPCFromHostedZone.hs

@@ -57,7 +57,7 @@ import           Network.AWS.Route53.Types.Product
 -- /See:/ 'disassociateVPCFromHostedZone' smart constructor.
 data DisassociateVPCFromHostedZone = DisassociateVPCFromHostedZone'
     { _dvfhzComment      :: !(Maybe Text)
-    , _dvfhzHostedZoneId :: !Text
+    , _dvfhzHostedZoneId :: !ResourceId
     , _dvfhzVPC          :: !VPC
     } deriving (Eq,Read,Show,Data,Typeable,Generic)
 
@@ -71,7 +71,7 @@ data DisassociateVPCFromHostedZone = DisassociateVPCFromHostedZone'
 --
 -- * 'dvfhzVPC' - A complex type that contains information about the VPC that you're disassociating from the specified hosted zone.
 disassociateVPCFromHostedZone
-    :: Text -- ^ 'dvfhzHostedZoneId'
+    :: ResourceId -- ^ 'dvfhzHostedZoneId'
     -> VPC -- ^ 'dvfhzVPC'
     -> DisassociateVPCFromHostedZone
 disassociateVPCFromHostedZone pHostedZoneId_ pVPC_ =
@@ -86,7 +86,7 @@ dvfhzComment :: Lens' DisassociateVPCFromHostedZone (Maybe Text)
 dvfhzComment = lens _dvfhzComment (\ s a -> s{_dvfhzComment = a});
 
 -- | The ID of the private hosted zone that you want to disassociate a VPC from.
-dvfhzHostedZoneId :: Lens' DisassociateVPCFromHostedZone Text
+dvfhzHostedZoneId :: Lens' DisassociateVPCFromHostedZone ResourceId
 dvfhzHostedZoneId = lens _dvfhzHostedZoneId (\ s a -> s{_dvfhzHostedZoneId = a});
 
 -- | A complex type that contains information about the VPC that you're disassociating from the specified hosted zone.

amazonka-route53/gen/Network/AWS/Route53/GetChange.hs

@@ -56,7 +56,7 @@ import           Network.AWS.Route53.Types.Product
 --
 -- /See:/ 'getChange' smart constructor.
 newtype GetChange = GetChange'
-    { _gcId :: Text
+    { _gcId :: ResourceId
     } deriving (Eq,Read,Show,Data,Typeable,Generic)
 
 -- | Creates a value of 'GetChange' with the minimum fields required to make a request.
@@ -65,15 +65,15 @@ newtype GetChange = GetChange'
 --
 -- * 'gcId' - The ID of the change batch request. The value that you specify here is the value that @ChangeResourceRecordSets@ returned in the Id element when you submitted the request.
 getChange
-    :: Text -- ^ 'gcId'
+    :: ResourceId -- ^ 'gcId'
     -> GetChange
 getChange pId_ =
     GetChange'
     { _gcId = pId_
     }
 
 -- | The ID of the change batch request. The value that you specify here is the value that @ChangeResourceRecordSets@ returned in the Id element when you submitted the request.
-gcId :: Lens' GetChange Text
+gcId :: Lens' GetChange ResourceId
 gcId = lens _gcId (\ s a -> s{_gcId = a});
 
 instance AWSRequest GetChange where

amazonka-route53/gen/Network/AWS/Route53/GetHostedZone.hs

@@ -52,7 +52,7 @@ import           Network.AWS.Route53.Types.Product
 --
 -- /See:/ 'getHostedZone' smart constructor.
 newtype GetHostedZone = GetHostedZone'
-    { _ghzId :: Text
+    { _ghzId :: ResourceId
     } deriving (Eq,Read,Show,Data,Typeable,Generic)
 
 -- | Creates a value of 'GetHostedZone' with the minimum fields required to make a request.
@@ -61,15 +61,15 @@ newtype GetHostedZone = GetHostedZone'
 --
 -- * 'ghzId' - The ID of the hosted zone for which you want to get a list of the name servers in the delegation set.
 getHostedZone
-    :: Text -- ^ 'ghzId'
+    :: ResourceId -- ^ 'ghzId'
     -> GetHostedZone
 getHostedZone pId_ =
     GetHostedZone'
     { _ghzId = pId_
     }
 
 -- | The ID of the hosted zone for which you want to get a list of the name servers in the delegation set.
-ghzId :: Lens' GetHostedZone Text
+ghzId :: Lens' GetHostedZone ResourceId
 ghzId = lens _ghzId (\ s a -> s{_ghzId = a});
 
 instance AWSRequest GetHostedZone where

amazonka-route53/gen/Network/AWS/Route53/GetReusableDelegationSet.hs

@@ -50,7 +50,7 @@ import           Network.AWS.Route53.Types.Product
 --
 -- /See:/ 'getReusableDelegationSet' smart constructor.
 newtype GetReusableDelegationSet = GetReusableDelegationSet'
-    { _grdsId :: Text
+    { _grdsId :: ResourceId
     } deriving (Eq,Read,Show,Data,Typeable,Generic)
 
 -- | Creates a value of 'GetReusableDelegationSet' with the minimum fields required to make a request.
@@ -59,15 +59,15 @@ newtype GetReusableDelegationSet = GetReusableDelegationSet'
 --
 -- * 'grdsId' - The ID of the reusable delegation set for which you want to get a list of the name server.
 getReusableDelegationSet
-    :: Text -- ^ 'grdsId'
+    :: ResourceId -- ^ 'grdsId'
     -> GetReusableDelegationSet
 getReusableDelegationSet pId_ =
     GetReusableDelegationSet'
     { _grdsId = pId_
     }
 
 -- | The ID of the reusable delegation set for which you want to get a list of the name server.
-grdsId :: Lens' GetReusableDelegationSet Text
+grdsId :: Lens' GetReusableDelegationSet ResourceId
 grdsId = lens _grdsId (\ s a -> s{_grdsId = a});
 
 instance AWSRequest GetReusableDelegationSet where

amazonka-route53/gen/Network/AWS/Route53/ListHostedZones.hs

@@ -89,7 +89,7 @@ import           Network.AWS.Route53.Types.Product
 --
 -- /See:/ 'listHostedZones' smart constructor.
 data ListHostedZones = ListHostedZones'
-    { _lhzDelegationSetId :: !(Maybe Text)
+    { _lhzDelegationSetId :: !(Maybe ResourceId)
     , _lhzMarker          :: !(Maybe Text)
     , _lhzMaxItems        :: !(Maybe Text)
     } deriving (Eq,Read,Show,Data,Typeable,Generic)
@@ -113,7 +113,7 @@ listHostedZones =
     }
 
 -- | If you're using reusable delegation sets and you want to list all of the hosted zones that are associated with a reusable delegation set, specify the ID of that reusable delegation set.
-lhzDelegationSetId :: Lens' ListHostedZones (Maybe Text)
+lhzDelegationSetId :: Lens' ListHostedZones (Maybe ResourceId)
 lhzDelegationSetId = lens _lhzDelegationSetId (\ s a -> s{_lhzDelegationSetId = a});
 
 -- | (Optional) If you have more hosted zones than the value of @maxitems@ , @ListHostedZones@ returns only the first @maxitems@ hosted zones. To get the next group of @maxitems@ hosted zones, submit another request to @ListHostedZones@ . For the value of marker, specify the value of the @NextMarker@ element that was returned in the previous response. Hosted zones are listed in the order in which they were created.