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-cloudsearch-domains.cabal b/amazonka-cloudsearch-domains.cabal
--- a/amazonka-cloudsearch-domains.cabal
+++ b/amazonka-cloudsearch-domains.cabal
@@ -1,5 +1,5 @@
 name:                  amazonka-cloudsearch-domains
-version:               1.3.1
+version:               1.3.2
 synopsis:              Amazon CloudSearch Domain SDK.
 homepage:              https://github.com/brendanhay/amazonka
 bug-reports:           https://github.com/brendanhay/amazonka/issues
@@ -63,7 +63,7 @@
         , Network.AWS.CloudSearchDomains.Types.Sum
 
     build-depends:
-          amazonka-core == 1.3.1.*
+          amazonka-core == 1.3.2.*
         , base          >= 4.7     && < 5
 
 test-suite amazonka-cloudsearch-domains-test
@@ -83,9 +83,9 @@
         , Test.AWS.CloudSearchDomains.Internal
 
     build-depends:
-          amazonka-core == 1.3.1.*
-        , amazonka-test == 1.3.1.*
-        , amazonka-cloudsearch-domains == 1.3.1.*
+          amazonka-core == 1.3.2.*
+        , amazonka-test == 1.3.2.*
+        , amazonka-cloudsearch-domains == 1.3.2.*
         , base
         , bytestring
         , lens
diff --git a/gen/Network/AWS/CloudSearchDomains/UploadDocuments.hs b/gen/Network/AWS/CloudSearchDomains/UploadDocuments.hs
--- a/gen/Network/AWS/CloudSearchDomains/UploadDocuments.hs
+++ b/gen/Network/AWS/CloudSearchDomains/UploadDocuments.hs
@@ -77,7 +77,7 @@
 -- /See:/ 'uploadDocuments' smart constructor.
 data UploadDocuments = UploadDocuments'
     { _udContentType :: !ContentType
-    , _udDocuments   :: !RqBody
+    , _udDocuments   :: !HashedBody
     } deriving (Show,Generic)
 
 -- | Creates a value of 'UploadDocuments' with the minimum fields required to make a request.
@@ -89,7 +89,7 @@
 -- * 'udDocuments'
 uploadDocuments
     :: ContentType -- ^ 'udContentType'
-    -> RqBody -- ^ 'udDocuments'
+    -> HashedBody -- ^ 'udDocuments'
     -> UploadDocuments
 uploadDocuments pContentType_ pDocuments_ =
     UploadDocuments'
@@ -106,7 +106,7 @@
 udContentType = lens _udContentType (\ s a -> s{_udContentType = a});
 
 -- | A batch of documents formatted in JSON or HTML.
-udDocuments :: Lens' UploadDocuments RqBody
+udDocuments :: Lens' UploadDocuments HashedBody
 udDocuments = lens _udDocuments (\ s a -> s{_udDocuments = a});
 
 instance AWSRequest UploadDocuments where
@@ -122,7 +122,7 @@
                      <*> (pure (fromEnum s)))
 
 instance ToBody UploadDocuments where
-        toBody = _udDocuments
+        toBody = toBody . _udDocuments
 
 instance ToHeaders UploadDocuments where
         toHeaders UploadDocuments'{..}