amazonka-cloudsearch-domains 1.4.5 → 1.5.0
raw patch · 12 files changed
+312/−302 lines, 12 filesdep ~amazonka-cloudsearch-domainsdep ~amazonka-coredep ~amazonka-testPVP ok
version bump matches the API change (PVP)
Dependency ranges changed: amazonka-cloudsearch-domains, amazonka-core, amazonka-test
API changes (from Hackage documentation)
Files
- README.md +1/−1
- amazonka-cloudsearch-domains.cabal +16/−11
- gen/Network/AWS/CloudSearchDomains.hs +7/−7
- gen/Network/AWS/CloudSearchDomains/Search.hs +59/−55
- gen/Network/AWS/CloudSearchDomains/Suggest.hs +29/−29
- gen/Network/AWS/CloudSearchDomains/Types.hs +33/−27
- gen/Network/AWS/CloudSearchDomains/Types/Product.hs +112/−120
- gen/Network/AWS/CloudSearchDomains/Types/Sum.hs +13/−11
- gen/Network/AWS/CloudSearchDomains/UploadDocuments.hs +30/−29
- gen/Network/AWS/CloudSearchDomains/Waiters.hs +6/−6
- test/Main.hs +2/−2
- test/Test/AWS/Gen/CloudSearchDomains.hs +4/−4
README.md view
@@ -8,7 +8,7 @@ ## Version -`1.4.5`+`1.5.0` ## Description
amazonka-cloudsearch-domains.cabal view
@@ -1,13 +1,13 @@ name: amazonka-cloudsearch-domains-version: 1.4.5+version: 1.5.0 synopsis: Amazon CloudSearch Domain 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 <brendan.g.hay@gmail.com>-copyright: Copyright (c) 2013-2016 Brendan Hay+maintainer: Brendan Hay <brendan.g.hay+amazonka@gmail.com>+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-domains 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.CloudSearchDomains@@ -51,7 +56,7 @@ , Network.AWS.CloudSearchDomains.Types.Sum build-depends:- amazonka-core == 1.4.5.*+ amazonka-core == 1.5.0.* , base >= 4.7 && < 5 test-suite amazonka-cloudsearch-domains-test@@ -71,9 +76,9 @@ , Test.AWS.CloudSearchDomains.Internal build-depends:- amazonka-core == 1.4.5.*- , amazonka-test == 1.4.5.*- , amazonka-cloudsearch-domains == 1.4.5.*+ amazonka-core == 1.5.0.*+ , amazonka-test == 1.5.0.*+ , amazonka-cloudsearch-domains , base , bytestring , tasty
gen/Network/AWS/CloudSearchDomains.hs view
@@ -5,9 +5,9 @@ -- | -- Module : Network.AWS.CloudSearchDomains--- Copyright : (c) 2013-2016 Brendan Hay+-- Copyright : (c) 2013-2017 Brendan Hay -- License : Mozilla Public License, v. 2.0.--- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability : auto-generated -- Portability : non-portable (GHC extensions) --@@ -126,11 +126,11 @@ , smId ) where -import Network.AWS.CloudSearchDomains.Search-import Network.AWS.CloudSearchDomains.Suggest-import Network.AWS.CloudSearchDomains.Types-import Network.AWS.CloudSearchDomains.UploadDocuments-import Network.AWS.CloudSearchDomains.Waiters+import Network.AWS.CloudSearchDomains.Search+import Network.AWS.CloudSearchDomains.Suggest+import Network.AWS.CloudSearchDomains.Types+import Network.AWS.CloudSearchDomains.UploadDocuments+import Network.AWS.CloudSearchDomains.Waiters {- $errors Error matchers are designed for use with the functions provided by
gen/Network/AWS/CloudSearchDomains/Search.hs view
@@ -12,9 +12,9 @@ -- | -- Module : Network.AWS.CloudSearchDomains.Search--- Copyright : (c) 2013-2016 Brendan Hay+-- Copyright : (c) 2013-2017 Brendan Hay -- License : Mozilla Public License, v. 2.0.--- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability : auto-generated -- Portability : non-portable (GHC extensions) --@@ -59,12 +59,12 @@ , searsResponseStatus ) where -import Network.AWS.CloudSearchDomains.Types-import Network.AWS.CloudSearchDomains.Types.Product-import Network.AWS.Lens-import Network.AWS.Prelude-import Network.AWS.Request-import Network.AWS.Response+import Network.AWS.CloudSearchDomains.Types+import Network.AWS.CloudSearchDomains.Types.Product+import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response -- | Container for the parameters to the @Search@ request. --@@ -72,22 +72,23 @@ -- -- /See:/ 'search' smart constructor. data Search = Search'- { _seaExpr :: !(Maybe Text)- , _seaCursor :: !(Maybe Text)- , _seaReturn :: !(Maybe Text)- , _seaQueryOptions :: !(Maybe Text)- , _seaFilterQuery :: !(Maybe Text)- , _seaSize :: !(Maybe Integer)- , _seaQueryParser :: !(Maybe QueryParser)- , _seaStart :: !(Maybe Integer)- , _seaHighlight :: !(Maybe Text)- , _seaStats :: !(Maybe Text)- , _seaSort :: !(Maybe Text)- , _seaFacet :: !(Maybe Text)- , _seaPartial :: !(Maybe Bool)- , _seaQuery :: !Text- } deriving (Eq,Read,Show,Data,Typeable,Generic)+ { _seaExpr :: !(Maybe Text)+ , _seaCursor :: !(Maybe Text)+ , _seaReturn :: !(Maybe Text)+ , _seaQueryOptions :: !(Maybe Text)+ , _seaFilterQuery :: !(Maybe Text)+ , _seaSize :: !(Maybe Integer)+ , _seaQueryParser :: !(Maybe QueryParser)+ , _seaStart :: !(Maybe Integer)+ , _seaHighlight :: !(Maybe Text)+ , _seaStats :: !(Maybe Text)+ , _seaSort :: !(Maybe Text)+ , _seaFacet :: !(Maybe Text)+ , _seaPartial :: !(Maybe Bool)+ , _seaQuery :: !Text+ } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'Search' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -123,23 +124,24 @@ :: Text -- ^ 'seaQuery' -> Search search pQuery_ =- Search'- { _seaExpr = Nothing- , _seaCursor = Nothing- , _seaReturn = Nothing- , _seaQueryOptions = Nothing- , _seaFilterQuery = Nothing- , _seaSize = Nothing- , _seaQueryParser = Nothing- , _seaStart = Nothing- , _seaHighlight = Nothing- , _seaStats = Nothing- , _seaSort = Nothing- , _seaFacet = Nothing- , _seaPartial = Nothing- , _seaQuery = pQuery_- }+ Search'+ { _seaExpr = Nothing+ , _seaCursor = Nothing+ , _seaReturn = Nothing+ , _seaQueryOptions = Nothing+ , _seaFilterQuery = Nothing+ , _seaSize = Nothing+ , _seaQueryParser = Nothing+ , _seaStart = Nothing+ , _seaHighlight = Nothing+ , _seaStats = Nothing+ , _seaSort = Nothing+ , _seaFacet = Nothing+ , _seaPartial = Nothing+ , _seaQuery = pQuery_+ } + -- | Defines one or more numeric expressions that can be used to sort results or specify search or filter criteria. You can also specify expressions as return fields. You specify the expressions in JSON using the form @{"EXPRESSIONNAME":"EXPRESSION"}@ . You can define and use multiple expressions in a search request. For example: @{"expression1":"_score*rating", "expression2":"(1/rank)*year"} @ For information about the variables, operators, and functions you can use in expressions, see <http://docs.aws.amazon.com/cloudsearch/latest/developerguide/configuring-expressions.html#writing-expressions Writing Expressions> in the /Amazon CloudSearch Developer Guide/ . seaExpr :: Lens' Search (Maybe Text) seaExpr = lens _seaExpr (\ s a -> s{_seaExpr = a});@@ -208,9 +210,9 @@ <*> (x .?> "hits") <*> (pure (fromEnum s))) -instance Hashable Search+instance Hashable Search where -instance NFData Search+instance NFData Search where instance ToHeaders Search where toHeaders@@ -241,13 +243,14 @@ -- -- /See:/ 'searchResponse' smart constructor. data SearchResponse = SearchResponse'- { _searsStatus :: !(Maybe SearchStatus)- , _searsFacets :: !(Maybe (Map Text BucketInfo))- , _searsStats :: !(Maybe (Map Text FieldStats))- , _searsHits :: !(Maybe Hits)- , _searsResponseStatus :: !Int- } deriving (Eq,Read,Show,Data,Typeable,Generic)+ { _searsStatus :: !(Maybe SearchStatus)+ , _searsFacets :: !(Maybe (Map Text BucketInfo))+ , _searsStats :: !(Maybe (Map Text FieldStats))+ , _searsHits :: !(Maybe Hits)+ , _searsResponseStatus :: !Int+ } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'SearchResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -265,14 +268,15 @@ :: Int -- ^ 'searsResponseStatus' -> SearchResponse searchResponse pResponseStatus_ =- SearchResponse'- { _searsStatus = Nothing- , _searsFacets = Nothing- , _searsStats = Nothing- , _searsHits = Nothing- , _searsResponseStatus = pResponseStatus_- }+ SearchResponse'+ { _searsStatus = Nothing+ , _searsFacets = Nothing+ , _searsStats = Nothing+ , _searsHits = Nothing+ , _searsResponseStatus = pResponseStatus_+ } + -- | The status information returned for the search request. searsStatus :: Lens' SearchResponse (Maybe SearchStatus) searsStatus = lens _searsStatus (\ s a -> s{_searsStatus = a});@@ -293,4 +297,4 @@ searsResponseStatus :: Lens' SearchResponse Int searsResponseStatus = lens _searsResponseStatus (\ s a -> s{_searsResponseStatus = a}); -instance NFData SearchResponse+instance NFData SearchResponse where
gen/Network/AWS/CloudSearchDomains/Suggest.hs view
@@ -12,9 +12,9 @@ -- | -- Module : Network.AWS.CloudSearchDomains.Suggest--- Copyright : (c) 2013-2016 Brendan Hay+-- Copyright : (c) 2013-2017 Brendan Hay -- License : Mozilla Public License, v. 2.0.--- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability : auto-generated -- Portability : non-portable (GHC extensions) --@@ -44,12 +44,12 @@ , srsResponseStatus ) where -import Network.AWS.CloudSearchDomains.Types-import Network.AWS.CloudSearchDomains.Types.Product-import Network.AWS.Lens-import Network.AWS.Prelude-import Network.AWS.Request-import Network.AWS.Response+import Network.AWS.CloudSearchDomains.Types+import Network.AWS.CloudSearchDomains.Types.Product+import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response -- | Container for the parameters to the @Suggest@ request. --@@ -57,11 +57,12 @@ -- -- /See:/ 'suggest' smart constructor. data Suggest = Suggest'- { _sSize :: !(Maybe Integer)- , _sQuery :: !Text- , _sSuggester :: !Text- } deriving (Eq,Read,Show,Data,Typeable,Generic)+ { _sSize :: !(Maybe Integer)+ , _sQuery :: !Text+ , _sSuggester :: !Text+ } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'Suggest' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -76,12 +77,9 @@ -> Text -- ^ 'sSuggester' -> Suggest suggest pQuery_ pSuggester_ =- Suggest'- { _sSize = Nothing- , _sQuery = pQuery_- , _sSuggester = pSuggester_- }+ Suggest' {_sSize = Nothing, _sQuery = pQuery_, _sSuggester = pSuggester_} + -- | Specifies the maximum number of suggestions to return. sSize :: Lens' Suggest (Maybe Integer) sSize = lens _sSize (\ s a -> s{_sSize = a});@@ -104,9 +102,9 @@ (x .?> "suggest") <*> (x .?> "status") <*> (pure (fromEnum s))) -instance Hashable Suggest+instance Hashable Suggest where -instance NFData Suggest+instance NFData Suggest where instance ToHeaders Suggest where toHeaders@@ -130,11 +128,12 @@ -- -- /See:/ 'suggestResponse' smart constructor. data SuggestResponse = SuggestResponse'- { _srsSuggest :: !(Maybe SuggestModel)- , _srsStatus :: !(Maybe SuggestStatus)- , _srsResponseStatus :: !Int- } deriving (Eq,Read,Show,Data,Typeable,Generic)+ { _srsSuggest :: !(Maybe SuggestModel)+ , _srsStatus :: !(Maybe SuggestStatus)+ , _srsResponseStatus :: !Int+ } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'SuggestResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -148,12 +147,13 @@ :: Int -- ^ 'srsResponseStatus' -> SuggestResponse suggestResponse pResponseStatus_ =- SuggestResponse'- { _srsSuggest = Nothing- , _srsStatus = Nothing- , _srsResponseStatus = pResponseStatus_- }+ SuggestResponse'+ { _srsSuggest = Nothing+ , _srsStatus = Nothing+ , _srsResponseStatus = pResponseStatus_+ } + -- | Container for the matching search suggestion information. srsSuggest :: Lens' SuggestResponse (Maybe SuggestModel) srsSuggest = lens _srsSuggest (\ s a -> s{_srsSuggest = a});@@ -166,4 +166,4 @@ srsResponseStatus :: Lens' SuggestResponse Int srsResponseStatus = lens _srsResponseStatus (\ s a -> s{_srsResponseStatus = a}); -instance NFData SuggestResponse+instance NFData SuggestResponse where
gen/Network/AWS/CloudSearchDomains/Types.hs view
@@ -4,9 +4,9 @@ -- | -- Module : Network.AWS.CloudSearchDomains.Types--- Copyright : (c) 2013-2016 Brendan Hay+-- Copyright : (c) 2013-2017 Brendan Hay -- License : Mozilla Public License, v. 2.0.--- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability : auto-generated -- Portability : non-portable (GHC extensions) --@@ -96,38 +96,40 @@ , smId ) where -import Network.AWS.CloudSearchDomains.Types.Product-import Network.AWS.CloudSearchDomains.Types.Sum-import Network.AWS.Lens-import Network.AWS.Prelude-import Network.AWS.Sign.V4+import Network.AWS.CloudSearchDomains.Types.Product+import Network.AWS.CloudSearchDomains.Types.Sum+import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Sign.V4 -- | API version @2013-01-01@ of the Amazon CloudSearch Domain SDK configuration. cloudSearchDomains :: Service cloudSearchDomains =- Service- { _svcAbbrev = "CloudSearchDomains"- , _svcSigner = v4- , _svcPrefix = "cloudsearchdomain"- , _svcVersion = "2013-01-01"- , _svcEndpoint = defaultEndpoint cloudSearchDomains- , _svcTimeout = Just 70- , _svcCheck = statusSuccess- , _svcError = parseJSONError "CloudSearchDomains"- , _svcRetry = retry- }+ Service+ { _svcAbbrev = "CloudSearchDomains"+ , _svcSigner = v4+ , _svcPrefix = "cloudsearchdomain"+ , _svcVersion = "2013-01-01"+ , _svcEndpoint = defaultEndpoint cloudSearchDomains+ , _svcTimeout = Just 70+ , _svcCheck = statusSuccess+ , _svcError = parseJSONError "CloudSearchDomains"+ , _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 (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"@@ -136,14 +138,18 @@ | has (hasStatus 509) e = Just "limit_exceeded" | otherwise = Nothing + -- | Information about any problems encountered while processing an upload request. -- -- _DocumentServiceException :: AsError a => Getting (First ServiceError) a ServiceError-_DocumentServiceException = _ServiceError . hasCode "DocumentServiceException"+_DocumentServiceException =+ _MatchServiceError cloudSearchDomains "DocumentServiceException" + -- | Information about any problems encountered while processing a search request. -- -- _SearchException :: AsError a => Getting (First ServiceError) a ServiceError-_SearchException = _ServiceError . hasCode "SearchException"+_SearchException = _MatchServiceError cloudSearchDomains "SearchException"+
gen/Network/AWS/CloudSearchDomains/Types/Product.hs view
@@ -9,17 +9,17 @@ -- | -- Module : Network.AWS.CloudSearchDomains.Types.Product--- Copyright : (c) 2013-2016 Brendan Hay+-- Copyright : (c) 2013-2017 Brendan Hay -- License : Mozilla Public License, v. 2.0.--- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability : auto-generated -- Portability : non-portable (GHC extensions) -- module Network.AWS.CloudSearchDomains.Types.Product where -import Network.AWS.CloudSearchDomains.Types.Sum-import Network.AWS.Lens-import Network.AWS.Prelude+import Network.AWS.CloudSearchDomains.Types.Sum+import Network.AWS.Lens+import Network.AWS.Prelude -- | A container for facet information. --@@ -27,10 +27,11 @@ -- -- /See:/ 'bucket' smart constructor. data Bucket = Bucket'- { _bValue :: !(Maybe Text)- , _bCount :: !(Maybe Integer)- } deriving (Eq,Read,Show,Data,Typeable,Generic)+ { _bValue :: !(Maybe Text)+ , _bCount :: !(Maybe Integer)+ } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'Bucket' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -40,12 +41,9 @@ -- * 'bCount' - The number of hits that contain the facet value in the specified facet field. bucket :: Bucket-bucket =- Bucket'- { _bValue = Nothing- , _bCount = Nothing- }+bucket = Bucket' {_bValue = Nothing, _bCount = Nothing} + -- | The facet value being counted. bValue :: Lens' Bucket (Maybe Text) bValue = lens _bValue (\ s a -> s{_bValue = a});@@ -60,9 +58,9 @@ (\ x -> Bucket' <$> (x .:? "value") <*> (x .:? "count")) -instance Hashable Bucket+instance Hashable Bucket where -instance NFData Bucket+instance NFData Bucket where -- | A container for the calculated facet values and counts. --@@ -70,9 +68,10 @@ -- -- /See:/ 'bucketInfo' smart constructor. newtype BucketInfo = BucketInfo'- { _biBuckets :: Maybe [Bucket]- } deriving (Eq,Read,Show,Data,Typeable,Generic)+ { _biBuckets :: Maybe [Bucket]+ } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'BucketInfo' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -80,11 +79,9 @@ -- * 'biBuckets' - A list of the calculated facet values and counts. bucketInfo :: BucketInfo-bucketInfo =- BucketInfo'- { _biBuckets = Nothing- }+bucketInfo = BucketInfo' {_biBuckets = Nothing} + -- | A list of the calculated facet values and counts. biBuckets :: Lens' BucketInfo [Bucket] biBuckets = lens _biBuckets (\ s a -> s{_biBuckets = a}) . _Default . _Coerce;@@ -94,9 +91,9 @@ = withObject "BucketInfo" (\ x -> BucketInfo' <$> (x .:? "buckets" .!= mempty)) -instance Hashable BucketInfo+instance Hashable BucketInfo where -instance NFData BucketInfo+instance NFData BucketInfo where -- | A warning returned by the document service when an issue is discovered while processing an upload request. --@@ -104,9 +101,10 @@ -- -- /See:/ 'documentServiceWarning' smart constructor. newtype DocumentServiceWarning = DocumentServiceWarning'- { _dswMessage :: Maybe Text- } deriving (Eq,Read,Show,Data,Typeable,Generic)+ { _dswMessage :: Maybe Text+ } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DocumentServiceWarning' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -114,11 +112,9 @@ -- * 'dswMessage' - The description for a warning returned by the document service. documentServiceWarning :: DocumentServiceWarning-documentServiceWarning =- DocumentServiceWarning'- { _dswMessage = Nothing- }+documentServiceWarning = DocumentServiceWarning' {_dswMessage = Nothing} + -- | The description for a warning returned by the document service. dswMessage :: Lens' DocumentServiceWarning (Maybe Text) dswMessage = lens _dswMessage (\ s a -> s{_dswMessage = a});@@ -129,9 +125,9 @@ (\ x -> DocumentServiceWarning' <$> (x .:? "message")) -instance Hashable DocumentServiceWarning+instance Hashable DocumentServiceWarning where -instance NFData DocumentServiceWarning+instance NFData DocumentServiceWarning where -- | The statistics for a field calculated in the request. --@@ -139,16 +135,17 @@ -- -- /See:/ 'fieldStats' smart constructor. data FieldStats = FieldStats'- { _fsMax :: !(Maybe Text)- , _fsMean :: !(Maybe Text)- , _fsCount :: !(Maybe Integer)- , _fsMissing :: !(Maybe Integer)- , _fsStddev :: !(Maybe Double)- , _fsMin :: !(Maybe Text)- , _fsSumOfSquares :: !(Maybe Double)- , _fsSum :: !(Maybe Double)- } deriving (Eq,Read,Show,Data,Typeable,Generic)+ { _fsMax :: !(Maybe Text)+ , _fsMean :: !(Maybe Text)+ , _fsCount :: !(Maybe Integer)+ , _fsMissing :: !(Maybe Integer)+ , _fsStddev :: !(Maybe Double)+ , _fsMin :: !(Maybe Text)+ , _fsSumOfSquares :: !(Maybe Double)+ , _fsSum :: !(Maybe Double)+ } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'FieldStats' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -171,17 +168,18 @@ fieldStats :: FieldStats fieldStats =- FieldStats'- { _fsMax = Nothing- , _fsMean = Nothing- , _fsCount = Nothing- , _fsMissing = Nothing- , _fsStddev = Nothing- , _fsMin = Nothing- , _fsSumOfSquares = Nothing- , _fsSum = Nothing- }+ FieldStats'+ { _fsMax = Nothing+ , _fsMean = Nothing+ , _fsCount = Nothing+ , _fsMissing = Nothing+ , _fsStddev = Nothing+ , _fsMin = Nothing+ , _fsSumOfSquares = Nothing+ , _fsSum = Nothing+ } + -- | The maximum value found in the specified field in the result set. If the field is numeric (@int@ , @int-array@ , @double@ , or @double-array@ ), @max@ is the string representation of a double-precision 64-bit floating point value. If the field is @date@ or @date-array@ , @max@ is the string representation of a date with the format specified in <http://tools.ietf.org/html/rfc3339 IETF RFC3339> : yyyy-mm-ddTHH:mm:ss.SSSZ. fsMax :: Lens' FieldStats (Maybe Text) fsMax = lens _fsMax (\ s a -> s{_fsMax = a});@@ -226,9 +224,9 @@ <*> (x .:? "sumOfSquares") <*> (x .:? "sum")) -instance Hashable FieldStats+instance Hashable FieldStats where -instance NFData FieldStats+instance NFData FieldStats where -- | Information about a document that matches the search request. --@@ -236,12 +234,13 @@ -- -- /See:/ 'hit' smart constructor. data Hit = Hit'- { _hitExprs :: !(Maybe (Map Text Text))- , _hitId :: !(Maybe Text)- , _hitHighlights :: !(Maybe (Map Text Text))- , _hitFields :: !(Maybe (Map Text [Text]))- } deriving (Eq,Read,Show,Data,Typeable,Generic)+ { _hitExprs :: !(Maybe (Map Text Text))+ , _hitId :: !(Maybe Text)+ , _hitHighlights :: !(Maybe (Map Text Text))+ , _hitFields :: !(Maybe (Map Text [Text]))+ } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'Hit' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -256,13 +255,14 @@ hit :: Hit hit =- Hit'- { _hitExprs = Nothing- , _hitId = Nothing- , _hitHighlights = Nothing- , _hitFields = Nothing- }+ Hit'+ { _hitExprs = Nothing+ , _hitId = Nothing+ , _hitHighlights = Nothing+ , _hitFields = Nothing+ } + -- | The expressions returned from a document that matches the search request. hitExprs :: Lens' Hit (HashMap Text Text) hitExprs = lens _hitExprs (\ s a -> s{_hitExprs = a}) . _Default . _Map;@@ -288,9 +288,9 @@ (x .:? "highlights" .!= mempty) <*> (x .:? "fields" .!= mempty)) -instance Hashable Hit+instance Hashable Hit where -instance NFData Hit+instance NFData Hit where -- | The collection of documents that match the search request. --@@ -298,12 +298,13 @@ -- -- /See:/ 'hits' smart constructor. data Hits = Hits'- { _hCursor :: !(Maybe Text)- , _hHit :: !(Maybe [Hit])- , _hStart :: !(Maybe Integer)- , _hFound :: !(Maybe Integer)- } deriving (Eq,Read,Show,Data,Typeable,Generic)+ { _hCursor :: !(Maybe Text)+ , _hHit :: !(Maybe [Hit])+ , _hStart :: !(Maybe Integer)+ , _hFound :: !(Maybe Integer)+ } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'Hits' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -318,13 +319,10 @@ hits :: Hits hits =- Hits'- { _hCursor = Nothing- , _hHit = Nothing- , _hStart = Nothing- , _hFound = Nothing- }+ Hits'+ {_hCursor = Nothing, _hHit = Nothing, _hStart = Nothing, _hFound = Nothing} + -- | A cursor that can be used to retrieve the next set of matching documents when you want to page through a large result set. hCursor :: Lens' Hits (Maybe Text) hCursor = lens _hCursor (\ s a -> s{_hCursor = a});@@ -350,9 +348,9 @@ (x .:? "start") <*> (x .:? "found")) -instance Hashable Hits+instance Hashable Hits where -instance NFData Hits+instance NFData Hits where -- | Contains the resource id (@rid@ ) and the time it took to process the request (@timems@ ). --@@ -360,10 +358,11 @@ -- -- /See:/ 'searchStatus' smart constructor. data SearchStatus = SearchStatus'- { _sRid :: !(Maybe Text)- , _sTimems :: !(Maybe Integer)- } deriving (Eq,Read,Show,Data,Typeable,Generic)+ { _sRid :: !(Maybe Text)+ , _sTimems :: !(Maybe Integer)+ } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'SearchStatus' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -373,12 +372,9 @@ -- * 'sTimems' - How long it took to process the request, in milliseconds. searchStatus :: SearchStatus-searchStatus =- SearchStatus'- { _sRid = Nothing- , _sTimems = Nothing- }+searchStatus = SearchStatus' {_sRid = Nothing, _sTimems = Nothing} + -- | The encrypted resource ID for the request. sRid :: Lens' SearchStatus (Maybe Text) sRid = lens _sRid (\ s a -> s{_sRid = a});@@ -393,9 +389,9 @@ (\ x -> SearchStatus' <$> (x .:? "rid") <*> (x .:? "timems")) -instance Hashable SearchStatus+instance Hashable SearchStatus where -instance NFData SearchStatus+instance NFData SearchStatus where -- | Container for the suggestion information returned in a @SuggestResponse@ . --@@ -403,11 +399,12 @@ -- -- /See:/ 'suggestModel' smart constructor. data SuggestModel = SuggestModel'- { _smFound :: !(Maybe Integer)- , _smSuggestions :: !(Maybe [SuggestionMatch])- , _smQuery :: !(Maybe Text)- } deriving (Eq,Read,Show,Data,Typeable,Generic)+ { _smFound :: !(Maybe Integer)+ , _smSuggestions :: !(Maybe [SuggestionMatch])+ , _smQuery :: !(Maybe Text)+ } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'SuggestModel' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -420,12 +417,10 @@ suggestModel :: SuggestModel suggestModel =- SuggestModel'- { _smFound = Nothing- , _smSuggestions = Nothing- , _smQuery = Nothing- }+ SuggestModel'+ {_smFound = Nothing, _smSuggestions = Nothing, _smQuery = Nothing} + -- | The number of documents that were found to match the query string. smFound :: Lens' SuggestModel (Maybe Integer) smFound = lens _smFound (\ s a -> s{_smFound = a});@@ -446,9 +441,9 @@ (x .:? "found") <*> (x .:? "suggestions" .!= mempty) <*> (x .:? "query")) -instance Hashable SuggestModel+instance Hashable SuggestModel where -instance NFData SuggestModel+instance NFData SuggestModel where -- | Contains the resource id (@rid@ ) and the time it took to process the request (@timems@ ). --@@ -456,10 +451,11 @@ -- -- /See:/ 'suggestStatus' smart constructor. data SuggestStatus = SuggestStatus'- { _ssRid :: !(Maybe Text)- , _ssTimems :: !(Maybe Integer)- } deriving (Eq,Read,Show,Data,Typeable,Generic)+ { _ssRid :: !(Maybe Text)+ , _ssTimems :: !(Maybe Integer)+ } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'SuggestStatus' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -469,12 +465,9 @@ -- * 'ssTimems' - How long it took to process the request, in milliseconds. suggestStatus :: SuggestStatus-suggestStatus =- SuggestStatus'- { _ssRid = Nothing- , _ssTimems = Nothing- }+suggestStatus = SuggestStatus' {_ssRid = Nothing, _ssTimems = Nothing} + -- | The encrypted resource ID for the request. ssRid :: Lens' SuggestStatus (Maybe Text) ssRid = lens _ssRid (\ s a -> s{_ssRid = a});@@ -490,9 +483,9 @@ SuggestStatus' <$> (x .:? "rid") <*> (x .:? "timems")) -instance Hashable SuggestStatus+instance Hashable SuggestStatus where -instance NFData SuggestStatus+instance NFData SuggestStatus where -- | An autocomplete suggestion that matches the query string specified in a @SuggestRequest@ . --@@ -500,11 +493,12 @@ -- -- /See:/ 'suggestionMatch' smart constructor. data SuggestionMatch = SuggestionMatch'- { _smSuggestion :: !(Maybe Text)- , _smScore :: !(Maybe Integer)- , _smId :: !(Maybe Text)- } deriving (Eq,Read,Show,Data,Typeable,Generic)+ { _smSuggestion :: !(Maybe Text)+ , _smScore :: !(Maybe Integer)+ , _smId :: !(Maybe Text)+ } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'SuggestionMatch' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -517,12 +511,10 @@ suggestionMatch :: SuggestionMatch suggestionMatch =- SuggestionMatch'- { _smSuggestion = Nothing- , _smScore = Nothing- , _smId = Nothing- }+ SuggestionMatch'+ {_smSuggestion = Nothing, _smScore = Nothing, _smId = Nothing} + -- | The string that matches the query string specified in the @SuggestRequest@ . smSuggestion :: Lens' SuggestionMatch (Maybe Text) smSuggestion = lens _smSuggestion (\ s a -> s{_smSuggestion = a});@@ -543,6 +535,6 @@ (x .:? "suggestion") <*> (x .:? "score") <*> (x .:? "id")) -instance Hashable SuggestionMatch+instance Hashable SuggestionMatch where -instance NFData SuggestionMatch+instance NFData SuggestionMatch where
gen/Network/AWS/CloudSearchDomains/Types/Sum.hs view
@@ -9,21 +9,22 @@ -- | -- Module : Network.AWS.CloudSearchDomains.Types.Sum--- Copyright : (c) 2013-2016 Brendan Hay+-- Copyright : (c) 2013-2017 Brendan Hay -- License : Mozilla Public License, v. 2.0.--- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability : auto-generated -- Portability : non-portable (GHC extensions) -- module Network.AWS.CloudSearchDomains.Types.Sum where -import Network.AWS.Prelude+import Network.AWS.Prelude data ContentType- = ApplicationJSON- | ApplicationXML- deriving (Eq,Ord,Read,Show,Enum,Bounded,Data,Typeable,Generic)+ = ApplicationJSON+ | ApplicationXML+ deriving (Eq, Ord, Read, Show, Enum, Bounded, Data, Typeable, Generic) + instance FromText ContentType where parser = takeLowerText >>= \case "application/json" -> pure ApplicationJSON@@ -46,11 +47,12 @@ toJSON = toJSONText data QueryParser- = Dismax- | Lucene- | Simple- | Structured- deriving (Eq,Ord,Read,Show,Enum,Bounded,Data,Typeable,Generic)+ = Dismax+ | Lucene+ | Simple+ | Structured+ deriving (Eq, Ord, Read, Show, Enum, Bounded, Data, Typeable, Generic)+ instance FromText QueryParser where parser = takeLowerText >>= \case
gen/Network/AWS/CloudSearchDomains/UploadDocuments.hs view
@@ -12,9 +12,9 @@ -- | -- Module : Network.AWS.CloudSearchDomains.UploadDocuments--- Copyright : (c) 2013-2016 Brendan Hay+-- Copyright : (c) 2013-2017 Brendan Hay -- License : Mozilla Public License, v. 2.0.--- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability : auto-generated -- Portability : non-portable (GHC extensions) --@@ -45,12 +45,12 @@ , udrsResponseStatus ) where -import Network.AWS.CloudSearchDomains.Types-import Network.AWS.CloudSearchDomains.Types.Product-import Network.AWS.Lens-import Network.AWS.Prelude-import Network.AWS.Request-import Network.AWS.Response+import Network.AWS.CloudSearchDomains.Types+import Network.AWS.CloudSearchDomains.Types.Product+import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response -- | Container for the parameters to the @UploadDocuments@ request. --@@ -58,10 +58,11 @@ -- -- /See:/ 'uploadDocuments' smart constructor. data UploadDocuments = UploadDocuments'- { _udContentType :: !ContentType- , _udDocuments :: !HashedBody- } deriving (Show,Generic)+ { _udContentType :: !ContentType+ , _udDocuments :: !HashedBody+ } deriving (Show, Generic) + -- | Creates a value of 'UploadDocuments' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -74,11 +75,9 @@ -> HashedBody -- ^ 'udDocuments' -> UploadDocuments uploadDocuments pContentType_ pDocuments_ =- UploadDocuments'- { _udContentType = pContentType_- , _udDocuments = pDocuments_- }+ UploadDocuments' {_udContentType = pContentType_, _udDocuments = pDocuments_} + -- | The format of the batch you are uploading. Amazon CloudSearch supports two document batch formats: * application/json * application/xml udContentType :: Lens' UploadDocuments ContentType udContentType = lens _udContentType (\ s a -> s{_udContentType = a});@@ -121,13 +120,14 @@ -- -- /See:/ 'uploadDocumentsResponse' smart constructor. data UploadDocumentsResponse = UploadDocumentsResponse'- { _udrsStatus :: !(Maybe Text)- , _udrsAdds :: !(Maybe Integer)- , _udrsWarnings :: !(Maybe [DocumentServiceWarning])- , _udrsDeletes :: !(Maybe Integer)- , _udrsResponseStatus :: !Int- } deriving (Eq,Read,Show,Data,Typeable,Generic)+ { _udrsStatus :: !(Maybe Text)+ , _udrsAdds :: !(Maybe Integer)+ , _udrsWarnings :: !(Maybe [DocumentServiceWarning])+ , _udrsDeletes :: !(Maybe Integer)+ , _udrsResponseStatus :: !Int+ } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'UploadDocumentsResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -145,14 +145,15 @@ :: Int -- ^ 'udrsResponseStatus' -> UploadDocumentsResponse uploadDocumentsResponse pResponseStatus_ =- UploadDocumentsResponse'- { _udrsStatus = Nothing- , _udrsAdds = Nothing- , _udrsWarnings = Nothing- , _udrsDeletes = Nothing- , _udrsResponseStatus = pResponseStatus_- }+ UploadDocumentsResponse'+ { _udrsStatus = Nothing+ , _udrsAdds = Nothing+ , _udrsWarnings = Nothing+ , _udrsDeletes = Nothing+ , _udrsResponseStatus = pResponseStatus_+ } + -- | The status of an @UploadDocumentsRequest@ . udrsStatus :: Lens' UploadDocumentsResponse (Maybe Text) udrsStatus = lens _udrsStatus (\ s a -> s{_udrsStatus = a});@@ -173,4 +174,4 @@ udrsResponseStatus :: Lens' UploadDocumentsResponse Int udrsResponseStatus = lens _udrsResponseStatus (\ s a -> s{_udrsResponseStatus = a}); -instance NFData UploadDocumentsResponse+instance NFData UploadDocumentsResponse where
gen/Network/AWS/CloudSearchDomains/Waiters.hs view
@@ -7,15 +7,15 @@ -- | -- Module : Network.AWS.CloudSearchDomains.Waiters--- Copyright : (c) 2013-2016 Brendan Hay+-- Copyright : (c) 2013-2017 Brendan Hay -- License : Mozilla Public License, v. 2.0.--- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability : auto-generated -- Portability : non-portable (GHC extensions) -- module Network.AWS.CloudSearchDomains.Waiters where -import Network.AWS.CloudSearchDomains.Types-import Network.AWS.Lens-import Network.AWS.Prelude-import Network.AWS.Waiter+import Network.AWS.CloudSearchDomains.Types+import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Waiter
test/Main.hs view
@@ -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 <brendan.g.hay@gmail.com>+-- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability : auto-generated -- Portability : non-portable (GHC extensions) --
test/Test/AWS/Gen/CloudSearchDomains.hs view
@@ -5,20 +5,20 @@ -- | -- Module : Test.AWS.Gen.CloudSearchDomains--- Copyright : (c) 2013-2016 Brendan Hay+-- Copyright : (c) 2013-2017 Brendan Hay -- License : Mozilla Public License, v. 2.0.--- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability : auto-generated -- Portability : non-portable (GHC extensions) -- module Test.AWS.Gen.CloudSearchDomains where import Data.Proxy+import Network.AWS.CloudSearchDomains+import Test.AWS.CloudSearchDomains.Internal import Test.AWS.Fixture import Test.AWS.Prelude import Test.Tasty-import Network.AWS.CloudSearchDomains-import Test.AWS.CloudSearchDomains.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.