amazonka-glacier 1.3.1 → 1.3.2

raw patch · 6 files changed

+16/−17 lines, 6 filesdep ~amazonka-coredep ~amazonka-glacierdep ~amazonka-testPVP: major bump suggested

API removals or changes: PVP suggests a major version bump

Dependency ranges changed: amazonka-core, amazonka-glacier, amazonka-test

API changes (from Hackage documentation)

Files

• README.md +1/−1
• amazonka-glacier.cabal +5/−5
• gen/Network/AWS/Glacier/GetVaultAccessPolicy.hs +1/−1
• gen/Network/AWS/Glacier/GetVaultNotifications.hs +1/−2
• gen/Network/AWS/Glacier/UploadArchive.hs +4/−4
• gen/Network/AWS/Glacier/UploadMultipartPart.hs +4/−4

@@ -8,7 +8,7 @@  ## Version -`1.3.1`+`1.3.2`   ## Description

@@ -1,5 +1,5 @@ name:                  amazonka-glacier-version:               1.3.1+version:               1.3.2 synopsis:              Amazon Glacier SDK. homepage:              https://github.com/brendanhay/amazonka bug-reports:           https://github.com/brendanhay/amazonka/issues@@ -113,7 +113,7 @@         , Network.AWS.Glacier.Types.Sum      build-depends:-          amazonka-core == 1.3.1.*+          amazonka-core == 1.3.2.*         , base          >= 4.7     && < 5  test-suite amazonka-glacier-test@@ -133,9 +133,9 @@         , Test.AWS.Glacier.Internal      build-depends:-          amazonka-core == 1.3.1.*-        , amazonka-test == 1.3.1.*-        , amazonka-glacier == 1.3.1.*+          amazonka-core == 1.3.2.*+        , amazonka-test == 1.3.2.*+        , amazonka-glacier == 1.3.2.*         , base         , bytestring         , lens

@@ -95,7 +95,7 @@           = receiveJSON               (\ s h x ->                  GetVaultAccessPolicyResponse' <$>-                   (x .?> "policy") <*> (pure (fromEnum s)))+                   (eitherParseJSON x) <*> (pure (fromEnum s)))  instance ToHeaders GetVaultAccessPolicy where         toHeaders = const mempty

@@ -109,8 +109,7 @@           = receiveJSON               (\ s h x ->                  GetVaultNotificationsResponse' <$>-                   (x .?> "vaultNotificationConfig") <*>-                     (pure (fromEnum s)))+                   (eitherParseJSON x) <*> (pure (fromEnum s)))  instance ToHeaders GetVaultNotifications where         toHeaders = const mempty

@@ -96,7 +96,7 @@     , _uaArchiveDescription :: !(Maybe Text)     , _uaVaultName          :: !Text     , _uaAccountId          :: !Text-    , _uaBody               :: !RqBody+    , _uaBody               :: !HashedBody     } deriving (Show,Generic)  -- | Creates a value of 'UploadArchive' with the minimum fields required to make a request.@@ -115,7 +115,7 @@ uploadArchive     :: Text -- ^ 'uaVaultName'     -> Text -- ^ 'uaAccountId'-    -> RqBody -- ^ 'uaBody'+    -> HashedBody -- ^ 'uaBody'     -> UploadArchive uploadArchive pVaultName_ pAccountId_ pBody_ =     UploadArchive'@@ -147,7 +147,7 @@ uaAccountId = lens _uaAccountId (\ s a -> s{_uaAccountId = a});  -- | The data to upload.-uaBody :: Lens' UploadArchive RqBody+uaBody :: Lens' UploadArchive HashedBody uaBody = lens _uaBody (\ s a -> s{_uaBody = a});  instance AWSRequest UploadArchive where@@ -162,7 +162,7 @@                      <*> (h .#? "Location"))  instance ToBody UploadArchive where-        toBody = _uaBody+        toBody = toBody . _uaBody  instance ToHeaders UploadArchive where         toHeaders UploadArchive'{..}

@@ -105,7 +105,7 @@     , _umpAccountId :: !Text     , _umpVaultName :: !Text     , _umpUploadId  :: !Text-    , _umpBody      :: !RqBody+    , _umpBody      :: !HashedBody     } deriving (Show,Generic)  -- | Creates a value of 'UploadMultipartPart' with the minimum fields required to make a request.@@ -127,7 +127,7 @@     :: Text -- ^ 'umpAccountId'     -> Text -- ^ 'umpVaultName'     -> Text -- ^ 'umpUploadId'-    -> RqBody -- ^ 'umpBody'+    -> HashedBody -- ^ 'umpBody'     -> UploadMultipartPart uploadMultipartPart pAccountId_ pVaultName_ pUploadId_ pBody_ =     UploadMultipartPart'@@ -167,7 +167,7 @@ umpUploadId = lens _umpUploadId (\ s a -> s{_umpUploadId = a});  -- | The data to upload.-umpBody :: Lens' UploadMultipartPart RqBody+umpBody :: Lens' UploadMultipartPart HashedBody umpBody = lens _umpBody (\ s a -> s{_umpBody = a});  instance AWSRequest UploadMultipartPart where@@ -182,7 +182,7 @@                      (pure (fromEnum s)))  instance ToBody UploadMultipartPart where-        toBody = _umpBody+        toBody = toBody . _umpBody  instance ToHeaders UploadMultipartPart where         toHeaders UploadMultipartPart'{..}