diff --git a/README.md b/README.md --- a/README.md +++ b/README.md @@ -8,7 +8,7 @@ ## Version -`1.2.0.2` +`1.3.0` ## Description diff --git a/amazonka-cloudsearch.cabal b/amazonka-cloudsearch.cabal --- a/amazonka-cloudsearch.cabal +++ b/amazonka-cloudsearch.cabal @@ -1,5 +1,5 @@ name: amazonka-cloudsearch -version: 1.2.0.2 +version: 1.3.0 synopsis: Amazon CloudSearch SDK. homepage: https://github.com/brendanhay/amazonka bug-reports: https://github.com/brendanhay/amazonka/issues @@ -85,7 +85,7 @@ , Network.AWS.CloudSearch.Types.Sum build-depends: - amazonka-core == 1.2.0.* + amazonka-core == 1.3.0.* , base >= 4.7 && < 5 test-suite amazonka-cloudsearch-test @@ -105,9 +105,9 @@ , Test.AWS.CloudSearch.Internal build-depends: - amazonka-core == 1.2.0.* - , amazonka-test == 1.2.0.* - , amazonka-cloudsearch == 1.2.0.* + amazonka-core == 1.3.0.* + , amazonka-test == 1.3.0.* + , amazonka-cloudsearch == 1.3.0.* , base , bytestring , lens diff --git a/gen/Network/AWS/CloudSearch.hs b/gen/Network/AWS/CloudSearch.hs --- a/gen/Network/AWS/CloudSearch.hs +++ b/gen/Network/AWS/CloudSearch.hs @@ -82,32 +82,32 @@ -- ** DeleteExpression , module Network.AWS.CloudSearch.DeleteExpression - -- ** DescribeDomains - , module Network.AWS.CloudSearch.DescribeDomains + -- ** ListDomainNames + , module Network.AWS.CloudSearch.ListDomainNames -- ** DefineSuggester , module Network.AWS.CloudSearch.DefineSuggester + -- ** DescribeDomains + , module Network.AWS.CloudSearch.DescribeDomains + -- ** DeleteAnalysisScheme , module Network.AWS.CloudSearch.DeleteAnalysisScheme - -- ** ListDomainNames - , module Network.AWS.CloudSearch.ListDomainNames - -- ** DescribeAnalysisSchemes , module Network.AWS.CloudSearch.DescribeAnalysisSchemes -- ** CreateDomain , module Network.AWS.CloudSearch.CreateDomain - -- ** DefineAnalysisScheme - , module Network.AWS.CloudSearch.DefineAnalysisScheme + -- ** DescribeIndexFields + , module Network.AWS.CloudSearch.DescribeIndexFields -- ** DeleteSuggester , module Network.AWS.CloudSearch.DeleteSuggester - -- ** DescribeIndexFields - , module Network.AWS.CloudSearch.DescribeIndexFields + -- ** DefineAnalysisScheme + , module Network.AWS.CloudSearch.DefineAnalysisScheme -- ** IndexDocuments , module Network.AWS.CloudSearch.IndexDocuments @@ -115,21 +115,21 @@ -- ** DeleteIndexField , module Network.AWS.CloudSearch.DeleteIndexField - -- ** BuildSuggesters - , module Network.AWS.CloudSearch.BuildSuggesters + -- ** UpdateServiceAccessPolicies + , module Network.AWS.CloudSearch.UpdateServiceAccessPolicies -- ** UpdateScalingParameters , module Network.AWS.CloudSearch.UpdateScalingParameters - -- ** UpdateServiceAccessPolicies - , module Network.AWS.CloudSearch.UpdateServiceAccessPolicies - - -- ** DefineIndexField - , module Network.AWS.CloudSearch.DefineIndexField + -- ** BuildSuggesters + , module Network.AWS.CloudSearch.BuildSuggesters -- ** DeleteDomain , module Network.AWS.CloudSearch.DeleteDomain + -- ** DefineIndexField + , module Network.AWS.CloudSearch.DefineIndexField + -- * Types -- ** AlgorithmicStemming @@ -161,9 +161,9 @@ , analysisOptions , aoAlgorithmicStemming , aoStopwords - , aoStemmingDictionary - , aoSynonyms , aoJapaneseTokenizationDictionary + , aoSynonyms + , aoStemmingDictionary -- ** AnalysisScheme , AnalysisScheme @@ -215,8 +215,8 @@ , domainStatus , dsSearchInstanceCount , dsSearchInstanceType - , dsARN , dsDocService + , dsARN , dsCreated , dsSearchService , dsLimits @@ -261,17 +261,17 @@ -- ** IndexField , IndexField , indexField + , ifDoubleArrayOptions , ifDateOptions , ifTextArrayOptions - , ifDoubleArrayOptions , ifDoubleOptions , ifTextOptions , ifLatLonOptions - , ifIntArrayOptions , ifLiteralArrayOptions + , ifIntArrayOptions , ifDateArrayOptions - , ifLiteralOptions , ifIntOptions + , ifLiteralOptions , ifIndexFieldName , ifIndexFieldType diff --git a/gen/Network/AWS/CloudSearch/BuildSuggesters.hs b/gen/Network/AWS/CloudSearch/BuildSuggesters.hs --- a/gen/Network/AWS/CloudSearch/BuildSuggesters.hs +++ b/gen/Network/AWS/CloudSearch/BuildSuggesters.hs @@ -36,7 +36,7 @@ , BuildSuggestersResponse -- * Response Lenses , bsrsFieldNames - , bsrsStatus + , bsrsResponseStatus ) where import Network.AWS.CloudSearch.Types @@ -99,8 +99,8 @@ -- -- /See:/ 'buildSuggestersResponse' smart constructor. data BuildSuggestersResponse = BuildSuggestersResponse' - { _bsrsFieldNames :: !(Maybe [Text]) - , _bsrsStatus :: !Int + { _bsrsFieldNames :: !(Maybe [Text]) + , _bsrsResponseStatus :: !Int } deriving (Eq,Read,Show,Data,Typeable,Generic) -- | Creates a value of 'BuildSuggestersResponse' with the minimum fields required to make a request. @@ -109,14 +109,14 @@ -- -- * 'bsrsFieldNames' -- --- * 'bsrsStatus' +-- * 'bsrsResponseStatus' buildSuggestersResponse - :: Int -- ^ 'bsrsStatus' + :: Int -- ^ 'bsrsResponseStatus' -> BuildSuggestersResponse -buildSuggestersResponse pStatus_ = +buildSuggestersResponse pResponseStatus_ = BuildSuggestersResponse' { _bsrsFieldNames = Nothing - , _bsrsStatus = pStatus_ + , _bsrsResponseStatus = pResponseStatus_ } -- | Undocumented member. @@ -124,5 +124,5 @@ bsrsFieldNames = lens _bsrsFieldNames (\ s a -> s{_bsrsFieldNames = a}) . _Default . _Coerce; -- | The response status code. -bsrsStatus :: Lens' BuildSuggestersResponse Int -bsrsStatus = lens _bsrsStatus (\ s a -> s{_bsrsStatus = a}); +bsrsResponseStatus :: Lens' BuildSuggestersResponse Int +bsrsResponseStatus = lens _bsrsResponseStatus (\ s a -> s{_bsrsResponseStatus = a}); diff --git a/gen/Network/AWS/CloudSearch/CreateDomain.hs b/gen/Network/AWS/CloudSearch/CreateDomain.hs --- a/gen/Network/AWS/CloudSearch/CreateDomain.hs +++ b/gen/Network/AWS/CloudSearch/CreateDomain.hs @@ -36,7 +36,7 @@ , CreateDomainResponse -- * Response Lenses , cdrsDomainStatus - , cdrsStatus + , cdrsResponseStatus ) where import Network.AWS.CloudSearch.Types @@ -100,8 +100,8 @@ -- -- /See:/ 'createDomainResponse' smart constructor. data CreateDomainResponse = CreateDomainResponse' - { _cdrsDomainStatus :: !(Maybe DomainStatus) - , _cdrsStatus :: !Int + { _cdrsDomainStatus :: !(Maybe DomainStatus) + , _cdrsResponseStatus :: !Int } deriving (Eq,Read,Show,Data,Typeable,Generic) -- | Creates a value of 'CreateDomainResponse' with the minimum fields required to make a request. @@ -110,14 +110,14 @@ -- -- * 'cdrsDomainStatus' -- --- * 'cdrsStatus' +-- * 'cdrsResponseStatus' createDomainResponse - :: Int -- ^ 'cdrsStatus' + :: Int -- ^ 'cdrsResponseStatus' -> CreateDomainResponse -createDomainResponse pStatus_ = +createDomainResponse pResponseStatus_ = CreateDomainResponse' { _cdrsDomainStatus = Nothing - , _cdrsStatus = pStatus_ + , _cdrsResponseStatus = pResponseStatus_ } -- | Undocumented member. @@ -125,5 +125,5 @@ cdrsDomainStatus = lens _cdrsDomainStatus (\ s a -> s{_cdrsDomainStatus = a}); -- | The response status code. -cdrsStatus :: Lens' CreateDomainResponse Int -cdrsStatus = lens _cdrsStatus (\ s a -> s{_cdrsStatus = a}); +cdrsResponseStatus :: Lens' CreateDomainResponse Int +cdrsResponseStatus = lens _cdrsResponseStatus (\ s a -> s{_cdrsResponseStatus = a}); diff --git a/gen/Network/AWS/CloudSearch/DefineAnalysisScheme.hs b/gen/Network/AWS/CloudSearch/DefineAnalysisScheme.hs --- a/gen/Network/AWS/CloudSearch/DefineAnalysisScheme.hs +++ b/gen/Network/AWS/CloudSearch/DefineAnalysisScheme.hs @@ -38,7 +38,7 @@ , defineAnalysisSchemeResponse , DefineAnalysisSchemeResponse -- * Response Lenses - , defersStatus + , defersResponseStatus , defersAnalysisScheme ) where @@ -112,7 +112,7 @@ -- -- /See:/ 'defineAnalysisSchemeResponse' smart constructor. data DefineAnalysisSchemeResponse = DefineAnalysisSchemeResponse' - { _defersStatus :: !Int + { _defersResponseStatus :: !Int , _defersAnalysisScheme :: !AnalysisSchemeStatus } deriving (Eq,Read,Show,Data,Typeable,Generic) @@ -120,22 +120,22 @@ -- -- Use one of the following lenses to modify other fields as desired: -- --- * 'defersStatus' +-- * 'defersResponseStatus' -- -- * 'defersAnalysisScheme' defineAnalysisSchemeResponse - :: Int -- ^ 'defersStatus' + :: Int -- ^ 'defersResponseStatus' -> AnalysisSchemeStatus -- ^ 'defersAnalysisScheme' -> DefineAnalysisSchemeResponse -defineAnalysisSchemeResponse pStatus_ pAnalysisScheme_ = +defineAnalysisSchemeResponse pResponseStatus_ pAnalysisScheme_ = DefineAnalysisSchemeResponse' - { _defersStatus = pStatus_ + { _defersResponseStatus = pResponseStatus_ , _defersAnalysisScheme = pAnalysisScheme_ } -- | The response status code. -defersStatus :: Lens' DefineAnalysisSchemeResponse Int -defersStatus = lens _defersStatus (\ s a -> s{_defersStatus = a}); +defersResponseStatus :: Lens' DefineAnalysisSchemeResponse Int +defersResponseStatus = lens _defersResponseStatus (\ s a -> s{_defersResponseStatus = a}); -- | Undocumented member. defersAnalysisScheme :: Lens' DefineAnalysisSchemeResponse AnalysisSchemeStatus diff --git a/gen/Network/AWS/CloudSearch/DefineExpression.hs b/gen/Network/AWS/CloudSearch/DefineExpression.hs --- a/gen/Network/AWS/CloudSearch/DefineExpression.hs +++ b/gen/Network/AWS/CloudSearch/DefineExpression.hs @@ -38,7 +38,7 @@ , defineExpressionResponse , DefineExpressionResponse -- * Response Lenses - , dersStatus + , dersResponseStatus , dersExpression ) where @@ -111,30 +111,30 @@ -- -- /See:/ 'defineExpressionResponse' smart constructor. data DefineExpressionResponse = DefineExpressionResponse' - { _dersStatus :: !Int - , _dersExpression :: !ExpressionStatus + { _dersResponseStatus :: !Int + , _dersExpression :: !ExpressionStatus } deriving (Eq,Read,Show,Data,Typeable,Generic) -- | Creates a value of 'DefineExpressionResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: -- --- * 'dersStatus' +-- * 'dersResponseStatus' -- -- * 'dersExpression' defineExpressionResponse - :: Int -- ^ 'dersStatus' + :: Int -- ^ 'dersResponseStatus' -> ExpressionStatus -- ^ 'dersExpression' -> DefineExpressionResponse -defineExpressionResponse pStatus_ pExpression_ = +defineExpressionResponse pResponseStatus_ pExpression_ = DefineExpressionResponse' - { _dersStatus = pStatus_ + { _dersResponseStatus = pResponseStatus_ , _dersExpression = pExpression_ } -- | The response status code. -dersStatus :: Lens' DefineExpressionResponse Int -dersStatus = lens _dersStatus (\ s a -> s{_dersStatus = a}); +dersResponseStatus :: Lens' DefineExpressionResponse Int +dersResponseStatus = lens _dersResponseStatus (\ s a -> s{_dersResponseStatus = a}); -- | Undocumented member. dersExpression :: Lens' DefineExpressionResponse ExpressionStatus diff --git a/gen/Network/AWS/CloudSearch/DefineIndexField.hs b/gen/Network/AWS/CloudSearch/DefineIndexField.hs --- a/gen/Network/AWS/CloudSearch/DefineIndexField.hs +++ b/gen/Network/AWS/CloudSearch/DefineIndexField.hs @@ -42,7 +42,7 @@ , defineIndexFieldResponse , DefineIndexFieldResponse -- * Response Lenses - , defrsStatus + , defrsResponseStatus , defrsIndexField ) where @@ -115,30 +115,30 @@ -- -- /See:/ 'defineIndexFieldResponse' smart constructor. data DefineIndexFieldResponse = DefineIndexFieldResponse' - { _defrsStatus :: !Int - , _defrsIndexField :: !IndexFieldStatus + { _defrsResponseStatus :: !Int + , _defrsIndexField :: !IndexFieldStatus } deriving (Eq,Read,Show,Data,Typeable,Generic) -- | Creates a value of 'DefineIndexFieldResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: -- --- * 'defrsStatus' +-- * 'defrsResponseStatus' -- -- * 'defrsIndexField' defineIndexFieldResponse - :: Int -- ^ 'defrsStatus' + :: Int -- ^ 'defrsResponseStatus' -> IndexFieldStatus -- ^ 'defrsIndexField' -> DefineIndexFieldResponse -defineIndexFieldResponse pStatus_ pIndexField_ = +defineIndexFieldResponse pResponseStatus_ pIndexField_ = DefineIndexFieldResponse' - { _defrsStatus = pStatus_ + { _defrsResponseStatus = pResponseStatus_ , _defrsIndexField = pIndexField_ } -- | The response status code. -defrsStatus :: Lens' DefineIndexFieldResponse Int -defrsStatus = lens _defrsStatus (\ s a -> s{_defrsStatus = a}); +defrsResponseStatus :: Lens' DefineIndexFieldResponse Int +defrsResponseStatus = lens _defrsResponseStatus (\ s a -> s{_defrsResponseStatus = a}); -- | Undocumented member. defrsIndexField :: Lens' DefineIndexFieldResponse IndexFieldStatus diff --git a/gen/Network/AWS/CloudSearch/DefineSuggester.hs b/gen/Network/AWS/CloudSearch/DefineSuggester.hs --- a/gen/Network/AWS/CloudSearch/DefineSuggester.hs +++ b/gen/Network/AWS/CloudSearch/DefineSuggester.hs @@ -40,7 +40,7 @@ , defineSuggesterResponse , DefineSuggesterResponse -- * Response Lenses - , dsrsStatus + , dsrsResponseStatus , dsrsSuggester ) where @@ -113,30 +113,30 @@ -- -- /See:/ 'defineSuggesterResponse' smart constructor. data DefineSuggesterResponse = DefineSuggesterResponse' - { _dsrsStatus :: !Int - , _dsrsSuggester :: !SuggesterStatus + { _dsrsResponseStatus :: !Int + , _dsrsSuggester :: !SuggesterStatus } deriving (Eq,Read,Show,Data,Typeable,Generic) -- | Creates a value of 'DefineSuggesterResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: -- --- * 'dsrsStatus' +-- * 'dsrsResponseStatus' -- -- * 'dsrsSuggester' defineSuggesterResponse - :: Int -- ^ 'dsrsStatus' + :: Int -- ^ 'dsrsResponseStatus' -> SuggesterStatus -- ^ 'dsrsSuggester' -> DefineSuggesterResponse -defineSuggesterResponse pStatus_ pSuggester_ = +defineSuggesterResponse pResponseStatus_ pSuggester_ = DefineSuggesterResponse' - { _dsrsStatus = pStatus_ + { _dsrsResponseStatus = pResponseStatus_ , _dsrsSuggester = pSuggester_ } -- | The response status code. -dsrsStatus :: Lens' DefineSuggesterResponse Int -dsrsStatus = lens _dsrsStatus (\ s a -> s{_dsrsStatus = a}); +dsrsResponseStatus :: Lens' DefineSuggesterResponse Int +dsrsResponseStatus = lens _dsrsResponseStatus (\ s a -> s{_dsrsResponseStatus = a}); -- | Undocumented member. dsrsSuggester :: Lens' DefineSuggesterResponse SuggesterStatus diff --git a/gen/Network/AWS/CloudSearch/DeleteAnalysisScheme.hs b/gen/Network/AWS/CloudSearch/DeleteAnalysisScheme.hs --- a/gen/Network/AWS/CloudSearch/DeleteAnalysisScheme.hs +++ b/gen/Network/AWS/CloudSearch/DeleteAnalysisScheme.hs @@ -36,7 +36,7 @@ , deleteAnalysisSchemeResponse , DeleteAnalysisSchemeResponse -- * Response Lenses - , dasarsStatus + , dasarsResponseStatus , dasarsAnalysisScheme ) where @@ -110,7 +110,7 @@ -- -- /See:/ 'deleteAnalysisSchemeResponse' smart constructor. data DeleteAnalysisSchemeResponse = DeleteAnalysisSchemeResponse' - { _dasarsStatus :: !Int + { _dasarsResponseStatus :: !Int , _dasarsAnalysisScheme :: !AnalysisSchemeStatus } deriving (Eq,Read,Show,Data,Typeable,Generic) @@ -118,22 +118,22 @@ -- -- Use one of the following lenses to modify other fields as desired: -- --- * 'dasarsStatus' +-- * 'dasarsResponseStatus' -- -- * 'dasarsAnalysisScheme' deleteAnalysisSchemeResponse - :: Int -- ^ 'dasarsStatus' + :: Int -- ^ 'dasarsResponseStatus' -> AnalysisSchemeStatus -- ^ 'dasarsAnalysisScheme' -> DeleteAnalysisSchemeResponse -deleteAnalysisSchemeResponse pStatus_ pAnalysisScheme_ = +deleteAnalysisSchemeResponse pResponseStatus_ pAnalysisScheme_ = DeleteAnalysisSchemeResponse' - { _dasarsStatus = pStatus_ + { _dasarsResponseStatus = pResponseStatus_ , _dasarsAnalysisScheme = pAnalysisScheme_ } -- | The response status code. -dasarsStatus :: Lens' DeleteAnalysisSchemeResponse Int -dasarsStatus = lens _dasarsStatus (\ s a -> s{_dasarsStatus = a}); +dasarsResponseStatus :: Lens' DeleteAnalysisSchemeResponse Int +dasarsResponseStatus = lens _dasarsResponseStatus (\ s a -> s{_dasarsResponseStatus = a}); -- | The status of the analysis scheme being deleted. dasarsAnalysisScheme :: Lens' DeleteAnalysisSchemeResponse AnalysisSchemeStatus diff --git a/gen/Network/AWS/CloudSearch/DeleteDomain.hs b/gen/Network/AWS/CloudSearch/DeleteDomain.hs --- a/gen/Network/AWS/CloudSearch/DeleteDomain.hs +++ b/gen/Network/AWS/CloudSearch/DeleteDomain.hs @@ -37,7 +37,7 @@ , DeleteDomainResponse -- * Response Lenses , ddrsDomainStatus - , ddrsStatus + , ddrsResponseStatus ) where import Network.AWS.CloudSearch.Types @@ -99,8 +99,8 @@ -- -- /See:/ 'deleteDomainResponse' smart constructor. data DeleteDomainResponse = DeleteDomainResponse' - { _ddrsDomainStatus :: !(Maybe DomainStatus) - , _ddrsStatus :: !Int + { _ddrsDomainStatus :: !(Maybe DomainStatus) + , _ddrsResponseStatus :: !Int } deriving (Eq,Read,Show,Data,Typeable,Generic) -- | Creates a value of 'DeleteDomainResponse' with the minimum fields required to make a request. @@ -109,14 +109,14 @@ -- -- * 'ddrsDomainStatus' -- --- * 'ddrsStatus' +-- * 'ddrsResponseStatus' deleteDomainResponse - :: Int -- ^ 'ddrsStatus' + :: Int -- ^ 'ddrsResponseStatus' -> DeleteDomainResponse -deleteDomainResponse pStatus_ = +deleteDomainResponse pResponseStatus_ = DeleteDomainResponse' { _ddrsDomainStatus = Nothing - , _ddrsStatus = pStatus_ + , _ddrsResponseStatus = pResponseStatus_ } -- | Undocumented member. @@ -124,5 +124,5 @@ ddrsDomainStatus = lens _ddrsDomainStatus (\ s a -> s{_ddrsDomainStatus = a}); -- | The response status code. -ddrsStatus :: Lens' DeleteDomainResponse Int -ddrsStatus = lens _ddrsStatus (\ s a -> s{_ddrsStatus = a}); +ddrsResponseStatus :: Lens' DeleteDomainResponse Int +ddrsResponseStatus = lens _ddrsResponseStatus (\ s a -> s{_ddrsResponseStatus = a}); diff --git a/gen/Network/AWS/CloudSearch/DeleteExpression.hs b/gen/Network/AWS/CloudSearch/DeleteExpression.hs --- a/gen/Network/AWS/CloudSearch/DeleteExpression.hs +++ b/gen/Network/AWS/CloudSearch/DeleteExpression.hs @@ -37,7 +37,7 @@ , deleteExpressionResponse , DeleteExpressionResponse -- * Response Lenses - , delrsStatus + , delrsResponseStatus , delrsExpression ) where @@ -110,30 +110,30 @@ -- -- /See:/ 'deleteExpressionResponse' smart constructor. data DeleteExpressionResponse = DeleteExpressionResponse' - { _delrsStatus :: !Int - , _delrsExpression :: !ExpressionStatus + { _delrsResponseStatus :: !Int + , _delrsExpression :: !ExpressionStatus } deriving (Eq,Read,Show,Data,Typeable,Generic) -- | Creates a value of 'DeleteExpressionResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: -- --- * 'delrsStatus' +-- * 'delrsResponseStatus' -- -- * 'delrsExpression' deleteExpressionResponse - :: Int -- ^ 'delrsStatus' + :: Int -- ^ 'delrsResponseStatus' -> ExpressionStatus -- ^ 'delrsExpression' -> DeleteExpressionResponse -deleteExpressionResponse pStatus_ pExpression_ = +deleteExpressionResponse pResponseStatus_ pExpression_ = DeleteExpressionResponse' - { _delrsStatus = pStatus_ + { _delrsResponseStatus = pResponseStatus_ , _delrsExpression = pExpression_ } -- | The response status code. -delrsStatus :: Lens' DeleteExpressionResponse Int -delrsStatus = lens _delrsStatus (\ s a -> s{_delrsStatus = a}); +delrsResponseStatus :: Lens' DeleteExpressionResponse Int +delrsResponseStatus = lens _delrsResponseStatus (\ s a -> s{_delrsResponseStatus = a}); -- | The status of the expression being deleted. delrsExpression :: Lens' DeleteExpressionResponse ExpressionStatus diff --git a/gen/Network/AWS/CloudSearch/DeleteIndexField.hs b/gen/Network/AWS/CloudSearch/DeleteIndexField.hs --- a/gen/Network/AWS/CloudSearch/DeleteIndexField.hs +++ b/gen/Network/AWS/CloudSearch/DeleteIndexField.hs @@ -37,7 +37,7 @@ , deleteIndexFieldResponse , DeleteIndexFieldResponse -- * Response Lenses - , difrsStatus + , difrsResponseStatus , difrsIndexField ) where @@ -110,30 +110,30 @@ -- -- /See:/ 'deleteIndexFieldResponse' smart constructor. data DeleteIndexFieldResponse = DeleteIndexFieldResponse' - { _difrsStatus :: !Int - , _difrsIndexField :: !IndexFieldStatus + { _difrsResponseStatus :: !Int + , _difrsIndexField :: !IndexFieldStatus } deriving (Eq,Read,Show,Data,Typeable,Generic) -- | Creates a value of 'DeleteIndexFieldResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: -- --- * 'difrsStatus' +-- * 'difrsResponseStatus' -- -- * 'difrsIndexField' deleteIndexFieldResponse - :: Int -- ^ 'difrsStatus' + :: Int -- ^ 'difrsResponseStatus' -> IndexFieldStatus -- ^ 'difrsIndexField' -> DeleteIndexFieldResponse -deleteIndexFieldResponse pStatus_ pIndexField_ = +deleteIndexFieldResponse pResponseStatus_ pIndexField_ = DeleteIndexFieldResponse' - { _difrsStatus = pStatus_ + { _difrsResponseStatus = pResponseStatus_ , _difrsIndexField = pIndexField_ } -- | The response status code. -difrsStatus :: Lens' DeleteIndexFieldResponse Int -difrsStatus = lens _difrsStatus (\ s a -> s{_difrsStatus = a}); +difrsResponseStatus :: Lens' DeleteIndexFieldResponse Int +difrsResponseStatus = lens _difrsResponseStatus (\ s a -> s{_difrsResponseStatus = a}); -- | The status of the index field being deleted. difrsIndexField :: Lens' DeleteIndexFieldResponse IndexFieldStatus diff --git a/gen/Network/AWS/CloudSearch/DeleteSuggester.hs b/gen/Network/AWS/CloudSearch/DeleteSuggester.hs --- a/gen/Network/AWS/CloudSearch/DeleteSuggester.hs +++ b/gen/Network/AWS/CloudSearch/DeleteSuggester.hs @@ -36,7 +36,7 @@ , deleteSuggesterResponse , DeleteSuggesterResponse -- * Response Lenses - , delersStatus + , delersResponseStatus , delersSuggester ) where @@ -109,30 +109,30 @@ -- -- /See:/ 'deleteSuggesterResponse' smart constructor. data DeleteSuggesterResponse = DeleteSuggesterResponse' - { _delersStatus :: !Int - , _delersSuggester :: !SuggesterStatus + { _delersResponseStatus :: !Int + , _delersSuggester :: !SuggesterStatus } deriving (Eq,Read,Show,Data,Typeable,Generic) -- | Creates a value of 'DeleteSuggesterResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: -- --- * 'delersStatus' +-- * 'delersResponseStatus' -- -- * 'delersSuggester' deleteSuggesterResponse - :: Int -- ^ 'delersStatus' + :: Int -- ^ 'delersResponseStatus' -> SuggesterStatus -- ^ 'delersSuggester' -> DeleteSuggesterResponse -deleteSuggesterResponse pStatus_ pSuggester_ = +deleteSuggesterResponse pResponseStatus_ pSuggester_ = DeleteSuggesterResponse' - { _delersStatus = pStatus_ + { _delersResponseStatus = pResponseStatus_ , _delersSuggester = pSuggester_ } -- | The response status code. -delersStatus :: Lens' DeleteSuggesterResponse Int -delersStatus = lens _delersStatus (\ s a -> s{_delersStatus = a}); +delersResponseStatus :: Lens' DeleteSuggesterResponse Int +delersResponseStatus = lens _delersResponseStatus (\ s a -> s{_delersResponseStatus = a}); -- | The status of the suggester being deleted. delersSuggester :: Lens' DeleteSuggesterResponse SuggesterStatus diff --git a/gen/Network/AWS/CloudSearch/DescribeAnalysisSchemes.hs b/gen/Network/AWS/CloudSearch/DescribeAnalysisSchemes.hs --- a/gen/Network/AWS/CloudSearch/DescribeAnalysisSchemes.hs +++ b/gen/Network/AWS/CloudSearch/DescribeAnalysisSchemes.hs @@ -42,7 +42,7 @@ , describeAnalysisSchemesResponse , DescribeAnalysisSchemesResponse -- * Response Lenses - , dasrsStatus + , dasrsResponseStatus , dasrsAnalysisSchemes ) where @@ -132,7 +132,7 @@ -- -- /See:/ 'describeAnalysisSchemesResponse' smart constructor. data DescribeAnalysisSchemesResponse = DescribeAnalysisSchemesResponse' - { _dasrsStatus :: !Int + { _dasrsResponseStatus :: !Int , _dasrsAnalysisSchemes :: ![AnalysisSchemeStatus] } deriving (Eq,Read,Show,Data,Typeable,Generic) @@ -140,21 +140,21 @@ -- -- Use one of the following lenses to modify other fields as desired: -- --- * 'dasrsStatus' +-- * 'dasrsResponseStatus' -- -- * 'dasrsAnalysisSchemes' describeAnalysisSchemesResponse - :: Int -- ^ 'dasrsStatus' + :: Int -- ^ 'dasrsResponseStatus' -> DescribeAnalysisSchemesResponse -describeAnalysisSchemesResponse pStatus_ = +describeAnalysisSchemesResponse pResponseStatus_ = DescribeAnalysisSchemesResponse' - { _dasrsStatus = pStatus_ + { _dasrsResponseStatus = pResponseStatus_ , _dasrsAnalysisSchemes = mempty } -- | The response status code. -dasrsStatus :: Lens' DescribeAnalysisSchemesResponse Int -dasrsStatus = lens _dasrsStatus (\ s a -> s{_dasrsStatus = a}); +dasrsResponseStatus :: Lens' DescribeAnalysisSchemesResponse Int +dasrsResponseStatus = lens _dasrsResponseStatus (\ s a -> s{_dasrsResponseStatus = a}); -- | The analysis scheme descriptions. dasrsAnalysisSchemes :: Lens' DescribeAnalysisSchemesResponse [AnalysisSchemeStatus] diff --git a/gen/Network/AWS/CloudSearch/DescribeAvailabilityOptions.hs b/gen/Network/AWS/CloudSearch/DescribeAvailabilityOptions.hs --- a/gen/Network/AWS/CloudSearch/DescribeAvailabilityOptions.hs +++ b/gen/Network/AWS/CloudSearch/DescribeAvailabilityOptions.hs @@ -40,7 +40,7 @@ , DescribeAvailabilityOptionsResponse -- * Response Lenses , daorsAvailabilityOptions - , daorsStatus + , daorsResponseStatus ) where import Network.AWS.CloudSearch.Types @@ -119,7 +119,7 @@ -- /See:/ 'describeAvailabilityOptionsResponse' smart constructor. data DescribeAvailabilityOptionsResponse = DescribeAvailabilityOptionsResponse' { _daorsAvailabilityOptions :: !(Maybe AvailabilityOptionsStatus) - , _daorsStatus :: !Int + , _daorsResponseStatus :: !Int } deriving (Eq,Read,Show,Data,Typeable,Generic) -- | Creates a value of 'DescribeAvailabilityOptionsResponse' with the minimum fields required to make a request. @@ -128,14 +128,14 @@ -- -- * 'daorsAvailabilityOptions' -- --- * 'daorsStatus' +-- * 'daorsResponseStatus' describeAvailabilityOptionsResponse - :: Int -- ^ 'daorsStatus' + :: Int -- ^ 'daorsResponseStatus' -> DescribeAvailabilityOptionsResponse -describeAvailabilityOptionsResponse pStatus_ = +describeAvailabilityOptionsResponse pResponseStatus_ = DescribeAvailabilityOptionsResponse' { _daorsAvailabilityOptions = Nothing - , _daorsStatus = pStatus_ + , _daorsResponseStatus = pResponseStatus_ } -- | The availability options configured for the domain. Indicates whether @@ -144,5 +144,5 @@ daorsAvailabilityOptions = lens _daorsAvailabilityOptions (\ s a -> s{_daorsAvailabilityOptions = a}); -- | The response status code. -daorsStatus :: Lens' DescribeAvailabilityOptionsResponse Int -daorsStatus = lens _daorsStatus (\ s a -> s{_daorsStatus = a}); +daorsResponseStatus :: Lens' DescribeAvailabilityOptionsResponse Int +daorsResponseStatus = lens _daorsResponseStatus (\ s a -> s{_daorsResponseStatus = a}); diff --git a/gen/Network/AWS/CloudSearch/DescribeDomains.hs b/gen/Network/AWS/CloudSearch/DescribeDomains.hs --- a/gen/Network/AWS/CloudSearch/DescribeDomains.hs +++ b/gen/Network/AWS/CloudSearch/DescribeDomains.hs @@ -40,7 +40,7 @@ , describeDomainsResponse , DescribeDomainsResponse -- * Response Lenses - , ddsrsStatus + , ddsrsResponseStatus , ddsrsDomainStatusList ) where @@ -106,7 +106,7 @@ -- -- /See:/ 'describeDomainsResponse' smart constructor. data DescribeDomainsResponse = DescribeDomainsResponse' - { _ddsrsStatus :: !Int + { _ddsrsResponseStatus :: !Int , _ddsrsDomainStatusList :: ![DomainStatus] } deriving (Eq,Read,Show,Data,Typeable,Generic) @@ -114,21 +114,21 @@ -- -- Use one of the following lenses to modify other fields as desired: -- --- * 'ddsrsStatus' +-- * 'ddsrsResponseStatus' -- -- * 'ddsrsDomainStatusList' describeDomainsResponse - :: Int -- ^ 'ddsrsStatus' + :: Int -- ^ 'ddsrsResponseStatus' -> DescribeDomainsResponse -describeDomainsResponse pStatus_ = +describeDomainsResponse pResponseStatus_ = DescribeDomainsResponse' - { _ddsrsStatus = pStatus_ + { _ddsrsResponseStatus = pResponseStatus_ , _ddsrsDomainStatusList = mempty } -- | The response status code. -ddsrsStatus :: Lens' DescribeDomainsResponse Int -ddsrsStatus = lens _ddsrsStatus (\ s a -> s{_ddsrsStatus = a}); +ddsrsResponseStatus :: Lens' DescribeDomainsResponse Int +ddsrsResponseStatus = lens _ddsrsResponseStatus (\ s a -> s{_ddsrsResponseStatus = a}); -- | Undocumented member. ddsrsDomainStatusList :: Lens' DescribeDomainsResponse [DomainStatus] diff --git a/gen/Network/AWS/CloudSearch/DescribeExpressions.hs b/gen/Network/AWS/CloudSearch/DescribeExpressions.hs --- a/gen/Network/AWS/CloudSearch/DescribeExpressions.hs +++ b/gen/Network/AWS/CloudSearch/DescribeExpressions.hs @@ -41,7 +41,7 @@ , describeExpressionsResponse , DescribeExpressionsResponse -- * Response Lenses - , drsStatus + , drsResponseStatus , drsExpressions ) where @@ -131,29 +131,29 @@ -- -- /See:/ 'describeExpressionsResponse' smart constructor. data DescribeExpressionsResponse = DescribeExpressionsResponse' - { _drsStatus :: !Int - , _drsExpressions :: ![ExpressionStatus] + { _drsResponseStatus :: !Int + , _drsExpressions :: ![ExpressionStatus] } deriving (Eq,Read,Show,Data,Typeable,Generic) -- | Creates a value of 'DescribeExpressionsResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: -- --- * 'drsStatus' +-- * 'drsResponseStatus' -- -- * 'drsExpressions' describeExpressionsResponse - :: Int -- ^ 'drsStatus' + :: Int -- ^ 'drsResponseStatus' -> DescribeExpressionsResponse -describeExpressionsResponse pStatus_ = +describeExpressionsResponse pResponseStatus_ = DescribeExpressionsResponse' - { _drsStatus = pStatus_ + { _drsResponseStatus = pResponseStatus_ , _drsExpressions = mempty } -- | The response status code. -drsStatus :: Lens' DescribeExpressionsResponse Int -drsStatus = lens _drsStatus (\ s a -> s{_drsStatus = a}); +drsResponseStatus :: Lens' DescribeExpressionsResponse Int +drsResponseStatus = lens _drsResponseStatus (\ s a -> s{_drsResponseStatus = a}); -- | The expressions configured for the domain. drsExpressions :: Lens' DescribeExpressionsResponse [ExpressionStatus] diff --git a/gen/Network/AWS/CloudSearch/DescribeIndexFields.hs b/gen/Network/AWS/CloudSearch/DescribeIndexFields.hs --- a/gen/Network/AWS/CloudSearch/DescribeIndexFields.hs +++ b/gen/Network/AWS/CloudSearch/DescribeIndexFields.hs @@ -41,7 +41,7 @@ , describeIndexFieldsResponse , DescribeIndexFieldsResponse -- * Response Lenses - , difsrsStatus + , difsrsResponseStatus , difsrsIndexFields ) where @@ -130,29 +130,29 @@ -- -- /See:/ 'describeIndexFieldsResponse' smart constructor. data DescribeIndexFieldsResponse = DescribeIndexFieldsResponse' - { _difsrsStatus :: !Int - , _difsrsIndexFields :: ![IndexFieldStatus] + { _difsrsResponseStatus :: !Int + , _difsrsIndexFields :: ![IndexFieldStatus] } deriving (Eq,Read,Show,Data,Typeable,Generic) -- | Creates a value of 'DescribeIndexFieldsResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: -- --- * 'difsrsStatus' +-- * 'difsrsResponseStatus' -- -- * 'difsrsIndexFields' describeIndexFieldsResponse - :: Int -- ^ 'difsrsStatus' + :: Int -- ^ 'difsrsResponseStatus' -> DescribeIndexFieldsResponse -describeIndexFieldsResponse pStatus_ = +describeIndexFieldsResponse pResponseStatus_ = DescribeIndexFieldsResponse' - { _difsrsStatus = pStatus_ + { _difsrsResponseStatus = pResponseStatus_ , _difsrsIndexFields = mempty } -- | The response status code. -difsrsStatus :: Lens' DescribeIndexFieldsResponse Int -difsrsStatus = lens _difsrsStatus (\ s a -> s{_difsrsStatus = a}); +difsrsResponseStatus :: Lens' DescribeIndexFieldsResponse Int +difsrsResponseStatus = lens _difsrsResponseStatus (\ s a -> s{_difsrsResponseStatus = a}); -- | The index fields configured for the domain. difsrsIndexFields :: Lens' DescribeIndexFieldsResponse [IndexFieldStatus] diff --git a/gen/Network/AWS/CloudSearch/DescribeScalingParameters.hs b/gen/Network/AWS/CloudSearch/DescribeScalingParameters.hs --- a/gen/Network/AWS/CloudSearch/DescribeScalingParameters.hs +++ b/gen/Network/AWS/CloudSearch/DescribeScalingParameters.hs @@ -37,7 +37,7 @@ , describeScalingParametersResponse , DescribeScalingParametersResponse -- * Response Lenses - , dsprsStatus + , dsprsResponseStatus , dsprsScalingParameters ) where @@ -101,7 +101,7 @@ -- -- /See:/ 'describeScalingParametersResponse' smart constructor. data DescribeScalingParametersResponse = DescribeScalingParametersResponse' - { _dsprsStatus :: !Int + { _dsprsResponseStatus :: !Int , _dsprsScalingParameters :: !ScalingParametersStatus } deriving (Eq,Read,Show,Data,Typeable,Generic) @@ -109,22 +109,22 @@ -- -- Use one of the following lenses to modify other fields as desired: -- --- * 'dsprsStatus' +-- * 'dsprsResponseStatus' -- -- * 'dsprsScalingParameters' describeScalingParametersResponse - :: Int -- ^ 'dsprsStatus' + :: Int -- ^ 'dsprsResponseStatus' -> ScalingParametersStatus -- ^ 'dsprsScalingParameters' -> DescribeScalingParametersResponse -describeScalingParametersResponse pStatus_ pScalingParameters_ = +describeScalingParametersResponse pResponseStatus_ pScalingParameters_ = DescribeScalingParametersResponse' - { _dsprsStatus = pStatus_ + { _dsprsResponseStatus = pResponseStatus_ , _dsprsScalingParameters = pScalingParameters_ } -- | The response status code. -dsprsStatus :: Lens' DescribeScalingParametersResponse Int -dsprsStatus = lens _dsprsStatus (\ s a -> s{_dsprsStatus = a}); +dsprsResponseStatus :: Lens' DescribeScalingParametersResponse Int +dsprsResponseStatus = lens _dsprsResponseStatus (\ s a -> s{_dsprsResponseStatus = a}); -- | Undocumented member. dsprsScalingParameters :: Lens' DescribeScalingParametersResponse ScalingParametersStatus diff --git a/gen/Network/AWS/CloudSearch/DescribeServiceAccessPolicies.hs b/gen/Network/AWS/CloudSearch/DescribeServiceAccessPolicies.hs --- a/gen/Network/AWS/CloudSearch/DescribeServiceAccessPolicies.hs +++ b/gen/Network/AWS/CloudSearch/DescribeServiceAccessPolicies.hs @@ -40,7 +40,7 @@ , describeServiceAccessPoliciesResponse , DescribeServiceAccessPoliciesResponse -- * Response Lenses - , dsaprsStatus + , dsaprsResponseStatus , dsaprsAccessPolicies ) where @@ -118,7 +118,7 @@ -- -- /See:/ 'describeServiceAccessPoliciesResponse' smart constructor. data DescribeServiceAccessPoliciesResponse = DescribeServiceAccessPoliciesResponse' - { _dsaprsStatus :: !Int + { _dsaprsResponseStatus :: !Int , _dsaprsAccessPolicies :: !AccessPoliciesStatus } deriving (Eq,Read,Show,Data,Typeable,Generic) @@ -126,22 +126,22 @@ -- -- Use one of the following lenses to modify other fields as desired: -- --- * 'dsaprsStatus' +-- * 'dsaprsResponseStatus' -- -- * 'dsaprsAccessPolicies' describeServiceAccessPoliciesResponse - :: Int -- ^ 'dsaprsStatus' + :: Int -- ^ 'dsaprsResponseStatus' -> AccessPoliciesStatus -- ^ 'dsaprsAccessPolicies' -> DescribeServiceAccessPoliciesResponse -describeServiceAccessPoliciesResponse pStatus_ pAccessPolicies_ = +describeServiceAccessPoliciesResponse pResponseStatus_ pAccessPolicies_ = DescribeServiceAccessPoliciesResponse' - { _dsaprsStatus = pStatus_ + { _dsaprsResponseStatus = pResponseStatus_ , _dsaprsAccessPolicies = pAccessPolicies_ } -- | The response status code. -dsaprsStatus :: Lens' DescribeServiceAccessPoliciesResponse Int -dsaprsStatus = lens _dsaprsStatus (\ s a -> s{_dsaprsStatus = a}); +dsaprsResponseStatus :: Lens' DescribeServiceAccessPoliciesResponse Int +dsaprsResponseStatus = lens _dsaprsResponseStatus (\ s a -> s{_dsaprsResponseStatus = a}); -- | The access rules configured for the domain specified in the request. dsaprsAccessPolicies :: Lens' DescribeServiceAccessPoliciesResponse AccessPoliciesStatus diff --git a/gen/Network/AWS/CloudSearch/DescribeSuggesters.hs b/gen/Network/AWS/CloudSearch/DescribeSuggesters.hs --- a/gen/Network/AWS/CloudSearch/DescribeSuggesters.hs +++ b/gen/Network/AWS/CloudSearch/DescribeSuggesters.hs @@ -42,7 +42,7 @@ , describeSuggestersResponse , DescribeSuggestersResponse -- * Response Lenses - , dssrsStatus + , dssrsResponseStatus , dssrsSuggesters ) where @@ -130,29 +130,29 @@ -- -- /See:/ 'describeSuggestersResponse' smart constructor. data DescribeSuggestersResponse = DescribeSuggestersResponse' - { _dssrsStatus :: !Int - , _dssrsSuggesters :: ![SuggesterStatus] + { _dssrsResponseStatus :: !Int + , _dssrsSuggesters :: ![SuggesterStatus] } deriving (Eq,Read,Show,Data,Typeable,Generic) -- | Creates a value of 'DescribeSuggestersResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: -- --- * 'dssrsStatus' +-- * 'dssrsResponseStatus' -- -- * 'dssrsSuggesters' describeSuggestersResponse - :: Int -- ^ 'dssrsStatus' + :: Int -- ^ 'dssrsResponseStatus' -> DescribeSuggestersResponse -describeSuggestersResponse pStatus_ = +describeSuggestersResponse pResponseStatus_ = DescribeSuggestersResponse' - { _dssrsStatus = pStatus_ + { _dssrsResponseStatus = pResponseStatus_ , _dssrsSuggesters = mempty } -- | The response status code. -dssrsStatus :: Lens' DescribeSuggestersResponse Int -dssrsStatus = lens _dssrsStatus (\ s a -> s{_dssrsStatus = a}); +dssrsResponseStatus :: Lens' DescribeSuggestersResponse Int +dssrsResponseStatus = lens _dssrsResponseStatus (\ s a -> s{_dssrsResponseStatus = a}); -- | The suggesters configured for the domain specified in the request. dssrsSuggesters :: Lens' DescribeSuggestersResponse [SuggesterStatus] diff --git a/gen/Network/AWS/CloudSearch/IndexDocuments.hs b/gen/Network/AWS/CloudSearch/IndexDocuments.hs --- a/gen/Network/AWS/CloudSearch/IndexDocuments.hs +++ b/gen/Network/AWS/CloudSearch/IndexDocuments.hs @@ -36,7 +36,7 @@ , IndexDocumentsResponse -- * Response Lenses , idrsFieldNames - , idrsStatus + , idrsResponseStatus ) where import Network.AWS.CloudSearch.Types @@ -99,8 +99,8 @@ -- -- /See:/ 'indexDocumentsResponse' smart constructor. data IndexDocumentsResponse = IndexDocumentsResponse' - { _idrsFieldNames :: !(Maybe [Text]) - , _idrsStatus :: !Int + { _idrsFieldNames :: !(Maybe [Text]) + , _idrsResponseStatus :: !Int } deriving (Eq,Read,Show,Data,Typeable,Generic) -- | Creates a value of 'IndexDocumentsResponse' with the minimum fields required to make a request. @@ -109,14 +109,14 @@ -- -- * 'idrsFieldNames' -- --- * 'idrsStatus' +-- * 'idrsResponseStatus' indexDocumentsResponse - :: Int -- ^ 'idrsStatus' + :: Int -- ^ 'idrsResponseStatus' -> IndexDocumentsResponse -indexDocumentsResponse pStatus_ = +indexDocumentsResponse pResponseStatus_ = IndexDocumentsResponse' { _idrsFieldNames = Nothing - , _idrsStatus = pStatus_ + , _idrsResponseStatus = pResponseStatus_ } -- | The names of the fields that are currently being indexed. @@ -124,5 +124,5 @@ idrsFieldNames = lens _idrsFieldNames (\ s a -> s{_idrsFieldNames = a}) . _Default . _Coerce; -- | The response status code. -idrsStatus :: Lens' IndexDocumentsResponse Int -idrsStatus = lens _idrsStatus (\ s a -> s{_idrsStatus = a}); +idrsResponseStatus :: Lens' IndexDocumentsResponse Int +idrsResponseStatus = lens _idrsResponseStatus (\ s a -> s{_idrsResponseStatus = a}); diff --git a/gen/Network/AWS/CloudSearch/ListDomainNames.hs b/gen/Network/AWS/CloudSearch/ListDomainNames.hs --- a/gen/Network/AWS/CloudSearch/ListDomainNames.hs +++ b/gen/Network/AWS/CloudSearch/ListDomainNames.hs @@ -32,7 +32,7 @@ , ListDomainNamesResponse -- * Response Lenses , ldnrsDomainNames - , ldnrsStatus + , ldnrsResponseStatus ) where import Network.AWS.CloudSearch.Types @@ -81,8 +81,8 @@ -- -- /See:/ 'listDomainNamesResponse' smart constructor. data ListDomainNamesResponse = ListDomainNamesResponse' - { _ldnrsDomainNames :: !(Maybe (Map Text Text)) - , _ldnrsStatus :: !Int + { _ldnrsDomainNames :: !(Maybe (Map Text Text)) + , _ldnrsResponseStatus :: !Int } deriving (Eq,Read,Show,Data,Typeable,Generic) -- | Creates a value of 'ListDomainNamesResponse' with the minimum fields required to make a request. @@ -91,14 +91,14 @@ -- -- * 'ldnrsDomainNames' -- --- * 'ldnrsStatus' +-- * 'ldnrsResponseStatus' listDomainNamesResponse - :: Int -- ^ 'ldnrsStatus' + :: Int -- ^ 'ldnrsResponseStatus' -> ListDomainNamesResponse -listDomainNamesResponse pStatus_ = +listDomainNamesResponse pResponseStatus_ = ListDomainNamesResponse' { _ldnrsDomainNames = Nothing - , _ldnrsStatus = pStatus_ + , _ldnrsResponseStatus = pResponseStatus_ } -- | The names of the search domains owned by an account. @@ -106,5 +106,5 @@ ldnrsDomainNames = lens _ldnrsDomainNames (\ s a -> s{_ldnrsDomainNames = a}) . _Default . _Map; -- | The response status code. -ldnrsStatus :: Lens' ListDomainNamesResponse Int -ldnrsStatus = lens _ldnrsStatus (\ s a -> s{_ldnrsStatus = a}); +ldnrsResponseStatus :: Lens' ListDomainNamesResponse Int +ldnrsResponseStatus = lens _ldnrsResponseStatus (\ s a -> s{_ldnrsResponseStatus = a}); diff --git a/gen/Network/AWS/CloudSearch/Types.hs b/gen/Network/AWS/CloudSearch/Types.hs --- a/gen/Network/AWS/CloudSearch/Types.hs +++ b/gen/Network/AWS/CloudSearch/Types.hs @@ -52,9 +52,9 @@ , analysisOptions , aoAlgorithmicStemming , aoStopwords - , aoStemmingDictionary - , aoSynonyms , aoJapaneseTokenizationDictionary + , aoSynonyms + , aoStemmingDictionary -- * AnalysisScheme , AnalysisScheme @@ -106,8 +106,8 @@ , domainStatus , dsSearchInstanceCount , dsSearchInstanceType - , dsARN , dsDocService + , dsARN , dsCreated , dsSearchService , dsLimits @@ -152,17 +152,17 @@ -- * IndexField , IndexField , indexField + , ifDoubleArrayOptions , ifDateOptions , ifTextArrayOptions - , ifDoubleArrayOptions , ifDoubleOptions , ifTextOptions , ifLatLonOptions - , ifIntArrayOptions , ifLiteralArrayOptions + , ifIntArrayOptions , ifDateArrayOptions - , ifLiteralOptions , ifIntOptions + , ifLiteralOptions , ifIndexFieldName , ifIndexFieldType diff --git a/gen/Network/AWS/CloudSearch/Types/Product.hs b/gen/Network/AWS/CloudSearch/Types/Product.hs --- a/gen/Network/AWS/CloudSearch/Types/Product.hs +++ b/gen/Network/AWS/CloudSearch/Types/Product.hs @@ -66,9 +66,9 @@ data AnalysisOptions = AnalysisOptions' { _aoAlgorithmicStemming :: !(Maybe AlgorithmicStemming) , _aoStopwords :: !(Maybe Text) - , _aoStemmingDictionary :: !(Maybe Text) - , _aoSynonyms :: !(Maybe Text) , _aoJapaneseTokenizationDictionary :: !(Maybe Text) + , _aoSynonyms :: !(Maybe Text) + , _aoStemmingDictionary :: !(Maybe Text) } deriving (Eq,Read,Show,Data,Typeable,Generic) -- | Creates a value of 'AnalysisOptions' with the minimum fields required to make a request. @@ -79,20 +79,20 @@ -- -- * 'aoStopwords' -- --- * 'aoStemmingDictionary' +-- * 'aoJapaneseTokenizationDictionary' -- -- * 'aoSynonyms' -- --- * 'aoJapaneseTokenizationDictionary' +-- * 'aoStemmingDictionary' analysisOptions :: AnalysisOptions analysisOptions = AnalysisOptions' { _aoAlgorithmicStemming = Nothing , _aoStopwords = Nothing - , _aoStemmingDictionary = Nothing - , _aoSynonyms = Nothing , _aoJapaneseTokenizationDictionary = Nothing + , _aoSynonyms = Nothing + , _aoStemmingDictionary = Nothing } -- | The level of algorithmic stemming to perform: 'none', 'minimal', @@ -110,15 +110,12 @@ aoStopwords :: Lens' AnalysisOptions (Maybe Text) aoStopwords = lens _aoStopwords (\ s a -> s{_aoStopwords = a}); --- | A JSON object that contains a collection of string:value pairs that each --- map a term to its stem. For example, --- '{\"term1\": \"stem1\", \"term2\": \"stem2\", \"term3\": \"stem3\"}'. --- The stemming dictionary is applied in addition to any algorithmic --- stemming. This enables you to override the results of the algorithmic --- stemming to correct specific cases of overstemming or understemming. The --- maximum size of a stemming dictionary is 500 KB. -aoStemmingDictionary :: Lens' AnalysisOptions (Maybe Text) -aoStemmingDictionary = lens _aoStemmingDictionary (\ s a -> s{_aoStemmingDictionary = a}); +-- | A JSON array that contains a collection of terms, tokens, readings and +-- part of speech for Japanese Tokenizaiton. The Japanese tokenization +-- dictionary enables you to override the default tokenization for selected +-- terms. This is only valid for Japanese language fields. +aoJapaneseTokenizationDictionary :: Lens' AnalysisOptions (Maybe Text) +aoJapaneseTokenizationDictionary = lens _aoJapaneseTokenizationDictionary (\ s a -> s{_aoJapaneseTokenizationDictionary = a}); -- | A JSON object that defines synonym groups and aliases. A synonym group -- is an array of arrays, where each sub-array is a group of terms where @@ -134,30 +131,33 @@ aoSynonyms :: Lens' AnalysisOptions (Maybe Text) aoSynonyms = lens _aoSynonyms (\ s a -> s{_aoSynonyms = a}); --- | A JSON array that contains a collection of terms, tokens, readings and --- part of speech for Japanese Tokenizaiton. The Japanese tokenization --- dictionary enables you to override the default tokenization for selected --- terms. This is only valid for Japanese language fields. -aoJapaneseTokenizationDictionary :: Lens' AnalysisOptions (Maybe Text) -aoJapaneseTokenizationDictionary = lens _aoJapaneseTokenizationDictionary (\ s a -> s{_aoJapaneseTokenizationDictionary = a}); +-- | A JSON object that contains a collection of string:value pairs that each +-- map a term to its stem. For example, +-- '{\"term1\": \"stem1\", \"term2\": \"stem2\", \"term3\": \"stem3\"}'. +-- The stemming dictionary is applied in addition to any algorithmic +-- stemming. This enables you to override the results of the algorithmic +-- stemming to correct specific cases of overstemming or understemming. The +-- maximum size of a stemming dictionary is 500 KB. +aoStemmingDictionary :: Lens' AnalysisOptions (Maybe Text) +aoStemmingDictionary = lens _aoStemmingDictionary (\ s a -> s{_aoStemmingDictionary = a}); instance FromXML AnalysisOptions where parseXML x = AnalysisOptions' <$> (x .@? "AlgorithmicStemming") <*> (x .@? "Stopwords") - <*> (x .@? "StemmingDictionary") - <*> (x .@? "Synonyms") <*> (x .@? "JapaneseTokenizationDictionary") + <*> (x .@? "Synonyms") + <*> (x .@? "StemmingDictionary") instance ToQuery AnalysisOptions where toQuery AnalysisOptions'{..} = mconcat ["AlgorithmicStemming" =: _aoAlgorithmicStemming, "Stopwords" =: _aoStopwords, - "StemmingDictionary" =: _aoStemmingDictionary, - "Synonyms" =: _aoSynonyms, "JapaneseTokenizationDictionary" =: - _aoJapaneseTokenizationDictionary] + _aoJapaneseTokenizationDictionary, + "Synonyms" =: _aoSynonyms, + "StemmingDictionary" =: _aoStemmingDictionary] -- | Configuration information for an analysis scheme. Each analysis scheme -- has a unique name and specifies the language of the text to be @@ -526,8 +526,8 @@ data DomainStatus = DomainStatus' { _dsSearchInstanceCount :: !(Maybe Nat) , _dsSearchInstanceType :: !(Maybe Text) - , _dsARN :: !(Maybe Text) , _dsDocService :: !(Maybe ServiceEndpoint) + , _dsARN :: !(Maybe Text) , _dsCreated :: !(Maybe Bool) , _dsSearchService :: !(Maybe ServiceEndpoint) , _dsLimits :: !(Maybe Limits) @@ -547,10 +547,10 @@ -- -- * 'dsSearchInstanceType' -- --- * 'dsARN' --- -- * 'dsDocService' -- +-- * 'dsARN' +-- -- * 'dsCreated' -- -- * 'dsSearchService' @@ -577,8 +577,8 @@ DomainStatus' { _dsSearchInstanceCount = Nothing , _dsSearchInstanceType = Nothing - , _dsARN = Nothing , _dsDocService = Nothing + , _dsARN = Nothing , _dsCreated = Nothing , _dsSearchService = Nothing , _dsLimits = Nothing @@ -599,14 +599,14 @@ dsSearchInstanceType :: Lens' DomainStatus (Maybe Text) dsSearchInstanceType = lens _dsSearchInstanceType (\ s a -> s{_dsSearchInstanceType = a}); --- | Undocumented member. -dsARN :: Lens' DomainStatus (Maybe Text) -dsARN = lens _dsARN (\ s a -> s{_dsARN = a}); - -- | The service endpoint for updating documents in a search domain. dsDocService :: Lens' DomainStatus (Maybe ServiceEndpoint) dsDocService = lens _dsDocService (\ s a -> s{_dsDocService = a}); +-- | Undocumented member. +dsARN :: Lens' DomainStatus (Maybe Text) +dsARN = lens _dsARN (\ s a -> s{_dsARN = a}); + -- | True if the search domain is created. It can take several minutes to -- initialize a domain when CreateDomain is called. Newly created search -- domains are returned from DescribeDomains with a false value for Created @@ -657,8 +657,8 @@ = DomainStatus' <$> (x .@? "SearchInstanceCount") <*> (x .@? "SearchInstanceType") - <*> (x .@? "ARN") <*> (x .@? "DocService") + <*> (x .@? "ARN") <*> (x .@? "Created") <*> (x .@? "SearchService") <*> (x .@? "Limits") @@ -920,17 +920,17 @@ -- -- /See:/ 'indexField' smart constructor. data IndexField = IndexField' - { _ifDateOptions :: !(Maybe DateOptions) + { _ifDoubleArrayOptions :: !(Maybe DoubleArrayOptions) + , _ifDateOptions :: !(Maybe DateOptions) , _ifTextArrayOptions :: !(Maybe TextArrayOptions) - , _ifDoubleArrayOptions :: !(Maybe DoubleArrayOptions) , _ifDoubleOptions :: !(Maybe DoubleOptions) , _ifTextOptions :: !(Maybe TextOptions) , _ifLatLonOptions :: !(Maybe LatLonOptions) - , _ifIntArrayOptions :: !(Maybe IntArrayOptions) , _ifLiteralArrayOptions :: !(Maybe LiteralArrayOptions) + , _ifIntArrayOptions :: !(Maybe IntArrayOptions) , _ifDateArrayOptions :: !(Maybe DateArrayOptions) - , _ifLiteralOptions :: !(Maybe LiteralOptions) , _ifIntOptions :: !(Maybe IntOptions) + , _ifLiteralOptions :: !(Maybe LiteralOptions) , _ifIndexFieldName :: !Text , _ifIndexFieldType :: !IndexFieldType } deriving (Eq,Read,Show,Data,Typeable,Generic) @@ -939,28 +939,28 @@ -- -- Use one of the following lenses to modify other fields as desired: -- +-- * 'ifDoubleArrayOptions' +-- -- * 'ifDateOptions' -- -- * 'ifTextArrayOptions' -- --- * 'ifDoubleArrayOptions' --- -- * 'ifDoubleOptions' -- -- * 'ifTextOptions' -- -- * 'ifLatLonOptions' -- --- * 'ifIntArrayOptions' --- -- * 'ifLiteralArrayOptions' -- --- * 'ifDateArrayOptions' +-- * 'ifIntArrayOptions' -- --- * 'ifLiteralOptions' +-- * 'ifDateArrayOptions' -- -- * 'ifIntOptions' -- +-- * 'ifLiteralOptions' +-- -- * 'ifIndexFieldName' -- -- * 'ifIndexFieldType' @@ -970,22 +970,26 @@ -> IndexField indexField pIndexFieldName_ pIndexFieldType_ = IndexField' - { _ifDateOptions = Nothing + { _ifDoubleArrayOptions = Nothing + , _ifDateOptions = Nothing , _ifTextArrayOptions = Nothing - , _ifDoubleArrayOptions = Nothing , _ifDoubleOptions = Nothing , _ifTextOptions = Nothing , _ifLatLonOptions = Nothing - , _ifIntArrayOptions = Nothing , _ifLiteralArrayOptions = Nothing + , _ifIntArrayOptions = Nothing , _ifDateArrayOptions = Nothing - , _ifLiteralOptions = Nothing , _ifIntOptions = Nothing + , _ifLiteralOptions = Nothing , _ifIndexFieldName = pIndexFieldName_ , _ifIndexFieldType = pIndexFieldType_ } -- | Undocumented member. +ifDoubleArrayOptions :: Lens' IndexField (Maybe DoubleArrayOptions) +ifDoubleArrayOptions = lens _ifDoubleArrayOptions (\ s a -> s{_ifDoubleArrayOptions = a}); + +-- | Undocumented member. ifDateOptions :: Lens' IndexField (Maybe DateOptions) ifDateOptions = lens _ifDateOptions (\ s a -> s{_ifDateOptions = a}); @@ -994,10 +998,6 @@ ifTextArrayOptions = lens _ifTextArrayOptions (\ s a -> s{_ifTextArrayOptions = a}); -- | Undocumented member. -ifDoubleArrayOptions :: Lens' IndexField (Maybe DoubleArrayOptions) -ifDoubleArrayOptions = lens _ifDoubleArrayOptions (\ s a -> s{_ifDoubleArrayOptions = a}); - --- | Undocumented member. ifDoubleOptions :: Lens' IndexField (Maybe DoubleOptions) ifDoubleOptions = lens _ifDoubleOptions (\ s a -> s{_ifDoubleOptions = a}); @@ -1010,25 +1010,25 @@ ifLatLonOptions = lens _ifLatLonOptions (\ s a -> s{_ifLatLonOptions = a}); -- | Undocumented member. -ifIntArrayOptions :: Lens' IndexField (Maybe IntArrayOptions) -ifIntArrayOptions = lens _ifIntArrayOptions (\ s a -> s{_ifIntArrayOptions = a}); - --- | Undocumented member. ifLiteralArrayOptions :: Lens' IndexField (Maybe LiteralArrayOptions) ifLiteralArrayOptions = lens _ifLiteralArrayOptions (\ s a -> s{_ifLiteralArrayOptions = a}); -- | Undocumented member. -ifDateArrayOptions :: Lens' IndexField (Maybe DateArrayOptions) -ifDateArrayOptions = lens _ifDateArrayOptions (\ s a -> s{_ifDateArrayOptions = a}); +ifIntArrayOptions :: Lens' IndexField (Maybe IntArrayOptions) +ifIntArrayOptions = lens _ifIntArrayOptions (\ s a -> s{_ifIntArrayOptions = a}); -- | Undocumented member. -ifLiteralOptions :: Lens' IndexField (Maybe LiteralOptions) -ifLiteralOptions = lens _ifLiteralOptions (\ s a -> s{_ifLiteralOptions = a}); +ifDateArrayOptions :: Lens' IndexField (Maybe DateArrayOptions) +ifDateArrayOptions = lens _ifDateArrayOptions (\ s a -> s{_ifDateArrayOptions = a}); -- | Undocumented member. ifIntOptions :: Lens' IndexField (Maybe IntOptions) ifIntOptions = lens _ifIntOptions (\ s a -> s{_ifIntOptions = a}); +-- | Undocumented member. +ifLiteralOptions :: Lens' IndexField (Maybe LiteralOptions) +ifLiteralOptions = lens _ifLiteralOptions (\ s a -> s{_ifLiteralOptions = a}); + -- | A string that represents the name of an index field. CloudSearch -- supports regular index fields as well as dynamic fields. A dynamic -- field\'s name defines a pattern that begins or ends with a wildcard. Any @@ -1054,33 +1054,34 @@ instance FromXML IndexField where parseXML x = IndexField' <$> - (x .@? "DateOptions") <*> (x .@? "TextArrayOptions") - <*> (x .@? "DoubleArrayOptions") + (x .@? "DoubleArrayOptions") <*> + (x .@? "DateOptions") + <*> (x .@? "TextArrayOptions") <*> (x .@? "DoubleOptions") <*> (x .@? "TextOptions") <*> (x .@? "LatLonOptions") - <*> (x .@? "IntArrayOptions") <*> (x .@? "LiteralArrayOptions") + <*> (x .@? "IntArrayOptions") <*> (x .@? "DateArrayOptions") - <*> (x .@? "LiteralOptions") <*> (x .@? "IntOptions") + <*> (x .@? "LiteralOptions") <*> (x .@ "IndexFieldName") <*> (x .@ "IndexFieldType") instance ToQuery IndexField where toQuery IndexField'{..} = mconcat - ["DateOptions" =: _ifDateOptions, + ["DoubleArrayOptions" =: _ifDoubleArrayOptions, + "DateOptions" =: _ifDateOptions, "TextArrayOptions" =: _ifTextArrayOptions, - "DoubleArrayOptions" =: _ifDoubleArrayOptions, "DoubleOptions" =: _ifDoubleOptions, "TextOptions" =: _ifTextOptions, "LatLonOptions" =: _ifLatLonOptions, - "IntArrayOptions" =: _ifIntArrayOptions, "LiteralArrayOptions" =: _ifLiteralArrayOptions, + "IntArrayOptions" =: _ifIntArrayOptions, "DateArrayOptions" =: _ifDateArrayOptions, - "LiteralOptions" =: _ifLiteralOptions, "IntOptions" =: _ifIntOptions, + "LiteralOptions" =: _ifLiteralOptions, "IndexFieldName" =: _ifIndexFieldName, "IndexFieldType" =: _ifIndexFieldType] diff --git a/gen/Network/AWS/CloudSearch/UpdateAvailabilityOptions.hs b/gen/Network/AWS/CloudSearch/UpdateAvailabilityOptions.hs --- a/gen/Network/AWS/CloudSearch/UpdateAvailabilityOptions.hs +++ b/gen/Network/AWS/CloudSearch/UpdateAvailabilityOptions.hs @@ -41,7 +41,7 @@ , UpdateAvailabilityOptionsResponse -- * Response Lenses , uaorsAvailabilityOptions - , uaorsStatus + , uaorsResponseStatus ) where import Network.AWS.CloudSearch.Types @@ -120,7 +120,7 @@ -- /See:/ 'updateAvailabilityOptionsResponse' smart constructor. data UpdateAvailabilityOptionsResponse = UpdateAvailabilityOptionsResponse' { _uaorsAvailabilityOptions :: !(Maybe AvailabilityOptionsStatus) - , _uaorsStatus :: !Int + , _uaorsResponseStatus :: !Int } deriving (Eq,Read,Show,Data,Typeable,Generic) -- | Creates a value of 'UpdateAvailabilityOptionsResponse' with the minimum fields required to make a request. @@ -129,14 +129,14 @@ -- -- * 'uaorsAvailabilityOptions' -- --- * 'uaorsStatus' +-- * 'uaorsResponseStatus' updateAvailabilityOptionsResponse - :: Int -- ^ 'uaorsStatus' + :: Int -- ^ 'uaorsResponseStatus' -> UpdateAvailabilityOptionsResponse -updateAvailabilityOptionsResponse pStatus_ = +updateAvailabilityOptionsResponse pResponseStatus_ = UpdateAvailabilityOptionsResponse' { _uaorsAvailabilityOptions = Nothing - , _uaorsStatus = pStatus_ + , _uaorsResponseStatus = pResponseStatus_ } -- | The newly-configured availability options. Indicates whether Multi-AZ is @@ -145,5 +145,5 @@ uaorsAvailabilityOptions = lens _uaorsAvailabilityOptions (\ s a -> s{_uaorsAvailabilityOptions = a}); -- | The response status code. -uaorsStatus :: Lens' UpdateAvailabilityOptionsResponse Int -uaorsStatus = lens _uaorsStatus (\ s a -> s{_uaorsStatus = a}); +uaorsResponseStatus :: Lens' UpdateAvailabilityOptionsResponse Int +uaorsResponseStatus = lens _uaorsResponseStatus (\ s a -> s{_uaorsResponseStatus = a}); diff --git a/gen/Network/AWS/CloudSearch/UpdateScalingParameters.hs b/gen/Network/AWS/CloudSearch/UpdateScalingParameters.hs --- a/gen/Network/AWS/CloudSearch/UpdateScalingParameters.hs +++ b/gen/Network/AWS/CloudSearch/UpdateScalingParameters.hs @@ -42,7 +42,7 @@ , updateScalingParametersResponse , UpdateScalingParametersResponse -- * Response Lenses - , usprsStatus + , usprsResponseStatus , usprsScalingParameters ) where @@ -117,7 +117,7 @@ -- -- /See:/ 'updateScalingParametersResponse' smart constructor. data UpdateScalingParametersResponse = UpdateScalingParametersResponse' - { _usprsStatus :: !Int + { _usprsResponseStatus :: !Int , _usprsScalingParameters :: !ScalingParametersStatus } deriving (Eq,Read,Show,Data,Typeable,Generic) @@ -125,22 +125,22 @@ -- -- Use one of the following lenses to modify other fields as desired: -- --- * 'usprsStatus' +-- * 'usprsResponseStatus' -- -- * 'usprsScalingParameters' updateScalingParametersResponse - :: Int -- ^ 'usprsStatus' + :: Int -- ^ 'usprsResponseStatus' -> ScalingParametersStatus -- ^ 'usprsScalingParameters' -> UpdateScalingParametersResponse -updateScalingParametersResponse pStatus_ pScalingParameters_ = +updateScalingParametersResponse pResponseStatus_ pScalingParameters_ = UpdateScalingParametersResponse' - { _usprsStatus = pStatus_ + { _usprsResponseStatus = pResponseStatus_ , _usprsScalingParameters = pScalingParameters_ } -- | The response status code. -usprsStatus :: Lens' UpdateScalingParametersResponse Int -usprsStatus = lens _usprsStatus (\ s a -> s{_usprsStatus = a}); +usprsResponseStatus :: Lens' UpdateScalingParametersResponse Int +usprsResponseStatus = lens _usprsResponseStatus (\ s a -> s{_usprsResponseStatus = a}); -- | Undocumented member. usprsScalingParameters :: Lens' UpdateScalingParametersResponse ScalingParametersStatus diff --git a/gen/Network/AWS/CloudSearch/UpdateServiceAccessPolicies.hs b/gen/Network/AWS/CloudSearch/UpdateServiceAccessPolicies.hs --- a/gen/Network/AWS/CloudSearch/UpdateServiceAccessPolicies.hs +++ b/gen/Network/AWS/CloudSearch/UpdateServiceAccessPolicies.hs @@ -36,7 +36,7 @@ , updateServiceAccessPoliciesResponse , UpdateServiceAccessPoliciesResponse -- * Response Lenses - , usaprsStatus + , usaprsResponseStatus , usaprsAccessPolicies ) where @@ -113,7 +113,7 @@ -- -- /See:/ 'updateServiceAccessPoliciesResponse' smart constructor. data UpdateServiceAccessPoliciesResponse = UpdateServiceAccessPoliciesResponse' - { _usaprsStatus :: !Int + { _usaprsResponseStatus :: !Int , _usaprsAccessPolicies :: !AccessPoliciesStatus } deriving (Eq,Read,Show,Data,Typeable,Generic) @@ -121,22 +121,22 @@ -- -- Use one of the following lenses to modify other fields as desired: -- --- * 'usaprsStatus' +-- * 'usaprsResponseStatus' -- -- * 'usaprsAccessPolicies' updateServiceAccessPoliciesResponse - :: Int -- ^ 'usaprsStatus' + :: Int -- ^ 'usaprsResponseStatus' -> AccessPoliciesStatus -- ^ 'usaprsAccessPolicies' -> UpdateServiceAccessPoliciesResponse -updateServiceAccessPoliciesResponse pStatus_ pAccessPolicies_ = +updateServiceAccessPoliciesResponse pResponseStatus_ pAccessPolicies_ = UpdateServiceAccessPoliciesResponse' - { _usaprsStatus = pStatus_ + { _usaprsResponseStatus = pResponseStatus_ , _usaprsAccessPolicies = pAccessPolicies_ } -- | The response status code. -usaprsStatus :: Lens' UpdateServiceAccessPoliciesResponse Int -usaprsStatus = lens _usaprsStatus (\ s a -> s{_usaprsStatus = a}); +usaprsResponseStatus :: Lens' UpdateServiceAccessPoliciesResponse Int +usaprsResponseStatus = lens _usaprsResponseStatus (\ s a -> s{_usaprsResponseStatus = a}); -- | The access rules configured for the domain. usaprsAccessPolicies :: Lens' UpdateServiceAccessPoliciesResponse AccessPoliciesStatus diff --git a/test/Test/AWS/Gen/CloudSearch.hs b/test/Test/AWS/Gen/CloudSearch.hs --- a/test/Test/AWS/Gen/CloudSearch.hs +++ b/test/Test/AWS/Gen/CloudSearch.hs @@ -52,32 +52,32 @@ -- , testDeleteExpression $ -- deleteExpression -- --- , testDescribeDomains $ --- describeDomains +-- , testListDomainNames $ +-- listDomainNames -- -- , testDefineSuggester $ -- defineSuggester -- +-- , testDescribeDomains $ +-- describeDomains +-- -- , testDeleteAnalysisScheme $ -- deleteAnalysisScheme -- --- , testListDomainNames $ --- listDomainNames --- -- , testDescribeAnalysisSchemes $ -- describeAnalysisSchemes -- -- , testCreateDomain $ -- createDomain -- --- , testDefineAnalysisScheme $ --- defineAnalysisScheme +-- , testDescribeIndexFields $ +-- describeIndexFields -- -- , testDeleteSuggester $ -- deleteSuggester -- --- , testDescribeIndexFields $ --- describeIndexFields +-- , testDefineAnalysisScheme $ +-- defineAnalysisScheme -- -- , testIndexDocuments $ -- indexDocuments @@ -85,21 +85,21 @@ -- , testDeleteIndexField $ -- deleteIndexField -- --- , testBuildSuggesters $ --- buildSuggesters +-- , testUpdateServiceAccessPolicies $ +-- updateServiceAccessPolicies -- -- , testUpdateScalingParameters $ -- updateScalingParameters -- --- , testUpdateServiceAccessPolicies $ --- updateServiceAccessPolicies --- --- , testDefineIndexField $ --- defineIndexField +-- , testBuildSuggesters $ +-- buildSuggesters -- -- , testDeleteDomain $ -- deleteDomain -- +-- , testDefineIndexField $ +-- defineIndexField +-- -- ] -- , testGroup "response" @@ -127,32 +127,32 @@ -- , testDeleteExpressionResponse $ -- deleteExpressionResponse -- --- , testDescribeDomainsResponse $ --- describeDomainsResponse +-- , testListDomainNamesResponse $ +-- listDomainNamesResponse -- -- , testDefineSuggesterResponse $ -- defineSuggesterResponse -- +-- , testDescribeDomainsResponse $ +-- describeDomainsResponse +-- -- , testDeleteAnalysisSchemeResponse $ -- deleteAnalysisSchemeResponse -- --- , testListDomainNamesResponse $ --- listDomainNamesResponse --- -- , testDescribeAnalysisSchemesResponse $ -- describeAnalysisSchemesResponse -- -- , testCreateDomainResponse $ -- createDomainResponse -- --- , testDefineAnalysisSchemeResponse $ --- defineAnalysisSchemeResponse +-- , testDescribeIndexFieldsResponse $ +-- describeIndexFieldsResponse -- -- , testDeleteSuggesterResponse $ -- deleteSuggesterResponse -- --- , testDescribeIndexFieldsResponse $ --- describeIndexFieldsResponse +-- , testDefineAnalysisSchemeResponse $ +-- defineAnalysisSchemeResponse -- -- , testIndexDocumentsResponse $ -- indexDocumentsResponse @@ -160,21 +160,21 @@ -- , testDeleteIndexFieldResponse $ -- deleteIndexFieldResponse -- --- , testBuildSuggestersResponse $ --- buildSuggestersResponse +-- , testUpdateServiceAccessPoliciesResponse $ +-- updateServiceAccessPoliciesResponse -- -- , testUpdateScalingParametersResponse $ -- updateScalingParametersResponse -- --- , testUpdateServiceAccessPoliciesResponse $ --- updateServiceAccessPoliciesResponse --- --- , testDefineIndexFieldResponse $ --- defineIndexFieldResponse +-- , testBuildSuggestersResponse $ +-- buildSuggestersResponse -- -- , testDeleteDomainResponse $ -- deleteDomainResponse -- +-- , testDefineIndexFieldResponse $ +-- defineIndexFieldResponse +-- -- ] -- ] @@ -220,26 +220,26 @@ "DeleteExpression" "fixture/DeleteExpression.yaml" -testDescribeDomains :: DescribeDomains -> TestTree -testDescribeDomains = req - "DescribeDomains" - "fixture/DescribeDomains.yaml" +testListDomainNames :: ListDomainNames -> TestTree +testListDomainNames = req + "ListDomainNames" + "fixture/ListDomainNames.yaml" testDefineSuggester :: DefineSuggester -> TestTree testDefineSuggester = req "DefineSuggester" "fixture/DefineSuggester.yaml" +testDescribeDomains :: DescribeDomains -> TestTree +testDescribeDomains = req + "DescribeDomains" + "fixture/DescribeDomains.yaml" + testDeleteAnalysisScheme :: DeleteAnalysisScheme -> TestTree testDeleteAnalysisScheme = req "DeleteAnalysisScheme" "fixture/DeleteAnalysisScheme.yaml" -testListDomainNames :: ListDomainNames -> TestTree -testListDomainNames = req - "ListDomainNames" - "fixture/ListDomainNames.yaml" - testDescribeAnalysisSchemes :: DescribeAnalysisSchemes -> TestTree testDescribeAnalysisSchemes = req "DescribeAnalysisSchemes" @@ -250,20 +250,20 @@ "CreateDomain" "fixture/CreateDomain.yaml" -testDefineAnalysisScheme :: DefineAnalysisScheme -> TestTree -testDefineAnalysisScheme = req - "DefineAnalysisScheme" - "fixture/DefineAnalysisScheme.yaml" +testDescribeIndexFields :: DescribeIndexFields -> TestTree +testDescribeIndexFields = req + "DescribeIndexFields" + "fixture/DescribeIndexFields.yaml" testDeleteSuggester :: DeleteSuggester -> TestTree testDeleteSuggester = req "DeleteSuggester" "fixture/DeleteSuggester.yaml" -testDescribeIndexFields :: DescribeIndexFields -> TestTree -testDescribeIndexFields = req - "DescribeIndexFields" - "fixture/DescribeIndexFields.yaml" +testDefineAnalysisScheme :: DefineAnalysisScheme -> TestTree +testDefineAnalysisScheme = req + "DefineAnalysisScheme" + "fixture/DefineAnalysisScheme.yaml" testIndexDocuments :: IndexDocuments -> TestTree testIndexDocuments = req @@ -275,31 +275,31 @@ "DeleteIndexField" "fixture/DeleteIndexField.yaml" -testBuildSuggesters :: BuildSuggesters -> TestTree -testBuildSuggesters = req - "BuildSuggesters" - "fixture/BuildSuggesters.yaml" +testUpdateServiceAccessPolicies :: UpdateServiceAccessPolicies -> TestTree +testUpdateServiceAccessPolicies = req + "UpdateServiceAccessPolicies" + "fixture/UpdateServiceAccessPolicies.yaml" testUpdateScalingParameters :: UpdateScalingParameters -> TestTree testUpdateScalingParameters = req "UpdateScalingParameters" "fixture/UpdateScalingParameters.yaml" -testUpdateServiceAccessPolicies :: UpdateServiceAccessPolicies -> TestTree -testUpdateServiceAccessPolicies = req - "UpdateServiceAccessPolicies" - "fixture/UpdateServiceAccessPolicies.yaml" - -testDefineIndexField :: DefineIndexField -> TestTree -testDefineIndexField = req - "DefineIndexField" - "fixture/DefineIndexField.yaml" +testBuildSuggesters :: BuildSuggesters -> TestTree +testBuildSuggesters = req + "BuildSuggesters" + "fixture/BuildSuggesters.yaml" testDeleteDomain :: DeleteDomain -> TestTree testDeleteDomain = req "DeleteDomain" "fixture/DeleteDomain.yaml" +testDefineIndexField :: DefineIndexField -> TestTree +testDefineIndexField = req + "DefineIndexField" + "fixture/DefineIndexField.yaml" + -- Responses testDescribeAvailabilityOptionsResponse :: DescribeAvailabilityOptionsResponse -> TestTree @@ -358,12 +358,12 @@ cloudSearch (Proxy :: Proxy DeleteExpression) -testDescribeDomainsResponse :: DescribeDomainsResponse -> TestTree -testDescribeDomainsResponse = res - "DescribeDomainsResponse" - "fixture/DescribeDomainsResponse.proto" +testListDomainNamesResponse :: ListDomainNamesResponse -> TestTree +testListDomainNamesResponse = res + "ListDomainNamesResponse" + "fixture/ListDomainNamesResponse.proto" cloudSearch - (Proxy :: Proxy DescribeDomains) + (Proxy :: Proxy ListDomainNames) testDefineSuggesterResponse :: DefineSuggesterResponse -> TestTree testDefineSuggesterResponse = res @@ -372,6 +372,13 @@ cloudSearch (Proxy :: Proxy DefineSuggester) +testDescribeDomainsResponse :: DescribeDomainsResponse -> TestTree +testDescribeDomainsResponse = res + "DescribeDomainsResponse" + "fixture/DescribeDomainsResponse.proto" + cloudSearch + (Proxy :: Proxy DescribeDomains) + testDeleteAnalysisSchemeResponse :: DeleteAnalysisSchemeResponse -> TestTree testDeleteAnalysisSchemeResponse = res "DeleteAnalysisSchemeResponse" @@ -379,13 +386,6 @@ cloudSearch (Proxy :: Proxy DeleteAnalysisScheme) -testListDomainNamesResponse :: ListDomainNamesResponse -> TestTree -testListDomainNamesResponse = res - "ListDomainNamesResponse" - "fixture/ListDomainNamesResponse.proto" - cloudSearch - (Proxy :: Proxy ListDomainNames) - testDescribeAnalysisSchemesResponse :: DescribeAnalysisSchemesResponse -> TestTree testDescribeAnalysisSchemesResponse = res "DescribeAnalysisSchemesResponse" @@ -400,12 +400,12 @@ cloudSearch (Proxy :: Proxy CreateDomain) -testDefineAnalysisSchemeResponse :: DefineAnalysisSchemeResponse -> TestTree -testDefineAnalysisSchemeResponse = res - "DefineAnalysisSchemeResponse" - "fixture/DefineAnalysisSchemeResponse.proto" +testDescribeIndexFieldsResponse :: DescribeIndexFieldsResponse -> TestTree +testDescribeIndexFieldsResponse = res + "DescribeIndexFieldsResponse" + "fixture/DescribeIndexFieldsResponse.proto" cloudSearch - (Proxy :: Proxy DefineAnalysisScheme) + (Proxy :: Proxy DescribeIndexFields) testDeleteSuggesterResponse :: DeleteSuggesterResponse -> TestTree testDeleteSuggesterResponse = res @@ -414,12 +414,12 @@ cloudSearch (Proxy :: Proxy DeleteSuggester) -testDescribeIndexFieldsResponse :: DescribeIndexFieldsResponse -> TestTree -testDescribeIndexFieldsResponse = res - "DescribeIndexFieldsResponse" - "fixture/DescribeIndexFieldsResponse.proto" +testDefineAnalysisSchemeResponse :: DefineAnalysisSchemeResponse -> TestTree +testDefineAnalysisSchemeResponse = res + "DefineAnalysisSchemeResponse" + "fixture/DefineAnalysisSchemeResponse.proto" cloudSearch - (Proxy :: Proxy DescribeIndexFields) + (Proxy :: Proxy DefineAnalysisScheme) testIndexDocumentsResponse :: IndexDocumentsResponse -> TestTree testIndexDocumentsResponse = res @@ -435,12 +435,12 @@ cloudSearch (Proxy :: Proxy DeleteIndexField) -testBuildSuggestersResponse :: BuildSuggestersResponse -> TestTree -testBuildSuggestersResponse = res - "BuildSuggestersResponse" - "fixture/BuildSuggestersResponse.proto" +testUpdateServiceAccessPoliciesResponse :: UpdateServiceAccessPoliciesResponse -> TestTree +testUpdateServiceAccessPoliciesResponse = res + "UpdateServiceAccessPoliciesResponse" + "fixture/UpdateServiceAccessPoliciesResponse.proto" cloudSearch - (Proxy :: Proxy BuildSuggesters) + (Proxy :: Proxy UpdateServiceAccessPolicies) testUpdateScalingParametersResponse :: UpdateScalingParametersResponse -> TestTree testUpdateScalingParametersResponse = res @@ -449,19 +449,12 @@ cloudSearch (Proxy :: Proxy UpdateScalingParameters) -testUpdateServiceAccessPoliciesResponse :: UpdateServiceAccessPoliciesResponse -> TestTree -testUpdateServiceAccessPoliciesResponse = res - "UpdateServiceAccessPoliciesResponse" - "fixture/UpdateServiceAccessPoliciesResponse.proto" - cloudSearch - (Proxy :: Proxy UpdateServiceAccessPolicies) - -testDefineIndexFieldResponse :: DefineIndexFieldResponse -> TestTree -testDefineIndexFieldResponse = res - "DefineIndexFieldResponse" - "fixture/DefineIndexFieldResponse.proto" +testBuildSuggestersResponse :: BuildSuggestersResponse -> TestTree +testBuildSuggestersResponse = res + "BuildSuggestersResponse" + "fixture/BuildSuggestersResponse.proto" cloudSearch - (Proxy :: Proxy DefineIndexField) + (Proxy :: Proxy BuildSuggesters) testDeleteDomainResponse :: DeleteDomainResponse -> TestTree testDeleteDomainResponse = res @@ -469,3 +462,10 @@ "fixture/DeleteDomainResponse.proto" cloudSearch (Proxy :: Proxy DeleteDomain) + +testDefineIndexFieldResponse :: DefineIndexFieldResponse -> TestTree +testDefineIndexFieldResponse = res + "DefineIndexFieldResponse" + "fixture/DefineIndexFieldResponse.proto" + cloudSearch + (Proxy :: Proxy DefineIndexField)