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.6
+version:               0.0.7
 synopsis:              Amazon Kinesis SDK.
 homepage:              https://github.com/brendanhay/amazonka
 license:               OtherLicense
@@ -53,5 +53,5 @@
     other-modules:
 
     build-depends:
-          amazonka-core == 0.0.6.*
+          amazonka-core == 0.0.7.*
         , base          >= 4.7     && < 5
diff --git a/gen/Network/AWS/Kinesis/GetRecords.hs b/gen/Network/AWS/Kinesis/GetRecords.hs
--- a/gen/Network/AWS/Kinesis/GetRecords.hs
+++ b/gen/Network/AWS/Kinesis/GetRecords.hs
@@ -174,4 +174,4 @@
 instance FromJSON GetRecordsResponse where
     parseJSON = withObject "GetRecordsResponse" $ \o -> GetRecordsResponse
         <$> o .:? "NextShardIterator"
-        <*> o .:  "Records"
+        <*> o .:? "Records" .!= mempty
diff --git a/gen/Network/AWS/Kinesis/ListStreams.hs b/gen/Network/AWS/Kinesis/ListStreams.hs
--- a/gen/Network/AWS/Kinesis/ListStreams.hs
+++ b/gen/Network/AWS/Kinesis/ListStreams.hs
@@ -142,7 +142,7 @@
 instance FromJSON ListStreamsResponse where
     parseJSON = withObject "ListStreamsResponse" $ \o -> ListStreamsResponse
         <$> o .:  "HasMoreStreams"
-        <*> o .:  "StreamNames"
+        <*> o .:? "StreamNames" .!= mempty
 
 instance AWSPager ListStreams where
     page rq rs
diff --git a/gen/Network/AWS/Kinesis/ListTagsForStream.hs b/gen/Network/AWS/Kinesis/ListTagsForStream.hs
--- a/gen/Network/AWS/Kinesis/ListTagsForStream.hs
+++ b/gen/Network/AWS/Kinesis/ListTagsForStream.hs
@@ -144,4 +144,4 @@
 instance FromJSON ListTagsForStreamResponse where
     parseJSON = withObject "ListTagsForStreamResponse" $ \o -> ListTagsForStreamResponse
         <$> o .:  "HasMoreTags"
-        <*> o .:  "Tags"
+        <*> o .:? "Tags" .!= mempty
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
@@ -287,7 +287,7 @@
 instance FromJSON StreamDescription where
     parseJSON = withObject "StreamDescription" $ \o -> StreamDescription
         <$> o .:  "HasMoreShards"
-        <*> o .:  "Shards"
+        <*> o .:? "Shards" .!= mempty
         <*> o .:  "StreamARN"
         <*> o .:  "StreamName"
         <*> o .:  "StreamStatus"