amazonka-cloudsearch 1.2.0.2 → 1.3.0

raw patch · 30 files changed

+411/−410 lines, 30 filesdep ~amazonka-cloudsearchdep ~amazonka-coredep ~amazonka-testPVP ok

version bump matches the API change (PVP)

Dependency ranges changed: amazonka-cloudsearch, amazonka-core, amazonka-test

API changes (from Hackage documentation)

Files

• README.md +1/−1
• amazonka-cloudsearch.cabal +5/−5
• gen/Network/AWS/CloudSearch.hs +22/−22
• gen/Network/AWS/CloudSearch/BuildSuggesters.hs +9/−9
• gen/Network/AWS/CloudSearch/CreateDomain.hs +9/−9
• gen/Network/AWS/CloudSearch/DefineAnalysisScheme.hs +8/−8
• gen/Network/AWS/CloudSearch/DefineExpression.hs +9/−9
• gen/Network/AWS/CloudSearch/DefineIndexField.hs +9/−9
• gen/Network/AWS/CloudSearch/DefineSuggester.hs +9/−9
• gen/Network/AWS/CloudSearch/DeleteAnalysisScheme.hs +8/−8
• gen/Network/AWS/CloudSearch/DeleteDomain.hs +9/−9
• gen/Network/AWS/CloudSearch/DeleteExpression.hs +9/−9
• gen/Network/AWS/CloudSearch/DeleteIndexField.hs +9/−9
• gen/Network/AWS/CloudSearch/DeleteSuggester.hs +9/−9
• gen/Network/AWS/CloudSearch/DescribeAnalysisSchemes.hs +8/−8
• gen/Network/AWS/CloudSearch/DescribeAvailabilityOptions.hs +8/−8
• gen/Network/AWS/CloudSearch/DescribeDomains.hs +8/−8
• gen/Network/AWS/CloudSearch/DescribeExpressions.hs +9/−9
• gen/Network/AWS/CloudSearch/DescribeIndexFields.hs +9/−9
• gen/Network/AWS/CloudSearch/DescribeScalingParameters.hs +8/−8
• gen/Network/AWS/CloudSearch/DescribeServiceAccessPolicies.hs +8/−8
• gen/Network/AWS/CloudSearch/DescribeSuggesters.hs +9/−9
• gen/Network/AWS/CloudSearch/IndexDocuments.hs +9/−9
• gen/Network/AWS/CloudSearch/ListDomainNames.hs +9/−9
• gen/Network/AWS/CloudSearch/Types.hs +6/−6
• gen/Network/AWS/CloudSearch/Types/Product.hs +70/−69
• gen/Network/AWS/CloudSearch/UpdateAvailabilityOptions.hs +8/−8
• gen/Network/AWS/CloudSearch/UpdateScalingParameters.hs +8/−8
• gen/Network/AWS/CloudSearch/UpdateServiceAccessPolicies.hs +8/−8
• test/Test/AWS/Gen/CloudSearch.hs +101/−101

@@ -8,7 +8,7 @@  ## Version -`1.2.0.2`+`1.3.0`   ## Description

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

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

@@ -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});

@@ -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});

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

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

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

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

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

@@ -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});

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

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

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

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

@@ -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});

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

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

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

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

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

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

@@ -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});

@@ -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});

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

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

@@ -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});

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

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

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