amazonka-cloudsearch-domains 1.1.0 → 1.2.0

raw patch · 9 files changed

+46/−51 lines, 9 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 +5/−5
• gen/Network/AWS/CloudSearchDomains.hs +2/−2
• gen/Network/AWS/CloudSearchDomains/Search.hs +1/−2
• gen/Network/AWS/CloudSearchDomains/Suggest.hs +1/−2
• gen/Network/AWS/CloudSearchDomains/Types.hs +32/−36
• gen/Network/AWS/CloudSearchDomains/Types/Product.hs +0/−1
• gen/Network/AWS/CloudSearchDomains/UploadDocuments.hs +1/−2
• test/Test/AWS/Gen/CloudSearchDomains.hs +3/−0

@@ -8,7 +8,7 @@  ## Version -`1.1.0`+`1.2.0`   ## Description

@@ -1,5 +1,5 @@ name:                  amazonka-cloudsearch-domains-version:               1.1.0+version:               1.2.0 synopsis:              Amazon CloudSearch Domain SDK. homepage:              https://github.com/brendanhay/amazonka license:               OtherLicense@@ -63,7 +63,7 @@         , Network.AWS.CloudSearchDomains.Types.Sum      build-depends:-          amazonka-core == 1.1.0.*+          amazonka-core == 1.2.0.*         , base          >= 4.7     && < 5  test-suite amazonka-cloudsearch-domains-test@@ -82,9 +82,9 @@         , Test.AWS.CloudSearchDomains.Internal      build-depends:-          amazonka-core == 1.1.0-        , amazonka-test == 1.1.0-        , amazonka-cloudsearch-domains == 1.1.0+          amazonka-core == 1.2.0+        , amazonka-test == 1.2.0+        , amazonka-cloudsearch-domains == 1.2.0         , base         , bytestring         , lens

@@ -27,8 +27,8 @@ -- /See:/ <http://docs.aws.amazon.com/cloudsearch/latest/developerguide/what-is-cloudsearch.html AWS API Reference> module Network.AWS.CloudSearchDomains     (-    -- * Service-      CloudSearchDomains+    -- * Service Configuration+      cloudSearchDomains      -- * Errors     -- $errors

@@ -485,9 +485,8 @@ seaQuery = lens _seaQuery (\ s a -> s{_seaQuery = a});  instance AWSRequest Search where-        type Sv Search = CloudSearchDomains         type Rs Search = SearchResponse-        request = get+        request = get cloudSearchDomains         response           = receiveJSON               (\ s h x ->

@@ -105,9 +105,8 @@ sSuggester = lens _sSuggester (\ s a -> s{_sSuggester = a});  instance AWSRequest Suggest where-        type Sv Suggest = CloudSearchDomains         type Rs Suggest = SuggestResponse-        request = get+        request = get cloudSearchDomains         response           = receiveJSON               (\ s h x ->

@@ -1,5 +1,4 @@ {-# LANGUAGE OverloadedStrings #-}-{-# LANGUAGE TypeFamilies      #-}  -- Derived from AWS service descriptions, licensed under Apache 2.0. @@ -13,8 +12,8 @@ -- module Network.AWS.CloudSearchDomains.Types     (-    -- * Service-      CloudSearchDomains+    -- * Service Configuration+      cloudSearchDomains      -- * Errors     , _DocumentServiceException@@ -90,39 +89,36 @@ import           Network.AWS.Prelude import           Network.AWS.Sign.V4 --- | Version @2013-01-01@ of the Amazon CloudSearch Domain SDK.-data CloudSearchDomains--instance AWSService CloudSearchDomains where-    type Sg CloudSearchDomains = V4-    service = const svc-      where-        svc =-            Service-            { _svcAbbrev = "CloudSearchDomains"-            , _svcPrefix = "cloudsearchdomain"-            , _svcVersion = "2013-01-01"-            , _svcEndpoint = defaultEndpoint svc-            , _svcTimeout = Just 70-            , _svcStatus = statusSuccess-            , _svcError = parseJSONError-            , _svcRetry = retry-            }-        retry =-            Exponential-            { _retryBase = 5.0e-2-            , _retryGrowth = 2-            , _retryAttempts = 5-            , _retryCheck = check-            }-        check e-          | has (hasCode "ThrottlingException" . hasStatus 400) e =-              Just "throttling_exception"-          | has (hasCode "Throttling" . hasStatus 400) e = Just "throttling"-          | has (hasStatus 503) e = Just "service_unavailable"-          | has (hasStatus 500) e = Just "general_server_error"-          | has (hasStatus 509) e = Just "limit_exceeded"-          | otherwise = Nothing+-- | 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+    , _svcRetry = retry+    }+  where+    retry =+        Exponential+        { _retryBase = 5.0e-2+        , _retryGrowth = 2+        , _retryAttempts = 5+        , _retryCheck = check+        }+    check e+      | has (hasCode "ThrottlingException" . hasStatus 400) e =+          Just "throttling_exception"+      | has (hasCode "Throttling" . hasStatus 400) e = Just "throttling"+      | has (hasStatus 503) e = Just "service_unavailable"+      | has (hasStatus 500) e = Just "general_server_error"+      | has (hasStatus 509) e = Just "limit_exceeded"+      | otherwise = Nothing  -- | Information about any problems encountered while processing an upload -- request.

@@ -2,7 +2,6 @@ {-# LANGUAGE DeriveGeneric      #-} {-# LANGUAGE OverloadedStrings  #-} {-# LANGUAGE RecordWildCards    #-}-{-# LANGUAGE TypeFamilies       #-}  {-# OPTIONS_GHC -fno-warn-unused-imports #-} 

@@ -109,9 +109,8 @@ udDocuments = lens _udDocuments (\ s a -> s{_udDocuments = a});  instance AWSRequest UploadDocuments where-        type Sv UploadDocuments = CloudSearchDomains         type Rs UploadDocuments = UploadDocumentsResponse-        request = postBody+        request = postBody cloudSearchDomains         response           = receiveJSON               (\ s h x ->

@@ -70,16 +70,19 @@ testSuggestResponse = res     "SuggestResponse"     "fixture/SuggestResponse"+    cloudSearchDomains     (Proxy :: Proxy Suggest)  testUploadDocumentsResponse :: UploadDocumentsResponse -> TestTree testUploadDocumentsResponse = res     "UploadDocumentsResponse"     "fixture/UploadDocumentsResponse"+    cloudSearchDomains     (Proxy :: Proxy UploadDocuments)  testSearchResponse :: SearchResponse -> TestTree testSearchResponse = res     "SearchResponse"     "fixture/SearchResponse"+    cloudSearchDomains     (Proxy :: Proxy Search)