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:               0.0.0
+version:               0.0.1
 synopsis:              Amazon CloudSearch Domain SDK.
 homepage:              https://github.com/brendanhay/amazonka
 license:               OtherLicense
@@ -40,5 +40,5 @@
     other-modules:
 
     build-depends:
-          amazonka-core
-        , base          >= 4.7 && < 5
+          amazonka-core == 0.0.1.*
+        , base          >= 4.7     && < 5
diff --git a/gen/Network/AWS/CloudSearchDomains/Search.hs b/gen/Network/AWS/CloudSearchDomains/Search.hs
--- a/gen/Network/AWS/CloudSearchDomains/Search.hs
+++ b/gen/Network/AWS/CloudSearchDomains/Search.hs
@@ -83,12 +83,12 @@
     , _s1Partial      :: Maybe Bool
     , _s1Query        :: Text
     , _s1QueryOptions :: Maybe Text
-    , _s1QueryParser  :: Maybe Text
+    , _s1QueryParser  :: Maybe QueryParser
     , _s1Return       :: Maybe Text
     , _s1Size         :: Maybe Integer
     , _s1Sort         :: Maybe Text
     , _s1Start        :: Maybe Integer
-    } deriving (Eq, Ord, Show)
+    } deriving (Eq, Show)
 
 -- | 'Search' constructor.
 --
@@ -110,7 +110,7 @@
 --
 -- * 's1QueryOptions' @::@ 'Maybe' 'Text'
 --
--- * 's1QueryParser' @::@ 'Maybe' 'Text'
+-- * 's1QueryParser' @::@ 'Maybe' 'QueryParser'
 --
 -- * 's1Return' @::@ 'Maybe' 'Text'
 --
@@ -344,7 +344,7 @@
 -- Lucene Query Parser Syntax. dismax: search using the simplified subset of
 -- the Apache Lucene query parser syntax defined by the DisMax query parser.
 -- For more information, see DisMax Query Parser Syntax.
-s1QueryParser :: Lens' Search (Maybe Text)
+s1QueryParser :: Lens' Search (Maybe QueryParser)
 s1QueryParser = lens _s1QueryParser (\s a -> s { _s1QueryParser = a })
 
 -- | Specifies the field and expression values to include in the response.
diff --git a/gen/Network/AWS/CloudSearchDomains/Types.hs b/gen/Network/AWS/CloudSearchDomains/Types.hs
--- a/gen/Network/AWS/CloudSearchDomains/Types.hs
+++ b/gen/Network/AWS/CloudSearchDomains/Types.hs
@@ -25,7 +25,7 @@
     -- * Service
       CloudSearchDomains
     -- ** Error
-    , RESTError
+    , JSONError
 
     -- * SearchStatus
     , SearchStatus
@@ -102,7 +102,7 @@
 
 instance AWSService CloudSearchDomains where
     type Sg CloudSearchDomains = V4
-    type Er CloudSearchDomains = RESTError
+    type Er CloudSearchDomains = JSONError
 
     service = Service
         { _svcEndpoint     = regional
@@ -113,7 +113,7 @@
         , _svcJSONVersion  = Just "1.1"
         }
 
-    handle = restError statusSuccess
+    handle = jsonError statusSuccess
 
 data SearchStatus = SearchStatus
     { _ssRid    :: Maybe Text
@@ -175,6 +175,10 @@
         Simple     -> "simple"
         Structured -> "structured"
 
+instance ToByteString QueryParser
+instance ToHeader     QueryParser
+instance ToQuery      QueryParser
+
 instance FromJSON QueryParser where
     parseJSON = parseJSONText "QueryParser"
 
@@ -538,6 +542,10 @@
     toText = \case
         ApplicationJson -> "application/json"
         ApplicationXml  -> "application/xml"
+
+instance ToByteString ContentType
+instance ToHeader     ContentType
+instance ToQuery      ContentType
 
 instance FromJSON ContentType where
     parseJSON = parseJSONText "ContentType"
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
@@ -68,7 +68,7 @@
 import qualified GHC.Exts
 
 data UploadDocuments = UploadDocuments
-    { _udContentType :: Text
+    { _udContentType :: ContentType
     , _udDocuments   :: Base64
     } deriving (Eq, Show)
 
@@ -76,12 +76,12 @@
 --
 -- The fields accessible through corresponding lenses are:
 --
--- * 'udContentType' @::@ 'Text'
+-- * 'udContentType' @::@ 'ContentType'
 --
 -- * 'udDocuments' @::@ 'Base64'
 --
 uploadDocuments :: Base64 -- ^ 'udDocuments'
-                -> Text -- ^ 'udContentType'
+                -> ContentType -- ^ 'udContentType'
                 -> UploadDocuments
 uploadDocuments p1 p2 = UploadDocuments
     { _udDocuments   = p1
@@ -90,7 +90,7 @@
 
 -- | The format of the batch you are uploading. Amazon CloudSearch supports
 -- two document batch formats: application/json application/xml.
-udContentType :: Lens' UploadDocuments Text
+udContentType :: Lens' UploadDocuments ContentType
 udContentType = lens _udContentType (\s a -> s { _udContentType = a })
 
 -- | A batch of documents formatted in JSON or HTML.