Regenerating services affected by updated locationNames for flattened…

… serialisation
dysinger · Dec 22, 2014 · 652c2b0 · 652c2b0
1 parent 6771f3b
commit 652c2b0
Show file tree

Hide file tree

Showing 79 changed files with 20,724 additions and 236 deletions.
diff --git a/amazonka-codedeploy/gen/Network/AWS/CodeDeploy/BatchGetApplications.hs b/amazonka-codedeploy/gen/Network/AWS/CodeDeploy/BatchGetApplications.hs
@@ -48,7 +48,7 @@ import Network.AWS.CodeDeploy.Types
 import qualified GHC.Exts
 
 newtype BatchGetApplications = BatchGetApplications
-    { _bgaApplicationNames :: List "applications" Text
+    { _bgaApplicationNames :: List "applicationNames" Text
     } deriving (Eq, Ord, Show, Monoid, Semigroup)
 
 instance GHC.Exts.IsList BatchGetApplications where

diff --git a/amazonka-codedeploy/gen/Network/AWS/CodeDeploy/BatchGetDeployments.hs b/amazonka-codedeploy/gen/Network/AWS/CodeDeploy/BatchGetDeployments.hs
@@ -48,7 +48,7 @@ import Network.AWS.CodeDeploy.Types
 import qualified GHC.Exts
 
 newtype BatchGetDeployments = BatchGetDeployments
-    { _bgdDeploymentIds :: List "deployments" Text
+    { _bgdDeploymentIds :: List "deploymentIds" Text
     } deriving (Eq, Ord, Show, Monoid, Semigroup)
 
 instance GHC.Exts.IsList BatchGetDeployments where

diff --git a/amazonka-codedeploy/gen/Network/AWS/CodeDeploy/DeleteDeploymentGroup.hs b/amazonka-codedeploy/gen/Network/AWS/CodeDeploy/DeleteDeploymentGroup.hs
@@ -81,7 +81,7 @@ ddgDeploymentGroupName =
     lens _ddgDeploymentGroupName (\s a -> s { _ddgDeploymentGroupName = a })
 
 newtype DeleteDeploymentGroupResponse = DeleteDeploymentGroupResponse
-    { _ddgrHooksNotCleanedUp :: List "autoScalingGroups" AutoScalingGroup
+    { _ddgrHooksNotCleanedUp :: List "hooksNotCleanedUp" AutoScalingGroup
     } deriving (Eq, Show, Monoid, Semigroup)
 
 instance GHC.Exts.IsList DeleteDeploymentGroupResponse where

diff --git a/amazonka-codedeploy/gen/Network/AWS/CodeDeploy/UpdateDeploymentGroup.hs b/amazonka-codedeploy/gen/Network/AWS/CodeDeploy/UpdateDeploymentGroup.hs
@@ -135,7 +135,7 @@ udgServiceRoleArn =
     lens _udgServiceRoleArn (\s a -> s { _udgServiceRoleArn = a })
 
 newtype UpdateDeploymentGroupResponse = UpdateDeploymentGroupResponse
-    { _udgrHooksNotCleanedUp :: List "autoScalingGroups" AutoScalingGroup
+    { _udgrHooksNotCleanedUp :: List "hooksNotCleanedUp" AutoScalingGroup
     } deriving (Eq, Show, Monoid, Semigroup)
 
 instance GHC.Exts.IsList UpdateDeploymentGroupResponse where

diff --git a/amazonka-cognito-identity/gen/Network/AWS/CognitoIdentity/UnlinkIdentity.hs b/amazonka-cognito-identity/gen/Network/AWS/CognitoIdentity/UnlinkIdentity.hs
@@ -52,7 +52,7 @@ import qualified GHC.Exts
 data UnlinkIdentity = UnlinkIdentity
     { _uiIdentityId     :: Text
     , _uiLogins         :: Map Text Text
-    , _uiLoginsToRemove :: List "Logins" Text
+    , _uiLoginsToRemove :: List "LoginsToRemove" Text
     } deriving (Eq, Show)
 
 -- | 'UnlinkIdentity' constructor.

diff --git a/amazonka-datapipeline/gen/Network/AWS/DataPipeline/DescribeObjects.hs b/amazonka-datapipeline/gen/Network/AWS/DataPipeline/DescribeObjects.hs
@@ -57,7 +57,7 @@ import qualified GHC.Exts
 data DescribeObjects = DescribeObjects
     { _doEvaluateExpressions :: Maybe Bool
     , _doMarker              :: Maybe Text
-    , _doObjectIds           :: List "pipelineIds" Text
+    , _doObjectIds           :: List "objectIds" Text
     , _doPipelineId          :: Text
     } deriving (Eq, Ord, Show)
 

diff --git a/amazonka-datapipeline/gen/Network/AWS/DataPipeline/QueryObjects.hs b/amazonka-datapipeline/gen/Network/AWS/DataPipeline/QueryObjects.hs
@@ -121,7 +121,7 @@ qoSphere = lens _qoSphere (\s a -> s { _qoSphere = a })
 
 data QueryObjectsResponse = QueryObjectsResponse
     { _qorHasMoreResults :: Maybe Bool
-    , _qorIds            :: List "pipelineIds" Text
+    , _qorIds            :: List "ids" Text
     , _qorMarker         :: Maybe Text
     } deriving (Eq, Ord, Show)
 

diff --git a/amazonka-datapipeline/gen/Network/AWS/DataPipeline/SetStatus.hs b/amazonka-datapipeline/gen/Network/AWS/DataPipeline/SetStatus.hs
@@ -53,7 +53,7 @@ import Network.AWS.DataPipeline.Types
 import qualified GHC.Exts
 
 data SetStatus = SetStatus
-    { _ssObjectIds  :: List "pipelineIds" Text
+    { _ssObjectIds  :: List "objectIds" Text
     , _ssPipelineId :: Text
     , _ssStatus     :: Text
     } deriving (Eq, Ord, Show)

diff --git a/amazonka-datapipeline/gen/Network/AWS/DataPipeline/Types.hs b/amazonka-datapipeline/gen/Network/AWS/DataPipeline/Types.hs
@@ -832,7 +832,7 @@ instance ToJSON TaskStatus where
 
 data ValidationWarning = ValidationWarning
     { _vwId       :: Maybe Text
-    , _vwWarnings :: List "errors" Text
+    , _vwWarnings :: List "warnings" Text
     } deriving (Eq, Ord, Show)
 
 -- | 'ValidationWarning' constructor.

diff --git a/amazonka-dynamodb/gen/Network/AWS/DynamoDB/BatchGetItem.hs b/amazonka-dynamodb/gen/Network/AWS/DynamoDB/BatchGetItem.hs
@@ -146,7 +146,7 @@ bgiReturnConsumedCapacity =
 
 data BatchGetItemResponse = BatchGetItemResponse
     { _bgirConsumedCapacity :: List "ConsumedCapacity" ConsumedCapacity
-    , _bgirResponses        :: Map Text (List "Items" (Map Text AttributeValue))
+    , _bgirResponses        :: Map Text (List "Responses" (Map Text AttributeValue))
     , _bgirUnprocessedKeys  :: Map Text KeysAndAttributes
     } deriving (Eq, Show)
 

diff --git a/amazonka-dynamodb/gen/Network/AWS/DynamoDB/BatchWriteItem.hs b/amazonka-dynamodb/gen/Network/AWS/DynamoDB/BatchWriteItem.hs
@@ -183,7 +183,7 @@ bwiReturnItemCollectionMetrics =
 data BatchWriteItemResponse = BatchWriteItemResponse
     { _bwirConsumedCapacity      :: List "ConsumedCapacity" ConsumedCapacity
     , _bwirItemCollectionMetrics :: Map Text (List "ItemCollectionMetrics" ItemCollectionMetrics)
-    , _bwirUnprocessedItems      :: Map Text (List1 "RequestItems" WriteRequest)
+    , _bwirUnprocessedItems      :: Map Text (List1 "UnprocessedItems" WriteRequest)
     } deriving (Eq, Show)
 
 -- | 'BatchWriteItemResponse' constructor.

diff --git a/amazonka-emr/gen/Network/AWS/EMR/DescribeJobFlows.hs b/amazonka-emr/gen/Network/AWS/EMR/DescribeJobFlows.hs
@@ -68,7 +68,7 @@ import qualified GHC.Exts
 data DescribeJobFlows = DescribeJobFlows
     { _djfCreatedAfter  :: Maybe POSIX
     , _djfCreatedBefore :: Maybe POSIX
-    , _djfJobFlowIds    :: List "Args" Text
+    , _djfJobFlowIds    :: List "JobFlowIds" Text
     , _djfJobFlowStates :: List "JobFlowStates" JobFlowExecutionState
     } deriving (Eq, Show)
 

diff --git a/amazonka-emr/gen/Network/AWS/EMR/ListSteps.hs b/amazonka-emr/gen/Network/AWS/EMR/ListSteps.hs
@@ -54,7 +54,7 @@ import qualified GHC.Exts
 data ListSteps = ListSteps
     { _lsClusterId  :: Text
     , _lsMarker     :: Maybe Text
-    , _lsStepIds    :: List "Args" Text
+    , _lsStepIds    :: List "StepIds" Text
     , _lsStepStates :: List "StepStates" StepState
     } deriving (Eq, Show)
 

diff --git a/amazonka-emr/gen/Network/AWS/EMR/RemoveTags.hs b/amazonka-emr/gen/Network/AWS/EMR/RemoveTags.hs
@@ -52,7 +52,7 @@ import qualified GHC.Exts
 
 data RemoveTags = RemoveTags
     { _rtResourceId :: Text
-    , _rtTagKeys    :: List "Args" Text
+    , _rtTagKeys    :: List "TagKeys" Text
     } deriving (Eq, Ord, Show)
 
 -- | 'RemoveTags' constructor.

diff --git a/amazonka-emr/gen/Network/AWS/EMR/SetTerminationProtection.hs b/amazonka-emr/gen/Network/AWS/EMR/SetTerminationProtection.hs
@@ -62,7 +62,7 @@ import Network.AWS.EMR.Types
 import qualified GHC.Exts
 
 data SetTerminationProtection = SetTerminationProtection
-    { _stpJobFlowIds           :: List "Args" Text
+    { _stpJobFlowIds           :: List "JobFlowIds" Text
     , _stpTerminationProtected :: Bool
     } deriving (Eq, Ord, Show)
 

diff --git a/amazonka-emr/gen/Network/AWS/EMR/SetVisibleToAllUsers.hs b/amazonka-emr/gen/Network/AWS/EMR/SetVisibleToAllUsers.hs
@@ -52,7 +52,7 @@ import Network.AWS.EMR.Types
 import qualified GHC.Exts
 
 data SetVisibleToAllUsers = SetVisibleToAllUsers
-    { _svtauJobFlowIds        :: List "Args" Text
+    { _svtauJobFlowIds        :: List "JobFlowIds" Text
     , _svtauVisibleToAllUsers :: Bool
     } deriving (Eq, Ord, Show)
 

diff --git a/amazonka-emr/gen/Network/AWS/EMR/TerminateJobFlows.hs b/amazonka-emr/gen/Network/AWS/EMR/TerminateJobFlows.hs
@@ -55,7 +55,7 @@ import Network.AWS.EMR.Types
 import qualified GHC.Exts
 
 newtype TerminateJobFlows = TerminateJobFlows
-    { _tjfJobFlowIds :: List "Args" Text
+    { _tjfJobFlowIds :: List "JobFlowIds" Text
     } deriving (Eq, Ord, Show, Monoid, Semigroup)
 
 instance GHC.Exts.IsList TerminateJobFlows where

diff --git a/amazonka-opsworks/gen/Network/AWS/OpsWorks/AssignInstance.hs b/amazonka-opsworks/gen/Network/AWS/OpsWorks/AssignInstance.hs
@@ -53,7 +53,7 @@ import qualified GHC.Exts
 
 data AssignInstance = AssignInstance
     { _aiInstanceId :: Text
-    , _aiLayerIds   :: List "InstanceIds" Text
+    , _aiLayerIds   :: List "LayerIds" Text
     } deriving (Eq, Ord, Show)
 
 -- | 'AssignInstance' constructor.

diff --git a/amazonka-opsworks/gen/Network/AWS/OpsWorks/CloneStack.hs b/amazonka-opsworks/gen/Network/AWS/OpsWorks/CloneStack.hs
@@ -74,7 +74,7 @@ import qualified GHC.Exts
 data CloneStack = CloneStack
     { _cs1Attributes                :: Map StackAttributesKeys Text
     , _cs1ChefConfiguration         :: Maybe ChefConfiguration
-    , _cs1CloneAppIds               :: List "InstanceIds" Text
+    , _cs1CloneAppIds               :: List "CloneAppIds" Text
     , _cs1ClonePermissions          :: Maybe Bool
     , _cs1ConfigurationManager      :: Maybe StackConfigurationManager
     , _cs1CustomCookbooksSource     :: Maybe Source

diff --git a/amazonka-opsworks/gen/Network/AWS/OpsWorks/CreateApp.hs b/amazonka-opsworks/gen/Network/AWS/OpsWorks/CreateApp.hs
@@ -67,7 +67,7 @@ data CreateApp = CreateApp
     , _caAttributes       :: Map AppAttributesKeys Text
     , _caDataSources      :: List "DataSources" DataSource
     , _caDescription      :: Maybe Text
-    , _caDomains          :: List "InstanceIds" Text
+    , _caDomains          :: List "Domains" Text
     , _caEnableSsl        :: Maybe Bool
     , _caEnvironment      :: List "Environment" EnvironmentVariable
     , _caName             :: Text

diff --git a/amazonka-opsworks/gen/Network/AWS/OpsWorks/CreateInstance.hs b/amazonka-opsworks/gen/Network/AWS/OpsWorks/CreateInstance.hs
@@ -74,7 +74,7 @@ data CreateInstance = CreateInstance
     , _ciHostname             :: Maybe Text
     , _ciInstallUpdatesOnBoot :: Maybe Bool
     , _ciInstanceType         :: Text
-    , _ciLayerIds             :: List "InstanceIds" Text
+    , _ciLayerIds             :: List "LayerIds" Text
     , _ciOs                   :: Maybe Text
     , _ciRootDeviceType       :: Maybe RootDeviceType
     , _ciSshKeyName           :: Maybe Text

diff --git a/amazonka-opsworks/gen/Network/AWS/OpsWorks/CreateLayer.hs b/amazonka-opsworks/gen/Network/AWS/OpsWorks/CreateLayer.hs
@@ -79,12 +79,12 @@ data CreateLayer = CreateLayer
     , _clAutoAssignPublicIps         :: Maybe Bool
     , _clCustomInstanceProfileArn    :: Maybe Text
     , _clCustomRecipes               :: Maybe Recipes
-    , _clCustomSecurityGroupIds      :: List "InstanceIds" Text
+    , _clCustomSecurityGroupIds      :: List "CustomSecurityGroupIds" Text
     , _clEnableAutoHealing           :: Maybe Bool
     , _clInstallUpdatesOnBoot        :: Maybe Bool
     , _clLifecycleEventConfiguration :: Maybe LifecycleEventConfiguration
     , _clName                        :: Text
-    , _clPackages                    :: List "InstanceIds" Text
+    , _clPackages                    :: List "Packages" Text
     , _clShortname                   :: Text
     , _clStackId                     :: Text
     , _clType                        :: LayerType

diff --git a/amazonka-opsworks/gen/Network/AWS/OpsWorks/DescribeApps.hs b/amazonka-opsworks/gen/Network/AWS/OpsWorks/DescribeApps.hs
@@ -55,7 +55,7 @@ import Network.AWS.OpsWorks.Types
 import qualified GHC.Exts
 
 data DescribeApps = DescribeApps
-    { _daAppIds  :: List "InstanceIds" Text
+    { _daAppIds  :: List "AppIds" Text
     , _daStackId :: Maybe Text
     } deriving (Eq, Ord, Show)
 

diff --git a/amazonka-opsworks/gen/Network/AWS/OpsWorks/DescribeCommands.hs b/amazonka-opsworks/gen/Network/AWS/OpsWorks/DescribeCommands.hs
@@ -56,7 +56,7 @@ import Network.AWS.OpsWorks.Types
 import qualified GHC.Exts
 
 data DescribeCommands = DescribeCommands
-    { _dcCommandIds   :: List "InstanceIds" Text
+    { _dcCommandIds   :: List "CommandIds" Text
     , _dcDeploymentId :: Maybe Text
     , _dcInstanceId   :: Maybe Text
     } deriving (Eq, Ord, Show)

diff --git a/amazonka-opsworks/gen/Network/AWS/OpsWorks/DescribeDeployments.hs b/amazonka-opsworks/gen/Network/AWS/OpsWorks/DescribeDeployments.hs
@@ -57,7 +57,7 @@ import qualified GHC.Exts
 
 data DescribeDeployments = DescribeDeployments
     { _ddAppId         :: Maybe Text
-    , _ddDeploymentIds :: List "InstanceIds" Text
+    , _ddDeploymentIds :: List "DeploymentIds" Text
     , _ddStackId       :: Maybe Text
     } deriving (Eq, Ord, Show)
 

diff --git a/amazonka-opsworks/gen/Network/AWS/OpsWorks/DescribeElasticIps.hs b/amazonka-opsworks/gen/Network/AWS/OpsWorks/DescribeElasticIps.hs
@@ -57,7 +57,7 @@ import qualified GHC.Exts
 
 data DescribeElasticIps = DescribeElasticIps
     { _deiInstanceId :: Maybe Text
-    , _deiIps        :: List "InstanceIds" Text
+    , _deiIps        :: List "Ips" Text
     , _deiStackId    :: Maybe Text
     } deriving (Eq, Ord, Show)
 

diff --git a/amazonka-opsworks/gen/Network/AWS/OpsWorks/DescribeElasticLoadBalancers.hs b/amazonka-opsworks/gen/Network/AWS/OpsWorks/DescribeElasticLoadBalancers.hs
@@ -55,7 +55,7 @@ import Network.AWS.OpsWorks.Types
 import qualified GHC.Exts
 
 data DescribeElasticLoadBalancers = DescribeElasticLoadBalancers
-    { _delbLayerIds :: List "InstanceIds" Text
+    { _delbLayerIds :: List "LayerIds" Text
     , _delbStackId  :: Maybe Text
     } deriving (Eq, Ord, Show)
 

diff --git a/amazonka-opsworks/gen/Network/AWS/OpsWorks/DescribeLayers.hs b/amazonka-opsworks/gen/Network/AWS/OpsWorks/DescribeLayers.hs
@@ -55,7 +55,7 @@ import Network.AWS.OpsWorks.Types
 import qualified GHC.Exts
 
 data DescribeLayers = DescribeLayers
-    { _dlLayerIds :: List "InstanceIds" Text
+    { _dlLayerIds :: List "LayerIds" Text
     , _dlStackId  :: Maybe Text
     } deriving (Eq, Ord, Show)
 

diff --git a/amazonka-opsworks/gen/Network/AWS/OpsWorks/DescribeLoadBasedAutoScaling.hs b/amazonka-opsworks/gen/Network/AWS/OpsWorks/DescribeLoadBasedAutoScaling.hs
@@ -54,7 +54,7 @@ import Network.AWS.OpsWorks.Types
 import qualified GHC.Exts
 
 newtype DescribeLoadBasedAutoScaling = DescribeLoadBasedAutoScaling
-    { _dlbasLayerIds :: List "InstanceIds" Text
+    { _dlbasLayerIds :: List "LayerIds" Text
     } deriving (Eq, Ord, Show, Monoid, Semigroup)
 
 instance GHC.Exts.IsList DescribeLoadBasedAutoScaling where

diff --git a/amazonka-opsworks/gen/Network/AWS/OpsWorks/DescribeRaidArrays.hs b/amazonka-opsworks/gen/Network/AWS/OpsWorks/DescribeRaidArrays.hs
@@ -57,7 +57,7 @@ import qualified GHC.Exts
 
 data DescribeRaidArrays = DescribeRaidArrays
     { _draInstanceId   :: Maybe Text
-    , _draRaidArrayIds :: List "InstanceIds" Text
+    , _draRaidArrayIds :: List "RaidArrayIds" Text
     , _draStackId      :: Maybe Text
     } deriving (Eq, Ord, Show)
 

diff --git a/amazonka-opsworks/gen/Network/AWS/OpsWorks/DescribeRdsDbInstances.hs b/amazonka-opsworks/gen/Network/AWS/OpsWorks/DescribeRdsDbInstances.hs
@@ -53,7 +53,7 @@ import Network.AWS.OpsWorks.Types
 import qualified GHC.Exts
 
 data DescribeRdsDbInstances = DescribeRdsDbInstances
-    { _drdiRdsDbInstanceArns :: List "InstanceIds" Text
+    { _drdiRdsDbInstanceArns :: List "RdsDbInstanceArns" Text
     , _drdiStackId           :: Text
     } deriving (Eq, Ord, Show)
 

diff --git a/amazonka-opsworks/gen/Network/AWS/OpsWorks/DescribeServiceErrors.hs b/amazonka-opsworks/gen/Network/AWS/OpsWorks/DescribeServiceErrors.hs
@@ -55,7 +55,7 @@ import qualified GHC.Exts
 
 data DescribeServiceErrors = DescribeServiceErrors
     { _dseInstanceId      :: Maybe Text
-    , _dseServiceErrorIds :: List "InstanceIds" Text
+    , _dseServiceErrorIds :: List "ServiceErrorIds" Text
     , _dseStackId         :: Maybe Text
     } deriving (Eq, Ord, Show)
 

diff --git a/amazonka-opsworks/gen/Network/AWS/OpsWorks/DescribeStacks.hs b/amazonka-opsworks/gen/Network/AWS/OpsWorks/DescribeStacks.hs
@@ -52,7 +52,7 @@ import Network.AWS.OpsWorks.Types
 import qualified GHC.Exts
 
 newtype DescribeStacks = DescribeStacks
-    { _dsStackIds :: List "InstanceIds" Text
+    { _dsStackIds :: List "StackIds" Text
     } deriving (Eq, Ord, Show, Monoid, Semigroup)
 
 instance GHC.Exts.IsList DescribeStacks where

diff --git a/amazonka-opsworks/gen/Network/AWS/OpsWorks/DescribeUserProfiles.hs b/amazonka-opsworks/gen/Network/AWS/OpsWorks/DescribeUserProfiles.hs
@@ -52,7 +52,7 @@ import Network.AWS.OpsWorks.Types
 import qualified GHC.Exts
 
 newtype DescribeUserProfiles = DescribeUserProfiles
-    { _dupIamUserArns :: List "InstanceIds" Text
+    { _dupIamUserArns :: List "IamUserArns" Text
     } deriving (Eq, Ord, Show, Monoid, Semigroup)
 
 instance GHC.Exts.IsList DescribeUserProfiles where

diff --git a/amazonka-opsworks/gen/Network/AWS/OpsWorks/DescribeVolumes.hs b/amazonka-opsworks/gen/Network/AWS/OpsWorks/DescribeVolumes.hs
@@ -60,7 +60,7 @@ data DescribeVolumes = DescribeVolumes
     { _dvInstanceId  :: Maybe Text
     , _dvRaidArrayId :: Maybe Text
     , _dvStackId     :: Maybe Text
-    , _dvVolumeIds   :: List "InstanceIds" Text
+    , _dvVolumeIds   :: List "VolumeIds" Text
     } deriving (Eq, Ord, Show)
 
 -- | 'DescribeVolumes' constructor.