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-sns.cabal b/amazonka-sns.cabal
--- a/amazonka-sns.cabal
+++ b/amazonka-sns.cabal
@@ -1,5 +1,5 @@
 name:                  amazonka-sns
-version:               1.5.0
+version:               1.6.0
 synopsis:              Amazon Simple Notification Service 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
@@ -83,7 +83,7 @@
         , Network.AWS.SNS.Types.Sum
 
     build-depends:
-          amazonka-core == 1.5.0.*
+          amazonka-core == 1.6.0.*
         , base          >= 4.7     && < 5
 
 test-suite amazonka-sns-test
@@ -103,8 +103,8 @@
         , Test.AWS.SNS.Internal
 
     build-depends:
-          amazonka-core == 1.5.0.*
-        , amazonka-test == 1.5.0.*
+          amazonka-core == 1.6.0.*
+        , amazonka-test == 1.6.0.*
         , amazonka-sns
         , base
         , bytestring
diff --git a/gen/Network/AWS/SNS.hs b/gen/Network/AWS/SNS.hs
--- a/gen/Network/AWS/SNS.hs
+++ b/gen/Network/AWS/SNS.hs
@@ -5,7 +5,7 @@
 
 -- |
 -- Module      : Network.AWS.SNS
--- 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/SNS/AddPermission.hs b/gen/Network/AWS/SNS/AddPermission.hs
--- a/gen/Network/AWS/SNS/AddPermission.hs
+++ b/gen/Network/AWS/SNS/AddPermission.hs
@@ -12,7 +12,7 @@
 
 -- |
 -- Module      : Network.AWS.SNS.AddPermission
--- 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,28 +70,28 @@
     -> AddPermission
 addPermission pTopicARN_ pLabel_ =
   AddPermission'
-  { _apTopicARN = pTopicARN_
-  , _apLabel = pLabel_
-  , _apAWSAccountId = mempty
-  , _apActionName = mempty
-  }
+    { _apTopicARN = pTopicARN_
+    , _apLabel = pLabel_
+    , _apAWSAccountId = mempty
+    , _apActionName = mempty
+    }
 
 
 -- | The ARN of the topic whose access control policy you wish to modify.
 apTopicARN :: Lens' AddPermission Text
-apTopicARN = lens _apTopicARN (\ s a -> s{_apTopicARN = a});
+apTopicARN = lens _apTopicARN (\ s a -> s{_apTopicARN = a})
 
 -- | A unique identifier for the new policy statement.
 apLabel :: Lens' AddPermission Text
-apLabel = lens _apLabel (\ s a -> s{_apLabel = a});
+apLabel = lens _apLabel (\ s a -> s{_apLabel = a})
 
 -- | The AWS account IDs of the users (principals) who will be given access to the specified actions. The users must have AWS accounts, but do not need to be signed up for this service.
 apAWSAccountId :: Lens' AddPermission [Text]
-apAWSAccountId = lens _apAWSAccountId (\ s a -> s{_apAWSAccountId = a}) . _Coerce;
+apAWSAccountId = lens _apAWSAccountId (\ s a -> s{_apAWSAccountId = a}) . _Coerce
 
 -- | The action you want to allow for the specified principal(s). Valid values: any Amazon SNS action name.
 apActionName :: Lens' AddPermission [Text]
-apActionName = lens _apActionName (\ s a -> s{_apActionName = a}) . _Coerce;
+apActionName = lens _apActionName (\ s a -> s{_apActionName = a}) . _Coerce
 
 instance AWSRequest AddPermission where
         type Rs AddPermission = AddPermissionResponse
diff --git a/gen/Network/AWS/SNS/CheckIfPhoneNumberIsOptedOut.hs b/gen/Network/AWS/SNS/CheckIfPhoneNumberIsOptedOut.hs
--- a/gen/Network/AWS/SNS/CheckIfPhoneNumberIsOptedOut.hs
+++ b/gen/Network/AWS/SNS/CheckIfPhoneNumberIsOptedOut.hs
@@ -12,7 +12,7 @@
 
 -- |
 -- Module      : Network.AWS.SNS.CheckIfPhoneNumberIsOptedOut
--- 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 phone number for which you want to check the opt out status.
 cipniooPhoneNumber :: Lens' CheckIfPhoneNumberIsOptedOut Text
-cipniooPhoneNumber = lens _cipniooPhoneNumber (\ s a -> s{_cipniooPhoneNumber = a});
+cipniooPhoneNumber = lens _cipniooPhoneNumber (\ s a -> s{_cipniooPhoneNumber = a})
 
 instance AWSRequest CheckIfPhoneNumberIsOptedOut
          where
@@ -125,16 +125,18 @@
     -> CheckIfPhoneNumberIsOptedOutResponse
 checkIfPhoneNumberIsOptedOutResponse pResponseStatus_ =
   CheckIfPhoneNumberIsOptedOutResponse'
-  {_cipnioorsIsOptedOut = Nothing, _cipnioorsResponseStatus = pResponseStatus_}
+    { _cipnioorsIsOptedOut = Nothing
+    , _cipnioorsResponseStatus = pResponseStatus_
+    }
 
 
 -- | Indicates whether the phone number is opted out:     * @true@ – The phone number is opted out, meaning you cannot publish SMS messages to it.     * @false@ – The phone number is opted in, meaning you can publish SMS messages to it.
 cipnioorsIsOptedOut :: Lens' CheckIfPhoneNumberIsOptedOutResponse (Maybe Bool)
-cipnioorsIsOptedOut = lens _cipnioorsIsOptedOut (\ s a -> s{_cipnioorsIsOptedOut = a});
+cipnioorsIsOptedOut = lens _cipnioorsIsOptedOut (\ s a -> s{_cipnioorsIsOptedOut = a})
 
 -- | -- | The response status code.
 cipnioorsResponseStatus :: Lens' CheckIfPhoneNumberIsOptedOutResponse Int
-cipnioorsResponseStatus = lens _cipnioorsResponseStatus (\ s a -> s{_cipnioorsResponseStatus = a});
+cipnioorsResponseStatus = lens _cipnioorsResponseStatus (\ s a -> s{_cipnioorsResponseStatus = a})
 
 instance NFData CheckIfPhoneNumberIsOptedOutResponse
          where
diff --git a/gen/Network/AWS/SNS/ConfirmSubscription.hs b/gen/Network/AWS/SNS/ConfirmSubscription.hs
--- a/gen/Network/AWS/SNS/ConfirmSubscription.hs
+++ b/gen/Network/AWS/SNS/ConfirmSubscription.hs
@@ -12,7 +12,7 @@
 
 -- |
 -- Module      : Network.AWS.SNS.ConfirmSubscription
--- 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
@@ -73,23 +73,23 @@
     -> ConfirmSubscription
 confirmSubscription pTopicARN_ pToken_ =
   ConfirmSubscription'
-  { _csAuthenticateOnUnsubscribe = Nothing
-  , _csTopicARN = pTopicARN_
-  , _csToken = pToken_
-  }
+    { _csAuthenticateOnUnsubscribe = Nothing
+    , _csTopicARN = pTopicARN_
+    , _csToken = pToken_
+    }
 
 
 -- | Disallows unauthenticated unsubscribes of the subscription. If the value of this parameter is @true@ and the request has an AWS signature, then only the topic owner and the subscription owner can unsubscribe the endpoint. The unsubscribe action requires AWS authentication.
 csAuthenticateOnUnsubscribe :: Lens' ConfirmSubscription (Maybe Text)
-csAuthenticateOnUnsubscribe = lens _csAuthenticateOnUnsubscribe (\ s a -> s{_csAuthenticateOnUnsubscribe = a});
+csAuthenticateOnUnsubscribe = lens _csAuthenticateOnUnsubscribe (\ s a -> s{_csAuthenticateOnUnsubscribe = a})
 
 -- | The ARN of the topic for which you wish to confirm a subscription.
 csTopicARN :: Lens' ConfirmSubscription Text
-csTopicARN = lens _csTopicARN (\ s a -> s{_csTopicARN = a});
+csTopicARN = lens _csTopicARN (\ s a -> s{_csTopicARN = a})
 
 -- | Short-lived token sent to an endpoint during the @Subscribe@ action.
 csToken :: Lens' ConfirmSubscription Text
-csToken = lens _csToken (\ s a -> s{_csToken = a});
+csToken = lens _csToken (\ s a -> s{_csToken = a})
 
 instance AWSRequest ConfirmSubscription where
         type Rs ConfirmSubscription =
@@ -143,15 +143,15 @@
     -> ConfirmSubscriptionResponse
 confirmSubscriptionResponse pResponseStatus_ =
   ConfirmSubscriptionResponse'
-  {_csrsSubscriptionARN = Nothing, _csrsResponseStatus = pResponseStatus_}
+    {_csrsSubscriptionARN = Nothing, _csrsResponseStatus = pResponseStatus_}
 
 
 -- | The ARN of the created subscription.
 csrsSubscriptionARN :: Lens' ConfirmSubscriptionResponse (Maybe Text)
-csrsSubscriptionARN = lens _csrsSubscriptionARN (\ s a -> s{_csrsSubscriptionARN = a});
+csrsSubscriptionARN = lens _csrsSubscriptionARN (\ s a -> s{_csrsSubscriptionARN = a})
 
 -- | -- | The response status code.
 csrsResponseStatus :: Lens' ConfirmSubscriptionResponse Int
-csrsResponseStatus = lens _csrsResponseStatus (\ s a -> s{_csrsResponseStatus = a});
+csrsResponseStatus = lens _csrsResponseStatus (\ s a -> s{_csrsResponseStatus = a})
 
 instance NFData ConfirmSubscriptionResponse where
diff --git a/gen/Network/AWS/SNS/CreatePlatformApplication.hs b/gen/Network/AWS/SNS/CreatePlatformApplication.hs
--- a/gen/Network/AWS/SNS/CreatePlatformApplication.hs
+++ b/gen/Network/AWS/SNS/CreatePlatformApplication.hs
@@ -12,7 +12,7 @@
 
 -- |
 -- Module      : Network.AWS.SNS.CreatePlatformApplication
--- 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
@@ -75,20 +75,20 @@
     -> CreatePlatformApplication
 createPlatformApplication pName_ pPlatform_ =
   CreatePlatformApplication'
-  {_cpaName = pName_, _cpaPlatform = pPlatform_, _cpaAttributes = mempty}
+    {_cpaName = pName_, _cpaPlatform = pPlatform_, _cpaAttributes = mempty}
 
 
 -- | Application names must be made up of only uppercase and lowercase ASCII letters, numbers, underscores, hyphens, and periods, and must be between 1 and 256 characters long.
 cpaName :: Lens' CreatePlatformApplication Text
-cpaName = lens _cpaName (\ s a -> s{_cpaName = a});
+cpaName = lens _cpaName (\ s a -> s{_cpaName = a})
 
 -- | The following platforms are supported: ADM (Amazon Device Messaging), APNS (Apple Push Notification Service), APNS_SANDBOX, and GCM (Google Cloud Messaging).
 cpaPlatform :: Lens' CreatePlatformApplication Text
-cpaPlatform = lens _cpaPlatform (\ s a -> s{_cpaPlatform = a});
+cpaPlatform = lens _cpaPlatform (\ s a -> s{_cpaPlatform = a})
 
 -- | For a list of attributes, see <http://docs.aws.amazon.com/sns/latest/api/API_SetPlatformApplicationAttributes.html SetPlatformApplicationAttributes>
 cpaAttributes :: Lens' CreatePlatformApplication (HashMap Text Text)
-cpaAttributes = lens _cpaAttributes (\ s a -> s{_cpaAttributes = a}) . _Map;
+cpaAttributes = lens _cpaAttributes (\ s a -> s{_cpaAttributes = a}) . _Map
 
 instance AWSRequest CreatePlatformApplication where
         type Rs CreatePlatformApplication =
@@ -144,18 +144,18 @@
     -> CreatePlatformApplicationResponse
 createPlatformApplicationResponse pResponseStatus_ =
   CreatePlatformApplicationResponse'
-  { _cparsPlatformApplicationARN = Nothing
-  , _cparsResponseStatus = pResponseStatus_
-  }
+    { _cparsPlatformApplicationARN = Nothing
+    , _cparsResponseStatus = pResponseStatus_
+    }
 
 
 -- | PlatformApplicationArn is returned.
 cparsPlatformApplicationARN :: Lens' CreatePlatformApplicationResponse (Maybe Text)
-cparsPlatformApplicationARN = lens _cparsPlatformApplicationARN (\ s a -> s{_cparsPlatformApplicationARN = a});
+cparsPlatformApplicationARN = lens _cparsPlatformApplicationARN (\ s a -> s{_cparsPlatformApplicationARN = a})
 
 -- | -- | The response status code.
 cparsResponseStatus :: Lens' CreatePlatformApplicationResponse Int
-cparsResponseStatus = lens _cparsResponseStatus (\ s a -> s{_cparsResponseStatus = a});
+cparsResponseStatus = lens _cparsResponseStatus (\ s a -> s{_cparsResponseStatus = a})
 
 instance NFData CreatePlatformApplicationResponse
          where
diff --git a/gen/Network/AWS/SNS/CreatePlatformEndpoint.hs b/gen/Network/AWS/SNS/CreatePlatformEndpoint.hs
--- a/gen/Network/AWS/SNS/CreatePlatformEndpoint.hs
+++ b/gen/Network/AWS/SNS/CreatePlatformEndpoint.hs
@@ -12,7 +12,7 @@
 
 -- |
 -- Module      : Network.AWS.SNS.CreatePlatformEndpoint
--- 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 @@
     -> CreatePlatformEndpoint
 createPlatformEndpoint pPlatformApplicationARN_ pToken_ =
   CreatePlatformEndpoint'
-  { _cpeCustomUserData = Nothing
-  , _cpeAttributes = Nothing
-  , _cpePlatformApplicationARN = pPlatformApplicationARN_
-  , _cpeToken = pToken_
-  }
+    { _cpeCustomUserData = Nothing
+    , _cpeAttributes = Nothing
+    , _cpePlatformApplicationARN = pPlatformApplicationARN_
+    , _cpeToken = pToken_
+    }
 
 
 -- | Arbitrary user data to associate with the endpoint. Amazon SNS does not use this data. The data must be in UTF-8 format and less than 2KB.
 cpeCustomUserData :: Lens' CreatePlatformEndpoint (Maybe Text)
-cpeCustomUserData = lens _cpeCustomUserData (\ s a -> s{_cpeCustomUserData = a});
+cpeCustomUserData = lens _cpeCustomUserData (\ s a -> s{_cpeCustomUserData = a})
 
 -- | For a list of attributes, see <http://docs.aws.amazon.com/sns/latest/api/API_SetEndpointAttributes.html SetEndpointAttributes> .
 cpeAttributes :: Lens' CreatePlatformEndpoint (HashMap Text Text)
-cpeAttributes = lens _cpeAttributes (\ s a -> s{_cpeAttributes = a}) . _Default . _Map;
+cpeAttributes = lens _cpeAttributes (\ s a -> s{_cpeAttributes = a}) . _Default . _Map
 
 -- | PlatformApplicationArn returned from CreatePlatformApplication is used to create a an endpoint.
 cpePlatformApplicationARN :: Lens' CreatePlatformEndpoint Text
-cpePlatformApplicationARN = lens _cpePlatformApplicationARN (\ s a -> s{_cpePlatformApplicationARN = a});
+cpePlatformApplicationARN = lens _cpePlatformApplicationARN (\ s a -> s{_cpePlatformApplicationARN = a})
 
 -- | Unique identifier created by the notification service for an app on a device. The specific name for Token will vary, depending on which notification service is being used. For example, when using APNS as the notification service, you need the device token. Alternatively, when using GCM or ADM, the device token equivalent is called the registration ID.
 cpeToken :: Lens' CreatePlatformEndpoint Text
-cpeToken = lens _cpeToken (\ s a -> s{_cpeToken = a});
+cpeToken = lens _cpeToken (\ s a -> s{_cpeToken = a})
 
 instance AWSRequest CreatePlatformEndpoint where
         type Rs CreatePlatformEndpoint =
@@ -160,15 +160,15 @@
     -> CreatePlatformEndpointResponse
 createPlatformEndpointResponse pResponseStatus_ =
   CreatePlatformEndpointResponse'
-  {_cpersEndpointARN = Nothing, _cpersResponseStatus = pResponseStatus_}
+    {_cpersEndpointARN = Nothing, _cpersResponseStatus = pResponseStatus_}
 
 
 -- | EndpointArn returned from CreateEndpoint action.
 cpersEndpointARN :: Lens' CreatePlatformEndpointResponse (Maybe Text)
-cpersEndpointARN = lens _cpersEndpointARN (\ s a -> s{_cpersEndpointARN = a});
+cpersEndpointARN = lens _cpersEndpointARN (\ s a -> s{_cpersEndpointARN = a})
 
 -- | -- | The response status code.
 cpersResponseStatus :: Lens' CreatePlatformEndpointResponse Int
-cpersResponseStatus = lens _cpersResponseStatus (\ s a -> s{_cpersResponseStatus = a});
+cpersResponseStatus = lens _cpersResponseStatus (\ s a -> s{_cpersResponseStatus = a})
 
 instance NFData CreatePlatformEndpointResponse where
diff --git a/gen/Network/AWS/SNS/CreateTopic.hs b/gen/Network/AWS/SNS/CreateTopic.hs
--- a/gen/Network/AWS/SNS/CreateTopic.hs
+++ b/gen/Network/AWS/SNS/CreateTopic.hs
@@ -12,7 +12,7 @@
 
 -- |
 -- Module      : Network.AWS.SNS.CreateTopic
--- 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
@@ -67,7 +67,7 @@
 
 -- | The name of the topic you want to create. Constraints: Topic names must be made up of only uppercase and lowercase ASCII letters, numbers, underscores, and hyphens, and must be between 1 and 256 characters long.
 ctName :: Lens' CreateTopic Text
-ctName = lens _ctName (\ s a -> s{_ctName = a});
+ctName = lens _ctName (\ s a -> s{_ctName = a})
 
 instance AWSRequest CreateTopic where
         type Rs CreateTopic = CreateTopicResponse
@@ -118,15 +118,15 @@
     -> CreateTopicResponse
 createTopicResponse pResponseStatus_ =
   CreateTopicResponse'
-  {_ctrsTopicARN = Nothing, _ctrsResponseStatus = pResponseStatus_}
+    {_ctrsTopicARN = Nothing, _ctrsResponseStatus = pResponseStatus_}
 
 
 -- | The Amazon Resource Name (ARN) assigned to the created topic.
 ctrsTopicARN :: Lens' CreateTopicResponse (Maybe Text)
-ctrsTopicARN = lens _ctrsTopicARN (\ s a -> s{_ctrsTopicARN = a});
+ctrsTopicARN = lens _ctrsTopicARN (\ s a -> s{_ctrsTopicARN = a})
 
 -- | -- | The response status code.
 ctrsResponseStatus :: Lens' CreateTopicResponse Int
-ctrsResponseStatus = lens _ctrsResponseStatus (\ s a -> s{_ctrsResponseStatus = a});
+ctrsResponseStatus = lens _ctrsResponseStatus (\ s a -> s{_ctrsResponseStatus = a})
 
 instance NFData CreateTopicResponse where
diff --git a/gen/Network/AWS/SNS/DeleteEndpoint.hs b/gen/Network/AWS/SNS/DeleteEndpoint.hs
--- a/gen/Network/AWS/SNS/DeleteEndpoint.hs
+++ b/gen/Network/AWS/SNS/DeleteEndpoint.hs
@@ -12,7 +12,7 @@
 
 -- |
 -- Module      : Network.AWS.SNS.DeleteEndpoint
--- 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
@@ -66,7 +66,7 @@
 
 -- | EndpointArn of endpoint to delete.
 deEndpointARN :: Lens' DeleteEndpoint Text
-deEndpointARN = lens _deEndpointARN (\ s a -> s{_deEndpointARN = a});
+deEndpointARN = lens _deEndpointARN (\ s a -> s{_deEndpointARN = a})
 
 instance AWSRequest DeleteEndpoint where
         type Rs DeleteEndpoint = DeleteEndpointResponse
diff --git a/gen/Network/AWS/SNS/DeletePlatformApplication.hs b/gen/Network/AWS/SNS/DeletePlatformApplication.hs
--- a/gen/Network/AWS/SNS/DeletePlatformApplication.hs
+++ b/gen/Network/AWS/SNS/DeletePlatformApplication.hs
@@ -12,7 +12,7 @@
 
 -- |
 -- Module      : Network.AWS.SNS.DeletePlatformApplication
--- 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
@@ -61,12 +61,12 @@
     -> DeletePlatformApplication
 deletePlatformApplication pPlatformApplicationARN_ =
   DeletePlatformApplication'
-  {_dpaPlatformApplicationARN = pPlatformApplicationARN_}
+    {_dpaPlatformApplicationARN = pPlatformApplicationARN_}
 
 
 -- | PlatformApplicationArn of platform application object to delete.
 dpaPlatformApplicationARN :: Lens' DeletePlatformApplication Text
-dpaPlatformApplicationARN = lens _dpaPlatformApplicationARN (\ s a -> s{_dpaPlatformApplicationARN = a});
+dpaPlatformApplicationARN = lens _dpaPlatformApplicationARN (\ s a -> s{_dpaPlatformApplicationARN = a})
 
 instance AWSRequest DeletePlatformApplication where
         type Rs DeletePlatformApplication =
diff --git a/gen/Network/AWS/SNS/DeleteTopic.hs b/gen/Network/AWS/SNS/DeleteTopic.hs
--- a/gen/Network/AWS/SNS/DeleteTopic.hs
+++ b/gen/Network/AWS/SNS/DeleteTopic.hs
@@ -12,7 +12,7 @@
 
 -- |
 -- Module      : Network.AWS.SNS.DeleteTopic
--- 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
@@ -60,7 +60,7 @@
 
 -- | The ARN of the topic you want to delete.
 dtTopicARN :: Lens' DeleteTopic Text
-dtTopicARN = lens _dtTopicARN (\ s a -> s{_dtTopicARN = a});
+dtTopicARN = lens _dtTopicARN (\ s a -> s{_dtTopicARN = a})
 
 instance AWSRequest DeleteTopic where
         type Rs DeleteTopic = DeleteTopicResponse
diff --git a/gen/Network/AWS/SNS/GetEndpointAttributes.hs b/gen/Network/AWS/SNS/GetEndpointAttributes.hs
--- a/gen/Network/AWS/SNS/GetEndpointAttributes.hs
+++ b/gen/Network/AWS/SNS/GetEndpointAttributes.hs
@@ -12,7 +12,7 @@
 
 -- |
 -- Module      : Network.AWS.SNS.GetEndpointAttributes
--- 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 @@
 
 -- | EndpointArn for GetEndpointAttributes input.
 geaEndpointARN :: Lens' GetEndpointAttributes Text
-geaEndpointARN = lens _geaEndpointARN (\ s a -> s{_geaEndpointARN = a});
+geaEndpointARN = lens _geaEndpointARN (\ s a -> s{_geaEndpointARN = a})
 
 instance AWSRequest GetEndpointAttributes where
         type Rs GetEndpointAttributes =
@@ -122,15 +122,15 @@
     -> GetEndpointAttributesResponse
 getEndpointAttributesResponse pResponseStatus_ =
   GetEndpointAttributesResponse'
-  {_gearsAttributes = Nothing, _gearsResponseStatus = pResponseStatus_}
+    {_gearsAttributes = Nothing, _gearsResponseStatus = pResponseStatus_}
 
 
 -- | Attributes include the following:     * @CustomUserData@ -- arbitrary user data to associate with the endpoint. Amazon SNS does not use this data. The data must be in UTF-8 format and less than 2KB.     * @Enabled@ -- flag that enables/disables delivery to the endpoint. Amazon SNS will set this to false when a notification service indicates to Amazon SNS that the endpoint is invalid. Users can set it back to true, typically after updating Token.     * @Token@ -- device token, also referred to as a registration id, for an app and mobile device. This is returned from the notification service when an app and mobile device are registered with the notification service.
 gearsAttributes :: Lens' GetEndpointAttributesResponse (HashMap Text Text)
-gearsAttributes = lens _gearsAttributes (\ s a -> s{_gearsAttributes = a}) . _Default . _Map;
+gearsAttributes = lens _gearsAttributes (\ s a -> s{_gearsAttributes = a}) . _Default . _Map
 
 -- | -- | The response status code.
 gearsResponseStatus :: Lens' GetEndpointAttributesResponse Int
-gearsResponseStatus = lens _gearsResponseStatus (\ s a -> s{_gearsResponseStatus = a});
+gearsResponseStatus = lens _gearsResponseStatus (\ s a -> s{_gearsResponseStatus = a})
 
 instance NFData GetEndpointAttributesResponse where
diff --git a/gen/Network/AWS/SNS/GetPlatformApplicationAttributes.hs b/gen/Network/AWS/SNS/GetPlatformApplicationAttributes.hs
--- a/gen/Network/AWS/SNS/GetPlatformApplicationAttributes.hs
+++ b/gen/Network/AWS/SNS/GetPlatformApplicationAttributes.hs
@@ -12,7 +12,7 @@
 
 -- |
 -- Module      : Network.AWS.SNS.GetPlatformApplicationAttributes
--- 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
@@ -64,12 +64,12 @@
     -> GetPlatformApplicationAttributes
 getPlatformApplicationAttributes pPlatformApplicationARN_ =
   GetPlatformApplicationAttributes'
-  {_gpaaPlatformApplicationARN = pPlatformApplicationARN_}
+    {_gpaaPlatformApplicationARN = pPlatformApplicationARN_}
 
 
 -- | PlatformApplicationArn for GetPlatformApplicationAttributesInput.
 gpaaPlatformApplicationARN :: Lens' GetPlatformApplicationAttributes Text
-gpaaPlatformApplicationARN = lens _gpaaPlatformApplicationARN (\ s a -> s{_gpaaPlatformApplicationARN = a});
+gpaaPlatformApplicationARN = lens _gpaaPlatformApplicationARN (\ s a -> s{_gpaaPlatformApplicationARN = a})
 
 instance AWSRequest GetPlatformApplicationAttributes
          where
@@ -132,16 +132,16 @@
     -> GetPlatformApplicationAttributesResponse
 getPlatformApplicationAttributesResponse pResponseStatus_ =
   GetPlatformApplicationAttributesResponse'
-  {_gpaarsAttributes = Nothing, _gpaarsResponseStatus = pResponseStatus_}
+    {_gpaarsAttributes = Nothing, _gpaarsResponseStatus = pResponseStatus_}
 
 
 -- | Attributes include the following:     * @EventEndpointCreated@ -- Topic ARN to which EndpointCreated event notifications should be sent.     * @EventEndpointDeleted@ -- Topic ARN to which EndpointDeleted event notifications should be sent.     * @EventEndpointUpdated@ -- Topic ARN to which EndpointUpdate event notifications should be sent.     * @EventDeliveryFailure@ -- Topic ARN to which DeliveryFailure event notifications should be sent upon Direct Publish delivery failure (permanent) to one of the application's endpoints.
 gpaarsAttributes :: Lens' GetPlatformApplicationAttributesResponse (HashMap Text Text)
-gpaarsAttributes = lens _gpaarsAttributes (\ s a -> s{_gpaarsAttributes = a}) . _Default . _Map;
+gpaarsAttributes = lens _gpaarsAttributes (\ s a -> s{_gpaarsAttributes = a}) . _Default . _Map
 
 -- | -- | The response status code.
 gpaarsResponseStatus :: Lens' GetPlatformApplicationAttributesResponse Int
-gpaarsResponseStatus = lens _gpaarsResponseStatus (\ s a -> s{_gpaarsResponseStatus = a});
+gpaarsResponseStatus = lens _gpaarsResponseStatus (\ s a -> s{_gpaarsResponseStatus = a})
 
 instance NFData
            GetPlatformApplicationAttributesResponse
diff --git a/gen/Network/AWS/SNS/GetSMSAttributes.hs b/gen/Network/AWS/SNS/GetSMSAttributes.hs
--- a/gen/Network/AWS/SNS/GetSMSAttributes.hs
+++ b/gen/Network/AWS/SNS/GetSMSAttributes.hs
@@ -12,7 +12,7 @@
 
 -- |
 -- Module      : Network.AWS.SNS.GetSMSAttributes
--- 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 list of the individual attribute names, such as @MonthlySpendLimit@ , for which you want values. For all attribute names, see <http://docs.aws.amazon.com/sns/latest/api/API_SetSMSAttributes.html SetSMSAttributes> . If you don't use this parameter, Amazon SNS returns all SMS attributes.
 gsmsaAttributes :: Lens' GetSMSAttributes [Text]
-gsmsaAttributes = lens _gsmsaAttributes (\ s a -> s{_gsmsaAttributes = a}) . _Default . _Coerce;
+gsmsaAttributes = lens _gsmsaAttributes (\ s a -> s{_gsmsaAttributes = a}) . _Default . _Coerce
 
 instance AWSRequest GetSMSAttributes where
         type Rs GetSMSAttributes = GetSMSAttributesResponse
@@ -122,15 +122,15 @@
     -> GetSMSAttributesResponse
 getSMSAttributesResponse pResponseStatus_ =
   GetSMSAttributesResponse'
-  {_gsmsarsAttributes = Nothing, _gsmsarsResponseStatus = pResponseStatus_}
+    {_gsmsarsAttributes = Nothing, _gsmsarsResponseStatus = pResponseStatus_}
 
 
 -- | The SMS attribute names and their values.
 gsmsarsAttributes :: Lens' GetSMSAttributesResponse (HashMap Text Text)
-gsmsarsAttributes = lens _gsmsarsAttributes (\ s a -> s{_gsmsarsAttributes = a}) . _Default . _Map;
+gsmsarsAttributes = lens _gsmsarsAttributes (\ s a -> s{_gsmsarsAttributes = a}) . _Default . _Map
 
 -- | -- | The response status code.
 gsmsarsResponseStatus :: Lens' GetSMSAttributesResponse Int
-gsmsarsResponseStatus = lens _gsmsarsResponseStatus (\ s a -> s{_gsmsarsResponseStatus = a});
+gsmsarsResponseStatus = lens _gsmsarsResponseStatus (\ s a -> s{_gsmsarsResponseStatus = a})
 
 instance NFData GetSMSAttributesResponse where
diff --git a/gen/Network/AWS/SNS/GetSubscriptionAttributes.hs b/gen/Network/AWS/SNS/GetSubscriptionAttributes.hs
--- a/gen/Network/AWS/SNS/GetSubscriptionAttributes.hs
+++ b/gen/Network/AWS/SNS/GetSubscriptionAttributes.hs
@@ -12,7 +12,7 @@
 
 -- |
 -- Module      : Network.AWS.SNS.GetSubscriptionAttributes
--- 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 @@
 
 -- | The ARN of the subscription whose properties you want to get.
 gsaSubscriptionARN :: Lens' GetSubscriptionAttributes Text
-gsaSubscriptionARN = lens _gsaSubscriptionARN (\ s a -> s{_gsaSubscriptionARN = a});
+gsaSubscriptionARN = lens _gsaSubscriptionARN (\ s a -> s{_gsaSubscriptionARN = a})
 
 instance AWSRequest GetSubscriptionAttributes where
         type Rs GetSubscriptionAttributes =
@@ -123,16 +123,16 @@
     -> GetSubscriptionAttributesResponse
 getSubscriptionAttributesResponse pResponseStatus_ =
   GetSubscriptionAttributesResponse'
-  {_gsarsAttributes = Nothing, _gsarsResponseStatus = pResponseStatus_}
+    {_gsarsAttributes = Nothing, _gsarsResponseStatus = pResponseStatus_}
 
 
 -- | A map of the subscription's attributes. Attributes in this map include the following:     * @SubscriptionArn@ -- the subscription's ARN     * @TopicArn@ -- the topic ARN that the subscription is associated with     * @Owner@ -- the AWS account ID of the subscription's owner     * @ConfirmationWasAuthenticated@ -- true if the subscription confirmation request was authenticated     * @DeliveryPolicy@ -- the JSON serialization of the subscription's delivery policy     * @EffectiveDeliveryPolicy@ -- the JSON serialization of the effective delivery policy that takes into account the topic delivery policy and account system defaults
 gsarsAttributes :: Lens' GetSubscriptionAttributesResponse (HashMap Text Text)
-gsarsAttributes = lens _gsarsAttributes (\ s a -> s{_gsarsAttributes = a}) . _Default . _Map;
+gsarsAttributes = lens _gsarsAttributes (\ s a -> s{_gsarsAttributes = a}) . _Default . _Map
 
 -- | -- | The response status code.
 gsarsResponseStatus :: Lens' GetSubscriptionAttributesResponse Int
-gsarsResponseStatus = lens _gsarsResponseStatus (\ s a -> s{_gsarsResponseStatus = a});
+gsarsResponseStatus = lens _gsarsResponseStatus (\ s a -> s{_gsarsResponseStatus = a})
 
 instance NFData GetSubscriptionAttributesResponse
          where
diff --git a/gen/Network/AWS/SNS/GetTopicAttributes.hs b/gen/Network/AWS/SNS/GetTopicAttributes.hs
--- a/gen/Network/AWS/SNS/GetTopicAttributes.hs
+++ b/gen/Network/AWS/SNS/GetTopicAttributes.hs
@@ -12,7 +12,7 @@
 
 -- |
 -- Module      : Network.AWS.SNS.GetTopicAttributes
--- 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
@@ -67,7 +67,7 @@
 
 -- | The ARN of the topic whose properties you want to get.
 gtaTopicARN :: Lens' GetTopicAttributes Text
-gtaTopicARN = lens _gtaTopicARN (\ s a -> s{_gtaTopicARN = a});
+gtaTopicARN = lens _gtaTopicARN (\ s a -> s{_gtaTopicARN = a})
 
 instance AWSRequest GetTopicAttributes where
         type Rs GetTopicAttributes =
@@ -121,15 +121,15 @@
     -> GetTopicAttributesResponse
 getTopicAttributesResponse pResponseStatus_ =
   GetTopicAttributesResponse'
-  {_gtarsAttributes = Nothing, _gtarsResponseStatus = pResponseStatus_}
+    {_gtarsAttributes = Nothing, _gtarsResponseStatus = pResponseStatus_}
 
 
 -- | A map of the topic's attributes. Attributes in this map include the following:     * @TopicArn@ -- the topic's ARN     * @Owner@ -- the AWS account ID of the topic's owner     * @Policy@ -- the JSON serialization of the topic's access control policy     * @DisplayName@ -- the human-readable name used in the "From" field for notifications to email and email-json endpoints     * @SubscriptionsPending@ -- the number of subscriptions pending confirmation on this topic     * @SubscriptionsConfirmed@ -- the number of confirmed subscriptions on this topic     * @SubscriptionsDeleted@ -- the number of deleted subscriptions on this topic     * @DeliveryPolicy@ -- the JSON serialization of the topic's delivery policy     * @EffectiveDeliveryPolicy@ -- the JSON serialization of the effective delivery policy that takes into account system defaults
 gtarsAttributes :: Lens' GetTopicAttributesResponse (HashMap Text Text)
-gtarsAttributes = lens _gtarsAttributes (\ s a -> s{_gtarsAttributes = a}) . _Default . _Map;
+gtarsAttributes = lens _gtarsAttributes (\ s a -> s{_gtarsAttributes = a}) . _Default . _Map
 
 -- | -- | The response status code.
 gtarsResponseStatus :: Lens' GetTopicAttributesResponse Int
-gtarsResponseStatus = lens _gtarsResponseStatus (\ s a -> s{_gtarsResponseStatus = a});
+gtarsResponseStatus = lens _gtarsResponseStatus (\ s a -> s{_gtarsResponseStatus = a})
 
 instance NFData GetTopicAttributesResponse where
diff --git a/gen/Network/AWS/SNS/ListEndpointsByPlatformApplication.hs b/gen/Network/AWS/SNS/ListEndpointsByPlatformApplication.hs
--- a/gen/Network/AWS/SNS/ListEndpointsByPlatformApplication.hs
+++ b/gen/Network/AWS/SNS/ListEndpointsByPlatformApplication.hs
@@ -12,7 +12,7 @@
 
 -- |
 -- Module      : Network.AWS.SNS.ListEndpointsByPlatformApplication
--- 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,18 +72,18 @@
     -> ListEndpointsByPlatformApplication
 listEndpointsByPlatformApplication pPlatformApplicationARN_ =
   ListEndpointsByPlatformApplication'
-  { _lebpaNextToken = Nothing
-  , _lebpaPlatformApplicationARN = pPlatformApplicationARN_
-  }
+    { _lebpaNextToken = Nothing
+    , _lebpaPlatformApplicationARN = pPlatformApplicationARN_
+    }
 
 
 -- | NextToken string is used when calling ListEndpointsByPlatformApplication action to retrieve additional records that are available after the first page results.
 lebpaNextToken :: Lens' ListEndpointsByPlatformApplication (Maybe Text)
-lebpaNextToken = lens _lebpaNextToken (\ s a -> s{_lebpaNextToken = a});
+lebpaNextToken = lens _lebpaNextToken (\ s a -> s{_lebpaNextToken = a})
 
 -- | PlatformApplicationArn for ListEndpointsByPlatformApplicationInput action.
 lebpaPlatformApplicationARN :: Lens' ListEndpointsByPlatformApplication Text
-lebpaPlatformApplicationARN = lens _lebpaPlatformApplicationARN (\ s a -> s{_lebpaPlatformApplicationARN = a});
+lebpaPlatformApplicationARN = lens _lebpaPlatformApplicationARN (\ s a -> s{_lebpaPlatformApplicationARN = a})
 
 instance AWSPager ListEndpointsByPlatformApplication
          where
@@ -160,23 +160,23 @@
     -> ListEndpointsByPlatformApplicationResponse
 listEndpointsByPlatformApplicationResponse pResponseStatus_ =
   ListEndpointsByPlatformApplicationResponse'
-  { _lebparsNextToken = Nothing
-  , _lebparsEndpoints = Nothing
-  , _lebparsResponseStatus = pResponseStatus_
-  }
+    { _lebparsNextToken = Nothing
+    , _lebparsEndpoints = Nothing
+    , _lebparsResponseStatus = pResponseStatus_
+    }
 
 
 -- | NextToken string is returned when calling ListEndpointsByPlatformApplication action if additional records are available after the first page results.
 lebparsNextToken :: Lens' ListEndpointsByPlatformApplicationResponse (Maybe Text)
-lebparsNextToken = lens _lebparsNextToken (\ s a -> s{_lebparsNextToken = a});
+lebparsNextToken = lens _lebparsNextToken (\ s a -> s{_lebparsNextToken = a})
 
 -- | Endpoints returned for ListEndpointsByPlatformApplication action.
 lebparsEndpoints :: Lens' ListEndpointsByPlatformApplicationResponse [Endpoint]
-lebparsEndpoints = lens _lebparsEndpoints (\ s a -> s{_lebparsEndpoints = a}) . _Default . _Coerce;
+lebparsEndpoints = lens _lebparsEndpoints (\ s a -> s{_lebparsEndpoints = a}) . _Default . _Coerce
 
 -- | -- | The response status code.
 lebparsResponseStatus :: Lens' ListEndpointsByPlatformApplicationResponse Int
-lebparsResponseStatus = lens _lebparsResponseStatus (\ s a -> s{_lebparsResponseStatus = a});
+lebparsResponseStatus = lens _lebparsResponseStatus (\ s a -> s{_lebparsResponseStatus = a})
 
 instance NFData
            ListEndpointsByPlatformApplicationResponse
diff --git a/gen/Network/AWS/SNS/ListPhoneNumbersOptedOut.hs b/gen/Network/AWS/SNS/ListPhoneNumbersOptedOut.hs
--- a/gen/Network/AWS/SNS/ListPhoneNumbersOptedOut.hs
+++ b/gen/Network/AWS/SNS/ListPhoneNumbersOptedOut.hs
@@ -12,7 +12,7 @@
 
 -- |
 -- Module      : Network.AWS.SNS.ListPhoneNumbersOptedOut
--- 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,7 +69,7 @@
 
 -- | A @NextToken@ string is used when you call the @ListPhoneNumbersOptedOut@ action to retrieve additional records that are available after the first page of results.
 lpnooNextToken :: Lens' ListPhoneNumbersOptedOut (Maybe Text)
-lpnooNextToken = lens _lpnooNextToken (\ s a -> s{_lpnooNextToken = a});
+lpnooNextToken = lens _lpnooNextToken (\ s a -> s{_lpnooNextToken = a})
 
 instance AWSRequest ListPhoneNumbersOptedOut where
         type Rs ListPhoneNumbersOptedOut =
@@ -128,23 +128,23 @@
     -> ListPhoneNumbersOptedOutResponse
 listPhoneNumbersOptedOutResponse pResponseStatus_ =
   ListPhoneNumbersOptedOutResponse'
-  { _lpnoorsPhoneNumbers = Nothing
-  , _lpnoorsNextToken = Nothing
-  , _lpnoorsResponseStatus = pResponseStatus_
-  }
+    { _lpnoorsPhoneNumbers = Nothing
+    , _lpnoorsNextToken = Nothing
+    , _lpnoorsResponseStatus = pResponseStatus_
+    }
 
 
 -- | A list of phone numbers that are opted out of receiving SMS messages. The list is paginated, and each page can contain up to 100 phone numbers.
 lpnoorsPhoneNumbers :: Lens' ListPhoneNumbersOptedOutResponse [Text]
-lpnoorsPhoneNumbers = lens _lpnoorsPhoneNumbers (\ s a -> s{_lpnoorsPhoneNumbers = a}) . _Default . _Coerce;
+lpnoorsPhoneNumbers = lens _lpnoorsPhoneNumbers (\ s a -> s{_lpnoorsPhoneNumbers = a}) . _Default . _Coerce
 
 -- | A @NextToken@ string is returned when you call the @ListPhoneNumbersOptedOut@ action if additional records are available after the first page of results.
 lpnoorsNextToken :: Lens' ListPhoneNumbersOptedOutResponse (Maybe Text)
-lpnoorsNextToken = lens _lpnoorsNextToken (\ s a -> s{_lpnoorsNextToken = a});
+lpnoorsNextToken = lens _lpnoorsNextToken (\ s a -> s{_lpnoorsNextToken = a})
 
 -- | -- | The response status code.
 lpnoorsResponseStatus :: Lens' ListPhoneNumbersOptedOutResponse Int
-lpnoorsResponseStatus = lens _lpnoorsResponseStatus (\ s a -> s{_lpnoorsResponseStatus = a});
+lpnoorsResponseStatus = lens _lpnoorsResponseStatus (\ s a -> s{_lpnoorsResponseStatus = a})
 
 instance NFData ListPhoneNumbersOptedOutResponse
          where
diff --git a/gen/Network/AWS/SNS/ListPlatformApplications.hs b/gen/Network/AWS/SNS/ListPlatformApplications.hs
--- a/gen/Network/AWS/SNS/ListPlatformApplications.hs
+++ b/gen/Network/AWS/SNS/ListPlatformApplications.hs
@@ -12,7 +12,7 @@
 
 -- |
 -- Module      : Network.AWS.SNS.ListPlatformApplications
--- 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 @@
 
 -- | NextToken string is used when calling ListPlatformApplications action to retrieve additional records that are available after the first page results.
 lpaNextToken :: Lens' ListPlatformApplications (Maybe Text)
-lpaNextToken = lens _lpaNextToken (\ s a -> s{_lpaNextToken = a});
+lpaNextToken = lens _lpaNextToken (\ s a -> s{_lpaNextToken = a})
 
 instance AWSPager ListPlatformApplications where
         page rq rs
@@ -136,23 +136,23 @@
     -> ListPlatformApplicationsResponse
 listPlatformApplicationsResponse pResponseStatus_ =
   ListPlatformApplicationsResponse'
-  { _lparsPlatformApplications = Nothing
-  , _lparsNextToken = Nothing
-  , _lparsResponseStatus = pResponseStatus_
-  }
+    { _lparsPlatformApplications = Nothing
+    , _lparsNextToken = Nothing
+    , _lparsResponseStatus = pResponseStatus_
+    }
 
 
 -- | Platform applications returned when calling ListPlatformApplications action.
 lparsPlatformApplications :: Lens' ListPlatformApplicationsResponse [PlatformApplication]
-lparsPlatformApplications = lens _lparsPlatformApplications (\ s a -> s{_lparsPlatformApplications = a}) . _Default . _Coerce;
+lparsPlatformApplications = lens _lparsPlatformApplications (\ s a -> s{_lparsPlatformApplications = a}) . _Default . _Coerce
 
 -- | NextToken string is returned when calling ListPlatformApplications action if additional records are available after the first page results.
 lparsNextToken :: Lens' ListPlatformApplicationsResponse (Maybe Text)
-lparsNextToken = lens _lparsNextToken (\ s a -> s{_lparsNextToken = a});
+lparsNextToken = lens _lparsNextToken (\ s a -> s{_lparsNextToken = a})
 
 -- | -- | The response status code.
 lparsResponseStatus :: Lens' ListPlatformApplicationsResponse Int
-lparsResponseStatus = lens _lparsResponseStatus (\ s a -> s{_lparsResponseStatus = a});
+lparsResponseStatus = lens _lparsResponseStatus (\ s a -> s{_lparsResponseStatus = a})
 
 instance NFData ListPlatformApplicationsResponse
          where
diff --git a/gen/Network/AWS/SNS/ListSubscriptions.hs b/gen/Network/AWS/SNS/ListSubscriptions.hs
--- a/gen/Network/AWS/SNS/ListSubscriptions.hs
+++ b/gen/Network/AWS/SNS/ListSubscriptions.hs
@@ -12,7 +12,7 @@
 
 -- |
 -- Module      : Network.AWS.SNS.ListSubscriptions
--- 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 @@
 
 -- | Token returned by the previous @ListSubscriptions@ request.
 lsNextToken :: Lens' ListSubscriptions (Maybe Text)
-lsNextToken = lens _lsNextToken (\ s a -> s{_lsNextToken = a});
+lsNextToken = lens _lsNextToken (\ s a -> s{_lsNextToken = a})
 
 instance AWSPager ListSubscriptions where
         page rq rs
@@ -134,22 +134,22 @@
     -> ListSubscriptionsResponse
 listSubscriptionsResponse pResponseStatus_ =
   ListSubscriptionsResponse'
-  { _lsrsNextToken = Nothing
-  , _lsrsSubscriptions = Nothing
-  , _lsrsResponseStatus = pResponseStatus_
-  }
+    { _lsrsNextToken = Nothing
+    , _lsrsSubscriptions = Nothing
+    , _lsrsResponseStatus = pResponseStatus_
+    }
 
 
 -- | Token to pass along to the next @ListSubscriptions@ request. This element is returned if there are more subscriptions to retrieve.
 lsrsNextToken :: Lens' ListSubscriptionsResponse (Maybe Text)
-lsrsNextToken = lens _lsrsNextToken (\ s a -> s{_lsrsNextToken = a});
+lsrsNextToken = lens _lsrsNextToken (\ s a -> s{_lsrsNextToken = a})
 
 -- | A list of subscriptions.
 lsrsSubscriptions :: Lens' ListSubscriptionsResponse [Subscription]
-lsrsSubscriptions = lens _lsrsSubscriptions (\ s a -> s{_lsrsSubscriptions = a}) . _Default . _Coerce;
+lsrsSubscriptions = lens _lsrsSubscriptions (\ s a -> s{_lsrsSubscriptions = a}) . _Default . _Coerce
 
 -- | -- | The response status code.
 lsrsResponseStatus :: Lens' ListSubscriptionsResponse Int
-lsrsResponseStatus = lens _lsrsResponseStatus (\ s a -> s{_lsrsResponseStatus = a});
+lsrsResponseStatus = lens _lsrsResponseStatus (\ s a -> s{_lsrsResponseStatus = a})
 
 instance NFData ListSubscriptionsResponse where
diff --git a/gen/Network/AWS/SNS/ListSubscriptionsByTopic.hs b/gen/Network/AWS/SNS/ListSubscriptionsByTopic.hs
--- a/gen/Network/AWS/SNS/ListSubscriptionsByTopic.hs
+++ b/gen/Network/AWS/SNS/ListSubscriptionsByTopic.hs
@@ -12,7 +12,7 @@
 
 -- |
 -- Module      : Network.AWS.SNS.ListSubscriptionsByTopic
--- 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,16 +72,16 @@
     -> ListSubscriptionsByTopic
 listSubscriptionsByTopic pTopicARN_ =
   ListSubscriptionsByTopic'
-  {_lsbtNextToken = Nothing, _lsbtTopicARN = pTopicARN_}
+    {_lsbtNextToken = Nothing, _lsbtTopicARN = pTopicARN_}
 
 
 -- | Token returned by the previous @ListSubscriptionsByTopic@ request.
 lsbtNextToken :: Lens' ListSubscriptionsByTopic (Maybe Text)
-lsbtNextToken = lens _lsbtNextToken (\ s a -> s{_lsbtNextToken = a});
+lsbtNextToken = lens _lsbtNextToken (\ s a -> s{_lsbtNextToken = a})
 
 -- | The ARN of the topic for which you wish to find subscriptions.
 lsbtTopicARN :: Lens' ListSubscriptionsByTopic Text
-lsbtTopicARN = lens _lsbtTopicARN (\ s a -> s{_lsbtTopicARN = a});
+lsbtTopicARN = lens _lsbtTopicARN (\ s a -> s{_lsbtTopicARN = a})
 
 instance AWSPager ListSubscriptionsByTopic where
         page rq rs
@@ -148,23 +148,23 @@
     -> ListSubscriptionsByTopicResponse
 listSubscriptionsByTopicResponse pResponseStatus_ =
   ListSubscriptionsByTopicResponse'
-  { _lsbtrsNextToken = Nothing
-  , _lsbtrsSubscriptions = Nothing
-  , _lsbtrsResponseStatus = pResponseStatus_
-  }
+    { _lsbtrsNextToken = Nothing
+    , _lsbtrsSubscriptions = Nothing
+    , _lsbtrsResponseStatus = pResponseStatus_
+    }
 
 
 -- | Token to pass along to the next @ListSubscriptionsByTopic@ request. This element is returned if there are more subscriptions to retrieve.
 lsbtrsNextToken :: Lens' ListSubscriptionsByTopicResponse (Maybe Text)
-lsbtrsNextToken = lens _lsbtrsNextToken (\ s a -> s{_lsbtrsNextToken = a});
+lsbtrsNextToken = lens _lsbtrsNextToken (\ s a -> s{_lsbtrsNextToken = a})
 
 -- | A list of subscriptions.
 lsbtrsSubscriptions :: Lens' ListSubscriptionsByTopicResponse [Subscription]
-lsbtrsSubscriptions = lens _lsbtrsSubscriptions (\ s a -> s{_lsbtrsSubscriptions = a}) . _Default . _Coerce;
+lsbtrsSubscriptions = lens _lsbtrsSubscriptions (\ s a -> s{_lsbtrsSubscriptions = a}) . _Default . _Coerce
 
 -- | -- | The response status code.
 lsbtrsResponseStatus :: Lens' ListSubscriptionsByTopicResponse Int
-lsbtrsResponseStatus = lens _lsbtrsResponseStatus (\ s a -> s{_lsbtrsResponseStatus = a});
+lsbtrsResponseStatus = lens _lsbtrsResponseStatus (\ s a -> s{_lsbtrsResponseStatus = a})
 
 instance NFData ListSubscriptionsByTopicResponse
          where
diff --git a/gen/Network/AWS/SNS/ListTopics.hs b/gen/Network/AWS/SNS/ListTopics.hs
--- a/gen/Network/AWS/SNS/ListTopics.hs
+++ b/gen/Network/AWS/SNS/ListTopics.hs
@@ -12,7 +12,7 @@
 
 -- |
 -- Module      : Network.AWS.SNS.ListTopics
--- 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
@@ -66,7 +66,7 @@
 
 -- | Token returned by the previous @ListTopics@ request.
 ltNextToken :: Lens' ListTopics (Maybe Text)
-ltNextToken = lens _ltNextToken (\ s a -> s{_ltNextToken = a});
+ltNextToken = lens _ltNextToken (\ s a -> s{_ltNextToken = a})
 
 instance AWSPager ListTopics where
         page rq rs
@@ -130,22 +130,22 @@
     -> ListTopicsResponse
 listTopicsResponse pResponseStatus_ =
   ListTopicsResponse'
-  { _ltrsTopics = Nothing
-  , _ltrsNextToken = Nothing
-  , _ltrsResponseStatus = pResponseStatus_
-  }
+    { _ltrsTopics = Nothing
+    , _ltrsNextToken = Nothing
+    , _ltrsResponseStatus = pResponseStatus_
+    }
 
 
 -- | A list of topic ARNs.
 ltrsTopics :: Lens' ListTopicsResponse [Topic]
-ltrsTopics = lens _ltrsTopics (\ s a -> s{_ltrsTopics = a}) . _Default . _Coerce;
+ltrsTopics = lens _ltrsTopics (\ s a -> s{_ltrsTopics = a}) . _Default . _Coerce
 
 -- | Token to pass along to the next @ListTopics@ request. This element is returned if there are additional topics to retrieve.
 ltrsNextToken :: Lens' ListTopicsResponse (Maybe Text)
-ltrsNextToken = lens _ltrsNextToken (\ s a -> s{_ltrsNextToken = a});
+ltrsNextToken = lens _ltrsNextToken (\ s a -> s{_ltrsNextToken = a})
 
 -- | -- | The response status code.
 ltrsResponseStatus :: Lens' ListTopicsResponse Int
-ltrsResponseStatus = lens _ltrsResponseStatus (\ s a -> s{_ltrsResponseStatus = a});
+ltrsResponseStatus = lens _ltrsResponseStatus (\ s a -> s{_ltrsResponseStatus = a})
 
 instance NFData ListTopicsResponse where
diff --git a/gen/Network/AWS/SNS/OptInPhoneNumber.hs b/gen/Network/AWS/SNS/OptInPhoneNumber.hs
--- a/gen/Network/AWS/SNS/OptInPhoneNumber.hs
+++ b/gen/Network/AWS/SNS/OptInPhoneNumber.hs
@@ -12,7 +12,7 @@
 
 -- |
 -- Module      : Network.AWS.SNS.OptInPhoneNumber
--- 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,7 +69,7 @@
 
 -- | The phone number to opt in.
 oipnPhoneNumber :: Lens' OptInPhoneNumber Text
-oipnPhoneNumber = lens _oipnPhoneNumber (\ s a -> s{_oipnPhoneNumber = a});
+oipnPhoneNumber = lens _oipnPhoneNumber (\ s a -> s{_oipnPhoneNumber = a})
 
 instance AWSRequest OptInPhoneNumber where
         type Rs OptInPhoneNumber = OptInPhoneNumberResponse
@@ -120,6 +120,6 @@
 
 -- | -- | The response status code.
 oipnrsResponseStatus :: Lens' OptInPhoneNumberResponse Int
-oipnrsResponseStatus = lens _oipnrsResponseStatus (\ s a -> s{_oipnrsResponseStatus = a});
+oipnrsResponseStatus = lens _oipnrsResponseStatus (\ s a -> s{_oipnrsResponseStatus = a})
 
 instance NFData OptInPhoneNumberResponse where
diff --git a/gen/Network/AWS/SNS/Publish.hs b/gen/Network/AWS/SNS/Publish.hs
--- a/gen/Network/AWS/SNS/Publish.hs
+++ b/gen/Network/AWS/SNS/Publish.hs
@@ -12,7 +12,7 @@
 
 -- |
 -- Module      : Network.AWS.SNS.Publish
--- 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
@@ -92,43 +92,43 @@
     -> Publish
 publish pMessage_ =
   Publish'
-  { _pSubject = Nothing
-  , _pTargetARN = Nothing
-  , _pMessageAttributes = Nothing
-  , _pTopicARN = Nothing
-  , _pPhoneNumber = Nothing
-  , _pMessageStructure = Nothing
-  , _pMessage = pMessage_
-  }
+    { _pSubject = Nothing
+    , _pTargetARN = Nothing
+    , _pMessageAttributes = Nothing
+    , _pTopicARN = Nothing
+    , _pPhoneNumber = Nothing
+    , _pMessageStructure = Nothing
+    , _pMessage = pMessage_
+    }
 
 
 -- | Optional parameter to be used as the "Subject" line when the message is delivered to email endpoints. This field will also be included, if present, in the standard JSON messages delivered to other endpoints. Constraints: Subjects must be ASCII text that begins with a letter, number, or punctuation mark; must not include line breaks or control characters; and must be less than 100 characters long.
 pSubject :: Lens' Publish (Maybe Text)
-pSubject = lens _pSubject (\ s a -> s{_pSubject = a});
+pSubject = lens _pSubject (\ s a -> s{_pSubject = a})
 
 -- | Either TopicArn or EndpointArn, but not both. If you don't specify a value for the @TargetArn@ parameter, you must specify a value for the @PhoneNumber@ or @TopicArn@ parameters.
 pTargetARN :: Lens' Publish (Maybe Text)
-pTargetARN = lens _pTargetARN (\ s a -> s{_pTargetARN = a});
+pTargetARN = lens _pTargetARN (\ s a -> s{_pTargetARN = a})
 
 -- | Message attributes for Publish action.
 pMessageAttributes :: Lens' Publish (HashMap Text MessageAttributeValue)
-pMessageAttributes = lens _pMessageAttributes (\ s a -> s{_pMessageAttributes = a}) . _Default . _Map;
+pMessageAttributes = lens _pMessageAttributes (\ s a -> s{_pMessageAttributes = a}) . _Default . _Map
 
 -- | The topic you want to publish to. If you don't specify a value for the @TopicArn@ parameter, you must specify a value for the @PhoneNumber@ or @TargetArn@ parameters.
 pTopicARN :: Lens' Publish (Maybe Text)
-pTopicARN = lens _pTopicARN (\ s a -> s{_pTopicARN = a});
+pTopicARN = lens _pTopicARN (\ s a -> s{_pTopicARN = a})
 
 -- | The phone number to which you want to deliver an SMS message. Use E.164 format. If you don't specify a value for the @PhoneNumber@ parameter, you must specify a value for the @TargetArn@ or @TopicArn@ parameters.
 pPhoneNumber :: Lens' Publish (Maybe Text)
-pPhoneNumber = lens _pPhoneNumber (\ s a -> s{_pPhoneNumber = a});
+pPhoneNumber = lens _pPhoneNumber (\ s a -> s{_pPhoneNumber = a})
 
 -- | Set @MessageStructure@ to @json@ if you want to send a different message for each protocol. For example, using one publish action, you can send a short message to your SMS subscribers and a longer message to your email subscribers. If you set @MessageStructure@ to @json@ , the value of the @Message@ parameter must:      * be a syntactically valid JSON object; and     * contain at least a top-level JSON key of "default" with a value that is a string. You can define other top-level keys that define the message you want to send to a specific transport protocol (e.g., "http"). For information about sending different messages for each protocol using the AWS Management Console, go to <http://docs.aws.amazon.com/sns/latest/gsg/Publish.html#sns-message-formatting-by-protocol Create Different Messages for Each Protocol> in the /Amazon Simple Notification Service Getting Started Guide/ .  Valid value: @json@
 pMessageStructure :: Lens' Publish (Maybe Text)
-pMessageStructure = lens _pMessageStructure (\ s a -> s{_pMessageStructure = a});
+pMessageStructure = lens _pMessageStructure (\ s a -> s{_pMessageStructure = a})
 
 -- | The message you want to send to the topic. If you want to send the same message to all transport protocols, include the text of the message as a String value. If you want to send different messages for each transport protocol, set the value of the @MessageStructure@ parameter to @json@ and use a JSON object for the @Message@ parameter.  Constraints: Messages must be UTF-8 encoded strings at most 256 KB in size (262144 bytes, not 262144 characters). JSON-specific constraints:     * Keys in the JSON object that correspond to supported transport protocols must have simple JSON string values.     * The values will be parsed (unescaped) before they are used in outgoing messages.     * Outbound notifications are JSON encoded (meaning that the characters will be reescaped for sending).     * Values have a minimum length of 0 (the empty string, "", is allowed).     * Values have a maximum length bounded by the overall message size (so, including multiple protocols may limit message sizes).     * Non-string values will cause the key to be ignored.     * Keys that do not correspond to supported transport protocols are ignored.     * Duplicate keys are not allowed.     * Failure to parse or validate any key or value in the message will cause the @Publish@ call to return an error (no partial delivery).
 pMessage :: Lens' Publish Text
-pMessage = lens _pMessage (\ s a -> s{_pMessage = a});
+pMessage = lens _pMessage (\ s a -> s{_pMessage = a})
 
 instance AWSRequest Publish where
         type Rs Publish = PublishResponse
@@ -187,15 +187,15 @@
     -> PublishResponse
 publishResponse pResponseStatus_ =
   PublishResponse'
-  {_prsMessageId = Nothing, _prsResponseStatus = pResponseStatus_}
+    {_prsMessageId = Nothing, _prsResponseStatus = pResponseStatus_}
 
 
 -- | Unique identifier assigned to the published message. Length Constraint: Maximum 100 characters
 prsMessageId :: Lens' PublishResponse (Maybe Text)
-prsMessageId = lens _prsMessageId (\ s a -> s{_prsMessageId = a});
+prsMessageId = lens _prsMessageId (\ s a -> s{_prsMessageId = a})
 
 -- | -- | The response status code.
 prsResponseStatus :: Lens' PublishResponse Int
-prsResponseStatus = lens _prsResponseStatus (\ s a -> s{_prsResponseStatus = a});
+prsResponseStatus = lens _prsResponseStatus (\ s a -> s{_prsResponseStatus = a})
 
 instance NFData PublishResponse where
diff --git a/gen/Network/AWS/SNS/RemovePermission.hs b/gen/Network/AWS/SNS/RemovePermission.hs
--- a/gen/Network/AWS/SNS/RemovePermission.hs
+++ b/gen/Network/AWS/SNS/RemovePermission.hs
@@ -12,7 +12,7 @@
 
 -- |
 -- Module      : Network.AWS.SNS.RemovePermission
--- 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,11 +70,11 @@
 
 -- | The ARN of the topic whose access control policy you wish to modify.
 rpTopicARN :: Lens' RemovePermission Text
-rpTopicARN = lens _rpTopicARN (\ s a -> s{_rpTopicARN = a});
+rpTopicARN = lens _rpTopicARN (\ s a -> s{_rpTopicARN = a})
 
 -- | The unique label of the statement you want to remove.
 rpLabel :: Lens' RemovePermission Text
-rpLabel = lens _rpLabel (\ s a -> s{_rpLabel = a});
+rpLabel = lens _rpLabel (\ s a -> s{_rpLabel = a})
 
 instance AWSRequest RemovePermission where
         type Rs RemovePermission = RemovePermissionResponse
diff --git a/gen/Network/AWS/SNS/SetEndpointAttributes.hs b/gen/Network/AWS/SNS/SetEndpointAttributes.hs
--- a/gen/Network/AWS/SNS/SetEndpointAttributes.hs
+++ b/gen/Network/AWS/SNS/SetEndpointAttributes.hs
@@ -12,7 +12,7 @@
 
 -- |
 -- Module      : Network.AWS.SNS.SetEndpointAttributes
--- 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
@@ -65,16 +65,16 @@
     -> SetEndpointAttributes
 setEndpointAttributes pEndpointARN_ =
   SetEndpointAttributes'
-  {_seaEndpointARN = pEndpointARN_, _seaAttributes = mempty}
+    {_seaEndpointARN = pEndpointARN_, _seaAttributes = mempty}
 
 
 -- | EndpointArn used for SetEndpointAttributes action.
 seaEndpointARN :: Lens' SetEndpointAttributes Text
-seaEndpointARN = lens _seaEndpointARN (\ s a -> s{_seaEndpointARN = a});
+seaEndpointARN = lens _seaEndpointARN (\ s a -> s{_seaEndpointARN = a})
 
 -- | A map of the endpoint attributes. Attributes in this map include the following:     * @CustomUserData@ -- arbitrary user data to associate with the endpoint. Amazon SNS does not use this data. The data must be in UTF-8 format and less than 2KB.     * @Enabled@ -- flag that enables/disables delivery to the endpoint. Amazon SNS will set this to false when a notification service indicates to Amazon SNS that the endpoint is invalid. Users can set it back to true, typically after updating Token.     * @Token@ -- device token, also referred to as a registration id, for an app and mobile device. This is returned from the notification service when an app and mobile device are registered with the notification service.
 seaAttributes :: Lens' SetEndpointAttributes (HashMap Text Text)
-seaAttributes = lens _seaAttributes (\ s a -> s{_seaAttributes = a}) . _Map;
+seaAttributes = lens _seaAttributes (\ s a -> s{_seaAttributes = a}) . _Map
 
 instance AWSRequest SetEndpointAttributes where
         type Rs SetEndpointAttributes =
diff --git a/gen/Network/AWS/SNS/SetPlatformApplicationAttributes.hs b/gen/Network/AWS/SNS/SetPlatformApplicationAttributes.hs
--- a/gen/Network/AWS/SNS/SetPlatformApplicationAttributes.hs
+++ b/gen/Network/AWS/SNS/SetPlatformApplicationAttributes.hs
@@ -12,7 +12,7 @@
 
 -- |
 -- Module      : Network.AWS.SNS.SetPlatformApplicationAttributes
--- 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
@@ -65,18 +65,18 @@
     -> SetPlatformApplicationAttributes
 setPlatformApplicationAttributes pPlatformApplicationARN_ =
   SetPlatformApplicationAttributes'
-  { _spaaPlatformApplicationARN = pPlatformApplicationARN_
-  , _spaaAttributes = mempty
-  }
+    { _spaaPlatformApplicationARN = pPlatformApplicationARN_
+    , _spaaAttributes = mempty
+    }
 
 
 -- | PlatformApplicationArn for SetPlatformApplicationAttributes action.
 spaaPlatformApplicationARN :: Lens' SetPlatformApplicationAttributes Text
-spaaPlatformApplicationARN = lens _spaaPlatformApplicationARN (\ s a -> s{_spaaPlatformApplicationARN = a});
+spaaPlatformApplicationARN = lens _spaaPlatformApplicationARN (\ s a -> s{_spaaPlatformApplicationARN = a})
 
 -- | A map of the platform application attributes. Attributes in this map include the following:     * @PlatformCredential@ -- The credential received from the notification service. For APNS/APNS_SANDBOX, PlatformCredential is private key. For GCM, PlatformCredential is "API key". For ADM, PlatformCredential is "client secret".     * @PlatformPrincipal@ -- The principal received from the notification service. For APNS/APNS_SANDBOX, PlatformPrincipal is SSL certificate. For GCM, PlatformPrincipal is not applicable. For ADM, PlatformPrincipal is "client id".     * @EventEndpointCreated@ -- Topic ARN to which EndpointCreated event notifications should be sent.     * @EventEndpointDeleted@ -- Topic ARN to which EndpointDeleted event notifications should be sent.     * @EventEndpointUpdated@ -- Topic ARN to which EndpointUpdate event notifications should be sent.     * @EventDeliveryFailure@ -- Topic ARN to which DeliveryFailure event notifications should be sent upon Direct Publish delivery failure (permanent) to one of the application's endpoints.     * @SuccessFeedbackRoleArn@ -- IAM role ARN used to give Amazon SNS write access to use CloudWatch Logs on your behalf.     * @FailureFeedbackRoleArn@ -- IAM role ARN used to give Amazon SNS write access to use CloudWatch Logs on your behalf.     * @SuccessFeedbackSampleRate@ -- Sample rate percentage (0-100) of successfully delivered messages.
 spaaAttributes :: Lens' SetPlatformApplicationAttributes (HashMap Text Text)
-spaaAttributes = lens _spaaAttributes (\ s a -> s{_spaaAttributes = a}) . _Map;
+spaaAttributes = lens _spaaAttributes (\ s a -> s{_spaaAttributes = a}) . _Map
 
 instance AWSRequest SetPlatformApplicationAttributes
          where
diff --git a/gen/Network/AWS/SNS/SetSMSAttributes.hs b/gen/Network/AWS/SNS/SetSMSAttributes.hs
--- a/gen/Network/AWS/SNS/SetSMSAttributes.hs
+++ b/gen/Network/AWS/SNS/SetSMSAttributes.hs
@@ -12,7 +12,7 @@
 
 -- |
 -- Module      : Network.AWS.SNS.SetSMSAttributes
--- 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
@@ -67,7 +67,7 @@
 
 -- | The default settings for sending SMS messages from your account. You can set values for the following attribute names: @MonthlySpendLimit@ – The maximum amount in USD that you are willing to spend each month to send SMS messages. When Amazon SNS determines that sending an SMS message would incur a cost that exceeds this limit, it stops sending SMS messages within minutes. /Important:/ Amazon SNS stops sending SMS messages within minutes of the limit being crossed. During that interval, if you continue to send SMS messages, you will incur costs that exceed your limit. By default, the spend limit is set to the maximum allowed by Amazon SNS. If you want to exceed the maximum, contact <https://aws.amazon.com/premiumsupport/ AWS Support> or your AWS sales representative for a service limit increase. @DeliveryStatusIAMRole@ – The ARN of the IAM role that allows Amazon SNS to write logs about SMS deliveries in CloudWatch Logs. For each SMS message that you send, Amazon SNS writes a log that includes the message price, the success or failure status, the reason for failure (if the message failed), the message dwell time, and other information. @DeliveryStatusSuccessSamplingRate@ – The percentage of successful SMS deliveries for which Amazon SNS will write logs in CloudWatch Logs. The value can be an integer from 0 - 100. For example, to write logs only for failed deliveries, set this value to @0@ . To write logs for 10% of your successful deliveries, set it to @10@ . @DefaultSenderID@ – A string, such as your business brand, that is displayed as the sender on the receiving device. Support for sender IDs varies by country. The sender ID can be 1 - 11 alphanumeric characters, and it must contain at least one letter. @DefaultSMSType@ – The type of SMS message that you will send by default. You can assign the following values:     * @Promotional@ – (Default) Noncritical messages, such as marketing messages. Amazon SNS optimizes the message delivery to incur the lowest cost.     * @Transactional@ – Critical messages that support customer transactions, such as one-time passcodes for multi-factor authentication. Amazon SNS optimizes the message delivery to achieve the highest reliability. @UsageReportS3Bucket@ – The name of the Amazon S3 bucket to receive daily SMS usage reports from Amazon SNS. Each day, Amazon SNS will deliver a usage report as a CSV file to the bucket. The report includes the following information for each SMS message that was successfully delivered by your account:     * Time that the message was published (in UTC)     * Message ID     * Destination phone number     * Message type     * Delivery status     * Message price (in USD)     * Part number (a message is split into multiple parts if it is too long for a single message)     * Total number of parts To receive the report, the bucket must have a policy that allows the Amazon SNS service principle to perform the @s3:PutObject@ and @s3:GetBucketLocation@ actions. For an example bucket policy and usage report, see <http://docs.aws.amazon.com/sns/latest/dg/sms_stats.html Monitoring SMS Activity> in the /Amazon SNS Developer Guide/ .
 ssmsaAttributes :: Lens' SetSMSAttributes (HashMap Text Text)
-ssmsaAttributes = lens _ssmsaAttributes (\ s a -> s{_ssmsaAttributes = a}) . _Map;
+ssmsaAttributes = lens _ssmsaAttributes (\ s a -> s{_ssmsaAttributes = a}) . _Map
 
 instance AWSRequest SetSMSAttributes where
         type Rs SetSMSAttributes = SetSMSAttributesResponse
@@ -119,6 +119,6 @@
 
 -- | -- | The response status code.
 ssmsarsResponseStatus :: Lens' SetSMSAttributesResponse Int
-ssmsarsResponseStatus = lens _ssmsarsResponseStatus (\ s a -> s{_ssmsarsResponseStatus = a});
+ssmsarsResponseStatus = lens _ssmsarsResponseStatus (\ s a -> s{_ssmsarsResponseStatus = a})
 
 instance NFData SetSMSAttributesResponse where
diff --git a/gen/Network/AWS/SNS/SetSubscriptionAttributes.hs b/gen/Network/AWS/SNS/SetSubscriptionAttributes.hs
--- a/gen/Network/AWS/SNS/SetSubscriptionAttributes.hs
+++ b/gen/Network/AWS/SNS/SetSubscriptionAttributes.hs
@@ -12,7 +12,7 @@
 
 -- |
 -- Module      : Network.AWS.SNS.SetSubscriptionAttributes
--- 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,23 +70,23 @@
     -> SetSubscriptionAttributes
 setSubscriptionAttributes pSubscriptionARN_ pAttributeName_ =
   SetSubscriptionAttributes'
-  { _ssaAttributeValue = Nothing
-  , _ssaSubscriptionARN = pSubscriptionARN_
-  , _ssaAttributeName = pAttributeName_
-  }
+    { _ssaAttributeValue = Nothing
+    , _ssaSubscriptionARN = pSubscriptionARN_
+    , _ssaAttributeName = pAttributeName_
+    }
 
 
 -- | The new value for the attribute in JSON format.
 ssaAttributeValue :: Lens' SetSubscriptionAttributes (Maybe Text)
-ssaAttributeValue = lens _ssaAttributeValue (\ s a -> s{_ssaAttributeValue = a});
+ssaAttributeValue = lens _ssaAttributeValue (\ s a -> s{_ssaAttributeValue = a})
 
 -- | The ARN of the subscription to modify.
 ssaSubscriptionARN :: Lens' SetSubscriptionAttributes Text
-ssaSubscriptionARN = lens _ssaSubscriptionARN (\ s a -> s{_ssaSubscriptionARN = a});
+ssaSubscriptionARN = lens _ssaSubscriptionARN (\ s a -> s{_ssaSubscriptionARN = a})
 
 -- | The name of the attribute you want to set. Only a subset of the subscriptions attributes are mutable. Valid values: @DeliveryPolicy@ | @RawMessageDelivery@
 ssaAttributeName :: Lens' SetSubscriptionAttributes Text
-ssaAttributeName = lens _ssaAttributeName (\ s a -> s{_ssaAttributeName = a});
+ssaAttributeName = lens _ssaAttributeName (\ s a -> s{_ssaAttributeName = a})
 
 instance AWSRequest SetSubscriptionAttributes where
         type Rs SetSubscriptionAttributes =
diff --git a/gen/Network/AWS/SNS/SetTopicAttributes.hs b/gen/Network/AWS/SNS/SetTopicAttributes.hs
--- a/gen/Network/AWS/SNS/SetTopicAttributes.hs
+++ b/gen/Network/AWS/SNS/SetTopicAttributes.hs
@@ -12,7 +12,7 @@
 
 -- |
 -- Module      : Network.AWS.SNS.SetTopicAttributes
--- 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,23 +70,23 @@
     -> SetTopicAttributes
 setTopicAttributes pTopicARN_ pAttributeName_ =
   SetTopicAttributes'
-  { _staAttributeValue = Nothing
-  , _staTopicARN = pTopicARN_
-  , _staAttributeName = pAttributeName_
-  }
+    { _staAttributeValue = Nothing
+    , _staTopicARN = pTopicARN_
+    , _staAttributeName = pAttributeName_
+    }
 
 
 -- | The new value for the attribute.
 staAttributeValue :: Lens' SetTopicAttributes (Maybe Text)
-staAttributeValue = lens _staAttributeValue (\ s a -> s{_staAttributeValue = a});
+staAttributeValue = lens _staAttributeValue (\ s a -> s{_staAttributeValue = a})
 
 -- | The ARN of the topic to modify.
 staTopicARN :: Lens' SetTopicAttributes Text
-staTopicARN = lens _staTopicARN (\ s a -> s{_staTopicARN = a});
+staTopicARN = lens _staTopicARN (\ s a -> s{_staTopicARN = a})
 
 -- | The name of the attribute you want to set. Only a subset of the topic's attributes are mutable. Valid values: @Policy@ | @DisplayName@ | @DeliveryPolicy@
 staAttributeName :: Lens' SetTopicAttributes Text
-staAttributeName = lens _staAttributeName (\ s a -> s{_staAttributeName = a});
+staAttributeName = lens _staAttributeName (\ s a -> s{_staAttributeName = a})
 
 instance AWSRequest SetTopicAttributes where
         type Rs SetTopicAttributes =
diff --git a/gen/Network/AWS/SNS/Subscribe.hs b/gen/Network/AWS/SNS/Subscribe.hs
--- a/gen/Network/AWS/SNS/Subscribe.hs
+++ b/gen/Network/AWS/SNS/Subscribe.hs
@@ -12,7 +12,7 @@
 
 -- |
 -- Module      : Network.AWS.SNS.Subscribe
--- 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
@@ -73,20 +73,23 @@
     -> Subscribe
 subscribe pTopicARN_ pProtocol_ =
   Subscribe'
-  {_subEndpoint = Nothing, _subTopicARN = pTopicARN_, _subProtocol = pProtocol_}
+    { _subEndpoint = Nothing
+    , _subTopicARN = pTopicARN_
+    , _subProtocol = pProtocol_
+    }
 
 
 -- | The endpoint that you want to receive notifications. Endpoints vary by protocol:     * For the @http@ protocol, the endpoint is an URL beginning with "http://"     * For the @https@ protocol, the endpoint is a URL beginning with "https://"     * For the @email@ protocol, the endpoint is an email address     * For the @email-json@ protocol, the endpoint is an email address     * For the @sms@ protocol, the endpoint is a phone number of an SMS-enabled device     * For the @sqs@ protocol, the endpoint is the ARN of an Amazon SQS queue     * For the @application@ protocol, the endpoint is the EndpointArn of a mobile app and device.     * For the @lambda@ protocol, the endpoint is the ARN of an AWS Lambda function.
 subEndpoint :: Lens' Subscribe (Maybe Text)
-subEndpoint = lens _subEndpoint (\ s a -> s{_subEndpoint = a});
+subEndpoint = lens _subEndpoint (\ s a -> s{_subEndpoint = a})
 
 -- | The ARN of the topic you want to subscribe to.
 subTopicARN :: Lens' Subscribe Text
-subTopicARN = lens _subTopicARN (\ s a -> s{_subTopicARN = a});
+subTopicARN = lens _subTopicARN (\ s a -> s{_subTopicARN = a})
 
 -- | The protocol you want to use. Supported protocols include:     * @http@ -- delivery of JSON-encoded message via HTTP POST     * @https@ -- delivery of JSON-encoded message via HTTPS POST     * @email@ -- delivery of message via SMTP     * @email-json@ -- delivery of JSON-encoded message via SMTP     * @sms@ -- delivery of message via SMS     * @sqs@ -- delivery of JSON-encoded message to an Amazon SQS queue     * @application@ -- delivery of JSON-encoded message to an EndpointArn for a mobile app and device.     * @lambda@ -- delivery of JSON-encoded message to an AWS Lambda function.
 subProtocol :: Lens' Subscribe Text
-subProtocol = lens _subProtocol (\ s a -> s{_subProtocol = a});
+subProtocol = lens _subProtocol (\ s a -> s{_subProtocol = a})
 
 instance AWSRequest Subscribe where
         type Rs Subscribe = SubscribeResponse
@@ -139,15 +142,15 @@
     -> SubscribeResponse
 subscribeResponse pResponseStatus_ =
   SubscribeResponse'
-  {_srsSubscriptionARN = Nothing, _srsResponseStatus = pResponseStatus_}
+    {_srsSubscriptionARN = Nothing, _srsResponseStatus = pResponseStatus_}
 
 
 -- | The ARN of the subscription, if the service was able to create a subscription immediately (without requiring endpoint owner confirmation).
 srsSubscriptionARN :: Lens' SubscribeResponse (Maybe Text)
-srsSubscriptionARN = lens _srsSubscriptionARN (\ s a -> s{_srsSubscriptionARN = a});
+srsSubscriptionARN = lens _srsSubscriptionARN (\ s a -> s{_srsSubscriptionARN = a})
 
 -- | -- | The response status code.
 srsResponseStatus :: Lens' SubscribeResponse Int
-srsResponseStatus = lens _srsResponseStatus (\ s a -> s{_srsResponseStatus = a});
+srsResponseStatus = lens _srsResponseStatus (\ s a -> s{_srsResponseStatus = a})
 
 instance NFData SubscribeResponse where
diff --git a/gen/Network/AWS/SNS/Types.hs b/gen/Network/AWS/SNS/Types.hs
--- a/gen/Network/AWS/SNS/Types.hs
+++ b/gen/Network/AWS/SNS/Types.hs
@@ -4,7 +4,7 @@
 
 -- |
 -- Module      : Network.AWS.SNS.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
@@ -71,24 +71,24 @@
 sns :: Service
 sns =
   Service
-  { _svcAbbrev = "SNS"
-  , _svcSigner = v4
-  , _svcPrefix = "sns"
-  , _svcVersion = "2010-03-31"
-  , _svcEndpoint = defaultEndpoint sns
-  , _svcTimeout = Just 70
-  , _svcCheck = statusSuccess
-  , _svcError = parseXMLError "SNS"
-  , _svcRetry = retry
-  }
+    { _svcAbbrev = "SNS"
+    , _svcSigner = v4
+    , _svcPrefix = "sns"
+    , _svcVersion = "2010-03-31"
+    , _svcEndpoint = defaultEndpoint sns
+    , _svcTimeout = Just 70
+    , _svcCheck = statusSuccess
+    , _svcError = parseXMLError "SNS"
+    , _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"
@@ -97,6 +97,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/SNS/Types/Product.hs b/gen/Network/AWS/SNS/Types/Product.hs
--- a/gen/Network/AWS/SNS/Types/Product.hs
+++ b/gen/Network/AWS/SNS/Types/Product.hs
@@ -9,7 +9,7 @@
 
 -- |
 -- Module      : Network.AWS.SNS.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
@@ -46,11 +46,11 @@
 
 -- | Attributes for endpoint.
 eAttributes :: Lens' Endpoint (HashMap Text Text)
-eAttributes = lens _eAttributes (\ s a -> s{_eAttributes = a}) . _Default . _Map;
+eAttributes = lens _eAttributes (\ s a -> s{_eAttributes = a}) . _Default . _Map
 
 -- | EndpointArn for mobile app and device.
 eEndpointARN :: Lens' Endpoint (Maybe Text)
-eEndpointARN = lens _eEndpointARN (\ s a -> s{_eEndpointARN = a});
+eEndpointARN = lens _eEndpointARN (\ s a -> s{_eEndpointARN = a})
 
 instance FromXML Endpoint where
         parseXML x
@@ -91,23 +91,23 @@
     -> MessageAttributeValue
 messageAttributeValue pDataType_ =
   MessageAttributeValue'
-  { _mavBinaryValue = Nothing
-  , _mavStringValue = Nothing
-  , _mavDataType = pDataType_
-  }
+    { _mavBinaryValue = Nothing
+    , _mavStringValue = Nothing
+    , _mavDataType = pDataType_
+    }
 
 
 -- | Binary type attributes can store any binary data, for example, compressed data, encrypted data, or images.-- /Note:/ This 'Lens' automatically encodes and decodes Base64 data. The underlying isomorphism will encode to Base64 representation during serialisation, and decode from Base64 representation during deserialisation. This 'Lens' accepts and returns only raw unencoded data.
 mavBinaryValue :: Lens' MessageAttributeValue (Maybe ByteString)
-mavBinaryValue = lens _mavBinaryValue (\ s a -> s{_mavBinaryValue = a}) . mapping _Base64;
+mavBinaryValue = lens _mavBinaryValue (\ s a -> s{_mavBinaryValue = a}) . mapping _Base64
 
 -- | Strings are Unicode with UTF8 binary encoding. For a list of code values, see <http://en.wikipedia.org/wiki/ASCII#ASCII_printable_characters http://en.wikipedia.org/wiki/ASCII#ASCII_printable_characters> .
 mavStringValue :: Lens' MessageAttributeValue (Maybe Text)
-mavStringValue = lens _mavStringValue (\ s a -> s{_mavStringValue = a});
+mavStringValue = lens _mavStringValue (\ s a -> s{_mavStringValue = a})
 
 -- | Amazon SNS supports the following logical data types: String, Number, and Binary. For more information, see <http://docs.aws.amazon.com/sns/latest/dg/SNSMessageAttributes.html#SNSMessageAttributes.DataTypes Message Attribute Data Types> .
 mavDataType :: Lens' MessageAttributeValue Text
-mavDataType = lens _mavDataType (\ s a -> s{_mavDataType = a});
+mavDataType = lens _mavDataType (\ s a -> s{_mavDataType = a})
 
 instance Hashable MessageAttributeValue where
 
@@ -142,16 +142,16 @@
     :: PlatformApplication
 platformApplication =
   PlatformApplication'
-  {_paPlatformApplicationARN = Nothing, _paAttributes = Nothing}
+    {_paPlatformApplicationARN = Nothing, _paAttributes = Nothing}
 
 
 -- | PlatformApplicationArn for platform application object.
 paPlatformApplicationARN :: Lens' PlatformApplication (Maybe Text)
-paPlatformApplicationARN = lens _paPlatformApplicationARN (\ s a -> s{_paPlatformApplicationARN = a});
+paPlatformApplicationARN = lens _paPlatformApplicationARN (\ s a -> s{_paPlatformApplicationARN = a})
 
 -- | Attributes for platform application object.
 paAttributes :: Lens' PlatformApplication (HashMap Text Text)
-paAttributes = lens _paAttributes (\ s a -> s{_paAttributes = a}) . _Default . _Map;
+paAttributes = lens _paAttributes (\ s a -> s{_paAttributes = a}) . _Default . _Map
 
 instance FromXML PlatformApplication where
         parseXML x
@@ -195,33 +195,33 @@
     :: Subscription
 subscription =
   Subscription'
-  { _sProtocol = Nothing
-  , _sOwner = Nothing
-  , _sTopicARN = Nothing
-  , _sEndpoint = Nothing
-  , _sSubscriptionARN = Nothing
-  }
+    { _sProtocol = Nothing
+    , _sOwner = Nothing
+    , _sTopicARN = Nothing
+    , _sEndpoint = Nothing
+    , _sSubscriptionARN = Nothing
+    }
 
 
 -- | The subscription's protocol.
 sProtocol :: Lens' Subscription (Maybe Text)
-sProtocol = lens _sProtocol (\ s a -> s{_sProtocol = a});
+sProtocol = lens _sProtocol (\ s a -> s{_sProtocol = a})
 
 -- | The subscription's owner.
 sOwner :: Lens' Subscription (Maybe Text)
-sOwner = lens _sOwner (\ s a -> s{_sOwner = a});
+sOwner = lens _sOwner (\ s a -> s{_sOwner = a})
 
 -- | The ARN of the subscription's topic.
 sTopicARN :: Lens' Subscription (Maybe Text)
-sTopicARN = lens _sTopicARN (\ s a -> s{_sTopicARN = a});
+sTopicARN = lens _sTopicARN (\ s a -> s{_sTopicARN = a})
 
 -- | The subscription's endpoint (format depends on the protocol).
 sEndpoint :: Lens' Subscription (Maybe Text)
-sEndpoint = lens _sEndpoint (\ s a -> s{_sEndpoint = a});
+sEndpoint = lens _sEndpoint (\ s a -> s{_sEndpoint = a})
 
 -- | The subscription's ARN.
 sSubscriptionARN :: Lens' Subscription (Maybe Text)
-sSubscriptionARN = lens _sSubscriptionARN (\ s a -> s{_sSubscriptionARN = a});
+sSubscriptionARN = lens _sSubscriptionARN (\ s a -> s{_sSubscriptionARN = a})
 
 instance FromXML Subscription where
         parseXML x
@@ -257,7 +257,7 @@
 
 -- | The topic's ARN.
 tTopicARN :: Lens' Topic (Maybe Text)
-tTopicARN = lens _tTopicARN (\ s a -> s{_tTopicARN = a});
+tTopicARN = lens _tTopicARN (\ s a -> s{_tTopicARN = a})
 
 instance FromXML Topic where
         parseXML x = Topic' <$> (x .@? "TopicArn")
diff --git a/gen/Network/AWS/SNS/Types/Sum.hs b/gen/Network/AWS/SNS/Types/Sum.hs
--- a/gen/Network/AWS/SNS/Types/Sum.hs
+++ b/gen/Network/AWS/SNS/Types/Sum.hs
@@ -9,7 +9,7 @@
 
 -- |
 -- Module      : Network.AWS.SNS.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/SNS/Unsubscribe.hs b/gen/Network/AWS/SNS/Unsubscribe.hs
--- a/gen/Network/AWS/SNS/Unsubscribe.hs
+++ b/gen/Network/AWS/SNS/Unsubscribe.hs
@@ -12,7 +12,7 @@
 
 -- |
 -- Module      : Network.AWS.SNS.Unsubscribe
--- 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
@@ -65,7 +65,7 @@
 
 -- | The ARN of the subscription to be deleted.
 uSubscriptionARN :: Lens' Unsubscribe Text
-uSubscriptionARN = lens _uSubscriptionARN (\ s a -> s{_uSubscriptionARN = a});
+uSubscriptionARN = lens _uSubscriptionARN (\ s a -> s{_uSubscriptionARN = a})
 
 instance AWSRequest Unsubscribe where
         type Rs Unsubscribe = UnsubscribeResponse
diff --git a/gen/Network/AWS/SNS/Waiters.hs b/gen/Network/AWS/SNS/Waiters.hs
--- a/gen/Network/AWS/SNS/Waiters.hs
+++ b/gen/Network/AWS/SNS/Waiters.hs
@@ -7,7 +7,7 @@
 
 -- |
 -- Module      : Network.AWS.SNS.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/Gen/SNS.hs b/test/Test/AWS/Gen/SNS.hs
--- a/test/Test/AWS/Gen/SNS.hs
+++ b/test/Test/AWS/Gen/SNS.hs
@@ -5,7 +5,7 @@
 
 -- |
 -- Module      : Test.AWS.Gen.SNS
--- 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/SNS.hs b/test/Test/AWS/SNS.hs
--- a/test/Test/AWS/SNS.hs
+++ b/test/Test/AWS/SNS.hs
@@ -1,7 +1,7 @@
 {-# LANGUAGE OverloadedStrings #-}
 
 -- Module      : Test.AWS.SNS
--- 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/SNS/Internal.hs b/test/Test/AWS/SNS/Internal.hs
--- a/test/Test/AWS/SNS/Internal.hs
+++ b/test/Test/AWS/SNS/Internal.hs
@@ -2,7 +2,7 @@
 {-# OPTIONS_GHC -fno-warn-unused-imports #-}
 
 -- Module      : Test.AWS.SNS.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