amazonka-sdb 1.5.0 → 1.6.0
raw patch · 21 files changed
+143/−141 lines, 21 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-sdb.cabal +5/−5
- gen/Network/AWS/SDB.hs +1/−1
- gen/Network/AWS/SDB/BatchDeleteAttributes.hs +3/−3
- gen/Network/AWS/SDB/BatchPutAttributes.hs +3/−3
- gen/Network/AWS/SDB/CreateDomain.hs +2/−2
- gen/Network/AWS/SDB/DeleteAttributes.hs +10/−10
- gen/Network/AWS/SDB/DeleteDomain.hs +2/−2
- gen/Network/AWS/SDB/DomainMetadata.hs +19/−19
- gen/Network/AWS/SDB/GetAttributes.hs +13/−13
- gen/Network/AWS/SDB/ListDomains.hs +10/−10
- gen/Network/AWS/SDB/PutAttributes.hs +10/−10
- gen/Network/AWS/SDB/Select.hs +15/−15
- gen/Network/AWS/SDB/Types.hs +18/−16
- gen/Network/AWS/SDB/Types/Product.hs +25/−25
- gen/Network/AWS/SDB/Types/Sum.hs +1/−1
- gen/Network/AWS/SDB/Waiters.hs +1/−1
- test/Main.hs +1/−1
- test/Test/AWS/Gen/SDB.hs +1/−1
- test/Test/AWS/SDB.hs +1/−1
- test/Test/AWS/SDB/Internal.hs +1/−1
README.md view
@@ -8,7 +8,7 @@ ## Version -`1.5.0`+`1.6.0` ## Description
amazonka-sdb.cabal view
@@ -1,5 +1,5 @@ name: amazonka-sdb-version: 1.5.0+version: 1.6.0 synopsis: Amazon SimpleDB 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@@ -63,7 +63,7 @@ , Network.AWS.SDB.Types.Sum build-depends:- amazonka-core == 1.5.0.*+ amazonka-core == 1.6.0.* , base >= 4.7 && < 5 test-suite amazonka-sdb-test@@ -83,8 +83,8 @@ , Test.AWS.SDB.Internal build-depends:- amazonka-core == 1.5.0.*- , amazonka-test == 1.5.0.*+ amazonka-core == 1.6.0.*+ , amazonka-test == 1.6.0.* , amazonka-sdb , base , bytestring
gen/Network/AWS/SDB.hs view
@@ -5,7 +5,7 @@ -- | -- Module : Network.AWS.SDB--- 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
gen/Network/AWS/SDB/BatchDeleteAttributes.hs view
@@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.SDB.BatchDeleteAttributes--- 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@@ -69,11 +69,11 @@ -- | The name of the domain in which the attributes are being deleted. bdaDomainName :: Lens' BatchDeleteAttributes Text-bdaDomainName = lens _bdaDomainName (\ s a -> s{_bdaDomainName = a});+bdaDomainName = lens _bdaDomainName (\ s a -> s{_bdaDomainName = a}) -- | A list of items on which to perform the operation. bdaItems :: Lens' BatchDeleteAttributes [DeletableItem]-bdaItems = lens _bdaItems (\ s a -> s{_bdaItems = a}) . _Coerce;+bdaItems = lens _bdaItems (\ s a -> s{_bdaItems = a}) . _Coerce instance AWSRequest BatchDeleteAttributes where type Rs BatchDeleteAttributes =
gen/Network/AWS/SDB/BatchPutAttributes.hs view
@@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.SDB.BatchPutAttributes--- 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,11 +77,11 @@ -- | The name of the domain in which the attributes are being stored. bpaDomainName :: Lens' BatchPutAttributes Text-bpaDomainName = lens _bpaDomainName (\ s a -> s{_bpaDomainName = a});+bpaDomainName = lens _bpaDomainName (\ s a -> s{_bpaDomainName = a}) -- | A list of items on which to perform the operation. bpaItems :: Lens' BatchPutAttributes [ReplaceableItem]-bpaItems = lens _bpaItems (\ s a -> s{_bpaItems = a}) . _Coerce;+bpaItems = lens _bpaItems (\ s a -> s{_bpaItems = a}) . _Coerce instance AWSRequest BatchPutAttributes where type Rs BatchPutAttributes =
gen/Network/AWS/SDB/CreateDomain.hs view
@@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.SDB.CreateDomain--- 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@@ -64,7 +64,7 @@ -- | The name of the domain to create. The name can range between 3 and 255 characters and can contain the following characters: a-z, A-Z, 0-9, '_', '-', and '.'. cdDomainName :: Lens' CreateDomain Text-cdDomainName = lens _cdDomainName (\ s a -> s{_cdDomainName = a});+cdDomainName = lens _cdDomainName (\ s a -> s{_cdDomainName = a}) instance AWSRequest CreateDomain where type Rs CreateDomain = CreateDomainResponse
gen/Network/AWS/SDB/DeleteAttributes.hs view
@@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.SDB.DeleteAttributes--- 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@@ -74,28 +74,28 @@ -> DeleteAttributes deleteAttributes pDomainName_ pItemName_ = DeleteAttributes'- { _daAttributes = Nothing- , _daExpected = Nothing- , _daDomainName = pDomainName_- , _daItemName = pItemName_- }+ { _daAttributes = Nothing+ , _daExpected = Nothing+ , _daDomainName = pDomainName_+ , _daItemName = pItemName_+ } -- | A list of Attributes. Similar to columns on a spreadsheet, attributes represent categories of data that can be assigned to items. daAttributes :: Lens' DeleteAttributes [Attribute]-daAttributes = lens _daAttributes (\ s a -> s{_daAttributes = a}) . _Default . _Coerce;+daAttributes = lens _daAttributes (\ s a -> s{_daAttributes = a}) . _Default . _Coerce -- | The update condition which, if specified, determines whether the specified attributes will be deleted or not. The update condition must be satisfied in order for this request to be processed and the attributes to be deleted. daExpected :: Lens' DeleteAttributes (Maybe UpdateCondition)-daExpected = lens _daExpected (\ s a -> s{_daExpected = a});+daExpected = lens _daExpected (\ s a -> s{_daExpected = a}) -- | The name of the domain in which to perform the operation. daDomainName :: Lens' DeleteAttributes Text-daDomainName = lens _daDomainName (\ s a -> s{_daDomainName = a});+daDomainName = lens _daDomainName (\ s a -> s{_daDomainName = a}) -- | The name of the item. Similar to rows on a spreadsheet, items represent individual objects that contain one or more value-attribute pairs. daItemName :: Lens' DeleteAttributes Text-daItemName = lens _daItemName (\ s a -> s{_daItemName = a});+daItemName = lens _daItemName (\ s a -> s{_daItemName = a}) instance AWSRequest DeleteAttributes where type Rs DeleteAttributes = DeleteAttributesResponse
gen/Network/AWS/SDB/DeleteDomain.hs view
@@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.SDB.DeleteDomain--- 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@@ -60,7 +60,7 @@ -- | The name of the domain to delete. ddDomainName :: Lens' DeleteDomain Text-ddDomainName = lens _ddDomainName (\ s a -> s{_ddDomainName = a});+ddDomainName = lens _ddDomainName (\ s a -> s{_ddDomainName = a}) instance AWSRequest DeleteDomain where type Rs DeleteDomain = DeleteDomainResponse
gen/Network/AWS/SDB/DomainMetadata.hs view
@@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.SDB.DomainMetadata--- 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@@ -69,7 +69,7 @@ -- | The name of the domain for which to display the metadata of. dmDomainName :: Lens' DomainMetadata Text-dmDomainName = lens _dmDomainName (\ s a -> s{_dmDomainName = a});+dmDomainName = lens _dmDomainName (\ s a -> s{_dmDomainName = a}) instance AWSRequest DomainMetadata where type Rs DomainMetadata = DomainMetadataResponse@@ -141,47 +141,47 @@ -> DomainMetadataResponse domainMetadataResponse pResponseStatus_ = DomainMetadataResponse'- { _dmrsItemNamesSizeBytes = Nothing- , _dmrsAttributeValuesSizeBytes = Nothing- , _dmrsAttributeNameCount = Nothing- , _dmrsAttributeNamesSizeBytes = Nothing- , _dmrsAttributeValueCount = Nothing- , _dmrsItemCount = Nothing- , _dmrsTimestamp = Nothing- , _dmrsResponseStatus = pResponseStatus_- }+ { _dmrsItemNamesSizeBytes = Nothing+ , _dmrsAttributeValuesSizeBytes = Nothing+ , _dmrsAttributeNameCount = Nothing+ , _dmrsAttributeNamesSizeBytes = Nothing+ , _dmrsAttributeValueCount = Nothing+ , _dmrsItemCount = Nothing+ , _dmrsTimestamp = Nothing+ , _dmrsResponseStatus = pResponseStatus_+ } -- | The total size of all item names in the domain, in bytes. dmrsItemNamesSizeBytes :: Lens' DomainMetadataResponse (Maybe Integer)-dmrsItemNamesSizeBytes = lens _dmrsItemNamesSizeBytes (\ s a -> s{_dmrsItemNamesSizeBytes = a});+dmrsItemNamesSizeBytes = lens _dmrsItemNamesSizeBytes (\ s a -> s{_dmrsItemNamesSizeBytes = a}) -- | The total size of all attribute values in the domain, in bytes. dmrsAttributeValuesSizeBytes :: Lens' DomainMetadataResponse (Maybe Integer)-dmrsAttributeValuesSizeBytes = lens _dmrsAttributeValuesSizeBytes (\ s a -> s{_dmrsAttributeValuesSizeBytes = a});+dmrsAttributeValuesSizeBytes = lens _dmrsAttributeValuesSizeBytes (\ s a -> s{_dmrsAttributeValuesSizeBytes = a}) -- | The number of unique attribute names in the domain. dmrsAttributeNameCount :: Lens' DomainMetadataResponse (Maybe Int)-dmrsAttributeNameCount = lens _dmrsAttributeNameCount (\ s a -> s{_dmrsAttributeNameCount = a});+dmrsAttributeNameCount = lens _dmrsAttributeNameCount (\ s a -> s{_dmrsAttributeNameCount = a}) -- | The total size of all unique attribute names in the domain, in bytes. dmrsAttributeNamesSizeBytes :: Lens' DomainMetadataResponse (Maybe Integer)-dmrsAttributeNamesSizeBytes = lens _dmrsAttributeNamesSizeBytes (\ s a -> s{_dmrsAttributeNamesSizeBytes = a});+dmrsAttributeNamesSizeBytes = lens _dmrsAttributeNamesSizeBytes (\ s a -> s{_dmrsAttributeNamesSizeBytes = a}) -- | The number of all attribute name/value pairs in the domain. dmrsAttributeValueCount :: Lens' DomainMetadataResponse (Maybe Int)-dmrsAttributeValueCount = lens _dmrsAttributeValueCount (\ s a -> s{_dmrsAttributeValueCount = a});+dmrsAttributeValueCount = lens _dmrsAttributeValueCount (\ s a -> s{_dmrsAttributeValueCount = a}) -- | The number of all items in the domain. dmrsItemCount :: Lens' DomainMetadataResponse (Maybe Int)-dmrsItemCount = lens _dmrsItemCount (\ s a -> s{_dmrsItemCount = a});+dmrsItemCount = lens _dmrsItemCount (\ s a -> s{_dmrsItemCount = a}) -- | The data and time when metadata was calculated, in Epoch (UNIX) seconds. dmrsTimestamp :: Lens' DomainMetadataResponse (Maybe Int)-dmrsTimestamp = lens _dmrsTimestamp (\ s a -> s{_dmrsTimestamp = a});+dmrsTimestamp = lens _dmrsTimestamp (\ s a -> s{_dmrsTimestamp = a}) -- | -- | The response status code. dmrsResponseStatus :: Lens' DomainMetadataResponse Int-dmrsResponseStatus = lens _dmrsResponseStatus (\ s a -> s{_dmrsResponseStatus = a});+dmrsResponseStatus = lens _dmrsResponseStatus (\ s a -> s{_dmrsResponseStatus = a}) instance NFData DomainMetadataResponse where
gen/Network/AWS/SDB/GetAttributes.hs view
@@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.SDB.GetAttributes--- 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@@ -75,28 +75,28 @@ -> GetAttributes getAttributes pDomainName_ pItemName_ = GetAttributes'- { _gaConsistentRead = Nothing- , _gaAttributeNames = Nothing- , _gaDomainName = pDomainName_- , _gaItemName = pItemName_- }+ { _gaConsistentRead = Nothing+ , _gaAttributeNames = Nothing+ , _gaDomainName = pDomainName_+ , _gaItemName = pItemName_+ } -- | @true@ gaConsistentRead :: Lens' GetAttributes (Maybe Bool)-gaConsistentRead = lens _gaConsistentRead (\ s a -> s{_gaConsistentRead = a});+gaConsistentRead = lens _gaConsistentRead (\ s a -> s{_gaConsistentRead = a}) -- | The names of the attributes. gaAttributeNames :: Lens' GetAttributes [Text]-gaAttributeNames = lens _gaAttributeNames (\ s a -> s{_gaAttributeNames = a}) . _Default . _Coerce;+gaAttributeNames = lens _gaAttributeNames (\ s a -> s{_gaAttributeNames = a}) . _Default . _Coerce -- | The name of the domain in which to perform the operation. gaDomainName :: Lens' GetAttributes Text-gaDomainName = lens _gaDomainName (\ s a -> s{_gaDomainName = a});+gaDomainName = lens _gaDomainName (\ s a -> s{_gaDomainName = a}) -- | The name of the item. gaItemName :: Lens' GetAttributes Text-gaItemName = lens _gaItemName (\ s a -> s{_gaItemName = a});+gaItemName = lens _gaItemName (\ s a -> s{_gaItemName = a}) instance AWSRequest GetAttributes where type Rs GetAttributes = GetAttributesResponse@@ -148,15 +148,15 @@ -> GetAttributesResponse getAttributesResponse pResponseStatus_ = GetAttributesResponse'- {_garsAttributes = Nothing, _garsResponseStatus = pResponseStatus_}+ {_garsAttributes = Nothing, _garsResponseStatus = pResponseStatus_} -- | The list of attributes returned by the operation. garsAttributes :: Lens' GetAttributesResponse [Attribute]-garsAttributes = lens _garsAttributes (\ s a -> s{_garsAttributes = a}) . _Default . _Coerce;+garsAttributes = lens _garsAttributes (\ s a -> s{_garsAttributes = a}) . _Default . _Coerce -- | -- | The response status code. garsResponseStatus :: Lens' GetAttributesResponse Int-garsResponseStatus = lens _garsResponseStatus (\ s a -> s{_garsResponseStatus = a});+garsResponseStatus = lens _garsResponseStatus (\ s a -> s{_garsResponseStatus = a}) instance NFData GetAttributesResponse where
gen/Network/AWS/SDB/ListDomains.hs view
@@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.SDB.ListDomains--- 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@@ -71,11 +71,11 @@ -- | The maximum number of domain names you want returned. The range is 1 to 100. The default setting is 100. ldMaxNumberOfDomains :: Lens' ListDomains (Maybe Int)-ldMaxNumberOfDomains = lens _ldMaxNumberOfDomains (\ s a -> s{_ldMaxNumberOfDomains = a});+ldMaxNumberOfDomains = lens _ldMaxNumberOfDomains (\ s a -> s{_ldMaxNumberOfDomains = a}) -- | A string informing Amazon SimpleDB where to start the next list of domain names. ldNextToken :: Lens' ListDomains (Maybe Text)-ldNextToken = lens _ldNextToken (\ s a -> s{_ldNextToken = a});+ldNextToken = lens _ldNextToken (\ s a -> s{_ldNextToken = a}) instance AWSPager ListDomains where page rq rs@@ -135,22 +135,22 @@ -> ListDomainsResponse listDomainsResponse pResponseStatus_ = ListDomainsResponse'- { _ldrsDomainNames = Nothing- , _ldrsNextToken = Nothing- , _ldrsResponseStatus = pResponseStatus_- }+ { _ldrsDomainNames = Nothing+ , _ldrsNextToken = Nothing+ , _ldrsResponseStatus = pResponseStatus_+ } -- | A list of domain names that match the expression. ldrsDomainNames :: Lens' ListDomainsResponse [Text]-ldrsDomainNames = lens _ldrsDomainNames (\ s a -> s{_ldrsDomainNames = a}) . _Default . _Coerce;+ldrsDomainNames = lens _ldrsDomainNames (\ s a -> s{_ldrsDomainNames = a}) . _Default . _Coerce -- | @MaxNumberOfDomains@ ldrsNextToken :: Lens' ListDomainsResponse (Maybe Text)-ldrsNextToken = lens _ldrsNextToken (\ s a -> s{_ldrsNextToken = a});+ldrsNextToken = lens _ldrsNextToken (\ s a -> s{_ldrsNextToken = a}) -- | -- | The response status code. ldrsResponseStatus :: Lens' ListDomainsResponse Int-ldrsResponseStatus = lens _ldrsResponseStatus (\ s a -> s{_ldrsResponseStatus = a});+ldrsResponseStatus = lens _ldrsResponseStatus (\ s a -> s{_ldrsResponseStatus = a}) instance NFData ListDomainsResponse where
gen/Network/AWS/SDB/PutAttributes.hs view
@@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.SDB.PutAttributes--- 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@@ -82,28 +82,28 @@ -> PutAttributes putAttributes pDomainName_ pItemName_ = PutAttributes'- { _paExpected = Nothing- , _paDomainName = pDomainName_- , _paItemName = pItemName_- , _paAttributes = mempty- }+ { _paExpected = Nothing+ , _paDomainName = pDomainName_+ , _paItemName = pItemName_+ , _paAttributes = mempty+ } -- | The update condition which, if specified, determines whether the specified attributes will be updated or not. The update condition must be satisfied in order for this request to be processed and the attributes to be updated. paExpected :: Lens' PutAttributes (Maybe UpdateCondition)-paExpected = lens _paExpected (\ s a -> s{_paExpected = a});+paExpected = lens _paExpected (\ s a -> s{_paExpected = a}) -- | The name of the domain in which to perform the operation. paDomainName :: Lens' PutAttributes Text-paDomainName = lens _paDomainName (\ s a -> s{_paDomainName = a});+paDomainName = lens _paDomainName (\ s a -> s{_paDomainName = a}) -- | The name of the item. paItemName :: Lens' PutAttributes Text-paItemName = lens _paItemName (\ s a -> s{_paItemName = a});+paItemName = lens _paItemName (\ s a -> s{_paItemName = a}) -- | The list of attributes. paAttributes :: Lens' PutAttributes [ReplaceableAttribute]-paAttributes = lens _paAttributes (\ s a -> s{_paAttributes = a}) . _Coerce;+paAttributes = lens _paAttributes (\ s a -> s{_paAttributes = a}) . _Coerce instance AWSRequest PutAttributes where type Rs PutAttributes = PutAttributesResponse
gen/Network/AWS/SDB/Select.hs view
@@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.SDB.Select--- 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@@ -76,23 +76,23 @@ -> Select select pSelectExpression_ = Select'- { _sConsistentRead = Nothing- , _sNextToken = Nothing- , _sSelectExpression = pSelectExpression_- }+ { _sConsistentRead = Nothing+ , _sNextToken = Nothing+ , _sSelectExpression = pSelectExpression_+ } -- | @true@ sConsistentRead :: Lens' Select (Maybe Bool)-sConsistentRead = lens _sConsistentRead (\ s a -> s{_sConsistentRead = a});+sConsistentRead = lens _sConsistentRead (\ s a -> s{_sConsistentRead = a}) -- | @ItemNames@ sNextToken :: Lens' Select (Maybe Text)-sNextToken = lens _sNextToken (\ s a -> s{_sNextToken = a});+sNextToken = lens _sNextToken (\ s a -> s{_sNextToken = a}) -- | The expression used to query the domain. sSelectExpression :: Lens' Select Text-sSelectExpression = lens _sSelectExpression (\ s a -> s{_sSelectExpression = a});+sSelectExpression = lens _sSelectExpression (\ s a -> s{_sSelectExpression = a}) instance AWSPager Select where page rq rs@@ -152,22 +152,22 @@ -> SelectResponse selectResponse pResponseStatus_ = SelectResponse'- { _srsItems = Nothing- , _srsNextToken = Nothing- , _srsResponseStatus = pResponseStatus_- }+ { _srsItems = Nothing+ , _srsNextToken = Nothing+ , _srsResponseStatus = pResponseStatus_+ } -- | A list of items that match the select expression. srsItems :: Lens' SelectResponse [Item]-srsItems = lens _srsItems (\ s a -> s{_srsItems = a}) . _Default . _Coerce;+srsItems = lens _srsItems (\ s a -> s{_srsItems = a}) . _Default . _Coerce -- | @MaxNumberOfItems@ srsNextToken :: Lens' SelectResponse (Maybe Text)-srsNextToken = lens _srsNextToken (\ s a -> s{_srsNextToken = a});+srsNextToken = lens _srsNextToken (\ s a -> s{_srsNextToken = a}) -- | -- | The response status code. srsResponseStatus :: Lens' SelectResponse Int-srsResponseStatus = lens _srsResponseStatus (\ s a -> s{_srsResponseStatus = a});+srsResponseStatus = lens _srsResponseStatus (\ s a -> s{_srsResponseStatus = a}) instance NFData SelectResponse where
gen/Network/AWS/SDB/Types.hs view
@@ -4,7 +4,7 @@ -- | -- Module : Network.AWS.SDB.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@@ -86,24 +86,24 @@ sdb :: Service sdb = Service- { _svcAbbrev = "SDB"- , _svcSigner = v2- , _svcPrefix = "sdb"- , _svcVersion = "2009-04-15"- , _svcEndpoint = defaultEndpoint sdb- , _svcTimeout = Just 70- , _svcCheck = statusSuccess- , _svcError = parseXMLError "SDB"- , _svcRetry = retry- }+ { _svcAbbrev = "SDB"+ , _svcSigner = v2+ , _svcPrefix = "sdb"+ , _svcVersion = "2009-04-15"+ , _svcEndpoint = defaultEndpoint sdb+ , _svcTimeout = Just 70+ , _svcCheck = statusSuccess+ , _svcError = parseXMLError "SDB"+ , _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"@@ -112,6 +112,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"
gen/Network/AWS/SDB/Types/Product.hs view
@@ -9,7 +9,7 @@ -- | -- Module : Network.AWS.SDB.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@@ -51,28 +51,28 @@ -> Attribute attribute pName_ pValue_ = Attribute'- { _aAlternateValueEncoding = Nothing- , _aAlternateNameEncoding = Nothing- , _aName = pName_- , _aValue = pValue_- }+ { _aAlternateValueEncoding = Nothing+ , _aAlternateNameEncoding = Nothing+ , _aName = pName_+ , _aValue = pValue_+ } -- | aAlternateValueEncoding :: Lens' Attribute (Maybe Text)-aAlternateValueEncoding = lens _aAlternateValueEncoding (\ s a -> s{_aAlternateValueEncoding = a});+aAlternateValueEncoding = lens _aAlternateValueEncoding (\ s a -> s{_aAlternateValueEncoding = a}) -- | aAlternateNameEncoding :: Lens' Attribute (Maybe Text)-aAlternateNameEncoding = lens _aAlternateNameEncoding (\ s a -> s{_aAlternateNameEncoding = a});+aAlternateNameEncoding = lens _aAlternateNameEncoding (\ s a -> s{_aAlternateNameEncoding = a}) -- | The name of the attribute. aName :: Lens' Attribute Text-aName = lens _aName (\ s a -> s{_aName = a});+aName = lens _aName (\ s a -> s{_aName = a}) -- | The value of the attribute. aValue :: Lens' Attribute Text-aValue = lens _aValue (\ s a -> s{_aValue = a});+aValue = lens _aValue (\ s a -> s{_aValue = a}) instance FromXML Attribute where parseXML x@@ -117,11 +117,11 @@ -- | Undocumented member. diAttributes :: Lens' DeletableItem [Attribute]-diAttributes = lens _diAttributes (\ s a -> s{_diAttributes = a}) . _Default . _Coerce;+diAttributes = lens _diAttributes (\ s a -> s{_diAttributes = a}) . _Default . _Coerce -- | Undocumented member. diName :: Lens' DeletableItem Text-diName = lens _diName (\ s a -> s{_diName = a});+diName = lens _diName (\ s a -> s{_diName = a}) instance Hashable DeletableItem where @@ -159,20 +159,20 @@ -> Item item pName_ = Item'- {_iAlternateNameEncoding = Nothing, _iName = pName_, _iAttributes = mempty}+ {_iAlternateNameEncoding = Nothing, _iName = pName_, _iAttributes = mempty} -- | iAlternateNameEncoding :: Lens' Item (Maybe Text)-iAlternateNameEncoding = lens _iAlternateNameEncoding (\ s a -> s{_iAlternateNameEncoding = a});+iAlternateNameEncoding = lens _iAlternateNameEncoding (\ s a -> s{_iAlternateNameEncoding = a}) -- | The name of the item. iName :: Lens' Item Text-iName = lens _iName (\ s a -> s{_iName = a});+iName = lens _iName (\ s a -> s{_iName = a}) -- | A list of attributes. iAttributes :: Lens' Item [Attribute]-iAttributes = lens _iAttributes (\ s a -> s{_iAttributes = a}) . _Coerce;+iAttributes = lens _iAttributes (\ s a -> s{_iAttributes = a}) . _Coerce instance FromXML Item where parseXML x@@ -211,20 +211,20 @@ -> ReplaceableAttribute replaceableAttribute pName_ pValue_ = ReplaceableAttribute'- {_raReplace = Nothing, _raName = pName_, _raValue = pValue_}+ {_raReplace = Nothing, _raName = pName_, _raValue = pValue_} -- | @false@ raReplace :: Lens' ReplaceableAttribute (Maybe Bool)-raReplace = lens _raReplace (\ s a -> s{_raReplace = a});+raReplace = lens _raReplace (\ s a -> s{_raReplace = a}) -- | The name of the replaceable attribute. raName :: Lens' ReplaceableAttribute Text-raName = lens _raName (\ s a -> s{_raName = a});+raName = lens _raName (\ s a -> s{_raName = a}) -- | The value of the replaceable attribute. raValue :: Lens' ReplaceableAttribute Text-raValue = lens _raValue (\ s a -> s{_raValue = a});+raValue = lens _raValue (\ s a -> s{_raValue = a}) instance Hashable ReplaceableAttribute where @@ -263,11 +263,11 @@ -- | The name of the replaceable item. riName :: Lens' ReplaceableItem Text-riName = lens _riName (\ s a -> s{_riName = a});+riName = lens _riName (\ s a -> s{_riName = a}) -- | The list of attributes for a replaceable item. riAttributes :: Lens' ReplaceableItem [ReplaceableAttribute]-riAttributes = lens _riAttributes (\ s a -> s{_riAttributes = a}) . _Coerce;+riAttributes = lens _riAttributes (\ s a -> s{_riAttributes = a}) . _Coerce instance Hashable ReplaceableItem where @@ -308,15 +308,15 @@ -- | A value specifying whether or not the specified attribute must exist with the specified value in order for the update condition to be satisfied. Specify @true@ if the attribute must exist for the update condition to be satisfied. Specify @false@ if the attribute should not exist in order for the update condition to be satisfied. ucExists :: Lens' UpdateCondition (Maybe Bool)-ucExists = lens _ucExists (\ s a -> s{_ucExists = a});+ucExists = lens _ucExists (\ s a -> s{_ucExists = a}) -- | The value of an attribute. This value can only be specified when the @Exists@ parameter is equal to @true@ . ucValue :: Lens' UpdateCondition (Maybe Text)-ucValue = lens _ucValue (\ s a -> s{_ucValue = a});+ucValue = lens _ucValue (\ s a -> s{_ucValue = a}) -- | The name of the attribute involved in the condition. ucName :: Lens' UpdateCondition (Maybe Text)-ucName = lens _ucName (\ s a -> s{_ucName = a});+ucName = lens _ucName (\ s a -> s{_ucName = a}) instance Hashable UpdateCondition where
gen/Network/AWS/SDB/Types/Sum.hs view
@@ -9,7 +9,7 @@ -- | -- Module : Network.AWS.SDB.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
gen/Network/AWS/SDB/Waiters.hs view
@@ -7,7 +7,7 @@ -- | -- Module : Network.AWS.SDB.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
test/Main.hs view
@@ -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
test/Test/AWS/Gen/SDB.hs view
@@ -5,7 +5,7 @@ -- | -- Module : Test.AWS.Gen.SDB--- 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
test/Test/AWS/SDB.hs view
@@ -1,7 +1,7 @@ {-# LANGUAGE OverloadedStrings #-} -- Module : Test.AWS.SDB--- Copyright : (c) 2013-2016 Brendan Hay+-- Copyright : (c) 2013-2018 Brendan Hay -- License : This Source Code Form is subject to the terms of -- the Mozilla Public License, v. 2.0. -- A copy of the MPL can be found in the LICENSE file or
test/Test/AWS/SDB/Internal.hs view
@@ -2,7 +2,7 @@ {-# OPTIONS_GHC -fno-warn-unused-imports #-} -- Module : Test.AWS.SDB.Internal--- Copyright : (c) 2013-2016 Brendan Hay+-- Copyright : (c) 2013-2018 Brendan Hay -- License : This Source Code Form is subject to the terms of -- the Mozilla Public License, v. 2.0. -- A copy of the MPL can be found in the LICENSE file or