diff --git a/amazonka-kinesis.cabal b/amazonka-kinesis.cabal
--- a/amazonka-kinesis.cabal
+++ b/amazonka-kinesis.cabal
@@ -1,5 +1,5 @@
 name:                  amazonka-kinesis
-version:               0.0.0
+version:               0.0.1
 synopsis:              Amazon Kinesis SDK.
 homepage:              https://github.com/brendanhay/amazonka
 license:               OtherLicense
@@ -53,5 +53,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/Kinesis/GetShardIterator.hs b/gen/Network/AWS/Kinesis/GetShardIterator.hs
--- a/gen/Network/AWS/Kinesis/GetShardIterator.hs
+++ b/gen/Network/AWS/Kinesis/GetShardIterator.hs
@@ -79,10 +79,10 @@
 
 data GetShardIterator = GetShardIterator
     { _gsiShardId                :: Text
-    , _gsiShardIteratorType      :: Text
+    , _gsiShardIteratorType      :: ShardIteratorType
     , _gsiStartingSequenceNumber :: Maybe Text
     , _gsiStreamName             :: Text
-    } deriving (Eq, Ord, Show)
+    } deriving (Eq, Show)
 
 -- | 'GetShardIterator' constructor.
 --
@@ -90,7 +90,7 @@
 --
 -- * 'gsiShardId' @::@ 'Text'
 --
--- * 'gsiShardIteratorType' @::@ 'Text'
+-- * 'gsiShardIteratorType' @::@ 'ShardIteratorType'
 --
 -- * 'gsiStartingSequenceNumber' @::@ 'Maybe' 'Text'
 --
@@ -98,7 +98,7 @@
 --
 getShardIterator :: Text -- ^ 'gsiStreamName'
                  -> Text -- ^ 'gsiShardId'
-                 -> Text -- ^ 'gsiShardIteratorType'
+                 -> ShardIteratorType -- ^ 'gsiShardIteratorType'
                  -> GetShardIterator
 getShardIterator p1 p2 p3 = GetShardIterator
     { _gsiStreamName             = p1
@@ -120,7 +120,7 @@
 -- which is the oldest data record in the shard. LATEST - Start reading just
 -- after the most recent record in the shard, so that you always read the
 -- most recent data in the shard.
-gsiShardIteratorType :: Lens' GetShardIterator Text
+gsiShardIteratorType :: Lens' GetShardIterator ShardIteratorType
 gsiShardIteratorType =
     lens _gsiShardIteratorType (\s a -> s { _gsiShardIteratorType = a })
 
diff --git a/gen/Network/AWS/Kinesis/Types.hs b/gen/Network/AWS/Kinesis/Types.hs
--- a/gen/Network/AWS/Kinesis/Types.hs
+++ b/gen/Network/AWS/Kinesis/Types.hs
@@ -222,7 +222,7 @@
     , _sdShards        :: List "Shards" Shard
     , _sdStreamARN     :: Text
     , _sdStreamName    :: Text
-    , _sdStreamStatus  :: Text
+    , _sdStreamStatus  :: StreamStatus
     } deriving (Eq, Show)
 
 -- | 'StreamDescription' constructor.
@@ -237,11 +237,11 @@
 --
 -- * 'sdStreamName' @::@ 'Text'
 --
--- * 'sdStreamStatus' @::@ 'Text'
+-- * 'sdStreamStatus' @::@ 'StreamStatus'
 --
 streamDescription :: Text -- ^ 'sdStreamName'
                   -> Text -- ^ 'sdStreamARN'
-                  -> Text -- ^ 'sdStreamStatus'
+                  -> StreamStatus -- ^ 'sdStreamStatus'
                   -> Bool -- ^ 'sdHasMoreShards'
                   -> StreamDescription
 streamDescription p1 p2 p3 p4 = StreamDescription
@@ -277,7 +277,7 @@
 -- should perform read and write operations only on an ACTIVE stream.
 -- UPDATING - Shards in the stream are being merged or split. Read and write
 -- operations continue to work while the stream is in the UPDATING state.
-sdStreamStatus :: Lens' StreamDescription Text
+sdStreamStatus :: Lens' StreamDescription StreamStatus
 sdStreamStatus = lens _sdStreamStatus (\s a -> s { _sdStreamStatus = a })
 
 instance FromJSON StreamDescription where
@@ -319,6 +319,10 @@
         Deleting -> "DELETING"
         Updating -> "UPDATING"
 
+instance ToByteString StreamStatus
+instance ToHeader     StreamStatus
+instance ToQuery      StreamStatus
+
 instance FromJSON StreamStatus where
     parseJSON = parseJSONText "StreamStatus"
 
@@ -484,6 +488,10 @@
         AtSequenceNumber    -> "AT_SEQUENCE_NUMBER"
         Latest              -> "LATEST"
         TrimHorizon         -> "TRIM_HORIZON"
+
+instance ToByteString ShardIteratorType
+instance ToHeader     ShardIteratorType
+instance ToQuery      ShardIteratorType
 
 instance FromJSON ShardIteratorType where
     parseJSON = parseJSONText "ShardIteratorType"