diff --git a/README.md b/README.md --- a/README.md +++ b/README.md @@ -8,7 +8,7 @@ ## Version -`1.4.5` +`1.5.0` ## Description diff --git a/amazonka-cloudsearch.cabal b/amazonka-cloudsearch.cabal --- a/amazonka-cloudsearch.cabal +++ b/amazonka-cloudsearch.cabal @@ -1,13 +1,13 @@ name: amazonka-cloudsearch -version: 1.4.5 +version: 1.5.0 synopsis: Amazon CloudSearch SDK. homepage: https://github.com/brendanhay/amazonka bug-reports: https://github.com/brendanhay/amazonka/issues -license: OtherLicense +license: MPL-2.0 license-file: LICENSE author: Brendan Hay -maintainer: Brendan Hay -copyright: Copyright (c) 2013-2016 Brendan Hay +maintainer: Brendan Hay +copyright: Copyright (c) 2013-2017 Brendan Hay category: Network, AWS, Cloud, Distributed Computing build-type: Simple cabal-version: >= 1.10 @@ -29,14 +29,19 @@ to get started. source-repository head - type: git - location: git://github.com/brendanhay/amazonka.git + type: git + location: git://github.com/brendanhay/amazonka.git + subdir: amazonka-cloudsearch library default-language: Haskell2010 hs-source-dirs: src gen - ghc-options: -Wall + ghc-options: + -Wall + -fwarn-incomplete-uni-patterns + -fwarn-incomplete-record-updates + -funbox-strict-fields exposed-modules: Network.AWS.CloudSearch @@ -72,7 +77,7 @@ , Network.AWS.CloudSearch.Types.Sum build-depends: - amazonka-core == 1.4.5.* + amazonka-core == 1.5.0.* , base >= 4.7 && < 5 test-suite amazonka-cloudsearch-test @@ -92,9 +97,9 @@ , Test.AWS.CloudSearch.Internal build-depends: - amazonka-core == 1.4.5.* - , amazonka-test == 1.4.5.* - , amazonka-cloudsearch == 1.4.5.* + amazonka-core == 1.5.0.* + , amazonka-test == 1.5.0.* + , amazonka-cloudsearch , base , bytestring , tasty 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,9 +5,9 @@ -- | -- Module : Network.AWS.CloudSearch --- Copyright : (c) 2013-2016 Brendan Hay +-- Copyright : (c) 2013-2017 Brendan Hay -- License : Mozilla Public License, v. 2.0. --- Maintainer : Brendan Hay +-- Maintainer : Brendan Hay -- Stability : auto-generated -- Portability : non-portable (GHC extensions) -- @@ -385,32 +385,32 @@ , toDefaultValue ) where -import Network.AWS.CloudSearch.BuildSuggesters -import Network.AWS.CloudSearch.CreateDomain -import Network.AWS.CloudSearch.DefineAnalysisScheme -import Network.AWS.CloudSearch.DefineExpression -import Network.AWS.CloudSearch.DefineIndexField -import Network.AWS.CloudSearch.DefineSuggester -import Network.AWS.CloudSearch.DeleteAnalysisScheme -import Network.AWS.CloudSearch.DeleteDomain -import Network.AWS.CloudSearch.DeleteExpression -import Network.AWS.CloudSearch.DeleteIndexField -import Network.AWS.CloudSearch.DeleteSuggester -import Network.AWS.CloudSearch.DescribeAnalysisSchemes -import Network.AWS.CloudSearch.DescribeAvailabilityOptions -import Network.AWS.CloudSearch.DescribeDomains -import Network.AWS.CloudSearch.DescribeExpressions -import Network.AWS.CloudSearch.DescribeIndexFields -import Network.AWS.CloudSearch.DescribeScalingParameters -import Network.AWS.CloudSearch.DescribeServiceAccessPolicies -import Network.AWS.CloudSearch.DescribeSuggesters -import Network.AWS.CloudSearch.IndexDocuments -import Network.AWS.CloudSearch.ListDomainNames -import Network.AWS.CloudSearch.Types -import Network.AWS.CloudSearch.UpdateAvailabilityOptions -import Network.AWS.CloudSearch.UpdateScalingParameters -import Network.AWS.CloudSearch.UpdateServiceAccessPolicies -import Network.AWS.CloudSearch.Waiters +import Network.AWS.CloudSearch.BuildSuggesters +import Network.AWS.CloudSearch.CreateDomain +import Network.AWS.CloudSearch.DefineAnalysisScheme +import Network.AWS.CloudSearch.DefineExpression +import Network.AWS.CloudSearch.DefineIndexField +import Network.AWS.CloudSearch.DefineSuggester +import Network.AWS.CloudSearch.DeleteAnalysisScheme +import Network.AWS.CloudSearch.DeleteDomain +import Network.AWS.CloudSearch.DeleteExpression +import Network.AWS.CloudSearch.DeleteIndexField +import Network.AWS.CloudSearch.DeleteSuggester +import Network.AWS.CloudSearch.DescribeAnalysisSchemes +import Network.AWS.CloudSearch.DescribeAvailabilityOptions +import Network.AWS.CloudSearch.DescribeDomains +import Network.AWS.CloudSearch.DescribeExpressions +import Network.AWS.CloudSearch.DescribeIndexFields +import Network.AWS.CloudSearch.DescribeScalingParameters +import Network.AWS.CloudSearch.DescribeServiceAccessPolicies +import Network.AWS.CloudSearch.DescribeSuggesters +import Network.AWS.CloudSearch.IndexDocuments +import Network.AWS.CloudSearch.ListDomainNames +import Network.AWS.CloudSearch.Types +import Network.AWS.CloudSearch.UpdateAvailabilityOptions +import Network.AWS.CloudSearch.UpdateScalingParameters +import Network.AWS.CloudSearch.UpdateServiceAccessPolicies +import Network.AWS.CloudSearch.Waiters {- $errors Error matchers are designed for use with the functions provided by 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,9 +12,9 @@ -- | -- Module : Network.AWS.CloudSearch.BuildSuggesters --- Copyright : (c) 2013-2016 Brendan Hay +-- Copyright : (c) 2013-2017 Brendan Hay -- License : Mozilla Public License, v. 2.0. --- Maintainer : Brendan Hay +-- Maintainer : Brendan Hay -- Stability : auto-generated -- Portability : non-portable (GHC extensions) -- @@ -37,12 +37,12 @@ , bsrsResponseStatus ) where -import Network.AWS.CloudSearch.Types -import Network.AWS.CloudSearch.Types.Product -import Network.AWS.Lens -import Network.AWS.Prelude -import Network.AWS.Request -import Network.AWS.Response +import Network.AWS.CloudSearch.Types +import Network.AWS.CloudSearch.Types.Product +import Network.AWS.Lens +import Network.AWS.Prelude +import Network.AWS.Request +import Network.AWS.Response -- | Container for the parameters to the @'BuildSuggester' @ operation. Specifies the name of the domain you want to update. -- @@ -50,9 +50,10 @@ -- -- /See:/ 'buildSuggesters' smart constructor. newtype BuildSuggesters = BuildSuggesters' - { _bsDomainName :: Text - } deriving (Eq,Read,Show,Data,Typeable,Generic) + { _bsDomainName :: Text + } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'BuildSuggesters' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -61,11 +62,9 @@ buildSuggesters :: Text -- ^ 'bsDomainName' -> BuildSuggesters -buildSuggesters pDomainName_ = - BuildSuggesters' - { _bsDomainName = pDomainName_ - } +buildSuggesters pDomainName_ = BuildSuggesters' {_bsDomainName = pDomainName_} + -- | Undocumented member. bsDomainName :: Lens' BuildSuggesters Text bsDomainName = lens _bsDomainName (\ s a -> s{_bsDomainName = a}); @@ -81,9 +80,9 @@ may (parseXMLList "member")) <*> (pure (fromEnum s))) -instance Hashable BuildSuggesters +instance Hashable BuildSuggesters where -instance NFData BuildSuggesters +instance NFData BuildSuggesters where instance ToHeaders BuildSuggesters where toHeaders = const mempty @@ -104,10 +103,11 @@ -- -- /See:/ 'buildSuggestersResponse' smart constructor. data BuildSuggestersResponse = BuildSuggestersResponse' - { _bsrsFieldNames :: !(Maybe [Text]) - , _bsrsResponseStatus :: !Int - } deriving (Eq,Read,Show,Data,Typeable,Generic) + { _bsrsFieldNames :: !(Maybe [Text]) + , _bsrsResponseStatus :: !Int + } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'BuildSuggestersResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -119,11 +119,10 @@ :: Int -- ^ 'bsrsResponseStatus' -> BuildSuggestersResponse buildSuggestersResponse pResponseStatus_ = - BuildSuggestersResponse' - { _bsrsFieldNames = Nothing - , _bsrsResponseStatus = pResponseStatus_ - } + BuildSuggestersResponse' + {_bsrsFieldNames = Nothing, _bsrsResponseStatus = pResponseStatus_} + -- | Undocumented member. bsrsFieldNames :: Lens' BuildSuggestersResponse [Text] bsrsFieldNames = lens _bsrsFieldNames (\ s a -> s{_bsrsFieldNames = a}) . _Default . _Coerce; @@ -132,4 +131,4 @@ bsrsResponseStatus :: Lens' BuildSuggestersResponse Int bsrsResponseStatus = lens _bsrsResponseStatus (\ s a -> s{_bsrsResponseStatus = a}); -instance NFData BuildSuggestersResponse +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,9 +12,9 @@ -- | -- Module : Network.AWS.CloudSearch.CreateDomain --- Copyright : (c) 2013-2016 Brendan Hay +-- Copyright : (c) 2013-2017 Brendan Hay -- License : Mozilla Public License, v. 2.0. --- Maintainer : Brendan Hay +-- Maintainer : Brendan Hay -- Stability : auto-generated -- Portability : non-portable (GHC extensions) -- @@ -37,12 +37,12 @@ , cdrsResponseStatus ) where -import Network.AWS.CloudSearch.Types -import Network.AWS.CloudSearch.Types.Product -import Network.AWS.Lens -import Network.AWS.Prelude -import Network.AWS.Request -import Network.AWS.Response +import Network.AWS.CloudSearch.Types +import Network.AWS.CloudSearch.Types.Product +import Network.AWS.Lens +import Network.AWS.Prelude +import Network.AWS.Request +import Network.AWS.Response -- | Container for the parameters to the @'CreateDomain' @ operation. Specifies a name for the new search domain. -- @@ -50,9 +50,10 @@ -- -- /See:/ 'createDomain' smart constructor. newtype CreateDomain = CreateDomain' - { _cdDomainName :: Text - } deriving (Eq,Read,Show,Data,Typeable,Generic) + { _cdDomainName :: Text + } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'CreateDomain' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -61,11 +62,9 @@ createDomain :: Text -- ^ 'cdDomainName' -> CreateDomain -createDomain pDomainName_ = - CreateDomain' - { _cdDomainName = pDomainName_ - } +createDomain pDomainName_ = CreateDomain' {_cdDomainName = pDomainName_} + -- | 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}); @@ -79,9 +78,9 @@ CreateDomainResponse' <$> (x .@? "DomainStatus") <*> (pure (fromEnum s))) -instance Hashable CreateDomain +instance Hashable CreateDomain where -instance NFData CreateDomain +instance NFData CreateDomain where instance ToHeaders CreateDomain where toHeaders = const mempty @@ -102,10 +101,11 @@ -- -- /See:/ 'createDomainResponse' smart constructor. data CreateDomainResponse = CreateDomainResponse' - { _cdrsDomainStatus :: !(Maybe DomainStatus) - , _cdrsResponseStatus :: !Int - } deriving (Eq,Read,Show,Data,Typeable,Generic) + { _cdrsDomainStatus :: !(Maybe DomainStatus) + , _cdrsResponseStatus :: !Int + } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'CreateDomainResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -117,11 +117,10 @@ :: Int -- ^ 'cdrsResponseStatus' -> CreateDomainResponse createDomainResponse pResponseStatus_ = - CreateDomainResponse' - { _cdrsDomainStatus = Nothing - , _cdrsResponseStatus = pResponseStatus_ - } + CreateDomainResponse' + {_cdrsDomainStatus = Nothing, _cdrsResponseStatus = pResponseStatus_} + -- | Undocumented member. cdrsDomainStatus :: Lens' CreateDomainResponse (Maybe DomainStatus) cdrsDomainStatus = lens _cdrsDomainStatus (\ s a -> s{_cdrsDomainStatus = a}); @@ -130,4 +129,4 @@ cdrsResponseStatus :: Lens' CreateDomainResponse Int cdrsResponseStatus = lens _cdrsResponseStatus (\ s a -> s{_cdrsResponseStatus = a}); -instance NFData CreateDomainResponse +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,9 +12,9 @@ -- | -- Module : Network.AWS.CloudSearch.DefineAnalysisScheme --- Copyright : (c) 2013-2016 Brendan Hay +-- Copyright : (c) 2013-2017 Brendan Hay -- License : Mozilla Public License, v. 2.0. --- Maintainer : Brendan Hay +-- Maintainer : Brendan Hay -- Stability : auto-generated -- Portability : non-portable (GHC extensions) -- @@ -38,12 +38,12 @@ , defersAnalysisScheme ) where -import Network.AWS.CloudSearch.Types -import Network.AWS.CloudSearch.Types.Product -import Network.AWS.Lens -import Network.AWS.Prelude -import Network.AWS.Request -import Network.AWS.Response +import Network.AWS.CloudSearch.Types +import Network.AWS.CloudSearch.Types.Product +import Network.AWS.Lens +import Network.AWS.Prelude +import Network.AWS.Request +import Network.AWS.Response -- | Container for the parameters to the @'DefineAnalysisScheme' @ operation. Specifies the name of the domain you want to update and the analysis scheme configuration. -- @@ -51,10 +51,11 @@ -- -- /See:/ 'defineAnalysisScheme' smart constructor. data DefineAnalysisScheme = DefineAnalysisScheme' - { _dasaDomainName :: !Text - , _dasaAnalysisScheme :: !AnalysisScheme - } deriving (Eq,Read,Show,Data,Typeable,Generic) + { _dasaDomainName :: !Text + , _dasaAnalysisScheme :: !AnalysisScheme + } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DefineAnalysisScheme' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -67,11 +68,10 @@ -> AnalysisScheme -- ^ 'dasaAnalysisScheme' -> DefineAnalysisScheme defineAnalysisScheme pDomainName_ pAnalysisScheme_ = - DefineAnalysisScheme' - { _dasaDomainName = pDomainName_ - , _dasaAnalysisScheme = pAnalysisScheme_ - } + DefineAnalysisScheme' + {_dasaDomainName = pDomainName_, _dasaAnalysisScheme = pAnalysisScheme_} + -- | Undocumented member. dasaDomainName :: Lens' DefineAnalysisScheme Text dasaDomainName = lens _dasaDomainName (\ s a -> s{_dasaDomainName = a}); @@ -90,9 +90,9 @@ DefineAnalysisSchemeResponse' <$> (pure (fromEnum s)) <*> (x .@ "AnalysisScheme")) -instance Hashable DefineAnalysisScheme +instance Hashable DefineAnalysisScheme where -instance NFData DefineAnalysisScheme +instance NFData DefineAnalysisScheme where instance ToHeaders DefineAnalysisScheme where toHeaders = const mempty @@ -114,10 +114,11 @@ -- -- /See:/ 'defineAnalysisSchemeResponse' smart constructor. data DefineAnalysisSchemeResponse = DefineAnalysisSchemeResponse' - { _defersResponseStatus :: !Int - , _defersAnalysisScheme :: !AnalysisSchemeStatus - } deriving (Eq,Read,Show,Data,Typeable,Generic) + { _defersResponseStatus :: !Int + , _defersAnalysisScheme :: !AnalysisSchemeStatus + } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DefineAnalysisSchemeResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -130,11 +131,12 @@ -> AnalysisSchemeStatus -- ^ 'defersAnalysisScheme' -> DefineAnalysisSchemeResponse defineAnalysisSchemeResponse pResponseStatus_ pAnalysisScheme_ = - DefineAnalysisSchemeResponse' - { _defersResponseStatus = pResponseStatus_ - , _defersAnalysisScheme = pAnalysisScheme_ - } + DefineAnalysisSchemeResponse' + { _defersResponseStatus = pResponseStatus_ + , _defersAnalysisScheme = pAnalysisScheme_ + } + -- | -- | The response status code. defersResponseStatus :: Lens' DefineAnalysisSchemeResponse Int defersResponseStatus = lens _defersResponseStatus (\ s a -> s{_defersResponseStatus = a}); @@ -143,4 +145,4 @@ defersAnalysisScheme :: Lens' DefineAnalysisSchemeResponse AnalysisSchemeStatus defersAnalysisScheme = lens _defersAnalysisScheme (\ s a -> s{_defersAnalysisScheme = a}); -instance NFData DefineAnalysisSchemeResponse +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,9 +12,9 @@ -- | -- Module : Network.AWS.CloudSearch.DefineExpression --- Copyright : (c) 2013-2016 Brendan Hay +-- Copyright : (c) 2013-2017 Brendan Hay -- License : Mozilla Public License, v. 2.0. --- Maintainer : Brendan Hay +-- Maintainer : Brendan Hay -- Stability : auto-generated -- Portability : non-portable (GHC extensions) -- @@ -38,12 +38,12 @@ , dersExpression ) where -import Network.AWS.CloudSearch.Types -import Network.AWS.CloudSearch.Types.Product -import Network.AWS.Lens -import Network.AWS.Prelude -import Network.AWS.Request -import Network.AWS.Response +import Network.AWS.CloudSearch.Types +import Network.AWS.CloudSearch.Types.Product +import Network.AWS.Lens +import Network.AWS.Prelude +import Network.AWS.Request +import Network.AWS.Response -- | Container for the parameters to the @'DefineExpression' @ operation. Specifies the name of the domain you want to update and the expression you want to configure. -- @@ -51,10 +51,11 @@ -- -- /See:/ 'defineExpression' smart constructor. data DefineExpression = DefineExpression' - { _dDomainName :: !Text - , _dExpression :: !Expression - } deriving (Eq,Read,Show,Data,Typeable,Generic) + { _dDomainName :: !Text + , _dExpression :: !Expression + } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DefineExpression' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -67,11 +68,9 @@ -> Expression -- ^ 'dExpression' -> DefineExpression defineExpression pDomainName_ pExpression_ = - DefineExpression' - { _dDomainName = pDomainName_ - , _dExpression = pExpression_ - } + DefineExpression' {_dDomainName = pDomainName_, _dExpression = pExpression_} + -- | Undocumented member. dDomainName :: Lens' DefineExpression Text dDomainName = lens _dDomainName (\ s a -> s{_dDomainName = a}); @@ -89,9 +88,9 @@ DefineExpressionResponse' <$> (pure (fromEnum s)) <*> (x .@ "Expression")) -instance Hashable DefineExpression +instance Hashable DefineExpression where -instance NFData DefineExpression +instance NFData DefineExpression where instance ToHeaders DefineExpression where toHeaders = const mempty @@ -113,10 +112,11 @@ -- -- /See:/ 'defineExpressionResponse' smart constructor. data DefineExpressionResponse = DefineExpressionResponse' - { _dersResponseStatus :: !Int - , _dersExpression :: !ExpressionStatus - } deriving (Eq,Read,Show,Data,Typeable,Generic) + { _dersResponseStatus :: !Int + , _dersExpression :: !ExpressionStatus + } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DefineExpressionResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -129,11 +129,10 @@ -> ExpressionStatus -- ^ 'dersExpression' -> DefineExpressionResponse defineExpressionResponse pResponseStatus_ pExpression_ = - DefineExpressionResponse' - { _dersResponseStatus = pResponseStatus_ - , _dersExpression = pExpression_ - } + DefineExpressionResponse' + {_dersResponseStatus = pResponseStatus_, _dersExpression = pExpression_} + -- | -- | The response status code. dersResponseStatus :: Lens' DefineExpressionResponse Int dersResponseStatus = lens _dersResponseStatus (\ s a -> s{_dersResponseStatus = a}); @@ -142,4 +141,4 @@ dersExpression :: Lens' DefineExpressionResponse ExpressionStatus dersExpression = lens _dersExpression (\ s a -> s{_dersExpression = a}); -instance NFData DefineExpressionResponse +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,9 +12,9 @@ -- | -- Module : Network.AWS.CloudSearch.DefineIndexField --- Copyright : (c) 2013-2016 Brendan Hay +-- Copyright : (c) 2013-2017 Brendan Hay -- License : Mozilla Public License, v. 2.0. --- Maintainer : Brendan Hay +-- Maintainer : Brendan Hay -- Stability : auto-generated -- Portability : non-portable (GHC extensions) -- @@ -38,12 +38,12 @@ , defrsIndexField ) where -import Network.AWS.CloudSearch.Types -import Network.AWS.CloudSearch.Types.Product -import Network.AWS.Lens -import Network.AWS.Prelude -import Network.AWS.Request -import Network.AWS.Response +import Network.AWS.CloudSearch.Types +import Network.AWS.CloudSearch.Types.Product +import Network.AWS.Lens +import Network.AWS.Prelude +import Network.AWS.Request +import Network.AWS.Response -- | Container for the parameters to the @'DefineIndexField' @ operation. Specifies the name of the domain you want to update and the index field configuration. -- @@ -51,10 +51,11 @@ -- -- /See:/ 'defineIndexField' smart constructor. data DefineIndexField = DefineIndexField' - { _defeDomainName :: !Text - , _defeIndexField :: !IndexField - } deriving (Eq,Read,Show,Data,Typeable,Generic) + { _defeDomainName :: !Text + , _defeIndexField :: !IndexField + } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DefineIndexField' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -67,11 +68,10 @@ -> IndexField -- ^ 'defeIndexField' -> DefineIndexField defineIndexField pDomainName_ pIndexField_ = - DefineIndexField' - { _defeDomainName = pDomainName_ - , _defeIndexField = pIndexField_ - } + DefineIndexField' + {_defeDomainName = pDomainName_, _defeIndexField = pIndexField_} + -- | Undocumented member. defeDomainName :: Lens' DefineIndexField Text defeDomainName = lens _defeDomainName (\ s a -> s{_defeDomainName = a}); @@ -89,9 +89,9 @@ DefineIndexFieldResponse' <$> (pure (fromEnum s)) <*> (x .@ "IndexField")) -instance Hashable DefineIndexField +instance Hashable DefineIndexField where -instance NFData DefineIndexField +instance NFData DefineIndexField where instance ToHeaders DefineIndexField where toHeaders = const mempty @@ -113,10 +113,11 @@ -- -- /See:/ 'defineIndexFieldResponse' smart constructor. data DefineIndexFieldResponse = DefineIndexFieldResponse' - { _defrsResponseStatus :: !Int - , _defrsIndexField :: !IndexFieldStatus - } deriving (Eq,Read,Show,Data,Typeable,Generic) + { _defrsResponseStatus :: !Int + , _defrsIndexField :: !IndexFieldStatus + } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DefineIndexFieldResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -129,11 +130,10 @@ -> IndexFieldStatus -- ^ 'defrsIndexField' -> DefineIndexFieldResponse defineIndexFieldResponse pResponseStatus_ pIndexField_ = - DefineIndexFieldResponse' - { _defrsResponseStatus = pResponseStatus_ - , _defrsIndexField = pIndexField_ - } + DefineIndexFieldResponse' + {_defrsResponseStatus = pResponseStatus_, _defrsIndexField = pIndexField_} + -- | -- | The response status code. defrsResponseStatus :: Lens' DefineIndexFieldResponse Int defrsResponseStatus = lens _defrsResponseStatus (\ s a -> s{_defrsResponseStatus = a}); @@ -142,4 +142,4 @@ defrsIndexField :: Lens' DefineIndexFieldResponse IndexFieldStatus defrsIndexField = lens _defrsIndexField (\ s a -> s{_defrsIndexField = a}); -instance NFData DefineIndexFieldResponse +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,9 +12,9 @@ -- | -- Module : Network.AWS.CloudSearch.DefineSuggester --- Copyright : (c) 2013-2016 Brendan Hay +-- Copyright : (c) 2013-2017 Brendan Hay -- License : Mozilla Public License, v. 2.0. --- Maintainer : Brendan Hay +-- Maintainer : Brendan Hay -- Stability : auto-generated -- Portability : non-portable (GHC extensions) -- @@ -38,12 +38,12 @@ , dsrsSuggester ) where -import Network.AWS.CloudSearch.Types -import Network.AWS.CloudSearch.Types.Product -import Network.AWS.Lens -import Network.AWS.Prelude -import Network.AWS.Request -import Network.AWS.Response +import Network.AWS.CloudSearch.Types +import Network.AWS.CloudSearch.Types.Product +import Network.AWS.Lens +import Network.AWS.Prelude +import Network.AWS.Request +import Network.AWS.Response -- | Container for the parameters to the @'DefineSuggester' @ operation. Specifies the name of the domain you want to update and the suggester configuration. -- @@ -51,10 +51,11 @@ -- -- /See:/ 'defineSuggester' smart constructor. data DefineSuggester = DefineSuggester' - { _defDomainName :: !Text - , _defSuggester :: !Suggester - } deriving (Eq,Read,Show,Data,Typeable,Generic) + { _defDomainName :: !Text + , _defSuggester :: !Suggester + } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DefineSuggester' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -67,11 +68,9 @@ -> Suggester -- ^ 'defSuggester' -> DefineSuggester defineSuggester pDomainName_ pSuggester_ = - DefineSuggester' - { _defDomainName = pDomainName_ - , _defSuggester = pSuggester_ - } + DefineSuggester' {_defDomainName = pDomainName_, _defSuggester = pSuggester_} + -- | Undocumented member. defDomainName :: Lens' DefineSuggester Text defDomainName = lens _defDomainName (\ s a -> s{_defDomainName = a}); @@ -89,9 +88,9 @@ DefineSuggesterResponse' <$> (pure (fromEnum s)) <*> (x .@ "Suggester")) -instance Hashable DefineSuggester +instance Hashable DefineSuggester where -instance NFData DefineSuggester +instance NFData DefineSuggester where instance ToHeaders DefineSuggester where toHeaders = const mempty @@ -113,10 +112,11 @@ -- -- /See:/ 'defineSuggesterResponse' smart constructor. data DefineSuggesterResponse = DefineSuggesterResponse' - { _dsrsResponseStatus :: !Int - , _dsrsSuggester :: !SuggesterStatus - } deriving (Eq,Read,Show,Data,Typeable,Generic) + { _dsrsResponseStatus :: !Int + , _dsrsSuggester :: !SuggesterStatus + } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DefineSuggesterResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -129,11 +129,10 @@ -> SuggesterStatus -- ^ 'dsrsSuggester' -> DefineSuggesterResponse defineSuggesterResponse pResponseStatus_ pSuggester_ = - DefineSuggesterResponse' - { _dsrsResponseStatus = pResponseStatus_ - , _dsrsSuggester = pSuggester_ - } + DefineSuggesterResponse' + {_dsrsResponseStatus = pResponseStatus_, _dsrsSuggester = pSuggester_} + -- | -- | The response status code. dsrsResponseStatus :: Lens' DefineSuggesterResponse Int dsrsResponseStatus = lens _dsrsResponseStatus (\ s a -> s{_dsrsResponseStatus = a}); @@ -142,4 +141,4 @@ dsrsSuggester :: Lens' DefineSuggesterResponse SuggesterStatus dsrsSuggester = lens _dsrsSuggester (\ s a -> s{_dsrsSuggester = a}); -instance NFData DefineSuggesterResponse +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,9 +12,9 @@ -- | -- Module : Network.AWS.CloudSearch.DeleteAnalysisScheme --- Copyright : (c) 2013-2016 Brendan Hay +-- Copyright : (c) 2013-2017 Brendan Hay -- License : Mozilla Public License, v. 2.0. --- Maintainer : Brendan Hay +-- Maintainer : Brendan Hay -- Stability : auto-generated -- Portability : non-portable (GHC extensions) -- @@ -38,12 +38,12 @@ , dasarsAnalysisScheme ) where -import Network.AWS.CloudSearch.Types -import Network.AWS.CloudSearch.Types.Product -import Network.AWS.Lens -import Network.AWS.Prelude -import Network.AWS.Request -import Network.AWS.Response +import Network.AWS.CloudSearch.Types +import Network.AWS.CloudSearch.Types.Product +import Network.AWS.Lens +import Network.AWS.Prelude +import Network.AWS.Request +import Network.AWS.Response -- | Container for the parameters to the @'DeleteAnalysisScheme' @ operation. Specifies the name of the domain you want to update and the analysis scheme you want to delete. -- @@ -51,10 +51,11 @@ -- -- /See:/ 'deleteAnalysisScheme' smart constructor. data DeleteAnalysisScheme = DeleteAnalysisScheme' - { _dasDomainName :: !Text - , _dasAnalysisSchemeName :: !Text - } deriving (Eq,Read,Show,Data,Typeable,Generic) + { _dasDomainName :: !Text + , _dasAnalysisSchemeName :: !Text + } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DeleteAnalysisScheme' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -67,11 +68,10 @@ -> Text -- ^ 'dasAnalysisSchemeName' -> DeleteAnalysisScheme deleteAnalysisScheme pDomainName_ pAnalysisSchemeName_ = - DeleteAnalysisScheme' - { _dasDomainName = pDomainName_ - , _dasAnalysisSchemeName = pAnalysisSchemeName_ - } + DeleteAnalysisScheme' + {_dasDomainName = pDomainName_, _dasAnalysisSchemeName = pAnalysisSchemeName_} + -- | Undocumented member. dasDomainName :: Lens' DeleteAnalysisScheme Text dasDomainName = lens _dasDomainName (\ s a -> s{_dasDomainName = a}); @@ -90,9 +90,9 @@ DeleteAnalysisSchemeResponse' <$> (pure (fromEnum s)) <*> (x .@ "AnalysisScheme")) -instance Hashable DeleteAnalysisScheme +instance Hashable DeleteAnalysisScheme where -instance NFData DeleteAnalysisScheme +instance NFData DeleteAnalysisScheme where instance ToHeaders DeleteAnalysisScheme where toHeaders = const mempty @@ -114,10 +114,11 @@ -- -- /See:/ 'deleteAnalysisSchemeResponse' smart constructor. data DeleteAnalysisSchemeResponse = DeleteAnalysisSchemeResponse' - { _dasarsResponseStatus :: !Int - , _dasarsAnalysisScheme :: !AnalysisSchemeStatus - } deriving (Eq,Read,Show,Data,Typeable,Generic) + { _dasarsResponseStatus :: !Int + , _dasarsAnalysisScheme :: !AnalysisSchemeStatus + } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DeleteAnalysisSchemeResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -130,11 +131,12 @@ -> AnalysisSchemeStatus -- ^ 'dasarsAnalysisScheme' -> DeleteAnalysisSchemeResponse deleteAnalysisSchemeResponse pResponseStatus_ pAnalysisScheme_ = - DeleteAnalysisSchemeResponse' - { _dasarsResponseStatus = pResponseStatus_ - , _dasarsAnalysisScheme = pAnalysisScheme_ - } + DeleteAnalysisSchemeResponse' + { _dasarsResponseStatus = pResponseStatus_ + , _dasarsAnalysisScheme = pAnalysisScheme_ + } + -- | -- | The response status code. dasarsResponseStatus :: Lens' DeleteAnalysisSchemeResponse Int dasarsResponseStatus = lens _dasarsResponseStatus (\ s a -> s{_dasarsResponseStatus = a}); @@ -143,4 +145,4 @@ dasarsAnalysisScheme :: Lens' DeleteAnalysisSchemeResponse AnalysisSchemeStatus dasarsAnalysisScheme = lens _dasarsAnalysisScheme (\ s a -> s{_dasarsAnalysisScheme = a}); -instance NFData DeleteAnalysisSchemeResponse +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,9 +12,9 @@ -- | -- Module : Network.AWS.CloudSearch.DeleteDomain --- Copyright : (c) 2013-2016 Brendan Hay +-- Copyright : (c) 2013-2017 Brendan Hay -- License : Mozilla Public License, v. 2.0. --- Maintainer : Brendan Hay +-- Maintainer : Brendan Hay -- Stability : auto-generated -- Portability : non-portable (GHC extensions) -- @@ -37,12 +37,12 @@ , ddrsResponseStatus ) where -import Network.AWS.CloudSearch.Types -import Network.AWS.CloudSearch.Types.Product -import Network.AWS.Lens -import Network.AWS.Prelude -import Network.AWS.Request -import Network.AWS.Response +import Network.AWS.CloudSearch.Types +import Network.AWS.CloudSearch.Types.Product +import Network.AWS.Lens +import Network.AWS.Prelude +import Network.AWS.Request +import Network.AWS.Response -- | Container for the parameters to the @'DeleteDomain' @ operation. Specifies the name of the domain you want to delete. -- @@ -50,9 +50,10 @@ -- -- /See:/ 'deleteDomain' smart constructor. newtype DeleteDomain = DeleteDomain' - { _dddDomainName :: Text - } deriving (Eq,Read,Show,Data,Typeable,Generic) + { _dddDomainName :: Text + } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DeleteDomain' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -61,11 +62,9 @@ deleteDomain :: Text -- ^ 'dddDomainName' -> DeleteDomain -deleteDomain pDomainName_ = - DeleteDomain' - { _dddDomainName = pDomainName_ - } +deleteDomain pDomainName_ = DeleteDomain' {_dddDomainName = pDomainName_} + -- | The name of the domain you want to permanently delete. dddDomainName :: Lens' DeleteDomain Text dddDomainName = lens _dddDomainName (\ s a -> s{_dddDomainName = a}); @@ -79,9 +78,9 @@ DeleteDomainResponse' <$> (x .@? "DomainStatus") <*> (pure (fromEnum s))) -instance Hashable DeleteDomain +instance Hashable DeleteDomain where -instance NFData DeleteDomain +instance NFData DeleteDomain where instance ToHeaders DeleteDomain where toHeaders = const mempty @@ -102,10 +101,11 @@ -- -- /See:/ 'deleteDomainResponse' smart constructor. data DeleteDomainResponse = DeleteDomainResponse' - { _ddrsDomainStatus :: !(Maybe DomainStatus) - , _ddrsResponseStatus :: !Int - } deriving (Eq,Read,Show,Data,Typeable,Generic) + { _ddrsDomainStatus :: !(Maybe DomainStatus) + , _ddrsResponseStatus :: !Int + } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DeleteDomainResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -117,11 +117,10 @@ :: Int -- ^ 'ddrsResponseStatus' -> DeleteDomainResponse deleteDomainResponse pResponseStatus_ = - DeleteDomainResponse' - { _ddrsDomainStatus = Nothing - , _ddrsResponseStatus = pResponseStatus_ - } + DeleteDomainResponse' + {_ddrsDomainStatus = Nothing, _ddrsResponseStatus = pResponseStatus_} + -- | Undocumented member. ddrsDomainStatus :: Lens' DeleteDomainResponse (Maybe DomainStatus) ddrsDomainStatus = lens _ddrsDomainStatus (\ s a -> s{_ddrsDomainStatus = a}); @@ -130,4 +129,4 @@ ddrsResponseStatus :: Lens' DeleteDomainResponse Int ddrsResponseStatus = lens _ddrsResponseStatus (\ s a -> s{_ddrsResponseStatus = a}); -instance NFData DeleteDomainResponse +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,9 +12,9 @@ -- | -- Module : Network.AWS.CloudSearch.DeleteExpression --- Copyright : (c) 2013-2016 Brendan Hay +-- Copyright : (c) 2013-2017 Brendan Hay -- License : Mozilla Public License, v. 2.0. --- Maintainer : Brendan Hay +-- Maintainer : Brendan Hay -- Stability : auto-generated -- Portability : non-portable (GHC extensions) -- @@ -38,12 +38,12 @@ , delrsExpression ) where -import Network.AWS.CloudSearch.Types -import Network.AWS.CloudSearch.Types.Product -import Network.AWS.Lens -import Network.AWS.Prelude -import Network.AWS.Request -import Network.AWS.Response +import Network.AWS.CloudSearch.Types +import Network.AWS.CloudSearch.Types.Product +import Network.AWS.Lens +import Network.AWS.Prelude +import Network.AWS.Request +import Network.AWS.Response -- | Container for the parameters to the @'DeleteExpression' @ operation. Specifies the name of the domain you want to update and the name of the expression you want to delete. -- @@ -51,10 +51,11 @@ -- -- /See:/ 'deleteExpression' smart constructor. data DeleteExpression = DeleteExpression' - { _delDomainName :: !Text - , _delExpressionName :: !Text - } deriving (Eq,Read,Show,Data,Typeable,Generic) + { _delDomainName :: !Text + , _delExpressionName :: !Text + } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DeleteExpression' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -67,11 +68,10 @@ -> Text -- ^ 'delExpressionName' -> DeleteExpression deleteExpression pDomainName_ pExpressionName_ = - DeleteExpression' - { _delDomainName = pDomainName_ - , _delExpressionName = pExpressionName_ - } + DeleteExpression' + {_delDomainName = pDomainName_, _delExpressionName = pExpressionName_} + -- | Undocumented member. delDomainName :: Lens' DeleteExpression Text delDomainName = lens _delDomainName (\ s a -> s{_delDomainName = a}); @@ -89,9 +89,9 @@ DeleteExpressionResponse' <$> (pure (fromEnum s)) <*> (x .@ "Expression")) -instance Hashable DeleteExpression +instance Hashable DeleteExpression where -instance NFData DeleteExpression +instance NFData DeleteExpression where instance ToHeaders DeleteExpression where toHeaders = const mempty @@ -113,10 +113,11 @@ -- -- /See:/ 'deleteExpressionResponse' smart constructor. data DeleteExpressionResponse = DeleteExpressionResponse' - { _delrsResponseStatus :: !Int - , _delrsExpression :: !ExpressionStatus - } deriving (Eq,Read,Show,Data,Typeable,Generic) + { _delrsResponseStatus :: !Int + , _delrsExpression :: !ExpressionStatus + } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DeleteExpressionResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -129,11 +130,10 @@ -> ExpressionStatus -- ^ 'delrsExpression' -> DeleteExpressionResponse deleteExpressionResponse pResponseStatus_ pExpression_ = - DeleteExpressionResponse' - { _delrsResponseStatus = pResponseStatus_ - , _delrsExpression = pExpression_ - } + DeleteExpressionResponse' + {_delrsResponseStatus = pResponseStatus_, _delrsExpression = pExpression_} + -- | -- | The response status code. delrsResponseStatus :: Lens' DeleteExpressionResponse Int delrsResponseStatus = lens _delrsResponseStatus (\ s a -> s{_delrsResponseStatus = a}); @@ -142,4 +142,4 @@ delrsExpression :: Lens' DeleteExpressionResponse ExpressionStatus delrsExpression = lens _delrsExpression (\ s a -> s{_delrsExpression = a}); -instance NFData DeleteExpressionResponse +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,9 +12,9 @@ -- | -- Module : Network.AWS.CloudSearch.DeleteIndexField --- Copyright : (c) 2013-2016 Brendan Hay +-- Copyright : (c) 2013-2017 Brendan Hay -- License : Mozilla Public License, v. 2.0. --- Maintainer : Brendan Hay +-- Maintainer : Brendan Hay -- Stability : auto-generated -- Portability : non-portable (GHC extensions) -- @@ -38,12 +38,12 @@ , difrsIndexField ) where -import Network.AWS.CloudSearch.Types -import Network.AWS.CloudSearch.Types.Product -import Network.AWS.Lens -import Network.AWS.Prelude -import Network.AWS.Request -import Network.AWS.Response +import Network.AWS.CloudSearch.Types +import Network.AWS.CloudSearch.Types.Product +import Network.AWS.Lens +import Network.AWS.Prelude +import Network.AWS.Request +import Network.AWS.Response -- | Container for the parameters to the @'DeleteIndexField' @ operation. Specifies the name of the domain you want to update and the name of the index field you want to delete. -- @@ -51,10 +51,11 @@ -- -- /See:/ 'deleteIndexField' smart constructor. data DeleteIndexField = DeleteIndexField' - { _difiDomainName :: !Text - , _difiIndexFieldName :: !Text - } deriving (Eq,Read,Show,Data,Typeable,Generic) + { _difiDomainName :: !Text + , _difiIndexFieldName :: !Text + } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DeleteIndexField' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -67,11 +68,10 @@ -> Text -- ^ 'difiIndexFieldName' -> DeleteIndexField deleteIndexField pDomainName_ pIndexFieldName_ = - DeleteIndexField' - { _difiDomainName = pDomainName_ - , _difiIndexFieldName = pIndexFieldName_ - } + DeleteIndexField' + {_difiDomainName = pDomainName_, _difiIndexFieldName = pIndexFieldName_} + -- | Undocumented member. difiDomainName :: Lens' DeleteIndexField Text difiDomainName = lens _difiDomainName (\ s a -> s{_difiDomainName = a}); @@ -89,9 +89,9 @@ DeleteIndexFieldResponse' <$> (pure (fromEnum s)) <*> (x .@ "IndexField")) -instance Hashable DeleteIndexField +instance Hashable DeleteIndexField where -instance NFData DeleteIndexField +instance NFData DeleteIndexField where instance ToHeaders DeleteIndexField where toHeaders = const mempty @@ -113,10 +113,11 @@ -- -- /See:/ 'deleteIndexFieldResponse' smart constructor. data DeleteIndexFieldResponse = DeleteIndexFieldResponse' - { _difrsResponseStatus :: !Int - , _difrsIndexField :: !IndexFieldStatus - } deriving (Eq,Read,Show,Data,Typeable,Generic) + { _difrsResponseStatus :: !Int + , _difrsIndexField :: !IndexFieldStatus + } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DeleteIndexFieldResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -129,11 +130,10 @@ -> IndexFieldStatus -- ^ 'difrsIndexField' -> DeleteIndexFieldResponse deleteIndexFieldResponse pResponseStatus_ pIndexField_ = - DeleteIndexFieldResponse' - { _difrsResponseStatus = pResponseStatus_ - , _difrsIndexField = pIndexField_ - } + DeleteIndexFieldResponse' + {_difrsResponseStatus = pResponseStatus_, _difrsIndexField = pIndexField_} + -- | -- | The response status code. difrsResponseStatus :: Lens' DeleteIndexFieldResponse Int difrsResponseStatus = lens _difrsResponseStatus (\ s a -> s{_difrsResponseStatus = a}); @@ -142,4 +142,4 @@ difrsIndexField :: Lens' DeleteIndexFieldResponse IndexFieldStatus difrsIndexField = lens _difrsIndexField (\ s a -> s{_difrsIndexField = a}); -instance NFData DeleteIndexFieldResponse +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,9 +12,9 @@ -- | -- Module : Network.AWS.CloudSearch.DeleteSuggester --- Copyright : (c) 2013-2016 Brendan Hay +-- Copyright : (c) 2013-2017 Brendan Hay -- License : Mozilla Public License, v. 2.0. --- Maintainer : Brendan Hay +-- Maintainer : Brendan Hay -- Stability : auto-generated -- Portability : non-portable (GHC extensions) -- @@ -38,12 +38,12 @@ , delersSuggester ) where -import Network.AWS.CloudSearch.Types -import Network.AWS.CloudSearch.Types.Product -import Network.AWS.Lens -import Network.AWS.Prelude -import Network.AWS.Request -import Network.AWS.Response +import Network.AWS.CloudSearch.Types +import Network.AWS.CloudSearch.Types.Product +import Network.AWS.Lens +import Network.AWS.Prelude +import Network.AWS.Request +import Network.AWS.Response -- | Container for the parameters to the @'DeleteSuggester' @ operation. Specifies the name of the domain you want to update and name of the suggester you want to delete. -- @@ -51,10 +51,11 @@ -- -- /See:/ 'deleteSuggester' smart constructor. data DeleteSuggester = DeleteSuggester' - { _ddDomainName :: !Text - , _ddSuggesterName :: !Text - } deriving (Eq,Read,Show,Data,Typeable,Generic) + { _ddDomainName :: !Text + , _ddSuggesterName :: !Text + } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DeleteSuggester' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -67,11 +68,10 @@ -> Text -- ^ 'ddSuggesterName' -> DeleteSuggester deleteSuggester pDomainName_ pSuggesterName_ = - DeleteSuggester' - { _ddDomainName = pDomainName_ - , _ddSuggesterName = pSuggesterName_ - } + DeleteSuggester' + {_ddDomainName = pDomainName_, _ddSuggesterName = pSuggesterName_} + -- | Undocumented member. ddDomainName :: Lens' DeleteSuggester Text ddDomainName = lens _ddDomainName (\ s a -> s{_ddDomainName = a}); @@ -89,9 +89,9 @@ DeleteSuggesterResponse' <$> (pure (fromEnum s)) <*> (x .@ "Suggester")) -instance Hashable DeleteSuggester +instance Hashable DeleteSuggester where -instance NFData DeleteSuggester +instance NFData DeleteSuggester where instance ToHeaders DeleteSuggester where toHeaders = const mempty @@ -113,10 +113,11 @@ -- -- /See:/ 'deleteSuggesterResponse' smart constructor. data DeleteSuggesterResponse = DeleteSuggesterResponse' - { _delersResponseStatus :: !Int - , _delersSuggester :: !SuggesterStatus - } deriving (Eq,Read,Show,Data,Typeable,Generic) + { _delersResponseStatus :: !Int + , _delersSuggester :: !SuggesterStatus + } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DeleteSuggesterResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -129,11 +130,10 @@ -> SuggesterStatus -- ^ 'delersSuggester' -> DeleteSuggesterResponse deleteSuggesterResponse pResponseStatus_ pSuggester_ = - DeleteSuggesterResponse' - { _delersResponseStatus = pResponseStatus_ - , _delersSuggester = pSuggester_ - } + DeleteSuggesterResponse' + {_delersResponseStatus = pResponseStatus_, _delersSuggester = pSuggester_} + -- | -- | The response status code. delersResponseStatus :: Lens' DeleteSuggesterResponse Int delersResponseStatus = lens _delersResponseStatus (\ s a -> s{_delersResponseStatus = a}); @@ -142,4 +142,4 @@ delersSuggester :: Lens' DeleteSuggesterResponse SuggesterStatus delersSuggester = lens _delersSuggester (\ s a -> s{_delersSuggester = a}); -instance NFData DeleteSuggesterResponse +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,9 +12,9 @@ -- | -- Module : Network.AWS.CloudSearch.DescribeAnalysisSchemes --- Copyright : (c) 2013-2016 Brendan Hay +-- Copyright : (c) 2013-2017 Brendan Hay -- License : Mozilla Public License, v. 2.0. --- Maintainer : Brendan Hay +-- Maintainer : Brendan Hay -- Stability : auto-generated -- Portability : non-portable (GHC extensions) -- @@ -39,12 +39,12 @@ , dasrsAnalysisSchemes ) where -import Network.AWS.CloudSearch.Types -import Network.AWS.CloudSearch.Types.Product -import Network.AWS.Lens -import Network.AWS.Prelude -import Network.AWS.Request -import Network.AWS.Response +import Network.AWS.CloudSearch.Types +import Network.AWS.CloudSearch.Types.Product +import Network.AWS.Lens +import Network.AWS.Prelude +import Network.AWS.Request +import Network.AWS.Response -- | Container for the parameters to the @'DescribeAnalysisSchemes' @ operation. Specifies the name of the domain you want to describe. To limit the response to particular analysis schemes, specify the names of the analysis schemes you want to describe. To show the active configuration and exclude any pending changes, set the @Deployed@ option to @true@ . -- @@ -52,11 +52,12 @@ -- -- /See:/ 'describeAnalysisSchemes' smart constructor. data DescribeAnalysisSchemes = DescribeAnalysisSchemes' - { _dassDeployed :: !(Maybe Bool) - , _dassAnalysisSchemeNames :: !(Maybe [Text]) - , _dassDomainName :: !Text - } deriving (Eq,Read,Show,Data,Typeable,Generic) + { _dassDeployed :: !(Maybe Bool) + , _dassAnalysisSchemeNames :: !(Maybe [Text]) + , _dassDomainName :: !Text + } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DescribeAnalysisSchemes' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -70,12 +71,13 @@ :: Text -- ^ 'dassDomainName' -> DescribeAnalysisSchemes describeAnalysisSchemes pDomainName_ = - DescribeAnalysisSchemes' - { _dassDeployed = Nothing - , _dassAnalysisSchemeNames = Nothing - , _dassDomainName = pDomainName_ - } + DescribeAnalysisSchemes' + { _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}); @@ -100,9 +102,9 @@ (x .@? "AnalysisSchemes" .!@ mempty >>= parseXMLList "member")) -instance Hashable DescribeAnalysisSchemes +instance Hashable DescribeAnalysisSchemes where -instance NFData DescribeAnalysisSchemes +instance NFData DescribeAnalysisSchemes where instance ToHeaders DescribeAnalysisSchemes where toHeaders = const mempty @@ -128,10 +130,11 @@ -- -- /See:/ 'describeAnalysisSchemesResponse' smart constructor. data DescribeAnalysisSchemesResponse = DescribeAnalysisSchemesResponse' - { _dasrsResponseStatus :: !Int - , _dasrsAnalysisSchemes :: ![AnalysisSchemeStatus] - } deriving (Eq,Read,Show,Data,Typeable,Generic) + { _dasrsResponseStatus :: !Int + , _dasrsAnalysisSchemes :: ![AnalysisSchemeStatus] + } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DescribeAnalysisSchemesResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -143,11 +146,10 @@ :: Int -- ^ 'dasrsResponseStatus' -> DescribeAnalysisSchemesResponse describeAnalysisSchemesResponse pResponseStatus_ = - DescribeAnalysisSchemesResponse' - { _dasrsResponseStatus = pResponseStatus_ - , _dasrsAnalysisSchemes = mempty - } + DescribeAnalysisSchemesResponse' + {_dasrsResponseStatus = pResponseStatus_, _dasrsAnalysisSchemes = mempty} + -- | -- | The response status code. dasrsResponseStatus :: Lens' DescribeAnalysisSchemesResponse Int dasrsResponseStatus = lens _dasrsResponseStatus (\ s a -> s{_dasrsResponseStatus = a}); @@ -156,4 +158,4 @@ dasrsAnalysisSchemes :: Lens' DescribeAnalysisSchemesResponse [AnalysisSchemeStatus] dasrsAnalysisSchemes = lens _dasrsAnalysisSchemes (\ s a -> s{_dasrsAnalysisSchemes = a}) . _Coerce; -instance NFData DescribeAnalysisSchemesResponse +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,9 +12,9 @@ -- | -- Module : Network.AWS.CloudSearch.DescribeAvailabilityOptions --- Copyright : (c) 2013-2016 Brendan Hay +-- Copyright : (c) 2013-2017 Brendan Hay -- License : Mozilla Public License, v. 2.0. --- Maintainer : Brendan Hay +-- Maintainer : Brendan Hay -- Stability : auto-generated -- Portability : non-portable (GHC extensions) -- @@ -38,12 +38,12 @@ , daorsResponseStatus ) where -import Network.AWS.CloudSearch.Types -import Network.AWS.CloudSearch.Types.Product -import Network.AWS.Lens -import Network.AWS.Prelude -import Network.AWS.Request -import Network.AWS.Response +import Network.AWS.CloudSearch.Types +import Network.AWS.CloudSearch.Types.Product +import Network.AWS.Lens +import Network.AWS.Prelude +import Network.AWS.Request +import Network.AWS.Response -- | Container for the parameters to the @'DescribeAvailabilityOptions' @ operation. Specifies the name of the domain you want to describe. To show the active configuration and exclude any pending changes, set the Deployed option to @true@ . -- @@ -51,10 +51,11 @@ -- -- /See:/ 'describeAvailabilityOptions' smart constructor. data DescribeAvailabilityOptions = DescribeAvailabilityOptions' - { _daoDeployed :: !(Maybe Bool) - , _daoDomainName :: !Text - } deriving (Eq,Read,Show,Data,Typeable,Generic) + { _daoDeployed :: !(Maybe Bool) + , _daoDomainName :: !Text + } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DescribeAvailabilityOptions' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -66,11 +67,10 @@ :: Text -- ^ 'daoDomainName' -> DescribeAvailabilityOptions describeAvailabilityOptions pDomainName_ = - DescribeAvailabilityOptions' - { _daoDeployed = Nothing - , _daoDomainName = pDomainName_ - } + DescribeAvailabilityOptions' + {_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}); @@ -91,9 +91,9 @@ (x .@? "AvailabilityOptions") <*> (pure (fromEnum s))) -instance Hashable DescribeAvailabilityOptions +instance Hashable DescribeAvailabilityOptions where -instance NFData DescribeAvailabilityOptions +instance NFData DescribeAvailabilityOptions where instance ToHeaders DescribeAvailabilityOptions where toHeaders = const mempty @@ -116,10 +116,11 @@ -- -- /See:/ 'describeAvailabilityOptionsResponse' smart constructor. data DescribeAvailabilityOptionsResponse = DescribeAvailabilityOptionsResponse' - { _daorsAvailabilityOptions :: !(Maybe AvailabilityOptionsStatus) - , _daorsResponseStatus :: !Int - } deriving (Eq,Read,Show,Data,Typeable,Generic) + { _daorsAvailabilityOptions :: !(Maybe AvailabilityOptionsStatus) + , _daorsResponseStatus :: !Int + } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DescribeAvailabilityOptionsResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -131,11 +132,10 @@ :: Int -- ^ 'daorsResponseStatus' -> DescribeAvailabilityOptionsResponse describeAvailabilityOptionsResponse pResponseStatus_ = - DescribeAvailabilityOptionsResponse' - { _daorsAvailabilityOptions = Nothing - , _daorsResponseStatus = pResponseStatus_ - } + DescribeAvailabilityOptionsResponse' + {_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}); @@ -145,3 +145,4 @@ 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,9 +12,9 @@ -- | -- Module : Network.AWS.CloudSearch.DescribeDomains --- Copyright : (c) 2013-2016 Brendan Hay +-- Copyright : (c) 2013-2017 Brendan Hay -- License : Mozilla Public License, v. 2.0. --- Maintainer : Brendan Hay +-- Maintainer : Brendan Hay -- Stability : auto-generated -- Portability : non-portable (GHC extensions) -- @@ -37,12 +37,12 @@ , ddsrsDomainStatusList ) where -import Network.AWS.CloudSearch.Types -import Network.AWS.CloudSearch.Types.Product -import Network.AWS.Lens -import Network.AWS.Prelude -import Network.AWS.Request -import Network.AWS.Response +import Network.AWS.CloudSearch.Types +import Network.AWS.CloudSearch.Types.Product +import Network.AWS.Lens +import Network.AWS.Prelude +import Network.AWS.Request +import Network.AWS.Response -- | Container for the parameters to the @'DescribeDomains' @ operation. By default shows the status of all domains. To restrict the response to particular domains, specify the names of the domains you want to describe. -- @@ -50,9 +50,10 @@ -- -- /See:/ 'describeDomains' smart constructor. newtype DescribeDomains = DescribeDomains' - { _ddDomainNames :: Maybe [Text] - } deriving (Eq,Read,Show,Data,Typeable,Generic) + { _ddDomainNames :: Maybe [Text] + } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DescribeDomains' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -60,11 +61,9 @@ -- * 'ddDomainNames' - The names of the domains you want to include in the response. describeDomains :: DescribeDomains -describeDomains = - DescribeDomains' - { _ddDomainNames = Nothing - } +describeDomains = DescribeDomains' {_ddDomainNames = Nothing} + -- | 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; @@ -80,9 +79,9 @@ (x .@? "DomainStatusList" .!@ mempty >>= parseXMLList "member")) -instance Hashable DescribeDomains +instance Hashable DescribeDomains where -instance NFData DescribeDomains +instance NFData DescribeDomains where instance ToHeaders DescribeDomains where toHeaders = const mempty @@ -104,10 +103,11 @@ -- -- /See:/ 'describeDomainsResponse' smart constructor. data DescribeDomainsResponse = DescribeDomainsResponse' - { _ddsrsResponseStatus :: !Int - , _ddsrsDomainStatusList :: ![DomainStatus] - } deriving (Eq,Read,Show,Data,Typeable,Generic) + { _ddsrsResponseStatus :: !Int + , _ddsrsDomainStatusList :: ![DomainStatus] + } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DescribeDomainsResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -119,11 +119,10 @@ :: Int -- ^ 'ddsrsResponseStatus' -> DescribeDomainsResponse describeDomainsResponse pResponseStatus_ = - DescribeDomainsResponse' - { _ddsrsResponseStatus = pResponseStatus_ - , _ddsrsDomainStatusList = mempty - } + DescribeDomainsResponse' + {_ddsrsResponseStatus = pResponseStatus_, _ddsrsDomainStatusList = mempty} + -- | -- | The response status code. ddsrsResponseStatus :: Lens' DescribeDomainsResponse Int ddsrsResponseStatus = lens _ddsrsResponseStatus (\ s a -> s{_ddsrsResponseStatus = a}); @@ -132,4 +131,4 @@ ddsrsDomainStatusList :: Lens' DescribeDomainsResponse [DomainStatus] ddsrsDomainStatusList = lens _ddsrsDomainStatusList (\ s a -> s{_ddsrsDomainStatusList = a}) . _Coerce; -instance NFData DescribeDomainsResponse +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,9 +12,9 @@ -- | -- Module : Network.AWS.CloudSearch.DescribeExpressions --- Copyright : (c) 2013-2016 Brendan Hay +-- Copyright : (c) 2013-2017 Brendan Hay -- License : Mozilla Public License, v. 2.0. --- Maintainer : Brendan Hay +-- Maintainer : Brendan Hay -- Stability : auto-generated -- Portability : non-portable (GHC extensions) -- @@ -39,12 +39,12 @@ , drsExpressions ) where -import Network.AWS.CloudSearch.Types -import Network.AWS.CloudSearch.Types.Product -import Network.AWS.Lens -import Network.AWS.Prelude -import Network.AWS.Request -import Network.AWS.Response +import Network.AWS.CloudSearch.Types +import Network.AWS.CloudSearch.Types.Product +import Network.AWS.Lens +import Network.AWS.Prelude +import Network.AWS.Request +import Network.AWS.Response -- | Container for the parameters to the @'DescribeDomains' @ operation. Specifies the name of the domain you want to describe. To restrict the response to particular expressions, specify the names of the expressions you want to describe. To show the active configuration and exclude any pending changes, set the @Deployed@ option to @true@ . -- @@ -52,11 +52,12 @@ -- -- /See:/ 'describeExpressions' smart constructor. data DescribeExpressions = DescribeExpressions' - { _deDeployed :: !(Maybe Bool) - , _deExpressionNames :: !(Maybe [Text]) - , _deDomainName :: !Text - } deriving (Eq,Read,Show,Data,Typeable,Generic) + { _deDeployed :: !(Maybe Bool) + , _deExpressionNames :: !(Maybe [Text]) + , _deDomainName :: !Text + } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DescribeExpressions' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -70,12 +71,13 @@ :: Text -- ^ 'deDomainName' -> DescribeExpressions describeExpressions pDomainName_ = - DescribeExpressions' - { _deDeployed = Nothing - , _deExpressionNames = Nothing - , _deDomainName = pDomainName_ - } + DescribeExpressions' + { _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}); @@ -100,9 +102,9 @@ (x .@? "Expressions" .!@ mempty >>= parseXMLList "member")) -instance Hashable DescribeExpressions +instance Hashable DescribeExpressions where -instance NFData DescribeExpressions +instance NFData DescribeExpressions where instance ToHeaders DescribeExpressions where toHeaders = const mempty @@ -127,10 +129,11 @@ -- -- /See:/ 'describeExpressionsResponse' smart constructor. data DescribeExpressionsResponse = DescribeExpressionsResponse' - { _drsResponseStatus :: !Int - , _drsExpressions :: ![ExpressionStatus] - } deriving (Eq,Read,Show,Data,Typeable,Generic) + { _drsResponseStatus :: !Int + , _drsExpressions :: ![ExpressionStatus] + } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DescribeExpressionsResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -142,11 +145,10 @@ :: Int -- ^ 'drsResponseStatus' -> DescribeExpressionsResponse describeExpressionsResponse pResponseStatus_ = - DescribeExpressionsResponse' - { _drsResponseStatus = pResponseStatus_ - , _drsExpressions = mempty - } + DescribeExpressionsResponse' + {_drsResponseStatus = pResponseStatus_, _drsExpressions = mempty} + -- | -- | The response status code. drsResponseStatus :: Lens' DescribeExpressionsResponse Int drsResponseStatus = lens _drsResponseStatus (\ s a -> s{_drsResponseStatus = a}); @@ -155,4 +157,4 @@ drsExpressions :: Lens' DescribeExpressionsResponse [ExpressionStatus] drsExpressions = lens _drsExpressions (\ s a -> s{_drsExpressions = a}) . _Coerce; -instance NFData DescribeExpressionsResponse +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,9 +12,9 @@ -- | -- Module : Network.AWS.CloudSearch.DescribeIndexFields --- Copyright : (c) 2013-2016 Brendan Hay +-- Copyright : (c) 2013-2017 Brendan Hay -- License : Mozilla Public License, v. 2.0. --- Maintainer : Brendan Hay +-- Maintainer : Brendan Hay -- Stability : auto-generated -- Portability : non-portable (GHC extensions) -- @@ -39,12 +39,12 @@ , difsrsIndexFields ) where -import Network.AWS.CloudSearch.Types -import Network.AWS.CloudSearch.Types.Product -import Network.AWS.Lens -import Network.AWS.Prelude -import Network.AWS.Request -import Network.AWS.Response +import Network.AWS.CloudSearch.Types +import Network.AWS.CloudSearch.Types.Product +import Network.AWS.Lens +import Network.AWS.Prelude +import Network.AWS.Request +import Network.AWS.Response -- | Container for the parameters to the @'DescribeIndexFields' @ operation. Specifies the name of the domain you want to describe. To restrict the response to particular index fields, specify the names of the index fields you want to describe. To show the active configuration and exclude any pending changes, set the @Deployed@ option to @true@ . -- @@ -52,11 +52,12 @@ -- -- /See:/ 'describeIndexFields' smart constructor. data DescribeIndexFields = DescribeIndexFields' - { _difDeployed :: !(Maybe Bool) - , _difFieldNames :: !(Maybe [Text]) - , _difDomainName :: !Text - } deriving (Eq,Read,Show,Data,Typeable,Generic) + { _difDeployed :: !(Maybe Bool) + , _difFieldNames :: !(Maybe [Text]) + , _difDomainName :: !Text + } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DescribeIndexFields' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -70,12 +71,13 @@ :: Text -- ^ 'difDomainName' -> DescribeIndexFields describeIndexFields pDomainName_ = - DescribeIndexFields' - { _difDeployed = Nothing - , _difFieldNames = Nothing - , _difDomainName = pDomainName_ - } + DescribeIndexFields' + { _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}); @@ -100,9 +102,9 @@ (x .@? "IndexFields" .!@ mempty >>= parseXMLList "member")) -instance Hashable DescribeIndexFields +instance Hashable DescribeIndexFields where -instance NFData DescribeIndexFields +instance NFData DescribeIndexFields where instance ToHeaders DescribeIndexFields where toHeaders = const mempty @@ -126,10 +128,11 @@ -- -- /See:/ 'describeIndexFieldsResponse' smart constructor. data DescribeIndexFieldsResponse = DescribeIndexFieldsResponse' - { _difsrsResponseStatus :: !Int - , _difsrsIndexFields :: ![IndexFieldStatus] - } deriving (Eq,Read,Show,Data,Typeable,Generic) + { _difsrsResponseStatus :: !Int + , _difsrsIndexFields :: ![IndexFieldStatus] + } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DescribeIndexFieldsResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -141,11 +144,10 @@ :: Int -- ^ 'difsrsResponseStatus' -> DescribeIndexFieldsResponse describeIndexFieldsResponse pResponseStatus_ = - DescribeIndexFieldsResponse' - { _difsrsResponseStatus = pResponseStatus_ - , _difsrsIndexFields = mempty - } + DescribeIndexFieldsResponse' + {_difsrsResponseStatus = pResponseStatus_, _difsrsIndexFields = mempty} + -- | -- | The response status code. difsrsResponseStatus :: Lens' DescribeIndexFieldsResponse Int difsrsResponseStatus = lens _difsrsResponseStatus (\ s a -> s{_difsrsResponseStatus = a}); @@ -154,4 +156,4 @@ difsrsIndexFields :: Lens' DescribeIndexFieldsResponse [IndexFieldStatus] difsrsIndexFields = lens _difsrsIndexFields (\ s a -> s{_difsrsIndexFields = a}) . _Coerce; -instance NFData DescribeIndexFieldsResponse +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,9 +12,9 @@ -- | -- Module : Network.AWS.CloudSearch.DescribeScalingParameters --- Copyright : (c) 2013-2016 Brendan Hay +-- Copyright : (c) 2013-2017 Brendan Hay -- License : Mozilla Public License, v. 2.0. --- Maintainer : Brendan Hay +-- Maintainer : Brendan Hay -- Stability : auto-generated -- Portability : non-portable (GHC extensions) -- @@ -37,12 +37,12 @@ , dsprsScalingParameters ) where -import Network.AWS.CloudSearch.Types -import Network.AWS.CloudSearch.Types.Product -import Network.AWS.Lens -import Network.AWS.Prelude -import Network.AWS.Request -import Network.AWS.Response +import Network.AWS.CloudSearch.Types +import Network.AWS.CloudSearch.Types.Product +import Network.AWS.Lens +import Network.AWS.Prelude +import Network.AWS.Request +import Network.AWS.Response -- | Container for the parameters to the @'DescribeScalingParameters' @ operation. Specifies the name of the domain you want to describe. -- @@ -50,9 +50,10 @@ -- -- /See:/ 'describeScalingParameters' smart constructor. newtype DescribeScalingParameters = DescribeScalingParameters' - { _dspDomainName :: Text - } deriving (Eq,Read,Show,Data,Typeable,Generic) + { _dspDomainName :: Text + } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DescribeScalingParameters' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -62,10 +63,9 @@ :: Text -- ^ 'dspDomainName' -> DescribeScalingParameters describeScalingParameters pDomainName_ = - DescribeScalingParameters' - { _dspDomainName = pDomainName_ - } + DescribeScalingParameters' {_dspDomainName = pDomainName_} + -- | Undocumented member. dspDomainName :: Lens' DescribeScalingParameters Text dspDomainName = lens _dspDomainName (\ s a -> s{_dspDomainName = a}); @@ -80,9 +80,9 @@ DescribeScalingParametersResponse' <$> (pure (fromEnum s)) <*> (x .@ "ScalingParameters")) -instance Hashable DescribeScalingParameters +instance Hashable DescribeScalingParameters where -instance NFData DescribeScalingParameters +instance NFData DescribeScalingParameters where instance ToHeaders DescribeScalingParameters where toHeaders = const mempty @@ -104,10 +104,11 @@ -- -- /See:/ 'describeScalingParametersResponse' smart constructor. data DescribeScalingParametersResponse = DescribeScalingParametersResponse' - { _dsprsResponseStatus :: !Int - , _dsprsScalingParameters :: !ScalingParametersStatus - } deriving (Eq,Read,Show,Data,Typeable,Generic) + { _dsprsResponseStatus :: !Int + , _dsprsScalingParameters :: !ScalingParametersStatus + } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DescribeScalingParametersResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -120,11 +121,12 @@ -> ScalingParametersStatus -- ^ 'dsprsScalingParameters' -> DescribeScalingParametersResponse describeScalingParametersResponse pResponseStatus_ pScalingParameters_ = - DescribeScalingParametersResponse' - { _dsprsResponseStatus = pResponseStatus_ - , _dsprsScalingParameters = pScalingParameters_ - } + DescribeScalingParametersResponse' + { _dsprsResponseStatus = pResponseStatus_ + , _dsprsScalingParameters = pScalingParameters_ + } + -- | -- | The response status code. dsprsResponseStatus :: Lens' DescribeScalingParametersResponse Int dsprsResponseStatus = lens _dsprsResponseStatus (\ s a -> s{_dsprsResponseStatus = a}); @@ -134,3 +136,4 @@ 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,9 +12,9 @@ -- | -- Module : Network.AWS.CloudSearch.DescribeServiceAccessPolicies --- Copyright : (c) 2013-2016 Brendan Hay +-- Copyright : (c) 2013-2017 Brendan Hay -- License : Mozilla Public License, v. 2.0. --- Maintainer : Brendan Hay +-- Maintainer : Brendan Hay -- Stability : auto-generated -- Portability : non-portable (GHC extensions) -- @@ -38,12 +38,12 @@ , dsaprsAccessPolicies ) where -import Network.AWS.CloudSearch.Types -import Network.AWS.CloudSearch.Types.Product -import Network.AWS.Lens -import Network.AWS.Prelude -import Network.AWS.Request -import Network.AWS.Response +import Network.AWS.CloudSearch.Types +import Network.AWS.CloudSearch.Types.Product +import Network.AWS.Lens +import Network.AWS.Prelude +import Network.AWS.Request +import Network.AWS.Response -- | Container for the parameters to the @'DescribeServiceAccessPolicies' @ operation. Specifies the name of the domain you want to describe. To show the active configuration and exclude any pending changes, set the @Deployed@ option to @true@ . -- @@ -51,10 +51,11 @@ -- -- /See:/ 'describeServiceAccessPolicies' smart constructor. data DescribeServiceAccessPolicies = DescribeServiceAccessPolicies' - { _dsapDeployed :: !(Maybe Bool) - , _dsapDomainName :: !Text - } deriving (Eq,Read,Show,Data,Typeable,Generic) + { _dsapDeployed :: !(Maybe Bool) + , _dsapDomainName :: !Text + } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DescribeServiceAccessPolicies' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -66,11 +67,10 @@ :: Text -- ^ 'dsapDomainName' -> DescribeServiceAccessPolicies describeServiceAccessPolicies pDomainName_ = - DescribeServiceAccessPolicies' - { _dsapDeployed = Nothing - , _dsapDomainName = pDomainName_ - } + DescribeServiceAccessPolicies' + {_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}); @@ -91,9 +91,9 @@ DescribeServiceAccessPoliciesResponse' <$> (pure (fromEnum s)) <*> (x .@ "AccessPolicies")) -instance Hashable DescribeServiceAccessPolicies +instance Hashable DescribeServiceAccessPolicies where -instance NFData DescribeServiceAccessPolicies +instance NFData DescribeServiceAccessPolicies where instance ToHeaders DescribeServiceAccessPolicies where @@ -117,10 +117,11 @@ -- -- /See:/ 'describeServiceAccessPoliciesResponse' smart constructor. data DescribeServiceAccessPoliciesResponse = DescribeServiceAccessPoliciesResponse' - { _dsaprsResponseStatus :: !Int - , _dsaprsAccessPolicies :: !AccessPoliciesStatus - } deriving (Eq,Read,Show,Data,Typeable,Generic) + { _dsaprsResponseStatus :: !Int + , _dsaprsAccessPolicies :: !AccessPoliciesStatus + } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DescribeServiceAccessPoliciesResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -133,11 +134,12 @@ -> AccessPoliciesStatus -- ^ 'dsaprsAccessPolicies' -> DescribeServiceAccessPoliciesResponse describeServiceAccessPoliciesResponse pResponseStatus_ pAccessPolicies_ = - DescribeServiceAccessPoliciesResponse' - { _dsaprsResponseStatus = pResponseStatus_ - , _dsaprsAccessPolicies = pAccessPolicies_ - } + DescribeServiceAccessPoliciesResponse' + { _dsaprsResponseStatus = pResponseStatus_ + , _dsaprsAccessPolicies = pAccessPolicies_ + } + -- | -- | The response status code. dsaprsResponseStatus :: Lens' DescribeServiceAccessPoliciesResponse Int dsaprsResponseStatus = lens _dsaprsResponseStatus (\ s a -> s{_dsaprsResponseStatus = a}); @@ -147,3 +149,4 @@ 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,9 +12,9 @@ -- | -- Module : Network.AWS.CloudSearch.DescribeSuggesters --- Copyright : (c) 2013-2016 Brendan Hay +-- Copyright : (c) 2013-2017 Brendan Hay -- License : Mozilla Public License, v. 2.0. --- Maintainer : Brendan Hay +-- Maintainer : Brendan Hay -- Stability : auto-generated -- Portability : non-portable (GHC extensions) -- @@ -39,12 +39,12 @@ , dssrsSuggesters ) where -import Network.AWS.CloudSearch.Types -import Network.AWS.CloudSearch.Types.Product -import Network.AWS.Lens -import Network.AWS.Prelude -import Network.AWS.Request -import Network.AWS.Response +import Network.AWS.CloudSearch.Types +import Network.AWS.CloudSearch.Types.Product +import Network.AWS.Lens +import Network.AWS.Prelude +import Network.AWS.Request +import Network.AWS.Response -- | Container for the parameters to the @'DescribeSuggester' @ operation. Specifies the name of the domain you want to describe. To restrict the response to particular suggesters, specify the names of the suggesters you want to describe. To show the active configuration and exclude any pending changes, set the @Deployed@ option to @true@ . -- @@ -52,11 +52,12 @@ -- -- /See:/ 'describeSuggesters' smart constructor. data DescribeSuggesters = DescribeSuggesters' - { _dssDeployed :: !(Maybe Bool) - , _dssSuggesterNames :: !(Maybe [Text]) - , _dssDomainName :: !Text - } deriving (Eq,Read,Show,Data,Typeable,Generic) + { _dssDeployed :: !(Maybe Bool) + , _dssSuggesterNames :: !(Maybe [Text]) + , _dssDomainName :: !Text + } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DescribeSuggesters' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -70,12 +71,13 @@ :: Text -- ^ 'dssDomainName' -> DescribeSuggesters describeSuggesters pDomainName_ = - DescribeSuggesters' - { _dssDeployed = Nothing - , _dssSuggesterNames = Nothing - , _dssDomainName = pDomainName_ - } + DescribeSuggesters' + { _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}); @@ -100,9 +102,9 @@ (x .@? "Suggesters" .!@ mempty >>= parseXMLList "member")) -instance Hashable DescribeSuggesters +instance Hashable DescribeSuggesters where -instance NFData DescribeSuggesters +instance NFData DescribeSuggesters where instance ToHeaders DescribeSuggesters where toHeaders = const mempty @@ -127,10 +129,11 @@ -- -- /See:/ 'describeSuggestersResponse' smart constructor. data DescribeSuggestersResponse = DescribeSuggestersResponse' - { _dssrsResponseStatus :: !Int - , _dssrsSuggesters :: ![SuggesterStatus] - } deriving (Eq,Read,Show,Data,Typeable,Generic) + { _dssrsResponseStatus :: !Int + , _dssrsSuggesters :: ![SuggesterStatus] + } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DescribeSuggestersResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -142,11 +145,10 @@ :: Int -- ^ 'dssrsResponseStatus' -> DescribeSuggestersResponse describeSuggestersResponse pResponseStatus_ = - DescribeSuggestersResponse' - { _dssrsResponseStatus = pResponseStatus_ - , _dssrsSuggesters = mempty - } + DescribeSuggestersResponse' + {_dssrsResponseStatus = pResponseStatus_, _dssrsSuggesters = mempty} + -- | -- | The response status code. dssrsResponseStatus :: Lens' DescribeSuggestersResponse Int dssrsResponseStatus = lens _dssrsResponseStatus (\ s a -> s{_dssrsResponseStatus = a}); @@ -155,4 +157,4 @@ dssrsSuggesters :: Lens' DescribeSuggestersResponse [SuggesterStatus] dssrsSuggesters = lens _dssrsSuggesters (\ s a -> s{_dssrsSuggesters = a}) . _Coerce; -instance NFData DescribeSuggestersResponse +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,9 +12,9 @@ -- | -- Module : Network.AWS.CloudSearch.IndexDocuments --- Copyright : (c) 2013-2016 Brendan Hay +-- Copyright : (c) 2013-2017 Brendan Hay -- License : Mozilla Public License, v. 2.0. --- Maintainer : Brendan Hay +-- Maintainer : Brendan Hay -- Stability : auto-generated -- Portability : non-portable (GHC extensions) -- @@ -37,12 +37,12 @@ , idrsResponseStatus ) where -import Network.AWS.CloudSearch.Types -import Network.AWS.CloudSearch.Types.Product -import Network.AWS.Lens -import Network.AWS.Prelude -import Network.AWS.Request -import Network.AWS.Response +import Network.AWS.CloudSearch.Types +import Network.AWS.CloudSearch.Types.Product +import Network.AWS.Lens +import Network.AWS.Prelude +import Network.AWS.Request +import Network.AWS.Response -- | Container for the parameters to the @'IndexDocuments' @ operation. Specifies the name of the domain you want to re-index. -- @@ -50,9 +50,10 @@ -- -- /See:/ 'indexDocuments' smart constructor. newtype IndexDocuments = IndexDocuments' - { _idDomainName :: Text - } deriving (Eq,Read,Show,Data,Typeable,Generic) + { _idDomainName :: Text + } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'IndexDocuments' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -61,11 +62,9 @@ indexDocuments :: Text -- ^ 'idDomainName' -> IndexDocuments -indexDocuments pDomainName_ = - IndexDocuments' - { _idDomainName = pDomainName_ - } +indexDocuments pDomainName_ = IndexDocuments' {_idDomainName = pDomainName_} + -- | Undocumented member. idDomainName :: Lens' IndexDocuments Text idDomainName = lens _idDomainName (\ s a -> s{_idDomainName = a}); @@ -81,9 +80,9 @@ may (parseXMLList "member")) <*> (pure (fromEnum s))) -instance Hashable IndexDocuments +instance Hashable IndexDocuments where -instance NFData IndexDocuments +instance NFData IndexDocuments where instance ToHeaders IndexDocuments where toHeaders = const mempty @@ -104,10 +103,11 @@ -- -- /See:/ 'indexDocumentsResponse' smart constructor. data IndexDocumentsResponse = IndexDocumentsResponse' - { _idrsFieldNames :: !(Maybe [Text]) - , _idrsResponseStatus :: !Int - } deriving (Eq,Read,Show,Data,Typeable,Generic) + { _idrsFieldNames :: !(Maybe [Text]) + , _idrsResponseStatus :: !Int + } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'IndexDocumentsResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -119,11 +119,10 @@ :: Int -- ^ 'idrsResponseStatus' -> IndexDocumentsResponse indexDocumentsResponse pResponseStatus_ = - IndexDocumentsResponse' - { _idrsFieldNames = Nothing - , _idrsResponseStatus = pResponseStatus_ - } + IndexDocumentsResponse' + {_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; @@ -132,4 +131,4 @@ idrsResponseStatus :: Lens' IndexDocumentsResponse Int idrsResponseStatus = lens _idrsResponseStatus (\ s a -> s{_idrsResponseStatus = a}); -instance NFData IndexDocumentsResponse +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,9 +12,9 @@ -- | -- Module : Network.AWS.CloudSearch.ListDomainNames --- Copyright : (c) 2013-2016 Brendan Hay +-- Copyright : (c) 2013-2017 Brendan Hay -- License : Mozilla Public License, v. 2.0. --- Maintainer : Brendan Hay +-- Maintainer : Brendan Hay -- Stability : auto-generated -- Portability : non-portable (GHC extensions) -- @@ -35,24 +35,26 @@ , ldnrsResponseStatus ) where -import Network.AWS.CloudSearch.Types -import Network.AWS.CloudSearch.Types.Product -import Network.AWS.Lens -import Network.AWS.Prelude -import Network.AWS.Request -import Network.AWS.Response +import Network.AWS.CloudSearch.Types +import Network.AWS.CloudSearch.Types.Product +import Network.AWS.Lens +import Network.AWS.Prelude +import Network.AWS.Request +import Network.AWS.Response -- | /See:/ 'listDomainNames' smart constructor. data ListDomainNames = - ListDomainNames' - deriving (Eq,Read,Show,Data,Typeable,Generic) + ListDomainNames' + deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'ListDomainNames' with the minimum fields required to make a request. -- listDomainNames :: ListDomainNames listDomainNames = ListDomainNames' + instance AWSRequest ListDomainNames where type Rs ListDomainNames = ListDomainNamesResponse request = postQuery cloudSearch @@ -64,9 +66,9 @@ may (parseXMLMap "entry" "key" "value")) <*> (pure (fromEnum s))) -instance Hashable ListDomainNames +instance Hashable ListDomainNames where -instance NFData ListDomainNames +instance NFData ListDomainNames where instance ToHeaders ListDomainNames where toHeaders = const mempty @@ -87,10 +89,11 @@ -- -- /See:/ 'listDomainNamesResponse' smart constructor. data ListDomainNamesResponse = ListDomainNamesResponse' - { _ldnrsDomainNames :: !(Maybe (Map Text Text)) - , _ldnrsResponseStatus :: !Int - } deriving (Eq,Read,Show,Data,Typeable,Generic) + { _ldnrsDomainNames :: !(Maybe (Map Text Text)) + , _ldnrsResponseStatus :: !Int + } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'ListDomainNamesResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -102,11 +105,10 @@ :: Int -- ^ 'ldnrsResponseStatus' -> ListDomainNamesResponse listDomainNamesResponse pResponseStatus_ = - ListDomainNamesResponse' - { _ldnrsDomainNames = Nothing - , _ldnrsResponseStatus = pResponseStatus_ - } + ListDomainNamesResponse' + {_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; @@ -115,4 +117,4 @@ ldnrsResponseStatus :: Lens' ListDomainNamesResponse Int ldnrsResponseStatus = lens _ldnrsResponseStatus (\ s a -> s{_ldnrsResponseStatus = a}); -instance NFData ListDomainNamesResponse +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,9 +4,9 @@ -- | -- Module : Network.AWS.CloudSearch.Types --- Copyright : (c) 2013-2016 Brendan Hay +-- Copyright : (c) 2013-2017 Brendan Hay -- License : Mozilla Public License, v. 2.0. --- Maintainer : Brendan Hay +-- Maintainer : Brendan Hay -- Stability : auto-generated -- Portability : non-portable (GHC extensions) -- @@ -285,40 +285,42 @@ , toDefaultValue ) where -import Network.AWS.CloudSearch.Types.Product -import Network.AWS.CloudSearch.Types.Sum -import Network.AWS.Lens -import Network.AWS.Prelude -import Network.AWS.Sign.V4 +import Network.AWS.CloudSearch.Types.Product +import Network.AWS.CloudSearch.Types.Sum +import Network.AWS.Lens +import Network.AWS.Prelude +import Network.AWS.Sign.V4 -- | API version @2013-01-01@ of the Amazon CloudSearch SDK configuration. 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 - } + Service + { _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 - } + Exponential + { _retryBase = 5.0e-2 + , _retryGrowth = 2 + , _retryAttempts = 5 + , _retryCheck = check + } check e + | has (hasCode "ThrottledException" . hasStatus 400) e = + Just "throttled_exception" | has (hasCode "BandwidthLimitExceeded" . hasStatus 509) e = - Just "request_limit_exceeded" + Just "request_limit_exceeded" | has (hasStatus 429) e = Just "too_many_requests" | has (hasCode "ThrottlingException" . hasStatus 400) e = - Just "throttling_exception" + Just "throttling_exception" | has (hasCode "Throttling" . hasStatus 400) e = Just "throttling" | has (hasStatus 504) e = Just "gateway_timeout" | has (hasStatus 502) e = Just "bad_gateway" @@ -327,42 +329,50 @@ | has (hasStatus 509) e = Just "limit_exceeded" | otherwise = Nothing + -- | An error occurred while processing the request. -- -- _BaseException :: AsError a => Getting (First ServiceError) a ServiceError -_BaseException = _ServiceError . hasCode "BaseException" +_BaseException = _MatchServiceError cloudSearch "BaseException" + -- | The request was rejected because it attempted an operation which is not enabled. -- -- _DisabledOperationException :: AsError a => Getting (First ServiceError) a ServiceError _DisabledOperationException = - _ServiceError . hasStatus 409 . hasCode "DisabledAction" + _MatchServiceError cloudSearch "DisabledAction" . hasStatus 409 + -- | An internal error occurred while processing the request. If this problem persists, report an issue from the . -- -- _InternalException :: AsError a => Getting (First ServiceError) a ServiceError _InternalException = - _ServiceError . hasStatus 500 . hasCode "InternalException" + _MatchServiceError cloudSearch "InternalException" . hasStatus 500 + -- | The request was rejected because it specified an invalid type definition. -- -- _InvalidTypeException :: AsError a => Getting (First ServiceError) a ServiceError -_InvalidTypeException = _ServiceError . hasStatus 409 . hasCode "InvalidType" +_InvalidTypeException = + _MatchServiceError cloudSearch "InvalidType" . hasStatus 409 + -- | The request was rejected because it attempted to reference a resource that does not exist. -- -- _ResourceNotFoundException :: AsError a => Getting (First ServiceError) a ServiceError _ResourceNotFoundException = - _ServiceError . hasStatus 409 . hasCode "ResourceNotFound" + _MatchServiceError cloudSearch "ResourceNotFound" . hasStatus 409 + -- | The request was rejected because a resource limit has already been met. -- -- _LimitExceededException :: AsError a => Getting (First ServiceError) a ServiceError _LimitExceededException = - _ServiceError . hasStatus 409 . hasCode "LimitExceeded" + _MatchServiceError cloudSearch "LimitExceeded" . hasStatus 409 + 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,17 +9,17 @@ -- | -- Module : Network.AWS.CloudSearch.Types.Product --- Copyright : (c) 2013-2016 Brendan Hay +-- Copyright : (c) 2013-2017 Brendan Hay -- License : Mozilla Public License, v. 2.0. --- Maintainer : Brendan Hay +-- Maintainer : Brendan Hay -- Stability : auto-generated -- Portability : non-portable (GHC extensions) -- module Network.AWS.CloudSearch.Types.Product where -import Network.AWS.CloudSearch.Types.Sum -import Network.AWS.Lens -import Network.AWS.Prelude +import Network.AWS.CloudSearch.Types.Sum +import Network.AWS.Lens +import Network.AWS.Prelude -- | The configured access rules for the domain's document and search endpoints, and the current status of those rules. -- @@ -27,10 +27,11 @@ -- -- /See:/ 'accessPoliciesStatus' smart constructor. data AccessPoliciesStatus = AccessPoliciesStatus' - { _apsOptions :: !Text - , _apsStatus :: !OptionStatus - } deriving (Eq,Read,Show,Data,Typeable,Generic) + { _apsOptions :: !Text + , _apsStatus :: !OptionStatus + } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'AccessPoliciesStatus' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -43,11 +44,9 @@ -> OptionStatus -- ^ 'apsStatus' -> AccessPoliciesStatus accessPoliciesStatus pOptions_ pStatus_ = - AccessPoliciesStatus' - { _apsOptions = pOptions_ - , _apsStatus = pStatus_ - } + AccessPoliciesStatus' {_apsOptions = pOptions_, _apsStatus = pStatus_} + -- | Undocumented member. apsOptions :: Lens' AccessPoliciesStatus Text apsOptions = lens _apsOptions (\ s a -> s{_apsOptions = a}); @@ -61,9 +60,9 @@ = AccessPoliciesStatus' <$> (x .@ "Options") <*> (x .@ "Status") -instance Hashable AccessPoliciesStatus +instance Hashable AccessPoliciesStatus where -instance NFData AccessPoliciesStatus +instance NFData AccessPoliciesStatus where -- | Synonyms, stopwords, and stemming options for an analysis scheme. Includes tokenization dictionary for Japanese. -- @@ -71,13 +70,14 @@ -- -- /See:/ 'analysisOptions' smart constructor. data AnalysisOptions = AnalysisOptions' - { _aoAlgorithmicStemming :: !(Maybe AlgorithmicStemming) - , _aoStopwords :: !(Maybe Text) - , _aoJapaneseTokenizationDictionary :: !(Maybe Text) - , _aoSynonyms :: !(Maybe Text) - , _aoStemmingDictionary :: !(Maybe Text) - } deriving (Eq,Read,Show,Data,Typeable,Generic) + { _aoAlgorithmicStemming :: !(Maybe AlgorithmicStemming) + , _aoStopwords :: !(Maybe Text) + , _aoJapaneseTokenizationDictionary :: !(Maybe Text) + , _aoSynonyms :: !(Maybe Text) + , _aoStemmingDictionary :: !(Maybe Text) + } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'AnalysisOptions' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -94,14 +94,15 @@ analysisOptions :: AnalysisOptions analysisOptions = - AnalysisOptions' - { _aoAlgorithmicStemming = Nothing - , _aoStopwords = Nothing - , _aoJapaneseTokenizationDictionary = Nothing - , _aoSynonyms = Nothing - , _aoStemmingDictionary = Nothing - } + AnalysisOptions' + { _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 in the /Amazon CloudSearch Developer Guide/ aoAlgorithmicStemming :: Lens' AnalysisOptions (Maybe AlgorithmicStemming) aoAlgorithmicStemming = lens _aoAlgorithmicStemming (\ s a -> s{_aoAlgorithmicStemming = a}); @@ -130,9 +131,9 @@ <*> (x .@? "Synonyms") <*> (x .@? "StemmingDictionary") -instance Hashable AnalysisOptions +instance Hashable AnalysisOptions where -instance NFData AnalysisOptions +instance NFData AnalysisOptions where instance ToQuery AnalysisOptions where toQuery AnalysisOptions'{..} @@ -150,11 +151,12 @@ -- -- /See:/ 'analysisScheme' smart constructor. data AnalysisScheme = AnalysisScheme' - { _asAnalysisOptions :: !(Maybe AnalysisOptions) - , _asAnalysisSchemeName :: !Text - , _asAnalysisSchemeLanguage :: !AnalysisSchemeLanguage - } deriving (Eq,Read,Show,Data,Typeable,Generic) + { _asAnalysisOptions :: !(Maybe AnalysisOptions) + , _asAnalysisSchemeName :: !Text + , _asAnalysisSchemeLanguage :: !AnalysisSchemeLanguage + } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'AnalysisScheme' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -169,12 +171,13 @@ -> AnalysisSchemeLanguage -- ^ 'asAnalysisSchemeLanguage' -> AnalysisScheme analysisScheme pAnalysisSchemeName_ pAnalysisSchemeLanguage_ = - AnalysisScheme' - { _asAnalysisOptions = Nothing - , _asAnalysisSchemeName = pAnalysisSchemeName_ - , _asAnalysisSchemeLanguage = pAnalysisSchemeLanguage_ - } + AnalysisScheme' + { _asAnalysisOptions = Nothing + , _asAnalysisSchemeName = pAnalysisSchemeName_ + , _asAnalysisSchemeLanguage = pAnalysisSchemeLanguage_ + } + -- | Undocumented member. asAnalysisOptions :: Lens' AnalysisScheme (Maybe AnalysisOptions) asAnalysisOptions = lens _asAnalysisOptions (\ s a -> s{_asAnalysisOptions = a}); @@ -194,9 +197,9 @@ (x .@ "AnalysisSchemeName") <*> (x .@ "AnalysisSchemeLanguage") -instance Hashable AnalysisScheme +instance Hashable AnalysisScheme where -instance NFData AnalysisScheme +instance NFData AnalysisScheme where instance ToQuery AnalysisScheme where toQuery AnalysisScheme'{..} @@ -212,10 +215,11 @@ -- -- /See:/ 'analysisSchemeStatus' smart constructor. data AnalysisSchemeStatus = AnalysisSchemeStatus' - { _assOptions :: !AnalysisScheme - , _assStatus :: !OptionStatus - } deriving (Eq,Read,Show,Data,Typeable,Generic) + { _assOptions :: !AnalysisScheme + , _assStatus :: !OptionStatus + } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'AnalysisSchemeStatus' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -228,11 +232,9 @@ -> OptionStatus -- ^ 'assStatus' -> AnalysisSchemeStatus analysisSchemeStatus pOptions_ pStatus_ = - AnalysisSchemeStatus' - { _assOptions = pOptions_ - , _assStatus = pStatus_ - } + AnalysisSchemeStatus' {_assOptions = pOptions_, _assStatus = pStatus_} + -- | Undocumented member. assOptions :: Lens' AnalysisSchemeStatus AnalysisScheme assOptions = lens _assOptions (\ s a -> s{_assOptions = a}); @@ -246,9 +248,9 @@ = AnalysisSchemeStatus' <$> (x .@ "Options") <*> (x .@ "Status") -instance Hashable AnalysisSchemeStatus +instance Hashable AnalysisSchemeStatus where -instance NFData AnalysisSchemeStatus +instance NFData AnalysisSchemeStatus where -- | The status and configuration of the domain's availability options. -- @@ -256,10 +258,11 @@ -- -- /See:/ 'availabilityOptionsStatus' smart constructor. data AvailabilityOptionsStatus = AvailabilityOptionsStatus' - { _aosOptions :: !Bool - , _aosStatus :: !OptionStatus - } deriving (Eq,Read,Show,Data,Typeable,Generic) + { _aosOptions :: !Bool + , _aosStatus :: !OptionStatus + } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'AvailabilityOptionsStatus' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -272,11 +275,9 @@ -> OptionStatus -- ^ 'aosStatus' -> AvailabilityOptionsStatus availabilityOptionsStatus pOptions_ pStatus_ = - AvailabilityOptionsStatus' - { _aosOptions = pOptions_ - , _aosStatus = pStatus_ - } + AvailabilityOptionsStatus' {_aosOptions = pOptions_, _aosStatus = pStatus_} + -- | The availability options configured for the domain. aosOptions :: Lens' AvailabilityOptionsStatus Bool aosOptions = lens _aosOptions (\ s a -> s{_aosOptions = a}); @@ -290,9 +291,9 @@ = AvailabilityOptionsStatus' <$> (x .@ "Options") <*> (x .@ "Status") -instance Hashable AvailabilityOptionsStatus +instance Hashable AvailabilityOptionsStatus where -instance NFData AvailabilityOptionsStatus +instance NFData AvailabilityOptionsStatus where -- | Options for a field that contains an array of dates. Present if @IndexFieldType@ specifies the field is of type @date-array@ . All options are enabled by default. -- @@ -300,13 +301,14 @@ -- -- /See:/ 'dateArrayOptions' smart constructor. data DateArrayOptions = DateArrayOptions' - { _daosSourceFields :: !(Maybe Text) - , _daosReturnEnabled :: !(Maybe Bool) - , _daosFacetEnabled :: !(Maybe Bool) - , _daosSearchEnabled :: !(Maybe Bool) - , _daosDefaultValue :: !(Maybe Text) - } deriving (Eq,Read,Show,Data,Typeable,Generic) + { _daosSourceFields :: !(Maybe Text) + , _daosReturnEnabled :: !(Maybe Bool) + , _daosFacetEnabled :: !(Maybe Bool) + , _daosSearchEnabled :: !(Maybe Bool) + , _daosDefaultValue :: !(Maybe Text) + } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DateArrayOptions' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -323,14 +325,15 @@ dateArrayOptions :: DateArrayOptions dateArrayOptions = - DateArrayOptions' - { _daosSourceFields = Nothing - , _daosReturnEnabled = Nothing - , _daosFacetEnabled = Nothing - , _daosSearchEnabled = Nothing - , _daosDefaultValue = Nothing - } + DateArrayOptions' + { _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}); @@ -359,9 +362,9 @@ <*> (x .@? "SearchEnabled") <*> (x .@? "DefaultValue") -instance Hashable DateArrayOptions +instance Hashable DateArrayOptions where -instance NFData DateArrayOptions +instance NFData DateArrayOptions where instance ToQuery DateArrayOptions where toQuery DateArrayOptions'{..} @@ -378,14 +381,15 @@ -- -- /See:/ 'dateOptions' smart constructor. data DateOptions = DateOptions' - { _doSourceField :: !(Maybe Text) - , _doReturnEnabled :: !(Maybe Bool) - , _doFacetEnabled :: !(Maybe Bool) - , _doSearchEnabled :: !(Maybe Bool) - , _doSortEnabled :: !(Maybe Bool) - , _doDefaultValue :: !(Maybe Text) - } deriving (Eq,Read,Show,Data,Typeable,Generic) + { _doSourceField :: !(Maybe Text) + , _doReturnEnabled :: !(Maybe Bool) + , _doFacetEnabled :: !(Maybe Bool) + , _doSearchEnabled :: !(Maybe Bool) + , _doSortEnabled :: !(Maybe Bool) + , _doDefaultValue :: !(Maybe Text) + } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DateOptions' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -404,15 +408,16 @@ dateOptions :: DateOptions dateOptions = - DateOptions' - { _doSourceField = Nothing - , _doReturnEnabled = Nothing - , _doFacetEnabled = Nothing - , _doSearchEnabled = Nothing - , _doSortEnabled = Nothing - , _doDefaultValue = Nothing - } + DateOptions' + { _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}); @@ -446,9 +451,9 @@ <*> (x .@? "SortEnabled") <*> (x .@? "DefaultValue") -instance Hashable DateOptions +instance Hashable DateOptions where -instance NFData DateOptions +instance NFData DateOptions where instance ToQuery DateOptions where toQuery DateOptions'{..} @@ -466,11 +471,12 @@ -- -- /See:/ 'documentSuggesterOptions' smart constructor. data DocumentSuggesterOptions = DocumentSuggesterOptions' - { _dsoSortExpression :: !(Maybe Text) - , _dsoFuzzyMatching :: !(Maybe SuggesterFuzzyMatching) - , _dsoSourceField :: !Text - } deriving (Eq,Read,Show,Data,Typeable,Generic) + { _dsoSortExpression :: !(Maybe Text) + , _dsoFuzzyMatching :: !(Maybe SuggesterFuzzyMatching) + , _dsoSourceField :: !Text + } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DocumentSuggesterOptions' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -484,12 +490,13 @@ :: Text -- ^ 'dsoSourceField' -> DocumentSuggesterOptions documentSuggesterOptions pSourceField_ = - DocumentSuggesterOptions' - { _dsoSortExpression = Nothing - , _dsoFuzzyMatching = Nothing - , _dsoSourceField = pSourceField_ - } + DocumentSuggesterOptions' + { _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}); @@ -508,9 +515,9 @@ (x .@? "SortExpression") <*> (x .@? "FuzzyMatching") <*> (x .@ "SourceField") -instance Hashable DocumentSuggesterOptions +instance Hashable DocumentSuggesterOptions where -instance NFData DocumentSuggesterOptions +instance NFData DocumentSuggesterOptions where instance ToQuery DocumentSuggesterOptions where toQuery DocumentSuggesterOptions'{..} @@ -525,21 +532,22 @@ -- -- /See:/ 'domainStatus' smart constructor. data DomainStatus = DomainStatus' - { _dsSearchInstanceCount :: !(Maybe Nat) - , _dsSearchInstanceType :: !(Maybe Text) - , _dsDocService :: !(Maybe ServiceEndpoint) - , _dsARN :: !(Maybe Text) - , _dsCreated :: !(Maybe Bool) - , _dsSearchService :: !(Maybe ServiceEndpoint) - , _dsLimits :: !(Maybe Limits) - , _dsSearchPartitionCount :: !(Maybe Nat) - , _dsDeleted :: !(Maybe Bool) - , _dsProcessing :: !(Maybe Bool) - , _dsDomainId :: !Text - , _dsDomainName :: !Text - , _dsRequiresIndexDocuments :: !Bool - } deriving (Eq,Read,Show,Data,Typeable,Generic) + { _dsSearchInstanceCount :: !(Maybe Nat) + , _dsSearchInstanceType :: !(Maybe Text) + , _dsDocService :: !(Maybe ServiceEndpoint) + , _dsARN :: !(Maybe Text) + , _dsCreated :: !(Maybe Bool) + , _dsSearchService :: !(Maybe ServiceEndpoint) + , _dsLimits :: !(Maybe Limits) + , _dsSearchPartitionCount :: !(Maybe Nat) + , _dsDeleted :: !(Maybe Bool) + , _dsProcessing :: !(Maybe Bool) + , _dsDomainId :: !Text + , _dsDomainName :: !Text + , _dsRequiresIndexDocuments :: !Bool + } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DomainStatus' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -575,22 +583,23 @@ -> Bool -- ^ 'dsRequiresIndexDocuments' -> 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_ - } + 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_ + } + -- | 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; @@ -660,9 +669,9 @@ <*> (x .@ "DomainName") <*> (x .@ "RequiresIndexDocuments") -instance Hashable DomainStatus +instance Hashable DomainStatus where -instance NFData DomainStatus +instance NFData DomainStatus where -- | Options for a field that contains an array of double-precision 64-bit floating point values. Present if @IndexFieldType@ specifies the field is of type @double-array@ . All options are enabled by default. -- @@ -670,13 +679,14 @@ -- -- /See:/ 'doubleArrayOptions' smart constructor. data DoubleArrayOptions = DoubleArrayOptions' - { _daoSourceFields :: !(Maybe Text) - , _daoReturnEnabled :: !(Maybe Bool) - , _daoFacetEnabled :: !(Maybe Bool) - , _daoSearchEnabled :: !(Maybe Bool) - , _daoDefaultValue :: !(Maybe Double) - } deriving (Eq,Read,Show,Data,Typeable,Generic) + { _daoSourceFields :: !(Maybe Text) + , _daoReturnEnabled :: !(Maybe Bool) + , _daoFacetEnabled :: !(Maybe Bool) + , _daoSearchEnabled :: !(Maybe Bool) + , _daoDefaultValue :: !(Maybe Double) + } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DoubleArrayOptions' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -693,14 +703,15 @@ doubleArrayOptions :: DoubleArrayOptions doubleArrayOptions = - DoubleArrayOptions' - { _daoSourceFields = Nothing - , _daoReturnEnabled = Nothing - , _daoFacetEnabled = Nothing - , _daoSearchEnabled = Nothing - , _daoDefaultValue = Nothing - } + DoubleArrayOptions' + { _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}); @@ -729,9 +740,9 @@ <*> (x .@? "SearchEnabled") <*> (x .@? "DefaultValue") -instance Hashable DoubleArrayOptions +instance Hashable DoubleArrayOptions where -instance NFData DoubleArrayOptions +instance NFData DoubleArrayOptions where instance ToQuery DoubleArrayOptions where toQuery DoubleArrayOptions'{..} @@ -748,14 +759,15 @@ -- -- /See:/ 'doubleOptions' smart constructor. data DoubleOptions = DoubleOptions' - { _dSourceField :: !(Maybe Text) - , _dReturnEnabled :: !(Maybe Bool) - , _dFacetEnabled :: !(Maybe Bool) - , _dSearchEnabled :: !(Maybe Bool) - , _dSortEnabled :: !(Maybe Bool) - , _dDefaultValue :: !(Maybe Double) - } deriving (Eq,Read,Show,Data,Typeable,Generic) + { _dSourceField :: !(Maybe Text) + , _dReturnEnabled :: !(Maybe Bool) + , _dFacetEnabled :: !(Maybe Bool) + , _dSearchEnabled :: !(Maybe Bool) + , _dSortEnabled :: !(Maybe Bool) + , _dDefaultValue :: !(Maybe Double) + } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DoubleOptions' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -774,15 +786,16 @@ doubleOptions :: DoubleOptions doubleOptions = - DoubleOptions' - { _dSourceField = Nothing - , _dReturnEnabled = Nothing - , _dFacetEnabled = Nothing - , _dSearchEnabled = Nothing - , _dSortEnabled = Nothing - , _dDefaultValue = Nothing - } + DoubleOptions' + { _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}); @@ -816,9 +829,9 @@ <*> (x .@? "SortEnabled") <*> (x .@? "DefaultValue") -instance Hashable DoubleOptions +instance Hashable DoubleOptions where -instance NFData DoubleOptions +instance NFData DoubleOptions where instance ToQuery DoubleOptions where toQuery DoubleOptions'{..} @@ -836,10 +849,11 @@ -- -- /See:/ 'expression' smart constructor. data Expression = Expression' - { _eExpressionName :: !Text - , _eExpressionValue :: !Text - } deriving (Eq,Read,Show,Data,Typeable,Generic) + { _eExpressionName :: !Text + , _eExpressionValue :: !Text + } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'Expression' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -852,11 +866,10 @@ -> Text -- ^ 'eExpressionValue' -> Expression expression pExpressionName_ pExpressionValue_ = - Expression' - { _eExpressionName = pExpressionName_ - , _eExpressionValue = pExpressionValue_ - } + Expression' + {_eExpressionName = pExpressionName_, _eExpressionValue = pExpressionValue_} + -- | Undocumented member. eExpressionName :: Lens' Expression Text eExpressionName = lens _eExpressionName (\ s a -> s{_eExpressionName = a}); @@ -870,9 +883,9 @@ = Expression' <$> (x .@ "ExpressionName") <*> (x .@ "ExpressionValue") -instance Hashable Expression +instance Hashable Expression where -instance NFData Expression +instance NFData Expression where instance ToQuery Expression where toQuery Expression'{..} @@ -886,10 +899,11 @@ -- -- /See:/ 'expressionStatus' smart constructor. data ExpressionStatus = ExpressionStatus' - { _esOptions :: !Expression - , _esStatus :: !OptionStatus - } deriving (Eq,Read,Show,Data,Typeable,Generic) + { _esOptions :: !Expression + , _esStatus :: !OptionStatus + } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'ExpressionStatus' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -902,11 +916,9 @@ -> OptionStatus -- ^ 'esStatus' -> ExpressionStatus expressionStatus pOptions_ pStatus_ = - ExpressionStatus' - { _esOptions = pOptions_ - , _esStatus = pStatus_ - } + ExpressionStatus' {_esOptions = pOptions_, _esStatus = pStatus_} + -- | The expression that is evaluated for sorting while processing a search request. esOptions :: Lens' ExpressionStatus Expression esOptions = lens _esOptions (\ s a -> s{_esOptions = a}); @@ -920,9 +932,9 @@ = ExpressionStatus' <$> (x .@ "Options") <*> (x .@ "Status") -instance Hashable ExpressionStatus +instance Hashable ExpressionStatus where -instance NFData ExpressionStatus +instance NFData ExpressionStatus where -- | Configuration information for a field in the index, including its name, type, and options. The supported options depend on the @'IndexFieldType' @ . -- @@ -930,21 +942,22 @@ -- -- /See:/ 'indexField' smart constructor. data IndexField = IndexField' - { _ifDoubleArrayOptions :: !(Maybe DoubleArrayOptions) - , _ifDateOptions :: !(Maybe DateOptions) - , _ifTextArrayOptions :: !(Maybe TextArrayOptions) - , _ifDoubleOptions :: !(Maybe DoubleOptions) - , _ifTextOptions :: !(Maybe TextOptions) - , _ifLatLonOptions :: !(Maybe LatLonOptions) - , _ifLiteralArrayOptions :: !(Maybe LiteralArrayOptions) - , _ifIntArrayOptions :: !(Maybe IntArrayOptions) - , _ifDateArrayOptions :: !(Maybe DateArrayOptions) - , _ifIntOptions :: !(Maybe IntOptions) - , _ifLiteralOptions :: !(Maybe LiteralOptions) - , _ifIndexFieldName :: !Text - , _ifIndexFieldType :: !IndexFieldType - } deriving (Eq,Read,Show,Data,Typeable,Generic) + { _ifDoubleArrayOptions :: !(Maybe DoubleArrayOptions) + , _ifDateOptions :: !(Maybe DateOptions) + , _ifTextArrayOptions :: !(Maybe TextArrayOptions) + , _ifDoubleOptions :: !(Maybe DoubleOptions) + , _ifTextOptions :: !(Maybe TextOptions) + , _ifLatLonOptions :: !(Maybe LatLonOptions) + , _ifLiteralArrayOptions :: !(Maybe LiteralArrayOptions) + , _ifIntArrayOptions :: !(Maybe IntArrayOptions) + , _ifDateArrayOptions :: !(Maybe DateArrayOptions) + , _ifIntOptions :: !(Maybe IntOptions) + , _ifLiteralOptions :: !(Maybe LiteralOptions) + , _ifIndexFieldName :: !Text + , _ifIndexFieldType :: !IndexFieldType + } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'IndexField' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -979,22 +992,23 @@ -> IndexFieldType -- ^ 'ifIndexFieldType' -> 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_ - } + 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_ + } + -- | Undocumented member. ifDoubleArrayOptions :: Lens' IndexField (Maybe DoubleArrayOptions) ifDoubleArrayOptions = lens _ifDoubleArrayOptions (\ s a -> s{_ifDoubleArrayOptions = a}); @@ -1064,9 +1078,9 @@ <*> (x .@ "IndexFieldName") <*> (x .@ "IndexFieldType") -instance Hashable IndexField +instance Hashable IndexField where -instance NFData IndexField +instance NFData IndexField where instance ToQuery IndexField where toQuery IndexField'{..} @@ -1091,10 +1105,11 @@ -- -- /See:/ 'indexFieldStatus' smart constructor. data IndexFieldStatus = IndexFieldStatus' - { _ifsOptions :: !IndexField - , _ifsStatus :: !OptionStatus - } deriving (Eq,Read,Show,Data,Typeable,Generic) + { _ifsOptions :: !IndexField + , _ifsStatus :: !OptionStatus + } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'IndexFieldStatus' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -1107,11 +1122,9 @@ -> OptionStatus -- ^ 'ifsStatus' -> IndexFieldStatus indexFieldStatus pOptions_ pStatus_ = - IndexFieldStatus' - { _ifsOptions = pOptions_ - , _ifsStatus = pStatus_ - } + IndexFieldStatus' {_ifsOptions = pOptions_, _ifsStatus = pStatus_} + -- | Undocumented member. ifsOptions :: Lens' IndexFieldStatus IndexField ifsOptions = lens _ifsOptions (\ s a -> s{_ifsOptions = a}); @@ -1125,9 +1138,9 @@ = IndexFieldStatus' <$> (x .@ "Options") <*> (x .@ "Status") -instance Hashable IndexFieldStatus +instance Hashable IndexFieldStatus where -instance NFData IndexFieldStatus +instance NFData IndexFieldStatus where -- | Options for a field that contains an array of 64-bit signed integers. Present if @IndexFieldType@ specifies the field is of type @int-array@ . All options are enabled by default. -- @@ -1135,13 +1148,14 @@ -- -- /See:/ 'intArrayOptions' smart constructor. data IntArrayOptions = IntArrayOptions' - { _iaoSourceFields :: !(Maybe Text) - , _iaoReturnEnabled :: !(Maybe Bool) - , _iaoFacetEnabled :: !(Maybe Bool) - , _iaoSearchEnabled :: !(Maybe Bool) - , _iaoDefaultValue :: !(Maybe Integer) - } deriving (Eq,Read,Show,Data,Typeable,Generic) + { _iaoSourceFields :: !(Maybe Text) + , _iaoReturnEnabled :: !(Maybe Bool) + , _iaoFacetEnabled :: !(Maybe Bool) + , _iaoSearchEnabled :: !(Maybe Bool) + , _iaoDefaultValue :: !(Maybe Integer) + } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'IntArrayOptions' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -1158,14 +1172,15 @@ intArrayOptions :: IntArrayOptions intArrayOptions = - IntArrayOptions' - { _iaoSourceFields = Nothing - , _iaoReturnEnabled = Nothing - , _iaoFacetEnabled = Nothing - , _iaoSearchEnabled = Nothing - , _iaoDefaultValue = Nothing - } + IntArrayOptions' + { _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}); @@ -1194,9 +1209,9 @@ <*> (x .@? "SearchEnabled") <*> (x .@? "DefaultValue") -instance Hashable IntArrayOptions +instance Hashable IntArrayOptions where -instance NFData IntArrayOptions +instance NFData IntArrayOptions where instance ToQuery IntArrayOptions where toQuery IntArrayOptions'{..} @@ -1213,14 +1228,15 @@ -- -- /See:/ 'intOptions' smart constructor. data IntOptions = IntOptions' - { _ioSourceField :: !(Maybe Text) - , _ioReturnEnabled :: !(Maybe Bool) - , _ioFacetEnabled :: !(Maybe Bool) - , _ioSearchEnabled :: !(Maybe Bool) - , _ioSortEnabled :: !(Maybe Bool) - , _ioDefaultValue :: !(Maybe Integer) - } deriving (Eq,Read,Show,Data,Typeable,Generic) + { _ioSourceField :: !(Maybe Text) + , _ioReturnEnabled :: !(Maybe Bool) + , _ioFacetEnabled :: !(Maybe Bool) + , _ioSearchEnabled :: !(Maybe Bool) + , _ioSortEnabled :: !(Maybe Bool) + , _ioDefaultValue :: !(Maybe Integer) + } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'IntOptions' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -1239,15 +1255,16 @@ intOptions :: IntOptions intOptions = - IntOptions' - { _ioSourceField = Nothing - , _ioReturnEnabled = Nothing - , _ioFacetEnabled = Nothing - , _ioSearchEnabled = Nothing - , _ioSortEnabled = Nothing - , _ioDefaultValue = Nothing - } + IntOptions' + { _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}); @@ -1281,9 +1298,9 @@ <*> (x .@? "SortEnabled") <*> (x .@? "DefaultValue") -instance Hashable IntOptions +instance Hashable IntOptions where -instance NFData IntOptions +instance NFData IntOptions where instance ToQuery IntOptions where toQuery IntOptions'{..} @@ -1301,14 +1318,15 @@ -- -- /See:/ 'latLonOptions' smart constructor. data LatLonOptions = LatLonOptions' - { _lloSourceField :: !(Maybe Text) - , _lloReturnEnabled :: !(Maybe Bool) - , _lloFacetEnabled :: !(Maybe Bool) - , _lloSearchEnabled :: !(Maybe Bool) - , _lloSortEnabled :: !(Maybe Bool) - , _lloDefaultValue :: !(Maybe Text) - } deriving (Eq,Read,Show,Data,Typeable,Generic) + { _lloSourceField :: !(Maybe Text) + , _lloReturnEnabled :: !(Maybe Bool) + , _lloFacetEnabled :: !(Maybe Bool) + , _lloSearchEnabled :: !(Maybe Bool) + , _lloSortEnabled :: !(Maybe Bool) + , _lloDefaultValue :: !(Maybe Text) + } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'LatLonOptions' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -1327,15 +1345,16 @@ latLonOptions :: LatLonOptions latLonOptions = - LatLonOptions' - { _lloSourceField = Nothing - , _lloReturnEnabled = Nothing - , _lloFacetEnabled = Nothing - , _lloSearchEnabled = Nothing - , _lloSortEnabled = Nothing - , _lloDefaultValue = Nothing - } + LatLonOptions' + { _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}); @@ -1369,9 +1388,9 @@ <*> (x .@? "SortEnabled") <*> (x .@? "DefaultValue") -instance Hashable LatLonOptions +instance Hashable LatLonOptions where -instance NFData LatLonOptions +instance NFData LatLonOptions where instance ToQuery LatLonOptions where toQuery LatLonOptions'{..} @@ -1385,10 +1404,11 @@ -- | /See:/ 'limits' smart constructor. data Limits = Limits' - { _lMaximumReplicationCount :: !Nat - , _lMaximumPartitionCount :: !Nat - } deriving (Eq,Read,Show,Data,Typeable,Generic) + { _lMaximumReplicationCount :: !Nat + , _lMaximumPartitionCount :: !Nat + } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'Limits' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -1401,11 +1421,12 @@ -> Natural -- ^ 'lMaximumPartitionCount' -> Limits limits pMaximumReplicationCount_ pMaximumPartitionCount_ = - Limits' - { _lMaximumReplicationCount = _Nat # pMaximumReplicationCount_ - , _lMaximumPartitionCount = _Nat # pMaximumPartitionCount_ - } + Limits' + { _lMaximumReplicationCount = _Nat # pMaximumReplicationCount_ + , _lMaximumPartitionCount = _Nat # pMaximumPartitionCount_ + } + -- | Undocumented member. lMaximumReplicationCount :: Lens' Limits Natural lMaximumReplicationCount = lens _lMaximumReplicationCount (\ s a -> s{_lMaximumReplicationCount = a}) . _Nat; @@ -1420,9 +1441,9 @@ (x .@ "MaximumReplicationCount") <*> (x .@ "MaximumPartitionCount") -instance Hashable Limits +instance Hashable Limits where -instance NFData Limits +instance NFData Limits where -- | Options for a field that contains an array of literal strings. Present if @IndexFieldType@ specifies the field is of type @literal-array@ . All options are enabled by default. -- @@ -1430,13 +1451,14 @@ -- -- /See:/ 'literalArrayOptions' smart constructor. data LiteralArrayOptions = LiteralArrayOptions' - { _laoSourceFields :: !(Maybe Text) - , _laoReturnEnabled :: !(Maybe Bool) - , _laoFacetEnabled :: !(Maybe Bool) - , _laoSearchEnabled :: !(Maybe Bool) - , _laoDefaultValue :: !(Maybe Text) - } deriving (Eq,Read,Show,Data,Typeable,Generic) + { _laoSourceFields :: !(Maybe Text) + , _laoReturnEnabled :: !(Maybe Bool) + , _laoFacetEnabled :: !(Maybe Bool) + , _laoSearchEnabled :: !(Maybe Bool) + , _laoDefaultValue :: !(Maybe Text) + } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'LiteralArrayOptions' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -1453,14 +1475,15 @@ literalArrayOptions :: LiteralArrayOptions literalArrayOptions = - LiteralArrayOptions' - { _laoSourceFields = Nothing - , _laoReturnEnabled = Nothing - , _laoFacetEnabled = Nothing - , _laoSearchEnabled = Nothing - , _laoDefaultValue = Nothing - } + LiteralArrayOptions' + { _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}); @@ -1489,9 +1512,9 @@ <*> (x .@? "SearchEnabled") <*> (x .@? "DefaultValue") -instance Hashable LiteralArrayOptions +instance Hashable LiteralArrayOptions where -instance NFData LiteralArrayOptions +instance NFData LiteralArrayOptions where instance ToQuery LiteralArrayOptions where toQuery LiteralArrayOptions'{..} @@ -1508,14 +1531,15 @@ -- -- /See:/ 'literalOptions' smart constructor. data LiteralOptions = LiteralOptions' - { _loSourceField :: !(Maybe Text) - , _loReturnEnabled :: !(Maybe Bool) - , _loFacetEnabled :: !(Maybe Bool) - , _loSearchEnabled :: !(Maybe Bool) - , _loSortEnabled :: !(Maybe Bool) - , _loDefaultValue :: !(Maybe Text) - } deriving (Eq,Read,Show,Data,Typeable,Generic) + { _loSourceField :: !(Maybe Text) + , _loReturnEnabled :: !(Maybe Bool) + , _loFacetEnabled :: !(Maybe Bool) + , _loSearchEnabled :: !(Maybe Bool) + , _loSortEnabled :: !(Maybe Bool) + , _loDefaultValue :: !(Maybe Text) + } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'LiteralOptions' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -1534,15 +1558,16 @@ literalOptions :: LiteralOptions literalOptions = - LiteralOptions' - { _loSourceField = Nothing - , _loReturnEnabled = Nothing - , _loFacetEnabled = Nothing - , _loSearchEnabled = Nothing - , _loSortEnabled = Nothing - , _loDefaultValue = Nothing - } + LiteralOptions' + { _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}); @@ -1576,9 +1601,9 @@ <*> (x .@? "SortEnabled") <*> (x .@? "DefaultValue") -instance Hashable LiteralOptions +instance Hashable LiteralOptions where -instance NFData LiteralOptions +instance NFData LiteralOptions where instance ToQuery LiteralOptions where toQuery LiteralOptions'{..} @@ -1596,13 +1621,14 @@ -- -- /See:/ 'optionStatus' smart constructor. data OptionStatus = OptionStatus' - { _osPendingDeletion :: !(Maybe Bool) - , _osUpdateVersion :: !(Maybe Nat) - , _osCreationDate :: !ISO8601 - , _osUpdateDate :: !ISO8601 - , _osState :: !OptionState - } deriving (Eq,Read,Show,Data,Typeable,Generic) + { _osPendingDeletion :: !(Maybe Bool) + , _osUpdateVersion :: !(Maybe Nat) + , _osCreationDate :: !ISO8601 + , _osUpdateDate :: !ISO8601 + , _osState :: !OptionState + } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'OptionStatus' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -1622,14 +1648,15 @@ -> OptionState -- ^ 'osState' -> OptionStatus optionStatus pCreationDate_ pUpdateDate_ pState_ = - OptionStatus' - { _osPendingDeletion = Nothing - , _osUpdateVersion = Nothing - , _osCreationDate = _Time # pCreationDate_ - , _osUpdateDate = _Time # pUpdateDate_ - , _osState = pState_ - } + OptionStatus' + { _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}); @@ -1658,9 +1685,9 @@ <*> (x .@ "UpdateDate") <*> (x .@ "State") -instance Hashable OptionStatus +instance Hashable OptionStatus where -instance NFData OptionStatus +instance NFData OptionStatus where -- | The desired instance type and desired number of replicas of each index partition. -- @@ -1668,11 +1695,12 @@ -- -- /See:/ 'scalingParameters' smart constructor. data ScalingParameters = ScalingParameters' - { _spDesiredInstanceType :: !(Maybe PartitionInstanceType) - , _spDesiredReplicationCount :: !(Maybe Nat) - , _spDesiredPartitionCount :: !(Maybe Nat) - } deriving (Eq,Read,Show,Data,Typeable,Generic) + { _spDesiredInstanceType :: !(Maybe PartitionInstanceType) + , _spDesiredReplicationCount :: !(Maybe Nat) + , _spDesiredPartitionCount :: !(Maybe Nat) + } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'ScalingParameters' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -1685,12 +1713,13 @@ scalingParameters :: ScalingParameters scalingParameters = - ScalingParameters' - { _spDesiredInstanceType = Nothing - , _spDesiredReplicationCount = Nothing - , _spDesiredPartitionCount = Nothing - } + ScalingParameters' + { _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}); @@ -1710,9 +1739,9 @@ (x .@? "DesiredReplicationCount") <*> (x .@? "DesiredPartitionCount") -instance Hashable ScalingParameters +instance Hashable ScalingParameters where -instance NFData ScalingParameters +instance NFData ScalingParameters where instance ToQuery ScalingParameters where toQuery ScalingParameters'{..} @@ -1728,10 +1757,11 @@ -- -- /See:/ 'scalingParametersStatus' smart constructor. data ScalingParametersStatus = ScalingParametersStatus' - { _spsOptions :: !ScalingParameters - , _spsStatus :: !OptionStatus - } deriving (Eq,Read,Show,Data,Typeable,Generic) + { _spsOptions :: !ScalingParameters + , _spsStatus :: !OptionStatus + } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'ScalingParametersStatus' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -1744,11 +1774,9 @@ -> OptionStatus -- ^ 'spsStatus' -> ScalingParametersStatus scalingParametersStatus pOptions_ pStatus_ = - ScalingParametersStatus' - { _spsOptions = pOptions_ - , _spsStatus = pStatus_ - } + ScalingParametersStatus' {_spsOptions = pOptions_, _spsStatus = pStatus_} + -- | Undocumented member. spsOptions :: Lens' ScalingParametersStatus ScalingParameters spsOptions = lens _spsOptions (\ s a -> s{_spsOptions = a}); @@ -1762,9 +1790,9 @@ = ScalingParametersStatus' <$> (x .@ "Options") <*> (x .@ "Status") -instance Hashable ScalingParametersStatus +instance Hashable ScalingParametersStatus where -instance NFData ScalingParametersStatus +instance NFData ScalingParametersStatus where -- | The endpoint to which service requests can be submitted. -- @@ -1772,9 +1800,10 @@ -- -- /See:/ 'serviceEndpoint' smart constructor. newtype ServiceEndpoint = ServiceEndpoint' - { _seEndpoint :: Maybe Text - } deriving (Eq,Read,Show,Data,Typeable,Generic) + { _seEndpoint :: Maybe Text + } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'ServiceEndpoint' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -1782,11 +1811,9 @@ -- * 'seEndpoint' - Undocumented member. serviceEndpoint :: ServiceEndpoint -serviceEndpoint = - ServiceEndpoint' - { _seEndpoint = Nothing - } +serviceEndpoint = ServiceEndpoint' {_seEndpoint = Nothing} + -- | Undocumented member. seEndpoint :: Lens' ServiceEndpoint (Maybe Text) seEndpoint = lens _seEndpoint (\ s a -> s{_seEndpoint = a}); @@ -1794,9 +1821,9 @@ instance FromXML ServiceEndpoint where parseXML x = ServiceEndpoint' <$> (x .@? "Endpoint") -instance Hashable ServiceEndpoint +instance Hashable ServiceEndpoint where -instance NFData ServiceEndpoint +instance NFData ServiceEndpoint where -- | Configuration information for a search suggester. Each suggester has a unique name and specifies the text field you want to use for suggestions. The following options can be configured for a suggester: @FuzzyMatching@ , @SortExpression@ . -- @@ -1804,10 +1831,11 @@ -- -- /See:/ 'suggester' smart constructor. data Suggester = Suggester' - { _sSuggesterName :: !Text - , _sDocumentSuggesterOptions :: !DocumentSuggesterOptions - } deriving (Eq,Read,Show,Data,Typeable,Generic) + { _sSuggesterName :: !Text + , _sDocumentSuggesterOptions :: !DocumentSuggesterOptions + } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'Suggester' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -1820,11 +1848,12 @@ -> DocumentSuggesterOptions -- ^ 'sDocumentSuggesterOptions' -> Suggester suggester pSuggesterName_ pDocumentSuggesterOptions_ = - Suggester' - { _sSuggesterName = pSuggesterName_ - , _sDocumentSuggesterOptions = pDocumentSuggesterOptions_ - } + Suggester' + { _sSuggesterName = pSuggesterName_ + , _sDocumentSuggesterOptions = pDocumentSuggesterOptions_ + } + -- | Undocumented member. sSuggesterName :: Lens' Suggester Text sSuggesterName = lens _sSuggesterName (\ s a -> s{_sSuggesterName = a}); @@ -1839,9 +1868,9 @@ (x .@ "SuggesterName") <*> (x .@ "DocumentSuggesterOptions") -instance Hashable Suggester +instance Hashable Suggester where -instance NFData Suggester +instance NFData Suggester where instance ToQuery Suggester where toQuery Suggester'{..} @@ -1856,10 +1885,11 @@ -- -- /See:/ 'suggesterStatus' smart constructor. data SuggesterStatus = SuggesterStatus' - { _ssOptions :: !Suggester - , _ssStatus :: !OptionStatus - } deriving (Eq,Read,Show,Data,Typeable,Generic) + { _ssOptions :: !Suggester + , _ssStatus :: !OptionStatus + } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'SuggesterStatus' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -1872,11 +1902,9 @@ -> OptionStatus -- ^ 'ssStatus' -> SuggesterStatus suggesterStatus pOptions_ pStatus_ = - SuggesterStatus' - { _ssOptions = pOptions_ - , _ssStatus = pStatus_ - } + SuggesterStatus' {_ssOptions = pOptions_, _ssStatus = pStatus_} + -- | Undocumented member. ssOptions :: Lens' SuggesterStatus Suggester ssOptions = lens _ssOptions (\ s a -> s{_ssOptions = a}); @@ -1890,9 +1918,9 @@ = SuggesterStatus' <$> (x .@ "Options") <*> (x .@ "Status") -instance Hashable SuggesterStatus +instance Hashable SuggesterStatus where -instance NFData SuggesterStatus +instance NFData SuggesterStatus where -- | Options for a field that contains an array of text strings. Present if @IndexFieldType@ specifies the field is of type @text-array@ . A @text-array@ field is always searchable. All options are enabled by default. -- @@ -1900,13 +1928,14 @@ -- -- /See:/ 'textArrayOptions' smart constructor. data TextArrayOptions = TextArrayOptions' - { _taoSourceFields :: !(Maybe Text) - , _taoReturnEnabled :: !(Maybe Bool) - , _taoAnalysisScheme :: !(Maybe Text) - , _taoHighlightEnabled :: !(Maybe Bool) - , _taoDefaultValue :: !(Maybe Text) - } deriving (Eq,Read,Show,Data,Typeable,Generic) + { _taoSourceFields :: !(Maybe Text) + , _taoReturnEnabled :: !(Maybe Bool) + , _taoAnalysisScheme :: !(Maybe Text) + , _taoHighlightEnabled :: !(Maybe Bool) + , _taoDefaultValue :: !(Maybe Text) + } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'TextArrayOptions' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -1923,14 +1952,15 @@ textArrayOptions :: TextArrayOptions textArrayOptions = - TextArrayOptions' - { _taoSourceFields = Nothing - , _taoReturnEnabled = Nothing - , _taoAnalysisScheme = Nothing - , _taoHighlightEnabled = Nothing - , _taoDefaultValue = Nothing - } + TextArrayOptions' + { _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}); @@ -1959,9 +1989,9 @@ <*> (x .@? "HighlightEnabled") <*> (x .@? "DefaultValue") -instance Hashable TextArrayOptions +instance Hashable TextArrayOptions where -instance NFData TextArrayOptions +instance NFData TextArrayOptions where instance ToQuery TextArrayOptions where toQuery TextArrayOptions'{..} @@ -1978,14 +2008,15 @@ -- -- /See:/ 'textOptions' smart constructor. data TextOptions = TextOptions' - { _toSourceField :: !(Maybe Text) - , _toReturnEnabled :: !(Maybe Bool) - , _toAnalysisScheme :: !(Maybe Text) - , _toHighlightEnabled :: !(Maybe Bool) - , _toSortEnabled :: !(Maybe Bool) - , _toDefaultValue :: !(Maybe Text) - } deriving (Eq,Read,Show,Data,Typeable,Generic) + { _toSourceField :: !(Maybe Text) + , _toReturnEnabled :: !(Maybe Bool) + , _toAnalysisScheme :: !(Maybe Text) + , _toHighlightEnabled :: !(Maybe Bool) + , _toSortEnabled :: !(Maybe Bool) + , _toDefaultValue :: !(Maybe Text) + } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'TextOptions' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -2004,15 +2035,16 @@ textOptions :: TextOptions textOptions = - TextOptions' - { _toSourceField = Nothing - , _toReturnEnabled = Nothing - , _toAnalysisScheme = Nothing - , _toHighlightEnabled = Nothing - , _toSortEnabled = Nothing - , _toDefaultValue = Nothing - } + TextOptions' + { _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}); @@ -2046,9 +2078,9 @@ <*> (x .@? "SortEnabled") <*> (x .@? "DefaultValue") -instance Hashable TextOptions +instance Hashable TextOptions where -instance NFData TextOptions +instance NFData TextOptions where instance ToQuery TextOptions where toQuery TextOptions'{..} 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,23 +9,24 @@ -- | -- Module : Network.AWS.CloudSearch.Types.Sum --- Copyright : (c) 2013-2016 Brendan Hay +-- Copyright : (c) 2013-2017 Brendan Hay -- License : Mozilla Public License, v. 2.0. --- Maintainer : Brendan Hay +-- Maintainer : Brendan Hay -- Stability : auto-generated -- Portability : non-portable (GHC extensions) -- module Network.AWS.CloudSearch.Types.Sum where -import Network.AWS.Prelude +import Network.AWS.Prelude data AlgorithmicStemming - = ASFull - | ASLight - | ASMinimal - | ASNone - deriving (Eq,Ord,Read,Show,Enum,Bounded,Data,Typeable,Generic) + = ASFull + | ASLight + | ASMinimal + | ASNone + deriving (Eq, Ord, Read, Show, Enum, Bounded, Data, Typeable, Generic) + instance FromText AlgorithmicStemming where parser = takeLowerText >>= \case "full" -> pure ASFull @@ -55,43 +56,44 @@ -- -- data AnalysisSchemeLanguage - = AR - | BG - | CA - | CS - | DA - | DE - | EL - | EN - | ES - | EU - | FA - | FI - | FR - | GA - | GL - | HE - | HI - | HU - | HY - | IT - | Id - | JA - | KO - | LV - | Mul - | NL - | NO - | PT - | RO - | RU - | SV - | TH - | TR - | ZhHans - | ZhHant - deriving (Eq,Ord,Read,Show,Enum,Bounded,Data,Typeable,Generic) + = AR + | BG + | CA + | CS + | DA + | DE + | EL + | EN + | ES + | EU + | FA + | FI + | FR + | GA + | GL + | HE + | HI + | HU + | HY + | IT + | Id + | JA + | KO + | LV + | Mul + | NL + | NO + | PT + | RO + | RU + | SV + | TH + | TR + | ZhHans + | ZhHant + deriving (Eq, Ord, Read, Show, Enum, Bounded, Data, Typeable, Generic) + instance FromText AnalysisSchemeLanguage where parser = takeLowerText >>= \case "ar" -> pure AR @@ -183,19 +185,20 @@ -- -- data IndexFieldType - = Date - | DateArray - | Double - | DoubleArray - | Int - | IntArray - | Latlon - | Literal - | LiteralArray - | Text - | TextArray - deriving (Eq,Ord,Read,Show,Enum,Bounded,Data,Typeable,Generic) + = Date + | DateArray + | Double + | DoubleArray + | Int + | IntArray + | Latlon + | Literal + | LiteralArray + | Text + | TextArray + deriving (Eq, Ord, Read, Show, Enum, Bounded, Data, Typeable, Generic) + instance FromText IndexFieldType where parser = takeLowerText >>= \case "date" -> pure Date @@ -241,12 +244,13 @@ -- * 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 fully 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. -- data OptionState - = Active - | FailedToValidate - | Processing - | RequiresIndexDocuments - deriving (Eq,Ord,Read,Show,Enum,Bounded,Data,Typeable,Generic) + = Active + | FailedToValidate + | Processing + | RequiresIndexDocuments + deriving (Eq, Ord, Read, Show, Enum, Bounded, Data, Typeable, Generic) + instance FromText OptionState where parser = takeLowerText >>= \case "active" -> pure Active @@ -276,16 +280,17 @@ -- -- data PartitionInstanceType - = Search_M1_Large - | Search_M1_Small - | Search_M2_2XLarge - | Search_M2_XLarge - | Search_M3_2XLarge - | Search_M3_Large - | Search_M3_Medium - | Search_M3_XLarge - deriving (Eq,Ord,Read,Show,Enum,Bounded,Data,Typeable,Generic) + = Search_M1_Large + | Search_M1_Small + | Search_M2_2XLarge + | Search_M2_XLarge + | Search_M3_2XLarge + | Search_M3_Large + | Search_M3_Medium + | Search_M3_XLarge + deriving (Eq, Ord, Read, Show, Enum, Bounded, Data, Typeable, Generic) + instance FromText PartitionInstanceType where parser = takeLowerText >>= \case "search.m1.large" -> pure Search_M1_Large @@ -320,10 +325,11 @@ parseXML = parseXMLText "PartitionInstanceType" data SuggesterFuzzyMatching - = High - | Low - | None - deriving (Eq,Ord,Read,Show,Enum,Bounded,Data,Typeable,Generic) + = High + | Low + | None + deriving (Eq, Ord, Read, Show, Enum, Bounded, Data, Typeable, Generic) + instance FromText SuggesterFuzzyMatching where parser = takeLowerText >>= \case 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,9 +12,9 @@ -- | -- Module : Network.AWS.CloudSearch.UpdateAvailabilityOptions --- Copyright : (c) 2013-2016 Brendan Hay +-- Copyright : (c) 2013-2017 Brendan Hay -- License : Mozilla Public License, v. 2.0. --- Maintainer : Brendan Hay +-- Maintainer : Brendan Hay -- Stability : auto-generated -- Portability : non-portable (GHC extensions) -- @@ -38,12 +38,12 @@ , uaorsResponseStatus ) where -import Network.AWS.CloudSearch.Types -import Network.AWS.CloudSearch.Types.Product -import Network.AWS.Lens -import Network.AWS.Prelude -import Network.AWS.Request -import Network.AWS.Response +import Network.AWS.CloudSearch.Types +import Network.AWS.CloudSearch.Types.Product +import Network.AWS.Lens +import Network.AWS.Prelude +import Network.AWS.Request +import Network.AWS.Response -- | Container for the parameters to the @'UpdateAvailabilityOptions' @ operation. Specifies the name of the domain you want to update and the Multi-AZ availability option. -- @@ -51,10 +51,11 @@ -- -- /See:/ 'updateAvailabilityOptions' smart constructor. data UpdateAvailabilityOptions = UpdateAvailabilityOptions' - { _uaoDomainName :: !Text - , _uaoMultiAZ :: !Bool - } deriving (Eq,Read,Show,Data,Typeable,Generic) + { _uaoDomainName :: !Text + , _uaoMultiAZ :: !Bool + } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'UpdateAvailabilityOptions' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -67,11 +68,10 @@ -> Bool -- ^ 'uaoMultiAZ' -> UpdateAvailabilityOptions updateAvailabilityOptions pDomainName_ pMultiAZ_ = - UpdateAvailabilityOptions' - { _uaoDomainName = pDomainName_ - , _uaoMultiAZ = pMultiAZ_ - } + UpdateAvailabilityOptions' + {_uaoDomainName = pDomainName_, _uaoMultiAZ = pMultiAZ_} + -- | Undocumented member. uaoDomainName :: Lens' UpdateAvailabilityOptions Text uaoDomainName = lens _uaoDomainName (\ s a -> s{_uaoDomainName = a}); @@ -91,9 +91,9 @@ (x .@? "AvailabilityOptions") <*> (pure (fromEnum s))) -instance Hashable UpdateAvailabilityOptions +instance Hashable UpdateAvailabilityOptions where -instance NFData UpdateAvailabilityOptions +instance NFData UpdateAvailabilityOptions where instance ToHeaders UpdateAvailabilityOptions where toHeaders = const mempty @@ -116,10 +116,11 @@ -- -- /See:/ 'updateAvailabilityOptionsResponse' smart constructor. data UpdateAvailabilityOptionsResponse = UpdateAvailabilityOptionsResponse' - { _uaorsAvailabilityOptions :: !(Maybe AvailabilityOptionsStatus) - , _uaorsResponseStatus :: !Int - } deriving (Eq,Read,Show,Data,Typeable,Generic) + { _uaorsAvailabilityOptions :: !(Maybe AvailabilityOptionsStatus) + , _uaorsResponseStatus :: !Int + } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'UpdateAvailabilityOptionsResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -131,11 +132,10 @@ :: Int -- ^ 'uaorsResponseStatus' -> UpdateAvailabilityOptionsResponse updateAvailabilityOptionsResponse pResponseStatus_ = - UpdateAvailabilityOptionsResponse' - { _uaorsAvailabilityOptions = Nothing - , _uaorsResponseStatus = pResponseStatus_ - } + UpdateAvailabilityOptionsResponse' + {_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}); @@ -145,3 +145,4 @@ 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,9 +12,9 @@ -- | -- Module : Network.AWS.CloudSearch.UpdateScalingParameters --- Copyright : (c) 2013-2016 Brendan Hay +-- Copyright : (c) 2013-2017 Brendan Hay -- License : Mozilla Public License, v. 2.0. --- Maintainer : Brendan Hay +-- Maintainer : Brendan Hay -- Stability : auto-generated -- Portability : non-portable (GHC extensions) -- @@ -38,12 +38,12 @@ , usprsScalingParameters ) where -import Network.AWS.CloudSearch.Types -import Network.AWS.CloudSearch.Types.Product -import Network.AWS.Lens -import Network.AWS.Prelude -import Network.AWS.Request -import Network.AWS.Response +import Network.AWS.CloudSearch.Types +import Network.AWS.CloudSearch.Types.Product +import Network.AWS.Lens +import Network.AWS.Prelude +import Network.AWS.Request +import Network.AWS.Response -- | Container for the parameters to the @'UpdateScalingParameters' @ operation. Specifies the name of the domain you want to update and the scaling parameters you want to configure. -- @@ -51,10 +51,11 @@ -- -- /See:/ 'updateScalingParameters' smart constructor. data UpdateScalingParameters = UpdateScalingParameters' - { _uspDomainName :: !Text - , _uspScalingParameters :: !ScalingParameters - } deriving (Eq,Read,Show,Data,Typeable,Generic) + { _uspDomainName :: !Text + , _uspScalingParameters :: !ScalingParameters + } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'UpdateScalingParameters' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -67,11 +68,10 @@ -> ScalingParameters -- ^ 'uspScalingParameters' -> UpdateScalingParameters updateScalingParameters pDomainName_ pScalingParameters_ = - UpdateScalingParameters' - { _uspDomainName = pDomainName_ - , _uspScalingParameters = pScalingParameters_ - } + UpdateScalingParameters' + {_uspDomainName = pDomainName_, _uspScalingParameters = pScalingParameters_} + -- | Undocumented member. uspDomainName :: Lens' UpdateScalingParameters Text uspDomainName = lens _uspDomainName (\ s a -> s{_uspDomainName = a}); @@ -90,9 +90,9 @@ UpdateScalingParametersResponse' <$> (pure (fromEnum s)) <*> (x .@ "ScalingParameters")) -instance Hashable UpdateScalingParameters +instance Hashable UpdateScalingParameters where -instance NFData UpdateScalingParameters +instance NFData UpdateScalingParameters where instance ToHeaders UpdateScalingParameters where toHeaders = const mempty @@ -115,10 +115,11 @@ -- -- /See:/ 'updateScalingParametersResponse' smart constructor. data UpdateScalingParametersResponse = UpdateScalingParametersResponse' - { _usprsResponseStatus :: !Int - , _usprsScalingParameters :: !ScalingParametersStatus - } deriving (Eq,Read,Show,Data,Typeable,Generic) + { _usprsResponseStatus :: !Int + , _usprsScalingParameters :: !ScalingParametersStatus + } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'UpdateScalingParametersResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -131,11 +132,12 @@ -> ScalingParametersStatus -- ^ 'usprsScalingParameters' -> UpdateScalingParametersResponse updateScalingParametersResponse pResponseStatus_ pScalingParameters_ = - UpdateScalingParametersResponse' - { _usprsResponseStatus = pResponseStatus_ - , _usprsScalingParameters = pScalingParameters_ - } + UpdateScalingParametersResponse' + { _usprsResponseStatus = pResponseStatus_ + , _usprsScalingParameters = pScalingParameters_ + } + -- | -- | The response status code. usprsResponseStatus :: Lens' UpdateScalingParametersResponse Int usprsResponseStatus = lens _usprsResponseStatus (\ s a -> s{_usprsResponseStatus = a}); @@ -144,4 +146,4 @@ usprsScalingParameters :: Lens' UpdateScalingParametersResponse ScalingParametersStatus usprsScalingParameters = lens _usprsScalingParameters (\ s a -> s{_usprsScalingParameters = a}); -instance NFData UpdateScalingParametersResponse +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,9 +12,9 @@ -- | -- Module : Network.AWS.CloudSearch.UpdateServiceAccessPolicies --- Copyright : (c) 2013-2016 Brendan Hay +-- Copyright : (c) 2013-2017 Brendan Hay -- License : Mozilla Public License, v. 2.0. --- Maintainer : Brendan Hay +-- Maintainer : Brendan Hay -- Stability : auto-generated -- Portability : non-portable (GHC extensions) -- @@ -38,12 +38,12 @@ , usaprsAccessPolicies ) where -import Network.AWS.CloudSearch.Types -import Network.AWS.CloudSearch.Types.Product -import Network.AWS.Lens -import Network.AWS.Prelude -import Network.AWS.Request -import Network.AWS.Response +import Network.AWS.CloudSearch.Types +import Network.AWS.CloudSearch.Types.Product +import Network.AWS.Lens +import Network.AWS.Prelude +import Network.AWS.Request +import Network.AWS.Response -- | Container for the parameters to the @'UpdateServiceAccessPolicies' @ operation. Specifies the name of the domain you want to update and the access rules you want to configure. -- @@ -51,10 +51,11 @@ -- -- /See:/ 'updateServiceAccessPolicies' smart constructor. data UpdateServiceAccessPolicies = UpdateServiceAccessPolicies' - { _usapDomainName :: !Text - , _usapAccessPolicies :: !Text - } deriving (Eq,Read,Show,Data,Typeable,Generic) + { _usapDomainName :: !Text + , _usapAccessPolicies :: !Text + } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'UpdateServiceAccessPolicies' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -67,11 +68,10 @@ -> Text -- ^ 'usapAccessPolicies' -> UpdateServiceAccessPolicies updateServiceAccessPolicies pDomainName_ pAccessPolicies_ = - UpdateServiceAccessPolicies' - { _usapDomainName = pDomainName_ - , _usapAccessPolicies = pAccessPolicies_ - } + UpdateServiceAccessPolicies' + {_usapDomainName = pDomainName_, _usapAccessPolicies = pAccessPolicies_} + -- | Undocumented member. usapDomainName :: Lens' UpdateServiceAccessPolicies Text usapDomainName = lens _usapDomainName (\ s a -> s{_usapDomainName = a}); @@ -91,9 +91,9 @@ UpdateServiceAccessPoliciesResponse' <$> (pure (fromEnum s)) <*> (x .@ "AccessPolicies")) -instance Hashable UpdateServiceAccessPolicies +instance Hashable UpdateServiceAccessPolicies where -instance NFData UpdateServiceAccessPolicies +instance NFData UpdateServiceAccessPolicies where instance ToHeaders UpdateServiceAccessPolicies where toHeaders = const mempty @@ -116,10 +116,11 @@ -- -- /See:/ 'updateServiceAccessPoliciesResponse' smart constructor. data UpdateServiceAccessPoliciesResponse = UpdateServiceAccessPoliciesResponse' - { _usaprsResponseStatus :: !Int - , _usaprsAccessPolicies :: !AccessPoliciesStatus - } deriving (Eq,Read,Show,Data,Typeable,Generic) + { _usaprsResponseStatus :: !Int + , _usaprsAccessPolicies :: !AccessPoliciesStatus + } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'UpdateServiceAccessPoliciesResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -132,11 +133,12 @@ -> AccessPoliciesStatus -- ^ 'usaprsAccessPolicies' -> UpdateServiceAccessPoliciesResponse updateServiceAccessPoliciesResponse pResponseStatus_ pAccessPolicies_ = - UpdateServiceAccessPoliciesResponse' - { _usaprsResponseStatus = pResponseStatus_ - , _usaprsAccessPolicies = pAccessPolicies_ - } + UpdateServiceAccessPoliciesResponse' + { _usaprsResponseStatus = pResponseStatus_ + , _usaprsAccessPolicies = pAccessPolicies_ + } + -- | -- | The response status code. usaprsResponseStatus :: Lens' UpdateServiceAccessPoliciesResponse Int usaprsResponseStatus = lens _usaprsResponseStatus (\ s a -> s{_usaprsResponseStatus = a}); @@ -146,3 +148,4 @@ 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,15 +7,15 @@ -- | -- Module : Network.AWS.CloudSearch.Waiters --- Copyright : (c) 2013-2016 Brendan Hay +-- Copyright : (c) 2013-2017 Brendan Hay -- License : Mozilla Public License, v. 2.0. --- Maintainer : Brendan Hay +-- Maintainer : Brendan Hay -- Stability : auto-generated -- Portability : non-portable (GHC extensions) -- module Network.AWS.CloudSearch.Waiters where -import Network.AWS.CloudSearch.Types -import Network.AWS.Lens -import Network.AWS.Prelude -import Network.AWS.Waiter +import Network.AWS.CloudSearch.Types +import Network.AWS.Lens +import Network.AWS.Prelude +import Network.AWS.Waiter diff --git a/test/Main.hs b/test/Main.hs --- a/test/Main.hs +++ b/test/Main.hs @@ -2,9 +2,9 @@ -- | -- Module : Main --- Copyright : (c) 2013-2016 Brendan Hay +-- Copyright : (c) 2013-2017 Brendan Hay -- License : Mozilla Public License, v. 2.0. --- Maintainer : Brendan Hay +-- Maintainer : Brendan Hay -- Stability : auto-generated -- Portability : non-portable (GHC extensions) -- 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,20 +5,20 @@ -- | -- Module : Test.AWS.Gen.CloudSearch --- Copyright : (c) 2013-2016 Brendan Hay +-- Copyright : (c) 2013-2017 Brendan Hay -- License : Mozilla Public License, v. 2.0. --- Maintainer : Brendan Hay +-- Maintainer : Brendan Hay -- Stability : auto-generated -- Portability : non-portable (GHC extensions) -- module Test.AWS.Gen.CloudSearch where import Data.Proxy +import Network.AWS.CloudSearch +import Test.AWS.CloudSearch.Internal import Test.AWS.Fixture import Test.AWS.Prelude import Test.Tasty -import Network.AWS.CloudSearch -import Test.AWS.CloudSearch.Internal -- Auto-generated: the actual test selection needs to be manually placed into -- the top-level so that real test data can be incrementally added.