diff --git a/amazonka-redshift.cabal b/amazonka-redshift.cabal
--- a/amazonka-redshift.cabal
+++ b/amazonka-redshift.cabal
@@ -1,5 +1,5 @@
 name:                  amazonka-redshift
-version:               0.0.0
+version:               0.0.1
 synopsis:              Amazon Redshift SDK.
 homepage:              https://github.com/brendanhay/amazonka
 license:               OtherLicense
@@ -98,5 +98,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/Redshift/DescribeEvents.hs b/gen/Network/AWS/Redshift/DescribeEvents.hs
--- a/gen/Network/AWS/Redshift/DescribeEvents.hs
+++ b/gen/Network/AWS/Redshift/DescribeEvents.hs
@@ -62,9 +62,9 @@
     , _deMarker           :: Maybe Text
     , _deMaxRecords       :: Maybe Int
     , _deSourceIdentifier :: Maybe Text
-    , _deSourceType       :: Maybe Text
+    , _deSourceType       :: Maybe SourceType
     , _deStartTime        :: Maybe RFC822
-    } deriving (Eq, Ord, Show)
+    } deriving (Eq, Show)
 
 -- | 'DescribeEvents' constructor.
 --
@@ -80,7 +80,7 @@
 --
 -- * 'deSourceIdentifier' @::@ 'Maybe' 'Text'
 --
--- * 'deSourceType' @::@ 'Maybe' 'Text'
+-- * 'deSourceType' @::@ 'Maybe' 'SourceType'
 --
 -- * 'deStartTime' @::@ 'Maybe' 'UTCTime'
 --
@@ -145,7 +145,7 @@
 -- cluster-parameter-group when SourceIdentifier is a cluster parameter
 -- group name. Specify cluster-snapshot when SourceIdentifier is a cluster
 -- snapshot identifier.
-deSourceType :: Lens' DescribeEvents (Maybe Text)
+deSourceType :: Lens' DescribeEvents (Maybe SourceType)
 deSourceType = lens _deSourceType (\s a -> s { _deSourceType = a })
 
 -- | The beginning of the time interval to retrieve events for, specified in
diff --git a/gen/Network/AWS/Redshift/Types.hs b/gen/Network/AWS/Redshift/Types.hs
--- a/gen/Network/AWS/Redshift/Types.hs
+++ b/gen/Network/AWS/Redshift/Types.hs
@@ -897,8 +897,8 @@
     , _eMessage          :: Maybe Text
     , _eSeverity         :: Maybe Text
     , _eSourceIdentifier :: Maybe Text
-    , _eSourceType       :: Maybe Text
-    } deriving (Eq, Ord, Show)
+    , _eSourceType       :: Maybe SourceType
+    } deriving (Eq, Show)
 
 -- | 'Event' constructor.
 --
@@ -916,7 +916,7 @@
 --
 -- * 'eSourceIdentifier' @::@ 'Maybe' 'Text'
 --
--- * 'eSourceType' @::@ 'Maybe' 'Text'
+-- * 'eSourceType' @::@ 'Maybe' 'SourceType'
 --
 event :: Event
 event = Event
@@ -955,7 +955,7 @@
     lens _eSourceIdentifier (\s a -> s { _eSourceIdentifier = a })
 
 -- | The source type for this event.
-eSourceType :: Lens' Event (Maybe Text)
+eSourceType :: Lens' Event (Maybe SourceType)
 eSourceType = lens _eSourceType (\s a -> s { _eSourceType = a })
 
 instance FromXML Event where
@@ -1680,11 +1680,13 @@
         STClusterSecurityGroup  -> "cluster-security-group"
         STClusterSnapshot       -> "cluster-snapshot"
 
+instance ToByteString SourceType
+instance ToHeader     SourceType
+instance ToQuery      SourceType
+
 instance FromXML SourceType where
     parseXML = parseXMLText "SourceType"
 
-instance ToQuery SourceType where
-    toQuery = toQuery . toText
 
 data ClusterParameterGroupStatus = ClusterParameterGroupStatus
     { _cpgsParameterApplyStatus :: Maybe Text