Regenerating

mookerji · Dec 2, 2014 · edd6a6e · edd6a6e
1 parent 18e388a
commit edd6a6e
Show file tree

Hide file tree

Showing 83 changed files with 1,559 additions and 86 deletions.
diff --git a/amazonka-autoscaling/gen/Network/AWS/AutoScaling/Types.hs b/amazonka-autoscaling/gen/Network/AWS/AutoScaling/Types.hs
@@ -7,6 +7,7 @@
 {-# LANGUAGE OverloadedStrings           #-}
 {-# LANGUAGE RecordWildCards             #-}
 {-# LANGUAGE TypeFamilies                #-}
+{-# LANGUAGE ViewPatterns                #-}
 
 {-# OPTIONS_GHC -fno-warn-unused-imports #-}
 
@@ -27,7 +28,7 @@ module Network.AWS.AutoScaling.Types
     -- * Service
       AutoScaling
     -- ** Error
-    , RESTError
+    , RESTError (..)
     -- ** XML
     , ns
 
@@ -270,12 +271,27 @@ instance AWSService AutoScaling where
         , _svcVersion      = "2011-01-01"
         , _svcTargetPrefix = Nothing
         , _svcJSONVersion  = Nothing
+        , _svcHandle       = restError statusSuccess
+        , _svcDelay        = delay
+        , _svcRetry        = retry
         }
 
-    handle = restError statusSuccess
+delay :: Delay
+delay = Exp 0.05 2 5
+{-# INLINE delay #-}
+
+retry :: AWSErrorCode -> Status -> a -> Retry
+retry (statusCode -> s) (awsErrorCode -> e)
+    | s == 500  = True -- General Server Error
+    | s == 509  = True -- Limit Exceeded
+    | s == 503  = True -- Service Unavailable
+    | s == 400  = "Throttling" == e -- Throttling
+    | otherwise = False
+{-# INLINE retry #-}
 
 ns :: Text
 ns = "http://autoscaling.amazonaws.com/doc/2011-01-01/"
+{-# INLINE ns #-}
 
 data TagDescription = TagDescription
     { _tdKey               :: Text

diff --git a/amazonka-cloudformation/gen/Network/AWS/CloudFormation/Types.hs b/amazonka-cloudformation/gen/Network/AWS/CloudFormation/Types.hs
@@ -7,6 +7,7 @@
 {-# LANGUAGE OverloadedStrings           #-}
 {-# LANGUAGE RecordWildCards             #-}
 {-# LANGUAGE TypeFamilies                #-}
+{-# LANGUAGE ViewPatterns                #-}
 
 {-# OPTIONS_GHC -fno-warn-unused-imports #-}
 
@@ -27,7 +28,7 @@ module Network.AWS.CloudFormation.Types
     -- * Service
       CloudFormation
     -- ** Error
-    , RESTError
+    , RESTError (..)
     -- ** XML
     , ns
 
@@ -183,12 +184,27 @@ instance AWSService CloudFormation where
         , _svcVersion      = "2010-05-15"
         , _svcTargetPrefix = Nothing
         , _svcJSONVersion  = Nothing
+        , _svcHandle       = restError statusSuccess
+        , _svcDelay        = delay
+        , _svcRetry        = retry
         }
 
-    handle = restError statusSuccess
+delay :: Delay
+delay = Exp 0.05 2 5
+{-# INLINE delay #-}
+
+retry :: AWSErrorCode -> Status -> a -> Retry
+retry (statusCode -> s) (awsErrorCode -> e)
+    | s == 500  = True -- General Server Error
+    | s == 509  = True -- Limit Exceeded
+    | s == 503  = True -- Service Unavailable
+    | s == 400  = "Throttling" == e -- Throttling
+    | otherwise = False
+{-# INLINE retry #-}
 
 ns :: Text
 ns = "http://cloudformation.amazonaws.com/doc/2010-05-15/"
+{-# INLINE ns #-}
 
 data Tag = Tag
     { _tagKey   :: Maybe Text

diff --git a/amazonka-cloudfront/gen/Network/AWS/CloudFront/Types.hs b/amazonka-cloudfront/gen/Network/AWS/CloudFront/Types.hs
@@ -7,6 +7,7 @@
 {-# LANGUAGE OverloadedStrings           #-}
 {-# LANGUAGE RecordWildCards             #-}
 {-# LANGUAGE TypeFamilies                #-}
+{-# LANGUAGE ViewPatterns                #-}
 
 {-# OPTIONS_GHC -fno-warn-unused-imports #-}
 
@@ -27,7 +28,7 @@ module Network.AWS.CloudFront.Types
     -- * Service
       CloudFront
     -- ** Error
-    , RESTError
+    , RESTError (..)
     -- ** XML
     , ns
 
@@ -412,12 +413,26 @@ instance AWSService CloudFront where
         , _svcVersion      = "2014-05-31"
         , _svcTargetPrefix = Nothing
         , _svcJSONVersion  = Nothing
+        , _svcHandle       = restError statusSuccess
+        , _svcDelay        = delay
+        , _svcRetry        = retry
         }
 
-    handle = restError statusSuccess
+delay :: Delay
+delay = Exp 0.05 2 5
+{-# INLINE delay #-}
+
+retry :: AWSErrorCode -> Status -> a -> Retry
+retry (statusCode -> s) (awsErrorCode -> e)
+    | s == 500  = True -- General Server Error
+    | s == 509  = True -- Limit Exceeded
+    | s == 503  = True -- Service Unavailable
+    | otherwise = False
+{-# INLINE retry #-}
 
 ns :: Text
 ns = "http://cloudfront.amazonaws.com/doc/2014-05-31/"
+{-# INLINE ns #-}
 
 data CloudFrontOriginAccessIdentityList = CloudFrontOriginAccessIdentityList
     { _cfoailIsTruncated :: Bool

diff --git a/amazonka-cloudsearch-domains/gen/Network/AWS/CloudSearchDomains/Types.hs b/amazonka-cloudsearch-domains/gen/Network/AWS/CloudSearchDomains/Types.hs
@@ -7,6 +7,7 @@
 {-# LANGUAGE OverloadedStrings           #-}
 {-# LANGUAGE RecordWildCards             #-}
 {-# LANGUAGE TypeFamilies                #-}
+{-# LANGUAGE ViewPatterns                #-}
 
 {-# OPTIONS_GHC -fno-warn-unused-imports #-}
 
@@ -27,7 +28,7 @@ module Network.AWS.CloudSearchDomains.Types
     -- * Service
       CloudSearchDomains
     -- ** Error
-    , JSONError
+    , JSONError (..)
 
     -- * SearchStatus
     , SearchStatus
@@ -112,9 +113,22 @@ instance AWSService CloudSearchDomains where
         , _svcVersion      = "2013-01-01"
         , _svcTargetPrefix = Nothing
         , _svcJSONVersion  = Just "1.1"
+        , _svcHandle       = jsonError statusSuccess
+        , _svcDelay        = delay
+        , _svcRetry        = retry
         }
 
-    handle = jsonError statusSuccess
+delay :: Delay
+delay = Exp 0.05 2 5
+{-# INLINE delay #-}
+
+retry :: AWSErrorCode -> Status -> a -> Retry
+retry (statusCode -> s) (awsErrorCode -> e)
+    | s == 500  = True -- General Server Error
+    | s == 509  = True -- Limit Exceeded
+    | s == 503  = True -- Service Unavailable
+    | otherwise = False
+{-# INLINE retry #-}
 
 data SearchStatus = SearchStatus
     { _ssRid    :: Maybe Text

diff --git a/amazonka-cloudsearch/gen/Network/AWS/CloudSearch/Types.hs b/amazonka-cloudsearch/gen/Network/AWS/CloudSearch/Types.hs
@@ -7,6 +7,7 @@
 {-# LANGUAGE OverloadedStrings           #-}
 {-# LANGUAGE RecordWildCards             #-}
 {-# LANGUAGE TypeFamilies                #-}
+{-# LANGUAGE ViewPatterns                #-}
 
 {-# OPTIONS_GHC -fno-warn-unused-imports #-}
 
@@ -27,7 +28,7 @@ module Network.AWS.CloudSearch.Types
     -- * Service
       CloudSearch
     -- ** Error
-    , RESTError
+    , RESTError (..)
     -- ** XML
     , ns
 
@@ -311,12 +312,27 @@ instance AWSService CloudSearch where
         , _svcVersion      = "2013-01-01"
         , _svcTargetPrefix = Nothing
         , _svcJSONVersion  = Nothing
+        , _svcHandle       = restError statusSuccess
+        , _svcDelay        = delay
+        , _svcRetry        = retry
         }
 
-    handle = restError statusSuccess
+delay :: Delay
+delay = Exp 0.05 2 5
+{-# INLINE delay #-}
+
+retry :: AWSErrorCode -> Status -> a -> Retry
+retry (statusCode -> s) (awsErrorCode -> e)
+    | s == 500  = True -- General Server Error
+    | s == 509  = True -- Limit Exceeded
+    | s == 509  = "BandwidthLimitExceeded" == e -- Request Limit Exceeded
+    | s == 503  = True -- Service Unavailable
+    | otherwise = False
+{-# INLINE retry #-}
 
 ns :: Text
 ns = "http://cloudsearch.amazonaws.com/doc/2013-01-01/"
+{-# INLINE ns #-}
 
 data DomainStatus = DomainStatus
     { _dsARN                    :: Maybe Text

diff --git a/amazonka-cloudtrail/gen/Network/AWS/CloudTrail/Types.hs b/amazonka-cloudtrail/gen/Network/AWS/CloudTrail/Types.hs
@@ -7,6 +7,7 @@
 {-# LANGUAGE OverloadedStrings           #-}
 {-# LANGUAGE RecordWildCards             #-}
 {-# LANGUAGE TypeFamilies                #-}
+{-# LANGUAGE ViewPatterns                #-}
 
 {-# OPTIONS_GHC -fno-warn-unused-imports #-}
 
@@ -27,7 +28,7 @@ module Network.AWS.CloudTrail.Types
     -- * Service
       CloudTrail
     -- ** Error
-    , JSONError
+    , JSONError (..)
 
     -- * Trail
     , Trail
@@ -60,9 +61,22 @@ instance AWSService CloudTrail where
         , _svcVersion      = "2013-11-01"
         , _svcTargetPrefix = Just "com.amazonaws.cloudtrail.v20131101.CloudTrail_20131101"
         , _svcJSONVersion  = Just "1.1"
+        , _svcHandle       = jsonError statusSuccess
+        , _svcDelay        = delay
+        , _svcRetry        = retry
         }
 
-    handle = jsonError statusSuccess
+delay :: Delay
+delay = Exp 0.05 2 5
+{-# INLINE delay #-}
+
+retry :: AWSErrorCode -> Status -> a -> Retry
+retry (statusCode -> s) (awsErrorCode -> e)
+    | s == 500  = True -- General Server Error
+    | s == 509  = True -- Limit Exceeded
+    | s == 503  = True -- Service Unavailable
+    | otherwise = False
+{-# INLINE retry #-}
 
 data Trail = Trail
     { _tCloudWatchLogsLogGroupArn  :: Maybe Text

diff --git a/amazonka-cloudwatch-logs/gen/Network/AWS/CloudWatchLogs/Types.hs b/amazonka-cloudwatch-logs/gen/Network/AWS/CloudWatchLogs/Types.hs
@@ -7,6 +7,7 @@
 {-# LANGUAGE OverloadedStrings           #-}
 {-# LANGUAGE RecordWildCards             #-}
 {-# LANGUAGE TypeFamilies                #-}
+{-# LANGUAGE ViewPatterns                #-}
 
 {-# OPTIONS_GHC -fno-warn-unused-imports #-}
 
@@ -27,7 +28,7 @@ module Network.AWS.CloudWatchLogs.Types
     -- * Service
       CloudWatchLogs
     -- ** Error
-    , JSONError
+    , JSONError (..)
 
     -- * MetricFilter
     , MetricFilter
@@ -106,9 +107,22 @@ instance AWSService CloudWatchLogs where
         , _svcVersion      = "2014-03-28"
         , _svcTargetPrefix = Just "Logs_20140328"
         , _svcJSONVersion  = Just "1.1"
+        , _svcHandle       = jsonError statusSuccess
+        , _svcDelay        = delay
+        , _svcRetry        = retry
         }
 
-    handle = jsonError statusSuccess
+delay :: Delay
+delay = Exp 0.05 2 5
+{-# INLINE delay #-}
+
+retry :: AWSErrorCode -> Status -> a -> Retry
+retry (statusCode -> s) (awsErrorCode -> e)
+    | s == 500  = True -- General Server Error
+    | s == 509  = True -- Limit Exceeded
+    | s == 503  = True -- Service Unavailable
+    | otherwise = False
+{-# INLINE retry #-}
 
 data MetricFilter = MetricFilter
     { _mfCreationTime          :: Maybe Nat

diff --git a/amazonka-cloudwatch/gen/Network/AWS/CloudWatch/Types.hs b/amazonka-cloudwatch/gen/Network/AWS/CloudWatch/Types.hs
@@ -7,6 +7,7 @@
 {-# LANGUAGE OverloadedStrings           #-}
 {-# LANGUAGE RecordWildCards             #-}
 {-# LANGUAGE TypeFamilies                #-}
+{-# LANGUAGE ViewPatterns                #-}
 
 {-# OPTIONS_GHC -fno-warn-unused-imports #-}
 
@@ -27,7 +28,7 @@ module Network.AWS.CloudWatch.Types
     -- * Service
       CloudWatch
     -- ** Error
-    , RESTError
+    , RESTError (..)
     -- ** XML
     , ns
 
@@ -147,12 +148,27 @@ instance AWSService CloudWatch where
         , _svcVersion      = "2010-08-01"
         , _svcTargetPrefix = Nothing
         , _svcJSONVersion  = Nothing
+        , _svcHandle       = restError statusSuccess
+        , _svcDelay        = delay
+        , _svcRetry        = retry
         }
 
-    handle = restError statusSuccess
+delay :: Delay
+delay = Exp 0.05 2 5
+{-# INLINE delay #-}
+
+retry :: AWSErrorCode -> Status -> a -> Retry
+retry (statusCode -> s) (awsErrorCode -> e)
+    | s == 500  = True -- General Server Error
+    | s == 509  = True -- Limit Exceeded
+    | s == 503  = True -- Service Unavailable
+    | s == 400  = "Throttling" == e -- Throttling
+    | otherwise = False
+{-# INLINE retry #-}
 
 ns :: Text
 ns = "http://monitoring.amazonaws.com/doc/2010-08-01/"
+{-# INLINE ns #-}
 
 data StatisticSet = StatisticSet
     { _ssMaximum     :: Double

diff --git a/amazonka-codedeploy/gen/Network/AWS/CodeDeploy/Types.hs b/amazonka-codedeploy/gen/Network/AWS/CodeDeploy/Types.hs
@@ -7,6 +7,7 @@
 {-# LANGUAGE OverloadedStrings           #-}
 {-# LANGUAGE RecordWildCards             #-}
 {-# LANGUAGE TypeFamilies                #-}
+{-# LANGUAGE ViewPatterns                #-}
 
 {-# OPTIONS_GHC -fno-warn-unused-imports #-}
 
@@ -27,7 +28,7 @@ module Network.AWS.CodeDeploy.Types
     -- * Service
       CodeDeploy
     -- ** Error
-    , JSONError
+    , JSONError (..)
 
     -- * GenericRevisionInfo
     , GenericRevisionInfo
@@ -234,9 +235,22 @@ instance AWSService CodeDeploy where
         , _svcVersion      = "2014-10-06"
         , _svcTargetPrefix = Just "CodeDeploy_20141006"
         , _svcJSONVersion  = Just "1.1"
+        , _svcHandle       = jsonError statusSuccess
+        , _svcDelay        = delay
+        , _svcRetry        = retry
         }
 
-    handle = jsonError statusSuccess
+delay :: Delay
+delay = Exp 0.05 2 5
+{-# INLINE delay #-}
+
+retry :: AWSErrorCode -> Status -> a -> Retry
+retry (statusCode -> s) (awsErrorCode -> e)
+    | s == 500  = True -- General Server Error
+    | s == 509  = True -- Limit Exceeded
+    | s == 503  = True -- Service Unavailable
+    | otherwise = False
+{-# INLINE retry #-}
 
 data GenericRevisionInfo = GenericRevisionInfo
     { _griDeploymentGroups :: List "deploymentGroups" Text