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.2.2
+version:               0.2.3
 synopsis:              Amazon Redshift SDK.
 homepage:              https://github.com/brendanhay/amazonka
 license:               OtherLicense
@@ -100,5 +100,5 @@
     other-modules:
 
     build-depends:
-          amazonka-core == 0.2.2.*
+          amazonka-core == 0.2.3.*
         , base          >= 4.7     && < 5
diff --git a/gen/Network/AWS/Redshift/DescribeClusterParameterGroups.hs b/gen/Network/AWS/Redshift/DescribeClusterParameterGroups.hs
--- a/gen/Network/AWS/Redshift/DescribeClusterParameterGroups.hs
+++ b/gen/Network/AWS/Redshift/DescribeClusterParameterGroups.hs
@@ -205,6 +205,6 @@
 
 instance AWSPager DescribeClusterParameterGroups where
     page rq rs
-        | stop (rq ^. dcpgMarker) = Nothing
+        | stop (rs ^. dcpgrMarker) = Nothing
         | otherwise = (\x -> rq & dcpgMarker ?~ x)
             <$> (rs ^. dcpgrMarker)
diff --git a/gen/Network/AWS/Redshift/DescribeClusterParameters.hs b/gen/Network/AWS/Redshift/DescribeClusterParameters.hs
--- a/gen/Network/AWS/Redshift/DescribeClusterParameters.hs
+++ b/gen/Network/AWS/Redshift/DescribeClusterParameters.hs
@@ -182,6 +182,6 @@
 
 instance AWSPager DescribeClusterParameters where
     page rq rs
-        | stop (rq ^. dcp1Marker) = Nothing
+        | stop (rs ^. dcprMarker) = Nothing
         | otherwise = (\x -> rq & dcp1Marker ?~ x)
             <$> (rs ^. dcprMarker)
diff --git a/gen/Network/AWS/Redshift/DescribeClusterSecurityGroups.hs b/gen/Network/AWS/Redshift/DescribeClusterSecurityGroups.hs
--- a/gen/Network/AWS/Redshift/DescribeClusterSecurityGroups.hs
+++ b/gen/Network/AWS/Redshift/DescribeClusterSecurityGroups.hs
@@ -210,6 +210,6 @@
 
 instance AWSPager DescribeClusterSecurityGroups where
     page rq rs
-        | stop (rq ^. dcsgMarker) = Nothing
+        | stop (rs ^. dcsgr1Marker) = Nothing
         | otherwise = (\x -> rq & dcsgMarker ?~ x)
             <$> (rs ^. dcsgr1Marker)
diff --git a/gen/Network/AWS/Redshift/DescribeClusterSnapshots.hs b/gen/Network/AWS/Redshift/DescribeClusterSnapshots.hs
--- a/gen/Network/AWS/Redshift/DescribeClusterSnapshots.hs
+++ b/gen/Network/AWS/Redshift/DescribeClusterSnapshots.hs
@@ -266,6 +266,6 @@
 
 instance AWSPager DescribeClusterSnapshots where
     page rq rs
-        | stop (rq ^. dcs1Marker) = Nothing
+        | stop (rs ^. dcsrMarker) = Nothing
         | otherwise = (\x -> rq & dcs1Marker ?~ x)
             <$> (rs ^. dcsrMarker)
diff --git a/gen/Network/AWS/Redshift/DescribeClusterSubnetGroups.hs b/gen/Network/AWS/Redshift/DescribeClusterSubnetGroups.hs
--- a/gen/Network/AWS/Redshift/DescribeClusterSubnetGroups.hs
+++ b/gen/Network/AWS/Redshift/DescribeClusterSubnetGroups.hs
@@ -202,6 +202,6 @@
 
 instance AWSPager DescribeClusterSubnetGroups where
     page rq rs
-        | stop (rq ^. dcsg1Marker) = Nothing
+        | stop (rs ^. dcsgrMarker) = Nothing
         | otherwise = (\x -> rq & dcsg1Marker ?~ x)
             <$> (rs ^. dcsgrMarker)
diff --git a/gen/Network/AWS/Redshift/DescribeClusterVersions.hs b/gen/Network/AWS/Redshift/DescribeClusterVersions.hs
--- a/gen/Network/AWS/Redshift/DescribeClusterVersions.hs
+++ b/gen/Network/AWS/Redshift/DescribeClusterVersions.hs
@@ -180,6 +180,6 @@
 
 instance AWSPager DescribeClusterVersions where
     page rq rs
-        | stop (rq ^. dcvMarker) = Nothing
+        | stop (rs ^. dcvrMarker) = Nothing
         | otherwise = (\x -> rq & dcvMarker ?~ x)
             <$> (rs ^. dcvrMarker)
diff --git a/gen/Network/AWS/Redshift/DescribeClusters.hs b/gen/Network/AWS/Redshift/DescribeClusters.hs
--- a/gen/Network/AWS/Redshift/DescribeClusters.hs
+++ b/gen/Network/AWS/Redshift/DescribeClusters.hs
@@ -204,6 +204,6 @@
 
 instance AWSPager DescribeClusters where
     page rq rs
-        | stop (rq ^. dcMarker) = Nothing
+        | stop (rs ^. dcrMarker) = Nothing
         | otherwise = (\x -> rq & dcMarker ?~ x)
             <$> (rs ^. dcrMarker)
diff --git a/gen/Network/AWS/Redshift/DescribeDefaultClusterParameters.hs b/gen/Network/AWS/Redshift/DescribeDefaultClusterParameters.hs
--- a/gen/Network/AWS/Redshift/DescribeDefaultClusterParameters.hs
+++ b/gen/Network/AWS/Redshift/DescribeDefaultClusterParameters.hs
@@ -147,6 +147,6 @@
 
 instance AWSPager DescribeDefaultClusterParameters where
     page rq rs
-        | stop (rq ^. ddcpMarker) = Nothing
+        | stop (rs ^. ddcprDefaultClusterParameters . dcpMarker) = Nothing
         | otherwise = (\x -> rq & ddcpMarker ?~ x)
             <$> (rs ^. ddcprDefaultClusterParameters . dcpMarker)
diff --git a/gen/Network/AWS/Redshift/DescribeEventSubscriptions.hs b/gen/Network/AWS/Redshift/DescribeEventSubscriptions.hs
--- a/gen/Network/AWS/Redshift/DescribeEventSubscriptions.hs
+++ b/gen/Network/AWS/Redshift/DescribeEventSubscriptions.hs
@@ -161,6 +161,6 @@
 
 instance AWSPager DescribeEventSubscriptions where
     page rq rs
-        | stop (rq ^. des1Marker) = Nothing
+        | stop (rs ^. desrMarker) = Nothing
         | otherwise = (\x -> rq & des1Marker ?~ x)
             <$> (rs ^. desrMarker)
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
@@ -227,6 +227,6 @@
 
 instance AWSPager DescribeEvents where
     page rq rs
-        | stop (rq ^. deMarker) = Nothing
+        | stop (rs ^. derMarker) = Nothing
         | otherwise = (\x -> rq & deMarker ?~ x)
             <$> (rs ^. derMarker)
diff --git a/gen/Network/AWS/Redshift/DescribeHsmClientCertificates.hs b/gen/Network/AWS/Redshift/DescribeHsmClientCertificates.hs
--- a/gen/Network/AWS/Redshift/DescribeHsmClientCertificates.hs
+++ b/gen/Network/AWS/Redshift/DescribeHsmClientCertificates.hs
@@ -205,6 +205,6 @@
 
 instance AWSPager DescribeHsmClientCertificates where
     page rq rs
-        | stop (rq ^. dhccMarker) = Nothing
+        | stop (rs ^. dhccrMarker) = Nothing
         | otherwise = (\x -> rq & dhccMarker ?~ x)
             <$> (rs ^. dhccrMarker)
diff --git a/gen/Network/AWS/Redshift/DescribeHsmConfigurations.hs b/gen/Network/AWS/Redshift/DescribeHsmConfigurations.hs
--- a/gen/Network/AWS/Redshift/DescribeHsmConfigurations.hs
+++ b/gen/Network/AWS/Redshift/DescribeHsmConfigurations.hs
@@ -202,6 +202,6 @@
 
 instance AWSPager DescribeHsmConfigurations where
     page rq rs
-        | stop (rq ^. dhc1Marker) = Nothing
+        | stop (rs ^. dhcrMarker) = Nothing
         | otherwise = (\x -> rq & dhc1Marker ?~ x)
             <$> (rs ^. dhcrMarker)
diff --git a/gen/Network/AWS/Redshift/DescribeOrderableClusterOptions.hs b/gen/Network/AWS/Redshift/DescribeOrderableClusterOptions.hs
--- a/gen/Network/AWS/Redshift/DescribeOrderableClusterOptions.hs
+++ b/gen/Network/AWS/Redshift/DescribeOrderableClusterOptions.hs
@@ -181,6 +181,6 @@
 
 instance AWSPager DescribeOrderableClusterOptions where
     page rq rs
-        | stop (rq ^. docoMarker) = Nothing
+        | stop (rs ^. docorMarker) = Nothing
         | otherwise = (\x -> rq & docoMarker ?~ x)
             <$> (rs ^. docorMarker)
diff --git a/gen/Network/AWS/Redshift/DescribeReservedNodeOfferings.hs b/gen/Network/AWS/Redshift/DescribeReservedNodeOfferings.hs
--- a/gen/Network/AWS/Redshift/DescribeReservedNodeOfferings.hs
+++ b/gen/Network/AWS/Redshift/DescribeReservedNodeOfferings.hs
@@ -165,6 +165,6 @@
 
 instance AWSPager DescribeReservedNodeOfferings where
     page rq rs
-        | stop (rq ^. drnoMarker) = Nothing
+        | stop (rs ^. drnorMarker) = Nothing
         | otherwise = (\x -> rq & drnoMarker ?~ x)
             <$> (rs ^. drnorMarker)
diff --git a/gen/Network/AWS/Redshift/DescribeReservedNodes.hs b/gen/Network/AWS/Redshift/DescribeReservedNodes.hs
--- a/gen/Network/AWS/Redshift/DescribeReservedNodes.hs
+++ b/gen/Network/AWS/Redshift/DescribeReservedNodes.hs
@@ -156,6 +156,6 @@
 
 instance AWSPager DescribeReservedNodes where
     page rq rs
-        | stop (rq ^. drnMarker) = Nothing
+        | stop (rs ^. drnrMarker) = Nothing
         | otherwise = (\x -> rq & drnMarker ?~ x)
             <$> (rs ^. drnrMarker)