amazonka-marketplace-entitlement 1.5.0 → 1.6.0

raw patch · 12 files changed

+69/−67 lines, 12 filesdep ~amazonka-coredep ~amazonka-testPVP ok

version bump matches the API change (PVP)

Dependency ranges changed: amazonka-core, amazonka-test

API changes (from Hackage documentation)

Files

• README.md +1/−1
• amazonka-marketplace-entitlement.cabal +5/−5
• gen/Network/AWS/MarketplaceEntitlement.hs +1/−1
• gen/Network/AWS/MarketplaceEntitlement/GetEntitlements.hs +17/−17
• gen/Network/AWS/MarketplaceEntitlement/Types.hs +18/−16
• gen/Network/AWS/MarketplaceEntitlement/Types/Product.hs +21/−21
• gen/Network/AWS/MarketplaceEntitlement/Types/Sum.hs +1/−1
• gen/Network/AWS/MarketplaceEntitlement/Waiters.hs +1/−1
• test/Main.hs +1/−1
• test/Test/AWS/Gen/MarketplaceEntitlement.hs +1/−1
• test/Test/AWS/MarketplaceEntitlement.hs +1/−1
• test/Test/AWS/MarketplaceEntitlement/Internal.hs +1/−1

@@ -8,7 +8,7 @@  ## Version -`1.5.0`+`1.6.0`   ## Description

@@ -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-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 @@         , 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.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

@@ -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

@@ -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 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 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

@@ -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 @@ 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 @@         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"

@@ -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'-  { _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'-  { _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

@@ -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

@@ -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

@@ -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

@@ -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

@@ -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

@@ -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