diff --git a/README.md b/README.md
--- a/README.md
+++ b/README.md
@@ -8,7 +8,7 @@
 
 ## Version
 
-`1.5.0`
+`1.6.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.5.0
+version:               1.6.0
 synopsis:              Amazon CloudSearch SDK.
 homepage:              https://github.com/brendanhay/amazonka
 bug-reports:           https://github.com/brendanhay/amazonka/issues
@@ -7,7 +7,7 @@
 license-file:          LICENSE
 author:                Brendan Hay
 maintainer:            Brendan Hay <brendan.g.hay+amazonka@gmail.com>
-copyright:             Copyright (c) 2013-2017 Brendan Hay
+copyright:             Copyright (c) 2013-2018 Brendan Hay
 category:              Network, AWS, Cloud, Distributed Computing
 build-type:            Simple
 cabal-version:         >= 1.10
@@ -77,7 +77,7 @@
         , Network.AWS.CloudSearch.Types.Sum
 
     build-depends:
-          amazonka-core == 1.5.0.*
+          amazonka-core == 1.6.0.*
         , base          >= 4.7     && < 5
 
 test-suite amazonka-cloudsearch-test
@@ -97,8 +97,8 @@
         , Test.AWS.CloudSearch.Internal
 
     build-depends:
-          amazonka-core == 1.5.0.*
-        , amazonka-test == 1.5.0.*
+          amazonka-core == 1.6.0.*
+        , amazonka-test == 1.6.0.*
         , amazonka-cloudsearch
         , base
         , bytestring
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
@@ -5,7 +5,7 @@
 
 -- |
 -- Module      : Network.AWS.CloudSearch
--- Copyright   : (c) 2013-2017 Brendan Hay
+-- Copyright   : (c) 2013-2018 Brendan Hay
 -- License     : Mozilla Public License, v. 2.0.
 -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com>
 -- Stability   : auto-generated
diff --git a/gen/Network/AWS/CloudSearch/BuildSuggesters.hs b/gen/Network/AWS/CloudSearch/BuildSuggesters.hs
--- a/gen/Network/AWS/CloudSearch/BuildSuggesters.hs
+++ b/gen/Network/AWS/CloudSearch/BuildSuggesters.hs
@@ -12,7 +12,7 @@
 
 -- |
 -- Module      : Network.AWS.CloudSearch.BuildSuggesters
--- Copyright   : (c) 2013-2017 Brendan Hay
+-- Copyright   : (c) 2013-2018 Brendan Hay
 -- License     : Mozilla Public License, v. 2.0.
 -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com>
 -- Stability   : auto-generated
@@ -67,7 +67,7 @@
 
 -- | Undocumented member.
 bsDomainName :: Lens' BuildSuggesters Text
-bsDomainName = lens _bsDomainName (\ s a -> s{_bsDomainName = a});
+bsDomainName = lens _bsDomainName (\ s a -> s{_bsDomainName = a})
 
 instance AWSRequest BuildSuggesters where
         type Rs BuildSuggesters = BuildSuggestersResponse
@@ -120,15 +120,15 @@
     -> BuildSuggestersResponse
 buildSuggestersResponse pResponseStatus_ =
   BuildSuggestersResponse'
-  {_bsrsFieldNames = Nothing, _bsrsResponseStatus = pResponseStatus_}
+    {_bsrsFieldNames = Nothing, _bsrsResponseStatus = pResponseStatus_}
 
 
 -- | Undocumented member.
 bsrsFieldNames :: Lens' BuildSuggestersResponse [Text]
-bsrsFieldNames = lens _bsrsFieldNames (\ s a -> s{_bsrsFieldNames = a}) . _Default . _Coerce;
+bsrsFieldNames = lens _bsrsFieldNames (\ s a -> s{_bsrsFieldNames = a}) . _Default . _Coerce
 
 -- | -- | The response status code.
 bsrsResponseStatus :: Lens' BuildSuggestersResponse Int
-bsrsResponseStatus = lens _bsrsResponseStatus (\ s a -> s{_bsrsResponseStatus = a});
+bsrsResponseStatus = lens _bsrsResponseStatus (\ s a -> s{_bsrsResponseStatus = a})
 
 instance NFData BuildSuggestersResponse where
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
@@ -12,7 +12,7 @@
 
 -- |
 -- Module      : Network.AWS.CloudSearch.CreateDomain
--- Copyright   : (c) 2013-2017 Brendan Hay
+-- Copyright   : (c) 2013-2018 Brendan Hay
 -- License     : Mozilla Public License, v. 2.0.
 -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com>
 -- Stability   : auto-generated
@@ -67,7 +67,7 @@
 
 -- | A name for the domain you are creating. Allowed characters are a-z (lower-case letters), 0-9, and hyphen (-). Domain names must start with a letter or number and be at least 3 and no more than 28 characters long.
 cdDomainName :: Lens' CreateDomain Text
-cdDomainName = lens _cdDomainName (\ s a -> s{_cdDomainName = a});
+cdDomainName = lens _cdDomainName (\ s a -> s{_cdDomainName = a})
 
 instance AWSRequest CreateDomain where
         type Rs CreateDomain = CreateDomainResponse
@@ -118,15 +118,15 @@
     -> CreateDomainResponse
 createDomainResponse pResponseStatus_ =
   CreateDomainResponse'
-  {_cdrsDomainStatus = Nothing, _cdrsResponseStatus = pResponseStatus_}
+    {_cdrsDomainStatus = Nothing, _cdrsResponseStatus = pResponseStatus_}
 
 
 -- | Undocumented member.
 cdrsDomainStatus :: Lens' CreateDomainResponse (Maybe DomainStatus)
-cdrsDomainStatus = lens _cdrsDomainStatus (\ s a -> s{_cdrsDomainStatus = a});
+cdrsDomainStatus = lens _cdrsDomainStatus (\ s a -> s{_cdrsDomainStatus = a})
 
 -- | -- | The response status code.
 cdrsResponseStatus :: Lens' CreateDomainResponse Int
-cdrsResponseStatus = lens _cdrsResponseStatus (\ s a -> s{_cdrsResponseStatus = a});
+cdrsResponseStatus = lens _cdrsResponseStatus (\ s a -> s{_cdrsResponseStatus = a})
 
 instance NFData CreateDomainResponse where
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
@@ -12,7 +12,7 @@
 
 -- |
 -- Module      : Network.AWS.CloudSearch.DefineAnalysisScheme
--- Copyright   : (c) 2013-2017 Brendan Hay
+-- Copyright   : (c) 2013-2018 Brendan Hay
 -- License     : Mozilla Public License, v. 2.0.
 -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com>
 -- Stability   : auto-generated
@@ -69,16 +69,16 @@
     -> DefineAnalysisScheme
 defineAnalysisScheme pDomainName_ pAnalysisScheme_ =
   DefineAnalysisScheme'
-  {_dasaDomainName = pDomainName_, _dasaAnalysisScheme = pAnalysisScheme_}
+    {_dasaDomainName = pDomainName_, _dasaAnalysisScheme = pAnalysisScheme_}
 
 
 -- | Undocumented member.
 dasaDomainName :: Lens' DefineAnalysisScheme Text
-dasaDomainName = lens _dasaDomainName (\ s a -> s{_dasaDomainName = a});
+dasaDomainName = lens _dasaDomainName (\ s a -> s{_dasaDomainName = a})
 
 -- | Undocumented member.
 dasaAnalysisScheme :: Lens' DefineAnalysisScheme AnalysisScheme
-dasaAnalysisScheme = lens _dasaAnalysisScheme (\ s a -> s{_dasaAnalysisScheme = a});
+dasaAnalysisScheme = lens _dasaAnalysisScheme (\ s a -> s{_dasaAnalysisScheme = a})
 
 instance AWSRequest DefineAnalysisScheme where
         type Rs DefineAnalysisScheme =
@@ -132,17 +132,17 @@
     -> DefineAnalysisSchemeResponse
 defineAnalysisSchemeResponse pResponseStatus_ pAnalysisScheme_ =
   DefineAnalysisSchemeResponse'
-  { _defersResponseStatus = pResponseStatus_
-  , _defersAnalysisScheme = pAnalysisScheme_
-  }
+    { _defersResponseStatus = pResponseStatus_
+    , _defersAnalysisScheme = pAnalysisScheme_
+    }
 
 
 -- | -- | The response status code.
 defersResponseStatus :: Lens' DefineAnalysisSchemeResponse Int
-defersResponseStatus = lens _defersResponseStatus (\ s a -> s{_defersResponseStatus = a});
+defersResponseStatus = lens _defersResponseStatus (\ s a -> s{_defersResponseStatus = a})
 
 -- | Undocumented member.
 defersAnalysisScheme :: Lens' DefineAnalysisSchemeResponse AnalysisSchemeStatus
-defersAnalysisScheme = lens _defersAnalysisScheme (\ s a -> s{_defersAnalysisScheme = a});
+defersAnalysisScheme = lens _defersAnalysisScheme (\ s a -> s{_defersAnalysisScheme = a})
 
 instance NFData DefineAnalysisSchemeResponse where
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
@@ -12,7 +12,7 @@
 
 -- |
 -- Module      : Network.AWS.CloudSearch.DefineExpression
--- Copyright   : (c) 2013-2017 Brendan Hay
+-- Copyright   : (c) 2013-2018 Brendan Hay
 -- License     : Mozilla Public License, v. 2.0.
 -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com>
 -- Stability   : auto-generated
@@ -73,11 +73,11 @@
 
 -- | Undocumented member.
 dDomainName :: Lens' DefineExpression Text
-dDomainName = lens _dDomainName (\ s a -> s{_dDomainName = a});
+dDomainName = lens _dDomainName (\ s a -> s{_dDomainName = a})
 
 -- | Undocumented member.
 dExpression :: Lens' DefineExpression Expression
-dExpression = lens _dExpression (\ s a -> s{_dExpression = a});
+dExpression = lens _dExpression (\ s a -> s{_dExpression = a})
 
 instance AWSRequest DefineExpression where
         type Rs DefineExpression = DefineExpressionResponse
@@ -130,15 +130,15 @@
     -> DefineExpressionResponse
 defineExpressionResponse pResponseStatus_ pExpression_ =
   DefineExpressionResponse'
-  {_dersResponseStatus = pResponseStatus_, _dersExpression = pExpression_}
+    {_dersResponseStatus = pResponseStatus_, _dersExpression = pExpression_}
 
 
 -- | -- | The response status code.
 dersResponseStatus :: Lens' DefineExpressionResponse Int
-dersResponseStatus = lens _dersResponseStatus (\ s a -> s{_dersResponseStatus = a});
+dersResponseStatus = lens _dersResponseStatus (\ s a -> s{_dersResponseStatus = a})
 
 -- | Undocumented member.
 dersExpression :: Lens' DefineExpressionResponse ExpressionStatus
-dersExpression = lens _dersExpression (\ s a -> s{_dersExpression = a});
+dersExpression = lens _dersExpression (\ s a -> s{_dersExpression = a})
 
 instance NFData DefineExpressionResponse where
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
@@ -12,7 +12,7 @@
 
 -- |
 -- Module      : Network.AWS.CloudSearch.DefineIndexField
--- Copyright   : (c) 2013-2017 Brendan Hay
+-- Copyright   : (c) 2013-2018 Brendan Hay
 -- License     : Mozilla Public License, v. 2.0.
 -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com>
 -- Stability   : auto-generated
@@ -69,16 +69,16 @@
     -> DefineIndexField
 defineIndexField pDomainName_ pIndexField_ =
   DefineIndexField'
-  {_defeDomainName = pDomainName_, _defeIndexField = pIndexField_}
+    {_defeDomainName = pDomainName_, _defeIndexField = pIndexField_}
 
 
 -- | Undocumented member.
 defeDomainName :: Lens' DefineIndexField Text
-defeDomainName = lens _defeDomainName (\ s a -> s{_defeDomainName = a});
+defeDomainName = lens _defeDomainName (\ s a -> s{_defeDomainName = a})
 
 -- | The index field and field options you want to configure.
 defeIndexField :: Lens' DefineIndexField IndexField
-defeIndexField = lens _defeIndexField (\ s a -> s{_defeIndexField = a});
+defeIndexField = lens _defeIndexField (\ s a -> s{_defeIndexField = a})
 
 instance AWSRequest DefineIndexField where
         type Rs DefineIndexField = DefineIndexFieldResponse
@@ -131,15 +131,15 @@
     -> DefineIndexFieldResponse
 defineIndexFieldResponse pResponseStatus_ pIndexField_ =
   DefineIndexFieldResponse'
-  {_defrsResponseStatus = pResponseStatus_, _defrsIndexField = pIndexField_}
+    {_defrsResponseStatus = pResponseStatus_, _defrsIndexField = pIndexField_}
 
 
 -- | -- | The response status code.
 defrsResponseStatus :: Lens' DefineIndexFieldResponse Int
-defrsResponseStatus = lens _defrsResponseStatus (\ s a -> s{_defrsResponseStatus = a});
+defrsResponseStatus = lens _defrsResponseStatus (\ s a -> s{_defrsResponseStatus = a})
 
 -- | Undocumented member.
 defrsIndexField :: Lens' DefineIndexFieldResponse IndexFieldStatus
-defrsIndexField = lens _defrsIndexField (\ s a -> s{_defrsIndexField = a});
+defrsIndexField = lens _defrsIndexField (\ s a -> s{_defrsIndexField = a})
 
 instance NFData DefineIndexFieldResponse where
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
@@ -12,7 +12,7 @@
 
 -- |
 -- Module      : Network.AWS.CloudSearch.DefineSuggester
--- Copyright   : (c) 2013-2017 Brendan Hay
+-- Copyright   : (c) 2013-2018 Brendan Hay
 -- License     : Mozilla Public License, v. 2.0.
 -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com>
 -- Stability   : auto-generated
@@ -73,11 +73,11 @@
 
 -- | Undocumented member.
 defDomainName :: Lens' DefineSuggester Text
-defDomainName = lens _defDomainName (\ s a -> s{_defDomainName = a});
+defDomainName = lens _defDomainName (\ s a -> s{_defDomainName = a})
 
 -- | Undocumented member.
 defSuggester :: Lens' DefineSuggester Suggester
-defSuggester = lens _defSuggester (\ s a -> s{_defSuggester = a});
+defSuggester = lens _defSuggester (\ s a -> s{_defSuggester = a})
 
 instance AWSRequest DefineSuggester where
         type Rs DefineSuggester = DefineSuggesterResponse
@@ -130,15 +130,15 @@
     -> DefineSuggesterResponse
 defineSuggesterResponse pResponseStatus_ pSuggester_ =
   DefineSuggesterResponse'
-  {_dsrsResponseStatus = pResponseStatus_, _dsrsSuggester = pSuggester_}
+    {_dsrsResponseStatus = pResponseStatus_, _dsrsSuggester = pSuggester_}
 
 
 -- | -- | The response status code.
 dsrsResponseStatus :: Lens' DefineSuggesterResponse Int
-dsrsResponseStatus = lens _dsrsResponseStatus (\ s a -> s{_dsrsResponseStatus = a});
+dsrsResponseStatus = lens _dsrsResponseStatus (\ s a -> s{_dsrsResponseStatus = a})
 
 -- | Undocumented member.
 dsrsSuggester :: Lens' DefineSuggesterResponse SuggesterStatus
-dsrsSuggester = lens _dsrsSuggester (\ s a -> s{_dsrsSuggester = a});
+dsrsSuggester = lens _dsrsSuggester (\ s a -> s{_dsrsSuggester = a})
 
 instance NFData DefineSuggesterResponse where
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
@@ -12,7 +12,7 @@
 
 -- |
 -- Module      : Network.AWS.CloudSearch.DeleteAnalysisScheme
--- Copyright   : (c) 2013-2017 Brendan Hay
+-- Copyright   : (c) 2013-2018 Brendan Hay
 -- License     : Mozilla Public License, v. 2.0.
 -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com>
 -- Stability   : auto-generated
@@ -69,16 +69,18 @@
     -> DeleteAnalysisScheme
 deleteAnalysisScheme pDomainName_ pAnalysisSchemeName_ =
   DeleteAnalysisScheme'
-  {_dasDomainName = pDomainName_, _dasAnalysisSchemeName = pAnalysisSchemeName_}
+    { _dasDomainName = pDomainName_
+    , _dasAnalysisSchemeName = pAnalysisSchemeName_
+    }
 
 
 -- | Undocumented member.
 dasDomainName :: Lens' DeleteAnalysisScheme Text
-dasDomainName = lens _dasDomainName (\ s a -> s{_dasDomainName = a});
+dasDomainName = lens _dasDomainName (\ s a -> s{_dasDomainName = a})
 
 -- | The name of the analysis scheme you want to delete.
 dasAnalysisSchemeName :: Lens' DeleteAnalysisScheme Text
-dasAnalysisSchemeName = lens _dasAnalysisSchemeName (\ s a -> s{_dasAnalysisSchemeName = a});
+dasAnalysisSchemeName = lens _dasAnalysisSchemeName (\ s a -> s{_dasAnalysisSchemeName = a})
 
 instance AWSRequest DeleteAnalysisScheme where
         type Rs DeleteAnalysisScheme =
@@ -132,17 +134,17 @@
     -> DeleteAnalysisSchemeResponse
 deleteAnalysisSchemeResponse pResponseStatus_ pAnalysisScheme_ =
   DeleteAnalysisSchemeResponse'
-  { _dasarsResponseStatus = pResponseStatus_
-  , _dasarsAnalysisScheme = pAnalysisScheme_
-  }
+    { _dasarsResponseStatus = pResponseStatus_
+    , _dasarsAnalysisScheme = pAnalysisScheme_
+    }
 
 
 -- | -- | The response status code.
 dasarsResponseStatus :: Lens' DeleteAnalysisSchemeResponse Int
-dasarsResponseStatus = lens _dasarsResponseStatus (\ s a -> s{_dasarsResponseStatus = a});
+dasarsResponseStatus = lens _dasarsResponseStatus (\ s a -> s{_dasarsResponseStatus = a})
 
 -- | The status of the analysis scheme being deleted.
 dasarsAnalysisScheme :: Lens' DeleteAnalysisSchemeResponse AnalysisSchemeStatus
-dasarsAnalysisScheme = lens _dasarsAnalysisScheme (\ s a -> s{_dasarsAnalysisScheme = a});
+dasarsAnalysisScheme = lens _dasarsAnalysisScheme (\ s a -> s{_dasarsAnalysisScheme = a})
 
 instance NFData DeleteAnalysisSchemeResponse where
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
@@ -12,7 +12,7 @@
 
 -- |
 -- Module      : Network.AWS.CloudSearch.DeleteDomain
--- Copyright   : (c) 2013-2017 Brendan Hay
+-- Copyright   : (c) 2013-2018 Brendan Hay
 -- License     : Mozilla Public License, v. 2.0.
 -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com>
 -- Stability   : auto-generated
@@ -67,7 +67,7 @@
 
 -- | The name of the domain you want to permanently delete.
 dddDomainName :: Lens' DeleteDomain Text
-dddDomainName = lens _dddDomainName (\ s a -> s{_dddDomainName = a});
+dddDomainName = lens _dddDomainName (\ s a -> s{_dddDomainName = a})
 
 instance AWSRequest DeleteDomain where
         type Rs DeleteDomain = DeleteDomainResponse
@@ -118,15 +118,15 @@
     -> DeleteDomainResponse
 deleteDomainResponse pResponseStatus_ =
   DeleteDomainResponse'
-  {_ddrsDomainStatus = Nothing, _ddrsResponseStatus = pResponseStatus_}
+    {_ddrsDomainStatus = Nothing, _ddrsResponseStatus = pResponseStatus_}
 
 
 -- | Undocumented member.
 ddrsDomainStatus :: Lens' DeleteDomainResponse (Maybe DomainStatus)
-ddrsDomainStatus = lens _ddrsDomainStatus (\ s a -> s{_ddrsDomainStatus = a});
+ddrsDomainStatus = lens _ddrsDomainStatus (\ s a -> s{_ddrsDomainStatus = a})
 
 -- | -- | The response status code.
 ddrsResponseStatus :: Lens' DeleteDomainResponse Int
-ddrsResponseStatus = lens _ddrsResponseStatus (\ s a -> s{_ddrsResponseStatus = a});
+ddrsResponseStatus = lens _ddrsResponseStatus (\ s a -> s{_ddrsResponseStatus = a})
 
 instance NFData DeleteDomainResponse where
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
@@ -12,7 +12,7 @@
 
 -- |
 -- Module      : Network.AWS.CloudSearch.DeleteExpression
--- Copyright   : (c) 2013-2017 Brendan Hay
+-- Copyright   : (c) 2013-2018 Brendan Hay
 -- License     : Mozilla Public License, v. 2.0.
 -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com>
 -- Stability   : auto-generated
@@ -69,16 +69,16 @@
     -> DeleteExpression
 deleteExpression pDomainName_ pExpressionName_ =
   DeleteExpression'
-  {_delDomainName = pDomainName_, _delExpressionName = pExpressionName_}
+    {_delDomainName = pDomainName_, _delExpressionName = pExpressionName_}
 
 
 -- | Undocumented member.
 delDomainName :: Lens' DeleteExpression Text
-delDomainName = lens _delDomainName (\ s a -> s{_delDomainName = a});
+delDomainName = lens _delDomainName (\ s a -> s{_delDomainName = a})
 
 -- | The name of the @'Expression' @ to delete.
 delExpressionName :: Lens' DeleteExpression Text
-delExpressionName = lens _delExpressionName (\ s a -> s{_delExpressionName = a});
+delExpressionName = lens _delExpressionName (\ s a -> s{_delExpressionName = a})
 
 instance AWSRequest DeleteExpression where
         type Rs DeleteExpression = DeleteExpressionResponse
@@ -131,15 +131,15 @@
     -> DeleteExpressionResponse
 deleteExpressionResponse pResponseStatus_ pExpression_ =
   DeleteExpressionResponse'
-  {_delrsResponseStatus = pResponseStatus_, _delrsExpression = pExpression_}
+    {_delrsResponseStatus = pResponseStatus_, _delrsExpression = pExpression_}
 
 
 -- | -- | The response status code.
 delrsResponseStatus :: Lens' DeleteExpressionResponse Int
-delrsResponseStatus = lens _delrsResponseStatus (\ s a -> s{_delrsResponseStatus = a});
+delrsResponseStatus = lens _delrsResponseStatus (\ s a -> s{_delrsResponseStatus = a})
 
 -- | The status of the expression being deleted.
 delrsExpression :: Lens' DeleteExpressionResponse ExpressionStatus
-delrsExpression = lens _delrsExpression (\ s a -> s{_delrsExpression = a});
+delrsExpression = lens _delrsExpression (\ s a -> s{_delrsExpression = a})
 
 instance NFData DeleteExpressionResponse where
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
@@ -12,7 +12,7 @@
 
 -- |
 -- Module      : Network.AWS.CloudSearch.DeleteIndexField
--- Copyright   : (c) 2013-2017 Brendan Hay
+-- Copyright   : (c) 2013-2018 Brendan Hay
 -- License     : Mozilla Public License, v. 2.0.
 -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com>
 -- Stability   : auto-generated
@@ -69,16 +69,16 @@
     -> DeleteIndexField
 deleteIndexField pDomainName_ pIndexFieldName_ =
   DeleteIndexField'
-  {_difiDomainName = pDomainName_, _difiIndexFieldName = pIndexFieldName_}
+    {_difiDomainName = pDomainName_, _difiIndexFieldName = pIndexFieldName_}
 
 
 -- | Undocumented member.
 difiDomainName :: Lens' DeleteIndexField Text
-difiDomainName = lens _difiDomainName (\ s a -> s{_difiDomainName = a});
+difiDomainName = lens _difiDomainName (\ s a -> s{_difiDomainName = a})
 
 -- | The name of the index field your want to remove from the domain's indexing options.
 difiIndexFieldName :: Lens' DeleteIndexField Text
-difiIndexFieldName = lens _difiIndexFieldName (\ s a -> s{_difiIndexFieldName = a});
+difiIndexFieldName = lens _difiIndexFieldName (\ s a -> s{_difiIndexFieldName = a})
 
 instance AWSRequest DeleteIndexField where
         type Rs DeleteIndexField = DeleteIndexFieldResponse
@@ -131,15 +131,15 @@
     -> DeleteIndexFieldResponse
 deleteIndexFieldResponse pResponseStatus_ pIndexField_ =
   DeleteIndexFieldResponse'
-  {_difrsResponseStatus = pResponseStatus_, _difrsIndexField = pIndexField_}
+    {_difrsResponseStatus = pResponseStatus_, _difrsIndexField = pIndexField_}
 
 
 -- | -- | The response status code.
 difrsResponseStatus :: Lens' DeleteIndexFieldResponse Int
-difrsResponseStatus = lens _difrsResponseStatus (\ s a -> s{_difrsResponseStatus = a});
+difrsResponseStatus = lens _difrsResponseStatus (\ s a -> s{_difrsResponseStatus = a})
 
 -- | The status of the index field being deleted.
 difrsIndexField :: Lens' DeleteIndexFieldResponse IndexFieldStatus
-difrsIndexField = lens _difrsIndexField (\ s a -> s{_difrsIndexField = a});
+difrsIndexField = lens _difrsIndexField (\ s a -> s{_difrsIndexField = a})
 
 instance NFData DeleteIndexFieldResponse where
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
@@ -12,7 +12,7 @@
 
 -- |
 -- Module      : Network.AWS.CloudSearch.DeleteSuggester
--- Copyright   : (c) 2013-2017 Brendan Hay
+-- Copyright   : (c) 2013-2018 Brendan Hay
 -- License     : Mozilla Public License, v. 2.0.
 -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com>
 -- Stability   : auto-generated
@@ -69,16 +69,16 @@
     -> DeleteSuggester
 deleteSuggester pDomainName_ pSuggesterName_ =
   DeleteSuggester'
-  {_ddDomainName = pDomainName_, _ddSuggesterName = pSuggesterName_}
+    {_ddDomainName = pDomainName_, _ddSuggesterName = pSuggesterName_}
 
 
 -- | Undocumented member.
 ddDomainName :: Lens' DeleteSuggester Text
-ddDomainName = lens _ddDomainName (\ s a -> s{_ddDomainName = a});
+ddDomainName = lens _ddDomainName (\ s a -> s{_ddDomainName = a})
 
 -- | Specifies the name of the suggester you want to delete.
 ddSuggesterName :: Lens' DeleteSuggester Text
-ddSuggesterName = lens _ddSuggesterName (\ s a -> s{_ddSuggesterName = a});
+ddSuggesterName = lens _ddSuggesterName (\ s a -> s{_ddSuggesterName = a})
 
 instance AWSRequest DeleteSuggester where
         type Rs DeleteSuggester = DeleteSuggesterResponse
@@ -131,15 +131,15 @@
     -> DeleteSuggesterResponse
 deleteSuggesterResponse pResponseStatus_ pSuggester_ =
   DeleteSuggesterResponse'
-  {_delersResponseStatus = pResponseStatus_, _delersSuggester = pSuggester_}
+    {_delersResponseStatus = pResponseStatus_, _delersSuggester = pSuggester_}
 
 
 -- | -- | The response status code.
 delersResponseStatus :: Lens' DeleteSuggesterResponse Int
-delersResponseStatus = lens _delersResponseStatus (\ s a -> s{_delersResponseStatus = a});
+delersResponseStatus = lens _delersResponseStatus (\ s a -> s{_delersResponseStatus = a})
 
 -- | The status of the suggester being deleted.
 delersSuggester :: Lens' DeleteSuggesterResponse SuggesterStatus
-delersSuggester = lens _delersSuggester (\ s a -> s{_delersSuggester = a});
+delersSuggester = lens _delersSuggester (\ s a -> s{_delersSuggester = a})
 
 instance NFData DeleteSuggesterResponse where
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
@@ -12,7 +12,7 @@
 
 -- |
 -- Module      : Network.AWS.CloudSearch.DescribeAnalysisSchemes
--- Copyright   : (c) 2013-2017 Brendan Hay
+-- Copyright   : (c) 2013-2018 Brendan Hay
 -- License     : Mozilla Public License, v. 2.0.
 -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com>
 -- Stability   : auto-generated
@@ -72,23 +72,23 @@
     -> DescribeAnalysisSchemes
 describeAnalysisSchemes pDomainName_ =
   DescribeAnalysisSchemes'
-  { _dassDeployed = Nothing
-  , _dassAnalysisSchemeNames = Nothing
-  , _dassDomainName = pDomainName_
-  }
+    { _dassDeployed = Nothing
+    , _dassAnalysisSchemeNames = Nothing
+    , _dassDomainName = pDomainName_
+    }
 
 
 -- | Whether to display the deployed configuration (@true@ ) or include any pending changes (@false@ ). Defaults to @false@ .
 dassDeployed :: Lens' DescribeAnalysisSchemes (Maybe Bool)
-dassDeployed = lens _dassDeployed (\ s a -> s{_dassDeployed = a});
+dassDeployed = lens _dassDeployed (\ s a -> s{_dassDeployed = a})
 
 -- | The analysis schemes you want to describe.
 dassAnalysisSchemeNames :: Lens' DescribeAnalysisSchemes [Text]
-dassAnalysisSchemeNames = lens _dassAnalysisSchemeNames (\ s a -> s{_dassAnalysisSchemeNames = a}) . _Default . _Coerce;
+dassAnalysisSchemeNames = lens _dassAnalysisSchemeNames (\ s a -> s{_dassAnalysisSchemeNames = a}) . _Default . _Coerce
 
 -- | The name of the domain you want to describe.
 dassDomainName :: Lens' DescribeAnalysisSchemes Text
-dassDomainName = lens _dassDomainName (\ s a -> s{_dassDomainName = a});
+dassDomainName = lens _dassDomainName (\ s a -> s{_dassDomainName = a})
 
 instance AWSRequest DescribeAnalysisSchemes where
         type Rs DescribeAnalysisSchemes =
@@ -147,15 +147,15 @@
     -> DescribeAnalysisSchemesResponse
 describeAnalysisSchemesResponse pResponseStatus_ =
   DescribeAnalysisSchemesResponse'
-  {_dasrsResponseStatus = pResponseStatus_, _dasrsAnalysisSchemes = mempty}
+    {_dasrsResponseStatus = pResponseStatus_, _dasrsAnalysisSchemes = mempty}
 
 
 -- | -- | The response status code.
 dasrsResponseStatus :: Lens' DescribeAnalysisSchemesResponse Int
-dasrsResponseStatus = lens _dasrsResponseStatus (\ s a -> s{_dasrsResponseStatus = a});
+dasrsResponseStatus = lens _dasrsResponseStatus (\ s a -> s{_dasrsResponseStatus = a})
 
 -- | The analysis scheme descriptions.
 dasrsAnalysisSchemes :: Lens' DescribeAnalysisSchemesResponse [AnalysisSchemeStatus]
-dasrsAnalysisSchemes = lens _dasrsAnalysisSchemes (\ s a -> s{_dasrsAnalysisSchemes = a}) . _Coerce;
+dasrsAnalysisSchemes = lens _dasrsAnalysisSchemes (\ s a -> s{_dasrsAnalysisSchemes = a}) . _Coerce
 
 instance NFData DescribeAnalysisSchemesResponse where
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
@@ -12,7 +12,7 @@
 
 -- |
 -- Module      : Network.AWS.CloudSearch.DescribeAvailabilityOptions
--- Copyright   : (c) 2013-2017 Brendan Hay
+-- Copyright   : (c) 2013-2018 Brendan Hay
 -- License     : Mozilla Public License, v. 2.0.
 -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com>
 -- Stability   : auto-generated
@@ -68,16 +68,16 @@
     -> DescribeAvailabilityOptions
 describeAvailabilityOptions pDomainName_ =
   DescribeAvailabilityOptions'
-  {_daoDeployed = Nothing, _daoDomainName = pDomainName_}
+    {_daoDeployed = Nothing, _daoDomainName = pDomainName_}
 
 
 -- | Whether to display the deployed configuration (@true@ ) or include any pending changes (@false@ ). Defaults to @false@ .
 daoDeployed :: Lens' DescribeAvailabilityOptions (Maybe Bool)
-daoDeployed = lens _daoDeployed (\ s a -> s{_daoDeployed = a});
+daoDeployed = lens _daoDeployed (\ s a -> s{_daoDeployed = a})
 
 -- | The name of the domain you want to describe.
 daoDomainName :: Lens' DescribeAvailabilityOptions Text
-daoDomainName = lens _daoDomainName (\ s a -> s{_daoDomainName = a});
+daoDomainName = lens _daoDomainName (\ s a -> s{_daoDomainName = a})
 
 instance AWSRequest DescribeAvailabilityOptions where
         type Rs DescribeAvailabilityOptions =
@@ -133,16 +133,18 @@
     -> DescribeAvailabilityOptionsResponse
 describeAvailabilityOptionsResponse pResponseStatus_ =
   DescribeAvailabilityOptionsResponse'
-  {_daorsAvailabilityOptions = Nothing, _daorsResponseStatus = pResponseStatus_}
+    { _daorsAvailabilityOptions = Nothing
+    , _daorsResponseStatus = pResponseStatus_
+    }
 
 
 -- | The availability options configured for the domain. Indicates whether Multi-AZ is enabled for the domain.
 daorsAvailabilityOptions :: Lens' DescribeAvailabilityOptionsResponse (Maybe AvailabilityOptionsStatus)
-daorsAvailabilityOptions = lens _daorsAvailabilityOptions (\ s a -> s{_daorsAvailabilityOptions = a});
+daorsAvailabilityOptions = lens _daorsAvailabilityOptions (\ s a -> s{_daorsAvailabilityOptions = a})
 
 -- | -- | The response status code.
 daorsResponseStatus :: Lens' DescribeAvailabilityOptionsResponse Int
-daorsResponseStatus = lens _daorsResponseStatus (\ s a -> s{_daorsResponseStatus = a});
+daorsResponseStatus = lens _daorsResponseStatus (\ s a -> s{_daorsResponseStatus = a})
 
 instance NFData DescribeAvailabilityOptionsResponse
          where
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
@@ -12,7 +12,7 @@
 
 -- |
 -- Module      : Network.AWS.CloudSearch.DescribeDomains
--- Copyright   : (c) 2013-2017 Brendan Hay
+-- Copyright   : (c) 2013-2018 Brendan Hay
 -- License     : Mozilla Public License, v. 2.0.
 -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com>
 -- Stability   : auto-generated
@@ -66,7 +66,7 @@
 
 -- | The names of the domains you want to include in the response.
 ddDomainNames :: Lens' DescribeDomains [Text]
-ddDomainNames = lens _ddDomainNames (\ s a -> s{_ddDomainNames = a}) . _Default . _Coerce;
+ddDomainNames = lens _ddDomainNames (\ s a -> s{_ddDomainNames = a}) . _Default . _Coerce
 
 instance AWSRequest DescribeDomains where
         type Rs DescribeDomains = DescribeDomainsResponse
@@ -120,15 +120,15 @@
     -> DescribeDomainsResponse
 describeDomainsResponse pResponseStatus_ =
   DescribeDomainsResponse'
-  {_ddsrsResponseStatus = pResponseStatus_, _ddsrsDomainStatusList = mempty}
+    {_ddsrsResponseStatus = pResponseStatus_, _ddsrsDomainStatusList = mempty}
 
 
 -- | -- | The response status code.
 ddsrsResponseStatus :: Lens' DescribeDomainsResponse Int
-ddsrsResponseStatus = lens _ddsrsResponseStatus (\ s a -> s{_ddsrsResponseStatus = a});
+ddsrsResponseStatus = lens _ddsrsResponseStatus (\ s a -> s{_ddsrsResponseStatus = a})
 
 -- | Undocumented member.
 ddsrsDomainStatusList :: Lens' DescribeDomainsResponse [DomainStatus]
-ddsrsDomainStatusList = lens _ddsrsDomainStatusList (\ s a -> s{_ddsrsDomainStatusList = a}) . _Coerce;
+ddsrsDomainStatusList = lens _ddsrsDomainStatusList (\ s a -> s{_ddsrsDomainStatusList = a}) . _Coerce
 
 instance NFData DescribeDomainsResponse where
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
@@ -12,7 +12,7 @@
 
 -- |
 -- Module      : Network.AWS.CloudSearch.DescribeExpressions
--- Copyright   : (c) 2013-2017 Brendan Hay
+-- Copyright   : (c) 2013-2018 Brendan Hay
 -- License     : Mozilla Public License, v. 2.0.
 -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com>
 -- Stability   : auto-generated
@@ -72,23 +72,23 @@
     -> DescribeExpressions
 describeExpressions pDomainName_ =
   DescribeExpressions'
-  { _deDeployed = Nothing
-  , _deExpressionNames = Nothing
-  , _deDomainName = pDomainName_
-  }
+    { _deDeployed = Nothing
+    , _deExpressionNames = Nothing
+    , _deDomainName = pDomainName_
+    }
 
 
 -- | Whether to display the deployed configuration (@true@ ) or include any pending changes (@false@ ). Defaults to @false@ .
 deDeployed :: Lens' DescribeExpressions (Maybe Bool)
-deDeployed = lens _deDeployed (\ s a -> s{_deDeployed = a});
+deDeployed = lens _deDeployed (\ s a -> s{_deDeployed = a})
 
 -- | Limits the @'DescribeExpressions' @ response to the specified expressions. If not specified, all expressions are shown.
 deExpressionNames :: Lens' DescribeExpressions [Text]
-deExpressionNames = lens _deExpressionNames (\ s a -> s{_deExpressionNames = a}) . _Default . _Coerce;
+deExpressionNames = lens _deExpressionNames (\ s a -> s{_deExpressionNames = a}) . _Default . _Coerce
 
 -- | The name of the domain you want to describe.
 deDomainName :: Lens' DescribeExpressions Text
-deDomainName = lens _deDomainName (\ s a -> s{_deDomainName = a});
+deDomainName = lens _deDomainName (\ s a -> s{_deDomainName = a})
 
 instance AWSRequest DescribeExpressions where
         type Rs DescribeExpressions =
@@ -146,15 +146,15 @@
     -> DescribeExpressionsResponse
 describeExpressionsResponse pResponseStatus_ =
   DescribeExpressionsResponse'
-  {_drsResponseStatus = pResponseStatus_, _drsExpressions = mempty}
+    {_drsResponseStatus = pResponseStatus_, _drsExpressions = mempty}
 
 
 -- | -- | The response status code.
 drsResponseStatus :: Lens' DescribeExpressionsResponse Int
-drsResponseStatus = lens _drsResponseStatus (\ s a -> s{_drsResponseStatus = a});
+drsResponseStatus = lens _drsResponseStatus (\ s a -> s{_drsResponseStatus = a})
 
 -- | The expressions configured for the domain.
 drsExpressions :: Lens' DescribeExpressionsResponse [ExpressionStatus]
-drsExpressions = lens _drsExpressions (\ s a -> s{_drsExpressions = a}) . _Coerce;
+drsExpressions = lens _drsExpressions (\ s a -> s{_drsExpressions = a}) . _Coerce
 
 instance NFData DescribeExpressionsResponse where
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
@@ -12,7 +12,7 @@
 
 -- |
 -- Module      : Network.AWS.CloudSearch.DescribeIndexFields
--- Copyright   : (c) 2013-2017 Brendan Hay
+-- Copyright   : (c) 2013-2018 Brendan Hay
 -- License     : Mozilla Public License, v. 2.0.
 -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com>
 -- Stability   : auto-generated
@@ -72,23 +72,23 @@
     -> DescribeIndexFields
 describeIndexFields pDomainName_ =
   DescribeIndexFields'
-  { _difDeployed = Nothing
-  , _difFieldNames = Nothing
-  , _difDomainName = pDomainName_
-  }
+    { _difDeployed = Nothing
+    , _difFieldNames = Nothing
+    , _difDomainName = pDomainName_
+    }
 
 
 -- | Whether to display the deployed configuration (@true@ ) or include any pending changes (@false@ ). Defaults to @false@ .
 difDeployed :: Lens' DescribeIndexFields (Maybe Bool)
-difDeployed = lens _difDeployed (\ s a -> s{_difDeployed = a});
+difDeployed = lens _difDeployed (\ s a -> s{_difDeployed = a})
 
 -- | A list of the index fields you want to describe. If not specified, information is returned for all configured index fields.
 difFieldNames :: Lens' DescribeIndexFields [Text]
-difFieldNames = lens _difFieldNames (\ s a -> s{_difFieldNames = a}) . _Default . _Coerce;
+difFieldNames = lens _difFieldNames (\ s a -> s{_difFieldNames = a}) . _Default . _Coerce
 
 -- | The name of the domain you want to describe.
 difDomainName :: Lens' DescribeIndexFields Text
-difDomainName = lens _difDomainName (\ s a -> s{_difDomainName = a});
+difDomainName = lens _difDomainName (\ s a -> s{_difDomainName = a})
 
 instance AWSRequest DescribeIndexFields where
         type Rs DescribeIndexFields =
@@ -145,15 +145,15 @@
     -> DescribeIndexFieldsResponse
 describeIndexFieldsResponse pResponseStatus_ =
   DescribeIndexFieldsResponse'
-  {_difsrsResponseStatus = pResponseStatus_, _difsrsIndexFields = mempty}
+    {_difsrsResponseStatus = pResponseStatus_, _difsrsIndexFields = mempty}
 
 
 -- | -- | The response status code.
 difsrsResponseStatus :: Lens' DescribeIndexFieldsResponse Int
-difsrsResponseStatus = lens _difsrsResponseStatus (\ s a -> s{_difsrsResponseStatus = a});
+difsrsResponseStatus = lens _difsrsResponseStatus (\ s a -> s{_difsrsResponseStatus = a})
 
 -- | The index fields configured for the domain.
 difsrsIndexFields :: Lens' DescribeIndexFieldsResponse [IndexFieldStatus]
-difsrsIndexFields = lens _difsrsIndexFields (\ s a -> s{_difsrsIndexFields = a}) . _Coerce;
+difsrsIndexFields = lens _difsrsIndexFields (\ s a -> s{_difsrsIndexFields = a}) . _Coerce
 
 instance NFData DescribeIndexFieldsResponse where
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
@@ -12,7 +12,7 @@
 
 -- |
 -- Module      : Network.AWS.CloudSearch.DescribeScalingParameters
--- Copyright   : (c) 2013-2017 Brendan Hay
+-- Copyright   : (c) 2013-2018 Brendan Hay
 -- License     : Mozilla Public License, v. 2.0.
 -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com>
 -- Stability   : auto-generated
@@ -68,7 +68,7 @@
 
 -- | Undocumented member.
 dspDomainName :: Lens' DescribeScalingParameters Text
-dspDomainName = lens _dspDomainName (\ s a -> s{_dspDomainName = a});
+dspDomainName = lens _dspDomainName (\ s a -> s{_dspDomainName = a})
 
 instance AWSRequest DescribeScalingParameters where
         type Rs DescribeScalingParameters =
@@ -122,18 +122,18 @@
     -> DescribeScalingParametersResponse
 describeScalingParametersResponse pResponseStatus_ pScalingParameters_ =
   DescribeScalingParametersResponse'
-  { _dsprsResponseStatus = pResponseStatus_
-  , _dsprsScalingParameters = pScalingParameters_
-  }
+    { _dsprsResponseStatus = pResponseStatus_
+    , _dsprsScalingParameters = pScalingParameters_
+    }
 
 
 -- | -- | The response status code.
 dsprsResponseStatus :: Lens' DescribeScalingParametersResponse Int
-dsprsResponseStatus = lens _dsprsResponseStatus (\ s a -> s{_dsprsResponseStatus = a});
+dsprsResponseStatus = lens _dsprsResponseStatus (\ s a -> s{_dsprsResponseStatus = a})
 
 -- | Undocumented member.
 dsprsScalingParameters :: Lens' DescribeScalingParametersResponse ScalingParametersStatus
-dsprsScalingParameters = lens _dsprsScalingParameters (\ s a -> s{_dsprsScalingParameters = a});
+dsprsScalingParameters = lens _dsprsScalingParameters (\ s a -> s{_dsprsScalingParameters = a})
 
 instance NFData DescribeScalingParametersResponse
          where
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
@@ -12,7 +12,7 @@
 
 -- |
 -- Module      : Network.AWS.CloudSearch.DescribeServiceAccessPolicies
--- Copyright   : (c) 2013-2017 Brendan Hay
+-- Copyright   : (c) 2013-2018 Brendan Hay
 -- License     : Mozilla Public License, v. 2.0.
 -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com>
 -- Stability   : auto-generated
@@ -68,16 +68,16 @@
     -> DescribeServiceAccessPolicies
 describeServiceAccessPolicies pDomainName_ =
   DescribeServiceAccessPolicies'
-  {_dsapDeployed = Nothing, _dsapDomainName = pDomainName_}
+    {_dsapDeployed = Nothing, _dsapDomainName = pDomainName_}
 
 
 -- | Whether to display the deployed configuration (@true@ ) or include any pending changes (@false@ ). Defaults to @false@ .
 dsapDeployed :: Lens' DescribeServiceAccessPolicies (Maybe Bool)
-dsapDeployed = lens _dsapDeployed (\ s a -> s{_dsapDeployed = a});
+dsapDeployed = lens _dsapDeployed (\ s a -> s{_dsapDeployed = a})
 
 -- | The name of the domain you want to describe.
 dsapDomainName :: Lens' DescribeServiceAccessPolicies Text
-dsapDomainName = lens _dsapDomainName (\ s a -> s{_dsapDomainName = a});
+dsapDomainName = lens _dsapDomainName (\ s a -> s{_dsapDomainName = a})
 
 instance AWSRequest DescribeServiceAccessPolicies
          where
@@ -135,18 +135,18 @@
     -> DescribeServiceAccessPoliciesResponse
 describeServiceAccessPoliciesResponse pResponseStatus_ pAccessPolicies_ =
   DescribeServiceAccessPoliciesResponse'
-  { _dsaprsResponseStatus = pResponseStatus_
-  , _dsaprsAccessPolicies = pAccessPolicies_
-  }
+    { _dsaprsResponseStatus = pResponseStatus_
+    , _dsaprsAccessPolicies = pAccessPolicies_
+    }
 
 
 -- | -- | The response status code.
 dsaprsResponseStatus :: Lens' DescribeServiceAccessPoliciesResponse Int
-dsaprsResponseStatus = lens _dsaprsResponseStatus (\ s a -> s{_dsaprsResponseStatus = a});
+dsaprsResponseStatus = lens _dsaprsResponseStatus (\ s a -> s{_dsaprsResponseStatus = a})
 
 -- | The access rules configured for the domain specified in the request.
 dsaprsAccessPolicies :: Lens' DescribeServiceAccessPoliciesResponse AccessPoliciesStatus
-dsaprsAccessPolicies = lens _dsaprsAccessPolicies (\ s a -> s{_dsaprsAccessPolicies = a});
+dsaprsAccessPolicies = lens _dsaprsAccessPolicies (\ s a -> s{_dsaprsAccessPolicies = a})
 
 instance NFData DescribeServiceAccessPoliciesResponse
          where
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
@@ -12,7 +12,7 @@
 
 -- |
 -- Module      : Network.AWS.CloudSearch.DescribeSuggesters
--- Copyright   : (c) 2013-2017 Brendan Hay
+-- Copyright   : (c) 2013-2018 Brendan Hay
 -- License     : Mozilla Public License, v. 2.0.
 -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com>
 -- Stability   : auto-generated
@@ -72,23 +72,23 @@
     -> DescribeSuggesters
 describeSuggesters pDomainName_ =
   DescribeSuggesters'
-  { _dssDeployed = Nothing
-  , _dssSuggesterNames = Nothing
-  , _dssDomainName = pDomainName_
-  }
+    { _dssDeployed = Nothing
+    , _dssSuggesterNames = Nothing
+    , _dssDomainName = pDomainName_
+    }
 
 
 -- | Whether to display the deployed configuration (@true@ ) or include any pending changes (@false@ ). Defaults to @false@ .
 dssDeployed :: Lens' DescribeSuggesters (Maybe Bool)
-dssDeployed = lens _dssDeployed (\ s a -> s{_dssDeployed = a});
+dssDeployed = lens _dssDeployed (\ s a -> s{_dssDeployed = a})
 
 -- | The suggesters you want to describe.
 dssSuggesterNames :: Lens' DescribeSuggesters [Text]
-dssSuggesterNames = lens _dssSuggesterNames (\ s a -> s{_dssSuggesterNames = a}) . _Default . _Coerce;
+dssSuggesterNames = lens _dssSuggesterNames (\ s a -> s{_dssSuggesterNames = a}) . _Default . _Coerce
 
 -- | The name of the domain you want to describe.
 dssDomainName :: Lens' DescribeSuggesters Text
-dssDomainName = lens _dssDomainName (\ s a -> s{_dssDomainName = a});
+dssDomainName = lens _dssDomainName (\ s a -> s{_dssDomainName = a})
 
 instance AWSRequest DescribeSuggesters where
         type Rs DescribeSuggesters =
@@ -146,15 +146,15 @@
     -> DescribeSuggestersResponse
 describeSuggestersResponse pResponseStatus_ =
   DescribeSuggestersResponse'
-  {_dssrsResponseStatus = pResponseStatus_, _dssrsSuggesters = mempty}
+    {_dssrsResponseStatus = pResponseStatus_, _dssrsSuggesters = mempty}
 
 
 -- | -- | The response status code.
 dssrsResponseStatus :: Lens' DescribeSuggestersResponse Int
-dssrsResponseStatus = lens _dssrsResponseStatus (\ s a -> s{_dssrsResponseStatus = a});
+dssrsResponseStatus = lens _dssrsResponseStatus (\ s a -> s{_dssrsResponseStatus = a})
 
 -- | The suggesters configured for the domain specified in the request.
 dssrsSuggesters :: Lens' DescribeSuggestersResponse [SuggesterStatus]
-dssrsSuggesters = lens _dssrsSuggesters (\ s a -> s{_dssrsSuggesters = a}) . _Coerce;
+dssrsSuggesters = lens _dssrsSuggesters (\ s a -> s{_dssrsSuggesters = a}) . _Coerce
 
 instance NFData DescribeSuggestersResponse where
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
@@ -12,7 +12,7 @@
 
 -- |
 -- Module      : Network.AWS.CloudSearch.IndexDocuments
--- Copyright   : (c) 2013-2017 Brendan Hay
+-- Copyright   : (c) 2013-2018 Brendan Hay
 -- License     : Mozilla Public License, v. 2.0.
 -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com>
 -- Stability   : auto-generated
@@ -67,7 +67,7 @@
 
 -- | Undocumented member.
 idDomainName :: Lens' IndexDocuments Text
-idDomainName = lens _idDomainName (\ s a -> s{_idDomainName = a});
+idDomainName = lens _idDomainName (\ s a -> s{_idDomainName = a})
 
 instance AWSRequest IndexDocuments where
         type Rs IndexDocuments = IndexDocumentsResponse
@@ -120,15 +120,15 @@
     -> IndexDocumentsResponse
 indexDocumentsResponse pResponseStatus_ =
   IndexDocumentsResponse'
-  {_idrsFieldNames = Nothing, _idrsResponseStatus = pResponseStatus_}
+    {_idrsFieldNames = Nothing, _idrsResponseStatus = pResponseStatus_}
 
 
 -- | The names of the fields that are currently being indexed.
 idrsFieldNames :: Lens' IndexDocumentsResponse [Text]
-idrsFieldNames = lens _idrsFieldNames (\ s a -> s{_idrsFieldNames = a}) . _Default . _Coerce;
+idrsFieldNames = lens _idrsFieldNames (\ s a -> s{_idrsFieldNames = a}) . _Default . _Coerce
 
 -- | -- | The response status code.
 idrsResponseStatus :: Lens' IndexDocumentsResponse Int
-idrsResponseStatus = lens _idrsResponseStatus (\ s a -> s{_idrsResponseStatus = a});
+idrsResponseStatus = lens _idrsResponseStatus (\ s a -> s{_idrsResponseStatus = a})
 
 instance NFData IndexDocumentsResponse where
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
@@ -12,7 +12,7 @@
 
 -- |
 -- Module      : Network.AWS.CloudSearch.ListDomainNames
--- Copyright   : (c) 2013-2017 Brendan Hay
+-- Copyright   : (c) 2013-2018 Brendan Hay
 -- License     : Mozilla Public License, v. 2.0.
 -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com>
 -- Stability   : auto-generated
@@ -106,15 +106,15 @@
     -> ListDomainNamesResponse
 listDomainNamesResponse pResponseStatus_ =
   ListDomainNamesResponse'
-  {_ldnrsDomainNames = Nothing, _ldnrsResponseStatus = pResponseStatus_}
+    {_ldnrsDomainNames = Nothing, _ldnrsResponseStatus = pResponseStatus_}
 
 
 -- | The names of the search domains owned by an account.
 ldnrsDomainNames :: Lens' ListDomainNamesResponse (HashMap Text Text)
-ldnrsDomainNames = lens _ldnrsDomainNames (\ s a -> s{_ldnrsDomainNames = a}) . _Default . _Map;
+ldnrsDomainNames = lens _ldnrsDomainNames (\ s a -> s{_ldnrsDomainNames = a}) . _Default . _Map
 
 -- | -- | The response status code.
 ldnrsResponseStatus :: Lens' ListDomainNamesResponse Int
-ldnrsResponseStatus = lens _ldnrsResponseStatus (\ s a -> s{_ldnrsResponseStatus = a});
+ldnrsResponseStatus = lens _ldnrsResponseStatus (\ s a -> s{_ldnrsResponseStatus = a})
 
 instance NFData ListDomainNamesResponse where
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
@@ -4,7 +4,7 @@
 
 -- |
 -- Module      : Network.AWS.CloudSearch.Types
--- Copyright   : (c) 2013-2017 Brendan Hay
+-- Copyright   : (c) 2013-2018 Brendan Hay
 -- License     : Mozilla Public License, v. 2.0.
 -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com>
 -- Stability   : auto-generated
@@ -295,24 +295,24 @@
 cloudSearch :: Service
 cloudSearch =
   Service
-  { _svcAbbrev = "CloudSearch"
-  , _svcSigner = v4
-  , _svcPrefix = "cloudsearch"
-  , _svcVersion = "2013-01-01"
-  , _svcEndpoint = defaultEndpoint cloudSearch
-  , _svcTimeout = Just 70
-  , _svcCheck = statusSuccess
-  , _svcError = parseXMLError "CloudSearch"
-  , _svcRetry = retry
-  }
+    { _svcAbbrev = "CloudSearch"
+    , _svcSigner = v4
+    , _svcPrefix = "cloudsearch"
+    , _svcVersion = "2013-01-01"
+    , _svcEndpoint = defaultEndpoint cloudSearch
+    , _svcTimeout = Just 70
+    , _svcCheck = statusSuccess
+    , _svcError = parseXMLError "CloudSearch"
+    , _svcRetry = retry
+    }
   where
     retry =
       Exponential
-      { _retryBase = 5.0e-2
-      , _retryGrowth = 2
-      , _retryAttempts = 5
-      , _retryCheck = check
-      }
+        { _retryBase = 5.0e-2
+        , _retryGrowth = 2
+        , _retryAttempts = 5
+        , _retryCheck = check
+        }
     check e
       | has (hasCode "ThrottledException" . hasStatus 400) e =
         Just "throttled_exception"
@@ -323,6 +323,8 @@
         Just "throttling_exception"
       | has (hasCode "Throttling" . hasStatus 400) e = Just "throttling"
       | has (hasStatus 504) e = Just "gateway_timeout"
+      | has (hasCode "RequestThrottledException" . hasStatus 400) e =
+        Just "request_throttled_exception"
       | has (hasStatus 502) e = Just "bad_gateway"
       | has (hasStatus 503) e = Just "service_unavailable"
       | has (hasStatus 500) e = Just "general_server_error"
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
@@ -9,7 +9,7 @@
 
 -- |
 -- Module      : Network.AWS.CloudSearch.Types.Product
--- Copyright   : (c) 2013-2017 Brendan Hay
+-- Copyright   : (c) 2013-2018 Brendan Hay
 -- License     : Mozilla Public License, v. 2.0.
 -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com>
 -- Stability   : auto-generated
@@ -49,11 +49,11 @@
 
 -- | Undocumented member.
 apsOptions :: Lens' AccessPoliciesStatus Text
-apsOptions = lens _apsOptions (\ s a -> s{_apsOptions = a});
+apsOptions = lens _apsOptions (\ s a -> s{_apsOptions = a})
 
 -- | Undocumented member.
 apsStatus :: Lens' AccessPoliciesStatus OptionStatus
-apsStatus = lens _apsStatus (\ s a -> s{_apsStatus = a});
+apsStatus = lens _apsStatus (\ s a -> s{_apsStatus = a})
 
 instance FromXML AccessPoliciesStatus where
         parseXML x
@@ -95,33 +95,33 @@
     :: AnalysisOptions
 analysisOptions =
   AnalysisOptions'
-  { _aoAlgorithmicStemming = Nothing
-  , _aoStopwords = Nothing
-  , _aoJapaneseTokenizationDictionary = Nothing
-  , _aoSynonyms = Nothing
-  , _aoStemmingDictionary = Nothing
-  }
+    { _aoAlgorithmicStemming = Nothing
+    , _aoStopwords = Nothing
+    , _aoJapaneseTokenizationDictionary = Nothing
+    , _aoSynonyms = Nothing
+    , _aoStemmingDictionary = Nothing
+    }
 
 
 -- | The level of algorithmic stemming to perform: @none@ , @minimal@ , @light@ , or @full@ . The available levels vary depending on the language. For more information, see <http://docs.aws.amazon.com/cloudsearch/latest/developerguide/text-processing.html#text-processing-settings Language Specific Text Processing Settings> in the /Amazon CloudSearch Developer Guide/
 aoAlgorithmicStemming :: Lens' AnalysisOptions (Maybe AlgorithmicStemming)
-aoAlgorithmicStemming = lens _aoAlgorithmicStemming (\ s a -> s{_aoAlgorithmicStemming = a});
+aoAlgorithmicStemming = lens _aoAlgorithmicStemming (\ s a -> s{_aoAlgorithmicStemming = a})
 
 -- | A JSON array of terms to ignore during indexing and searching. For example, @["a", "an", "the", "of"]@ . The stopwords dictionary must explicitly list each word you want to ignore. Wildcards and regular expressions are not supported.
 aoStopwords :: Lens' AnalysisOptions (Maybe Text)
-aoStopwords = lens _aoStopwords (\ s a -> s{_aoStopwords = a});
+aoStopwords = lens _aoStopwords (\ s a -> s{_aoStopwords = 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});
+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 each term in the group is considered a synonym of every other term in the group. The aliases value is an object that contains a collection of string:value pairs where the string specifies a term and the array of values specifies each of the aliases for that term. An alias is considered a synonym of the specified term, but the term is not considered a synonym of the alias. For more information about specifying synonyms, see <http://docs.aws.amazon.com/cloudsearch/latest/developerguide/configuring-analysis-schemes.html#synonyms Synonyms> in the /Amazon CloudSearch Developer Guide/ .
 aoSynonyms :: Lens' AnalysisOptions (Maybe Text)
-aoSynonyms = lens _aoSynonyms (\ s a -> s{_aoSynonyms = a});
+aoSynonyms = lens _aoSynonyms (\ s a -> s{_aoSynonyms = 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});
+aoStemmingDictionary = lens _aoStemmingDictionary (\ s a -> s{_aoStemmingDictionary = a})
 
 instance FromXML AnalysisOptions where
         parseXML x
@@ -172,23 +172,23 @@
     -> AnalysisScheme
 analysisScheme pAnalysisSchemeName_ pAnalysisSchemeLanguage_ =
   AnalysisScheme'
-  { _asAnalysisOptions = Nothing
-  , _asAnalysisSchemeName = pAnalysisSchemeName_
-  , _asAnalysisSchemeLanguage = pAnalysisSchemeLanguage_
-  }
+    { _asAnalysisOptions = Nothing
+    , _asAnalysisSchemeName = pAnalysisSchemeName_
+    , _asAnalysisSchemeLanguage = pAnalysisSchemeLanguage_
+    }
 
 
 -- | Undocumented member.
 asAnalysisOptions :: Lens' AnalysisScheme (Maybe AnalysisOptions)
-asAnalysisOptions = lens _asAnalysisOptions (\ s a -> s{_asAnalysisOptions = a});
+asAnalysisOptions = lens _asAnalysisOptions (\ s a -> s{_asAnalysisOptions = a})
 
 -- | Undocumented member.
 asAnalysisSchemeName :: Lens' AnalysisScheme Text
-asAnalysisSchemeName = lens _asAnalysisSchemeName (\ s a -> s{_asAnalysisSchemeName = a});
+asAnalysisSchemeName = lens _asAnalysisSchemeName (\ s a -> s{_asAnalysisSchemeName = a})
 
 -- | Undocumented member.
 asAnalysisSchemeLanguage :: Lens' AnalysisScheme AnalysisSchemeLanguage
-asAnalysisSchemeLanguage = lens _asAnalysisSchemeLanguage (\ s a -> s{_asAnalysisSchemeLanguage = a});
+asAnalysisSchemeLanguage = lens _asAnalysisSchemeLanguage (\ s a -> s{_asAnalysisSchemeLanguage = a})
 
 instance FromXML AnalysisScheme where
         parseXML x
@@ -237,11 +237,11 @@
 
 -- | Undocumented member.
 assOptions :: Lens' AnalysisSchemeStatus AnalysisScheme
-assOptions = lens _assOptions (\ s a -> s{_assOptions = a});
+assOptions = lens _assOptions (\ s a -> s{_assOptions = a})
 
 -- | Undocumented member.
 assStatus :: Lens' AnalysisSchemeStatus OptionStatus
-assStatus = lens _assStatus (\ s a -> s{_assStatus = a});
+assStatus = lens _assStatus (\ s a -> s{_assStatus = a})
 
 instance FromXML AnalysisSchemeStatus where
         parseXML x
@@ -280,11 +280,11 @@
 
 -- | The availability options configured for the domain.
 aosOptions :: Lens' AvailabilityOptionsStatus Bool
-aosOptions = lens _aosOptions (\ s a -> s{_aosOptions = a});
+aosOptions = lens _aosOptions (\ s a -> s{_aosOptions = a})
 
 -- | Undocumented member.
 aosStatus :: Lens' AvailabilityOptionsStatus OptionStatus
-aosStatus = lens _aosStatus (\ s a -> s{_aosStatus = a});
+aosStatus = lens _aosStatus (\ s a -> s{_aosStatus = a})
 
 instance FromXML AvailabilityOptionsStatus where
         parseXML x
@@ -326,33 +326,33 @@
     :: DateArrayOptions
 dateArrayOptions =
   DateArrayOptions'
-  { _daosSourceFields = Nothing
-  , _daosReturnEnabled = Nothing
-  , _daosFacetEnabled = Nothing
-  , _daosSearchEnabled = Nothing
-  , _daosDefaultValue = Nothing
-  }
+    { _daosSourceFields = Nothing
+    , _daosReturnEnabled = Nothing
+    , _daosFacetEnabled = Nothing
+    , _daosSearchEnabled = Nothing
+    , _daosDefaultValue = Nothing
+    }
 
 
 -- | A list of source fields to map to the field.
 daosSourceFields :: Lens' DateArrayOptions (Maybe Text)
-daosSourceFields = lens _daosSourceFields (\ s a -> s{_daosSourceFields = a});
+daosSourceFields = lens _daosSourceFields (\ s a -> s{_daosSourceFields = a})
 
 -- | Whether the contents of the field can be returned in the search results.
 daosReturnEnabled :: Lens' DateArrayOptions (Maybe Bool)
-daosReturnEnabled = lens _daosReturnEnabled (\ s a -> s{_daosReturnEnabled = a});
+daosReturnEnabled = lens _daosReturnEnabled (\ s a -> s{_daosReturnEnabled = a})
 
 -- | Whether facet information can be returned for the field.
 daosFacetEnabled :: Lens' DateArrayOptions (Maybe Bool)
-daosFacetEnabled = lens _daosFacetEnabled (\ s a -> s{_daosFacetEnabled = a});
+daosFacetEnabled = lens _daosFacetEnabled (\ s a -> s{_daosFacetEnabled = a})
 
 -- | Whether the contents of the field are searchable.
 daosSearchEnabled :: Lens' DateArrayOptions (Maybe Bool)
-daosSearchEnabled = lens _daosSearchEnabled (\ s a -> s{_daosSearchEnabled = a});
+daosSearchEnabled = lens _daosSearchEnabled (\ s a -> s{_daosSearchEnabled = a})
 
 -- | A value to use for the field if the field isn't specified for a document.
 daosDefaultValue :: Lens' DateArrayOptions (Maybe Text)
-daosDefaultValue = lens _daosDefaultValue (\ s a -> s{_daosDefaultValue = a});
+daosDefaultValue = lens _daosDefaultValue (\ s a -> s{_daosDefaultValue = a})
 
 instance FromXML DateArrayOptions where
         parseXML x
@@ -409,38 +409,38 @@
     :: DateOptions
 dateOptions =
   DateOptions'
-  { _doSourceField = Nothing
-  , _doReturnEnabled = Nothing
-  , _doFacetEnabled = Nothing
-  , _doSearchEnabled = Nothing
-  , _doSortEnabled = Nothing
-  , _doDefaultValue = Nothing
-  }
+    { _doSourceField = Nothing
+    , _doReturnEnabled = Nothing
+    , _doFacetEnabled = Nothing
+    , _doSearchEnabled = Nothing
+    , _doSortEnabled = Nothing
+    , _doDefaultValue = Nothing
+    }
 
 
 -- | Undocumented member.
 doSourceField :: Lens' DateOptions (Maybe Text)
-doSourceField = lens _doSourceField (\ s a -> s{_doSourceField = a});
+doSourceField = lens _doSourceField (\ s a -> s{_doSourceField = a})
 
 -- | Whether the contents of the field can be returned in the search results.
 doReturnEnabled :: Lens' DateOptions (Maybe Bool)
-doReturnEnabled = lens _doReturnEnabled (\ s a -> s{_doReturnEnabled = a});
+doReturnEnabled = lens _doReturnEnabled (\ s a -> s{_doReturnEnabled = a})
 
 -- | Whether facet information can be returned for the field.
 doFacetEnabled :: Lens' DateOptions (Maybe Bool)
-doFacetEnabled = lens _doFacetEnabled (\ s a -> s{_doFacetEnabled = a});
+doFacetEnabled = lens _doFacetEnabled (\ s a -> s{_doFacetEnabled = a})
 
 -- | Whether the contents of the field are searchable.
 doSearchEnabled :: Lens' DateOptions (Maybe Bool)
-doSearchEnabled = lens _doSearchEnabled (\ s a -> s{_doSearchEnabled = a});
+doSearchEnabled = lens _doSearchEnabled (\ s a -> s{_doSearchEnabled = a})
 
 -- | Whether the field can be used to sort the search results.
 doSortEnabled :: Lens' DateOptions (Maybe Bool)
-doSortEnabled = lens _doSortEnabled (\ s a -> s{_doSortEnabled = a});
+doSortEnabled = lens _doSortEnabled (\ s a -> s{_doSortEnabled = a})
 
 -- | A value to use for the field if the field isn't specified for a document.
 doDefaultValue :: Lens' DateOptions (Maybe Text)
-doDefaultValue = lens _doDefaultValue (\ s a -> s{_doDefaultValue = a});
+doDefaultValue = lens _doDefaultValue (\ s a -> s{_doDefaultValue = a})
 
 instance FromXML DateOptions where
         parseXML x
@@ -491,23 +491,23 @@
     -> DocumentSuggesterOptions
 documentSuggesterOptions pSourceField_ =
   DocumentSuggesterOptions'
-  { _dsoSortExpression = Nothing
-  , _dsoFuzzyMatching = Nothing
-  , _dsoSourceField = pSourceField_
-  }
+    { _dsoSortExpression = Nothing
+    , _dsoFuzzyMatching = Nothing
+    , _dsoSourceField = pSourceField_
+    }
 
 
 -- | An expression that computes a score for each suggestion to control how they are sorted. The scores are rounded to the nearest integer, with a floor of 0 and a ceiling of 2^31-1. A document's relevance score is not computed for suggestions, so sort expressions cannot reference the @_score@ value. To sort suggestions using a numeric field or existing expression, simply specify the name of the field or expression. If no expression is configured for the suggester, the suggestions are sorted with the closest matches listed first.
 dsoSortExpression :: Lens' DocumentSuggesterOptions (Maybe Text)
-dsoSortExpression = lens _dsoSortExpression (\ s a -> s{_dsoSortExpression = a});
+dsoSortExpression = lens _dsoSortExpression (\ s a -> s{_dsoSortExpression = a})
 
 -- | The level of fuzziness allowed when suggesting matches for a string: @none@ , @low@ , or @high@ . With none, the specified string is treated as an exact prefix. With low, suggestions must differ from the specified string by no more than one character. With high, suggestions can differ by up to two characters. The default is none.
 dsoFuzzyMatching :: Lens' DocumentSuggesterOptions (Maybe SuggesterFuzzyMatching)
-dsoFuzzyMatching = lens _dsoFuzzyMatching (\ s a -> s{_dsoFuzzyMatching = a});
+dsoFuzzyMatching = lens _dsoFuzzyMatching (\ s a -> s{_dsoFuzzyMatching = a})
 
 -- | The name of the index field you want to use for suggestions.
 dsoSourceField :: Lens' DocumentSuggesterOptions Text
-dsoSourceField = lens _dsoSourceField (\ s a -> s{_dsoSourceField = a});
+dsoSourceField = lens _dsoSourceField (\ s a -> s{_dsoSourceField = a})
 
 instance FromXML DocumentSuggesterOptions where
         parseXML x
@@ -584,73 +584,73 @@
     -> DomainStatus
 domainStatus pDomainId_ pDomainName_ pRequiresIndexDocuments_ =
   DomainStatus'
-  { _dsSearchInstanceCount = Nothing
-  , _dsSearchInstanceType = Nothing
-  , _dsDocService = Nothing
-  , _dsARN = Nothing
-  , _dsCreated = Nothing
-  , _dsSearchService = Nothing
-  , _dsLimits = Nothing
-  , _dsSearchPartitionCount = Nothing
-  , _dsDeleted = Nothing
-  , _dsProcessing = Nothing
-  , _dsDomainId = pDomainId_
-  , _dsDomainName = pDomainName_
-  , _dsRequiresIndexDocuments = pRequiresIndexDocuments_
-  }
+    { _dsSearchInstanceCount = Nothing
+    , _dsSearchInstanceType = Nothing
+    , _dsDocService = Nothing
+    , _dsARN = Nothing
+    , _dsCreated = Nothing
+    , _dsSearchService = Nothing
+    , _dsLimits = Nothing
+    , _dsSearchPartitionCount = Nothing
+    , _dsDeleted = Nothing
+    , _dsProcessing = Nothing
+    , _dsDomainId = pDomainId_
+    , _dsDomainName = pDomainName_
+    , _dsRequiresIndexDocuments = pRequiresIndexDocuments_
+    }
 
 
 -- | The number of search instances that are available to process search requests.
 dsSearchInstanceCount :: Lens' DomainStatus (Maybe Natural)
-dsSearchInstanceCount = lens _dsSearchInstanceCount (\ s a -> s{_dsSearchInstanceCount = a}) . mapping _Nat;
+dsSearchInstanceCount = lens _dsSearchInstanceCount (\ s a -> s{_dsSearchInstanceCount = a}) . mapping _Nat
 
 -- | The instance type that is being used to process search requests.
 dsSearchInstanceType :: Lens' DomainStatus (Maybe Text)
-dsSearchInstanceType = lens _dsSearchInstanceType (\ s a -> s{_dsSearchInstanceType = a});
+dsSearchInstanceType = lens _dsSearchInstanceType (\ s a -> s{_dsSearchInstanceType = a})
 
 -- | The service endpoint for updating documents in a search domain.
 dsDocService :: Lens' DomainStatus (Maybe ServiceEndpoint)
-dsDocService = lens _dsDocService (\ s a -> s{_dsDocService = a});
+dsDocService = lens _dsDocService (\ s a -> s{_dsDocService = a})
 
 -- | Undocumented member.
 dsARN :: Lens' DomainStatus (Maybe Text)
-dsARN = lens _dsARN (\ s a -> s{_dsARN = a});
+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 until domain creation is complete.
 dsCreated :: Lens' DomainStatus (Maybe Bool)
-dsCreated = lens _dsCreated (\ s a -> s{_dsCreated = a});
+dsCreated = lens _dsCreated (\ s a -> s{_dsCreated = a})
 
 -- | The service endpoint for requesting search results from a search domain.
 dsSearchService :: Lens' DomainStatus (Maybe ServiceEndpoint)
-dsSearchService = lens _dsSearchService (\ s a -> s{_dsSearchService = a});
+dsSearchService = lens _dsSearchService (\ s a -> s{_dsSearchService = a})
 
 -- | Undocumented member.
 dsLimits :: Lens' DomainStatus (Maybe Limits)
-dsLimits = lens _dsLimits (\ s a -> s{_dsLimits = a});
+dsLimits = lens _dsLimits (\ s a -> s{_dsLimits = a})
 
 -- | The number of partitions across which the search index is spread.
 dsSearchPartitionCount :: Lens' DomainStatus (Maybe Natural)
-dsSearchPartitionCount = lens _dsSearchPartitionCount (\ s a -> s{_dsSearchPartitionCount = a}) . mapping _Nat;
+dsSearchPartitionCount = lens _dsSearchPartitionCount (\ s a -> s{_dsSearchPartitionCount = a}) . mapping _Nat
 
 -- | True if the search domain has been deleted. The system must clean up resources dedicated to the search domain when 'DeleteDomain' is called. Newly deleted search domains are returned from 'DescribeDomains' with a true value for IsDeleted for several minutes until resource cleanup is complete.
 dsDeleted :: Lens' DomainStatus (Maybe Bool)
-dsDeleted = lens _dsDeleted (\ s a -> s{_dsDeleted = a});
+dsDeleted = lens _dsDeleted (\ s a -> s{_dsDeleted = a})
 
 -- | True if processing is being done to activate the current domain configuration.
 dsProcessing :: Lens' DomainStatus (Maybe Bool)
-dsProcessing = lens _dsProcessing (\ s a -> s{_dsProcessing = a});
+dsProcessing = lens _dsProcessing (\ s a -> s{_dsProcessing = a})
 
 -- | Undocumented member.
 dsDomainId :: Lens' DomainStatus Text
-dsDomainId = lens _dsDomainId (\ s a -> s{_dsDomainId = a});
+dsDomainId = lens _dsDomainId (\ s a -> s{_dsDomainId = a})
 
 -- | Undocumented member.
 dsDomainName :: Lens' DomainStatus Text
-dsDomainName = lens _dsDomainName (\ s a -> s{_dsDomainName = a});
+dsDomainName = lens _dsDomainName (\ s a -> s{_dsDomainName = a})
 
 -- | True if 'IndexDocuments' needs to be called to activate the current domain configuration.
 dsRequiresIndexDocuments :: Lens' DomainStatus Bool
-dsRequiresIndexDocuments = lens _dsRequiresIndexDocuments (\ s a -> s{_dsRequiresIndexDocuments = a});
+dsRequiresIndexDocuments = lens _dsRequiresIndexDocuments (\ s a -> s{_dsRequiresIndexDocuments = a})
 
 instance FromXML DomainStatus where
         parseXML x
@@ -704,33 +704,33 @@
     :: DoubleArrayOptions
 doubleArrayOptions =
   DoubleArrayOptions'
-  { _daoSourceFields = Nothing
-  , _daoReturnEnabled = Nothing
-  , _daoFacetEnabled = Nothing
-  , _daoSearchEnabled = Nothing
-  , _daoDefaultValue = Nothing
-  }
+    { _daoSourceFields = Nothing
+    , _daoReturnEnabled = Nothing
+    , _daoFacetEnabled = Nothing
+    , _daoSearchEnabled = Nothing
+    , _daoDefaultValue = Nothing
+    }
 
 
 -- | A list of source fields to map to the field.
 daoSourceFields :: Lens' DoubleArrayOptions (Maybe Text)
-daoSourceFields = lens _daoSourceFields (\ s a -> s{_daoSourceFields = a});
+daoSourceFields = lens _daoSourceFields (\ s a -> s{_daoSourceFields = a})
 
 -- | Whether the contents of the field can be returned in the search results.
 daoReturnEnabled :: Lens' DoubleArrayOptions (Maybe Bool)
-daoReturnEnabled = lens _daoReturnEnabled (\ s a -> s{_daoReturnEnabled = a});
+daoReturnEnabled = lens _daoReturnEnabled (\ s a -> s{_daoReturnEnabled = a})
 
 -- | Whether facet information can be returned for the field.
 daoFacetEnabled :: Lens' DoubleArrayOptions (Maybe Bool)
-daoFacetEnabled = lens _daoFacetEnabled (\ s a -> s{_daoFacetEnabled = a});
+daoFacetEnabled = lens _daoFacetEnabled (\ s a -> s{_daoFacetEnabled = a})
 
 -- | Whether the contents of the field are searchable.
 daoSearchEnabled :: Lens' DoubleArrayOptions (Maybe Bool)
-daoSearchEnabled = lens _daoSearchEnabled (\ s a -> s{_daoSearchEnabled = a});
+daoSearchEnabled = lens _daoSearchEnabled (\ s a -> s{_daoSearchEnabled = a})
 
 -- | A value to use for the field if the field isn't specified for a document.
 daoDefaultValue :: Lens' DoubleArrayOptions (Maybe Double)
-daoDefaultValue = lens _daoDefaultValue (\ s a -> s{_daoDefaultValue = a});
+daoDefaultValue = lens _daoDefaultValue (\ s a -> s{_daoDefaultValue = a})
 
 instance FromXML DoubleArrayOptions where
         parseXML x
@@ -787,38 +787,38 @@
     :: DoubleOptions
 doubleOptions =
   DoubleOptions'
-  { _dSourceField = Nothing
-  , _dReturnEnabled = Nothing
-  , _dFacetEnabled = Nothing
-  , _dSearchEnabled = Nothing
-  , _dSortEnabled = Nothing
-  , _dDefaultValue = Nothing
-  }
+    { _dSourceField = Nothing
+    , _dReturnEnabled = Nothing
+    , _dFacetEnabled = Nothing
+    , _dSearchEnabled = Nothing
+    , _dSortEnabled = Nothing
+    , _dDefaultValue = Nothing
+    }
 
 
 -- | The name of the source field to map to the field.
 dSourceField :: Lens' DoubleOptions (Maybe Text)
-dSourceField = lens _dSourceField (\ s a -> s{_dSourceField = a});
+dSourceField = lens _dSourceField (\ s a -> s{_dSourceField = a})
 
 -- | Whether the contents of the field can be returned in the search results.
 dReturnEnabled :: Lens' DoubleOptions (Maybe Bool)
-dReturnEnabled = lens _dReturnEnabled (\ s a -> s{_dReturnEnabled = a});
+dReturnEnabled = lens _dReturnEnabled (\ s a -> s{_dReturnEnabled = a})
 
 -- | Whether facet information can be returned for the field.
 dFacetEnabled :: Lens' DoubleOptions (Maybe Bool)
-dFacetEnabled = lens _dFacetEnabled (\ s a -> s{_dFacetEnabled = a});
+dFacetEnabled = lens _dFacetEnabled (\ s a -> s{_dFacetEnabled = a})
 
 -- | Whether the contents of the field are searchable.
 dSearchEnabled :: Lens' DoubleOptions (Maybe Bool)
-dSearchEnabled = lens _dSearchEnabled (\ s a -> s{_dSearchEnabled = a});
+dSearchEnabled = lens _dSearchEnabled (\ s a -> s{_dSearchEnabled = a})
 
 -- | Whether the field can be used to sort the search results.
 dSortEnabled :: Lens' DoubleOptions (Maybe Bool)
-dSortEnabled = lens _dSortEnabled (\ s a -> s{_dSortEnabled = a});
+dSortEnabled = lens _dSortEnabled (\ s a -> s{_dSortEnabled = a})
 
 -- | A value to use for the field if the field isn't specified for a document. This can be important if you are using the field in an expression and that field is not present in every document.
 dDefaultValue :: Lens' DoubleOptions (Maybe Double)
-dDefaultValue = lens _dDefaultValue (\ s a -> s{_dDefaultValue = a});
+dDefaultValue = lens _dDefaultValue (\ s a -> s{_dDefaultValue = a})
 
 instance FromXML DoubleOptions where
         parseXML x
@@ -867,16 +867,16 @@
     -> Expression
 expression pExpressionName_ pExpressionValue_ =
   Expression'
-  {_eExpressionName = pExpressionName_, _eExpressionValue = pExpressionValue_}
+    {_eExpressionName = pExpressionName_, _eExpressionValue = pExpressionValue_}
 
 
 -- | Undocumented member.
 eExpressionName :: Lens' Expression Text
-eExpressionName = lens _eExpressionName (\ s a -> s{_eExpressionName = a});
+eExpressionName = lens _eExpressionName (\ s a -> s{_eExpressionName = a})
 
 -- | Undocumented member.
 eExpressionValue :: Lens' Expression Text
-eExpressionValue = lens _eExpressionValue (\ s a -> s{_eExpressionValue = a});
+eExpressionValue = lens _eExpressionValue (\ s a -> s{_eExpressionValue = a})
 
 instance FromXML Expression where
         parseXML x
@@ -921,11 +921,11 @@
 
 -- | The expression that is evaluated for sorting while processing a search request.
 esOptions :: Lens' ExpressionStatus Expression
-esOptions = lens _esOptions (\ s a -> s{_esOptions = a});
+esOptions = lens _esOptions (\ s a -> s{_esOptions = a})
 
 -- | Undocumented member.
 esStatus :: Lens' ExpressionStatus OptionStatus
-esStatus = lens _esStatus (\ s a -> s{_esStatus = a});
+esStatus = lens _esStatus (\ s a -> s{_esStatus = a})
 
 instance FromXML ExpressionStatus where
         parseXML x
@@ -993,73 +993,73 @@
     -> IndexField
 indexField pIndexFieldName_ pIndexFieldType_ =
   IndexField'
-  { _ifDoubleArrayOptions = Nothing
-  , _ifDateOptions = Nothing
-  , _ifTextArrayOptions = Nothing
-  , _ifDoubleOptions = Nothing
-  , _ifTextOptions = Nothing
-  , _ifLatLonOptions = Nothing
-  , _ifLiteralArrayOptions = Nothing
-  , _ifIntArrayOptions = Nothing
-  , _ifDateArrayOptions = Nothing
-  , _ifIntOptions = Nothing
-  , _ifLiteralOptions = Nothing
-  , _ifIndexFieldName = pIndexFieldName_
-  , _ifIndexFieldType = pIndexFieldType_
-  }
+    { _ifDoubleArrayOptions = Nothing
+    , _ifDateOptions = Nothing
+    , _ifTextArrayOptions = Nothing
+    , _ifDoubleOptions = Nothing
+    , _ifTextOptions = Nothing
+    , _ifLatLonOptions = Nothing
+    , _ifLiteralArrayOptions = Nothing
+    , _ifIntArrayOptions = Nothing
+    , _ifDateArrayOptions = Nothing
+    , _ifIntOptions = Nothing
+    , _ifLiteralOptions = Nothing
+    , _ifIndexFieldName = pIndexFieldName_
+    , _ifIndexFieldType = pIndexFieldType_
+    }
 
 
 -- | Undocumented member.
 ifDoubleArrayOptions :: Lens' IndexField (Maybe DoubleArrayOptions)
-ifDoubleArrayOptions = lens _ifDoubleArrayOptions (\ s a -> s{_ifDoubleArrayOptions = a});
+ifDoubleArrayOptions = lens _ifDoubleArrayOptions (\ s a -> s{_ifDoubleArrayOptions = a})
 
 -- | Undocumented member.
 ifDateOptions :: Lens' IndexField (Maybe DateOptions)
-ifDateOptions = lens _ifDateOptions (\ s a -> s{_ifDateOptions = a});
+ifDateOptions = lens _ifDateOptions (\ s a -> s{_ifDateOptions = a})
 
 -- | Undocumented member.
 ifTextArrayOptions :: Lens' IndexField (Maybe TextArrayOptions)
-ifTextArrayOptions = lens _ifTextArrayOptions (\ s a -> s{_ifTextArrayOptions = a});
+ifTextArrayOptions = lens _ifTextArrayOptions (\ s a -> s{_ifTextArrayOptions = a})
 
 -- | Undocumented member.
 ifDoubleOptions :: Lens' IndexField (Maybe DoubleOptions)
-ifDoubleOptions = lens _ifDoubleOptions (\ s a -> s{_ifDoubleOptions = a});
+ifDoubleOptions = lens _ifDoubleOptions (\ s a -> s{_ifDoubleOptions = a})
 
 -- | Undocumented member.
 ifTextOptions :: Lens' IndexField (Maybe TextOptions)
-ifTextOptions = lens _ifTextOptions (\ s a -> s{_ifTextOptions = a});
+ifTextOptions = lens _ifTextOptions (\ s a -> s{_ifTextOptions = a})
 
 -- | Undocumented member.
 ifLatLonOptions :: Lens' IndexField (Maybe LatLonOptions)
-ifLatLonOptions = lens _ifLatLonOptions (\ s a -> s{_ifLatLonOptions = a});
+ifLatLonOptions = lens _ifLatLonOptions (\ s a -> s{_ifLatLonOptions = a})
 
 -- | Undocumented member.
 ifLiteralArrayOptions :: Lens' IndexField (Maybe LiteralArrayOptions)
-ifLiteralArrayOptions = lens _ifLiteralArrayOptions (\ s a -> s{_ifLiteralArrayOptions = a});
+ifLiteralArrayOptions = lens _ifLiteralArrayOptions (\ s a -> s{_ifLiteralArrayOptions = a})
 
 -- | Undocumented member.
 ifIntArrayOptions :: Lens' IndexField (Maybe IntArrayOptions)
-ifIntArrayOptions = lens _ifIntArrayOptions (\ s a -> s{_ifIntArrayOptions = a});
+ifIntArrayOptions = lens _ifIntArrayOptions (\ s a -> s{_ifIntArrayOptions = a})
 
 -- | Undocumented member.
 ifDateArrayOptions :: Lens' IndexField (Maybe DateArrayOptions)
-ifDateArrayOptions = lens _ifDateArrayOptions (\ s a -> s{_ifDateArrayOptions = a});
+ifDateArrayOptions = lens _ifDateArrayOptions (\ s a -> s{_ifDateArrayOptions = a})
 
 -- | Undocumented member.
 ifIntOptions :: Lens' IndexField (Maybe IntOptions)
-ifIntOptions = lens _ifIntOptions (\ s a -> s{_ifIntOptions = a});
+ifIntOptions = lens _ifIntOptions (\ s a -> s{_ifIntOptions = a})
 
 -- | Undocumented member.
 ifLiteralOptions :: Lens' IndexField (Maybe LiteralOptions)
-ifLiteralOptions = lens _ifLiteralOptions (\ s a -> s{_ifLiteralOptions = a});
+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 document fields that don't map to a regular index field but do match a dynamic field's pattern are configured with the dynamic field's indexing options.  Regular field names begin with a letter and can contain the following characters: a-z (lowercase), 0-9, and _ (underscore). Dynamic field names must begin or end with a wildcard (*). The wildcard can also be the only character in a dynamic field name. Multiple wildcards, and wildcards embedded within a string are not supported.  The name @score@ is reserved and cannot be used as a field name. To reference a document's ID, you can use the name @_id@ .
 ifIndexFieldName :: Lens' IndexField Text
-ifIndexFieldName = lens _ifIndexFieldName (\ s a -> s{_ifIndexFieldName = a});
+ifIndexFieldName = lens _ifIndexFieldName (\ s a -> s{_ifIndexFieldName = a})
 
 -- | Undocumented member.
 ifIndexFieldType :: Lens' IndexField IndexFieldType
-ifIndexFieldType = lens _ifIndexFieldType (\ s a -> s{_ifIndexFieldType = a});
+ifIndexFieldType = lens _ifIndexFieldType (\ s a -> s{_ifIndexFieldType = a})
 
 instance FromXML IndexField where
         parseXML x
@@ -1127,11 +1127,11 @@
 
 -- | Undocumented member.
 ifsOptions :: Lens' IndexFieldStatus IndexField
-ifsOptions = lens _ifsOptions (\ s a -> s{_ifsOptions = a});
+ifsOptions = lens _ifsOptions (\ s a -> s{_ifsOptions = a})
 
 -- | Undocumented member.
 ifsStatus :: Lens' IndexFieldStatus OptionStatus
-ifsStatus = lens _ifsStatus (\ s a -> s{_ifsStatus = a});
+ifsStatus = lens _ifsStatus (\ s a -> s{_ifsStatus = a})
 
 instance FromXML IndexFieldStatus where
         parseXML x
@@ -1173,33 +1173,33 @@
     :: IntArrayOptions
 intArrayOptions =
   IntArrayOptions'
-  { _iaoSourceFields = Nothing
-  , _iaoReturnEnabled = Nothing
-  , _iaoFacetEnabled = Nothing
-  , _iaoSearchEnabled = Nothing
-  , _iaoDefaultValue = Nothing
-  }
+    { _iaoSourceFields = Nothing
+    , _iaoReturnEnabled = Nothing
+    , _iaoFacetEnabled = Nothing
+    , _iaoSearchEnabled = Nothing
+    , _iaoDefaultValue = Nothing
+    }
 
 
 -- | A list of source fields to map to the field.
 iaoSourceFields :: Lens' IntArrayOptions (Maybe Text)
-iaoSourceFields = lens _iaoSourceFields (\ s a -> s{_iaoSourceFields = a});
+iaoSourceFields = lens _iaoSourceFields (\ s a -> s{_iaoSourceFields = a})
 
 -- | Whether the contents of the field can be returned in the search results.
 iaoReturnEnabled :: Lens' IntArrayOptions (Maybe Bool)
-iaoReturnEnabled = lens _iaoReturnEnabled (\ s a -> s{_iaoReturnEnabled = a});
+iaoReturnEnabled = lens _iaoReturnEnabled (\ s a -> s{_iaoReturnEnabled = a})
 
 -- | Whether facet information can be returned for the field.
 iaoFacetEnabled :: Lens' IntArrayOptions (Maybe Bool)
-iaoFacetEnabled = lens _iaoFacetEnabled (\ s a -> s{_iaoFacetEnabled = a});
+iaoFacetEnabled = lens _iaoFacetEnabled (\ s a -> s{_iaoFacetEnabled = a})
 
 -- | Whether the contents of the field are searchable.
 iaoSearchEnabled :: Lens' IntArrayOptions (Maybe Bool)
-iaoSearchEnabled = lens _iaoSearchEnabled (\ s a -> s{_iaoSearchEnabled = a});
+iaoSearchEnabled = lens _iaoSearchEnabled (\ s a -> s{_iaoSearchEnabled = a})
 
 -- | A value to use for the field if the field isn't specified for a document.
 iaoDefaultValue :: Lens' IntArrayOptions (Maybe Integer)
-iaoDefaultValue = lens _iaoDefaultValue (\ s a -> s{_iaoDefaultValue = a});
+iaoDefaultValue = lens _iaoDefaultValue (\ s a -> s{_iaoDefaultValue = a})
 
 instance FromXML IntArrayOptions where
         parseXML x
@@ -1256,38 +1256,38 @@
     :: IntOptions
 intOptions =
   IntOptions'
-  { _ioSourceField = Nothing
-  , _ioReturnEnabled = Nothing
-  , _ioFacetEnabled = Nothing
-  , _ioSearchEnabled = Nothing
-  , _ioSortEnabled = Nothing
-  , _ioDefaultValue = Nothing
-  }
+    { _ioSourceField = Nothing
+    , _ioReturnEnabled = Nothing
+    , _ioFacetEnabled = Nothing
+    , _ioSearchEnabled = Nothing
+    , _ioSortEnabled = Nothing
+    , _ioDefaultValue = Nothing
+    }
 
 
 -- | The name of the source field to map to the field.
 ioSourceField :: Lens' IntOptions (Maybe Text)
-ioSourceField = lens _ioSourceField (\ s a -> s{_ioSourceField = a});
+ioSourceField = lens _ioSourceField (\ s a -> s{_ioSourceField = a})
 
 -- | Whether the contents of the field can be returned in the search results.
 ioReturnEnabled :: Lens' IntOptions (Maybe Bool)
-ioReturnEnabled = lens _ioReturnEnabled (\ s a -> s{_ioReturnEnabled = a});
+ioReturnEnabled = lens _ioReturnEnabled (\ s a -> s{_ioReturnEnabled = a})
 
 -- | Whether facet information can be returned for the field.
 ioFacetEnabled :: Lens' IntOptions (Maybe Bool)
-ioFacetEnabled = lens _ioFacetEnabled (\ s a -> s{_ioFacetEnabled = a});
+ioFacetEnabled = lens _ioFacetEnabled (\ s a -> s{_ioFacetEnabled = a})
 
 -- | Whether the contents of the field are searchable.
 ioSearchEnabled :: Lens' IntOptions (Maybe Bool)
-ioSearchEnabled = lens _ioSearchEnabled (\ s a -> s{_ioSearchEnabled = a});
+ioSearchEnabled = lens _ioSearchEnabled (\ s a -> s{_ioSearchEnabled = a})
 
 -- | Whether the field can be used to sort the search results.
 ioSortEnabled :: Lens' IntOptions (Maybe Bool)
-ioSortEnabled = lens _ioSortEnabled (\ s a -> s{_ioSortEnabled = a});
+ioSortEnabled = lens _ioSortEnabled (\ s a -> s{_ioSortEnabled = a})
 
 -- | A value to use for the field if the field isn't specified for a document. This can be important if you are using the field in an expression and that field is not present in every document.
 ioDefaultValue :: Lens' IntOptions (Maybe Integer)
-ioDefaultValue = lens _ioDefaultValue (\ s a -> s{_ioDefaultValue = a});
+ioDefaultValue = lens _ioDefaultValue (\ s a -> s{_ioDefaultValue = a})
 
 instance FromXML IntOptions where
         parseXML x
@@ -1346,38 +1346,38 @@
     :: LatLonOptions
 latLonOptions =
   LatLonOptions'
-  { _lloSourceField = Nothing
-  , _lloReturnEnabled = Nothing
-  , _lloFacetEnabled = Nothing
-  , _lloSearchEnabled = Nothing
-  , _lloSortEnabled = Nothing
-  , _lloDefaultValue = Nothing
-  }
+    { _lloSourceField = Nothing
+    , _lloReturnEnabled = Nothing
+    , _lloFacetEnabled = Nothing
+    , _lloSearchEnabled = Nothing
+    , _lloSortEnabled = Nothing
+    , _lloDefaultValue = Nothing
+    }
 
 
 -- | Undocumented member.
 lloSourceField :: Lens' LatLonOptions (Maybe Text)
-lloSourceField = lens _lloSourceField (\ s a -> s{_lloSourceField = a});
+lloSourceField = lens _lloSourceField (\ s a -> s{_lloSourceField = a})
 
 -- | Whether the contents of the field can be returned in the search results.
 lloReturnEnabled :: Lens' LatLonOptions (Maybe Bool)
-lloReturnEnabled = lens _lloReturnEnabled (\ s a -> s{_lloReturnEnabled = a});
+lloReturnEnabled = lens _lloReturnEnabled (\ s a -> s{_lloReturnEnabled = a})
 
 -- | Whether facet information can be returned for the field.
 lloFacetEnabled :: Lens' LatLonOptions (Maybe Bool)
-lloFacetEnabled = lens _lloFacetEnabled (\ s a -> s{_lloFacetEnabled = a});
+lloFacetEnabled = lens _lloFacetEnabled (\ s a -> s{_lloFacetEnabled = a})
 
 -- | Whether the contents of the field are searchable.
 lloSearchEnabled :: Lens' LatLonOptions (Maybe Bool)
-lloSearchEnabled = lens _lloSearchEnabled (\ s a -> s{_lloSearchEnabled = a});
+lloSearchEnabled = lens _lloSearchEnabled (\ s a -> s{_lloSearchEnabled = a})
 
 -- | Whether the field can be used to sort the search results.
 lloSortEnabled :: Lens' LatLonOptions (Maybe Bool)
-lloSortEnabled = lens _lloSortEnabled (\ s a -> s{_lloSortEnabled = a});
+lloSortEnabled = lens _lloSortEnabled (\ s a -> s{_lloSortEnabled = a})
 
 -- | A value to use for the field if the field isn't specified for a document.
 lloDefaultValue :: Lens' LatLonOptions (Maybe Text)
-lloDefaultValue = lens _lloDefaultValue (\ s a -> s{_lloDefaultValue = a});
+lloDefaultValue = lens _lloDefaultValue (\ s a -> s{_lloDefaultValue = a})
 
 instance FromXML LatLonOptions where
         parseXML x
@@ -1422,18 +1422,18 @@
     -> Limits
 limits pMaximumReplicationCount_ pMaximumPartitionCount_ =
   Limits'
-  { _lMaximumReplicationCount = _Nat # pMaximumReplicationCount_
-  , _lMaximumPartitionCount = _Nat # pMaximumPartitionCount_
-  }
+    { _lMaximumReplicationCount = _Nat # pMaximumReplicationCount_
+    , _lMaximumPartitionCount = _Nat # pMaximumPartitionCount_
+    }
 
 
 -- | Undocumented member.
 lMaximumReplicationCount :: Lens' Limits Natural
-lMaximumReplicationCount = lens _lMaximumReplicationCount (\ s a -> s{_lMaximumReplicationCount = a}) . _Nat;
+lMaximumReplicationCount = lens _lMaximumReplicationCount (\ s a -> s{_lMaximumReplicationCount = a}) . _Nat
 
 -- | Undocumented member.
 lMaximumPartitionCount :: Lens' Limits Natural
-lMaximumPartitionCount = lens _lMaximumPartitionCount (\ s a -> s{_lMaximumPartitionCount = a}) . _Nat;
+lMaximumPartitionCount = lens _lMaximumPartitionCount (\ s a -> s{_lMaximumPartitionCount = a}) . _Nat
 
 instance FromXML Limits where
         parseXML x
@@ -1476,33 +1476,33 @@
     :: LiteralArrayOptions
 literalArrayOptions =
   LiteralArrayOptions'
-  { _laoSourceFields = Nothing
-  , _laoReturnEnabled = Nothing
-  , _laoFacetEnabled = Nothing
-  , _laoSearchEnabled = Nothing
-  , _laoDefaultValue = Nothing
-  }
+    { _laoSourceFields = Nothing
+    , _laoReturnEnabled = Nothing
+    , _laoFacetEnabled = Nothing
+    , _laoSearchEnabled = Nothing
+    , _laoDefaultValue = Nothing
+    }
 
 
 -- | A list of source fields to map to the field.
 laoSourceFields :: Lens' LiteralArrayOptions (Maybe Text)
-laoSourceFields = lens _laoSourceFields (\ s a -> s{_laoSourceFields = a});
+laoSourceFields = lens _laoSourceFields (\ s a -> s{_laoSourceFields = a})
 
 -- | Whether the contents of the field can be returned in the search results.
 laoReturnEnabled :: Lens' LiteralArrayOptions (Maybe Bool)
-laoReturnEnabled = lens _laoReturnEnabled (\ s a -> s{_laoReturnEnabled = a});
+laoReturnEnabled = lens _laoReturnEnabled (\ s a -> s{_laoReturnEnabled = a})
 
 -- | Whether facet information can be returned for the field.
 laoFacetEnabled :: Lens' LiteralArrayOptions (Maybe Bool)
-laoFacetEnabled = lens _laoFacetEnabled (\ s a -> s{_laoFacetEnabled = a});
+laoFacetEnabled = lens _laoFacetEnabled (\ s a -> s{_laoFacetEnabled = a})
 
 -- | Whether the contents of the field are searchable.
 laoSearchEnabled :: Lens' LiteralArrayOptions (Maybe Bool)
-laoSearchEnabled = lens _laoSearchEnabled (\ s a -> s{_laoSearchEnabled = a});
+laoSearchEnabled = lens _laoSearchEnabled (\ s a -> s{_laoSearchEnabled = a})
 
 -- | A value to use for the field if the field isn't specified for a document.
 laoDefaultValue :: Lens' LiteralArrayOptions (Maybe Text)
-laoDefaultValue = lens _laoDefaultValue (\ s a -> s{_laoDefaultValue = a});
+laoDefaultValue = lens _laoDefaultValue (\ s a -> s{_laoDefaultValue = a})
 
 instance FromXML LiteralArrayOptions where
         parseXML x
@@ -1559,38 +1559,38 @@
     :: LiteralOptions
 literalOptions =
   LiteralOptions'
-  { _loSourceField = Nothing
-  , _loReturnEnabled = Nothing
-  , _loFacetEnabled = Nothing
-  , _loSearchEnabled = Nothing
-  , _loSortEnabled = Nothing
-  , _loDefaultValue = Nothing
-  }
+    { _loSourceField = Nothing
+    , _loReturnEnabled = Nothing
+    , _loFacetEnabled = Nothing
+    , _loSearchEnabled = Nothing
+    , _loSortEnabled = Nothing
+    , _loDefaultValue = Nothing
+    }
 
 
 -- | Undocumented member.
 loSourceField :: Lens' LiteralOptions (Maybe Text)
-loSourceField = lens _loSourceField (\ s a -> s{_loSourceField = a});
+loSourceField = lens _loSourceField (\ s a -> s{_loSourceField = a})
 
 -- | Whether the contents of the field can be returned in the search results.
 loReturnEnabled :: Lens' LiteralOptions (Maybe Bool)
-loReturnEnabled = lens _loReturnEnabled (\ s a -> s{_loReturnEnabled = a});
+loReturnEnabled = lens _loReturnEnabled (\ s a -> s{_loReturnEnabled = a})
 
 -- | Whether facet information can be returned for the field.
 loFacetEnabled :: Lens' LiteralOptions (Maybe Bool)
-loFacetEnabled = lens _loFacetEnabled (\ s a -> s{_loFacetEnabled = a});
+loFacetEnabled = lens _loFacetEnabled (\ s a -> s{_loFacetEnabled = a})
 
 -- | Whether the contents of the field are searchable.
 loSearchEnabled :: Lens' LiteralOptions (Maybe Bool)
-loSearchEnabled = lens _loSearchEnabled (\ s a -> s{_loSearchEnabled = a});
+loSearchEnabled = lens _loSearchEnabled (\ s a -> s{_loSearchEnabled = a})
 
 -- | Whether the field can be used to sort the search results.
 loSortEnabled :: Lens' LiteralOptions (Maybe Bool)
-loSortEnabled = lens _loSortEnabled (\ s a -> s{_loSortEnabled = a});
+loSortEnabled = lens _loSortEnabled (\ s a -> s{_loSortEnabled = a})
 
 -- | A value to use for the field if the field isn't specified for a document.
 loDefaultValue :: Lens' LiteralOptions (Maybe Text)
-loDefaultValue = lens _loDefaultValue (\ s a -> s{_loDefaultValue = a});
+loDefaultValue = lens _loDefaultValue (\ s a -> s{_loDefaultValue = a})
 
 instance FromXML LiteralOptions where
         parseXML x
@@ -1649,33 +1649,33 @@
     -> OptionStatus
 optionStatus pCreationDate_ pUpdateDate_ pState_ =
   OptionStatus'
-  { _osPendingDeletion = Nothing
-  , _osUpdateVersion = Nothing
-  , _osCreationDate = _Time # pCreationDate_
-  , _osUpdateDate = _Time # pUpdateDate_
-  , _osState = pState_
-  }
+    { _osPendingDeletion = Nothing
+    , _osUpdateVersion = Nothing
+    , _osCreationDate = _Time # pCreationDate_
+    , _osUpdateDate = _Time # pUpdateDate_
+    , _osState = pState_
+    }
 
 
 -- | Indicates that the option will be deleted once processing is complete.
 osPendingDeletion :: Lens' OptionStatus (Maybe Bool)
-osPendingDeletion = lens _osPendingDeletion (\ s a -> s{_osPendingDeletion = a});
+osPendingDeletion = lens _osPendingDeletion (\ s a -> s{_osPendingDeletion = a})
 
 -- | A unique integer that indicates when this option was last updated.
 osUpdateVersion :: Lens' OptionStatus (Maybe Natural)
-osUpdateVersion = lens _osUpdateVersion (\ s a -> s{_osUpdateVersion = a}) . mapping _Nat;
+osUpdateVersion = lens _osUpdateVersion (\ s a -> s{_osUpdateVersion = a}) . mapping _Nat
 
 -- | A timestamp for when this option was created.
 osCreationDate :: Lens' OptionStatus UTCTime
-osCreationDate = lens _osCreationDate (\ s a -> s{_osCreationDate = a}) . _Time;
+osCreationDate = lens _osCreationDate (\ s a -> s{_osCreationDate = a}) . _Time
 
 -- | A timestamp for when this option was last updated.
 osUpdateDate :: Lens' OptionStatus UTCTime
-osUpdateDate = lens _osUpdateDate (\ s a -> s{_osUpdateDate = a}) . _Time;
+osUpdateDate = lens _osUpdateDate (\ s a -> s{_osUpdateDate = a}) . _Time
 
 -- | The state of processing a change to an option. Possible values:     * @RequiresIndexDocuments@ : the option's latest value will not be deployed until 'IndexDocuments' has been called and indexing is complete.    * @Processing@ : the option's latest value is in the process of being activated.     * @Active@ : the option's latest value is completely deployed.    * @FailedToValidate@ : the option value is not compatible with the domain's data and cannot be used to index the data. You must either modify the option value or update or remove the incompatible documents.
 osState :: Lens' OptionStatus OptionState
-osState = lens _osState (\ s a -> s{_osState = a});
+osState = lens _osState (\ s a -> s{_osState = a})
 
 instance FromXML OptionStatus where
         parseXML x
@@ -1714,23 +1714,23 @@
     :: ScalingParameters
 scalingParameters =
   ScalingParameters'
-  { _spDesiredInstanceType = Nothing
-  , _spDesiredReplicationCount = Nothing
-  , _spDesiredPartitionCount = Nothing
-  }
+    { _spDesiredInstanceType = Nothing
+    , _spDesiredReplicationCount = Nothing
+    , _spDesiredPartitionCount = Nothing
+    }
 
 
 -- | The instance type that you want to preconfigure for your domain. For example, @search.m1.small@ .
 spDesiredInstanceType :: Lens' ScalingParameters (Maybe PartitionInstanceType)
-spDesiredInstanceType = lens _spDesiredInstanceType (\ s a -> s{_spDesiredInstanceType = a});
+spDesiredInstanceType = lens _spDesiredInstanceType (\ s a -> s{_spDesiredInstanceType = a})
 
 -- | The number of replicas you want to preconfigure for each index partition.
 spDesiredReplicationCount :: Lens' ScalingParameters (Maybe Natural)
-spDesiredReplicationCount = lens _spDesiredReplicationCount (\ s a -> s{_spDesiredReplicationCount = a}) . mapping _Nat;
+spDesiredReplicationCount = lens _spDesiredReplicationCount (\ s a -> s{_spDesiredReplicationCount = a}) . mapping _Nat
 
 -- | The number of partitions you want to preconfigure for your domain. Only valid when you select @m2.2xlarge@ as the desired instance type.
 spDesiredPartitionCount :: Lens' ScalingParameters (Maybe Natural)
-spDesiredPartitionCount = lens _spDesiredPartitionCount (\ s a -> s{_spDesiredPartitionCount = a}) . mapping _Nat;
+spDesiredPartitionCount = lens _spDesiredPartitionCount (\ s a -> s{_spDesiredPartitionCount = a}) . mapping _Nat
 
 instance FromXML ScalingParameters where
         parseXML x
@@ -1779,11 +1779,11 @@
 
 -- | Undocumented member.
 spsOptions :: Lens' ScalingParametersStatus ScalingParameters
-spsOptions = lens _spsOptions (\ s a -> s{_spsOptions = a});
+spsOptions = lens _spsOptions (\ s a -> s{_spsOptions = a})
 
 -- | Undocumented member.
 spsStatus :: Lens' ScalingParametersStatus OptionStatus
-spsStatus = lens _spsStatus (\ s a -> s{_spsStatus = a});
+spsStatus = lens _spsStatus (\ s a -> s{_spsStatus = a})
 
 instance FromXML ScalingParametersStatus where
         parseXML x
@@ -1816,7 +1816,7 @@
 
 -- | Undocumented member.
 seEndpoint :: Lens' ServiceEndpoint (Maybe Text)
-seEndpoint = lens _seEndpoint (\ s a -> s{_seEndpoint = a});
+seEndpoint = lens _seEndpoint (\ s a -> s{_seEndpoint = a})
 
 instance FromXML ServiceEndpoint where
         parseXML x = ServiceEndpoint' <$> (x .@? "Endpoint")
@@ -1849,18 +1849,18 @@
     -> Suggester
 suggester pSuggesterName_ pDocumentSuggesterOptions_ =
   Suggester'
-  { _sSuggesterName = pSuggesterName_
-  , _sDocumentSuggesterOptions = pDocumentSuggesterOptions_
-  }
+    { _sSuggesterName = pSuggesterName_
+    , _sDocumentSuggesterOptions = pDocumentSuggesterOptions_
+    }
 
 
 -- | Undocumented member.
 sSuggesterName :: Lens' Suggester Text
-sSuggesterName = lens _sSuggesterName (\ s a -> s{_sSuggesterName = a});
+sSuggesterName = lens _sSuggesterName (\ s a -> s{_sSuggesterName = a})
 
 -- | Undocumented member.
 sDocumentSuggesterOptions :: Lens' Suggester DocumentSuggesterOptions
-sDocumentSuggesterOptions = lens _sDocumentSuggesterOptions (\ s a -> s{_sDocumentSuggesterOptions = a});
+sDocumentSuggesterOptions = lens _sDocumentSuggesterOptions (\ s a -> s{_sDocumentSuggesterOptions = a})
 
 instance FromXML Suggester where
         parseXML x
@@ -1907,11 +1907,11 @@
 
 -- | Undocumented member.
 ssOptions :: Lens' SuggesterStatus Suggester
-ssOptions = lens _ssOptions (\ s a -> s{_ssOptions = a});
+ssOptions = lens _ssOptions (\ s a -> s{_ssOptions = a})
 
 -- | Undocumented member.
 ssStatus :: Lens' SuggesterStatus OptionStatus
-ssStatus = lens _ssStatus (\ s a -> s{_ssStatus = a});
+ssStatus = lens _ssStatus (\ s a -> s{_ssStatus = a})
 
 instance FromXML SuggesterStatus where
         parseXML x
@@ -1953,33 +1953,33 @@
     :: TextArrayOptions
 textArrayOptions =
   TextArrayOptions'
-  { _taoSourceFields = Nothing
-  , _taoReturnEnabled = Nothing
-  , _taoAnalysisScheme = Nothing
-  , _taoHighlightEnabled = Nothing
-  , _taoDefaultValue = Nothing
-  }
+    { _taoSourceFields = Nothing
+    , _taoReturnEnabled = Nothing
+    , _taoAnalysisScheme = Nothing
+    , _taoHighlightEnabled = Nothing
+    , _taoDefaultValue = Nothing
+    }
 
 
 -- | A list of source fields to map to the field.
 taoSourceFields :: Lens' TextArrayOptions (Maybe Text)
-taoSourceFields = lens _taoSourceFields (\ s a -> s{_taoSourceFields = a});
+taoSourceFields = lens _taoSourceFields (\ s a -> s{_taoSourceFields = a})
 
 -- | Whether the contents of the field can be returned in the search results.
 taoReturnEnabled :: Lens' TextArrayOptions (Maybe Bool)
-taoReturnEnabled = lens _taoReturnEnabled (\ s a -> s{_taoReturnEnabled = a});
+taoReturnEnabled = lens _taoReturnEnabled (\ s a -> s{_taoReturnEnabled = a})
 
 -- | The name of an analysis scheme for a @text-array@ field.
 taoAnalysisScheme :: Lens' TextArrayOptions (Maybe Text)
-taoAnalysisScheme = lens _taoAnalysisScheme (\ s a -> s{_taoAnalysisScheme = a});
+taoAnalysisScheme = lens _taoAnalysisScheme (\ s a -> s{_taoAnalysisScheme = a})
 
 -- | Whether highlights can be returned for the field.
 taoHighlightEnabled :: Lens' TextArrayOptions (Maybe Bool)
-taoHighlightEnabled = lens _taoHighlightEnabled (\ s a -> s{_taoHighlightEnabled = a});
+taoHighlightEnabled = lens _taoHighlightEnabled (\ s a -> s{_taoHighlightEnabled = a})
 
 -- | A value to use for the field if the field isn't specified for a document.
 taoDefaultValue :: Lens' TextArrayOptions (Maybe Text)
-taoDefaultValue = lens _taoDefaultValue (\ s a -> s{_taoDefaultValue = a});
+taoDefaultValue = lens _taoDefaultValue (\ s a -> s{_taoDefaultValue = a})
 
 instance FromXML TextArrayOptions where
         parseXML x
@@ -2036,38 +2036,38 @@
     :: TextOptions
 textOptions =
   TextOptions'
-  { _toSourceField = Nothing
-  , _toReturnEnabled = Nothing
-  , _toAnalysisScheme = Nothing
-  , _toHighlightEnabled = Nothing
-  , _toSortEnabled = Nothing
-  , _toDefaultValue = Nothing
-  }
+    { _toSourceField = Nothing
+    , _toReturnEnabled = Nothing
+    , _toAnalysisScheme = Nothing
+    , _toHighlightEnabled = Nothing
+    , _toSortEnabled = Nothing
+    , _toDefaultValue = Nothing
+    }
 
 
 -- | Undocumented member.
 toSourceField :: Lens' TextOptions (Maybe Text)
-toSourceField = lens _toSourceField (\ s a -> s{_toSourceField = a});
+toSourceField = lens _toSourceField (\ s a -> s{_toSourceField = a})
 
 -- | Whether the contents of the field can be returned in the search results.
 toReturnEnabled :: Lens' TextOptions (Maybe Bool)
-toReturnEnabled = lens _toReturnEnabled (\ s a -> s{_toReturnEnabled = a});
+toReturnEnabled = lens _toReturnEnabled (\ s a -> s{_toReturnEnabled = a})
 
 -- | The name of an analysis scheme for a @text@ field.
 toAnalysisScheme :: Lens' TextOptions (Maybe Text)
-toAnalysisScheme = lens _toAnalysisScheme (\ s a -> s{_toAnalysisScheme = a});
+toAnalysisScheme = lens _toAnalysisScheme (\ s a -> s{_toAnalysisScheme = a})
 
 -- | Whether highlights can be returned for the field.
 toHighlightEnabled :: Lens' TextOptions (Maybe Bool)
-toHighlightEnabled = lens _toHighlightEnabled (\ s a -> s{_toHighlightEnabled = a});
+toHighlightEnabled = lens _toHighlightEnabled (\ s a -> s{_toHighlightEnabled = a})
 
 -- | Whether the field can be used to sort the search results.
 toSortEnabled :: Lens' TextOptions (Maybe Bool)
-toSortEnabled = lens _toSortEnabled (\ s a -> s{_toSortEnabled = a});
+toSortEnabled = lens _toSortEnabled (\ s a -> s{_toSortEnabled = a})
 
 -- | A value to use for the field if the field isn't specified for a document.
 toDefaultValue :: Lens' TextOptions (Maybe Text)
-toDefaultValue = lens _toDefaultValue (\ s a -> s{_toDefaultValue = a});
+toDefaultValue = lens _toDefaultValue (\ s a -> s{_toDefaultValue = a})
 
 instance FromXML TextOptions where
         parseXML x
diff --git a/gen/Network/AWS/CloudSearch/Types/Sum.hs b/gen/Network/AWS/CloudSearch/Types/Sum.hs
--- a/gen/Network/AWS/CloudSearch/Types/Sum.hs
+++ b/gen/Network/AWS/CloudSearch/Types/Sum.hs
@@ -9,7 +9,7 @@
 
 -- |
 -- Module      : Network.AWS.CloudSearch.Types.Sum
--- Copyright   : (c) 2013-2017 Brendan Hay
+-- Copyright   : (c) 2013-2018 Brendan Hay
 -- License     : Mozilla Public License, v. 2.0.
 -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com>
 -- Stability   : auto-generated
diff --git a/gen/Network/AWS/CloudSearch/UpdateAvailabilityOptions.hs b/gen/Network/AWS/CloudSearch/UpdateAvailabilityOptions.hs
--- a/gen/Network/AWS/CloudSearch/UpdateAvailabilityOptions.hs
+++ b/gen/Network/AWS/CloudSearch/UpdateAvailabilityOptions.hs
@@ -12,7 +12,7 @@
 
 -- |
 -- Module      : Network.AWS.CloudSearch.UpdateAvailabilityOptions
--- Copyright   : (c) 2013-2017 Brendan Hay
+-- Copyright   : (c) 2013-2018 Brendan Hay
 -- License     : Mozilla Public License, v. 2.0.
 -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com>
 -- Stability   : auto-generated
@@ -69,16 +69,16 @@
     -> UpdateAvailabilityOptions
 updateAvailabilityOptions pDomainName_ pMultiAZ_ =
   UpdateAvailabilityOptions'
-  {_uaoDomainName = pDomainName_, _uaoMultiAZ = pMultiAZ_}
+    {_uaoDomainName = pDomainName_, _uaoMultiAZ = pMultiAZ_}
 
 
 -- | Undocumented member.
 uaoDomainName :: Lens' UpdateAvailabilityOptions Text
-uaoDomainName = lens _uaoDomainName (\ s a -> s{_uaoDomainName = a});
+uaoDomainName = lens _uaoDomainName (\ s a -> s{_uaoDomainName = a})
 
 -- | You expand an existing search domain to a second Availability Zone by setting the Multi-AZ option to true. Similarly, you can turn off the Multi-AZ option to downgrade the domain to a single Availability Zone by setting the Multi-AZ option to @false@ .
 uaoMultiAZ :: Lens' UpdateAvailabilityOptions Bool
-uaoMultiAZ = lens _uaoMultiAZ (\ s a -> s{_uaoMultiAZ = a});
+uaoMultiAZ = lens _uaoMultiAZ (\ s a -> s{_uaoMultiAZ = a})
 
 instance AWSRequest UpdateAvailabilityOptions where
         type Rs UpdateAvailabilityOptions =
@@ -133,16 +133,18 @@
     -> UpdateAvailabilityOptionsResponse
 updateAvailabilityOptionsResponse pResponseStatus_ =
   UpdateAvailabilityOptionsResponse'
-  {_uaorsAvailabilityOptions = Nothing, _uaorsResponseStatus = pResponseStatus_}
+    { _uaorsAvailabilityOptions = Nothing
+    , _uaorsResponseStatus = pResponseStatus_
+    }
 
 
 -- | The newly-configured availability options. Indicates whether Multi-AZ is enabled for the domain.
 uaorsAvailabilityOptions :: Lens' UpdateAvailabilityOptionsResponse (Maybe AvailabilityOptionsStatus)
-uaorsAvailabilityOptions = lens _uaorsAvailabilityOptions (\ s a -> s{_uaorsAvailabilityOptions = a});
+uaorsAvailabilityOptions = lens _uaorsAvailabilityOptions (\ s a -> s{_uaorsAvailabilityOptions = a})
 
 -- | -- | The response status code.
 uaorsResponseStatus :: Lens' UpdateAvailabilityOptionsResponse Int
-uaorsResponseStatus = lens _uaorsResponseStatus (\ s a -> s{_uaorsResponseStatus = a});
+uaorsResponseStatus = lens _uaorsResponseStatus (\ s a -> s{_uaorsResponseStatus = a})
 
 instance NFData UpdateAvailabilityOptionsResponse
          where
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
@@ -12,7 +12,7 @@
 
 -- |
 -- Module      : Network.AWS.CloudSearch.UpdateScalingParameters
--- Copyright   : (c) 2013-2017 Brendan Hay
+-- Copyright   : (c) 2013-2018 Brendan Hay
 -- License     : Mozilla Public License, v. 2.0.
 -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com>
 -- Stability   : auto-generated
@@ -69,16 +69,16 @@
     -> UpdateScalingParameters
 updateScalingParameters pDomainName_ pScalingParameters_ =
   UpdateScalingParameters'
-  {_uspDomainName = pDomainName_, _uspScalingParameters = pScalingParameters_}
+    {_uspDomainName = pDomainName_, _uspScalingParameters = pScalingParameters_}
 
 
 -- | Undocumented member.
 uspDomainName :: Lens' UpdateScalingParameters Text
-uspDomainName = lens _uspDomainName (\ s a -> s{_uspDomainName = a});
+uspDomainName = lens _uspDomainName (\ s a -> s{_uspDomainName = a})
 
 -- | Undocumented member.
 uspScalingParameters :: Lens' UpdateScalingParameters ScalingParameters
-uspScalingParameters = lens _uspScalingParameters (\ s a -> s{_uspScalingParameters = a});
+uspScalingParameters = lens _uspScalingParameters (\ s a -> s{_uspScalingParameters = a})
 
 instance AWSRequest UpdateScalingParameters where
         type Rs UpdateScalingParameters =
@@ -133,17 +133,17 @@
     -> UpdateScalingParametersResponse
 updateScalingParametersResponse pResponseStatus_ pScalingParameters_ =
   UpdateScalingParametersResponse'
-  { _usprsResponseStatus = pResponseStatus_
-  , _usprsScalingParameters = pScalingParameters_
-  }
+    { _usprsResponseStatus = pResponseStatus_
+    , _usprsScalingParameters = pScalingParameters_
+    }
 
 
 -- | -- | The response status code.
 usprsResponseStatus :: Lens' UpdateScalingParametersResponse Int
-usprsResponseStatus = lens _usprsResponseStatus (\ s a -> s{_usprsResponseStatus = a});
+usprsResponseStatus = lens _usprsResponseStatus (\ s a -> s{_usprsResponseStatus = a})
 
 -- | Undocumented member.
 usprsScalingParameters :: Lens' UpdateScalingParametersResponse ScalingParametersStatus
-usprsScalingParameters = lens _usprsScalingParameters (\ s a -> s{_usprsScalingParameters = a});
+usprsScalingParameters = lens _usprsScalingParameters (\ s a -> s{_usprsScalingParameters = a})
 
 instance NFData UpdateScalingParametersResponse where
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
@@ -12,7 +12,7 @@
 
 -- |
 -- Module      : Network.AWS.CloudSearch.UpdateServiceAccessPolicies
--- Copyright   : (c) 2013-2017 Brendan Hay
+-- Copyright   : (c) 2013-2018 Brendan Hay
 -- License     : Mozilla Public License, v. 2.0.
 -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com>
 -- Stability   : auto-generated
@@ -69,16 +69,16 @@
     -> UpdateServiceAccessPolicies
 updateServiceAccessPolicies pDomainName_ pAccessPolicies_ =
   UpdateServiceAccessPolicies'
-  {_usapDomainName = pDomainName_, _usapAccessPolicies = pAccessPolicies_}
+    {_usapDomainName = pDomainName_, _usapAccessPolicies = pAccessPolicies_}
 
 
 -- | Undocumented member.
 usapDomainName :: Lens' UpdateServiceAccessPolicies Text
-usapDomainName = lens _usapDomainName (\ s a -> s{_usapDomainName = a});
+usapDomainName = lens _usapDomainName (\ s a -> s{_usapDomainName = a})
 
 -- | The access rules you want to configure. These rules replace any existing rules.
 usapAccessPolicies :: Lens' UpdateServiceAccessPolicies Text
-usapAccessPolicies = lens _usapAccessPolicies (\ s a -> s{_usapAccessPolicies = a});
+usapAccessPolicies = lens _usapAccessPolicies (\ s a -> s{_usapAccessPolicies = a})
 
 instance AWSRequest UpdateServiceAccessPolicies where
         type Rs UpdateServiceAccessPolicies =
@@ -134,18 +134,18 @@
     -> UpdateServiceAccessPoliciesResponse
 updateServiceAccessPoliciesResponse pResponseStatus_ pAccessPolicies_ =
   UpdateServiceAccessPoliciesResponse'
-  { _usaprsResponseStatus = pResponseStatus_
-  , _usaprsAccessPolicies = pAccessPolicies_
-  }
+    { _usaprsResponseStatus = pResponseStatus_
+    , _usaprsAccessPolicies = pAccessPolicies_
+    }
 
 
 -- | -- | The response status code.
 usaprsResponseStatus :: Lens' UpdateServiceAccessPoliciesResponse Int
-usaprsResponseStatus = lens _usaprsResponseStatus (\ s a -> s{_usaprsResponseStatus = a});
+usaprsResponseStatus = lens _usaprsResponseStatus (\ s a -> s{_usaprsResponseStatus = a})
 
 -- | The access rules configured for the domain.
 usaprsAccessPolicies :: Lens' UpdateServiceAccessPoliciesResponse AccessPoliciesStatus
-usaprsAccessPolicies = lens _usaprsAccessPolicies (\ s a -> s{_usaprsAccessPolicies = a});
+usaprsAccessPolicies = lens _usaprsAccessPolicies (\ s a -> s{_usaprsAccessPolicies = a})
 
 instance NFData UpdateServiceAccessPoliciesResponse
          where
diff --git a/gen/Network/AWS/CloudSearch/Waiters.hs b/gen/Network/AWS/CloudSearch/Waiters.hs
--- a/gen/Network/AWS/CloudSearch/Waiters.hs
+++ b/gen/Network/AWS/CloudSearch/Waiters.hs
@@ -7,7 +7,7 @@
 
 -- |
 -- Module      : Network.AWS.CloudSearch.Waiters
--- Copyright   : (c) 2013-2017 Brendan Hay
+-- Copyright   : (c) 2013-2018 Brendan Hay
 -- License     : Mozilla Public License, v. 2.0.
 -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com>
 -- Stability   : auto-generated
diff --git a/test/Main.hs b/test/Main.hs
--- a/test/Main.hs
+++ b/test/Main.hs
@@ -2,7 +2,7 @@
 
 -- |
 -- Module      : Main
--- Copyright   : (c) 2013-2017 Brendan Hay
+-- Copyright   : (c) 2013-2018 Brendan Hay
 -- License     : Mozilla Public License, v. 2.0.
 -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com>
 -- Stability   : auto-generated
diff --git a/test/Test/AWS/CloudSearch.hs b/test/Test/AWS/CloudSearch.hs
--- a/test/Test/AWS/CloudSearch.hs
+++ b/test/Test/AWS/CloudSearch.hs
@@ -1,7 +1,7 @@
 {-# LANGUAGE OverloadedStrings #-}
 
 -- Module      : Test.AWS.CloudSearch
--- Copyright   : (c) 2013-2016 Brendan Hay
+-- Copyright   : (c) 2013-2018 Brendan Hay
 -- License     : This Source Code Form is subject to the terms of
 --               the Mozilla Public License, v. 2.0.
 --               A copy of the MPL can be found in the LICENSE file or
diff --git a/test/Test/AWS/CloudSearch/Internal.hs b/test/Test/AWS/CloudSearch/Internal.hs
--- a/test/Test/AWS/CloudSearch/Internal.hs
+++ b/test/Test/AWS/CloudSearch/Internal.hs
@@ -2,7 +2,7 @@
 {-# OPTIONS_GHC -fno-warn-unused-imports #-}
 
 -- Module      : Test.AWS.CloudSearch.Internal
--- Copyright   : (c) 2013-2016 Brendan Hay
+-- Copyright   : (c) 2013-2018 Brendan Hay
 -- License     : This Source Code Form is subject to the terms of
 --               the Mozilla Public License, v. 2.0.
 --               A copy of the MPL can be found in the LICENSE file or
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
@@ -5,7 +5,7 @@
 
 -- |
 -- Module      : Test.AWS.Gen.CloudSearch
--- Copyright   : (c) 2013-2017 Brendan Hay
+-- Copyright   : (c) 2013-2018 Brendan Hay
 -- License     : Mozilla Public License, v. 2.0.
 -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com>
 -- Stability   : auto-generated