amazonka-storagegateway 0.0.7 → 0.0.8

raw patch · 2 files changed

+36/−12 lines, 2 filesdep ~amazonka-corePVP ok

version bump matches the API change (PVP)

Dependency ranges changed: amazonka-core

API changes (from Hackage documentation)

Files

• amazonka-storagegateway.cabal +2/−2
• gen/Network/AWS/StorageGateway/Types.hs +34/−10

@@ -1,5 +1,5 @@ name:                  amazonka-storagegateway-version:               0.0.7+version:               0.0.8 synopsis:              Amazon Storage Gateway SDK. homepage:              https://github.com/brendanhay/amazonka license:               OtherLicense@@ -87,5 +87,5 @@     other-modules:      build-depends:-          amazonka-core == 0.0.7.*+          amazonka-core == 0.0.8.*         , base          >= 4.7     && < 5

@@ -7,6 +7,7 @@ {-# LANGUAGE OverloadedStrings           #-} {-# LANGUAGE RecordWildCards             #-} {-# LANGUAGE TypeFamilies                #-}+{-# LANGUAGE ViewPatterns                #-}  {-# OPTIONS_GHC -fno-warn-unused-imports #-} @@ -165,8 +166,6 @@     , giGatewayType     ) where -import Data.Char (isUpper)-import Network.AWS.Error import Network.AWS.Prelude import Network.AWS.Signing import qualified GHC.Exts@@ -178,15 +177,40 @@     type Sg StorageGateway = V4     type Er StorageGateway = JSONError -    service = Service-        { _svcAbbrev       = "StorageGateway"-        , _svcPrefix       = "storagegateway"-        , _svcVersion      = "2013-06-30"-        , _svcTargetPrefix = Just "StorageGateway_20130630"-        , _svcJSONVersion  = Just "1.1"-        }+    service = service'+      where+        service' :: Service StorageGateway+        service' = Service+            { _svcAbbrev       = "StorageGateway"+            , _svcPrefix       = "storagegateway"+            , _svcVersion      = "2013-06-30"+            , _svcTargetPrefix = Just "StorageGateway_20130630"+            , _svcJSONVersion  = Just "1.1"+            , _svcHandle       = handle+            , _svcRetry        = retry+            } -    handle = jsonError statusSuccess+        handle :: Status+               -> Maybe (LazyByteString -> ServiceError JSONError)+        handle = jsonError statusSuccess service'++        retry :: Retry StorageGateway+        retry = Exponential+            { _retryBase     = 0.05+            , _retryGrowth   = 2+            , _retryAttempts = 5+            , _retryCheck    = check+            }++        check :: Status+              -> JSONError+              -> Bool+        check (statusCode -> s) (awsErrorCode -> e)+            | s == 400 && "ThrottlingException" == e = True -- Throttling+            | s == 500  = True -- General Server Error+            | s == 509  = True -- Limit Exceeded+            | s == 503  = True -- Service Unavailable+            | otherwise = False  data ChapInfo = ChapInfo     { _ciInitiatorName                 :: Maybe Text