diff --git a/README.md b/README.md
--- a/README.md
+++ b/README.md
@@ -8,7 +8,7 @@
 
 ## Version
 
-`1.3.0`
+`1.3.1`
 
 
 ## Description
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:               1.3.0
+version:               1.3.1
 synopsis:              Amazon Kinesis SDK.
 homepage:              https://github.com/brendanhay/amazonka
 bug-reports:           https://github.com/brendanhay/amazonka/issues
@@ -65,7 +65,7 @@
         , Network.AWS.Kinesis.Types.Sum
 
     build-depends:
-          amazonka-core == 1.3.0.*
+          amazonka-core == 1.3.1.*
         , base          >= 4.7     && < 5
 
 test-suite amazonka-kinesis-test
@@ -85,9 +85,9 @@
         , Test.AWS.Kinesis.Internal
 
     build-depends:
-          amazonka-core == 1.3.0.*
-        , amazonka-test == 1.3.0.*
-        , amazonka-kinesis == 1.3.0.*
+          amazonka-core == 1.3.1.*
+        , amazonka-test == 1.3.1.*
+        , amazonka-kinesis == 1.3.1.*
         , base
         , bytestring
         , lens
diff --git a/gen/Network/AWS/Kinesis/DescribeStream.hs b/gen/Network/AWS/Kinesis/DescribeStream.hs
--- a/gen/Network/AWS/Kinesis/DescribeStream.hs
+++ b/gen/Network/AWS/Kinesis/DescribeStream.hs
@@ -113,11 +113,12 @@
 instance AWSPager DescribeStream where
         page rq rs
           | stop
+              (rs ^. dsrsStreamDescription . sdHasMoreShards)
+            = Nothing
+          | isNothing
               (rs ^?
                  dsrsStreamDescription . sdShards . _last . sShardId)
             = Nothing
-          | stop (rs ^. dsrsStreamDescription . sdShards) =
-            Nothing
           | otherwise =
             Just $ rq &
               dExclusiveStartShardId .~
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
@@ -97,8 +97,8 @@
 
 instance AWSPager ListStreams where
         page rq rs
-          | stop (rs ^? lsrsStreamNames . _last) = Nothing
-          | stop (rs ^. lsrsStreamNames) = Nothing
+          | stop (rs ^. lsrsHasMoreStreams) = Nothing
+          | isNothing (rs ^? lsrsStreamNames . _last) = Nothing
           | otherwise =
             Just $ rq &
               lsExclusiveStartStreamName .~