diff --git a/amazonka-ses.cabal b/amazonka-ses.cabal
--- a/amazonka-ses.cabal
+++ b/amazonka-ses.cabal
@@ -1,5 +1,5 @@
 name:                  amazonka-ses
-version:               0.0.0
+version:               0.0.1
 synopsis:              Amazon Simple Email Service SDK.
 homepage:              https://github.com/brendanhay/amazonka
 license:               OtherLicense
@@ -63,5 +63,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/SES/ListIdentities.hs b/gen/Network/AWS/SES/ListIdentities.hs
--- a/gen/Network/AWS/SES/ListIdentities.hs
+++ b/gen/Network/AWS/SES/ListIdentities.hs
@@ -51,16 +51,16 @@
 import qualified GHC.Exts
 
 data ListIdentities = ListIdentities
-    { _liIdentityType :: Maybe Text
+    { _liIdentityType :: Maybe IdentityType
     , _liMaxItems     :: Maybe Int
     , _liNextToken    :: Maybe Text
-    } deriving (Eq, Ord, Show)
+    } deriving (Eq, Show)
 
 -- | 'ListIdentities' constructor.
 --
 -- The fields accessible through corresponding lenses are:
 --
--- * 'liIdentityType' @::@ 'Maybe' 'Text'
+-- * 'liIdentityType' @::@ 'Maybe' 'IdentityType'
 --
 -- * 'liMaxItems' @::@ 'Maybe' 'Int'
 --
@@ -76,7 +76,7 @@
 -- | The type of the identities to list. Possible values are "EmailAddress"
 -- and "Domain". If this parameter is omitted, then all identities will be
 -- listed.
-liIdentityType :: Lens' ListIdentities (Maybe Text)
+liIdentityType :: Lens' ListIdentities (Maybe IdentityType)
 liIdentityType = lens _liIdentityType (\s a -> s { _liIdentityType = a })
 
 -- | The maximum number of identities per page. Possible values are 1-100
diff --git a/gen/Network/AWS/SES/SetIdentityNotificationTopic.hs b/gen/Network/AWS/SES/SetIdentityNotificationTopic.hs
--- a/gen/Network/AWS/SES/SetIdentityNotificationTopic.hs
+++ b/gen/Network/AWS/SES/SetIdentityNotificationTopic.hs
@@ -52,9 +52,9 @@
 
 data SetIdentityNotificationTopic = SetIdentityNotificationTopic
     { _sintIdentity         :: Text
-    , _sintNotificationType :: Text
+    , _sintNotificationType :: NotificationType
     , _sintSnsTopic         :: Maybe Text
-    } deriving (Eq, Ord, Show)
+    } deriving (Eq, Show)
 
 -- | 'SetIdentityNotificationTopic' constructor.
 --
@@ -62,12 +62,12 @@
 --
 -- * 'sintIdentity' @::@ 'Text'
 --
--- * 'sintNotificationType' @::@ 'Text'
+-- * 'sintNotificationType' @::@ 'NotificationType'
 --
 -- * 'sintSnsTopic' @::@ 'Maybe' 'Text'
 --
 setIdentityNotificationTopic :: Text -- ^ 'sintIdentity'
-                             -> Text -- ^ 'sintNotificationType'
+                             -> NotificationType -- ^ 'sintNotificationType'
                              -> SetIdentityNotificationTopic
 setIdentityNotificationTopic p1 p2 = SetIdentityNotificationTopic
     { _sintIdentity         = p1
@@ -82,7 +82,7 @@
 
 -- | The type of notifications that will be published to the specified Amazon
 -- SNS topic.
-sintNotificationType :: Lens' SetIdentityNotificationTopic Text
+sintNotificationType :: Lens' SetIdentityNotificationTopic NotificationType
 sintNotificationType =
     lens _sintNotificationType (\s a -> s { _sintNotificationType = a })
 
diff --git a/gen/Network/AWS/SES/Types.hs b/gen/Network/AWS/SES/Types.hs
--- a/gen/Network/AWS/SES/Types.hs
+++ b/gen/Network/AWS/SES/Types.hs
@@ -176,8 +176,8 @@
 data IdentityDkimAttributes = IdentityDkimAttributes
     { _idaDkimEnabled            :: Bool
     , _idaDkimTokens             :: List "DkimTokens" Text
-    , _idaDkimVerificationStatus :: Text
-    } deriving (Eq, Ord, Show)
+    , _idaDkimVerificationStatus :: VerificationStatus
+    } deriving (Eq, Show)
 
 -- | 'IdentityDkimAttributes' constructor.
 --
@@ -187,10 +187,10 @@
 --
 -- * 'idaDkimTokens' @::@ ['Text']
 --
--- * 'idaDkimVerificationStatus' @::@ 'Text'
+-- * 'idaDkimVerificationStatus' @::@ 'VerificationStatus'
 --
 identityDkimAttributes :: Bool -- ^ 'idaDkimEnabled'
-                       -> Text -- ^ 'idaDkimVerificationStatus'
+                       -> VerificationStatus -- ^ 'idaDkimVerificationStatus'
                        -> IdentityDkimAttributes
 identityDkimAttributes p1 p2 = IdentityDkimAttributes
     { _idaDkimEnabled            = p1
@@ -218,7 +218,7 @@
 -- | Describes whether Amazon SES has successfully verified the DKIM DNS
 -- records (tokens) published in the domain name's DNS. (This only applies
 -- to domain identities, not email address identities.).
-idaDkimVerificationStatus :: Lens' IdentityDkimAttributes Text
+idaDkimVerificationStatus :: Lens' IdentityDkimAttributes VerificationStatus
 idaDkimVerificationStatus =
     lens _idaDkimVerificationStatus
         (\s a -> s { _idaDkimVerificationStatus = a })
@@ -278,19 +278,19 @@
         ]
 
 data IdentityVerificationAttributes = IdentityVerificationAttributes
-    { _ivaVerificationStatus :: Text
+    { _ivaVerificationStatus :: VerificationStatus
     , _ivaVerificationToken  :: Maybe Text
-    } deriving (Eq, Ord, Show)
+    } deriving (Eq, Show)
 
 -- | 'IdentityVerificationAttributes' constructor.
 --
 -- The fields accessible through corresponding lenses are:
 --
--- * 'ivaVerificationStatus' @::@ 'Text'
+-- * 'ivaVerificationStatus' @::@ 'VerificationStatus'
 --
 -- * 'ivaVerificationToken' @::@ 'Maybe' 'Text'
 --
-identityVerificationAttributes :: Text -- ^ 'ivaVerificationStatus'
+identityVerificationAttributes :: VerificationStatus -- ^ 'ivaVerificationStatus'
                                -> IdentityVerificationAttributes
 identityVerificationAttributes p1 = IdentityVerificationAttributes
     { _ivaVerificationStatus = p1
@@ -299,7 +299,7 @@
 
 -- | The verification status of the identity: "Pending", "Success", "Failed",
 -- or "TemporaryFailure".
-ivaVerificationStatus :: Lens' IdentityVerificationAttributes Text
+ivaVerificationStatus :: Lens' IdentityVerificationAttributes VerificationStatus
 ivaVerificationStatus =
     lens _ivaVerificationStatus (\s a -> s { _ivaVerificationStatus = a })
 
@@ -405,11 +405,13 @@
         ITDomain       -> "Domain"
         ITEmailAddress -> "EmailAddress"
 
+instance ToByteString IdentityType
+instance ToHeader     IdentityType
+instance ToQuery      IdentityType
+
 instance FromXML IdentityType where
     parseXML = parseXMLText "IdentityType"
 
-instance ToQuery IdentityType where
-    toQuery = toQuery . toText
 
 data Content = Content
     { _cCharset :: Maybe Text
@@ -573,11 +575,13 @@
         Complaint -> "Complaint"
         Delivery  -> "Delivery"
 
+instance ToByteString NotificationType
+instance ToHeader     NotificationType
+instance ToQuery      NotificationType
+
 instance FromXML NotificationType where
     parseXML = parseXMLText "NotificationType"
 
-instance ToQuery NotificationType where
-    toQuery = toQuery . toText
 
 data VerificationStatus
     = Failed           -- ^ Failed
@@ -604,11 +608,13 @@
         Success          -> "Success"
         TemporaryFailure -> "TemporaryFailure"
 
+instance ToByteString VerificationStatus
+instance ToHeader     VerificationStatus
+instance ToQuery      VerificationStatus
+
 instance FromXML VerificationStatus where
     parseXML = parseXMLText "VerificationStatus"
 
-instance ToQuery VerificationStatus where
-    toQuery = toQuery . toText
 
 data Message = Message
     { _mBody    :: Body