Regenerating EC2 from latest service definition

brendanhay · May 4, 2016 · 6b097cb · 6b097cb
1 parent 1a0d734
commit 6b097cb
Show file tree

Hide file tree

Showing 196 changed files with 1,582 additions and 491 deletions.
diff --git a/amazonka-ec2/amazonka-ec2.cabal b/amazonka-ec2/amazonka-ec2.cabal
@@ -215,6 +215,7 @@ library
         , Network.AWS.EC2.ModifySubnetAttribute
         , Network.AWS.EC2.ModifyVPCAttribute
         , Network.AWS.EC2.ModifyVPCEndpoint
+        , Network.AWS.EC2.ModifyVPCPeeringConnectionOptions
         , Network.AWS.EC2.ModifyVolumeAttribute
         , Network.AWS.EC2.MonitorInstances
         , Network.AWS.EC2.MoveAddressToVPC

diff --git a/amazonka-ec2/fixture/ModifyVPCPeeringConnectionOptions.yaml b/amazonka-ec2/fixture/ModifyVPCPeeringConnectionOptions.yaml
diff --git a/amazonka-ec2/fixture/ModifyVPCPeeringConnectionOptionsResponse.proto b/amazonka-ec2/fixture/ModifyVPCPeeringConnectionOptionsResponse.proto
diff --git a/amazonka-ec2/gen/Network/AWS/EC2.hs b/amazonka-ec2/gen/Network/AWS/EC2.hs
@@ -34,6 +34,9 @@ module Network.AWS.EC2
     -- ** VolumeInUse
     , volumeInUse
 
+    -- ** ImageExists
+    , imageExists
+
     -- ** NatGatewayAvailable
     , natGatewayAvailable
 
@@ -409,6 +412,9 @@ module Network.AWS.EC2
     -- ** CreateVPC
     , module Network.AWS.EC2.CreateVPC
 
+    -- ** ModifyVPCPeeringConnectionOptions
+    , module Network.AWS.EC2.ModifyVPCPeeringConnectionOptions
+
     -- ** CopySnapshot
     , module Network.AWS.EC2.CopySnapshot
 
@@ -1797,6 +1803,18 @@ module Network.AWS.EC2
     , ndcValues
     , ndcKey
 
+    -- ** PeeringConnectionOptions
+    , PeeringConnectionOptions
+    , peeringConnectionOptions
+    , pcoAllowEgressFromLocalVPCToRemoteClassicLink
+    , pcoAllowEgressFromLocalClassicLinkToRemoteVPC
+
+    -- ** PeeringConnectionOptionsRequest
+    , PeeringConnectionOptionsRequest
+    , peeringConnectionOptionsRequest
+    , pcorAllowEgressFromLocalClassicLinkToRemoteVPC
+    , pcorAllowEgressFromLocalVPCToRemoteClassicLink
+
     -- ** Placement
     , Placement
     , placement
@@ -2493,6 +2511,12 @@ module Network.AWS.EC2
     , vpcpcExpirationTime
     , vpcpcTags
 
+    -- ** VPCPeeringConnectionOptionsDescription
+    , VPCPeeringConnectionOptionsDescription
+    , vpcPeeringConnectionOptionsDescription
+    , vpcodAllowEgressFromLocalVPCToRemoteClassicLink
+    , vpcodAllowEgressFromLocalClassicLinkToRemoteVPC
+
     -- ** VPCPeeringConnectionStateReason
     , VPCPeeringConnectionStateReason
     , vpcPeeringConnectionStateReason
@@ -2504,6 +2528,7 @@ module Network.AWS.EC2
     , vpcPeeringConnectionVPCInfo
     , vpcviVPCId
     , vpcviOwnerId
+    , vpcviPeeringOptions
     , vpcviCIdRBlock
 
     -- ** VPNConnection
@@ -2788,6 +2813,7 @@ import           Network.AWS.EC2.ModifySubnetAttribute
 import           Network.AWS.EC2.ModifyVolumeAttribute
 import           Network.AWS.EC2.ModifyVPCAttribute
 import           Network.AWS.EC2.ModifyVPCEndpoint
+import           Network.AWS.EC2.ModifyVPCPeeringConnectionOptions
 import           Network.AWS.EC2.MonitorInstances
 import           Network.AWS.EC2.MoveAddressToVPC
 import           Network.AWS.EC2.PurchaseReservedInstancesOffering

diff --git a/amazonka-ec2/gen/Network/AWS/EC2/AcceptVPCPeeringConnection.hs b/amazonka-ec2/gen/Network/AWS/EC2/AcceptVPCPeeringConnection.hs
@@ -47,7 +47,9 @@ import           Network.AWS.Prelude
 import           Network.AWS.Request
 import           Network.AWS.Response
 
--- | /See:/ 'acceptVPCPeeringConnection' smart constructor.
+-- | Contains the parameters for AcceptVpcPeeringConnection.
+--
+-- /See:/ 'acceptVPCPeeringConnection' smart constructor.
 data AcceptVPCPeeringConnection = AcceptVPCPeeringConnection'
     { _avpcVPCPeeringConnectionId :: !(Maybe Text)
     , _avpcDryRun                 :: !(Maybe Bool)
@@ -110,7 +112,9 @@ instance ToQuery AcceptVPCPeeringConnection where
                  _avpcVPCPeeringConnectionId,
                "DryRun" =: _avpcDryRun]
 
--- | /See:/ 'acceptVPCPeeringConnectionResponse' smart constructor.
+-- | Contains the output of AcceptVpcPeeringConnection.
+--
+-- /See:/ 'acceptVPCPeeringConnectionResponse' smart constructor.
 data AcceptVPCPeeringConnectionResponse = AcceptVPCPeeringConnectionResponse'
     { _avpcrsVPCPeeringConnection :: !(Maybe VPCPeeringConnection)
     , _avpcrsResponseStatus       :: !Int

diff --git a/amazonka-ec2/gen/Network/AWS/EC2/AllocateAddress.hs b/amazonka-ec2/gen/Network/AWS/EC2/AllocateAddress.hs
@@ -50,7 +50,9 @@ import           Network.AWS.Prelude
 import           Network.AWS.Request
 import           Network.AWS.Response
 
--- | /See:/ 'allocateAddress' smart constructor.
+-- | Contains the parameters for AllocateAddress.
+--
+-- /See:/ 'allocateAddress' smart constructor.
 data AllocateAddress = AllocateAddress'
     { _aaDomain :: !(Maybe DomainType)
     , _aaDryRun :: !(Maybe Bool)
@@ -112,7 +114,9 @@ instance ToQuery AllocateAddress where
                "Version" =: ("2015-10-01" :: ByteString),
                "Domain" =: _aaDomain, "DryRun" =: _aaDryRun]
 
--- | /See:/ 'allocateAddressResponse' smart constructor.
+-- | Contains the output of AllocateAddress.
+--
+-- /See:/ 'allocateAddressResponse' smart constructor.
 data AllocateAddressResponse = AllocateAddressResponse'
     { _aarsAllocationId   :: !(Maybe Text)
     , _aarsDomain         :: !(Maybe DomainType)

diff --git a/amazonka-ec2/gen/Network/AWS/EC2/AllocateHosts.hs b/amazonka-ec2/gen/Network/AWS/EC2/AllocateHosts.hs
@@ -48,7 +48,9 @@ import           Network.AWS.Prelude
 import           Network.AWS.Request
 import           Network.AWS.Response
 
--- | /See:/ 'allocateHosts' smart constructor.
+-- | Contains the parameters for AllocateHosts.
+--
+-- /See:/ 'allocateHosts' smart constructor.
 data AllocateHosts = AllocateHosts'
     { _ahClientToken      :: !(Maybe Text)
     , _ahAutoPlacement    :: !(Maybe AutoPlacement)
@@ -146,7 +148,9 @@ instance ToQuery AllocateHosts where
                "Quantity" =: _ahQuantity,
                "AvailabilityZone" =: _ahAvailabilityZone]
 
--- | /See:/ 'allocateHostsResponse' smart constructor.
+-- | Contains the output of AllocateHosts.
+--
+-- /See:/ 'allocateHostsResponse' smart constructor.
 data AllocateHostsResponse = AllocateHostsResponse'
     { _ahrsHostIds        :: !(Maybe [Text])
     , _ahrsResponseStatus :: !Int

diff --git a/amazonka-ec2/gen/Network/AWS/EC2/AssignPrivateIPAddresses.hs b/amazonka-ec2/gen/Network/AWS/EC2/AssignPrivateIPAddresses.hs
@@ -54,7 +54,9 @@ import           Network.AWS.Prelude
 import           Network.AWS.Request
 import           Network.AWS.Response
 
--- | /See:/ 'assignPrivateIPAddresses' smart constructor.
+-- | Contains the parameters for AssignPrivateIpAddresses.
+--
+-- /See:/ 'assignPrivateIPAddresses' smart constructor.
 data AssignPrivateIPAddresses = AssignPrivateIPAddresses'
     { _apiaPrivateIPAddresses             :: !(Maybe [Text])
     , _apiaAllowReassignment              :: !(Maybe Bool)

diff --git a/amazonka-ec2/gen/Network/AWS/EC2/AssociateAddress.hs b/amazonka-ec2/gen/Network/AWS/EC2/AssociateAddress.hs
@@ -67,7 +67,9 @@ import           Network.AWS.Prelude
 import           Network.AWS.Request
 import           Network.AWS.Response
 
--- | /See:/ 'associateAddress' smart constructor.
+-- | Contains the parameters for AssociateAddress.
+--
+-- /See:/ 'associateAddress' smart constructor.
 data AssociateAddress = AssociateAddress'
     { _aasInstanceId         :: !(Maybe Text)
     , _aasAllocationId       :: !(Maybe Text)
@@ -182,7 +184,9 @@ instance ToQuery AssociateAddress where
                "PrivateIpAddress" =: _aasPrivateIPAddress,
                "PublicIp" =: _aasPublicIP, "DryRun" =: _aasDryRun]
 
--- | /See:/ 'associateAddressResponse' smart constructor.
+-- | Contains the output of AssociateAddress.
+--
+-- /See:/ 'associateAddressResponse' smart constructor.
 data AssociateAddressResponse = AssociateAddressResponse'
     { _arsAssociationId  :: !(Maybe Text)
     , _arsResponseStatus :: !Int

diff --git a/amazonka-ec2/gen/Network/AWS/EC2/AssociateDHCPOptions.hs b/amazonka-ec2/gen/Network/AWS/EC2/AssociateDHCPOptions.hs
@@ -53,7 +53,9 @@ import           Network.AWS.Prelude
 import           Network.AWS.Request
 import           Network.AWS.Response
 
--- | /See:/ 'associateDHCPOptions' smart constructor.
+-- | Contains the parameters for AssociateDhcpOptions.
+--
+-- /See:/ 'associateDHCPOptions' smart constructor.
 data AssociateDHCPOptions = AssociateDHCPOptions'
     { _adoDryRun        :: !(Maybe Bool)
     , _adoDHCPOptionsId :: !Text

diff --git a/amazonka-ec2/gen/Network/AWS/EC2/AssociateRouteTable.hs b/amazonka-ec2/gen/Network/AWS/EC2/AssociateRouteTable.hs
@@ -53,7 +53,9 @@ import           Network.AWS.Prelude
 import           Network.AWS.Request
 import           Network.AWS.Response
 
--- | /See:/ 'associateRouteTable' smart constructor.
+-- | Contains the parameters for AssociateRouteTable.
+--
+-- /See:/ 'associateRouteTable' smart constructor.
 data AssociateRouteTable = AssociateRouteTable'
     { _artDryRun       :: !(Maybe Bool)
     , _artSubnetId     :: !Text
@@ -123,7 +125,9 @@ instance ToQuery AssociateRouteTable where
                "DryRun" =: _artDryRun, "SubnetId" =: _artSubnetId,
                "RouteTableId" =: _artRouteTableId]
 
--- | /See:/ 'associateRouteTableResponse' smart constructor.
+-- | Contains the output of AssociateRouteTable.
+--
+-- /See:/ 'associateRouteTableResponse' smart constructor.
 data AssociateRouteTableResponse = AssociateRouteTableResponse'
     { _artrsAssociationId  :: !(Maybe Text)
     , _artrsResponseStatus :: !Int

diff --git a/amazonka-ec2/gen/Network/AWS/EC2/AttachClassicLinkVPC.hs b/amazonka-ec2/gen/Network/AWS/EC2/AttachClassicLinkVPC.hs
@@ -57,7 +57,9 @@ import           Network.AWS.Prelude
 import           Network.AWS.Request
 import           Network.AWS.Response
 
--- | /See:/ 'attachClassicLinkVPC' smart constructor.
+-- | Contains the parameters for AttachClassicLinkVpc.
+--
+-- /See:/ 'attachClassicLinkVPC' smart constructor.
 data AttachClassicLinkVPC = AttachClassicLinkVPC'
     { _aclvDryRun     :: !(Maybe Bool)
     , _aclvInstanceId :: !Text
@@ -139,7 +141,9 @@ instance ToQuery AttachClassicLinkVPC where
                "VpcId" =: _aclvVPCId,
                toQueryList "SecurityGroupId" _aclvGroups]
 
--- | /See:/ 'attachClassicLinkVPCResponse' smart constructor.
+-- | Contains the output of AttachClassicLinkVpc.
+--
+-- /See:/ 'attachClassicLinkVPCResponse' smart constructor.
 data AttachClassicLinkVPCResponse = AttachClassicLinkVPCResponse'
     { _aclvrsReturn         :: !(Maybe Bool)
     , _aclvrsResponseStatus :: !Int

diff --git a/amazonka-ec2/gen/Network/AWS/EC2/AttachInternetGateway.hs b/amazonka-ec2/gen/Network/AWS/EC2/AttachInternetGateway.hs
@@ -44,7 +44,9 @@ import           Network.AWS.Prelude
 import           Network.AWS.Request
 import           Network.AWS.Response
 
--- | /See:/ 'attachInternetGateway' smart constructor.
+-- | Contains the parameters for AttachInternetGateway.
+--
+-- /See:/ 'attachInternetGateway' smart constructor.
 data AttachInternetGateway = AttachInternetGateway'
     { _aigDryRun            :: !(Maybe Bool)
     , _aigInternetGatewayId :: !Text

diff --git a/amazonka-ec2/gen/Network/AWS/EC2/AttachNetworkInterface.hs b/amazonka-ec2/gen/Network/AWS/EC2/AttachNetworkInterface.hs
@@ -45,7 +45,9 @@ import           Network.AWS.Prelude
 import           Network.AWS.Request
 import           Network.AWS.Response
 
--- | /See:/ 'attachNetworkInterface' smart constructor.
+-- | Contains the parameters for AttachNetworkInterface.
+--
+-- /See:/ 'attachNetworkInterface' smart constructor.
 data AttachNetworkInterface = AttachNetworkInterface'
     { _aniDryRun             :: !(Maybe Bool)
     , _aniNetworkInterfaceId :: !Text
@@ -127,7 +129,9 @@ instance ToQuery AttachNetworkInterface where
                "InstanceId" =: _aniInstanceId,
                "DeviceIndex" =: _aniDeviceIndex]
 
--- | /See:/ 'attachNetworkInterfaceResponse' smart constructor.
+-- | Contains the output of AttachNetworkInterface.
+--
+-- /See:/ 'attachNetworkInterfaceResponse' smart constructor.
 data AttachNetworkInterfaceResponse = AttachNetworkInterfaceResponse'
     { _anirsAttachmentId   :: !(Maybe Text)
     , _anirsResponseStatus :: !Int

diff --git a/amazonka-ec2/gen/Network/AWS/EC2/AttachVPNGateway.hs b/amazonka-ec2/gen/Network/AWS/EC2/AttachVPNGateway.hs
@@ -46,7 +46,9 @@ import           Network.AWS.Prelude
 import           Network.AWS.Request
 import           Network.AWS.Response
 
--- | /See:/ 'attachVPNGateway' smart constructor.
+-- | Contains the parameters for AttachVpnGateway.
+--
+-- /See:/ 'attachVPNGateway' smart constructor.
 data AttachVPNGateway = AttachVPNGateway'
     { _avgDryRun       :: !(Maybe Bool)
     , _avgVPNGatewayId :: !Text
@@ -116,7 +118,9 @@ instance ToQuery AttachVPNGateway where
                "VpnGatewayId" =: _avgVPNGatewayId,
                "VpcId" =: _avgVPCId]
 
--- | /See:/ 'attachVPNGatewayResponse' smart constructor.
+-- | Contains the output of AttachVpnGateway.
+--
+-- /See:/ 'attachVPNGatewayResponse' smart constructor.
 data AttachVPNGatewayResponse = AttachVPNGatewayResponse'
     { _avgrsVPCAttachment  :: !(Maybe VPCAttachment)
     , _avgrsResponseStatus :: !Int

diff --git a/amazonka-ec2/gen/Network/AWS/EC2/AttachVolume.hs b/amazonka-ec2/gen/Network/AWS/EC2/AttachVolume.hs
@@ -36,9 +36,12 @@
 -- If a volume has an AWS Marketplace product code:
 --
 -- -   The volume can be attached only to a stopped instance.
+--
 -- -   AWS Marketplace product codes are copied from the volume to the
 --     instance.
+--
 -- -   You must be subscribed to the product.
+--
 -- -   The instance type and operating system of the instance must support
 --     the product. For example, you can\'t detach a volume from a Windows
 --     instance and attach it to a Linux instance.
@@ -79,7 +82,9 @@ import           Network.AWS.Prelude
 import           Network.AWS.Request
 import           Network.AWS.Response
 
--- | /See:/ 'attachVolume' smart constructor.
+-- | Contains the parameters for AttachVolume.
+--
+-- /See:/ 'attachVolume' smart constructor.
 data AttachVolume = AttachVolume'
     { _avDryRun     :: !(Maybe Bool)
     , _avVolumeId   :: !Text

diff --git a/amazonka-ec2/gen/Network/AWS/EC2/AuthorizeSecurityGroupEgress.hs b/amazonka-ec2/gen/Network/AWS/EC2/AuthorizeSecurityGroupEgress.hs
@@ -65,7 +65,9 @@ import           Network.AWS.Prelude
 import           Network.AWS.Request
 import           Network.AWS.Response
 
--- | /See:/ 'authorizeSecurityGroupEgress' smart constructor.
+-- | Contains the parameters for AuthorizeSecurityGroupEgress.
+--
+-- /See:/ 'authorizeSecurityGroupEgress' smart constructor.
 data AuthorizeSecurityGroupEgress = AuthorizeSecurityGroupEgress'
     { _asgeFromPort                   :: !(Maybe Int)
     , _asgeIPPermissions              :: !(Maybe [IPPermission])

diff --git a/amazonka-ec2/gen/Network/AWS/EC2/AuthorizeSecurityGroupIngress.hs b/amazonka-ec2/gen/Network/AWS/EC2/AuthorizeSecurityGroupIngress.hs
@@ -68,7 +68,9 @@ import           Network.AWS.Prelude
 import           Network.AWS.Request
 import           Network.AWS.Response
 
--- | /See:/ 'authorizeSecurityGroupIngress' smart constructor.
+-- | Contains the parameters for AuthorizeSecurityGroupIngress.
+--
+-- /See:/ 'authorizeSecurityGroupIngress' smart constructor.
 data AuthorizeSecurityGroupIngress = AuthorizeSecurityGroupIngress'
     { _asgiFromPort                   :: !(Maybe Int)
     , _asgiIPPermissions              :: !(Maybe [IPPermission])
@@ -152,14 +154,13 @@ asgiToPort = lens _asgiToPort (\ s a -> s{_asgiToPort = a});
 asgiCIdRIP :: Lens' AuthorizeSecurityGroupIngress (Maybe Text)
 asgiCIdRIP = lens _asgiCIdRIP (\ s a -> s{_asgiCIdRIP = a});
 
--- | [EC2-Classic, default VPC] The AWS account number for the source
--- security group. For EC2-VPC, the source security group must be in the
--- same VPC. You can\'t specify this parameter in combination with the
--- following parameters: the CIDR IP address range, the IP protocol, the
--- start of the port range, and the end of the port range. Creates rules
--- that grant full ICMP, UDP, and TCP access. To create a rule with a
--- specific IP protocol and port range, use a set of IP permissions
--- instead.
+-- | [EC2-Classic] The AWS account number for the source security group, if
+-- the source security group is in a different account. You can\'t specify
+-- this parameter in combination with the following parameters: the CIDR IP
+-- address range, the IP protocol, the start of the port range, and the end
+-- of the port range. Creates rules that grant full ICMP, UDP, and TCP
+-- access. To create a rule with a specific IP protocol and port range, use
+-- a set of IP permissions instead.
 asgiSourceSecurityGroupOwnerId :: Lens' AuthorizeSecurityGroupIngress (Maybe Text)
 asgiSourceSecurityGroupOwnerId = lens _asgiSourceSecurityGroupOwnerId (\ s a -> s{_asgiSourceSecurityGroupOwnerId = a});
 
@@ -170,8 +171,10 @@ asgiGroupName = lens _asgiGroupName (\ s a -> s{_asgiGroupName = a});
 -- | [EC2-Classic, default VPC] The name of the source security group. You
 -- can\'t specify this parameter in combination with the following
 -- parameters: the CIDR IP address range, the start of the port range, the
--- IP protocol, and the end of the port range. For EC2-VPC, the source
--- security group must be in the same VPC.
+-- IP protocol, and the end of the port range. Creates rules that grant
+-- full ICMP, UDP, and TCP access. To create a rule with a specific IP
+-- protocol and port range, use a set of IP permissions instead. For
+-- EC2-VPC, the source security group must be in the same VPC.
 asgiSourceSecurityGroupName :: Lens' AuthorizeSecurityGroupIngress (Maybe Text)
 asgiSourceSecurityGroupName = lens _asgiSourceSecurityGroupName (\ s a -> s{_asgiSourceSecurityGroupName = a});
 

diff --git a/amazonka-ec2/gen/Network/AWS/EC2/BundleInstance.hs b/amazonka-ec2/gen/Network/AWS/EC2/BundleInstance.hs
@@ -53,7 +53,9 @@ import           Network.AWS.Prelude
 import           Network.AWS.Request
 import           Network.AWS.Response
 
--- | /See:/ 'bundleInstance' smart constructor.
+-- | Contains the parameters for BundleInstance.
+--
+-- /See:/ 'bundleInstance' smart constructor.
 data BundleInstance = BundleInstance'
     { _biDryRun     :: !(Maybe Bool)
     , _biInstanceId :: !Text
@@ -131,7 +133,9 @@ instance ToQuery BundleInstance where
                "DryRun" =: _biDryRun, "InstanceId" =: _biInstanceId,
                "Storage" =: _biStorage]
 
--- | /See:/ 'bundleInstanceResponse' smart constructor.
+-- | Contains the output of BundleInstance.
+--
+-- /See:/ 'bundleInstanceResponse' smart constructor.
 data BundleInstanceResponse = BundleInstanceResponse'
     { _birsBundleTask     :: !(Maybe BundleTask)
     , _birsResponseStatus :: !Int