Regenerating all service's error handlers

mgajda · May 31, 2016 · 7926449 · 7926449
1 parent 55664ae
commit 7926449
Show file tree

Hide file tree

Showing 69 changed files with 69 additions and 69 deletions.
diff --git a/amazonka-apigateway/gen/Network/AWS/APIGateway/Types.hs b/amazonka-apigateway/gen/Network/AWS/APIGateway/Types.hs
@@ -247,7 +247,7 @@ apiGateway =
     , _svcEndpoint = defaultEndpoint apiGateway
     , _svcTimeout = Just 70
     , _svcCheck = statusSuccess
-    , _svcError = parseJSONError
+    , _svcError = parseJSONError "APIGateway"
     , _svcRetry = retry
     }
   where

diff --git a/amazonka-application-autoscaling/gen/Network/AWS/ApplicationAutoScaling/Types.hs b/amazonka-application-autoscaling/gen/Network/AWS/ApplicationAutoScaling/Types.hs
@@ -121,7 +121,7 @@ applicationAutoScaling =
     , _svcEndpoint = defaultEndpoint applicationAutoScaling
     , _svcTimeout = Just 70
     , _svcCheck = statusSuccess
-    , _svcError = parseJSONError
+    , _svcError = parseJSONError "ApplicationAutoScaling"
     , _svcRetry = retry
     }
   where

diff --git a/amazonka-autoscaling/gen/Network/AWS/AutoScaling/Types.hs b/amazonka-autoscaling/gen/Network/AWS/AutoScaling/Types.hs
@@ -285,7 +285,7 @@ autoScaling =
     , _svcEndpoint = defaultEndpoint autoScaling
     , _svcTimeout = Just 70
     , _svcCheck = statusSuccess
-    , _svcError = parseXMLError
+    , _svcError = parseXMLError "AutoScaling"
     , _svcRetry = retry
     }
   where

diff --git a/amazonka-certificatemanager/gen/Network/AWS/CertificateManager/Types.hs b/amazonka-certificatemanager/gen/Network/AWS/CertificateManager/Types.hs
@@ -99,7 +99,7 @@ certificateManager =
     , _svcEndpoint = defaultEndpoint certificateManager
     , _svcTimeout = Just 70
     , _svcCheck = statusSuccess
-    , _svcError = parseJSONError
+    , _svcError = parseJSONError "CertificateManager"
     , _svcRetry = retry
     }
   where

diff --git a/amazonka-cloudformation/gen/Network/AWS/CloudFormation/Types.hs b/amazonka-cloudformation/gen/Network/AWS/CloudFormation/Types.hs
@@ -253,7 +253,7 @@ cloudFormation =
     , _svcEndpoint = defaultEndpoint cloudFormation
     , _svcTimeout = Just 70
     , _svcCheck = statusSuccess
-    , _svcError = parseXMLError
+    , _svcError = parseXMLError "CloudFormation"
     , _svcRetry = retry
     }
   where

diff --git a/amazonka-cloudfront/gen/Network/AWS/CloudFront/Types.hs b/amazonka-cloudfront/gen/Network/AWS/CloudFront/Types.hs
@@ -496,7 +496,7 @@ cloudFront =
     , _svcEndpoint = defaultEndpoint cloudFront
     , _svcTimeout = Just 70
     , _svcCheck = statusSuccess
-    , _svcError = parseXMLError
+    , _svcError = parseXMLError "CloudFront"
     , _svcRetry = retry
     }
   where

diff --git a/amazonka-cloudhsm/gen/Network/AWS/CloudHSM/Types.hs b/amazonka-cloudhsm/gen/Network/AWS/CloudHSM/Types.hs
@@ -56,7 +56,7 @@ cloudHSM =
     , _svcEndpoint = defaultEndpoint cloudHSM
     , _svcTimeout = Just 70
     , _svcCheck = statusSuccess
-    , _svcError = parseJSONError
+    , _svcError = parseJSONError "CloudHSM"
     , _svcRetry = retry
     }
   where

diff --git a/amazonka-cloudsearch-domains/gen/Network/AWS/CloudSearchDomains/Types.hs b/amazonka-cloudsearch-domains/gen/Network/AWS/CloudSearchDomains/Types.hs
@@ -113,7 +113,7 @@ cloudSearchDomains =
     , _svcEndpoint = defaultEndpoint cloudSearchDomains
     , _svcTimeout = Just 70
     , _svcCheck = statusSuccess
-    , _svcError = parseJSONError
+    , _svcError = parseJSONError "CloudSearchDomains"
     , _svcRetry = retry
     }
   where

diff --git a/amazonka-cloudsearch/gen/Network/AWS/CloudSearch/Types.hs b/amazonka-cloudsearch/gen/Network/AWS/CloudSearch/Types.hs
@@ -302,7 +302,7 @@ cloudSearch =
     , _svcEndpoint = defaultEndpoint cloudSearch
     , _svcTimeout = Just 70
     , _svcCheck = statusSuccess
-    , _svcError = parseXMLError
+    , _svcError = parseXMLError "CloudSearch"
     , _svcRetry = retry
     }
   where

diff --git a/amazonka-cloudtrail/gen/Network/AWS/CloudTrail/Types.hs b/amazonka-cloudtrail/gen/Network/AWS/CloudTrail/Types.hs
@@ -128,7 +128,7 @@ cloudTrail =
     , _svcEndpoint = defaultEndpoint cloudTrail
     , _svcTimeout = Just 70
     , _svcCheck = statusSuccess
-    , _svcError = parseJSONError
+    , _svcError = parseJSONError "CloudTrail"
     , _svcRetry = retry
     }
   where

diff --git a/amazonka-cloudwatch-events/gen/Network/AWS/CloudWatchEvents/Types.hs b/amazonka-cloudwatch-events/gen/Network/AWS/CloudWatchEvents/Types.hs
@@ -92,7 +92,7 @@ cloudWatchEvents =
     , _svcEndpoint = defaultEndpoint cloudWatchEvents
     , _svcTimeout = Just 70
     , _svcCheck = statusSuccess
-    , _svcError = parseJSONError
+    , _svcError = parseJSONError "CloudWatchEvents"
     , _svcRetry = retry
     }
   where

diff --git a/amazonka-cloudwatch-logs/gen/Network/AWS/CloudWatchLogs/Types.hs b/amazonka-cloudwatch-logs/gen/Network/AWS/CloudWatchLogs/Types.hs
@@ -174,7 +174,7 @@ cloudWatchLogs =
     , _svcEndpoint = defaultEndpoint cloudWatchLogs
     , _svcTimeout = Just 70
     , _svcCheck = statusSuccess
-    , _svcError = parseJSONError
+    , _svcError = parseJSONError "CloudWatchLogs"
     , _svcRetry = retry
     }
   where

diff --git a/amazonka-cloudwatch/gen/Network/AWS/CloudWatch/Types.hs b/amazonka-cloudwatch/gen/Network/AWS/CloudWatch/Types.hs
@@ -140,7 +140,7 @@ cloudWatch =
     , _svcEndpoint = defaultEndpoint cloudWatch
     , _svcTimeout = Just 70
     , _svcCheck = statusSuccess
-    , _svcError = parseXMLError
+    , _svcError = parseXMLError "CloudWatch"
     , _svcRetry = retry
     }
   where

diff --git a/amazonka-codecommit/gen/Network/AWS/CodeCommit/Types.hs b/amazonka-codecommit/gen/Network/AWS/CodeCommit/Types.hs
@@ -139,7 +139,7 @@ codeCommit =
     , _svcEndpoint = defaultEndpoint codeCommit
     , _svcTimeout = Just 70
     , _svcCheck = statusSuccess
-    , _svcError = parseJSONError
+    , _svcError = parseJSONError "CodeCommit"
     , _svcRetry = retry
     }
   where

diff --git a/amazonka-codedeploy/gen/Network/AWS/CodeDeploy/Types.hs b/amazonka-codedeploy/gen/Network/AWS/CodeDeploy/Types.hs
@@ -328,7 +328,7 @@ codeDeploy =
     , _svcEndpoint = defaultEndpoint codeDeploy
     , _svcTimeout = Just 70
     , _svcCheck = statusSuccess
-    , _svcError = parseJSONError
+    , _svcError = parseJSONError "CodeDeploy"
     , _svcRetry = retry
     }
   where

diff --git a/amazonka-codepipeline/gen/Network/AWS/CodePipeline/Types.hs b/amazonka-codepipeline/gen/Network/AWS/CodePipeline/Types.hs
@@ -360,7 +360,7 @@ codePipeline =
     , _svcEndpoint = defaultEndpoint codePipeline
     , _svcTimeout = Just 70
     , _svcCheck = statusSuccess
-    , _svcError = parseJSONError
+    , _svcError = parseJSONError "CodePipeline"
     , _svcRetry = retry
     }
   where

diff --git a/amazonka-cognito-identity/gen/Network/AWS/CognitoIdentity/Types.hs b/amazonka-cognito-identity/gen/Network/AWS/CognitoIdentity/Types.hs
@@ -94,7 +94,7 @@ cognitoIdentity =
     , _svcEndpoint = defaultEndpoint cognitoIdentity
     , _svcTimeout = Just 70
     , _svcCheck = statusSuccess
-    , _svcError = parseJSONError
+    , _svcError = parseJSONError "CognitoIdentity"
     , _svcRetry = retry
     }
   where

diff --git a/amazonka-cognito-idp/gen/Network/AWS/CognitoIdentityProvider/Types.hs b/amazonka-cognito-idp/gen/Network/AWS/CognitoIdentityProvider/Types.hs
@@ -194,7 +194,7 @@ cognitoIdentityProvider =
     , _svcEndpoint = defaultEndpoint cognitoIdentityProvider
     , _svcTimeout = Just 70
     , _svcCheck = statusSuccess
-    , _svcError = parseJSONError
+    , _svcError = parseJSONError "CognitoIdentityProvider"
     , _svcRetry = retry
     }
   where

diff --git a/amazonka-cognito-sync/gen/Network/AWS/CognitoSync/Types.hs b/amazonka-cognito-sync/gen/Network/AWS/CognitoSync/Types.hs
@@ -120,7 +120,7 @@ cognitoSync =
     , _svcEndpoint = defaultEndpoint cognitoSync
     , _svcTimeout = Just 70
     , _svcCheck = statusSuccess
-    , _svcError = parseJSONError
+    , _svcError = parseJSONError "CognitoSync"
     , _svcRetry = retry
     }
   where

diff --git a/amazonka-config/gen/Network/AWS/Config/Types.hs b/amazonka-config/gen/Network/AWS/Config/Types.hs
@@ -317,7 +317,7 @@ config =
     , _svcEndpoint = defaultEndpoint config
     , _svcTimeout = Just 70
     , _svcCheck = statusSuccess
-    , _svcError = parseJSONError
+    , _svcError = parseJSONError "Config"
     , _svcRetry = retry
     }
   where

diff --git a/amazonka-datapipeline/gen/Network/AWS/DataPipeline/Types.hs b/amazonka-datapipeline/gen/Network/AWS/DataPipeline/Types.hs
@@ -142,7 +142,7 @@ dataPipeline =
     , _svcEndpoint = defaultEndpoint dataPipeline
     , _svcTimeout = Just 70
     , _svcCheck = statusSuccess
-    , _svcError = parseJSONError
+    , _svcError = parseJSONError "DataPipeline"
     , _svcRetry = retry
     }
   where

diff --git a/amazonka-devicefarm/gen/Network/AWS/DeviceFarm/Types.hs b/amazonka-devicefarm/gen/Network/AWS/DeviceFarm/Types.hs
@@ -374,7 +374,7 @@ deviceFarm =
     , _svcEndpoint = defaultEndpoint deviceFarm
     , _svcTimeout = Just 70
     , _svcCheck = statusSuccess
-    , _svcError = parseJSONError
+    , _svcError = parseJSONError "DeviceFarm"
     , _svcRetry = retry
     }
   where

diff --git a/amazonka-directconnect/gen/Network/AWS/DirectConnect/Types.hs b/amazonka-directconnect/gen/Network/AWS/DirectConnect/Types.hs
@@ -153,7 +153,7 @@ directConnect =
     , _svcEndpoint = defaultEndpoint directConnect
     , _svcTimeout = Just 70
     , _svcCheck = statusSuccess
-    , _svcError = parseJSONError
+    , _svcError = parseJSONError "DirectConnect"
     , _svcRetry = retry
     }
   where

diff --git a/amazonka-discovery/gen/Network/AWS/Discovery/Types.hs b/amazonka-discovery/gen/Network/AWS/Discovery/Types.hs
@@ -110,7 +110,7 @@ discovery =
     , _svcEndpoint = defaultEndpoint discovery
     , _svcTimeout = Just 70
     , _svcCheck = statusSuccess
-    , _svcError = parseJSONError
+    , _svcError = parseJSONError "Discovery"
     , _svcRetry = retry
     }
   where

diff --git a/amazonka-dms/gen/Network/AWS/DMS/Types.hs b/amazonka-dms/gen/Network/AWS/DMS/Types.hs
@@ -218,7 +218,7 @@ dms =
     , _svcEndpoint = defaultEndpoint dms
     , _svcTimeout = Just 70
     , _svcCheck = statusSuccess
-    , _svcError = parseJSONError
+    , _svcError = parseJSONError "DMS"
     , _svcRetry = retry
     }
   where

diff --git a/amazonka-ds/gen/Network/AWS/DirectoryService/Types.hs b/amazonka-ds/gen/Network/AWS/DirectoryService/Types.hs
@@ -222,7 +222,7 @@ directoryService =
     , _svcEndpoint = defaultEndpoint directoryService
     , _svcTimeout = Just 70
     , _svcCheck = statusSuccess
-    , _svcError = parseJSONError
+    , _svcError = parseJSONError "DirectoryService"
     , _svcRetry = retry
     }
   where

diff --git a/amazonka-dynamodb-streams/gen/Network/AWS/DynamoDBStreams/Types.hs b/amazonka-dynamodb-streams/gen/Network/AWS/DynamoDBStreams/Types.hs
@@ -128,7 +128,7 @@ dynamoDBStreams =
     , _svcEndpoint = defaultEndpoint dynamoDBStreams
     , _svcTimeout = Just 70
     , _svcCheck = statusSuccess
-    , _svcError = parseJSONError
+    , _svcError = parseJSONError "DynamoDBStreams"
     , _svcRetry = retry
     }
   where

diff --git a/amazonka-dynamodb/gen/Network/AWS/DynamoDB/Types.hs b/amazonka-dynamodb/gen/Network/AWS/DynamoDB/Types.hs
@@ -281,7 +281,7 @@ dynamoDB =
     , _svcEndpoint = defaultEndpoint dynamoDB
     , _svcTimeout = Just 70
     , _svcCheck = statusSuccess
-    , _svcError = parseJSONError
+    , _svcError = parseJSONError "DynamoDB"
     , _svcRetry = retry
     }
   where

diff --git a/amazonka-ec2/gen/Network/AWS/EC2/Types.hs b/amazonka-ec2/gen/Network/AWS/EC2/Types.hs
@@ -1957,7 +1957,7 @@ ec2 =
     , _svcEndpoint = defaultEndpoint ec2
     , _svcTimeout = Just 70
     , _svcCheck = statusSuccess
-    , _svcError = parseXMLError
+    , _svcError = parseXMLError "EC2"
     , _svcRetry = retry
     }
   where

diff --git a/amazonka-ecr/gen/Network/AWS/ECR/Types.hs b/amazonka-ecr/gen/Network/AWS/ECR/Types.hs
@@ -110,7 +110,7 @@ ecr =
     , _svcEndpoint = defaultEndpoint ecr
     , _svcTimeout = Just 70
     , _svcCheck = statusSuccess
-    , _svcError = parseJSONError
+    , _svcError = parseJSONError "ECR"
     , _svcRetry = retry
     }
   where

diff --git a/amazonka-ecs/gen/Network/AWS/ECS/Types.hs b/amazonka-ecs/gen/Network/AWS/ECS/Types.hs
@@ -315,7 +315,7 @@ ecs =
     , _svcEndpoint = defaultEndpoint ecs
     , _svcTimeout = Just 70
     , _svcCheck = statusSuccess
-    , _svcError = parseJSONError
+    , _svcError = parseJSONError "ECS"
     , _svcRetry = retry
     }
   where

diff --git a/amazonka-efs/gen/Network/AWS/EFS/Types.hs b/amazonka-efs/gen/Network/AWS/EFS/Types.hs
@@ -91,7 +91,7 @@ efs =
     , _svcEndpoint = defaultEndpoint efs
     , _svcTimeout = Just 70
     , _svcCheck = statusSuccess
-    , _svcError = parseJSONError
+    , _svcError = parseJSONError "EFS"
     , _svcRetry = retry
     }
   where

diff --git a/amazonka-elasticache/gen/Network/AWS/ElastiCache/Types.hs b/amazonka-elasticache/gen/Network/AWS/ElastiCache/Types.hs
@@ -384,7 +384,7 @@ elastiCache =
     , _svcEndpoint = defaultEndpoint elastiCache
     , _svcTimeout = Just 70
     , _svcCheck = statusSuccess
-    , _svcError = parseXMLError
+    , _svcError = parseXMLError "ElastiCache"
     , _svcRetry = retry
     }
   where

diff --git a/amazonka-elasticbeanstalk/gen/Network/AWS/ElasticBeanstalk/Types.hs b/amazonka-elasticbeanstalk/gen/Network/AWS/ElasticBeanstalk/Types.hs
@@ -425,7 +425,7 @@ elasticBeanstalk =
     , _svcEndpoint = defaultEndpoint elasticBeanstalk
     , _svcTimeout = Just 70
     , _svcCheck = statusSuccess
-    , _svcError = parseXMLError
+    , _svcError = parseXMLError "ElasticBeanstalk"
     , _svcRetry = retry
     }
   where

diff --git a/amazonka-elasticsearch/gen/Network/AWS/ElasticSearch/Types.hs b/amazonka-elasticsearch/gen/Network/AWS/ElasticSearch/Types.hs
@@ -150,7 +150,7 @@ elasticSearch =
     , _svcEndpoint = defaultEndpoint elasticSearch
     , _svcTimeout = Just 70
     , _svcCheck = statusSuccess
-    , _svcError = parseJSONError
+    , _svcError = parseJSONError "ElasticSearch"
     , _svcRetry = retry
     }
   where

diff --git a/amazonka-elastictranscoder/gen/Network/AWS/ElasticTranscoder/Types.hs b/amazonka-elastictranscoder/gen/Network/AWS/ElasticTranscoder/Types.hs
@@ -350,7 +350,7 @@ elasticTranscoder =
     , _svcEndpoint = defaultEndpoint elasticTranscoder
     , _svcTimeout = Just 70
     , _svcCheck = statusSuccess
-    , _svcError = parseJSONError
+    , _svcError = parseJSONError "ElasticTranscoder"
     , _svcRetry = retry
     }
   where

diff --git a/amazonka-elb/gen/Network/AWS/ELB/Types.hs b/amazonka-elb/gen/Network/AWS/ELB/Types.hs
@@ -233,7 +233,7 @@ elb =
     , _svcEndpoint = defaultEndpoint elb
     , _svcTimeout = Just 70
     , _svcCheck = statusSuccess
-    , _svcError = parseXMLError
+    , _svcError = parseXMLError "ELB"
     , _svcRetry = retry
     }
   where

diff --git a/amazonka-emr/gen/Network/AWS/EMR/Types.hs b/amazonka-emr/gen/Network/AWS/EMR/Types.hs
@@ -407,7 +407,7 @@ emr =
     , _svcEndpoint = defaultEndpoint emr
     , _svcTimeout = Just 70
     , _svcCheck = statusSuccess
-    , _svcError = parseJSONError
+    , _svcError = parseJSONError "EMR"
     , _svcRetry = retry
     }
   where

diff --git a/amazonka-gamelift/gen/Network/AWS/GameLift/Types.hs b/amazonka-gamelift/gen/Network/AWS/GameLift/Types.hs
@@ -246,7 +246,7 @@ gameLift =
     , _svcEndpoint = defaultEndpoint gameLift
     , _svcTimeout = Just 70
     , _svcCheck = statusSuccess
-    , _svcError = parseJSONError
+    , _svcError = parseJSONError "GameLift"
     , _svcRetry = retry
     }
   where

diff --git a/amazonka-glacier/gen/Network/AWS/Glacier/Types.hs b/amazonka-glacier/gen/Network/AWS/Glacier/Types.hs
@@ -156,7 +156,7 @@ glacier =
     , _svcEndpoint = defaultEndpoint glacier
     , _svcTimeout = Just 70
     , _svcCheck = statusSuccess
-    , _svcError = parseJSONError
+    , _svcError = parseJSONError "Glacier"
     , _svcRetry = retry
     }
   where

diff --git a/amazonka-iam/gen/Network/AWS/IAM/Types.hs b/amazonka-iam/gen/Network/AWS/IAM/Types.hs
@@ -402,7 +402,7 @@ iam =
     , _svcEndpoint = defaultEndpoint iam
     , _svcTimeout = Just 70
     , _svcCheck = statusSuccess
-    , _svcError = parseXMLError
+    , _svcError = parseXMLError "IAM"
     , _svcRetry = retry
     }
   where

diff --git a/amazonka-importexport/gen/Network/AWS/ImportExport/Types.hs b/amazonka-importexport/gen/Network/AWS/ImportExport/Types.hs
@@ -72,7 +72,7 @@ importExport =
     , _svcEndpoint = defaultEndpoint importExport
     , _svcTimeout = Just 70
     , _svcCheck = statusSuccess
-    , _svcError = parseXMLError
+    , _svcError = parseXMLError "ImportExport"
     , _svcRetry = retry
     }
   where

diff --git a/amazonka-inspector/gen/Network/AWS/Inspector/Types.hs b/amazonka-inspector/gen/Network/AWS/Inspector/Types.hs
@@ -293,7 +293,7 @@ inspector =
     , _svcEndpoint = defaultEndpoint inspector
     , _svcTimeout = Just 70
     , _svcCheck = statusSuccess
-    , _svcError = parseJSONError
+    , _svcError = parseJSONError "Inspector"
     , _svcRetry = retry
     }
   where

diff --git a/amazonka-iot-dataplane/gen/Network/AWS/IoTDataPlane/Types.hs b/amazonka-iot-dataplane/gen/Network/AWS/IoTDataPlane/Types.hs
@@ -45,7 +45,7 @@ ioTDataPlane =
     , _svcEndpoint = defaultEndpoint ioTDataPlane
     , _svcTimeout = Just 70
     , _svcCheck = statusSuccess
-    , _svcError = parseJSONError
+    , _svcError = parseJSONError "IoTDataPlane"
     , _svcRetry = retry
     }
   where