diff --git a/README.md b/README.md
--- a/README.md
+++ b/README.md
@@ -8,7 +8,7 @@
 
 ## Version
 
-`1.5.0`
+`1.6.0`
 
 
 ## Description
diff --git a/amazonka-cognito-sync.cabal b/amazonka-cognito-sync.cabal
--- a/amazonka-cognito-sync.cabal
+++ b/amazonka-cognito-sync.cabal
@@ -1,5 +1,5 @@
 name:                  amazonka-cognito-sync
-version:               1.5.0
+version:               1.6.0
 synopsis:              Amazon Cognito Sync SDK.
 homepage:              https://github.com/brendanhay/amazonka
 bug-reports:           https://github.com/brendanhay/amazonka/issues
@@ -7,7 +7,7 @@
 license-file:          LICENSE
 author:                Brendan Hay
 maintainer:            Brendan Hay <brendan.g.hay+amazonka@gmail.com>
-copyright:             Copyright (c) 2013-2017 Brendan Hay
+copyright:             Copyright (c) 2013-2018 Brendan Hay
 category:              Network, AWS, Cloud, Distributed Computing
 build-type:            Simple
 cabal-version:         >= 1.10
@@ -70,7 +70,7 @@
         , Network.AWS.CognitoSync.Types.Sum
 
     build-depends:
-          amazonka-core == 1.5.0.*
+          amazonka-core == 1.6.0.*
         , base          >= 4.7     && < 5
 
 test-suite amazonka-cognito-sync-test
@@ -90,8 +90,8 @@
         , Test.AWS.CognitoSync.Internal
 
     build-depends:
-          amazonka-core == 1.5.0.*
-        , amazonka-test == 1.5.0.*
+          amazonka-core == 1.6.0.*
+        , amazonka-test == 1.6.0.*
         , amazonka-cognito-sync
         , base
         , bytestring
diff --git a/gen/Network/AWS/CognitoSync.hs b/gen/Network/AWS/CognitoSync.hs
--- a/gen/Network/AWS/CognitoSync.hs
+++ b/gen/Network/AWS/CognitoSync.hs
@@ -5,7 +5,7 @@
 
 -- |
 -- Module      : Network.AWS.CognitoSync
--- Copyright   : (c) 2013-2017 Brendan Hay
+-- Copyright   : (c) 2013-2018 Brendan Hay
 -- License     : Mozilla Public License, v. 2.0.
 -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com>
 -- Stability   : auto-generated
diff --git a/gen/Network/AWS/CognitoSync/BulkPublish.hs b/gen/Network/AWS/CognitoSync/BulkPublish.hs
--- a/gen/Network/AWS/CognitoSync/BulkPublish.hs
+++ b/gen/Network/AWS/CognitoSync/BulkPublish.hs
@@ -12,7 +12,7 @@
 
 -- |
 -- Module      : Network.AWS.CognitoSync.BulkPublish
--- Copyright   : (c) 2013-2017 Brendan Hay
+-- Copyright   : (c) 2013-2018 Brendan Hay
 -- License     : Mozilla Public License, v. 2.0.
 -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com>
 -- Stability   : auto-generated
@@ -68,7 +68,7 @@
 
 -- | A name-spaced GUID (for example, us-east-1:23EC4050-6AEA-7089-A2DD-08002EXAMPLE) created by Amazon Cognito. GUID generation is unique within a region.
 bpIdentityPoolId :: Lens' BulkPublish Text
-bpIdentityPoolId = lens _bpIdentityPoolId (\ s a -> s{_bpIdentityPoolId = a});
+bpIdentityPoolId = lens _bpIdentityPoolId (\ s a -> s{_bpIdentityPoolId = a})
 
 instance AWSRequest BulkPublish where
         type Rs BulkPublish = BulkPublishResponse
@@ -123,15 +123,15 @@
     -> BulkPublishResponse
 bulkPublishResponse pResponseStatus_ =
   BulkPublishResponse'
-  {_bprsIdentityPoolId = Nothing, _bprsResponseStatus = pResponseStatus_}
+    {_bprsIdentityPoolId = Nothing, _bprsResponseStatus = pResponseStatus_}
 
 
 -- | A name-spaced GUID (for example, us-east-1:23EC4050-6AEA-7089-A2DD-08002EXAMPLE) created by Amazon Cognito. GUID generation is unique within a region.
 bprsIdentityPoolId :: Lens' BulkPublishResponse (Maybe Text)
-bprsIdentityPoolId = lens _bprsIdentityPoolId (\ s a -> s{_bprsIdentityPoolId = a});
+bprsIdentityPoolId = lens _bprsIdentityPoolId (\ s a -> s{_bprsIdentityPoolId = a})
 
 -- | -- | The response status code.
 bprsResponseStatus :: Lens' BulkPublishResponse Int
-bprsResponseStatus = lens _bprsResponseStatus (\ s a -> s{_bprsResponseStatus = a});
+bprsResponseStatus = lens _bprsResponseStatus (\ s a -> s{_bprsResponseStatus = a})
 
 instance NFData BulkPublishResponse where
diff --git a/gen/Network/AWS/CognitoSync/DeleteDataset.hs b/gen/Network/AWS/CognitoSync/DeleteDataset.hs
--- a/gen/Network/AWS/CognitoSync/DeleteDataset.hs
+++ b/gen/Network/AWS/CognitoSync/DeleteDataset.hs
@@ -12,7 +12,7 @@
 
 -- |
 -- Module      : Network.AWS.CognitoSync.DeleteDataset
--- Copyright   : (c) 2013-2017 Brendan Hay
+-- Copyright   : (c) 2013-2018 Brendan Hay
 -- License     : Mozilla Public License, v. 2.0.
 -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com>
 -- Stability   : auto-generated
@@ -74,23 +74,23 @@
     -> DeleteDataset
 deleteDataset pIdentityPoolId_ pIdentityId_ pDatasetName_ =
   DeleteDataset'
-  { _delIdentityPoolId = pIdentityPoolId_
-  , _delIdentityId = pIdentityId_
-  , _delDatasetName = pDatasetName_
-  }
+    { _delIdentityPoolId = pIdentityPoolId_
+    , _delIdentityId = pIdentityId_
+    , _delDatasetName = pDatasetName_
+    }
 
 
 -- | A name-spaced GUID (for example, us-east-1:23EC4050-6AEA-7089-A2DD-08002EXAMPLE) created by Amazon Cognito. GUID generation is unique within a region.
 delIdentityPoolId :: Lens' DeleteDataset Text
-delIdentityPoolId = lens _delIdentityPoolId (\ s a -> s{_delIdentityPoolId = a});
+delIdentityPoolId = lens _delIdentityPoolId (\ s a -> s{_delIdentityPoolId = a})
 
 -- | A name-spaced GUID (for example, us-east-1:23EC4050-6AEA-7089-A2DD-08002EXAMPLE) created by Amazon Cognito. GUID generation is unique within a region.
 delIdentityId :: Lens' DeleteDataset Text
-delIdentityId = lens _delIdentityId (\ s a -> s{_delIdentityId = a});
+delIdentityId = lens _delIdentityId (\ s a -> s{_delIdentityId = a})
 
 -- | A string of up to 128 characters. Allowed characters are a-z, A-Z, 0-9, '_' (underscore), '-' (dash), and '.' (dot).
 delDatasetName :: Lens' DeleteDataset Text
-delDatasetName = lens _delDatasetName (\ s a -> s{_delDatasetName = a});
+delDatasetName = lens _delDatasetName (\ s a -> s{_delDatasetName = a})
 
 instance AWSRequest DeleteDataset where
         type Rs DeleteDataset = DeleteDatasetResponse
@@ -143,15 +143,15 @@
     -> DeleteDatasetResponse
 deleteDatasetResponse pResponseStatus_ =
   DeleteDatasetResponse'
-  {_drsDataset = Nothing, _drsResponseStatus = pResponseStatus_}
+    {_drsDataset = Nothing, _drsResponseStatus = pResponseStatus_}
 
 
 -- | A collection of data for an identity pool. An identity pool can have multiple datasets. A dataset is per identity and can be general or associated with a particular entity in an application (like a saved game). Datasets are automatically created if they don't exist. Data is synced by dataset, and a dataset can hold up to 1MB of key-value pairs.
 drsDataset :: Lens' DeleteDatasetResponse (Maybe Dataset)
-drsDataset = lens _drsDataset (\ s a -> s{_drsDataset = a});
+drsDataset = lens _drsDataset (\ s a -> s{_drsDataset = a})
 
 -- | -- | The response status code.
 drsResponseStatus :: Lens' DeleteDatasetResponse Int
-drsResponseStatus = lens _drsResponseStatus (\ s a -> s{_drsResponseStatus = a});
+drsResponseStatus = lens _drsResponseStatus (\ s a -> s{_drsResponseStatus = a})
 
 instance NFData DeleteDatasetResponse where
diff --git a/gen/Network/AWS/CognitoSync/DescribeDataset.hs b/gen/Network/AWS/CognitoSync/DescribeDataset.hs
--- a/gen/Network/AWS/CognitoSync/DescribeDataset.hs
+++ b/gen/Network/AWS/CognitoSync/DescribeDataset.hs
@@ -12,7 +12,7 @@
 
 -- |
 -- Module      : Network.AWS.CognitoSync.DescribeDataset
--- Copyright   : (c) 2013-2017 Brendan Hay
+-- Copyright   : (c) 2013-2018 Brendan Hay
 -- License     : Mozilla Public License, v. 2.0.
 -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com>
 -- Stability   : auto-generated
@@ -74,23 +74,23 @@
     -> DescribeDataset
 describeDataset pIdentityPoolId_ pIdentityId_ pDatasetName_ =
   DescribeDataset'
-  { _ddIdentityPoolId = pIdentityPoolId_
-  , _ddIdentityId = pIdentityId_
-  , _ddDatasetName = pDatasetName_
-  }
+    { _ddIdentityPoolId = pIdentityPoolId_
+    , _ddIdentityId = pIdentityId_
+    , _ddDatasetName = pDatasetName_
+    }
 
 
 -- | A name-spaced GUID (for example, us-east-1:23EC4050-6AEA-7089-A2DD-08002EXAMPLE) created by Amazon Cognito. GUID generation is unique within a region.
 ddIdentityPoolId :: Lens' DescribeDataset Text
-ddIdentityPoolId = lens _ddIdentityPoolId (\ s a -> s{_ddIdentityPoolId = a});
+ddIdentityPoolId = lens _ddIdentityPoolId (\ s a -> s{_ddIdentityPoolId = a})
 
 -- | A name-spaced GUID (for example, us-east-1:23EC4050-6AEA-7089-A2DD-08002EXAMPLE) created by Amazon Cognito. GUID generation is unique within a region.
 ddIdentityId :: Lens' DescribeDataset Text
-ddIdentityId = lens _ddIdentityId (\ s a -> s{_ddIdentityId = a});
+ddIdentityId = lens _ddIdentityId (\ s a -> s{_ddIdentityId = a})
 
 -- | A string of up to 128 characters. Allowed characters are a-z, A-Z, 0-9, '_' (underscore), '-' (dash), and '.' (dot).
 ddDatasetName :: Lens' DescribeDataset Text
-ddDatasetName = lens _ddDatasetName (\ s a -> s{_ddDatasetName = a});
+ddDatasetName = lens _ddDatasetName (\ s a -> s{_ddDatasetName = a})
 
 instance AWSRequest DescribeDataset where
         type Rs DescribeDataset = DescribeDatasetResponse
@@ -143,15 +143,15 @@
     -> DescribeDatasetResponse
 describeDatasetResponse pResponseStatus_ =
   DescribeDatasetResponse'
-  {_ddrsDataset = Nothing, _ddrsResponseStatus = pResponseStatus_}
+    {_ddrsDataset = Nothing, _ddrsResponseStatus = pResponseStatus_}
 
 
 -- | Meta data for a collection of data for an identity. An identity can have multiple datasets. A dataset can be general or associated with a particular entity in an application (like a saved game). Datasets are automatically created if they don't exist. Data is synced by dataset, and a dataset can hold up to 1MB of key-value pairs.
 ddrsDataset :: Lens' DescribeDatasetResponse (Maybe Dataset)
-ddrsDataset = lens _ddrsDataset (\ s a -> s{_ddrsDataset = a});
+ddrsDataset = lens _ddrsDataset (\ s a -> s{_ddrsDataset = a})
 
 -- | -- | The response status code.
 ddrsResponseStatus :: Lens' DescribeDatasetResponse Int
-ddrsResponseStatus = lens _ddrsResponseStatus (\ s a -> s{_ddrsResponseStatus = a});
+ddrsResponseStatus = lens _ddrsResponseStatus (\ s a -> s{_ddrsResponseStatus = a})
 
 instance NFData DescribeDatasetResponse where
diff --git a/gen/Network/AWS/CognitoSync/DescribeIdentityPoolUsage.hs b/gen/Network/AWS/CognitoSync/DescribeIdentityPoolUsage.hs
--- a/gen/Network/AWS/CognitoSync/DescribeIdentityPoolUsage.hs
+++ b/gen/Network/AWS/CognitoSync/DescribeIdentityPoolUsage.hs
@@ -12,7 +12,7 @@
 
 -- |
 -- Module      : Network.AWS.CognitoSync.DescribeIdentityPoolUsage
--- Copyright   : (c) 2013-2017 Brendan Hay
+-- Copyright   : (c) 2013-2018 Brendan Hay
 -- License     : Mozilla Public License, v. 2.0.
 -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com>
 -- Stability   : auto-generated
@@ -68,7 +68,7 @@
 
 -- | A name-spaced GUID (for example, us-east-1:23EC4050-6AEA-7089-A2DD-08002EXAMPLE) created by Amazon Cognito. GUID generation is unique within a region.
 dipuIdentityPoolId :: Lens' DescribeIdentityPoolUsage Text
-dipuIdentityPoolId = lens _dipuIdentityPoolId (\ s a -> s{_dipuIdentityPoolId = a});
+dipuIdentityPoolId = lens _dipuIdentityPoolId (\ s a -> s{_dipuIdentityPoolId = a})
 
 instance AWSRequest DescribeIdentityPoolUsage where
         type Rs DescribeIdentityPoolUsage =
@@ -120,16 +120,18 @@
     -> DescribeIdentityPoolUsageResponse
 describeIdentityPoolUsageResponse pResponseStatus_ =
   DescribeIdentityPoolUsageResponse'
-  {_dipursIdentityPoolUsage = Nothing, _dipursResponseStatus = pResponseStatus_}
+    { _dipursIdentityPoolUsage = Nothing
+    , _dipursResponseStatus = pResponseStatus_
+    }
 
 
 -- | Information about the usage of the identity pool.
 dipursIdentityPoolUsage :: Lens' DescribeIdentityPoolUsageResponse (Maybe IdentityPoolUsage)
-dipursIdentityPoolUsage = lens _dipursIdentityPoolUsage (\ s a -> s{_dipursIdentityPoolUsage = a});
+dipursIdentityPoolUsage = lens _dipursIdentityPoolUsage (\ s a -> s{_dipursIdentityPoolUsage = a})
 
 -- | -- | The response status code.
 dipursResponseStatus :: Lens' DescribeIdentityPoolUsageResponse Int
-dipursResponseStatus = lens _dipursResponseStatus (\ s a -> s{_dipursResponseStatus = a});
+dipursResponseStatus = lens _dipursResponseStatus (\ s a -> s{_dipursResponseStatus = a})
 
 instance NFData DescribeIdentityPoolUsageResponse
          where
diff --git a/gen/Network/AWS/CognitoSync/DescribeIdentityUsage.hs b/gen/Network/AWS/CognitoSync/DescribeIdentityUsage.hs
--- a/gen/Network/AWS/CognitoSync/DescribeIdentityUsage.hs
+++ b/gen/Network/AWS/CognitoSync/DescribeIdentityUsage.hs
@@ -12,7 +12,7 @@
 
 -- |
 -- Module      : Network.AWS.CognitoSync.DescribeIdentityUsage
--- Copyright   : (c) 2013-2017 Brendan Hay
+-- Copyright   : (c) 2013-2018 Brendan Hay
 -- License     : Mozilla Public License, v. 2.0.
 -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com>
 -- Stability   : auto-generated
@@ -69,16 +69,16 @@
     -> DescribeIdentityUsage
 describeIdentityUsage pIdentityPoolId_ pIdentityId_ =
   DescribeIdentityUsage'
-  {_diuIdentityPoolId = pIdentityPoolId_, _diuIdentityId = pIdentityId_}
+    {_diuIdentityPoolId = pIdentityPoolId_, _diuIdentityId = pIdentityId_}
 
 
 -- | A name-spaced GUID (for example, us-east-1:23EC4050-6AEA-7089-A2DD-08002EXAMPLE) created by Amazon Cognito. GUID generation is unique within a region.
 diuIdentityPoolId :: Lens' DescribeIdentityUsage Text
-diuIdentityPoolId = lens _diuIdentityPoolId (\ s a -> s{_diuIdentityPoolId = a});
+diuIdentityPoolId = lens _diuIdentityPoolId (\ s a -> s{_diuIdentityPoolId = a})
 
 -- | A name-spaced GUID (for example, us-east-1:23EC4050-6AEA-7089-A2DD-08002EXAMPLE) created by Amazon Cognito. GUID generation is unique within a region.
 diuIdentityId :: Lens' DescribeIdentityUsage Text
-diuIdentityId = lens _diuIdentityId (\ s a -> s{_diuIdentityId = a});
+diuIdentityId = lens _diuIdentityId (\ s a -> s{_diuIdentityId = a})
 
 instance AWSRequest DescribeIdentityUsage where
         type Rs DescribeIdentityUsage =
@@ -131,15 +131,15 @@
     -> DescribeIdentityUsageResponse
 describeIdentityUsageResponse pResponseStatus_ =
   DescribeIdentityUsageResponse'
-  {_diursIdentityUsage = Nothing, _diursResponseStatus = pResponseStatus_}
+    {_diursIdentityUsage = Nothing, _diursResponseStatus = pResponseStatus_}
 
 
 -- | Usage information for the identity.
 diursIdentityUsage :: Lens' DescribeIdentityUsageResponse (Maybe IdentityUsage)
-diursIdentityUsage = lens _diursIdentityUsage (\ s a -> s{_diursIdentityUsage = a});
+diursIdentityUsage = lens _diursIdentityUsage (\ s a -> s{_diursIdentityUsage = a})
 
 -- | -- | The response status code.
 diursResponseStatus :: Lens' DescribeIdentityUsageResponse Int
-diursResponseStatus = lens _diursResponseStatus (\ s a -> s{_diursResponseStatus = a});
+diursResponseStatus = lens _diursResponseStatus (\ s a -> s{_diursResponseStatus = a})
 
 instance NFData DescribeIdentityUsageResponse where
diff --git a/gen/Network/AWS/CognitoSync/GetBulkPublishDetails.hs b/gen/Network/AWS/CognitoSync/GetBulkPublishDetails.hs
--- a/gen/Network/AWS/CognitoSync/GetBulkPublishDetails.hs
+++ b/gen/Network/AWS/CognitoSync/GetBulkPublishDetails.hs
@@ -12,7 +12,7 @@
 
 -- |
 -- Module      : Network.AWS.CognitoSync.GetBulkPublishDetails
--- Copyright   : (c) 2013-2017 Brendan Hay
+-- Copyright   : (c) 2013-2018 Brendan Hay
 -- License     : Mozilla Public License, v. 2.0.
 -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com>
 -- Stability   : auto-generated
@@ -72,7 +72,7 @@
 
 -- | A name-spaced GUID (for example, us-east-1:23EC4050-6AEA-7089-A2DD-08002EXAMPLE) created by Amazon Cognito. GUID generation is unique within a region.
 gbpdIdentityPoolId :: Lens' GetBulkPublishDetails Text
-gbpdIdentityPoolId = lens _gbpdIdentityPoolId (\ s a -> s{_gbpdIdentityPoolId = a});
+gbpdIdentityPoolId = lens _gbpdIdentityPoolId (\ s a -> s{_gbpdIdentityPoolId = a})
 
 instance AWSRequest GetBulkPublishDetails where
         type Rs GetBulkPublishDetails =
@@ -145,37 +145,37 @@
     -> GetBulkPublishDetailsResponse
 getBulkPublishDetailsResponse pResponseStatus_ =
   GetBulkPublishDetailsResponse'
-  { _gbpdrsBulkPublishStartTime = Nothing
-  , _gbpdrsIdentityPoolId = Nothing
-  , _gbpdrsBulkPublishCompleteTime = Nothing
-  , _gbpdrsFailureMessage = Nothing
-  , _gbpdrsBulkPublishStatus = Nothing
-  , _gbpdrsResponseStatus = pResponseStatus_
-  }
+    { _gbpdrsBulkPublishStartTime = Nothing
+    , _gbpdrsIdentityPoolId = Nothing
+    , _gbpdrsBulkPublishCompleteTime = Nothing
+    , _gbpdrsFailureMessage = Nothing
+    , _gbpdrsBulkPublishStatus = Nothing
+    , _gbpdrsResponseStatus = pResponseStatus_
+    }
 
 
 -- | The date/time at which the last bulk publish was initiated.
 gbpdrsBulkPublishStartTime :: Lens' GetBulkPublishDetailsResponse (Maybe UTCTime)
-gbpdrsBulkPublishStartTime = lens _gbpdrsBulkPublishStartTime (\ s a -> s{_gbpdrsBulkPublishStartTime = a}) . mapping _Time;
+gbpdrsBulkPublishStartTime = lens _gbpdrsBulkPublishStartTime (\ s a -> s{_gbpdrsBulkPublishStartTime = a}) . mapping _Time
 
 -- | A name-spaced GUID (for example, us-east-1:23EC4050-6AEA-7089-A2DD-08002EXAMPLE) created by Amazon Cognito. GUID generation is unique within a region.
 gbpdrsIdentityPoolId :: Lens' GetBulkPublishDetailsResponse (Maybe Text)
-gbpdrsIdentityPoolId = lens _gbpdrsIdentityPoolId (\ s a -> s{_gbpdrsIdentityPoolId = a});
+gbpdrsIdentityPoolId = lens _gbpdrsIdentityPoolId (\ s a -> s{_gbpdrsIdentityPoolId = a})
 
 -- | If BulkPublishStatus is SUCCEEDED, the time the last bulk publish operation completed.
 gbpdrsBulkPublishCompleteTime :: Lens' GetBulkPublishDetailsResponse (Maybe UTCTime)
-gbpdrsBulkPublishCompleteTime = lens _gbpdrsBulkPublishCompleteTime (\ s a -> s{_gbpdrsBulkPublishCompleteTime = a}) . mapping _Time;
+gbpdrsBulkPublishCompleteTime = lens _gbpdrsBulkPublishCompleteTime (\ s a -> s{_gbpdrsBulkPublishCompleteTime = a}) . mapping _Time
 
 -- | If BulkPublishStatus is FAILED this field will contain the error message that caused the bulk publish to fail.
 gbpdrsFailureMessage :: Lens' GetBulkPublishDetailsResponse (Maybe Text)
-gbpdrsFailureMessage = lens _gbpdrsFailureMessage (\ s a -> s{_gbpdrsFailureMessage = a});
+gbpdrsFailureMessage = lens _gbpdrsFailureMessage (\ s a -> s{_gbpdrsFailureMessage = a})
 
 -- | Status of the last bulk publish operation, valid values are: NOT_STARTED - No bulk publish has been requested for this identity pool IN_PROGRESS - Data is being published to the configured stream SUCCEEDED - All data for the identity pool has been published to the configured stream FAILED - Some portion of the data has failed to publish, check FailureMessage for the cause.
 gbpdrsBulkPublishStatus :: Lens' GetBulkPublishDetailsResponse (Maybe BulkPublishStatus)
-gbpdrsBulkPublishStatus = lens _gbpdrsBulkPublishStatus (\ s a -> s{_gbpdrsBulkPublishStatus = a});
+gbpdrsBulkPublishStatus = lens _gbpdrsBulkPublishStatus (\ s a -> s{_gbpdrsBulkPublishStatus = a})
 
 -- | -- | The response status code.
 gbpdrsResponseStatus :: Lens' GetBulkPublishDetailsResponse Int
-gbpdrsResponseStatus = lens _gbpdrsResponseStatus (\ s a -> s{_gbpdrsResponseStatus = a});
+gbpdrsResponseStatus = lens _gbpdrsResponseStatus (\ s a -> s{_gbpdrsResponseStatus = a})
 
 instance NFData GetBulkPublishDetailsResponse where
diff --git a/gen/Network/AWS/CognitoSync/GetCognitoEvents.hs b/gen/Network/AWS/CognitoSync/GetCognitoEvents.hs
--- a/gen/Network/AWS/CognitoSync/GetCognitoEvents.hs
+++ b/gen/Network/AWS/CognitoSync/GetCognitoEvents.hs
@@ -12,7 +12,7 @@
 
 -- |
 -- Module      : Network.AWS.CognitoSync.GetCognitoEvents
--- Copyright   : (c) 2013-2017 Brendan Hay
+-- Copyright   : (c) 2013-2018 Brendan Hay
 -- License     : Mozilla Public License, v. 2.0.
 -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com>
 -- Stability   : auto-generated
@@ -70,7 +70,7 @@
 
 -- | The Cognito Identity Pool ID for the request
 gceIdentityPoolId :: Lens' GetCognitoEvents Text
-gceIdentityPoolId = lens _gceIdentityPoolId (\ s a -> s{_gceIdentityPoolId = a});
+gceIdentityPoolId = lens _gceIdentityPoolId (\ s a -> s{_gceIdentityPoolId = a})
 
 instance AWSRequest GetCognitoEvents where
         type Rs GetCognitoEvents = GetCognitoEventsResponse
@@ -124,15 +124,15 @@
     -> GetCognitoEventsResponse
 getCognitoEventsResponse pResponseStatus_ =
   GetCognitoEventsResponse'
-  {_gcersEvents = Nothing, _gcersResponseStatus = pResponseStatus_}
+    {_gcersEvents = Nothing, _gcersResponseStatus = pResponseStatus_}
 
 
 -- | The Cognito Events returned from the GetCognitoEvents request
 gcersEvents :: Lens' GetCognitoEventsResponse (HashMap Text Text)
-gcersEvents = lens _gcersEvents (\ s a -> s{_gcersEvents = a}) . _Default . _Map;
+gcersEvents = lens _gcersEvents (\ s a -> s{_gcersEvents = a}) . _Default . _Map
 
 -- | -- | The response status code.
 gcersResponseStatus :: Lens' GetCognitoEventsResponse Int
-gcersResponseStatus = lens _gcersResponseStatus (\ s a -> s{_gcersResponseStatus = a});
+gcersResponseStatus = lens _gcersResponseStatus (\ s a -> s{_gcersResponseStatus = a})
 
 instance NFData GetCognitoEventsResponse where
diff --git a/gen/Network/AWS/CognitoSync/GetIdentityPoolConfiguration.hs b/gen/Network/AWS/CognitoSync/GetIdentityPoolConfiguration.hs
--- a/gen/Network/AWS/CognitoSync/GetIdentityPoolConfiguration.hs
+++ b/gen/Network/AWS/CognitoSync/GetIdentityPoolConfiguration.hs
@@ -12,7 +12,7 @@
 
 -- |
 -- Module      : Network.AWS.CognitoSync.GetIdentityPoolConfiguration
--- Copyright   : (c) 2013-2017 Brendan Hay
+-- Copyright   : (c) 2013-2018 Brendan Hay
 -- License     : Mozilla Public License, v. 2.0.
 -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com>
 -- Stability   : auto-generated
@@ -72,7 +72,7 @@
 
 -- | A name-spaced GUID (for example, us-east-1:23EC4050-6AEA-7089-A2DD-08002EXAMPLE) created by Amazon Cognito. This is the ID of the pool for which to return a configuration.
 gipcIdentityPoolId :: Lens' GetIdentityPoolConfiguration Text
-gipcIdentityPoolId = lens _gipcIdentityPoolId (\ s a -> s{_gipcIdentityPoolId = a});
+gipcIdentityPoolId = lens _gipcIdentityPoolId (\ s a -> s{_gipcIdentityPoolId = a})
 
 instance AWSRequest GetIdentityPoolConfiguration
          where
@@ -136,28 +136,28 @@
     -> GetIdentityPoolConfigurationResponse
 getIdentityPoolConfigurationResponse pResponseStatus_ =
   GetIdentityPoolConfigurationResponse'
-  { _gipcrsIdentityPoolId = Nothing
-  , _gipcrsCognitoStreams = Nothing
-  , _gipcrsPushSync = Nothing
-  , _gipcrsResponseStatus = pResponseStatus_
-  }
+    { _gipcrsIdentityPoolId = Nothing
+    , _gipcrsCognitoStreams = Nothing
+    , _gipcrsPushSync = Nothing
+    , _gipcrsResponseStatus = pResponseStatus_
+    }
 
 
 -- | A name-spaced GUID (for example, us-east-1:23EC4050-6AEA-7089-A2DD-08002EXAMPLE) created by Amazon Cognito.
 gipcrsIdentityPoolId :: Lens' GetIdentityPoolConfigurationResponse (Maybe Text)
-gipcrsIdentityPoolId = lens _gipcrsIdentityPoolId (\ s a -> s{_gipcrsIdentityPoolId = a});
+gipcrsIdentityPoolId = lens _gipcrsIdentityPoolId (\ s a -> s{_gipcrsIdentityPoolId = a})
 
 -- | Options to apply to this identity pool for Amazon Cognito streams.
 gipcrsCognitoStreams :: Lens' GetIdentityPoolConfigurationResponse (Maybe CognitoStreams)
-gipcrsCognitoStreams = lens _gipcrsCognitoStreams (\ s a -> s{_gipcrsCognitoStreams = a});
+gipcrsCognitoStreams = lens _gipcrsCognitoStreams (\ s a -> s{_gipcrsCognitoStreams = a})
 
 -- | Options to apply to this identity pool for push synchronization.
 gipcrsPushSync :: Lens' GetIdentityPoolConfigurationResponse (Maybe PushSync)
-gipcrsPushSync = lens _gipcrsPushSync (\ s a -> s{_gipcrsPushSync = a});
+gipcrsPushSync = lens _gipcrsPushSync (\ s a -> s{_gipcrsPushSync = a})
 
 -- | -- | The response status code.
 gipcrsResponseStatus :: Lens' GetIdentityPoolConfigurationResponse Int
-gipcrsResponseStatus = lens _gipcrsResponseStatus (\ s a -> s{_gipcrsResponseStatus = a});
+gipcrsResponseStatus = lens _gipcrsResponseStatus (\ s a -> s{_gipcrsResponseStatus = a})
 
 instance NFData GetIdentityPoolConfigurationResponse
          where
diff --git a/gen/Network/AWS/CognitoSync/ListDatasets.hs b/gen/Network/AWS/CognitoSync/ListDatasets.hs
--- a/gen/Network/AWS/CognitoSync/ListDatasets.hs
+++ b/gen/Network/AWS/CognitoSync/ListDatasets.hs
@@ -12,7 +12,7 @@
 
 -- |
 -- Module      : Network.AWS.CognitoSync.ListDatasets
--- Copyright   : (c) 2013-2017 Brendan Hay
+-- Copyright   : (c) 2013-2018 Brendan Hay
 -- License     : Mozilla Public License, v. 2.0.
 -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com>
 -- Stability   : auto-generated
@@ -79,28 +79,28 @@
     -> ListDatasets
 listDatasets pIdentityId_ pIdentityPoolId_ =
   ListDatasets'
-  { _ldNextToken = Nothing
-  , _ldMaxResults = Nothing
-  , _ldIdentityId = pIdentityId_
-  , _ldIdentityPoolId = pIdentityPoolId_
-  }
+    { _ldNextToken = Nothing
+    , _ldMaxResults = Nothing
+    , _ldIdentityId = pIdentityId_
+    , _ldIdentityPoolId = pIdentityPoolId_
+    }
 
 
 -- | A pagination token for obtaining the next page of results.
 ldNextToken :: Lens' ListDatasets (Maybe Text)
-ldNextToken = lens _ldNextToken (\ s a -> s{_ldNextToken = a});
+ldNextToken = lens _ldNextToken (\ s a -> s{_ldNextToken = a})
 
 -- | The maximum number of results to be returned.
 ldMaxResults :: Lens' ListDatasets (Maybe Int)
-ldMaxResults = lens _ldMaxResults (\ s a -> s{_ldMaxResults = a});
+ldMaxResults = lens _ldMaxResults (\ s a -> s{_ldMaxResults = a})
 
 -- | A name-spaced GUID (for example, us-east-1:23EC4050-6AEA-7089-A2DD-08002EXAMPLE) created by Amazon Cognito. GUID generation is unique within a region.
 ldIdentityId :: Lens' ListDatasets Text
-ldIdentityId = lens _ldIdentityId (\ s a -> s{_ldIdentityId = a});
+ldIdentityId = lens _ldIdentityId (\ s a -> s{_ldIdentityId = a})
 
 -- | A name-spaced GUID (for example, us-east-1:23EC4050-6AEA-7089-A2DD-08002EXAMPLE) created by Amazon Cognito. GUID generation is unique within a region.
 ldIdentityPoolId :: Lens' ListDatasets Text
-ldIdentityPoolId = lens _ldIdentityPoolId (\ s a -> s{_ldIdentityPoolId = a});
+ldIdentityPoolId = lens _ldIdentityPoolId (\ s a -> s{_ldIdentityPoolId = a})
 
 instance AWSRequest ListDatasets where
         type Rs ListDatasets = ListDatasetsResponse
@@ -163,27 +163,27 @@
     -> ListDatasetsResponse
 listDatasetsResponse pResponseStatus_ =
   ListDatasetsResponse'
-  { _ldrsCount = Nothing
-  , _ldrsNextToken = Nothing
-  , _ldrsDatasets = Nothing
-  , _ldrsResponseStatus = pResponseStatus_
-  }
+    { _ldrsCount = Nothing
+    , _ldrsNextToken = Nothing
+    , _ldrsDatasets = Nothing
+    , _ldrsResponseStatus = pResponseStatus_
+    }
 
 
 -- | Number of datasets returned.
 ldrsCount :: Lens' ListDatasetsResponse (Maybe Int)
-ldrsCount = lens _ldrsCount (\ s a -> s{_ldrsCount = a});
+ldrsCount = lens _ldrsCount (\ s a -> s{_ldrsCount = a})
 
 -- | A pagination token for obtaining the next page of results.
 ldrsNextToken :: Lens' ListDatasetsResponse (Maybe Text)
-ldrsNextToken = lens _ldrsNextToken (\ s a -> s{_ldrsNextToken = a});
+ldrsNextToken = lens _ldrsNextToken (\ s a -> s{_ldrsNextToken = a})
 
 -- | A set of datasets.
 ldrsDatasets :: Lens' ListDatasetsResponse [Dataset]
-ldrsDatasets = lens _ldrsDatasets (\ s a -> s{_ldrsDatasets = a}) . _Default . _Coerce;
+ldrsDatasets = lens _ldrsDatasets (\ s a -> s{_ldrsDatasets = a}) . _Default . _Coerce
 
 -- | -- | The response status code.
 ldrsResponseStatus :: Lens' ListDatasetsResponse Int
-ldrsResponseStatus = lens _ldrsResponseStatus (\ s a -> s{_ldrsResponseStatus = a});
+ldrsResponseStatus = lens _ldrsResponseStatus (\ s a -> s{_ldrsResponseStatus = a})
 
 instance NFData ListDatasetsResponse where
diff --git a/gen/Network/AWS/CognitoSync/ListIdentityPoolUsage.hs b/gen/Network/AWS/CognitoSync/ListIdentityPoolUsage.hs
--- a/gen/Network/AWS/CognitoSync/ListIdentityPoolUsage.hs
+++ b/gen/Network/AWS/CognitoSync/ListIdentityPoolUsage.hs
@@ -12,7 +12,7 @@
 
 -- |
 -- Module      : Network.AWS.CognitoSync.ListIdentityPoolUsage
--- Copyright   : (c) 2013-2017 Brendan Hay
+-- Copyright   : (c) 2013-2018 Brendan Hay
 -- License     : Mozilla Public License, v. 2.0.
 -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com>
 -- Stability   : auto-generated
@@ -74,11 +74,11 @@
 
 -- | A pagination token for obtaining the next page of results.
 lipuNextToken :: Lens' ListIdentityPoolUsage (Maybe Text)
-lipuNextToken = lens _lipuNextToken (\ s a -> s{_lipuNextToken = a});
+lipuNextToken = lens _lipuNextToken (\ s a -> s{_lipuNextToken = a})
 
 -- | The maximum number of results to be returned.
 lipuMaxResults :: Lens' ListIdentityPoolUsage (Maybe Int)
-lipuMaxResults = lens _lipuMaxResults (\ s a -> s{_lipuMaxResults = a});
+lipuMaxResults = lens _lipuMaxResults (\ s a -> s{_lipuMaxResults = a})
 
 instance AWSRequest ListIdentityPoolUsage where
         type Rs ListIdentityPoolUsage =
@@ -144,32 +144,32 @@
     -> ListIdentityPoolUsageResponse
 listIdentityPoolUsageResponse pResponseStatus_ =
   ListIdentityPoolUsageResponse'
-  { _lipursIdentityPoolUsages = Nothing
-  , _lipursCount = Nothing
-  , _lipursNextToken = Nothing
-  , _lipursMaxResults = Nothing
-  , _lipursResponseStatus = pResponseStatus_
-  }
+    { _lipursIdentityPoolUsages = Nothing
+    , _lipursCount = Nothing
+    , _lipursNextToken = Nothing
+    , _lipursMaxResults = Nothing
+    , _lipursResponseStatus = pResponseStatus_
+    }
 
 
 -- | Usage information for the identity pools.
 lipursIdentityPoolUsages :: Lens' ListIdentityPoolUsageResponse [IdentityPoolUsage]
-lipursIdentityPoolUsages = lens _lipursIdentityPoolUsages (\ s a -> s{_lipursIdentityPoolUsages = a}) . _Default . _Coerce;
+lipursIdentityPoolUsages = lens _lipursIdentityPoolUsages (\ s a -> s{_lipursIdentityPoolUsages = a}) . _Default . _Coerce
 
 -- | Total number of identities for the identity pool.
 lipursCount :: Lens' ListIdentityPoolUsageResponse (Maybe Int)
-lipursCount = lens _lipursCount (\ s a -> s{_lipursCount = a});
+lipursCount = lens _lipursCount (\ s a -> s{_lipursCount = a})
 
 -- | A pagination token for obtaining the next page of results.
 lipursNextToken :: Lens' ListIdentityPoolUsageResponse (Maybe Text)
-lipursNextToken = lens _lipursNextToken (\ s a -> s{_lipursNextToken = a});
+lipursNextToken = lens _lipursNextToken (\ s a -> s{_lipursNextToken = a})
 
 -- | The maximum number of results to be returned.
 lipursMaxResults :: Lens' ListIdentityPoolUsageResponse (Maybe Int)
-lipursMaxResults = lens _lipursMaxResults (\ s a -> s{_lipursMaxResults = a});
+lipursMaxResults = lens _lipursMaxResults (\ s a -> s{_lipursMaxResults = a})
 
 -- | -- | The response status code.
 lipursResponseStatus :: Lens' ListIdentityPoolUsageResponse Int
-lipursResponseStatus = lens _lipursResponseStatus (\ s a -> s{_lipursResponseStatus = a});
+lipursResponseStatus = lens _lipursResponseStatus (\ s a -> s{_lipursResponseStatus = a})
 
 instance NFData ListIdentityPoolUsageResponse where
diff --git a/gen/Network/AWS/CognitoSync/ListRecords.hs b/gen/Network/AWS/CognitoSync/ListRecords.hs
--- a/gen/Network/AWS/CognitoSync/ListRecords.hs
+++ b/gen/Network/AWS/CognitoSync/ListRecords.hs
@@ -12,7 +12,7 @@
 
 -- |
 -- Module      : Network.AWS.CognitoSync.ListRecords
--- Copyright   : (c) 2013-2017 Brendan Hay
+-- Copyright   : (c) 2013-2018 Brendan Hay
 -- License     : Mozilla Public License, v. 2.0.
 -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com>
 -- Stability   : auto-generated
@@ -98,43 +98,43 @@
     -> ListRecords
 listRecords pIdentityPoolId_ pIdentityId_ pDatasetName_ =
   ListRecords'
-  { _lrLastSyncCount = Nothing
-  , _lrNextToken = Nothing
-  , _lrSyncSessionToken = Nothing
-  , _lrMaxResults = Nothing
-  , _lrIdentityPoolId = pIdentityPoolId_
-  , _lrIdentityId = pIdentityId_
-  , _lrDatasetName = pDatasetName_
-  }
+    { _lrLastSyncCount = Nothing
+    , _lrNextToken = Nothing
+    , _lrSyncSessionToken = Nothing
+    , _lrMaxResults = Nothing
+    , _lrIdentityPoolId = pIdentityPoolId_
+    , _lrIdentityId = pIdentityId_
+    , _lrDatasetName = pDatasetName_
+    }
 
 
 -- | The last server sync count for this record.
 lrLastSyncCount :: Lens' ListRecords (Maybe Integer)
-lrLastSyncCount = lens _lrLastSyncCount (\ s a -> s{_lrLastSyncCount = a});
+lrLastSyncCount = lens _lrLastSyncCount (\ s a -> s{_lrLastSyncCount = a})
 
 -- | A pagination token for obtaining the next page of results.
 lrNextToken :: Lens' ListRecords (Maybe Text)
-lrNextToken = lens _lrNextToken (\ s a -> s{_lrNextToken = a});
+lrNextToken = lens _lrNextToken (\ s a -> s{_lrNextToken = a})
 
 -- | A token containing a session ID, identity ID, and expiration.
 lrSyncSessionToken :: Lens' ListRecords (Maybe Text)
-lrSyncSessionToken = lens _lrSyncSessionToken (\ s a -> s{_lrSyncSessionToken = a});
+lrSyncSessionToken = lens _lrSyncSessionToken (\ s a -> s{_lrSyncSessionToken = a})
 
 -- | The maximum number of results to be returned.
 lrMaxResults :: Lens' ListRecords (Maybe Int)
-lrMaxResults = lens _lrMaxResults (\ s a -> s{_lrMaxResults = a});
+lrMaxResults = lens _lrMaxResults (\ s a -> s{_lrMaxResults = a})
 
 -- | A name-spaced GUID (for example, us-east-1:23EC4050-6AEA-7089-A2DD-08002EXAMPLE) created by Amazon Cognito. GUID generation is unique within a region.
 lrIdentityPoolId :: Lens' ListRecords Text
-lrIdentityPoolId = lens _lrIdentityPoolId (\ s a -> s{_lrIdentityPoolId = a});
+lrIdentityPoolId = lens _lrIdentityPoolId (\ s a -> s{_lrIdentityPoolId = a})
 
 -- | A name-spaced GUID (for example, us-east-1:23EC4050-6AEA-7089-A2DD-08002EXAMPLE) created by Amazon Cognito. GUID generation is unique within a region.
 lrIdentityId :: Lens' ListRecords Text
-lrIdentityId = lens _lrIdentityId (\ s a -> s{_lrIdentityId = a});
+lrIdentityId = lens _lrIdentityId (\ s a -> s{_lrIdentityId = a})
 
 -- | A string of up to 128 characters. Allowed characters are a-z, A-Z, 0-9, '_' (underscore), '-' (dash), and '.' (dot).
 lrDatasetName :: Lens' ListRecords Text
-lrDatasetName = lens _lrDatasetName (\ s a -> s{_lrDatasetName = a});
+lrDatasetName = lens _lrDatasetName (\ s a -> s{_lrDatasetName = a})
 
 instance AWSRequest ListRecords where
         type Rs ListRecords = ListRecordsResponse
@@ -225,57 +225,57 @@
     -> ListRecordsResponse
 listRecordsResponse pResponseStatus_ =
   ListRecordsResponse'
-  { _lrrsDatasetDeletedAfterRequestedSyncCount = Nothing
-  , _lrrsDatasetExists = Nothing
-  , _lrrsCount = Nothing
-  , _lrrsRecords = Nothing
-  , _lrrsNextToken = Nothing
-  , _lrrsMergedDatasetNames = Nothing
-  , _lrrsSyncSessionToken = Nothing
-  , _lrrsLastModifiedBy = Nothing
-  , _lrrsDatasetSyncCount = Nothing
-  , _lrrsResponseStatus = pResponseStatus_
-  }
+    { _lrrsDatasetDeletedAfterRequestedSyncCount = Nothing
+    , _lrrsDatasetExists = Nothing
+    , _lrrsCount = Nothing
+    , _lrrsRecords = Nothing
+    , _lrrsNextToken = Nothing
+    , _lrrsMergedDatasetNames = Nothing
+    , _lrrsSyncSessionToken = Nothing
+    , _lrrsLastModifiedBy = Nothing
+    , _lrrsDatasetSyncCount = Nothing
+    , _lrrsResponseStatus = pResponseStatus_
+    }
 
 
 -- | A boolean value specifying whether to delete the dataset locally.
 lrrsDatasetDeletedAfterRequestedSyncCount :: Lens' ListRecordsResponse (Maybe Bool)
-lrrsDatasetDeletedAfterRequestedSyncCount = lens _lrrsDatasetDeletedAfterRequestedSyncCount (\ s a -> s{_lrrsDatasetDeletedAfterRequestedSyncCount = a});
+lrrsDatasetDeletedAfterRequestedSyncCount = lens _lrrsDatasetDeletedAfterRequestedSyncCount (\ s a -> s{_lrrsDatasetDeletedAfterRequestedSyncCount = a})
 
 -- | Indicates whether the dataset exists.
 lrrsDatasetExists :: Lens' ListRecordsResponse (Maybe Bool)
-lrrsDatasetExists = lens _lrrsDatasetExists (\ s a -> s{_lrrsDatasetExists = a});
+lrrsDatasetExists = lens _lrrsDatasetExists (\ s a -> s{_lrrsDatasetExists = a})
 
 -- | Total number of records.
 lrrsCount :: Lens' ListRecordsResponse (Maybe Int)
-lrrsCount = lens _lrrsCount (\ s a -> s{_lrrsCount = a});
+lrrsCount = lens _lrrsCount (\ s a -> s{_lrrsCount = a})
 
 -- | A list of all records.
 lrrsRecords :: Lens' ListRecordsResponse [Record]
-lrrsRecords = lens _lrrsRecords (\ s a -> s{_lrrsRecords = a}) . _Default . _Coerce;
+lrrsRecords = lens _lrrsRecords (\ s a -> s{_lrrsRecords = a}) . _Default . _Coerce
 
 -- | A pagination token for obtaining the next page of results.
 lrrsNextToken :: Lens' ListRecordsResponse (Maybe Text)
-lrrsNextToken = lens _lrrsNextToken (\ s a -> s{_lrrsNextToken = a});
+lrrsNextToken = lens _lrrsNextToken (\ s a -> s{_lrrsNextToken = a})
 
 -- | Names of merged datasets.
 lrrsMergedDatasetNames :: Lens' ListRecordsResponse [Text]
-lrrsMergedDatasetNames = lens _lrrsMergedDatasetNames (\ s a -> s{_lrrsMergedDatasetNames = a}) . _Default . _Coerce;
+lrrsMergedDatasetNames = lens _lrrsMergedDatasetNames (\ s a -> s{_lrrsMergedDatasetNames = a}) . _Default . _Coerce
 
 -- | A token containing a session ID, identity ID, and expiration.
 lrrsSyncSessionToken :: Lens' ListRecordsResponse (Maybe Text)
-lrrsSyncSessionToken = lens _lrrsSyncSessionToken (\ s a -> s{_lrrsSyncSessionToken = a});
+lrrsSyncSessionToken = lens _lrrsSyncSessionToken (\ s a -> s{_lrrsSyncSessionToken = a})
 
 -- | The user/device that made the last change to this record.
 lrrsLastModifiedBy :: Lens' ListRecordsResponse (Maybe Text)
-lrrsLastModifiedBy = lens _lrrsLastModifiedBy (\ s a -> s{_lrrsLastModifiedBy = a});
+lrrsLastModifiedBy = lens _lrrsLastModifiedBy (\ s a -> s{_lrrsLastModifiedBy = a})
 
 -- | Server sync count for this dataset.
 lrrsDatasetSyncCount :: Lens' ListRecordsResponse (Maybe Integer)
-lrrsDatasetSyncCount = lens _lrrsDatasetSyncCount (\ s a -> s{_lrrsDatasetSyncCount = a});
+lrrsDatasetSyncCount = lens _lrrsDatasetSyncCount (\ s a -> s{_lrrsDatasetSyncCount = a})
 
 -- | -- | The response status code.
 lrrsResponseStatus :: Lens' ListRecordsResponse Int
-lrrsResponseStatus = lens _lrrsResponseStatus (\ s a -> s{_lrrsResponseStatus = a});
+lrrsResponseStatus = lens _lrrsResponseStatus (\ s a -> s{_lrrsResponseStatus = a})
 
 instance NFData ListRecordsResponse where
diff --git a/gen/Network/AWS/CognitoSync/RegisterDevice.hs b/gen/Network/AWS/CognitoSync/RegisterDevice.hs
--- a/gen/Network/AWS/CognitoSync/RegisterDevice.hs
+++ b/gen/Network/AWS/CognitoSync/RegisterDevice.hs
@@ -12,7 +12,7 @@
 
 -- |
 -- Module      : Network.AWS.CognitoSync.RegisterDevice
--- Copyright   : (c) 2013-2017 Brendan Hay
+-- Copyright   : (c) 2013-2018 Brendan Hay
 -- License     : Mozilla Public License, v. 2.0.
 -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com>
 -- Stability   : auto-generated
@@ -81,28 +81,28 @@
     -> RegisterDevice
 registerDevice pIdentityPoolId_ pIdentityId_ pPlatform_ pToken_ =
   RegisterDevice'
-  { _rdIdentityPoolId = pIdentityPoolId_
-  , _rdIdentityId = pIdentityId_
-  , _rdPlatform = pPlatform_
-  , _rdToken = pToken_
-  }
+    { _rdIdentityPoolId = pIdentityPoolId_
+    , _rdIdentityId = pIdentityId_
+    , _rdPlatform = pPlatform_
+    , _rdToken = pToken_
+    }
 
 
 -- | A name-spaced GUID (for example, us-east-1:23EC4050-6AEA-7089-A2DD-08002EXAMPLE) created by Amazon Cognito. Here, the ID of the pool that the identity belongs to.
 rdIdentityPoolId :: Lens' RegisterDevice Text
-rdIdentityPoolId = lens _rdIdentityPoolId (\ s a -> s{_rdIdentityPoolId = a});
+rdIdentityPoolId = lens _rdIdentityPoolId (\ s a -> s{_rdIdentityPoolId = a})
 
 -- | The unique ID for this identity.
 rdIdentityId :: Lens' RegisterDevice Text
-rdIdentityId = lens _rdIdentityId (\ s a -> s{_rdIdentityId = a});
+rdIdentityId = lens _rdIdentityId (\ s a -> s{_rdIdentityId = a})
 
 -- | The SNS platform type (e.g. GCM, SDM, APNS, APNS_SANDBOX).
 rdPlatform :: Lens' RegisterDevice Platform
-rdPlatform = lens _rdPlatform (\ s a -> s{_rdPlatform = a});
+rdPlatform = lens _rdPlatform (\ s a -> s{_rdPlatform = a})
 
 -- | The push token.
 rdToken :: Lens' RegisterDevice Text
-rdToken = lens _rdToken (\ s a -> s{_rdToken = a});
+rdToken = lens _rdToken (\ s a -> s{_rdToken = a})
 
 instance AWSRequest RegisterDevice where
         type Rs RegisterDevice = RegisterDeviceResponse
@@ -163,15 +163,15 @@
     -> RegisterDeviceResponse
 registerDeviceResponse pResponseStatus_ =
   RegisterDeviceResponse'
-  {_rdrsDeviceId = Nothing, _rdrsResponseStatus = pResponseStatus_}
+    {_rdrsDeviceId = Nothing, _rdrsResponseStatus = pResponseStatus_}
 
 
 -- | The unique ID generated for this device by Cognito.
 rdrsDeviceId :: Lens' RegisterDeviceResponse (Maybe Text)
-rdrsDeviceId = lens _rdrsDeviceId (\ s a -> s{_rdrsDeviceId = a});
+rdrsDeviceId = lens _rdrsDeviceId (\ s a -> s{_rdrsDeviceId = a})
 
 -- | -- | The response status code.
 rdrsResponseStatus :: Lens' RegisterDeviceResponse Int
-rdrsResponseStatus = lens _rdrsResponseStatus (\ s a -> s{_rdrsResponseStatus = a});
+rdrsResponseStatus = lens _rdrsResponseStatus (\ s a -> s{_rdrsResponseStatus = a})
 
 instance NFData RegisterDeviceResponse where
diff --git a/gen/Network/AWS/CognitoSync/SetCognitoEvents.hs b/gen/Network/AWS/CognitoSync/SetCognitoEvents.hs
--- a/gen/Network/AWS/CognitoSync/SetCognitoEvents.hs
+++ b/gen/Network/AWS/CognitoSync/SetCognitoEvents.hs
@@ -12,7 +12,7 @@
 
 -- |
 -- Module      : Network.AWS.CognitoSync.SetCognitoEvents
--- Copyright   : (c) 2013-2017 Brendan Hay
+-- Copyright   : (c) 2013-2018 Brendan Hay
 -- License     : Mozilla Public License, v. 2.0.
 -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com>
 -- Stability   : auto-generated
@@ -71,11 +71,11 @@
 
 -- | The Cognito Identity Pool to use when configuring Cognito Events
 sceIdentityPoolId :: Lens' SetCognitoEvents Text
-sceIdentityPoolId = lens _sceIdentityPoolId (\ s a -> s{_sceIdentityPoolId = a});
+sceIdentityPoolId = lens _sceIdentityPoolId (\ s a -> s{_sceIdentityPoolId = a})
 
 -- | The events to configure
 sceEvents :: Lens' SetCognitoEvents (HashMap Text Text)
-sceEvents = lens _sceEvents (\ s a -> s{_sceEvents = a}) . _Map;
+sceEvents = lens _sceEvents (\ s a -> s{_sceEvents = a}) . _Map
 
 instance AWSRequest SetCognitoEvents where
         type Rs SetCognitoEvents = SetCognitoEventsResponse
diff --git a/gen/Network/AWS/CognitoSync/SetIdentityPoolConfiguration.hs b/gen/Network/AWS/CognitoSync/SetIdentityPoolConfiguration.hs
--- a/gen/Network/AWS/CognitoSync/SetIdentityPoolConfiguration.hs
+++ b/gen/Network/AWS/CognitoSync/SetIdentityPoolConfiguration.hs
@@ -12,7 +12,7 @@
 
 -- |
 -- Module      : Network.AWS.CognitoSync.SetIdentityPoolConfiguration
--- Copyright   : (c) 2013-2017 Brendan Hay
+-- Copyright   : (c) 2013-2018 Brendan Hay
 -- License     : Mozilla Public License, v. 2.0.
 -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com>
 -- Stability   : auto-generated
@@ -76,23 +76,23 @@
     -> SetIdentityPoolConfiguration
 setIdentityPoolConfiguration pIdentityPoolId_ =
   SetIdentityPoolConfiguration'
-  { _sipcCognitoStreams = Nothing
-  , _sipcPushSync = Nothing
-  , _sipcIdentityPoolId = pIdentityPoolId_
-  }
+    { _sipcCognitoStreams = Nothing
+    , _sipcPushSync = Nothing
+    , _sipcIdentityPoolId = pIdentityPoolId_
+    }
 
 
 -- | Options to apply to this identity pool for Amazon Cognito streams.
 sipcCognitoStreams :: Lens' SetIdentityPoolConfiguration (Maybe CognitoStreams)
-sipcCognitoStreams = lens _sipcCognitoStreams (\ s a -> s{_sipcCognitoStreams = a});
+sipcCognitoStreams = lens _sipcCognitoStreams (\ s a -> s{_sipcCognitoStreams = a})
 
 -- | Options to apply to this identity pool for push synchronization.
 sipcPushSync :: Lens' SetIdentityPoolConfiguration (Maybe PushSync)
-sipcPushSync = lens _sipcPushSync (\ s a -> s{_sipcPushSync = a});
+sipcPushSync = lens _sipcPushSync (\ s a -> s{_sipcPushSync = a})
 
 -- | A name-spaced GUID (for example, us-east-1:23EC4050-6AEA-7089-A2DD-08002EXAMPLE) created by Amazon Cognito. This is the ID of the pool to modify.
 sipcIdentityPoolId :: Lens' SetIdentityPoolConfiguration Text
-sipcIdentityPoolId = lens _sipcIdentityPoolId (\ s a -> s{_sipcIdentityPoolId = a});
+sipcIdentityPoolId = lens _sipcIdentityPoolId (\ s a -> s{_sipcIdentityPoolId = a})
 
 instance AWSRequest SetIdentityPoolConfiguration
          where
@@ -163,28 +163,28 @@
     -> SetIdentityPoolConfigurationResponse
 setIdentityPoolConfigurationResponse pResponseStatus_ =
   SetIdentityPoolConfigurationResponse'
-  { _sipcrsIdentityPoolId = Nothing
-  , _sipcrsCognitoStreams = Nothing
-  , _sipcrsPushSync = Nothing
-  , _sipcrsResponseStatus = pResponseStatus_
-  }
+    { _sipcrsIdentityPoolId = Nothing
+    , _sipcrsCognitoStreams = Nothing
+    , _sipcrsPushSync = Nothing
+    , _sipcrsResponseStatus = pResponseStatus_
+    }
 
 
 -- | A name-spaced GUID (for example, us-east-1:23EC4050-6AEA-7089-A2DD-08002EXAMPLE) created by Amazon Cognito.
 sipcrsIdentityPoolId :: Lens' SetIdentityPoolConfigurationResponse (Maybe Text)
-sipcrsIdentityPoolId = lens _sipcrsIdentityPoolId (\ s a -> s{_sipcrsIdentityPoolId = a});
+sipcrsIdentityPoolId = lens _sipcrsIdentityPoolId (\ s a -> s{_sipcrsIdentityPoolId = a})
 
 -- | Options to apply to this identity pool for Amazon Cognito streams.
 sipcrsCognitoStreams :: Lens' SetIdentityPoolConfigurationResponse (Maybe CognitoStreams)
-sipcrsCognitoStreams = lens _sipcrsCognitoStreams (\ s a -> s{_sipcrsCognitoStreams = a});
+sipcrsCognitoStreams = lens _sipcrsCognitoStreams (\ s a -> s{_sipcrsCognitoStreams = a})
 
 -- | Options to apply to this identity pool for push synchronization.
 sipcrsPushSync :: Lens' SetIdentityPoolConfigurationResponse (Maybe PushSync)
-sipcrsPushSync = lens _sipcrsPushSync (\ s a -> s{_sipcrsPushSync = a});
+sipcrsPushSync = lens _sipcrsPushSync (\ s a -> s{_sipcrsPushSync = a})
 
 -- | -- | The response status code.
 sipcrsResponseStatus :: Lens' SetIdentityPoolConfigurationResponse Int
-sipcrsResponseStatus = lens _sipcrsResponseStatus (\ s a -> s{_sipcrsResponseStatus = a});
+sipcrsResponseStatus = lens _sipcrsResponseStatus (\ s a -> s{_sipcrsResponseStatus = a})
 
 instance NFData SetIdentityPoolConfigurationResponse
          where
diff --git a/gen/Network/AWS/CognitoSync/SubscribeToDataset.hs b/gen/Network/AWS/CognitoSync/SubscribeToDataset.hs
--- a/gen/Network/AWS/CognitoSync/SubscribeToDataset.hs
+++ b/gen/Network/AWS/CognitoSync/SubscribeToDataset.hs
@@ -12,7 +12,7 @@
 
 -- |
 -- Module      : Network.AWS.CognitoSync.SubscribeToDataset
--- Copyright   : (c) 2013-2017 Brendan Hay
+-- Copyright   : (c) 2013-2018 Brendan Hay
 -- License     : Mozilla Public License, v. 2.0.
 -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com>
 -- Stability   : auto-generated
@@ -80,28 +80,28 @@
     -> SubscribeToDataset
 subscribeToDataset pIdentityPoolId_ pIdentityId_ pDatasetName_ pDeviceId_ =
   SubscribeToDataset'
-  { _stdIdentityPoolId = pIdentityPoolId_
-  , _stdIdentityId = pIdentityId_
-  , _stdDatasetName = pDatasetName_
-  , _stdDeviceId = pDeviceId_
-  }
+    { _stdIdentityPoolId = pIdentityPoolId_
+    , _stdIdentityId = pIdentityId_
+    , _stdDatasetName = pDatasetName_
+    , _stdDeviceId = pDeviceId_
+    }
 
 
 -- | A name-spaced GUID (for example, us-east-1:23EC4050-6AEA-7089-A2DD-08002EXAMPLE) created by Amazon Cognito. The ID of the pool to which the identity belongs.
 stdIdentityPoolId :: Lens' SubscribeToDataset Text
-stdIdentityPoolId = lens _stdIdentityPoolId (\ s a -> s{_stdIdentityPoolId = a});
+stdIdentityPoolId = lens _stdIdentityPoolId (\ s a -> s{_stdIdentityPoolId = a})
 
 -- | Unique ID for this identity.
 stdIdentityId :: Lens' SubscribeToDataset Text
-stdIdentityId = lens _stdIdentityId (\ s a -> s{_stdIdentityId = a});
+stdIdentityId = lens _stdIdentityId (\ s a -> s{_stdIdentityId = a})
 
 -- | The name of the dataset to subcribe to.
 stdDatasetName :: Lens' SubscribeToDataset Text
-stdDatasetName = lens _stdDatasetName (\ s a -> s{_stdDatasetName = a});
+stdDatasetName = lens _stdDatasetName (\ s a -> s{_stdDatasetName = a})
 
 -- | The unique ID generated for this device by Cognito.
 stdDeviceId :: Lens' SubscribeToDataset Text
-stdDeviceId = lens _stdDeviceId (\ s a -> s{_stdDeviceId = a});
+stdDeviceId = lens _stdDeviceId (\ s a -> s{_stdDeviceId = a})
 
 instance AWSRequest SubscribeToDataset where
         type Rs SubscribeToDataset =
@@ -161,6 +161,6 @@
 
 -- | -- | The response status code.
 stdrsResponseStatus :: Lens' SubscribeToDatasetResponse Int
-stdrsResponseStatus = lens _stdrsResponseStatus (\ s a -> s{_stdrsResponseStatus = a});
+stdrsResponseStatus = lens _stdrsResponseStatus (\ s a -> s{_stdrsResponseStatus = a})
 
 instance NFData SubscribeToDatasetResponse where
diff --git a/gen/Network/AWS/CognitoSync/Types.hs b/gen/Network/AWS/CognitoSync/Types.hs
--- a/gen/Network/AWS/CognitoSync/Types.hs
+++ b/gen/Network/AWS/CognitoSync/Types.hs
@@ -4,7 +4,7 @@
 
 -- |
 -- Module      : Network.AWS.CognitoSync.Types
--- Copyright   : (c) 2013-2017 Brendan Hay
+-- Copyright   : (c) 2013-2018 Brendan Hay
 -- License     : Mozilla Public License, v. 2.0.
 -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com>
 -- Stability   : auto-generated
@@ -113,24 +113,24 @@
 cognitoSync :: Service
 cognitoSync =
   Service
-  { _svcAbbrev = "CognitoSync"
-  , _svcSigner = v4
-  , _svcPrefix = "cognito-sync"
-  , _svcVersion = "2014-06-30"
-  , _svcEndpoint = defaultEndpoint cognitoSync
-  , _svcTimeout = Just 70
-  , _svcCheck = statusSuccess
-  , _svcError = parseJSONError "CognitoSync"
-  , _svcRetry = retry
-  }
+    { _svcAbbrev = "CognitoSync"
+    , _svcSigner = v4
+    , _svcPrefix = "cognito-sync"
+    , _svcVersion = "2014-06-30"
+    , _svcEndpoint = defaultEndpoint cognitoSync
+    , _svcTimeout = Just 70
+    , _svcCheck = statusSuccess
+    , _svcError = parseJSONError "CognitoSync"
+    , _svcRetry = retry
+    }
   where
     retry =
       Exponential
-      { _retryBase = 5.0e-2
-      , _retryGrowth = 2
-      , _retryAttempts = 5
-      , _retryCheck = check
-      }
+        { _retryBase = 5.0e-2
+        , _retryGrowth = 2
+        , _retryAttempts = 5
+        , _retryCheck = check
+        }
     check e
       | has (hasCode "ThrottledException" . hasStatus 400) e =
         Just "throttled_exception"
@@ -139,6 +139,8 @@
         Just "throttling_exception"
       | has (hasCode "Throttling" . hasStatus 400) e = Just "throttling"
       | has (hasStatus 504) e = Just "gateway_timeout"
+      | has (hasCode "RequestThrottledException" . hasStatus 400) e =
+        Just "request_throttled_exception"
       | has (hasStatus 502) e = Just "bad_gateway"
       | has (hasStatus 503) e = Just "service_unavailable"
       | has (hasStatus 500) e = Just "general_server_error"
diff --git a/gen/Network/AWS/CognitoSync/Types/Product.hs b/gen/Network/AWS/CognitoSync/Types/Product.hs
--- a/gen/Network/AWS/CognitoSync/Types/Product.hs
+++ b/gen/Network/AWS/CognitoSync/Types/Product.hs
@@ -9,7 +9,7 @@
 
 -- |
 -- Module      : Network.AWS.CognitoSync.Types.Product
--- Copyright   : (c) 2013-2017 Brendan Hay
+-- Copyright   : (c) 2013-2018 Brendan Hay
 -- License     : Mozilla Public License, v. 2.0.
 -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com>
 -- Stability   : auto-generated
@@ -44,20 +44,23 @@
     :: CognitoStreams
 cognitoStreams =
   CognitoStreams'
-  {_csStreamingStatus = Nothing, _csStreamName = Nothing, _csRoleARN = Nothing}
+    { _csStreamingStatus = Nothing
+    , _csStreamName = Nothing
+    , _csRoleARN = Nothing
+    }
 
 
 -- | Status of the Cognito streams. Valid values are: ENABLED - Streaming of updates to identity pool is enabled. DISABLED - Streaming of updates to identity pool is disabled. Bulk publish will also fail if StreamingStatus is DISABLED.
 csStreamingStatus :: Lens' CognitoStreams (Maybe StreamingStatus)
-csStreamingStatus = lens _csStreamingStatus (\ s a -> s{_csStreamingStatus = a});
+csStreamingStatus = lens _csStreamingStatus (\ s a -> s{_csStreamingStatus = a})
 
 -- | The name of the Cognito stream to receive updates. This stream must be in the developers account and in the same region as the identity pool.
 csStreamName :: Lens' CognitoStreams (Maybe Text)
-csStreamName = lens _csStreamName (\ s a -> s{_csStreamName = a});
+csStreamName = lens _csStreamName (\ s a -> s{_csStreamName = a})
 
 -- | The ARN of the role Amazon Cognito can assume in order to publish to the stream. This role must grant access to Amazon Cognito (cognito-sync) to invoke PutRecord on your Cognito stream.
 csRoleARN :: Lens' CognitoStreams (Maybe Text)
-csRoleARN = lens _csRoleARN (\ s a -> s{_csRoleARN = a});
+csRoleARN = lens _csRoleARN (\ s a -> s{_csRoleARN = a})
 
 instance FromJSON CognitoStreams where
         parseJSON
@@ -114,43 +117,43 @@
     :: Dataset
 dataset =
   Dataset'
-  { _dLastModifiedDate = Nothing
-  , _dNumRecords = Nothing
-  , _dDataStorage = Nothing
-  , _dDatasetName = Nothing
-  , _dCreationDate = Nothing
-  , _dLastModifiedBy = Nothing
-  , _dIdentityId = Nothing
-  }
+    { _dLastModifiedDate = Nothing
+    , _dNumRecords = Nothing
+    , _dDataStorage = Nothing
+    , _dDatasetName = Nothing
+    , _dCreationDate = Nothing
+    , _dLastModifiedBy = Nothing
+    , _dIdentityId = Nothing
+    }
 
 
 -- | Date when the dataset was last modified.
 dLastModifiedDate :: Lens' Dataset (Maybe UTCTime)
-dLastModifiedDate = lens _dLastModifiedDate (\ s a -> s{_dLastModifiedDate = a}) . mapping _Time;
+dLastModifiedDate = lens _dLastModifiedDate (\ s a -> s{_dLastModifiedDate = a}) . mapping _Time
 
 -- | Number of records in this dataset.
 dNumRecords :: Lens' Dataset (Maybe Integer)
-dNumRecords = lens _dNumRecords (\ s a -> s{_dNumRecords = a});
+dNumRecords = lens _dNumRecords (\ s a -> s{_dNumRecords = a})
 
 -- | Total size in bytes of the records in this dataset.
 dDataStorage :: Lens' Dataset (Maybe Integer)
-dDataStorage = lens _dDataStorage (\ s a -> s{_dDataStorage = a});
+dDataStorage = lens _dDataStorage (\ s a -> s{_dDataStorage = a})
 
 -- | A string of up to 128 characters. Allowed characters are a-z, A-Z, 0-9, '_' (underscore), '-' (dash), and '.' (dot).
 dDatasetName :: Lens' Dataset (Maybe Text)
-dDatasetName = lens _dDatasetName (\ s a -> s{_dDatasetName = a});
+dDatasetName = lens _dDatasetName (\ s a -> s{_dDatasetName = a})
 
 -- | Date on which the dataset was created.
 dCreationDate :: Lens' Dataset (Maybe UTCTime)
-dCreationDate = lens _dCreationDate (\ s a -> s{_dCreationDate = a}) . mapping _Time;
+dCreationDate = lens _dCreationDate (\ s a -> s{_dCreationDate = a}) . mapping _Time
 
 -- | The device that made the last change to this dataset.
 dLastModifiedBy :: Lens' Dataset (Maybe Text)
-dLastModifiedBy = lens _dLastModifiedBy (\ s a -> s{_dLastModifiedBy = a});
+dLastModifiedBy = lens _dLastModifiedBy (\ s a -> s{_dLastModifiedBy = a})
 
 -- | A name-spaced GUID (for example, us-east-1:23EC4050-6AEA-7089-A2DD-08002EXAMPLE) created by Amazon Cognito. GUID generation is unique within a region.
 dIdentityId :: Lens' Dataset (Maybe Text)
-dIdentityId = lens _dIdentityId (\ s a -> s{_dIdentityId = a});
+dIdentityId = lens _dIdentityId (\ s a -> s{_dIdentityId = a})
 
 instance FromJSON Dataset where
         parseJSON
@@ -194,28 +197,28 @@
     :: IdentityPoolUsage
 identityPoolUsage =
   IdentityPoolUsage'
-  { _ipuLastModifiedDate = Nothing
-  , _ipuIdentityPoolId = Nothing
-  , _ipuDataStorage = Nothing
-  , _ipuSyncSessionsCount = Nothing
-  }
+    { _ipuLastModifiedDate = Nothing
+    , _ipuIdentityPoolId = Nothing
+    , _ipuDataStorage = Nothing
+    , _ipuSyncSessionsCount = Nothing
+    }
 
 
 -- | Date on which the identity pool was last modified.
 ipuLastModifiedDate :: Lens' IdentityPoolUsage (Maybe UTCTime)
-ipuLastModifiedDate = lens _ipuLastModifiedDate (\ s a -> s{_ipuLastModifiedDate = a}) . mapping _Time;
+ipuLastModifiedDate = lens _ipuLastModifiedDate (\ s a -> s{_ipuLastModifiedDate = a}) . mapping _Time
 
 -- | A name-spaced GUID (for example, us-east-1:23EC4050-6AEA-7089-A2DD-08002EXAMPLE) created by Amazon Cognito. GUID generation is unique within a region.
 ipuIdentityPoolId :: Lens' IdentityPoolUsage (Maybe Text)
-ipuIdentityPoolId = lens _ipuIdentityPoolId (\ s a -> s{_ipuIdentityPoolId = a});
+ipuIdentityPoolId = lens _ipuIdentityPoolId (\ s a -> s{_ipuIdentityPoolId = a})
 
 -- | Data storage information for the identity pool.
 ipuDataStorage :: Lens' IdentityPoolUsage (Maybe Integer)
-ipuDataStorage = lens _ipuDataStorage (\ s a -> s{_ipuDataStorage = a});
+ipuDataStorage = lens _ipuDataStorage (\ s a -> s{_ipuDataStorage = a})
 
 -- | Number of sync sessions for the identity pool.
 ipuSyncSessionsCount :: Lens' IdentityPoolUsage (Maybe Integer)
-ipuSyncSessionsCount = lens _ipuSyncSessionsCount (\ s a -> s{_ipuSyncSessionsCount = a});
+ipuSyncSessionsCount = lens _ipuSyncSessionsCount (\ s a -> s{_ipuSyncSessionsCount = a})
 
 instance FromJSON IdentityPoolUsage where
         parseJSON
@@ -260,33 +263,33 @@
     :: IdentityUsage
 identityUsage =
   IdentityUsage'
-  { _iuLastModifiedDate = Nothing
-  , _iuIdentityPoolId = Nothing
-  , _iuDatasetCount = Nothing
-  , _iuDataStorage = Nothing
-  , _iuIdentityId = Nothing
-  }
+    { _iuLastModifiedDate = Nothing
+    , _iuIdentityPoolId = Nothing
+    , _iuDatasetCount = Nothing
+    , _iuDataStorage = Nothing
+    , _iuIdentityId = Nothing
+    }
 
 
 -- | Date on which the identity was last modified.
 iuLastModifiedDate :: Lens' IdentityUsage (Maybe UTCTime)
-iuLastModifiedDate = lens _iuLastModifiedDate (\ s a -> s{_iuLastModifiedDate = a}) . mapping _Time;
+iuLastModifiedDate = lens _iuLastModifiedDate (\ s a -> s{_iuLastModifiedDate = a}) . mapping _Time
 
 -- | A name-spaced GUID (for example, us-east-1:23EC4050-6AEA-7089-A2DD-08002EXAMPLE) created by Amazon Cognito. GUID generation is unique within a region.
 iuIdentityPoolId :: Lens' IdentityUsage (Maybe Text)
-iuIdentityPoolId = lens _iuIdentityPoolId (\ s a -> s{_iuIdentityPoolId = a});
+iuIdentityPoolId = lens _iuIdentityPoolId (\ s a -> s{_iuIdentityPoolId = a})
 
 -- | Number of datasets for the identity.
 iuDatasetCount :: Lens' IdentityUsage (Maybe Int)
-iuDatasetCount = lens _iuDatasetCount (\ s a -> s{_iuDatasetCount = a});
+iuDatasetCount = lens _iuDatasetCount (\ s a -> s{_iuDatasetCount = a})
 
 -- | Total data storage for this identity.
 iuDataStorage :: Lens' IdentityUsage (Maybe Integer)
-iuDataStorage = lens _iuDataStorage (\ s a -> s{_iuDataStorage = a});
+iuDataStorage = lens _iuDataStorage (\ s a -> s{_iuDataStorage = a})
 
 -- | A name-spaced GUID (for example, us-east-1:23EC4050-6AEA-7089-A2DD-08002EXAMPLE) created by Amazon Cognito. GUID generation is unique within a region.
 iuIdentityId :: Lens' IdentityUsage (Maybe Text)
-iuIdentityId = lens _iuIdentityId (\ s a -> s{_iuIdentityId = a});
+iuIdentityId = lens _iuIdentityId (\ s a -> s{_iuIdentityId = a})
 
 instance FromJSON IdentityUsage where
         parseJSON
@@ -328,11 +331,11 @@
 
 -- | List of SNS platform application ARNs that could be used by clients.
 psApplicationARNs :: Lens' PushSync [Text]
-psApplicationARNs = lens _psApplicationARNs (\ s a -> s{_psApplicationARNs = a}) . _Default . _Coerce;
+psApplicationARNs = lens _psApplicationARNs (\ s a -> s{_psApplicationARNs = a}) . _Default . _Coerce
 
 -- | A role configured to allow Cognito to call SNS on behalf of the developer.
 psRoleARN :: Lens' PushSync (Maybe Text)
-psRoleARN = lens _psRoleARN (\ s a -> s{_psRoleARN = a});
+psRoleARN = lens _psRoleARN (\ s a -> s{_psRoleARN = a})
 
 instance FromJSON PushSync where
         parseJSON
@@ -385,38 +388,38 @@
     :: Record
 record =
   Record'
-  { _rSyncCount = Nothing
-  , _rDeviceLastModifiedDate = Nothing
-  , _rLastModifiedDate = Nothing
-  , _rValue = Nothing
-  , _rKey = Nothing
-  , _rLastModifiedBy = Nothing
-  }
+    { _rSyncCount = Nothing
+    , _rDeviceLastModifiedDate = Nothing
+    , _rLastModifiedDate = Nothing
+    , _rValue = Nothing
+    , _rKey = Nothing
+    , _rLastModifiedBy = Nothing
+    }
 
 
 -- | The server sync count for this record.
 rSyncCount :: Lens' Record (Maybe Integer)
-rSyncCount = lens _rSyncCount (\ s a -> s{_rSyncCount = a});
+rSyncCount = lens _rSyncCount (\ s a -> s{_rSyncCount = a})
 
 -- | The last modified date of the client device.
 rDeviceLastModifiedDate :: Lens' Record (Maybe UTCTime)
-rDeviceLastModifiedDate = lens _rDeviceLastModifiedDate (\ s a -> s{_rDeviceLastModifiedDate = a}) . mapping _Time;
+rDeviceLastModifiedDate = lens _rDeviceLastModifiedDate (\ s a -> s{_rDeviceLastModifiedDate = a}) . mapping _Time
 
 -- | The date on which the record was last modified.
 rLastModifiedDate :: Lens' Record (Maybe UTCTime)
-rLastModifiedDate = lens _rLastModifiedDate (\ s a -> s{_rLastModifiedDate = a}) . mapping _Time;
+rLastModifiedDate = lens _rLastModifiedDate (\ s a -> s{_rLastModifiedDate = a}) . mapping _Time
 
 -- | The value for the record.
 rValue :: Lens' Record (Maybe Text)
-rValue = lens _rValue (\ s a -> s{_rValue = a});
+rValue = lens _rValue (\ s a -> s{_rValue = a})
 
 -- | The key for the record.
 rKey :: Lens' Record (Maybe Text)
-rKey = lens _rKey (\ s a -> s{_rKey = a});
+rKey = lens _rKey (\ s a -> s{_rKey = a})
 
 -- | The user/device that made the last change to this record.
 rLastModifiedBy :: Lens' Record (Maybe Text)
-rLastModifiedBy = lens _rLastModifiedBy (\ s a -> s{_rLastModifiedBy = a});
+rLastModifiedBy = lens _rLastModifiedBy (\ s a -> s{_rLastModifiedBy = a})
 
 instance FromJSON Record where
         parseJSON
@@ -466,33 +469,33 @@
     -> RecordPatch
 recordPatch pOp_ pKey_ pSyncCount_ =
   RecordPatch'
-  { _rpDeviceLastModifiedDate = Nothing
-  , _rpValue = Nothing
-  , _rpOp = pOp_
-  , _rpKey = pKey_
-  , _rpSyncCount = pSyncCount_
-  }
+    { _rpDeviceLastModifiedDate = Nothing
+    , _rpValue = Nothing
+    , _rpOp = pOp_
+    , _rpKey = pKey_
+    , _rpSyncCount = pSyncCount_
+    }
 
 
 -- | The last modified date of the client device.
 rpDeviceLastModifiedDate :: Lens' RecordPatch (Maybe UTCTime)
-rpDeviceLastModifiedDate = lens _rpDeviceLastModifiedDate (\ s a -> s{_rpDeviceLastModifiedDate = a}) . mapping _Time;
+rpDeviceLastModifiedDate = lens _rpDeviceLastModifiedDate (\ s a -> s{_rpDeviceLastModifiedDate = a}) . mapping _Time
 
 -- | The value associated with the record patch.
 rpValue :: Lens' RecordPatch (Maybe Text)
-rpValue = lens _rpValue (\ s a -> s{_rpValue = a});
+rpValue = lens _rpValue (\ s a -> s{_rpValue = a})
 
 -- | An operation, either replace or remove.
 rpOp :: Lens' RecordPatch Operation
-rpOp = lens _rpOp (\ s a -> s{_rpOp = a});
+rpOp = lens _rpOp (\ s a -> s{_rpOp = a})
 
 -- | The key associated with the record patch.
 rpKey :: Lens' RecordPatch Text
-rpKey = lens _rpKey (\ s a -> s{_rpKey = a});
+rpKey = lens _rpKey (\ s a -> s{_rpKey = a})
 
 -- | Last known server sync count for this record. Set to 0 if unknown.
 rpSyncCount :: Lens' RecordPatch Integer
-rpSyncCount = lens _rpSyncCount (\ s a -> s{_rpSyncCount = a});
+rpSyncCount = lens _rpSyncCount (\ s a -> s{_rpSyncCount = a})
 
 instance Hashable RecordPatch where
 
diff --git a/gen/Network/AWS/CognitoSync/Types/Sum.hs b/gen/Network/AWS/CognitoSync/Types/Sum.hs
--- a/gen/Network/AWS/CognitoSync/Types/Sum.hs
+++ b/gen/Network/AWS/CognitoSync/Types/Sum.hs
@@ -9,7 +9,7 @@
 
 -- |
 -- Module      : Network.AWS.CognitoSync.Types.Sum
--- Copyright   : (c) 2013-2017 Brendan Hay
+-- Copyright   : (c) 2013-2018 Brendan Hay
 -- License     : Mozilla Public License, v. 2.0.
 -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com>
 -- Stability   : auto-generated
diff --git a/gen/Network/AWS/CognitoSync/UnsubscribeFromDataset.hs b/gen/Network/AWS/CognitoSync/UnsubscribeFromDataset.hs
--- a/gen/Network/AWS/CognitoSync/UnsubscribeFromDataset.hs
+++ b/gen/Network/AWS/CognitoSync/UnsubscribeFromDataset.hs
@@ -12,7 +12,7 @@
 
 -- |
 -- Module      : Network.AWS.CognitoSync.UnsubscribeFromDataset
--- Copyright   : (c) 2013-2017 Brendan Hay
+-- Copyright   : (c) 2013-2018 Brendan Hay
 -- License     : Mozilla Public License, v. 2.0.
 -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com>
 -- Stability   : auto-generated
@@ -80,28 +80,28 @@
     -> UnsubscribeFromDataset
 unsubscribeFromDataset pIdentityPoolId_ pIdentityId_ pDatasetName_ pDeviceId_ =
   UnsubscribeFromDataset'
-  { _ufdIdentityPoolId = pIdentityPoolId_
-  , _ufdIdentityId = pIdentityId_
-  , _ufdDatasetName = pDatasetName_
-  , _ufdDeviceId = pDeviceId_
-  }
+    { _ufdIdentityPoolId = pIdentityPoolId_
+    , _ufdIdentityId = pIdentityId_
+    , _ufdDatasetName = pDatasetName_
+    , _ufdDeviceId = pDeviceId_
+    }
 
 
 -- | A name-spaced GUID (for example, us-east-1:23EC4050-6AEA-7089-A2DD-08002EXAMPLE) created by Amazon Cognito. The ID of the pool to which this identity belongs.
 ufdIdentityPoolId :: Lens' UnsubscribeFromDataset Text
-ufdIdentityPoolId = lens _ufdIdentityPoolId (\ s a -> s{_ufdIdentityPoolId = a});
+ufdIdentityPoolId = lens _ufdIdentityPoolId (\ s a -> s{_ufdIdentityPoolId = a})
 
 -- | Unique ID for this identity.
 ufdIdentityId :: Lens' UnsubscribeFromDataset Text
-ufdIdentityId = lens _ufdIdentityId (\ s a -> s{_ufdIdentityId = a});
+ufdIdentityId = lens _ufdIdentityId (\ s a -> s{_ufdIdentityId = a})
 
 -- | The name of the dataset from which to unsubcribe.
 ufdDatasetName :: Lens' UnsubscribeFromDataset Text
-ufdDatasetName = lens _ufdDatasetName (\ s a -> s{_ufdDatasetName = a});
+ufdDatasetName = lens _ufdDatasetName (\ s a -> s{_ufdDatasetName = a})
 
 -- | The unique ID generated for this device by Cognito.
 ufdDeviceId :: Lens' UnsubscribeFromDataset Text
-ufdDeviceId = lens _ufdDeviceId (\ s a -> s{_ufdDeviceId = a});
+ufdDeviceId = lens _ufdDeviceId (\ s a -> s{_ufdDeviceId = a})
 
 instance AWSRequest UnsubscribeFromDataset where
         type Rs UnsubscribeFromDataset =
@@ -159,6 +159,6 @@
 
 -- | -- | The response status code.
 ufdrsResponseStatus :: Lens' UnsubscribeFromDatasetResponse Int
-ufdrsResponseStatus = lens _ufdrsResponseStatus (\ s a -> s{_ufdrsResponseStatus = a});
+ufdrsResponseStatus = lens _ufdrsResponseStatus (\ s a -> s{_ufdrsResponseStatus = a})
 
 instance NFData UnsubscribeFromDatasetResponse where
diff --git a/gen/Network/AWS/CognitoSync/UpdateRecords.hs b/gen/Network/AWS/CognitoSync/UpdateRecords.hs
--- a/gen/Network/AWS/CognitoSync/UpdateRecords.hs
+++ b/gen/Network/AWS/CognitoSync/UpdateRecords.hs
@@ -12,7 +12,7 @@
 
 -- |
 -- Module      : Network.AWS.CognitoSync.UpdateRecords
--- Copyright   : (c) 2013-2017 Brendan Hay
+-- Copyright   : (c) 2013-2018 Brendan Hay
 -- License     : Mozilla Public License, v. 2.0.
 -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com>
 -- Stability   : auto-generated
@@ -95,43 +95,43 @@
     -> UpdateRecords
 updateRecords pIdentityPoolId_ pIdentityId_ pDatasetName_ pSyncSessionToken_ =
   UpdateRecords'
-  { _urRecordPatches = Nothing
-  , _urDeviceId = Nothing
-  , _urClientContext = Nothing
-  , _urIdentityPoolId = pIdentityPoolId_
-  , _urIdentityId = pIdentityId_
-  , _urDatasetName = pDatasetName_
-  , _urSyncSessionToken = pSyncSessionToken_
-  }
+    { _urRecordPatches = Nothing
+    , _urDeviceId = Nothing
+    , _urClientContext = Nothing
+    , _urIdentityPoolId = pIdentityPoolId_
+    , _urIdentityId = pIdentityId_
+    , _urDatasetName = pDatasetName_
+    , _urSyncSessionToken = pSyncSessionToken_
+    }
 
 
 -- | A list of patch operations.
 urRecordPatches :: Lens' UpdateRecords [RecordPatch]
-urRecordPatches = lens _urRecordPatches (\ s a -> s{_urRecordPatches = a}) . _Default . _Coerce;
+urRecordPatches = lens _urRecordPatches (\ s a -> s{_urRecordPatches = a}) . _Default . _Coerce
 
 -- | The unique ID generated for this device by Cognito.
 urDeviceId :: Lens' UpdateRecords (Maybe Text)
-urDeviceId = lens _urDeviceId (\ s a -> s{_urDeviceId = a});
+urDeviceId = lens _urDeviceId (\ s a -> s{_urDeviceId = a})
 
 -- | Intended to supply a device ID that will populate the lastModifiedBy field referenced in other methods. The ClientContext field is not yet implemented.
 urClientContext :: Lens' UpdateRecords (Maybe Text)
-urClientContext = lens _urClientContext (\ s a -> s{_urClientContext = a});
+urClientContext = lens _urClientContext (\ s a -> s{_urClientContext = a})
 
 -- | A name-spaced GUID (for example, us-east-1:23EC4050-6AEA-7089-A2DD-08002EXAMPLE) created by Amazon Cognito. GUID generation is unique within a region.
 urIdentityPoolId :: Lens' UpdateRecords Text
-urIdentityPoolId = lens _urIdentityPoolId (\ s a -> s{_urIdentityPoolId = a});
+urIdentityPoolId = lens _urIdentityPoolId (\ s a -> s{_urIdentityPoolId = a})
 
 -- | A name-spaced GUID (for example, us-east-1:23EC4050-6AEA-7089-A2DD-08002EXAMPLE) created by Amazon Cognito. GUID generation is unique within a region.
 urIdentityId :: Lens' UpdateRecords Text
-urIdentityId = lens _urIdentityId (\ s a -> s{_urIdentityId = a});
+urIdentityId = lens _urIdentityId (\ s a -> s{_urIdentityId = a})
 
 -- | A string of up to 128 characters. Allowed characters are a-z, A-Z, 0-9, '_' (underscore), '-' (dash), and '.' (dot).
 urDatasetName :: Lens' UpdateRecords Text
-urDatasetName = lens _urDatasetName (\ s a -> s{_urDatasetName = a});
+urDatasetName = lens _urDatasetName (\ s a -> s{_urDatasetName = a})
 
 -- | The SyncSessionToken returned by a previous call to ListRecords for this dataset and identity.
 urSyncSessionToken :: Lens' UpdateRecords Text
-urSyncSessionToken = lens _urSyncSessionToken (\ s a -> s{_urSyncSessionToken = a});
+urSyncSessionToken = lens _urSyncSessionToken (\ s a -> s{_urSyncSessionToken = a})
 
 instance AWSRequest UpdateRecords where
         type Rs UpdateRecords = UpdateRecordsResponse
@@ -192,15 +192,15 @@
     -> UpdateRecordsResponse
 updateRecordsResponse pResponseStatus_ =
   UpdateRecordsResponse'
-  {_urrsRecords = Nothing, _urrsResponseStatus = pResponseStatus_}
+    {_urrsRecords = Nothing, _urrsResponseStatus = pResponseStatus_}
 
 
 -- | A list of records that have been updated.
 urrsRecords :: Lens' UpdateRecordsResponse [Record]
-urrsRecords = lens _urrsRecords (\ s a -> s{_urrsRecords = a}) . _Default . _Coerce;
+urrsRecords = lens _urrsRecords (\ s a -> s{_urrsRecords = a}) . _Default . _Coerce
 
 -- | -- | The response status code.
 urrsResponseStatus :: Lens' UpdateRecordsResponse Int
-urrsResponseStatus = lens _urrsResponseStatus (\ s a -> s{_urrsResponseStatus = a});
+urrsResponseStatus = lens _urrsResponseStatus (\ s a -> s{_urrsResponseStatus = a})
 
 instance NFData UpdateRecordsResponse where
diff --git a/gen/Network/AWS/CognitoSync/Waiters.hs b/gen/Network/AWS/CognitoSync/Waiters.hs
--- a/gen/Network/AWS/CognitoSync/Waiters.hs
+++ b/gen/Network/AWS/CognitoSync/Waiters.hs
@@ -7,7 +7,7 @@
 
 -- |
 -- Module      : Network.AWS.CognitoSync.Waiters
--- Copyright   : (c) 2013-2017 Brendan Hay
+-- Copyright   : (c) 2013-2018 Brendan Hay
 -- License     : Mozilla Public License, v. 2.0.
 -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com>
 -- Stability   : auto-generated
diff --git a/test/Main.hs b/test/Main.hs
--- a/test/Main.hs
+++ b/test/Main.hs
@@ -2,7 +2,7 @@
 
 -- |
 -- Module      : Main
--- Copyright   : (c) 2013-2017 Brendan Hay
+-- Copyright   : (c) 2013-2018 Brendan Hay
 -- License     : Mozilla Public License, v. 2.0.
 -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com>
 -- Stability   : auto-generated
diff --git a/test/Test/AWS/CognitoSync.hs b/test/Test/AWS/CognitoSync.hs
--- a/test/Test/AWS/CognitoSync.hs
+++ b/test/Test/AWS/CognitoSync.hs
@@ -1,7 +1,7 @@
 {-# LANGUAGE OverloadedStrings #-}
 
 -- Module      : Test.AWS.CognitoSync
--- Copyright   : (c) 2013-2016 Brendan Hay
+-- Copyright   : (c) 2013-2018 Brendan Hay
 -- License     : This Source Code Form is subject to the terms of
 --               the Mozilla Public License, v. 2.0.
 --               A copy of the MPL can be found in the LICENSE file or
diff --git a/test/Test/AWS/CognitoSync/Internal.hs b/test/Test/AWS/CognitoSync/Internal.hs
--- a/test/Test/AWS/CognitoSync/Internal.hs
+++ b/test/Test/AWS/CognitoSync/Internal.hs
@@ -2,7 +2,7 @@
 {-# OPTIONS_GHC -fno-warn-unused-imports #-}
 
 -- Module      : Test.AWS.CognitoSync.Internal
--- Copyright   : (c) 2013-2016 Brendan Hay
+-- Copyright   : (c) 2013-2018 Brendan Hay
 -- License     : This Source Code Form is subject to the terms of
 --               the Mozilla Public License, v. 2.0.
 --               A copy of the MPL can be found in the LICENSE file or
diff --git a/test/Test/AWS/Gen/CognitoSync.hs b/test/Test/AWS/Gen/CognitoSync.hs
--- a/test/Test/AWS/Gen/CognitoSync.hs
+++ b/test/Test/AWS/Gen/CognitoSync.hs
@@ -5,7 +5,7 @@
 
 -- |
 -- Module      : Test.AWS.Gen.CognitoSync
--- Copyright   : (c) 2013-2017 Brendan Hay
+-- Copyright   : (c) 2013-2018 Brendan Hay
 -- License     : Mozilla Public License, v. 2.0.
 -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com>
 -- Stability   : auto-generated