summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--README.md2
-rw-r--r--amazonka-marketplace-entitlement.cabal10
-rw-r--r--gen/Network/AWS/MarketplaceEntitlement.hs2
-rw-r--r--gen/Network/AWS/MarketplaceEntitlement/GetEntitlements.hs34
-rw-r--r--gen/Network/AWS/MarketplaceEntitlement/Types.hs34
-rw-r--r--gen/Network/AWS/MarketplaceEntitlement/Types/Product.hs42
-rw-r--r--gen/Network/AWS/MarketplaceEntitlement/Types/Sum.hs2
-rw-r--r--gen/Network/AWS/MarketplaceEntitlement/Waiters.hs2
-rw-r--r--test/Main.hs2
-rw-r--r--test/Test/AWS/Gen/MarketplaceEntitlement.hs2
-rw-r--r--test/Test/AWS/MarketplaceEntitlement.hs2
-rw-r--r--test/Test/AWS/MarketplaceEntitlement/Internal.hs2
12 files changed, 69 insertions, 67 deletions
diff --git a/README.md b/README.md
index 5bd538c..e066733 100644
--- a/README.md
+++ b/README.md
@@ -8,7 +8,7 @@
## Version
-`1.5.0`
+`1.6.0`
## Description
diff --git a/amazonka-marketplace-entitlement.cabal b/amazonka-marketplace-entitlement.cabal
index c741b6f..f66d2b7 100644
--- a/amazonka-marketplace-entitlement.cabal
+++ b/amazonka-marketplace-entitlement.cabal
@@ -1,5 +1,5 @@
name: amazonka-marketplace-entitlement
-version: 1.5.0
+version: 1.6.0
synopsis: Amazon Marketplace Entitlement Service SDK.
homepage: https://github.com/brendanhay/amazonka
bug-reports: https://github.com/brendanhay/amazonka/issues
@@ -7,7 +7,7 @@ license: MPL-2.0
license-file: LICENSE
author: Brendan Hay
maintainer: Brendan Hay <brendan.g.hay+amazonka@gmail.com>
-copyright: Copyright (c) 2013-2017 Brendan Hay
+copyright: Copyright (c) 2013-2018 Brendan Hay
category: Network, AWS, Cloud, Distributed Computing
build-type: Simple
cabal-version: >= 1.10
@@ -54,7 +54,7 @@ library
, Network.AWS.MarketplaceEntitlement.Types.Sum
build-depends:
- amazonka-core == 1.5.0.*
+ amazonka-core == 1.6.0.*
, base >= 4.7 && < 5
test-suite amazonka-marketplace-entitlement-test
@@ -74,8 +74,8 @@ test-suite amazonka-marketplace-entitlement-test
, Test.AWS.MarketplaceEntitlement.Internal
build-depends:
- amazonka-core == 1.5.0.*
- , amazonka-test == 1.5.0.*
+ amazonka-core == 1.6.0.*
+ , amazonka-test == 1.6.0.*
, amazonka-marketplace-entitlement
, base
, bytestring
diff --git a/gen/Network/AWS/MarketplaceEntitlement.hs b/gen/Network/AWS/MarketplaceEntitlement.hs
index 4b331d8..44fb25a 100644
--- a/gen/Network/AWS/MarketplaceEntitlement.hs
+++ b/gen/Network/AWS/MarketplaceEntitlement.hs
@@ -5,7 +5,7 @@
-- |
-- Module : Network.AWS.MarketplaceEntitlement
--- Copyright : (c) 2013-2017 Brendan Hay
+-- Copyright : (c) 2013-2018 Brendan Hay
-- License : Mozilla Public License, v. 2.0.
-- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com>
-- Stability : auto-generated
diff --git a/gen/Network/AWS/MarketplaceEntitlement/GetEntitlements.hs b/gen/Network/AWS/MarketplaceEntitlement/GetEntitlements.hs
index af5ace4..ed072b2 100644
--- a/gen/Network/AWS/MarketplaceEntitlement/GetEntitlements.hs
+++ b/gen/Network/AWS/MarketplaceEntitlement/GetEntitlements.hs
@@ -12,7 +12,7 @@
-- |
-- Module : Network.AWS.MarketplaceEntitlement.GetEntitlements
--- Copyright : (c) 2013-2017 Brendan Hay
+-- Copyright : (c) 2013-2018 Brendan Hay
-- License : Mozilla Public License, v. 2.0.
-- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com>
-- Stability : auto-generated
@@ -77,28 +77,28 @@ getEntitlements
-> GetEntitlements
getEntitlements pProductCode_ =
GetEntitlements'
- { _geNextToken = Nothing
- , _geFilter = Nothing
- , _geMaxResults = Nothing
- , _geProductCode = pProductCode_
- }
+ { _geNextToken = Nothing
+ , _geFilter = Nothing
+ , _geMaxResults = Nothing
+ , _geProductCode = pProductCode_
+ }
-- | For paginated calls to GetEntitlements, pass the NextToken from the previous GetEntitlementsResult.
geNextToken :: Lens' GetEntitlements (Maybe Text)
-geNextToken = lens _geNextToken (\ s a -> s{_geNextToken = a});
+geNextToken = lens _geNextToken (\ s a -> s{_geNextToken = a})
-- | Filter is used to return entitlements for a specific customer or for a specific dimension. Filters are described as keys mapped to a lists of values. Filtered requests are /unioned/ for each value in the value list, and then /intersected/ for each filter key.
geFilter :: Lens' GetEntitlements (HashMap GetEntitlementFilterName (NonEmpty Text))
-geFilter = lens _geFilter (\ s a -> s{_geFilter = a}) . _Default . _Map;
+geFilter = lens _geFilter (\ s a -> s{_geFilter = a}) . _Default . _Map
-- | The maximum number of items to retrieve from the GetEntitlements operation. For pagination, use the NextToken field in subsequent calls to GetEntitlements.
geMaxResults :: Lens' GetEntitlements (Maybe Int)
-geMaxResults = lens _geMaxResults (\ s a -> s{_geMaxResults = a});
+geMaxResults = lens _geMaxResults (\ s a -> s{_geMaxResults = a})
-- | Product code is used to uniquely identify a product in AWS Marketplace. The product code will be provided by AWS Marketplace when the product listing is created.
geProductCode :: Lens' GetEntitlements Text
-geProductCode = lens _geProductCode (\ s a -> s{_geProductCode = a});
+geProductCode = lens _geProductCode (\ s a -> s{_geProductCode = a})
instance AWSRequest GetEntitlements where
type Rs GetEntitlements = GetEntitlementsResponse
@@ -166,22 +166,22 @@ getEntitlementsResponse
-> GetEntitlementsResponse
getEntitlementsResponse pResponseStatus_ =
GetEntitlementsResponse'
- { _gersNextToken = Nothing
- , _gersEntitlements = Nothing
- , _gersResponseStatus = pResponseStatus_
- }
+ { _gersNextToken = Nothing
+ , _gersEntitlements = Nothing
+ , _gersResponseStatus = pResponseStatus_
+ }
-- | For paginated results, use NextToken in subsequent calls to GetEntitlements. If the result contains an empty set of entitlements, NextToken might still be present and should be used.
gersNextToken :: Lens' GetEntitlementsResponse (Maybe Text)
-gersNextToken = lens _gersNextToken (\ s a -> s{_gersNextToken = a});
+gersNextToken = lens _gersNextToken (\ s a -> s{_gersNextToken = a})
-- | The set of entitlements found through the GetEntitlements operation. If the result contains an empty set of entitlements, NextToken might still be present and should be used.
gersEntitlements :: Lens' GetEntitlementsResponse [Entitlement]
-gersEntitlements = lens _gersEntitlements (\ s a -> s{_gersEntitlements = a}) . _Default . _Coerce;
+gersEntitlements = lens _gersEntitlements (\ s a -> s{_gersEntitlements = a}) . _Default . _Coerce
-- | -- | The response status code.
gersResponseStatus :: Lens' GetEntitlementsResponse Int
-gersResponseStatus = lens _gersResponseStatus (\ s a -> s{_gersResponseStatus = a});
+gersResponseStatus = lens _gersResponseStatus (\ s a -> s{_gersResponseStatus = a})
instance NFData GetEntitlementsResponse where
diff --git a/gen/Network/AWS/MarketplaceEntitlement/Types.hs b/gen/Network/AWS/MarketplaceEntitlement/Types.hs
index b53f126..1b4a799 100644
--- a/gen/Network/AWS/MarketplaceEntitlement/Types.hs
+++ b/gen/Network/AWS/MarketplaceEntitlement/Types.hs
@@ -4,7 +4,7 @@
-- |
-- Module : Network.AWS.MarketplaceEntitlement.Types
--- Copyright : (c) 2013-2017 Brendan Hay
+-- Copyright : (c) 2013-2018 Brendan Hay
-- License : Mozilla Public License, v. 2.0.
-- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com>
-- Stability : auto-generated
@@ -51,24 +51,24 @@ import Network.AWS.Sign.V4
marketplaceEntitlement :: Service
marketplaceEntitlement =
Service
- { _svcAbbrev = "MarketplaceEntitlement"
- , _svcSigner = v4
- , _svcPrefix = "entitlement.marketplace"
- , _svcVersion = "2017-01-11"
- , _svcEndpoint = defaultEndpoint marketplaceEntitlement
- , _svcTimeout = Just 70
- , _svcCheck = statusSuccess
- , _svcError = parseJSONError "MarketplaceEntitlement"
- , _svcRetry = retry
- }
+ { _svcAbbrev = "MarketplaceEntitlement"
+ , _svcSigner = v4
+ , _svcPrefix = "entitlement.marketplace"
+ , _svcVersion = "2017-01-11"
+ , _svcEndpoint = defaultEndpoint marketplaceEntitlement
+ , _svcTimeout = Just 70
+ , _svcCheck = statusSuccess
+ , _svcError = parseJSONError "MarketplaceEntitlement"
+ , _svcRetry = retry
+ }
where
retry =
Exponential
- { _retryBase = 5.0e-2
- , _retryGrowth = 2
- , _retryAttempts = 5
- , _retryCheck = check
- }
+ { _retryBase = 5.0e-2
+ , _retryGrowth = 2
+ , _retryAttempts = 5
+ , _retryCheck = check
+ }
check e
| has (hasCode "ThrottledException" . hasStatus 400) e =
Just "throttled_exception"
@@ -77,6 +77,8 @@ marketplaceEntitlement =
Just "throttling_exception"
| has (hasCode "Throttling" . hasStatus 400) e = Just "throttling"
| has (hasStatus 504) e = Just "gateway_timeout"
+ | has (hasCode "RequestThrottledException" . hasStatus 400) e =
+ Just "request_throttled_exception"
| has (hasStatus 502) e = Just "bad_gateway"
| has (hasStatus 503) e = Just "service_unavailable"
| has (hasStatus 500) e = Just "general_server_error"
diff --git a/gen/Network/AWS/MarketplaceEntitlement/Types/Product.hs b/gen/Network/AWS/MarketplaceEntitlement/Types/Product.hs
index 51b54ec..2b59f64 100644
--- a/gen/Network/AWS/MarketplaceEntitlement/Types/Product.hs
+++ b/gen/Network/AWS/MarketplaceEntitlement/Types/Product.hs
@@ -9,7 +9,7 @@
-- |
-- Module : Network.AWS.MarketplaceEntitlement.Types.Product
--- Copyright : (c) 2013-2017 Brendan Hay
+-- Copyright : (c) 2013-2018 Brendan Hay
-- License : Mozilla Public License, v. 2.0.
-- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com>
-- Stability : auto-generated
@@ -52,33 +52,33 @@ entitlement
:: Entitlement
entitlement =
Entitlement'
- { _eDimension = Nothing
- , _eValue = Nothing
- , _eExpirationDate = Nothing
- , _eCustomerIdentifier = Nothing
- , _eProductCode = Nothing
- }
+ { _eDimension = Nothing
+ , _eValue = Nothing
+ , _eExpirationDate = Nothing
+ , _eCustomerIdentifier = Nothing
+ , _eProductCode = Nothing
+ }
-- | The dimension for which the given entitlement applies. Dimensions represent categories of capacity in a product and are specified when the product is listed in AWS Marketplace.
eDimension :: Lens' Entitlement (Maybe Text)
-eDimension = lens _eDimension (\ s a -> s{_eDimension = a});
+eDimension = lens _eDimension (\ s a -> s{_eDimension = a})
-- | The EntitlementValue represents the amount of capacity that the customer is entitled to for the product.
eValue :: Lens' Entitlement (Maybe EntitlementValue)
-eValue = lens _eValue (\ s a -> s{_eValue = a});
+eValue = lens _eValue (\ s a -> s{_eValue = a})
-- | The expiration date represents the minimum date through which this entitlement is expected to remain valid. For contractual products listed on AWS Marketplace, the expiration date is the date at which the customer will renew or cancel their contract. Customers who are opting to renew their contract will still have entitlements with an expiration date.
eExpirationDate :: Lens' Entitlement (Maybe UTCTime)
-eExpirationDate = lens _eExpirationDate (\ s a -> s{_eExpirationDate = a}) . mapping _Time;
+eExpirationDate = lens _eExpirationDate (\ s a -> s{_eExpirationDate = a}) . mapping _Time
-- | The customer identifier is a handle to each unique customer in an application. Customer identifiers are obtained through the ResolveCustomer operation in AWS Marketplace Metering Service.
eCustomerIdentifier :: Lens' Entitlement (Maybe Text)
-eCustomerIdentifier = lens _eCustomerIdentifier (\ s a -> s{_eCustomerIdentifier = a});
+eCustomerIdentifier = lens _eCustomerIdentifier (\ s a -> s{_eCustomerIdentifier = a})
-- | The product code for which the given entitlement applies. Product codes are provided by AWS Marketplace when the product listing is created.
eProductCode :: Lens' Entitlement (Maybe Text)
-eProductCode = lens _eProductCode (\ s a -> s{_eProductCode = a});
+eProductCode = lens _eProductCode (\ s a -> s{_eProductCode = a})
instance FromJSON Entitlement where
parseJSON
@@ -122,28 +122,28 @@ entitlementValue
:: EntitlementValue
entitlementValue =
EntitlementValue'
- { _evIntegerValue = Nothing
- , _evDoubleValue = Nothing
- , _evStringValue = Nothing
- , _evBooleanValue = Nothing
- }
+ { _evIntegerValue = Nothing
+ , _evDoubleValue = Nothing
+ , _evStringValue = Nothing
+ , _evBooleanValue = Nothing
+ }
-- | The IntegerValue field will be populated with an integer value when the entitlement is an integer type. Otherwise, the field will not be set.
evIntegerValue :: Lens' EntitlementValue (Maybe Int)
-evIntegerValue = lens _evIntegerValue (\ s a -> s{_evIntegerValue = a});
+evIntegerValue = lens _evIntegerValue (\ s a -> s{_evIntegerValue = a})
-- | The DoubleValue field will be populated with a double value when the entitlement is a double type. Otherwise, the field will not be set.
evDoubleValue :: Lens' EntitlementValue (Maybe Double)
-evDoubleValue = lens _evDoubleValue (\ s a -> s{_evDoubleValue = a});
+evDoubleValue = lens _evDoubleValue (\ s a -> s{_evDoubleValue = a})
-- | The StringValue field will be populated with a string value when the entitlement is a string type. Otherwise, the field will not be set.
evStringValue :: Lens' EntitlementValue (Maybe Text)
-evStringValue = lens _evStringValue (\ s a -> s{_evStringValue = a});
+evStringValue = lens _evStringValue (\ s a -> s{_evStringValue = a})
-- | The BooleanValue field will be populated with a boolean value when the entitlement is a boolean type. Otherwise, the field will not be set.
evBooleanValue :: Lens' EntitlementValue (Maybe Bool)
-evBooleanValue = lens _evBooleanValue (\ s a -> s{_evBooleanValue = a});
+evBooleanValue = lens _evBooleanValue (\ s a -> s{_evBooleanValue = a})
instance FromJSON EntitlementValue where
parseJSON
diff --git a/gen/Network/AWS/MarketplaceEntitlement/Types/Sum.hs b/gen/Network/AWS/MarketplaceEntitlement/Types/Sum.hs
index 059609f..1e7b424 100644
--- a/gen/Network/AWS/MarketplaceEntitlement/Types/Sum.hs
+++ b/gen/Network/AWS/MarketplaceEntitlement/Types/Sum.hs
@@ -9,7 +9,7 @@
-- |
-- Module : Network.AWS.MarketplaceEntitlement.Types.Sum
--- Copyright : (c) 2013-2017 Brendan Hay
+-- Copyright : (c) 2013-2018 Brendan Hay
-- License : Mozilla Public License, v. 2.0.
-- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com>
-- Stability : auto-generated
diff --git a/gen/Network/AWS/MarketplaceEntitlement/Waiters.hs b/gen/Network/AWS/MarketplaceEntitlement/Waiters.hs
index 1682969..f3030a1 100644
--- a/gen/Network/AWS/MarketplaceEntitlement/Waiters.hs
+++ b/gen/Network/AWS/MarketplaceEntitlement/Waiters.hs
@@ -7,7 +7,7 @@
-- |
-- Module : Network.AWS.MarketplaceEntitlement.Waiters
--- Copyright : (c) 2013-2017 Brendan Hay
+-- Copyright : (c) 2013-2018 Brendan Hay
-- License : Mozilla Public License, v. 2.0.
-- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com>
-- Stability : auto-generated
diff --git a/test/Main.hs b/test/Main.hs
index a8a5c94..be4e26e 100644
--- a/test/Main.hs
+++ b/test/Main.hs
@@ -2,7 +2,7 @@
-- |
-- Module : Main
--- Copyright : (c) 2013-2017 Brendan Hay
+-- Copyright : (c) 2013-2018 Brendan Hay
-- License : Mozilla Public License, v. 2.0.
-- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com>
-- Stability : auto-generated
diff --git a/test/Test/AWS/Gen/MarketplaceEntitlement.hs b/test/Test/AWS/Gen/MarketplaceEntitlement.hs
index d72b99e..58eadfe 100644
--- a/test/Test/AWS/Gen/MarketplaceEntitlement.hs
+++ b/test/Test/AWS/Gen/MarketplaceEntitlement.hs
@@ -5,7 +5,7 @@
-- |
-- Module : Test.AWS.Gen.MarketplaceEntitlement
--- Copyright : (c) 2013-2017 Brendan Hay
+-- Copyright : (c) 2013-2018 Brendan Hay
-- License : Mozilla Public License, v. 2.0.
-- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com>
-- Stability : auto-generated
diff --git a/test/Test/AWS/MarketplaceEntitlement.hs b/test/Test/AWS/MarketplaceEntitlement.hs
index f3dab02..a1b44a8 100644
--- a/test/Test/AWS/MarketplaceEntitlement.hs
+++ b/test/Test/AWS/MarketplaceEntitlement.hs
@@ -1,6 +1,6 @@
-- |
-- Module : Test.AWS.MarketplaceEntitlement
--- Copyright : (c) 2013-2016 Brendan Hay
+-- Copyright : (c) 2013-2018 Brendan Hay
-- License : Mozilla Public License, v. 2.0.
-- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>
-- Stability : auto-generated
diff --git a/test/Test/AWS/MarketplaceEntitlement/Internal.hs b/test/Test/AWS/MarketplaceEntitlement/Internal.hs
index b85750f..bd3d103 100644
--- a/test/Test/AWS/MarketplaceEntitlement/Internal.hs
+++ b/test/Test/AWS/MarketplaceEntitlement/Internal.hs
@@ -1,6 +1,6 @@
-- |
-- Module : Test.AWS.MarketplaceEntitlement.Internal
--- Copyright : (c) 2013-2016 Brendan Hay
+-- Copyright : (c) 2013-2018 Brendan Hay
-- License : Mozilla Public License, v. 2.0.
-- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>
-- Stability : auto-generated