diff --git a/README.md b/README.md
--- a/README.md
+++ b/README.md
@@ -8,7 +8,7 @@
 
 ## Version
 
-`1.3.1`
+`1.3.2`
 
 
 ## Description
diff --git a/amazonka-glacier.cabal b/amazonka-glacier.cabal
--- a/amazonka-glacier.cabal
+++ b/amazonka-glacier.cabal
@@ -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
diff --git a/gen/Network/AWS/Glacier/GetVaultAccessPolicy.hs b/gen/Network/AWS/Glacier/GetVaultAccessPolicy.hs
--- a/gen/Network/AWS/Glacier/GetVaultAccessPolicy.hs
+++ b/gen/Network/AWS/Glacier/GetVaultAccessPolicy.hs
@@ -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
diff --git a/gen/Network/AWS/Glacier/GetVaultNotifications.hs b/gen/Network/AWS/Glacier/GetVaultNotifications.hs
--- a/gen/Network/AWS/Glacier/GetVaultNotifications.hs
+++ b/gen/Network/AWS/Glacier/GetVaultNotifications.hs
@@ -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
diff --git a/gen/Network/AWS/Glacier/UploadArchive.hs b/gen/Network/AWS/Glacier/UploadArchive.hs
--- a/gen/Network/AWS/Glacier/UploadArchive.hs
+++ b/gen/Network/AWS/Glacier/UploadArchive.hs
@@ -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'{..}
diff --git a/gen/Network/AWS/Glacier/UploadMultipartPart.hs b/gen/Network/AWS/Glacier/UploadMultipartPart.hs
--- a/gen/Network/AWS/Glacier/UploadMultipartPart.hs
+++ b/gen/Network/AWS/Glacier/UploadMultipartPart.hs
@@ -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'{..}