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-support.cabal b/amazonka-support.cabal
--- a/amazonka-support.cabal
+++ b/amazonka-support.cabal
@@ -1,5 +1,5 @@
 name:                  amazonka-support
-version:               1.5.0
+version:               1.6.0
 synopsis:              Amazon Support 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
@@ -67,7 +67,7 @@
         , Network.AWS.Support.Types.Sum
 
     build-depends:
-          amazonka-core == 1.5.0.*
+          amazonka-core == 1.6.0.*
         , base          >= 4.7     && < 5
 
 test-suite amazonka-support-test
@@ -87,8 +87,8 @@
         , Test.AWS.Support.Internal
 
     build-depends:
-          amazonka-core == 1.5.0.*
-        , amazonka-test == 1.5.0.*
+          amazonka-core == 1.6.0.*
+        , amazonka-test == 1.6.0.*
         , amazonka-support
         , base
         , bytestring
diff --git a/gen/Network/AWS/Support.hs b/gen/Network/AWS/Support.hs
--- a/gen/Network/AWS/Support.hs
+++ b/gen/Network/AWS/Support.hs
@@ -5,7 +5,7 @@
 
 -- |
 -- Module      : Network.AWS.Support
--- 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/Support/AddAttachmentsToSet.hs b/gen/Network/AWS/Support/AddAttachmentsToSet.hs
--- a/gen/Network/AWS/Support/AddAttachmentsToSet.hs
+++ b/gen/Network/AWS/Support/AddAttachmentsToSet.hs
@@ -12,7 +12,7 @@
 
 -- |
 -- Module      : Network.AWS.Support.AddAttachmentsToSet
--- 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,16 +70,16 @@
     :: AddAttachmentsToSet
 addAttachmentsToSet =
   AddAttachmentsToSet'
-  {_aatsAttachmentSetId = Nothing, _aatsAttachments = mempty}
+    {_aatsAttachmentSetId = Nothing, _aatsAttachments = mempty}
 
 
 -- | The ID of the attachment set. If an @attachmentSetId@ is not specified, a new attachment set is created, and the ID of the set is returned in the response. If an @attachmentSetId@ is specified, the attachments are added to the specified set, if it exists.
 aatsAttachmentSetId :: Lens' AddAttachmentsToSet (Maybe Text)
-aatsAttachmentSetId = lens _aatsAttachmentSetId (\ s a -> s{_aatsAttachmentSetId = a});
+aatsAttachmentSetId = lens _aatsAttachmentSetId (\ s a -> s{_aatsAttachmentSetId = a})
 
 -- | One or more attachments to add to the set. The limit is 3 attachments per set, and the size limit is 5 MB per attachment.
 aatsAttachments :: Lens' AddAttachmentsToSet [Attachment]
-aatsAttachments = lens _aatsAttachments (\ s a -> s{_aatsAttachments = a}) . _Coerce;
+aatsAttachments = lens _aatsAttachments (\ s a -> s{_aatsAttachments = a}) . _Coerce
 
 instance AWSRequest AddAttachmentsToSet where
         type Rs AddAttachmentsToSet =
@@ -145,22 +145,22 @@
     -> AddAttachmentsToSetResponse
 addAttachmentsToSetResponse pResponseStatus_ =
   AddAttachmentsToSetResponse'
-  { _aatsrsExpiryTime = Nothing
-  , _aatsrsAttachmentSetId = Nothing
-  , _aatsrsResponseStatus = pResponseStatus_
-  }
+    { _aatsrsExpiryTime = Nothing
+    , _aatsrsAttachmentSetId = Nothing
+    , _aatsrsResponseStatus = pResponseStatus_
+    }
 
 
 -- | The time and date when the attachment set expires.
 aatsrsExpiryTime :: Lens' AddAttachmentsToSetResponse (Maybe Text)
-aatsrsExpiryTime = lens _aatsrsExpiryTime (\ s a -> s{_aatsrsExpiryTime = a});
+aatsrsExpiryTime = lens _aatsrsExpiryTime (\ s a -> s{_aatsrsExpiryTime = a})
 
 -- | The ID of the attachment set. If an @attachmentSetId@ was not specified, a new attachment set is created, and the ID of the set is returned in the response. If an @attachmentSetId@ was specified, the attachments are added to the specified set, if it exists.
 aatsrsAttachmentSetId :: Lens' AddAttachmentsToSetResponse (Maybe Text)
-aatsrsAttachmentSetId = lens _aatsrsAttachmentSetId (\ s a -> s{_aatsrsAttachmentSetId = a});
+aatsrsAttachmentSetId = lens _aatsrsAttachmentSetId (\ s a -> s{_aatsrsAttachmentSetId = a})
 
 -- | -- | The response status code.
 aatsrsResponseStatus :: Lens' AddAttachmentsToSetResponse Int
-aatsrsResponseStatus = lens _aatsrsResponseStatus (\ s a -> s{_aatsrsResponseStatus = a});
+aatsrsResponseStatus = lens _aatsrsResponseStatus (\ s a -> s{_aatsrsResponseStatus = a})
 
 instance NFData AddAttachmentsToSetResponse where
diff --git a/gen/Network/AWS/Support/AddCommunicationToCase.hs b/gen/Network/AWS/Support/AddCommunicationToCase.hs
--- a/gen/Network/AWS/Support/AddCommunicationToCase.hs
+++ b/gen/Network/AWS/Support/AddCommunicationToCase.hs
@@ -12,7 +12,7 @@
 
 -- |
 -- Module      : Network.AWS.Support.AddCommunicationToCase
--- 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 @@
     -> AddCommunicationToCase
 addCommunicationToCase pCommunicationBody_ =
   AddCommunicationToCase'
-  { _actcCaseId = Nothing
-  , _actcCcEmailAddresses = Nothing
-  , _actcAttachmentSetId = Nothing
-  , _actcCommunicationBody = pCommunicationBody_
-  }
+    { _actcCaseId = Nothing
+    , _actcCcEmailAddresses = Nothing
+    , _actcAttachmentSetId = Nothing
+    , _actcCommunicationBody = pCommunicationBody_
+    }
 
 
 -- | The AWS Support case ID requested or returned in the call. The case ID is an alphanumeric string formatted as shown in this example: case-/12345678910-2013-c4c1d2bf33c5cf47/
 actcCaseId :: Lens' AddCommunicationToCase (Maybe Text)
-actcCaseId = lens _actcCaseId (\ s a -> s{_actcCaseId = a});
+actcCaseId = lens _actcCaseId (\ s a -> s{_actcCaseId = a})
 
 -- | The email addresses in the CC line of an email to be added to the support case.
 actcCcEmailAddresses :: Lens' AddCommunicationToCase [Text]
-actcCcEmailAddresses = lens _actcCcEmailAddresses (\ s a -> s{_actcCcEmailAddresses = a}) . _Default . _Coerce;
+actcCcEmailAddresses = lens _actcCcEmailAddresses (\ s a -> s{_actcCcEmailAddresses = a}) . _Default . _Coerce
 
 -- | The ID of a set of one or more attachments for the communication to add to the case. Create the set by calling 'AddAttachmentsToSet'
 actcAttachmentSetId :: Lens' AddCommunicationToCase (Maybe Text)
-actcAttachmentSetId = lens _actcAttachmentSetId (\ s a -> s{_actcAttachmentSetId = a});
+actcAttachmentSetId = lens _actcAttachmentSetId (\ s a -> s{_actcAttachmentSetId = a})
 
 -- | The body of an email communication to add to the support case.
 actcCommunicationBody :: Lens' AddCommunicationToCase Text
-actcCommunicationBody = lens _actcCommunicationBody (\ s a -> s{_actcCommunicationBody = a});
+actcCommunicationBody = lens _actcCommunicationBody (\ s a -> s{_actcCommunicationBody = a})
 
 instance AWSRequest AddCommunicationToCase where
         type Rs AddCommunicationToCase =
@@ -166,15 +166,15 @@
     -> AddCommunicationToCaseResponse
 addCommunicationToCaseResponse pResponseStatus_ =
   AddCommunicationToCaseResponse'
-  {_actcrsResult = Nothing, _actcrsResponseStatus = pResponseStatus_}
+    {_actcrsResult = Nothing, _actcrsResponseStatus = pResponseStatus_}
 
 
 -- | True if 'AddCommunicationToCase' succeeds. Otherwise, returns an error.
 actcrsResult :: Lens' AddCommunicationToCaseResponse (Maybe Bool)
-actcrsResult = lens _actcrsResult (\ s a -> s{_actcrsResult = a});
+actcrsResult = lens _actcrsResult (\ s a -> s{_actcrsResult = a})
 
 -- | -- | The response status code.
 actcrsResponseStatus :: Lens' AddCommunicationToCaseResponse Int
-actcrsResponseStatus = lens _actcrsResponseStatus (\ s a -> s{_actcrsResponseStatus = a});
+actcrsResponseStatus = lens _actcrsResponseStatus (\ s a -> s{_actcrsResponseStatus = a})
 
 instance NFData AddCommunicationToCaseResponse where
diff --git a/gen/Network/AWS/Support/CreateCase.hs b/gen/Network/AWS/Support/CreateCase.hs
--- a/gen/Network/AWS/Support/CreateCase.hs
+++ b/gen/Network/AWS/Support/CreateCase.hs
@@ -12,7 +12,7 @@
 
 -- |
 -- Module      : Network.AWS.Support.CreateCase
--- 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
@@ -119,53 +119,53 @@
     -> CreateCase
 createCase pSubject_ pCommunicationBody_ =
   CreateCase'
-  { _ccSeverityCode = Nothing
-  , _ccIssueType = Nothing
-  , _ccCcEmailAddresses = Nothing
-  , _ccLanguage = Nothing
-  , _ccCategoryCode = Nothing
-  , _ccServiceCode = Nothing
-  , _ccAttachmentSetId = Nothing
-  , _ccSubject = pSubject_
-  , _ccCommunicationBody = pCommunicationBody_
-  }
+    { _ccSeverityCode = Nothing
+    , _ccIssueType = Nothing
+    , _ccCcEmailAddresses = Nothing
+    , _ccLanguage = Nothing
+    , _ccCategoryCode = Nothing
+    , _ccServiceCode = Nothing
+    , _ccAttachmentSetId = Nothing
+    , _ccSubject = pSubject_
+    , _ccCommunicationBody = pCommunicationBody_
+    }
 
 
 -- | The code for the severity level returned by the call to 'DescribeSeverityLevels' .
 ccSeverityCode :: Lens' CreateCase (Maybe Text)
-ccSeverityCode = lens _ccSeverityCode (\ s a -> s{_ccSeverityCode = a});
+ccSeverityCode = lens _ccSeverityCode (\ s a -> s{_ccSeverityCode = a})
 
 -- | The type of issue for the case. You can specify either "customer-service" or "technical." If you do not indicate a value, the default is "technical."
 ccIssueType :: Lens' CreateCase (Maybe Text)
-ccIssueType = lens _ccIssueType (\ s a -> s{_ccIssueType = a});
+ccIssueType = lens _ccIssueType (\ s a -> s{_ccIssueType = a})
 
 -- | A list of email addresses that AWS Support copies on case correspondence.
 ccCcEmailAddresses :: Lens' CreateCase [Text]
-ccCcEmailAddresses = lens _ccCcEmailAddresses (\ s a -> s{_ccCcEmailAddresses = a}) . _Default . _Coerce;
+ccCcEmailAddresses = lens _ccCcEmailAddresses (\ s a -> s{_ccCcEmailAddresses = a}) . _Default . _Coerce
 
 -- | The ISO 639-1 code for the language in which AWS provides support. AWS Support currently supports English ("en") and Japanese ("ja"). Language parameters must be passed explicitly for operations that take them.
 ccLanguage :: Lens' CreateCase (Maybe Text)
-ccLanguage = lens _ccLanguage (\ s a -> s{_ccLanguage = a});
+ccLanguage = lens _ccLanguage (\ s a -> s{_ccLanguage = a})
 
 -- | The category of problem for the AWS Support case.
 ccCategoryCode :: Lens' CreateCase (Maybe Text)
-ccCategoryCode = lens _ccCategoryCode (\ s a -> s{_ccCategoryCode = a});
+ccCategoryCode = lens _ccCategoryCode (\ s a -> s{_ccCategoryCode = a})
 
 -- | The code for the AWS service returned by the call to 'DescribeServices' .
 ccServiceCode :: Lens' CreateCase (Maybe Text)
-ccServiceCode = lens _ccServiceCode (\ s a -> s{_ccServiceCode = a});
+ccServiceCode = lens _ccServiceCode (\ s a -> s{_ccServiceCode = a})
 
 -- | The ID of a set of one or more attachments for the case. Create the set by using 'AddAttachmentsToSet' .
 ccAttachmentSetId :: Lens' CreateCase (Maybe Text)
-ccAttachmentSetId = lens _ccAttachmentSetId (\ s a -> s{_ccAttachmentSetId = a});
+ccAttachmentSetId = lens _ccAttachmentSetId (\ s a -> s{_ccAttachmentSetId = a})
 
 -- | The title of the AWS Support case.
 ccSubject :: Lens' CreateCase Text
-ccSubject = lens _ccSubject (\ s a -> s{_ccSubject = a});
+ccSubject = lens _ccSubject (\ s a -> s{_ccSubject = a})
 
 -- | The communication body text when you create an AWS Support case by calling 'CreateCase' .
 ccCommunicationBody :: Lens' CreateCase Text
-ccCommunicationBody = lens _ccCommunicationBody (\ s a -> s{_ccCommunicationBody = a});
+ccCommunicationBody = lens _ccCommunicationBody (\ s a -> s{_ccCommunicationBody = a})
 
 instance AWSRequest CreateCase where
         type Rs CreateCase = CreateCaseResponse
@@ -232,15 +232,15 @@
     -> CreateCaseResponse
 createCaseResponse pResponseStatus_ =
   CreateCaseResponse'
-  {_ccrsCaseId = Nothing, _ccrsResponseStatus = pResponseStatus_}
+    {_ccrsCaseId = Nothing, _ccrsResponseStatus = pResponseStatus_}
 
 
 -- | The AWS Support case ID requested or returned in the call. The case ID is an alphanumeric string formatted as shown in this example: case-/12345678910-2013-c4c1d2bf33c5cf47/
 ccrsCaseId :: Lens' CreateCaseResponse (Maybe Text)
-ccrsCaseId = lens _ccrsCaseId (\ s a -> s{_ccrsCaseId = a});
+ccrsCaseId = lens _ccrsCaseId (\ s a -> s{_ccrsCaseId = a})
 
 -- | -- | The response status code.
 ccrsResponseStatus :: Lens' CreateCaseResponse Int
-ccrsResponseStatus = lens _ccrsResponseStatus (\ s a -> s{_ccrsResponseStatus = a});
+ccrsResponseStatus = lens _ccrsResponseStatus (\ s a -> s{_ccrsResponseStatus = a})
 
 instance NFData CreateCaseResponse where
diff --git a/gen/Network/AWS/Support/DescribeAttachment.hs b/gen/Network/AWS/Support/DescribeAttachment.hs
--- a/gen/Network/AWS/Support/DescribeAttachment.hs
+++ b/gen/Network/AWS/Support/DescribeAttachment.hs
@@ -12,7 +12,7 @@
 
 -- |
 -- Module      : Network.AWS.Support.DescribeAttachment
--- 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,7 +64,7 @@
 
 -- | The ID of the attachment to return. Attachment IDs are returned by the 'DescribeCommunications' operation.
 daAttachmentId :: Lens' DescribeAttachment Text
-daAttachmentId = lens _daAttachmentId (\ s a -> s{_daAttachmentId = a});
+daAttachmentId = lens _daAttachmentId (\ s a -> s{_daAttachmentId = a})
 
 instance AWSRequest DescribeAttachment where
         type Rs DescribeAttachment =
@@ -125,15 +125,15 @@
     -> DescribeAttachmentResponse
 describeAttachmentResponse pResponseStatus_ =
   DescribeAttachmentResponse'
-  {_darsAttachment = Nothing, _darsResponseStatus = pResponseStatus_}
+    {_darsAttachment = Nothing, _darsResponseStatus = pResponseStatus_}
 
 
 -- | The attachment content and file name.
 darsAttachment :: Lens' DescribeAttachmentResponse (Maybe Attachment)
-darsAttachment = lens _darsAttachment (\ s a -> s{_darsAttachment = a});
+darsAttachment = lens _darsAttachment (\ s a -> s{_darsAttachment = a})
 
 -- | -- | The response status code.
 darsResponseStatus :: Lens' DescribeAttachmentResponse Int
-darsResponseStatus = lens _darsResponseStatus (\ s a -> s{_darsResponseStatus = a});
+darsResponseStatus = lens _darsResponseStatus (\ s a -> s{_darsResponseStatus = a})
 
 instance NFData DescribeAttachmentResponse where
diff --git a/gen/Network/AWS/Support/DescribeCases.hs b/gen/Network/AWS/Support/DescribeCases.hs
--- a/gen/Network/AWS/Support/DescribeCases.hs
+++ b/gen/Network/AWS/Support/DescribeCases.hs
@@ -12,7 +12,7 @@
 
 -- |
 -- Module      : Network.AWS.Support.DescribeCases
--- 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
@@ -109,53 +109,53 @@
     :: DescribeCases
 describeCases =
   DescribeCases'
-  { _dcIncludeResolvedCases = Nothing
-  , _dcCaseIdList = Nothing
-  , _dcAfterTime = Nothing
-  , _dcBeforeTime = Nothing
-  , _dcNextToken = Nothing
-  , _dcIncludeCommunications = Nothing
-  , _dcDisplayId = Nothing
-  , _dcLanguage = Nothing
-  , _dcMaxResults = Nothing
-  }
+    { _dcIncludeResolvedCases = Nothing
+    , _dcCaseIdList = Nothing
+    , _dcAfterTime = Nothing
+    , _dcBeforeTime = Nothing
+    , _dcNextToken = Nothing
+    , _dcIncludeCommunications = Nothing
+    , _dcDisplayId = Nothing
+    , _dcLanguage = Nothing
+    , _dcMaxResults = Nothing
+    }
 
 
 -- | Specifies whether resolved support cases should be included in the 'DescribeCases' results. The default is /false/ .
 dcIncludeResolvedCases :: Lens' DescribeCases (Maybe Bool)
-dcIncludeResolvedCases = lens _dcIncludeResolvedCases (\ s a -> s{_dcIncludeResolvedCases = a});
+dcIncludeResolvedCases = lens _dcIncludeResolvedCases (\ s a -> s{_dcIncludeResolvedCases = a})
 
 -- | A list of ID numbers of the support cases you want returned. The maximum number of cases is 100.
 dcCaseIdList :: Lens' DescribeCases [Text]
-dcCaseIdList = lens _dcCaseIdList (\ s a -> s{_dcCaseIdList = a}) . _Default . _Coerce;
+dcCaseIdList = lens _dcCaseIdList (\ s a -> s{_dcCaseIdList = a}) . _Default . _Coerce
 
 -- | The start date for a filtered date search on support case communications. Case communications are available for 12 months after creation.
 dcAfterTime :: Lens' DescribeCases (Maybe Text)
-dcAfterTime = lens _dcAfterTime (\ s a -> s{_dcAfterTime = a});
+dcAfterTime = lens _dcAfterTime (\ s a -> s{_dcAfterTime = a})
 
 -- | The end date for a filtered date search on support case communications. Case communications are available for 12 months after creation.
 dcBeforeTime :: Lens' DescribeCases (Maybe Text)
-dcBeforeTime = lens _dcBeforeTime (\ s a -> s{_dcBeforeTime = a});
+dcBeforeTime = lens _dcBeforeTime (\ s a -> s{_dcBeforeTime = a})
 
 -- | A resumption point for pagination.
 dcNextToken :: Lens' DescribeCases (Maybe Text)
-dcNextToken = lens _dcNextToken (\ s a -> s{_dcNextToken = a});
+dcNextToken = lens _dcNextToken (\ s a -> s{_dcNextToken = a})
 
 -- | Specifies whether communications should be included in the 'DescribeCases' results. The default is /true/ .
 dcIncludeCommunications :: Lens' DescribeCases (Maybe Bool)
-dcIncludeCommunications = lens _dcIncludeCommunications (\ s a -> s{_dcIncludeCommunications = a});
+dcIncludeCommunications = lens _dcIncludeCommunications (\ s a -> s{_dcIncludeCommunications = a})
 
 -- | The ID displayed for a case in the AWS Support Center user interface.
 dcDisplayId :: Lens' DescribeCases (Maybe Text)
-dcDisplayId = lens _dcDisplayId (\ s a -> s{_dcDisplayId = a});
+dcDisplayId = lens _dcDisplayId (\ s a -> s{_dcDisplayId = a})
 
 -- | The ISO 639-1 code for the language in which AWS provides support. AWS Support currently supports English ("en") and Japanese ("ja"). Language parameters must be passed explicitly for operations that take them.
 dcLanguage :: Lens' DescribeCases (Maybe Text)
-dcLanguage = lens _dcLanguage (\ s a -> s{_dcLanguage = a});
+dcLanguage = lens _dcLanguage (\ s a -> s{_dcLanguage = a})
 
 -- | The maximum number of results to return before paginating.
 dcMaxResults :: Lens' DescribeCases (Maybe Natural)
-dcMaxResults = lens _dcMaxResults (\ s a -> s{_dcMaxResults = a}) . mapping _Nat;
+dcMaxResults = lens _dcMaxResults (\ s a -> s{_dcMaxResults = a}) . mapping _Nat
 
 instance AWSPager DescribeCases where
         page rq rs
@@ -235,22 +235,22 @@
     -> DescribeCasesResponse
 describeCasesResponse pResponseStatus_ =
   DescribeCasesResponse'
-  { _drsCases = Nothing
-  , _drsNextToken = Nothing
-  , _drsResponseStatus = pResponseStatus_
-  }
+    { _drsCases = Nothing
+    , _drsNextToken = Nothing
+    , _drsResponseStatus = pResponseStatus_
+    }
 
 
 -- | The details for the cases that match the request.
 drsCases :: Lens' DescribeCasesResponse [CaseDetails]
-drsCases = lens _drsCases (\ s a -> s{_drsCases = a}) . _Default . _Coerce;
+drsCases = lens _drsCases (\ s a -> s{_drsCases = a}) . _Default . _Coerce
 
 -- | A resumption point for pagination.
 drsNextToken :: Lens' DescribeCasesResponse (Maybe Text)
-drsNextToken = lens _drsNextToken (\ s a -> s{_drsNextToken = a});
+drsNextToken = lens _drsNextToken (\ s a -> s{_drsNextToken = a})
 
 -- | -- | The response status code.
 drsResponseStatus :: Lens' DescribeCasesResponse Int
-drsResponseStatus = lens _drsResponseStatus (\ s a -> s{_drsResponseStatus = a});
+drsResponseStatus = lens _drsResponseStatus (\ s a -> s{_drsResponseStatus = a})
 
 instance NFData DescribeCasesResponse where
diff --git a/gen/Network/AWS/Support/DescribeCommunications.hs b/gen/Network/AWS/Support/DescribeCommunications.hs
--- a/gen/Network/AWS/Support/DescribeCommunications.hs
+++ b/gen/Network/AWS/Support/DescribeCommunications.hs
@@ -12,7 +12,7 @@
 
 -- |
 -- Module      : Network.AWS.Support.DescribeCommunications
--- 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
@@ -88,33 +88,33 @@
     -> DescribeCommunications
 describeCommunications pCaseId_ =
   DescribeCommunications'
-  { _dAfterTime = Nothing
-  , _dBeforeTime = Nothing
-  , _dNextToken = Nothing
-  , _dMaxResults = Nothing
-  , _dCaseId = pCaseId_
-  }
+    { _dAfterTime = Nothing
+    , _dBeforeTime = Nothing
+    , _dNextToken = Nothing
+    , _dMaxResults = Nothing
+    , _dCaseId = pCaseId_
+    }
 
 
 -- | The start date for a filtered date search on support case communications. Case communications are available for 12 months after creation.
 dAfterTime :: Lens' DescribeCommunications (Maybe Text)
-dAfterTime = lens _dAfterTime (\ s a -> s{_dAfterTime = a});
+dAfterTime = lens _dAfterTime (\ s a -> s{_dAfterTime = a})
 
 -- | The end date for a filtered date search on support case communications. Case communications are available for 12 months after creation.
 dBeforeTime :: Lens' DescribeCommunications (Maybe Text)
-dBeforeTime = lens _dBeforeTime (\ s a -> s{_dBeforeTime = a});
+dBeforeTime = lens _dBeforeTime (\ s a -> s{_dBeforeTime = a})
 
 -- | A resumption point for pagination.
 dNextToken :: Lens' DescribeCommunications (Maybe Text)
-dNextToken = lens _dNextToken (\ s a -> s{_dNextToken = a});
+dNextToken = lens _dNextToken (\ s a -> s{_dNextToken = a})
 
 -- | The maximum number of results to return before paginating.
 dMaxResults :: Lens' DescribeCommunications (Maybe Natural)
-dMaxResults = lens _dMaxResults (\ s a -> s{_dMaxResults = a}) . mapping _Nat;
+dMaxResults = lens _dMaxResults (\ s a -> s{_dMaxResults = a}) . mapping _Nat
 
 -- | The AWS Support case ID requested or returned in the call. The case ID is an alphanumeric string formatted as shown in this example: case-/12345678910-2013-c4c1d2bf33c5cf47/
 dCaseId :: Lens' DescribeCommunications Text
-dCaseId = lens _dCaseId (\ s a -> s{_dCaseId = a});
+dCaseId = lens _dCaseId (\ s a -> s{_dCaseId = a})
 
 instance AWSPager DescribeCommunications where
         page rq rs
@@ -191,22 +191,22 @@
     -> DescribeCommunicationsResponse
 describeCommunicationsResponse pResponseStatus_ =
   DescribeCommunicationsResponse'
-  { _dcrsNextToken = Nothing
-  , _dcrsCommunications = Nothing
-  , _dcrsResponseStatus = pResponseStatus_
-  }
+    { _dcrsNextToken = Nothing
+    , _dcrsCommunications = Nothing
+    , _dcrsResponseStatus = pResponseStatus_
+    }
 
 
 -- | A resumption point for pagination.
 dcrsNextToken :: Lens' DescribeCommunicationsResponse (Maybe Text)
-dcrsNextToken = lens _dcrsNextToken (\ s a -> s{_dcrsNextToken = a});
+dcrsNextToken = lens _dcrsNextToken (\ s a -> s{_dcrsNextToken = a})
 
 -- | The communications for the case.
 dcrsCommunications :: Lens' DescribeCommunicationsResponse [Communication]
-dcrsCommunications = lens _dcrsCommunications (\ s a -> s{_dcrsCommunications = a}) . _Default . _Coerce;
+dcrsCommunications = lens _dcrsCommunications (\ s a -> s{_dcrsCommunications = a}) . _Default . _Coerce
 
 -- | -- | The response status code.
 dcrsResponseStatus :: Lens' DescribeCommunicationsResponse Int
-dcrsResponseStatus = lens _dcrsResponseStatus (\ s a -> s{_dcrsResponseStatus = a});
+dcrsResponseStatus = lens _dcrsResponseStatus (\ s a -> s{_dcrsResponseStatus = a})
 
 instance NFData DescribeCommunicationsResponse where
diff --git a/gen/Network/AWS/Support/DescribeServices.hs b/gen/Network/AWS/Support/DescribeServices.hs
--- a/gen/Network/AWS/Support/DescribeServices.hs
+++ b/gen/Network/AWS/Support/DescribeServices.hs
@@ -12,7 +12,7 @@
 
 -- |
 -- Module      : Network.AWS.Support.DescribeServices
--- 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,11 +73,11 @@
 
 -- | A JSON-formatted list of service codes available for AWS services.
 dsServiceCodeList :: Lens' DescribeServices [Text]
-dsServiceCodeList = lens _dsServiceCodeList (\ s a -> s{_dsServiceCodeList = a}) . _Default . _Coerce;
+dsServiceCodeList = lens _dsServiceCodeList (\ s a -> s{_dsServiceCodeList = a}) . _Default . _Coerce
 
 -- | The ISO 639-1 code for the language in which AWS provides support. AWS Support currently supports English ("en") and Japanese ("ja"). Language parameters must be passed explicitly for operations that take them.
 dsLanguage :: Lens' DescribeServices (Maybe Text)
-dsLanguage = lens _dsLanguage (\ s a -> s{_dsLanguage = a});
+dsLanguage = lens _dsLanguage (\ s a -> s{_dsLanguage = a})
 
 instance AWSRequest DescribeServices where
         type Rs DescribeServices = DescribeServicesResponse
@@ -139,15 +139,15 @@
     -> DescribeServicesResponse
 describeServicesResponse pResponseStatus_ =
   DescribeServicesResponse'
-  {_dsrsServices = Nothing, _dsrsResponseStatus = pResponseStatus_}
+    {_dsrsServices = Nothing, _dsrsResponseStatus = pResponseStatus_}
 
 
 -- | A JSON-formatted list of AWS services.
 dsrsServices :: Lens' DescribeServicesResponse [SupportService]
-dsrsServices = lens _dsrsServices (\ s a -> s{_dsrsServices = a}) . _Default . _Coerce;
+dsrsServices = lens _dsrsServices (\ s a -> s{_dsrsServices = a}) . _Default . _Coerce
 
 -- | -- | The response status code.
 dsrsResponseStatus :: Lens' DescribeServicesResponse Int
-dsrsResponseStatus = lens _dsrsResponseStatus (\ s a -> s{_dsrsResponseStatus = a});
+dsrsResponseStatus = lens _dsrsResponseStatus (\ s a -> s{_dsrsResponseStatus = a})
 
 instance NFData DescribeServicesResponse where
diff --git a/gen/Network/AWS/Support/DescribeSeverityLevels.hs b/gen/Network/AWS/Support/DescribeSeverityLevels.hs
--- a/gen/Network/AWS/Support/DescribeSeverityLevels.hs
+++ b/gen/Network/AWS/Support/DescribeSeverityLevels.hs
@@ -12,7 +12,7 @@
 
 -- |
 -- Module      : Network.AWS.Support.DescribeSeverityLevels
--- 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 @@
 
 -- | The ISO 639-1 code for the language in which AWS provides support. AWS Support currently supports English ("en") and Japanese ("ja"). Language parameters must be passed explicitly for operations that take them.
 dslLanguage :: Lens' DescribeSeverityLevels (Maybe Text)
-dslLanguage = lens _dslLanguage (\ s a -> s{_dslLanguage = a});
+dslLanguage = lens _dslLanguage (\ s a -> s{_dslLanguage = a})
 
 instance AWSRequest DescribeSeverityLevels where
         type Rs DescribeSeverityLevels =
@@ -127,15 +127,15 @@
     -> DescribeSeverityLevelsResponse
 describeSeverityLevelsResponse pResponseStatus_ =
   DescribeSeverityLevelsResponse'
-  {_dslrsSeverityLevels = Nothing, _dslrsResponseStatus = pResponseStatus_}
+    {_dslrsSeverityLevels = Nothing, _dslrsResponseStatus = pResponseStatus_}
 
 
 -- | The available severity levels for the support case. Available severity levels are defined by your service level agreement with AWS.
 dslrsSeverityLevels :: Lens' DescribeSeverityLevelsResponse [SeverityLevel]
-dslrsSeverityLevels = lens _dslrsSeverityLevels (\ s a -> s{_dslrsSeverityLevels = a}) . _Default . _Coerce;
+dslrsSeverityLevels = lens _dslrsSeverityLevels (\ s a -> s{_dslrsSeverityLevels = a}) . _Default . _Coerce
 
 -- | -- | The response status code.
 dslrsResponseStatus :: Lens' DescribeSeverityLevelsResponse Int
-dslrsResponseStatus = lens _dslrsResponseStatus (\ s a -> s{_dslrsResponseStatus = a});
+dslrsResponseStatus = lens _dslrsResponseStatus (\ s a -> s{_dslrsResponseStatus = a})
 
 instance NFData DescribeSeverityLevelsResponse where
diff --git a/gen/Network/AWS/Support/DescribeTrustedAdvisorCheckRefreshStatuses.hs b/gen/Network/AWS/Support/DescribeTrustedAdvisorCheckRefreshStatuses.hs
--- a/gen/Network/AWS/Support/DescribeTrustedAdvisorCheckRefreshStatuses.hs
+++ b/gen/Network/AWS/Support/DescribeTrustedAdvisorCheckRefreshStatuses.hs
@@ -12,7 +12,7 @@
 
 -- |
 -- Module      : Network.AWS.Support.DescribeTrustedAdvisorCheckRefreshStatuses
--- 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 IDs of the Trusted Advisor checks to get the status of. __Note:__ Specifying the check ID of a check that is automatically refreshed causes an @InvalidParameterValue@ error.
 dtacrsCheckIds :: Lens' DescribeTrustedAdvisorCheckRefreshStatuses [Text]
-dtacrsCheckIds = lens _dtacrsCheckIds (\ s a -> s{_dtacrsCheckIds = a}) . _Coerce;
+dtacrsCheckIds = lens _dtacrsCheckIds (\ s a -> s{_dtacrsCheckIds = a}) . _Coerce
 
 instance AWSRequest
            DescribeTrustedAdvisorCheckRefreshStatuses
@@ -144,16 +144,16 @@
     -> DescribeTrustedAdvisorCheckRefreshStatusesResponse
 describeTrustedAdvisorCheckRefreshStatusesResponse pResponseStatus_ =
   DescribeTrustedAdvisorCheckRefreshStatusesResponse'
-  {_dtacrsrsResponseStatus = pResponseStatus_, _dtacrsrsStatuses = mempty}
+    {_dtacrsrsResponseStatus = pResponseStatus_, _dtacrsrsStatuses = mempty}
 
 
 -- | -- | The response status code.
 dtacrsrsResponseStatus :: Lens' DescribeTrustedAdvisorCheckRefreshStatusesResponse Int
-dtacrsrsResponseStatus = lens _dtacrsrsResponseStatus (\ s a -> s{_dtacrsrsResponseStatus = a});
+dtacrsrsResponseStatus = lens _dtacrsrsResponseStatus (\ s a -> s{_dtacrsrsResponseStatus = a})
 
 -- | The refresh status of the specified Trusted Advisor checks.
 dtacrsrsStatuses :: Lens' DescribeTrustedAdvisorCheckRefreshStatusesResponse [TrustedAdvisorCheckRefreshStatus]
-dtacrsrsStatuses = lens _dtacrsrsStatuses (\ s a -> s{_dtacrsrsStatuses = a}) . _Coerce;
+dtacrsrsStatuses = lens _dtacrsrsStatuses (\ s a -> s{_dtacrsrsStatuses = a}) . _Coerce
 
 instance NFData
            DescribeTrustedAdvisorCheckRefreshStatusesResponse
diff --git a/gen/Network/AWS/Support/DescribeTrustedAdvisorCheckResult.hs b/gen/Network/AWS/Support/DescribeTrustedAdvisorCheckResult.hs
--- a/gen/Network/AWS/Support/DescribeTrustedAdvisorCheckResult.hs
+++ b/gen/Network/AWS/Support/DescribeTrustedAdvisorCheckResult.hs
@@ -12,7 +12,7 @@
 
 -- |
 -- Module      : Network.AWS.Support.DescribeTrustedAdvisorCheckResult
--- 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
@@ -88,16 +88,16 @@
     -> DescribeTrustedAdvisorCheckResult
 describeTrustedAdvisorCheckResult pCheckId_ =
   DescribeTrustedAdvisorCheckResult'
-  {_dtacrLanguage = Nothing, _dtacrCheckId = pCheckId_}
+    {_dtacrLanguage = Nothing, _dtacrCheckId = pCheckId_}
 
 
 -- | The ISO 639-1 code for the language in which AWS provides support. AWS Support currently supports English ("en") and Japanese ("ja"). Language parameters must be passed explicitly for operations that take them.
 dtacrLanguage :: Lens' DescribeTrustedAdvisorCheckResult (Maybe Text)
-dtacrLanguage = lens _dtacrLanguage (\ s a -> s{_dtacrLanguage = a});
+dtacrLanguage = lens _dtacrLanguage (\ s a -> s{_dtacrLanguage = a})
 
 -- | The unique identifier for the Trusted Advisor check.
 dtacrCheckId :: Lens' DescribeTrustedAdvisorCheckResult Text
-dtacrCheckId = lens _dtacrCheckId (\ s a -> s{_dtacrCheckId = a});
+dtacrCheckId = lens _dtacrCheckId (\ s a -> s{_dtacrCheckId = a})
 
 instance AWSRequest DescribeTrustedAdvisorCheckResult
          where
@@ -166,16 +166,16 @@
     -> DescribeTrustedAdvisorCheckResultResponse
 describeTrustedAdvisorCheckResultResponse pResponseStatus_ =
   DescribeTrustedAdvisorCheckResultResponse'
-  {_dtacrrsResult = Nothing, _dtacrrsResponseStatus = pResponseStatus_}
+    {_dtacrrsResult = Nothing, _dtacrrsResponseStatus = pResponseStatus_}
 
 
 -- | The detailed results of the Trusted Advisor check.
 dtacrrsResult :: Lens' DescribeTrustedAdvisorCheckResultResponse (Maybe TrustedAdvisorCheckResult)
-dtacrrsResult = lens _dtacrrsResult (\ s a -> s{_dtacrrsResult = a});
+dtacrrsResult = lens _dtacrrsResult (\ s a -> s{_dtacrrsResult = a})
 
 -- | -- | The response status code.
 dtacrrsResponseStatus :: Lens' DescribeTrustedAdvisorCheckResultResponse Int
-dtacrrsResponseStatus = lens _dtacrrsResponseStatus (\ s a -> s{_dtacrrsResponseStatus = a});
+dtacrrsResponseStatus = lens _dtacrrsResponseStatus (\ s a -> s{_dtacrrsResponseStatus = a})
 
 instance NFData
            DescribeTrustedAdvisorCheckResultResponse
diff --git a/gen/Network/AWS/Support/DescribeTrustedAdvisorCheckSummaries.hs b/gen/Network/AWS/Support/DescribeTrustedAdvisorCheckSummaries.hs
--- a/gen/Network/AWS/Support/DescribeTrustedAdvisorCheckSummaries.hs
+++ b/gen/Network/AWS/Support/DescribeTrustedAdvisorCheckSummaries.hs
@@ -12,7 +12,7 @@
 
 -- |
 -- Module      : Network.AWS.Support.DescribeTrustedAdvisorCheckSummaries
--- 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 IDs of the Trusted Advisor checks.
 dtacsCheckIds :: Lens' DescribeTrustedAdvisorCheckSummaries [Text]
-dtacsCheckIds = lens _dtacsCheckIds (\ s a -> s{_dtacsCheckIds = a}) . _Coerce;
+dtacsCheckIds = lens _dtacsCheckIds (\ s a -> s{_dtacsCheckIds = a}) . _Coerce
 
 instance AWSRequest
            DescribeTrustedAdvisorCheckSummaries
@@ -140,16 +140,16 @@
     -> DescribeTrustedAdvisorCheckSummariesResponse
 describeTrustedAdvisorCheckSummariesResponse pResponseStatus_ =
   DescribeTrustedAdvisorCheckSummariesResponse'
-  {_dtacsrsResponseStatus = pResponseStatus_, _dtacsrsSummaries = mempty}
+    {_dtacsrsResponseStatus = pResponseStatus_, _dtacsrsSummaries = mempty}
 
 
 -- | -- | The response status code.
 dtacsrsResponseStatus :: Lens' DescribeTrustedAdvisorCheckSummariesResponse Int
-dtacsrsResponseStatus = lens _dtacsrsResponseStatus (\ s a -> s{_dtacsrsResponseStatus = a});
+dtacsrsResponseStatus = lens _dtacsrsResponseStatus (\ s a -> s{_dtacsrsResponseStatus = a})
 
 -- | The summary information for the requested Trusted Advisor checks.
 dtacsrsSummaries :: Lens' DescribeTrustedAdvisorCheckSummariesResponse [TrustedAdvisorCheckSummary]
-dtacsrsSummaries = lens _dtacsrsSummaries (\ s a -> s{_dtacsrsSummaries = a}) . _Coerce;
+dtacsrsSummaries = lens _dtacsrsSummaries (\ s a -> s{_dtacsrsSummaries = a}) . _Coerce
 
 instance NFData
            DescribeTrustedAdvisorCheckSummariesResponse
diff --git a/gen/Network/AWS/Support/DescribeTrustedAdvisorChecks.hs b/gen/Network/AWS/Support/DescribeTrustedAdvisorChecks.hs
--- a/gen/Network/AWS/Support/DescribeTrustedAdvisorChecks.hs
+++ b/gen/Network/AWS/Support/DescribeTrustedAdvisorChecks.hs
@@ -12,7 +12,7 @@
 
 -- |
 -- Module      : Network.AWS.Support.DescribeTrustedAdvisorChecks
--- 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 ISO 639-1 code for the language in which AWS provides support. AWS Support currently supports English ("en") and Japanese ("ja"). Language parameters must be passed explicitly for operations that take them.
 dtacLanguage :: Lens' DescribeTrustedAdvisorChecks Text
-dtacLanguage = lens _dtacLanguage (\ s a -> s{_dtacLanguage = a});
+dtacLanguage = lens _dtacLanguage (\ s a -> s{_dtacLanguage = a})
 
 instance AWSRequest DescribeTrustedAdvisorChecks
          where
@@ -129,16 +129,16 @@
     -> DescribeTrustedAdvisorChecksResponse
 describeTrustedAdvisorChecksResponse pResponseStatus_ =
   DescribeTrustedAdvisorChecksResponse'
-  {_dtacrsResponseStatus = pResponseStatus_, _dtacrsChecks = mempty}
+    {_dtacrsResponseStatus = pResponseStatus_, _dtacrsChecks = mempty}
 
 
 -- | -- | The response status code.
 dtacrsResponseStatus :: Lens' DescribeTrustedAdvisorChecksResponse Int
-dtacrsResponseStatus = lens _dtacrsResponseStatus (\ s a -> s{_dtacrsResponseStatus = a});
+dtacrsResponseStatus = lens _dtacrsResponseStatus (\ s a -> s{_dtacrsResponseStatus = a})
 
 -- | Information about all available Trusted Advisor checks.
 dtacrsChecks :: Lens' DescribeTrustedAdvisorChecksResponse [TrustedAdvisorCheckDescription]
-dtacrsChecks = lens _dtacrsChecks (\ s a -> s{_dtacrsChecks = a}) . _Coerce;
+dtacrsChecks = lens _dtacrsChecks (\ s a -> s{_dtacrsChecks = a}) . _Coerce
 
 instance NFData DescribeTrustedAdvisorChecksResponse
          where
diff --git a/gen/Network/AWS/Support/RefreshTrustedAdvisorCheck.hs b/gen/Network/AWS/Support/RefreshTrustedAdvisorCheck.hs
--- a/gen/Network/AWS/Support/RefreshTrustedAdvisorCheck.hs
+++ b/gen/Network/AWS/Support/RefreshTrustedAdvisorCheck.hs
@@ -12,7 +12,7 @@
 
 -- |
 -- Module      : Network.AWS.Support.RefreshTrustedAdvisorCheck
--- 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
@@ -78,7 +78,7 @@
 
 -- | The unique identifier for the Trusted Advisor check to refresh. __Note:__ Specifying the check ID of a check that is automatically refreshed causes an @InvalidParameterValue@ error.
 rtacCheckId :: Lens' RefreshTrustedAdvisorCheck Text
-rtacCheckId = lens _rtacCheckId (\ s a -> s{_rtacCheckId = a});
+rtacCheckId = lens _rtacCheckId (\ s a -> s{_rtacCheckId = a})
 
 instance AWSRequest RefreshTrustedAdvisorCheck where
         type Rs RefreshTrustedAdvisorCheck =
@@ -139,16 +139,16 @@
     -> RefreshTrustedAdvisorCheckResponse
 refreshTrustedAdvisorCheckResponse pResponseStatus_ pStatus_ =
   RefreshTrustedAdvisorCheckResponse'
-  {_rtacrsResponseStatus = pResponseStatus_, _rtacrsStatus = pStatus_}
+    {_rtacrsResponseStatus = pResponseStatus_, _rtacrsStatus = pStatus_}
 
 
 -- | -- | The response status code.
 rtacrsResponseStatus :: Lens' RefreshTrustedAdvisorCheckResponse Int
-rtacrsResponseStatus = lens _rtacrsResponseStatus (\ s a -> s{_rtacrsResponseStatus = a});
+rtacrsResponseStatus = lens _rtacrsResponseStatus (\ s a -> s{_rtacrsResponseStatus = a})
 
 -- | The current refresh status for a check, including the amount of time until the check is eligible for refresh.
 rtacrsStatus :: Lens' RefreshTrustedAdvisorCheckResponse TrustedAdvisorCheckRefreshStatus
-rtacrsStatus = lens _rtacrsStatus (\ s a -> s{_rtacrsStatus = a});
+rtacrsStatus = lens _rtacrsStatus (\ s a -> s{_rtacrsStatus = a})
 
 instance NFData RefreshTrustedAdvisorCheckResponse
          where
diff --git a/gen/Network/AWS/Support/ResolveCase.hs b/gen/Network/AWS/Support/ResolveCase.hs
--- a/gen/Network/AWS/Support/ResolveCase.hs
+++ b/gen/Network/AWS/Support/ResolveCase.hs
@@ -12,7 +12,7 @@
 
 -- |
 -- Module      : Network.AWS.Support.ResolveCase
--- 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 AWS Support case ID requested or returned in the call. The case ID is an alphanumeric string formatted as shown in this example: case-/12345678910-2013-c4c1d2bf33c5cf47/
 rcCaseId :: Lens' ResolveCase (Maybe Text)
-rcCaseId = lens _rcCaseId (\ s a -> s{_rcCaseId = a});
+rcCaseId = lens _rcCaseId (\ s a -> s{_rcCaseId = a})
 
 instance AWSRequest ResolveCase where
         type Rs ResolveCase = ResolveCaseResponse
@@ -129,22 +129,22 @@
     -> ResolveCaseResponse
 resolveCaseResponse pResponseStatus_ =
   ResolveCaseResponse'
-  { _rcrsInitialCaseStatus = Nothing
-  , _rcrsFinalCaseStatus = Nothing
-  , _rcrsResponseStatus = pResponseStatus_
-  }
+    { _rcrsInitialCaseStatus = Nothing
+    , _rcrsFinalCaseStatus = Nothing
+    , _rcrsResponseStatus = pResponseStatus_
+    }
 
 
 -- | The status of the case when the 'ResolveCase' request was sent.
 rcrsInitialCaseStatus :: Lens' ResolveCaseResponse (Maybe Text)
-rcrsInitialCaseStatus = lens _rcrsInitialCaseStatus (\ s a -> s{_rcrsInitialCaseStatus = a});
+rcrsInitialCaseStatus = lens _rcrsInitialCaseStatus (\ s a -> s{_rcrsInitialCaseStatus = a})
 
 -- | The status of the case after the 'ResolveCase' request was processed.
 rcrsFinalCaseStatus :: Lens' ResolveCaseResponse (Maybe Text)
-rcrsFinalCaseStatus = lens _rcrsFinalCaseStatus (\ s a -> s{_rcrsFinalCaseStatus = a});
+rcrsFinalCaseStatus = lens _rcrsFinalCaseStatus (\ s a -> s{_rcrsFinalCaseStatus = a})
 
 -- | -- | The response status code.
 rcrsResponseStatus :: Lens' ResolveCaseResponse Int
-rcrsResponseStatus = lens _rcrsResponseStatus (\ s a -> s{_rcrsResponseStatus = a});
+rcrsResponseStatus = lens _rcrsResponseStatus (\ s a -> s{_rcrsResponseStatus = a})
 
 instance NFData ResolveCaseResponse where
diff --git a/gen/Network/AWS/Support/Types.hs b/gen/Network/AWS/Support/Types.hs
--- a/gen/Network/AWS/Support/Types.hs
+++ b/gen/Network/AWS/Support/Types.hs
@@ -4,7 +4,7 @@
 
 -- |
 -- Module      : Network.AWS.Support.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
@@ -163,24 +163,24 @@
 support :: Service
 support =
   Service
-  { _svcAbbrev = "Support"
-  , _svcSigner = v4
-  , _svcPrefix = "support"
-  , _svcVersion = "2013-04-15"
-  , _svcEndpoint = defaultEndpoint support
-  , _svcTimeout = Just 70
-  , _svcCheck = statusSuccess
-  , _svcError = parseJSONError "Support"
-  , _svcRetry = retry
-  }
+    { _svcAbbrev = "Support"
+    , _svcSigner = v4
+    , _svcPrefix = "support"
+    , _svcVersion = "2013-04-15"
+    , _svcEndpoint = defaultEndpoint support
+    , _svcTimeout = Just 70
+    , _svcCheck = statusSuccess
+    , _svcError = parseJSONError "Support"
+    , _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"
@@ -189,6 +189,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/Support/Types/Product.hs b/gen/Network/AWS/Support/Types/Product.hs
--- a/gen/Network/AWS/Support/Types/Product.hs
+++ b/gen/Network/AWS/Support/Types/Product.hs
@@ -9,7 +9,7 @@
 
 -- |
 -- Module      : Network.AWS.Support.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 @@
 
 -- | The content of the attachment file.-- /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.
 aData :: Lens' Attachment (Maybe ByteString)
-aData = lens _aData (\ s a -> s{_aData = a}) . mapping _Base64;
+aData = lens _aData (\ s a -> s{_aData = a}) . mapping _Base64
 
 -- | The name of the attachment file.
 aFileName :: Lens' Attachment (Maybe Text)
-aFileName = lens _aFileName (\ s a -> s{_aFileName = a});
+aFileName = lens _aFileName (\ s a -> s{_aFileName = a})
 
 instance FromJSON Attachment where
         parseJSON
@@ -96,11 +96,11 @@
 
 -- | The ID of the attachment.
 adAttachmentId :: Lens' AttachmentDetails (Maybe Text)
-adAttachmentId = lens _adAttachmentId (\ s a -> s{_adAttachmentId = a});
+adAttachmentId = lens _adAttachmentId (\ s a -> s{_adAttachmentId = a})
 
 -- | The file name of the attachment.
 adFileName :: Lens' AttachmentDetails (Maybe Text)
-adFileName = lens _adFileName (\ s a -> s{_adFileName = a});
+adFileName = lens _adFileName (\ s a -> s{_adFileName = a})
 
 instance FromJSON AttachmentDetails where
         parseJSON
@@ -191,68 +191,68 @@
     :: CaseDetails
 caseDetails =
   CaseDetails'
-  { _cdSubject = Nothing
-  , _cdStatus = Nothing
-  , _cdRecentCommunications = Nothing
-  , _cdSeverityCode = Nothing
-  , _cdCaseId = Nothing
-  , _cdCcEmailAddresses = Nothing
-  , _cdDisplayId = Nothing
-  , _cdSubmittedBy = Nothing
-  , _cdLanguage = Nothing
-  , _cdTimeCreated = Nothing
-  , _cdCategoryCode = Nothing
-  , _cdServiceCode = Nothing
-  }
+    { _cdSubject = Nothing
+    , _cdStatus = Nothing
+    , _cdRecentCommunications = Nothing
+    , _cdSeverityCode = Nothing
+    , _cdCaseId = Nothing
+    , _cdCcEmailAddresses = Nothing
+    , _cdDisplayId = Nothing
+    , _cdSubmittedBy = Nothing
+    , _cdLanguage = Nothing
+    , _cdTimeCreated = Nothing
+    , _cdCategoryCode = Nothing
+    , _cdServiceCode = Nothing
+    }
 
 
 -- | The subject line for the case in the AWS Support Center.
 cdSubject :: Lens' CaseDetails (Maybe Text)
-cdSubject = lens _cdSubject (\ s a -> s{_cdSubject = a});
+cdSubject = lens _cdSubject (\ s a -> s{_cdSubject = a})
 
 -- | The status of the case.
 cdStatus :: Lens' CaseDetails (Maybe Text)
-cdStatus = lens _cdStatus (\ s a -> s{_cdStatus = a});
+cdStatus = lens _cdStatus (\ s a -> s{_cdStatus = a})
 
 -- | The five most recent communications between you and AWS Support Center, including the IDs of any attachments to the communications. Also includes a @nextToken@ that you can use to retrieve earlier communications.
 cdRecentCommunications :: Lens' CaseDetails (Maybe RecentCaseCommunications)
-cdRecentCommunications = lens _cdRecentCommunications (\ s a -> s{_cdRecentCommunications = a});
+cdRecentCommunications = lens _cdRecentCommunications (\ s a -> s{_cdRecentCommunications = a})
 
 -- | The code for the severity level returned by the call to 'DescribeSeverityLevels' .
 cdSeverityCode :: Lens' CaseDetails (Maybe Text)
-cdSeverityCode = lens _cdSeverityCode (\ s a -> s{_cdSeverityCode = a});
+cdSeverityCode = lens _cdSeverityCode (\ s a -> s{_cdSeverityCode = a})
 
 -- | The AWS Support case ID requested or returned in the call. The case ID is an alphanumeric string formatted as shown in this example: case-/12345678910-2013-c4c1d2bf33c5cf47/
 cdCaseId :: Lens' CaseDetails (Maybe Text)
-cdCaseId = lens _cdCaseId (\ s a -> s{_cdCaseId = a});
+cdCaseId = lens _cdCaseId (\ s a -> s{_cdCaseId = a})
 
 -- | The email addresses that receive copies of communication about the case.
 cdCcEmailAddresses :: Lens' CaseDetails [Text]
-cdCcEmailAddresses = lens _cdCcEmailAddresses (\ s a -> s{_cdCcEmailAddresses = a}) . _Default . _Coerce;
+cdCcEmailAddresses = lens _cdCcEmailAddresses (\ s a -> s{_cdCcEmailAddresses = a}) . _Default . _Coerce
 
 -- | The ID displayed for the case in the AWS Support Center. This is a numeric string.
 cdDisplayId :: Lens' CaseDetails (Maybe Text)
-cdDisplayId = lens _cdDisplayId (\ s a -> s{_cdDisplayId = a});
+cdDisplayId = lens _cdDisplayId (\ s a -> s{_cdDisplayId = a})
 
 -- | The email address of the account that submitted the case.
 cdSubmittedBy :: Lens' CaseDetails (Maybe Text)
-cdSubmittedBy = lens _cdSubmittedBy (\ s a -> s{_cdSubmittedBy = a});
+cdSubmittedBy = lens _cdSubmittedBy (\ s a -> s{_cdSubmittedBy = a})
 
 -- | The ISO 639-1 code for the language in which AWS provides support. AWS Support currently supports English ("en") and Japanese ("ja"). Language parameters must be passed explicitly for operations that take them.
 cdLanguage :: Lens' CaseDetails (Maybe Text)
-cdLanguage = lens _cdLanguage (\ s a -> s{_cdLanguage = a});
+cdLanguage = lens _cdLanguage (\ s a -> s{_cdLanguage = a})
 
 -- | The time that the case was case created in the AWS Support Center.
 cdTimeCreated :: Lens' CaseDetails (Maybe Text)
-cdTimeCreated = lens _cdTimeCreated (\ s a -> s{_cdTimeCreated = a});
+cdTimeCreated = lens _cdTimeCreated (\ s a -> s{_cdTimeCreated = a})
 
 -- | The category of problem for the AWS Support case.
 cdCategoryCode :: Lens' CaseDetails (Maybe Text)
-cdCategoryCode = lens _cdCategoryCode (\ s a -> s{_cdCategoryCode = a});
+cdCategoryCode = lens _cdCategoryCode (\ s a -> s{_cdCategoryCode = a})
 
 -- | The code for the AWS service returned by the call to 'DescribeServices' .
 cdServiceCode :: Lens' CaseDetails (Maybe Text)
-cdServiceCode = lens _cdServiceCode (\ s a -> s{_cdServiceCode = a});
+cdServiceCode = lens _cdServiceCode (\ s a -> s{_cdServiceCode = a})
 
 instance FromJSON CaseDetails where
         parseJSON
@@ -300,11 +300,11 @@
 
 -- | The category name for the support case.
 cName :: Lens' Category (Maybe Text)
-cName = lens _cName (\ s a -> s{_cName = a});
+cName = lens _cName (\ s a -> s{_cName = a})
 
 -- | The category code for the support case.
 cCode :: Lens' Category (Maybe Text)
-cCode = lens _cCode (\ s a -> s{_cCode = a});
+cCode = lens _cCode (\ s a -> s{_cCode = a})
 
 instance FromJSON Category where
         parseJSON
@@ -347,33 +347,33 @@
     :: Communication
 communication =
   Communication'
-  { _cBody = Nothing
-  , _cCaseId = Nothing
-  , _cSubmittedBy = Nothing
-  , _cTimeCreated = Nothing
-  , _cAttachmentSet = Nothing
-  }
+    { _cBody = Nothing
+    , _cCaseId = Nothing
+    , _cSubmittedBy = Nothing
+    , _cTimeCreated = Nothing
+    , _cAttachmentSet = Nothing
+    }
 
 
 -- | The text of the communication between the customer and AWS Support.
 cBody :: Lens' Communication (Maybe Text)
-cBody = lens _cBody (\ s a -> s{_cBody = a});
+cBody = lens _cBody (\ s a -> s{_cBody = a})
 
 -- | The AWS Support case ID requested or returned in the call. The case ID is an alphanumeric string formatted as shown in this example: case-/12345678910-2013-c4c1d2bf33c5cf47/
 cCaseId :: Lens' Communication (Maybe Text)
-cCaseId = lens _cCaseId (\ s a -> s{_cCaseId = a});
+cCaseId = lens _cCaseId (\ s a -> s{_cCaseId = a})
 
 -- | The email address of the account that submitted the AWS Support case.
 cSubmittedBy :: Lens' Communication (Maybe Text)
-cSubmittedBy = lens _cSubmittedBy (\ s a -> s{_cSubmittedBy = a});
+cSubmittedBy = lens _cSubmittedBy (\ s a -> s{_cSubmittedBy = a})
 
 -- | The time the communication was created.
 cTimeCreated :: Lens' Communication (Maybe Text)
-cTimeCreated = lens _cTimeCreated (\ s a -> s{_cTimeCreated = a});
+cTimeCreated = lens _cTimeCreated (\ s a -> s{_cTimeCreated = a})
 
 -- | Information about the attachments to the case communication.
 cAttachmentSet :: Lens' Communication [AttachmentDetails]
-cAttachmentSet = lens _cAttachmentSet (\ s a -> s{_cAttachmentSet = a}) . _Default . _Coerce;
+cAttachmentSet = lens _cAttachmentSet (\ s a -> s{_cAttachmentSet = a}) . _Default . _Coerce
 
 instance FromJSON Communication where
         parseJSON
@@ -411,16 +411,16 @@
     :: RecentCaseCommunications
 recentCaseCommunications =
   RecentCaseCommunications'
-  {_rccNextToken = Nothing, _rccCommunications = Nothing}
+    {_rccNextToken = Nothing, _rccCommunications = Nothing}
 
 
 -- | A resumption point for pagination.
 rccNextToken :: Lens' RecentCaseCommunications (Maybe Text)
-rccNextToken = lens _rccNextToken (\ s a -> s{_rccNextToken = a});
+rccNextToken = lens _rccNextToken (\ s a -> s{_rccNextToken = a})
 
 -- | The five most recent communications associated with the case.
 rccCommunications :: Lens' RecentCaseCommunications [Communication]
-rccCommunications = lens _rccCommunications (\ s a -> s{_rccCommunications = a}) . _Default . _Coerce;
+rccCommunications = lens _rccCommunications (\ s a -> s{_rccCommunications = a}) . _Default . _Coerce
 
 instance FromJSON RecentCaseCommunications where
         parseJSON
@@ -459,11 +459,11 @@
 
 -- | The name of the severity level that corresponds to the severity level code.
 slName :: Lens' SeverityLevel (Maybe Text)
-slName = lens _slName (\ s a -> s{_slName = a});
+slName = lens _slName (\ s a -> s{_slName = a})
 
 -- | One of four values: "low," "medium," "high," and "urgent". These values correspond to response times returned to the caller in @severityLevel.name@ .
 slCode :: Lens' SeverityLevel (Maybe Text)
-slCode = lens _slCode (\ s a -> s{_slCode = a});
+slCode = lens _slCode (\ s a -> s{_slCode = a})
 
 instance FromJSON SeverityLevel where
         parseJSON
@@ -500,20 +500,20 @@
     :: SupportService
 supportService =
   SupportService'
-  {_ssCategories = Nothing, _ssName = Nothing, _ssCode = Nothing}
+    {_ssCategories = Nothing, _ssName = Nothing, _ssCode = Nothing}
 
 
 -- | A list of categories that describe the type of support issue a case describes. Categories consist of a category name and a category code. Category names and codes are passed to AWS Support when you call 'CreateCase' .
 ssCategories :: Lens' SupportService [Category]
-ssCategories = lens _ssCategories (\ s a -> s{_ssCategories = a}) . _Default . _Coerce;
+ssCategories = lens _ssCategories (\ s a -> s{_ssCategories = a}) . _Default . _Coerce
 
 -- | The friendly name for an AWS service. The @code@ element contains the corresponding code.
 ssName :: Lens' SupportService (Maybe Text)
-ssName = lens _ssName (\ s a -> s{_ssName = a});
+ssName = lens _ssName (\ s a -> s{_ssName = a})
 
 -- | The code for an AWS service returned by the 'DescribeServices' response. The @name@ element contains the corresponding friendly name.
 ssCode :: Lens' SupportService (Maybe Text)
-ssCode = lens _ssCode (\ s a -> s{_ssCode = a});
+ssCode = lens _ssCode (\ s a -> s{_ssCode = a})
 
 instance FromJSON SupportService where
         parseJSON
@@ -550,7 +550,7 @@
 
 -- | The summary information about cost savings for a Trusted Advisor check that is in the Cost Optimizing category.
 tacssCostOptimizing :: Lens' TrustedAdvisorCategorySpecificSummary (Maybe TrustedAdvisorCostOptimizingSummary)
-tacssCostOptimizing = lens _tacssCostOptimizing (\ s a -> s{_tacssCostOptimizing = a});
+tacssCostOptimizing = lens _tacssCostOptimizing (\ s a -> s{_tacssCostOptimizing = a})
 
 instance FromJSON
            TrustedAdvisorCategorySpecificSummary
@@ -603,33 +603,33 @@
     -> TrustedAdvisorCheckDescription
 trustedAdvisorCheckDescription pId_ pName_ pDescription_ pCategory_ =
   TrustedAdvisorCheckDescription'
-  { _tacdId = pId_
-  , _tacdName = pName_
-  , _tacdDescription = pDescription_
-  , _tacdCategory = pCategory_
-  , _tacdMetadata = mempty
-  }
+    { _tacdId = pId_
+    , _tacdName = pName_
+    , _tacdDescription = pDescription_
+    , _tacdCategory = pCategory_
+    , _tacdMetadata = mempty
+    }
 
 
 -- | The unique identifier for the Trusted Advisor check.
 tacdId :: Lens' TrustedAdvisorCheckDescription Text
-tacdId = lens _tacdId (\ s a -> s{_tacdId = a});
+tacdId = lens _tacdId (\ s a -> s{_tacdId = a})
 
 -- | The display name for the Trusted Advisor check.
 tacdName :: Lens' TrustedAdvisorCheckDescription Text
-tacdName = lens _tacdName (\ s a -> s{_tacdName = a});
+tacdName = lens _tacdName (\ s a -> s{_tacdName = a})
 
 -- | The description of the Trusted Advisor check, which includes the alert criteria and recommended actions (contains HTML markup).
 tacdDescription :: Lens' TrustedAdvisorCheckDescription Text
-tacdDescription = lens _tacdDescription (\ s a -> s{_tacdDescription = a});
+tacdDescription = lens _tacdDescription (\ s a -> s{_tacdDescription = a})
 
 -- | The category of the Trusted Advisor check.
 tacdCategory :: Lens' TrustedAdvisorCheckDescription Text
-tacdCategory = lens _tacdCategory (\ s a -> s{_tacdCategory = a});
+tacdCategory = lens _tacdCategory (\ s a -> s{_tacdCategory = a})
 
 -- | The column headings for the data returned by the Trusted Advisor check. The order of the headings corresponds to the order of the data in the __Metadata__ element of the 'TrustedAdvisorResourceDetail' for the check. __Metadata__ contains all the data that is shown in the Excel download, even in those cases where the UI shows just summary data.
 tacdMetadata :: Lens' TrustedAdvisorCheckDescription [Text]
-tacdMetadata = lens _tacdMetadata (\ s a -> s{_tacdMetadata = a}) . _Coerce;
+tacdMetadata = lens _tacdMetadata (\ s a -> s{_tacdMetadata = a}) . _Coerce
 
 instance FromJSON TrustedAdvisorCheckDescription
          where
@@ -675,23 +675,23 @@
     -> TrustedAdvisorCheckRefreshStatus
 trustedAdvisorCheckRefreshStatus pCheckId_ pStatus_ pMillisUntilNextRefreshable_ =
   TrustedAdvisorCheckRefreshStatus'
-  { _tacrsCheckId = pCheckId_
-  , _tacrsStatus = pStatus_
-  , _tacrsMillisUntilNextRefreshable = pMillisUntilNextRefreshable_
-  }
+    { _tacrsCheckId = pCheckId_
+    , _tacrsStatus = pStatus_
+    , _tacrsMillisUntilNextRefreshable = pMillisUntilNextRefreshable_
+    }
 
 
 -- | The unique identifier for the Trusted Advisor check.
 tacrsCheckId :: Lens' TrustedAdvisorCheckRefreshStatus Text
-tacrsCheckId = lens _tacrsCheckId (\ s a -> s{_tacrsCheckId = a});
+tacrsCheckId = lens _tacrsCheckId (\ s a -> s{_tacrsCheckId = a})
 
 -- | The status of the Trusted Advisor check for which a refresh has been requested: "none", "enqueued", "processing", "success", or "abandoned".
 tacrsStatus :: Lens' TrustedAdvisorCheckRefreshStatus Text
-tacrsStatus = lens _tacrsStatus (\ s a -> s{_tacrsStatus = a});
+tacrsStatus = lens _tacrsStatus (\ s a -> s{_tacrsStatus = a})
 
 -- | The amount of time, in milliseconds, until the Trusted Advisor check is eligible for refresh.
 tacrsMillisUntilNextRefreshable :: Lens' TrustedAdvisorCheckRefreshStatus Integer
-tacrsMillisUntilNextRefreshable = lens _tacrsMillisUntilNextRefreshable (\ s a -> s{_tacrsMillisUntilNextRefreshable = a});
+tacrsMillisUntilNextRefreshable = lens _tacrsMillisUntilNextRefreshable (\ s a -> s{_tacrsMillisUntilNextRefreshable = a})
 
 instance FromJSON TrustedAdvisorCheckRefreshStatus
          where
@@ -747,38 +747,38 @@
     -> TrustedAdvisorCheckResult
 trustedAdvisorCheckResult pCheckId_ pTimestamp_ pStatus_ pResourcesSummary_ pCategorySpecificSummary_ =
   TrustedAdvisorCheckResult'
-  { _tacrCheckId = pCheckId_
-  , _tacrTimestamp = pTimestamp_
-  , _tacrStatus = pStatus_
-  , _tacrResourcesSummary = pResourcesSummary_
-  , _tacrCategorySpecificSummary = pCategorySpecificSummary_
-  , _tacrFlaggedResources = mempty
-  }
+    { _tacrCheckId = pCheckId_
+    , _tacrTimestamp = pTimestamp_
+    , _tacrStatus = pStatus_
+    , _tacrResourcesSummary = pResourcesSummary_
+    , _tacrCategorySpecificSummary = pCategorySpecificSummary_
+    , _tacrFlaggedResources = mempty
+    }
 
 
 -- | The unique identifier for the Trusted Advisor check.
 tacrCheckId :: Lens' TrustedAdvisorCheckResult Text
-tacrCheckId = lens _tacrCheckId (\ s a -> s{_tacrCheckId = a});
+tacrCheckId = lens _tacrCheckId (\ s a -> s{_tacrCheckId = a})
 
 -- | The time of the last refresh of the check.
 tacrTimestamp :: Lens' TrustedAdvisorCheckResult Text
-tacrTimestamp = lens _tacrTimestamp (\ s a -> s{_tacrTimestamp = a});
+tacrTimestamp = lens _tacrTimestamp (\ s a -> s{_tacrTimestamp = a})
 
 -- | The alert status of the check: "ok" (green), "warning" (yellow), "error" (red), or "not_available".
 tacrStatus :: Lens' TrustedAdvisorCheckResult Text
-tacrStatus = lens _tacrStatus (\ s a -> s{_tacrStatus = a});
+tacrStatus = lens _tacrStatus (\ s a -> s{_tacrStatus = a})
 
 -- | Undocumented member.
 tacrResourcesSummary :: Lens' TrustedAdvisorCheckResult TrustedAdvisorResourcesSummary
-tacrResourcesSummary = lens _tacrResourcesSummary (\ s a -> s{_tacrResourcesSummary = a});
+tacrResourcesSummary = lens _tacrResourcesSummary (\ s a -> s{_tacrResourcesSummary = a})
 
 -- | Summary information that relates to the category of the check. Cost Optimizing is the only category that is currently supported.
 tacrCategorySpecificSummary :: Lens' TrustedAdvisorCheckResult TrustedAdvisorCategorySpecificSummary
-tacrCategorySpecificSummary = lens _tacrCategorySpecificSummary (\ s a -> s{_tacrCategorySpecificSummary = a});
+tacrCategorySpecificSummary = lens _tacrCategorySpecificSummary (\ s a -> s{_tacrCategorySpecificSummary = a})
 
 -- | The details about each resource listed in the check result.
 tacrFlaggedResources :: Lens' TrustedAdvisorCheckResult [TrustedAdvisorResourceDetail]
-tacrFlaggedResources = lens _tacrFlaggedResources (\ s a -> s{_tacrFlaggedResources = a}) . _Coerce;
+tacrFlaggedResources = lens _tacrFlaggedResources (\ s a -> s{_tacrFlaggedResources = a}) . _Coerce
 
 instance FromJSON TrustedAdvisorCheckResult where
         parseJSON
@@ -834,38 +834,38 @@
     -> TrustedAdvisorCheckSummary
 trustedAdvisorCheckSummary pCheckId_ pTimestamp_ pStatus_ pResourcesSummary_ pCategorySpecificSummary_ =
   TrustedAdvisorCheckSummary'
-  { _tacsHasFlaggedResources = Nothing
-  , _tacsCheckId = pCheckId_
-  , _tacsTimestamp = pTimestamp_
-  , _tacsStatus = pStatus_
-  , _tacsResourcesSummary = pResourcesSummary_
-  , _tacsCategorySpecificSummary = pCategorySpecificSummary_
-  }
+    { _tacsHasFlaggedResources = Nothing
+    , _tacsCheckId = pCheckId_
+    , _tacsTimestamp = pTimestamp_
+    , _tacsStatus = pStatus_
+    , _tacsResourcesSummary = pResourcesSummary_
+    , _tacsCategorySpecificSummary = pCategorySpecificSummary_
+    }
 
 
 -- | Specifies whether the Trusted Advisor check has flagged resources.
 tacsHasFlaggedResources :: Lens' TrustedAdvisorCheckSummary (Maybe Bool)
-tacsHasFlaggedResources = lens _tacsHasFlaggedResources (\ s a -> s{_tacsHasFlaggedResources = a});
+tacsHasFlaggedResources = lens _tacsHasFlaggedResources (\ s a -> s{_tacsHasFlaggedResources = a})
 
 -- | The unique identifier for the Trusted Advisor check.
 tacsCheckId :: Lens' TrustedAdvisorCheckSummary Text
-tacsCheckId = lens _tacsCheckId (\ s a -> s{_tacsCheckId = a});
+tacsCheckId = lens _tacsCheckId (\ s a -> s{_tacsCheckId = a})
 
 -- | The time of the last refresh of the check.
 tacsTimestamp :: Lens' TrustedAdvisorCheckSummary Text
-tacsTimestamp = lens _tacsTimestamp (\ s a -> s{_tacsTimestamp = a});
+tacsTimestamp = lens _tacsTimestamp (\ s a -> s{_tacsTimestamp = a})
 
 -- | The alert status of the check: "ok" (green), "warning" (yellow), "error" (red), or "not_available".
 tacsStatus :: Lens' TrustedAdvisorCheckSummary Text
-tacsStatus = lens _tacsStatus (\ s a -> s{_tacsStatus = a});
+tacsStatus = lens _tacsStatus (\ s a -> s{_tacsStatus = a})
 
 -- | Undocumented member.
 tacsResourcesSummary :: Lens' TrustedAdvisorCheckSummary TrustedAdvisorResourcesSummary
-tacsResourcesSummary = lens _tacsResourcesSummary (\ s a -> s{_tacsResourcesSummary = a});
+tacsResourcesSummary = lens _tacsResourcesSummary (\ s a -> s{_tacsResourcesSummary = a})
 
 -- | Summary information that relates to the category of the check. Cost Optimizing is the only category that is currently supported.
 tacsCategorySpecificSummary :: Lens' TrustedAdvisorCheckSummary TrustedAdvisorCategorySpecificSummary
-tacsCategorySpecificSummary = lens _tacsCategorySpecificSummary (\ s a -> s{_tacsCategorySpecificSummary = a});
+tacsCategorySpecificSummary = lens _tacsCategorySpecificSummary (\ s a -> s{_tacsCategorySpecificSummary = a})
 
 instance FromJSON TrustedAdvisorCheckSummary where
         parseJSON
@@ -906,18 +906,18 @@
     -> TrustedAdvisorCostOptimizingSummary
 trustedAdvisorCostOptimizingSummary pEstimatedMonthlySavings_ pEstimatedPercentMonthlySavings_ =
   TrustedAdvisorCostOptimizingSummary'
-  { _tacosEstimatedMonthlySavings = pEstimatedMonthlySavings_
-  , _tacosEstimatedPercentMonthlySavings = pEstimatedPercentMonthlySavings_
-  }
+    { _tacosEstimatedMonthlySavings = pEstimatedMonthlySavings_
+    , _tacosEstimatedPercentMonthlySavings = pEstimatedPercentMonthlySavings_
+    }
 
 
 -- | The estimated monthly savings that might be realized if the recommended actions are taken.
 tacosEstimatedMonthlySavings :: Lens' TrustedAdvisorCostOptimizingSummary Double
-tacosEstimatedMonthlySavings = lens _tacosEstimatedMonthlySavings (\ s a -> s{_tacosEstimatedMonthlySavings = a});
+tacosEstimatedMonthlySavings = lens _tacosEstimatedMonthlySavings (\ s a -> s{_tacosEstimatedMonthlySavings = a})
 
 -- | The estimated percentage of savings that might be realized if the recommended actions are taken.
 tacosEstimatedPercentMonthlySavings :: Lens' TrustedAdvisorCostOptimizingSummary Double
-tacosEstimatedPercentMonthlySavings = lens _tacosEstimatedPercentMonthlySavings (\ s a -> s{_tacosEstimatedPercentMonthlySavings = a});
+tacosEstimatedPercentMonthlySavings = lens _tacosEstimatedPercentMonthlySavings (\ s a -> s{_tacosEstimatedPercentMonthlySavings = a})
 
 instance FromJSON TrustedAdvisorCostOptimizingSummary
          where
@@ -967,33 +967,33 @@
     -> TrustedAdvisorResourceDetail
 trustedAdvisorResourceDetail pStatus_ pResourceId_ =
   TrustedAdvisorResourceDetail'
-  { _tardIsSuppressed = Nothing
-  , _tardRegion = Nothing
-  , _tardStatus = pStatus_
-  , _tardResourceId = pResourceId_
-  , _tardMetadata = mempty
-  }
+    { _tardIsSuppressed = Nothing
+    , _tardRegion = Nothing
+    , _tardStatus = pStatus_
+    , _tardResourceId = pResourceId_
+    , _tardMetadata = mempty
+    }
 
 
 -- | Specifies whether the AWS resource was ignored by Trusted Advisor because it was marked as suppressed by the user.
 tardIsSuppressed :: Lens' TrustedAdvisorResourceDetail (Maybe Bool)
-tardIsSuppressed = lens _tardIsSuppressed (\ s a -> s{_tardIsSuppressed = a});
+tardIsSuppressed = lens _tardIsSuppressed (\ s a -> s{_tardIsSuppressed = a})
 
 -- | The AWS region in which the identified resource is located.
 tardRegion :: Lens' TrustedAdvisorResourceDetail (Maybe Text)
-tardRegion = lens _tardRegion (\ s a -> s{_tardRegion = a});
+tardRegion = lens _tardRegion (\ s a -> s{_tardRegion = a})
 
 -- | The status code for the resource identified in the Trusted Advisor check.
 tardStatus :: Lens' TrustedAdvisorResourceDetail Text
-tardStatus = lens _tardStatus (\ s a -> s{_tardStatus = a});
+tardStatus = lens _tardStatus (\ s a -> s{_tardStatus = a})
 
 -- | The unique identifier for the identified resource.
 tardResourceId :: Lens' TrustedAdvisorResourceDetail Text
-tardResourceId = lens _tardResourceId (\ s a -> s{_tardResourceId = a});
+tardResourceId = lens _tardResourceId (\ s a -> s{_tardResourceId = a})
 
 -- | Additional information about the identified resource. The exact metadata and its order can be obtained by inspecting the 'TrustedAdvisorCheckDescription' object returned by the call to 'DescribeTrustedAdvisorChecks' . __Metadata__ contains all the data that is shown in the Excel download, even in those cases where the UI shows just summary data.
 tardMetadata :: Lens' TrustedAdvisorResourceDetail [Text]
-tardMetadata = lens _tardMetadata (\ s a -> s{_tardMetadata = a}) . _Coerce;
+tardMetadata = lens _tardMetadata (\ s a -> s{_tardMetadata = a}) . _Coerce
 
 instance FromJSON TrustedAdvisorResourceDetail where
         parseJSON
@@ -1041,28 +1041,28 @@
     -> TrustedAdvisorResourcesSummary
 trustedAdvisorResourcesSummary pResourcesProcessed_ pResourcesFlagged_ pResourcesIgnored_ pResourcesSuppressed_ =
   TrustedAdvisorResourcesSummary'
-  { _tarsResourcesProcessed = pResourcesProcessed_
-  , _tarsResourcesFlagged = pResourcesFlagged_
-  , _tarsResourcesIgnored = pResourcesIgnored_
-  , _tarsResourcesSuppressed = pResourcesSuppressed_
-  }
+    { _tarsResourcesProcessed = pResourcesProcessed_
+    , _tarsResourcesFlagged = pResourcesFlagged_
+    , _tarsResourcesIgnored = pResourcesIgnored_
+    , _tarsResourcesSuppressed = pResourcesSuppressed_
+    }
 
 
 -- | The number of AWS resources that were analyzed by the Trusted Advisor check.
 tarsResourcesProcessed :: Lens' TrustedAdvisorResourcesSummary Integer
-tarsResourcesProcessed = lens _tarsResourcesProcessed (\ s a -> s{_tarsResourcesProcessed = a});
+tarsResourcesProcessed = lens _tarsResourcesProcessed (\ s a -> s{_tarsResourcesProcessed = a})
 
 -- | The number of AWS resources that were flagged (listed) by the Trusted Advisor check.
 tarsResourcesFlagged :: Lens' TrustedAdvisorResourcesSummary Integer
-tarsResourcesFlagged = lens _tarsResourcesFlagged (\ s a -> s{_tarsResourcesFlagged = a});
+tarsResourcesFlagged = lens _tarsResourcesFlagged (\ s a -> s{_tarsResourcesFlagged = a})
 
 -- | The number of AWS resources ignored by Trusted Advisor because information was unavailable.
 tarsResourcesIgnored :: Lens' TrustedAdvisorResourcesSummary Integer
-tarsResourcesIgnored = lens _tarsResourcesIgnored (\ s a -> s{_tarsResourcesIgnored = a});
+tarsResourcesIgnored = lens _tarsResourcesIgnored (\ s a -> s{_tarsResourcesIgnored = a})
 
 -- | The number of AWS resources ignored by Trusted Advisor because they were marked as suppressed by the user.
 tarsResourcesSuppressed :: Lens' TrustedAdvisorResourcesSummary Integer
-tarsResourcesSuppressed = lens _tarsResourcesSuppressed (\ s a -> s{_tarsResourcesSuppressed = a});
+tarsResourcesSuppressed = lens _tarsResourcesSuppressed (\ s a -> s{_tarsResourcesSuppressed = a})
 
 instance FromJSON TrustedAdvisorResourcesSummary
          where
diff --git a/gen/Network/AWS/Support/Types/Sum.hs b/gen/Network/AWS/Support/Types/Sum.hs
--- a/gen/Network/AWS/Support/Types/Sum.hs
+++ b/gen/Network/AWS/Support/Types/Sum.hs
@@ -9,7 +9,7 @@
 
 -- |
 -- Module      : Network.AWS.Support.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/Support/Waiters.hs b/gen/Network/AWS/Support/Waiters.hs
--- a/gen/Network/AWS/Support/Waiters.hs
+++ b/gen/Network/AWS/Support/Waiters.hs
@@ -7,7 +7,7 @@
 
 -- |
 -- Module      : Network.AWS.Support.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/Support.hs b/test/Test/AWS/Gen/Support.hs
--- a/test/Test/AWS/Gen/Support.hs
+++ b/test/Test/AWS/Gen/Support.hs
@@ -5,7 +5,7 @@
 
 -- |
 -- Module      : Test.AWS.Gen.Support
--- 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/Support.hs b/test/Test/AWS/Support.hs
--- a/test/Test/AWS/Support.hs
+++ b/test/Test/AWS/Support.hs
@@ -1,7 +1,7 @@
 {-# LANGUAGE OverloadedStrings #-}
 
 -- Module      : Test.AWS.Support
--- 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/Support/Internal.hs b/test/Test/AWS/Support/Internal.hs
--- a/test/Test/AWS/Support/Internal.hs
+++ b/test/Test/AWS/Support/Internal.hs
@@ -2,7 +2,7 @@
 {-# OPTIONS_GHC -fno-warn-unused-imports #-}
 
 -- Module      : Test.AWS.Support.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