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-cloudhsm.cabal b/amazonka-cloudhsm.cabal
--- a/amazonka-cloudhsm.cabal
+++ b/amazonka-cloudhsm.cabal
@@ -1,5 +1,5 @@
 name:                  amazonka-cloudhsm
-version:               1.5.0
+version:               1.6.0
 synopsis:              Amazon CloudHSM 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
@@ -73,7 +73,7 @@
         , Network.AWS.CloudHSM.Types.Sum
 
     build-depends:
-          amazonka-core == 1.5.0.*
+          amazonka-core == 1.6.0.*
         , base          >= 4.7     && < 5
 
 test-suite amazonka-cloudhsm-test
@@ -93,8 +93,8 @@
         , Test.AWS.CloudHSM.Internal
 
     build-depends:
-          amazonka-core == 1.5.0.*
-        , amazonka-test == 1.5.0.*
+          amazonka-core == 1.6.0.*
+        , amazonka-test == 1.6.0.*
         , amazonka-cloudhsm
         , base
         , bytestring
diff --git a/gen/Network/AWS/CloudHSM.hs b/gen/Network/AWS/CloudHSM.hs
--- a/gen/Network/AWS/CloudHSM.hs
+++ b/gen/Network/AWS/CloudHSM.hs
@@ -5,7 +5,7 @@
 
 -- |
 -- Module      : Network.AWS.CloudHSM
--- 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/CloudHSM/AddTagsToResource.hs b/gen/Network/AWS/CloudHSM/AddTagsToResource.hs
--- a/gen/Network/AWS/CloudHSM/AddTagsToResource.hs
+++ b/gen/Network/AWS/CloudHSM/AddTagsToResource.hs
@@ -12,7 +12,7 @@
 
 -- |
 -- Module      : Network.AWS.CloudHSM.AddTagsToResource
--- Copyright   : (c) 2013-2017 Brendan Hay
+-- Copyright   : (c) 2013-2018 Brendan Hay
 -- License     : Mozilla Public License, v. 2.0.
 -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com>
 -- Stability   : auto-generated
@@ -74,11 +74,11 @@
 
 -- | The Amazon Resource Name (ARN) of the AWS CloudHSM resource to tag.
 attrResourceARN :: Lens' AddTagsToResource Text
-attrResourceARN = lens _attrResourceARN (\ s a -> s{_attrResourceARN = a});
+attrResourceARN = lens _attrResourceARN (\ s a -> s{_attrResourceARN = a})
 
 -- | One or more tags.
 attrTagList :: Lens' AddTagsToResource [Tag]
-attrTagList = lens _attrTagList (\ s a -> s{_attrTagList = a}) . _Coerce;
+attrTagList = lens _attrTagList (\ s a -> s{_attrTagList = a}) . _Coerce
 
 instance AWSRequest AddTagsToResource where
         type Rs AddTagsToResource = AddTagsToResourceResponse
@@ -136,15 +136,15 @@
     -> AddTagsToResourceResponse
 addTagsToResourceResponse pResponseStatus_ pStatus_ =
   AddTagsToResourceResponse'
-  {_attrrsResponseStatus = pResponseStatus_, _attrrsStatus = pStatus_}
+    {_attrrsResponseStatus = pResponseStatus_, _attrrsStatus = pStatus_}
 
 
 -- | -- | The response status code.
 attrrsResponseStatus :: Lens' AddTagsToResourceResponse Int
-attrrsResponseStatus = lens _attrrsResponseStatus (\ s a -> s{_attrrsResponseStatus = a});
+attrrsResponseStatus = lens _attrrsResponseStatus (\ s a -> s{_attrrsResponseStatus = a})
 
 -- | The status of the operation.
 attrrsStatus :: Lens' AddTagsToResourceResponse Text
-attrrsStatus = lens _attrrsStatus (\ s a -> s{_attrrsStatus = a});
+attrrsStatus = lens _attrrsStatus (\ s a -> s{_attrrsStatus = a})
 
 instance NFData AddTagsToResourceResponse where
diff --git a/gen/Network/AWS/CloudHSM/CreateHAPG.hs b/gen/Network/AWS/CloudHSM/CreateHAPG.hs
--- a/gen/Network/AWS/CloudHSM/CreateHAPG.hs
+++ b/gen/Network/AWS/CloudHSM/CreateHAPG.hs
@@ -12,7 +12,7 @@
 
 -- |
 -- Module      : Network.AWS.CloudHSM.CreateHAPG
--- 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,7 +71,7 @@
 
 -- | The label of the new high-availability partition group.
 chLabel :: Lens' CreateHAPG Text
-chLabel = lens _chLabel (\ s a -> s{_chLabel = a});
+chLabel = lens _chLabel (\ s a -> s{_chLabel = a})
 
 instance AWSRequest CreateHAPG where
         type Rs CreateHAPG = CreateHAPGResponse
@@ -128,15 +128,15 @@
     -> CreateHAPGResponse
 createHAPGResponse pResponseStatus_ =
   CreateHAPGResponse'
-  {_chapgrsHAPGARN = Nothing, _chapgrsResponseStatus = pResponseStatus_}
+    {_chapgrsHAPGARN = Nothing, _chapgrsResponseStatus = pResponseStatus_}
 
 
 -- | The ARN of the high-availability partition group.
 chapgrsHAPGARN :: Lens' CreateHAPGResponse (Maybe Text)
-chapgrsHAPGARN = lens _chapgrsHAPGARN (\ s a -> s{_chapgrsHAPGARN = a});
+chapgrsHAPGARN = lens _chapgrsHAPGARN (\ s a -> s{_chapgrsHAPGARN = a})
 
 -- | -- | The response status code.
 chapgrsResponseStatus :: Lens' CreateHAPGResponse Int
-chapgrsResponseStatus = lens _chapgrsResponseStatus (\ s a -> s{_chapgrsResponseStatus = a});
+chapgrsResponseStatus = lens _chapgrsResponseStatus (\ s a -> s{_chapgrsResponseStatus = a})
 
 instance NFData CreateHAPGResponse where
diff --git a/gen/Network/AWS/CloudHSM/CreateHSM.hs b/gen/Network/AWS/CloudHSM/CreateHSM.hs
--- a/gen/Network/AWS/CloudHSM/CreateHSM.hs
+++ b/gen/Network/AWS/CloudHSM/CreateHSM.hs
@@ -12,7 +12,7 @@
 
 -- |
 -- Module      : Network.AWS.CloudHSM.CreateHSM
--- 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
@@ -103,48 +103,48 @@
     -> CreateHSM
 createHSM pSubnetId_ pSSHKey_ pIAMRoleARN_ pSubscriptionType_ =
   CreateHSM'
-  { _chClientToken = Nothing
-  , _chSyslogIP = Nothing
-  , _chExternalId = Nothing
-  , _chEniIP = Nothing
-  , _chSubnetId = pSubnetId_
-  , _chSSHKey = pSSHKey_
-  , _chIAMRoleARN = pIAMRoleARN_
-  , _chSubscriptionType = pSubscriptionType_
-  }
+    { _chClientToken = Nothing
+    , _chSyslogIP = Nothing
+    , _chExternalId = Nothing
+    , _chEniIP = Nothing
+    , _chSubnetId = pSubnetId_
+    , _chSSHKey = pSSHKey_
+    , _chIAMRoleARN = pIAMRoleARN_
+    , _chSubscriptionType = pSubscriptionType_
+    }
 
 
 -- | A user-defined token to ensure idempotence. Subsequent calls to this operation with the same token will be ignored.
 chClientToken :: Lens' CreateHSM (Maybe Text)
-chClientToken = lens _chClientToken (\ s a -> s{_chClientToken = a});
+chClientToken = lens _chClientToken (\ s a -> s{_chClientToken = a})
 
 -- | The IP address for the syslog monitoring server. The AWS CloudHSM service only supports one syslog monitoring server.
 chSyslogIP :: Lens' CreateHSM (Maybe Text)
-chSyslogIP = lens _chSyslogIP (\ s a -> s{_chSyslogIP = a});
+chSyslogIP = lens _chSyslogIP (\ s a -> s{_chSyslogIP = a})
 
 -- | The external ID from @IamRoleArn@ , if present.
 chExternalId :: Lens' CreateHSM (Maybe Text)
-chExternalId = lens _chExternalId (\ s a -> s{_chExternalId = a});
+chExternalId = lens _chExternalId (\ s a -> s{_chExternalId = a})
 
 -- | The IP address to assign to the HSM's ENI. If an IP address is not specified, an IP address will be randomly chosen from the CIDR range of the subnet.
 chEniIP :: Lens' CreateHSM (Maybe Text)
-chEniIP = lens _chEniIP (\ s a -> s{_chEniIP = a});
+chEniIP = lens _chEniIP (\ s a -> s{_chEniIP = a})
 
 -- | The identifier of the subnet in your VPC in which to place the HSM.
 chSubnetId :: Lens' CreateHSM Text
-chSubnetId = lens _chSubnetId (\ s a -> s{_chSubnetId = a});
+chSubnetId = lens _chSubnetId (\ s a -> s{_chSubnetId = a})
 
 -- | The SSH public key to install on the HSM.
 chSSHKey :: Lens' CreateHSM Text
-chSSHKey = lens _chSSHKey (\ s a -> s{_chSSHKey = a});
+chSSHKey = lens _chSSHKey (\ s a -> s{_chSSHKey = a})
 
 -- | The ARN of an IAM role to enable the AWS CloudHSM service to allocate an ENI on your behalf.
 chIAMRoleARN :: Lens' CreateHSM Text
-chIAMRoleARN = lens _chIAMRoleARN (\ s a -> s{_chIAMRoleARN = a});
+chIAMRoleARN = lens _chIAMRoleARN (\ s a -> s{_chIAMRoleARN = a})
 
 -- | Undocumented member.
 chSubscriptionType :: Lens' CreateHSM SubscriptionType
-chSubscriptionType = lens _chSubscriptionType (\ s a -> s{_chSubscriptionType = a});
+chSubscriptionType = lens _chSubscriptionType (\ s a -> s{_chSubscriptionType = a})
 
 instance AWSRequest CreateHSM where
         type Rs CreateHSM = CreateHSMResponse
@@ -210,15 +210,15 @@
     -> CreateHSMResponse
 createHSMResponse pResponseStatus_ =
   CreateHSMResponse'
-  {_chrsHSMARN = Nothing, _chrsResponseStatus = pResponseStatus_}
+    {_chrsHSMARN = Nothing, _chrsResponseStatus = pResponseStatus_}
 
 
 -- | The ARN of the HSM.
 chrsHSMARN :: Lens' CreateHSMResponse (Maybe Text)
-chrsHSMARN = lens _chrsHSMARN (\ s a -> s{_chrsHSMARN = a});
+chrsHSMARN = lens _chrsHSMARN (\ s a -> s{_chrsHSMARN = a})
 
 -- | -- | The response status code.
 chrsResponseStatus :: Lens' CreateHSMResponse Int
-chrsResponseStatus = lens _chrsResponseStatus (\ s a -> s{_chrsResponseStatus = a});
+chrsResponseStatus = lens _chrsResponseStatus (\ s a -> s{_chrsResponseStatus = a})
 
 instance NFData CreateHSMResponse where
diff --git a/gen/Network/AWS/CloudHSM/CreateLunaClient.hs b/gen/Network/AWS/CloudHSM/CreateLunaClient.hs
--- a/gen/Network/AWS/CloudHSM/CreateLunaClient.hs
+++ b/gen/Network/AWS/CloudHSM/CreateLunaClient.hs
@@ -12,7 +12,7 @@
 
 -- |
 -- Module      : Network.AWS.CloudHSM.CreateLunaClient
--- Copyright   : (c) 2013-2017 Brendan Hay
+-- Copyright   : (c) 2013-2018 Brendan Hay
 -- License     : Mozilla Public License, v. 2.0.
 -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com>
 -- Stability   : auto-generated
@@ -76,11 +76,11 @@
 
 -- | The label for the client.
 clcLabel :: Lens' CreateLunaClient (Maybe Text)
-clcLabel = lens _clcLabel (\ s a -> s{_clcLabel = a});
+clcLabel = lens _clcLabel (\ s a -> s{_clcLabel = a})
 
 -- | The contents of a Base64-Encoded X.509 v3 certificate to be installed on the HSMs used by this client.
 clcCertificate :: Lens' CreateLunaClient Text
-clcCertificate = lens _clcCertificate (\ s a -> s{_clcCertificate = a});
+clcCertificate = lens _clcCertificate (\ s a -> s{_clcCertificate = a})
 
 instance AWSRequest CreateLunaClient where
         type Rs CreateLunaClient = CreateLunaClientResponse
@@ -141,15 +141,15 @@
     -> CreateLunaClientResponse
 createLunaClientResponse pResponseStatus_ =
   CreateLunaClientResponse'
-  {_clcrsClientARN = Nothing, _clcrsResponseStatus = pResponseStatus_}
+    {_clcrsClientARN = Nothing, _clcrsResponseStatus = pResponseStatus_}
 
 
 -- | The ARN of the client.
 clcrsClientARN :: Lens' CreateLunaClientResponse (Maybe Text)
-clcrsClientARN = lens _clcrsClientARN (\ s a -> s{_clcrsClientARN = a});
+clcrsClientARN = lens _clcrsClientARN (\ s a -> s{_clcrsClientARN = a})
 
 -- | -- | The response status code.
 clcrsResponseStatus :: Lens' CreateLunaClientResponse Int
-clcrsResponseStatus = lens _clcrsResponseStatus (\ s a -> s{_clcrsResponseStatus = a});
+clcrsResponseStatus = lens _clcrsResponseStatus (\ s a -> s{_clcrsResponseStatus = a})
 
 instance NFData CreateLunaClientResponse where
diff --git a/gen/Network/AWS/CloudHSM/DeleteHAPG.hs b/gen/Network/AWS/CloudHSM/DeleteHAPG.hs
--- a/gen/Network/AWS/CloudHSM/DeleteHAPG.hs
+++ b/gen/Network/AWS/CloudHSM/DeleteHAPG.hs
@@ -12,7 +12,7 @@
 
 -- |
 -- Module      : Network.AWS.CloudHSM.DeleteHAPG
--- 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,7 +71,7 @@
 
 -- | The ARN of the high-availability partition group to delete.
 dhHAPGARN :: Lens' DeleteHAPG Text
-dhHAPGARN = lens _dhHAPGARN (\ s a -> s{_dhHAPGARN = a});
+dhHAPGARN = lens _dhHAPGARN (\ s a -> s{_dhHAPGARN = a})
 
 instance AWSRequest DeleteHAPG where
         type Rs DeleteHAPG = DeleteHAPGResponse
@@ -129,15 +129,15 @@
     -> DeleteHAPGResponse
 deleteHAPGResponse pResponseStatus_ pStatus_ =
   DeleteHAPGResponse'
-  {_dhrsResponseStatus = pResponseStatus_, _dhrsStatus = pStatus_}
+    {_dhrsResponseStatus = pResponseStatus_, _dhrsStatus = pStatus_}
 
 
 -- | -- | The response status code.
 dhrsResponseStatus :: Lens' DeleteHAPGResponse Int
-dhrsResponseStatus = lens _dhrsResponseStatus (\ s a -> s{_dhrsResponseStatus = a});
+dhrsResponseStatus = lens _dhrsResponseStatus (\ s a -> s{_dhrsResponseStatus = a})
 
 -- | The status of the action.
 dhrsStatus :: Lens' DeleteHAPGResponse Text
-dhrsStatus = lens _dhrsStatus (\ s a -> s{_dhrsStatus = a});
+dhrsStatus = lens _dhrsStatus (\ s a -> s{_dhrsStatus = a})
 
 instance NFData DeleteHAPGResponse where
diff --git a/gen/Network/AWS/CloudHSM/DeleteHSM.hs b/gen/Network/AWS/CloudHSM/DeleteHSM.hs
--- a/gen/Network/AWS/CloudHSM/DeleteHSM.hs
+++ b/gen/Network/AWS/CloudHSM/DeleteHSM.hs
@@ -12,7 +12,7 @@
 
 -- |
 -- Module      : Network.AWS.CloudHSM.DeleteHSM
--- 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,7 +71,7 @@
 
 -- | The ARN of the HSM to delete.
 dhHSMARN :: Lens' DeleteHSM Text
-dhHSMARN = lens _dhHSMARN (\ s a -> s{_dhHSMARN = a});
+dhHSMARN = lens _dhHSMARN (\ s a -> s{_dhHSMARN = a})
 
 instance AWSRequest DeleteHSM where
         type Rs DeleteHSM = DeleteHSMResponse
@@ -129,15 +129,15 @@
     -> DeleteHSMResponse
 deleteHSMResponse pResponseStatus_ pStatus_ =
   DeleteHSMResponse'
-  {_dhsmrsResponseStatus = pResponseStatus_, _dhsmrsStatus = pStatus_}
+    {_dhsmrsResponseStatus = pResponseStatus_, _dhsmrsStatus = pStatus_}
 
 
 -- | -- | The response status code.
 dhsmrsResponseStatus :: Lens' DeleteHSMResponse Int
-dhsmrsResponseStatus = lens _dhsmrsResponseStatus (\ s a -> s{_dhsmrsResponseStatus = a});
+dhsmrsResponseStatus = lens _dhsmrsResponseStatus (\ s a -> s{_dhsmrsResponseStatus = a})
 
 -- | The status of the operation.
 dhsmrsStatus :: Lens' DeleteHSMResponse Text
-dhsmrsStatus = lens _dhsmrsStatus (\ s a -> s{_dhsmrsStatus = a});
+dhsmrsStatus = lens _dhsmrsStatus (\ s a -> s{_dhsmrsStatus = a})
 
 instance NFData DeleteHSMResponse where
diff --git a/gen/Network/AWS/CloudHSM/DeleteLunaClient.hs b/gen/Network/AWS/CloudHSM/DeleteLunaClient.hs
--- a/gen/Network/AWS/CloudHSM/DeleteLunaClient.hs
+++ b/gen/Network/AWS/CloudHSM/DeleteLunaClient.hs
@@ -12,7 +12,7 @@
 
 -- |
 -- Module      : Network.AWS.CloudHSM.DeleteLunaClient
--- 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 client to delete.
 dClientARN :: Lens' DeleteLunaClient Text
-dClientARN = lens _dClientARN (\ s a -> s{_dClientARN = a});
+dClientARN = lens _dClientARN (\ s a -> s{_dClientARN = a})
 
 instance AWSRequest DeleteLunaClient where
         type Rs DeleteLunaClient = DeleteLunaClientResponse
@@ -123,15 +123,15 @@
     -> DeleteLunaClientResponse
 deleteLunaClientResponse pResponseStatus_ pStatus_ =
   DeleteLunaClientResponse'
-  {_dlcrsResponseStatus = pResponseStatus_, _dlcrsStatus = pStatus_}
+    {_dlcrsResponseStatus = pResponseStatus_, _dlcrsStatus = pStatus_}
 
 
 -- | -- | The response status code.
 dlcrsResponseStatus :: Lens' DeleteLunaClientResponse Int
-dlcrsResponseStatus = lens _dlcrsResponseStatus (\ s a -> s{_dlcrsResponseStatus = a});
+dlcrsResponseStatus = lens _dlcrsResponseStatus (\ s a -> s{_dlcrsResponseStatus = a})
 
 -- | The status of the action.
 dlcrsStatus :: Lens' DeleteLunaClientResponse Text
-dlcrsStatus = lens _dlcrsStatus (\ s a -> s{_dlcrsStatus = a});
+dlcrsStatus = lens _dlcrsStatus (\ s a -> s{_dlcrsStatus = a})
 
 instance NFData DeleteLunaClientResponse where
diff --git a/gen/Network/AWS/CloudHSM/DescribeHAPG.hs b/gen/Network/AWS/CloudHSM/DescribeHAPG.hs
--- a/gen/Network/AWS/CloudHSM/DescribeHAPG.hs
+++ b/gen/Network/AWS/CloudHSM/DescribeHAPG.hs
@@ -12,7 +12,7 @@
 
 -- |
 -- Module      : Network.AWS.CloudHSM.DescribeHAPG
--- 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,7 +79,7 @@
 
 -- | The ARN of the high-availability partition group to describe.
 dhapgHAPGARN :: Lens' DescribeHAPG Text
-dhapgHAPGARN = lens _dhapgHAPGARN (\ s a -> s{_dhapgHAPGARN = a});
+dhapgHAPGARN = lens _dhapgHAPGARN (\ s a -> s{_dhapgHAPGARN = a})
 
 instance AWSRequest DescribeHAPG where
         type Rs DescribeHAPG = DescribeHAPGResponse
@@ -170,57 +170,57 @@
     -> DescribeHAPGResponse
 describeHAPGResponse pResponseStatus_ =
   DescribeHAPGResponse'
-  { _dhapgrsState = Nothing
-  , _dhapgrsLastModifiedTimestamp = Nothing
-  , _dhapgrsHSMsPendingRegistration = Nothing
-  , _dhapgrsHSMsPendingDeletion = Nothing
-  , _dhapgrsHAPGSerial = Nothing
-  , _dhapgrsHSMsLastActionFailed = Nothing
-  , _dhapgrsPartitionSerialList = Nothing
-  , _dhapgrsHAPGARN = Nothing
-  , _dhapgrsLabel = Nothing
-  , _dhapgrsResponseStatus = pResponseStatus_
-  }
+    { _dhapgrsState = Nothing
+    , _dhapgrsLastModifiedTimestamp = Nothing
+    , _dhapgrsHSMsPendingRegistration = Nothing
+    , _dhapgrsHSMsPendingDeletion = Nothing
+    , _dhapgrsHAPGSerial = Nothing
+    , _dhapgrsHSMsLastActionFailed = Nothing
+    , _dhapgrsPartitionSerialList = Nothing
+    , _dhapgrsHAPGARN = Nothing
+    , _dhapgrsLabel = Nothing
+    , _dhapgrsResponseStatus = pResponseStatus_
+    }
 
 
 -- | The state of the high-availability partition group.
 dhapgrsState :: Lens' DescribeHAPGResponse (Maybe CloudHSMObjectState)
-dhapgrsState = lens _dhapgrsState (\ s a -> s{_dhapgrsState = a});
+dhapgrsState = lens _dhapgrsState (\ s a -> s{_dhapgrsState = a})
 
 -- | The date and time the high-availability partition group was last modified.
 dhapgrsLastModifiedTimestamp :: Lens' DescribeHAPGResponse (Maybe Text)
-dhapgrsLastModifiedTimestamp = lens _dhapgrsLastModifiedTimestamp (\ s a -> s{_dhapgrsLastModifiedTimestamp = a});
+dhapgrsLastModifiedTimestamp = lens _dhapgrsLastModifiedTimestamp (\ s a -> s{_dhapgrsLastModifiedTimestamp = a})
 
 -- |
 dhapgrsHSMsPendingRegistration :: Lens' DescribeHAPGResponse [Text]
-dhapgrsHSMsPendingRegistration = lens _dhapgrsHSMsPendingRegistration (\ s a -> s{_dhapgrsHSMsPendingRegistration = a}) . _Default . _Coerce;
+dhapgrsHSMsPendingRegistration = lens _dhapgrsHSMsPendingRegistration (\ s a -> s{_dhapgrsHSMsPendingRegistration = a}) . _Default . _Coerce
 
 -- |
 dhapgrsHSMsPendingDeletion :: Lens' DescribeHAPGResponse [Text]
-dhapgrsHSMsPendingDeletion = lens _dhapgrsHSMsPendingDeletion (\ s a -> s{_dhapgrsHSMsPendingDeletion = a}) . _Default . _Coerce;
+dhapgrsHSMsPendingDeletion = lens _dhapgrsHSMsPendingDeletion (\ s a -> s{_dhapgrsHSMsPendingDeletion = a}) . _Default . _Coerce
 
 -- | The serial number of the high-availability partition group.
 dhapgrsHAPGSerial :: Lens' DescribeHAPGResponse (Maybe Text)
-dhapgrsHAPGSerial = lens _dhapgrsHAPGSerial (\ s a -> s{_dhapgrsHAPGSerial = a});
+dhapgrsHAPGSerial = lens _dhapgrsHAPGSerial (\ s a -> s{_dhapgrsHAPGSerial = a})
 
 -- |
 dhapgrsHSMsLastActionFailed :: Lens' DescribeHAPGResponse [Text]
-dhapgrsHSMsLastActionFailed = lens _dhapgrsHSMsLastActionFailed (\ s a -> s{_dhapgrsHSMsLastActionFailed = a}) . _Default . _Coerce;
+dhapgrsHSMsLastActionFailed = lens _dhapgrsHSMsLastActionFailed (\ s a -> s{_dhapgrsHSMsLastActionFailed = a}) . _Default . _Coerce
 
 -- | The list of partition serial numbers that belong to the high-availability partition group.
 dhapgrsPartitionSerialList :: Lens' DescribeHAPGResponse [Text]
-dhapgrsPartitionSerialList = lens _dhapgrsPartitionSerialList (\ s a -> s{_dhapgrsPartitionSerialList = a}) . _Default . _Coerce;
+dhapgrsPartitionSerialList = lens _dhapgrsPartitionSerialList (\ s a -> s{_dhapgrsPartitionSerialList = a}) . _Default . _Coerce
 
 -- | The ARN of the high-availability partition group.
 dhapgrsHAPGARN :: Lens' DescribeHAPGResponse (Maybe Text)
-dhapgrsHAPGARN = lens _dhapgrsHAPGARN (\ s a -> s{_dhapgrsHAPGARN = a});
+dhapgrsHAPGARN = lens _dhapgrsHAPGARN (\ s a -> s{_dhapgrsHAPGARN = a})
 
 -- | The label for the high-availability partition group.
 dhapgrsLabel :: Lens' DescribeHAPGResponse (Maybe Text)
-dhapgrsLabel = lens _dhapgrsLabel (\ s a -> s{_dhapgrsLabel = a});
+dhapgrsLabel = lens _dhapgrsLabel (\ s a -> s{_dhapgrsLabel = a})
 
 -- | -- | The response status code.
 dhapgrsResponseStatus :: Lens' DescribeHAPGResponse Int
-dhapgrsResponseStatus = lens _dhapgrsResponseStatus (\ s a -> s{_dhapgrsResponseStatus = a});
+dhapgrsResponseStatus = lens _dhapgrsResponseStatus (\ s a -> s{_dhapgrsResponseStatus = a})
 
 instance NFData DescribeHAPGResponse where
diff --git a/gen/Network/AWS/CloudHSM/DescribeHSM.hs b/gen/Network/AWS/CloudHSM/DescribeHSM.hs
--- a/gen/Network/AWS/CloudHSM/DescribeHSM.hs
+++ b/gen/Network/AWS/CloudHSM/DescribeHSM.hs
@@ -12,7 +12,7 @@
 
 -- |
 -- Module      : Network.AWS.CloudHSM.DescribeHSM
--- Copyright   : (c) 2013-2017 Brendan Hay
+-- Copyright   : (c) 2013-2018 Brendan Hay
 -- License     : Mozilla Public License, v. 2.0.
 -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com>
 -- Stability   : auto-generated
@@ -95,11 +95,11 @@
 
 -- | The serial number of the HSM. Either the @HsmArn@ or the @HsmSerialNumber@ parameter must be specified.
 dhsmHSMSerialNumber :: Lens' DescribeHSM (Maybe Text)
-dhsmHSMSerialNumber = lens _dhsmHSMSerialNumber (\ s a -> s{_dhsmHSMSerialNumber = a});
+dhsmHSMSerialNumber = lens _dhsmHSMSerialNumber (\ s a -> s{_dhsmHSMSerialNumber = a})
 
 -- | The ARN of the HSM. Either the @HsmArn@ or the @SerialNumber@ parameter must be specified.
 dhsmHSMARN :: Lens' DescribeHSM (Maybe Text)
-dhsmHSMARN = lens _dhsmHSMARN (\ s a -> s{_dhsmHSMARN = a});
+dhsmHSMARN = lens _dhsmHSMARN (\ s a -> s{_dhsmHSMARN = a})
 
 instance AWSRequest DescribeHSM where
         type Rs DescribeHSM = DescribeHSMResponse
@@ -240,117 +240,117 @@
     -> DescribeHSMResponse
 describeHSMResponse pResponseStatus_ =
   DescribeHSMResponse'
-  { _desrsStatus = Nothing
-  , _desrsIAMRoleARN = Nothing
-  , _desrsEniId = Nothing
-  , _desrsVPCId = Nothing
-  , _desrsSSHKeyLastUpdated = Nothing
-  , _desrsSubscriptionEndDate = Nothing
-  , _desrsServerCertURI = Nothing
-  , _desrsSubscriptionType = Nothing
-  , _desrsSSHPublicKey = Nothing
-  , _desrsSubnetId = Nothing
-  , _desrsStatusDetails = Nothing
-  , _desrsPartitions = Nothing
-  , _desrsSubscriptionStartDate = Nothing
-  , _desrsAvailabilityZone = Nothing
-  , _desrsServerCertLastUpdated = Nothing
-  , _desrsSoftwareVersion = Nothing
-  , _desrsVendorName = Nothing
-  , _desrsSerialNumber = Nothing
-  , _desrsHSMARN = Nothing
-  , _desrsEniIP = Nothing
-  , _desrsHSMType = Nothing
-  , _desrsResponseStatus = pResponseStatus_
-  }
+    { _desrsStatus = Nothing
+    , _desrsIAMRoleARN = Nothing
+    , _desrsEniId = Nothing
+    , _desrsVPCId = Nothing
+    , _desrsSSHKeyLastUpdated = Nothing
+    , _desrsSubscriptionEndDate = Nothing
+    , _desrsServerCertURI = Nothing
+    , _desrsSubscriptionType = Nothing
+    , _desrsSSHPublicKey = Nothing
+    , _desrsSubnetId = Nothing
+    , _desrsStatusDetails = Nothing
+    , _desrsPartitions = Nothing
+    , _desrsSubscriptionStartDate = Nothing
+    , _desrsAvailabilityZone = Nothing
+    , _desrsServerCertLastUpdated = Nothing
+    , _desrsSoftwareVersion = Nothing
+    , _desrsVendorName = Nothing
+    , _desrsSerialNumber = Nothing
+    , _desrsHSMARN = Nothing
+    , _desrsEniIP = Nothing
+    , _desrsHSMType = Nothing
+    , _desrsResponseStatus = pResponseStatus_
+    }
 
 
 -- | The status of the HSM.
 desrsStatus :: Lens' DescribeHSMResponse (Maybe HSMStatus)
-desrsStatus = lens _desrsStatus (\ s a -> s{_desrsStatus = a});
+desrsStatus = lens _desrsStatus (\ s a -> s{_desrsStatus = a})
 
 -- | The ARN of the IAM role assigned to the HSM.
 desrsIAMRoleARN :: Lens' DescribeHSMResponse (Maybe Text)
-desrsIAMRoleARN = lens _desrsIAMRoleARN (\ s a -> s{_desrsIAMRoleARN = a});
+desrsIAMRoleARN = lens _desrsIAMRoleARN (\ s a -> s{_desrsIAMRoleARN = a})
 
 -- | The identifier of the elastic network interface (ENI) attached to the HSM.
 desrsEniId :: Lens' DescribeHSMResponse (Maybe Text)
-desrsEniId = lens _desrsEniId (\ s a -> s{_desrsEniId = a});
+desrsEniId = lens _desrsEniId (\ s a -> s{_desrsEniId = a})
 
 -- | The identifier of the VPC that the HSM is in.
 desrsVPCId :: Lens' DescribeHSMResponse (Maybe Text)
-desrsVPCId = lens _desrsVPCId (\ s a -> s{_desrsVPCId = a});
+desrsVPCId = lens _desrsVPCId (\ s a -> s{_desrsVPCId = a})
 
 -- | The date and time that the SSH key was last updated.
 desrsSSHKeyLastUpdated :: Lens' DescribeHSMResponse (Maybe Text)
-desrsSSHKeyLastUpdated = lens _desrsSSHKeyLastUpdated (\ s a -> s{_desrsSSHKeyLastUpdated = a});
+desrsSSHKeyLastUpdated = lens _desrsSSHKeyLastUpdated (\ s a -> s{_desrsSSHKeyLastUpdated = a})
 
 -- | The subscription end date.
 desrsSubscriptionEndDate :: Lens' DescribeHSMResponse (Maybe Text)
-desrsSubscriptionEndDate = lens _desrsSubscriptionEndDate (\ s a -> s{_desrsSubscriptionEndDate = a});
+desrsSubscriptionEndDate = lens _desrsSubscriptionEndDate (\ s a -> s{_desrsSubscriptionEndDate = a})
 
 -- | The URI of the certificate server.
 desrsServerCertURI :: Lens' DescribeHSMResponse (Maybe Text)
-desrsServerCertURI = lens _desrsServerCertURI (\ s a -> s{_desrsServerCertURI = a});
+desrsServerCertURI = lens _desrsServerCertURI (\ s a -> s{_desrsServerCertURI = a})
 
 -- | Undocumented member.
 desrsSubscriptionType :: Lens' DescribeHSMResponse (Maybe SubscriptionType)
-desrsSubscriptionType = lens _desrsSubscriptionType (\ s a -> s{_desrsSubscriptionType = a});
+desrsSubscriptionType = lens _desrsSubscriptionType (\ s a -> s{_desrsSubscriptionType = a})
 
 -- | The public SSH key.
 desrsSSHPublicKey :: Lens' DescribeHSMResponse (Maybe Text)
-desrsSSHPublicKey = lens _desrsSSHPublicKey (\ s a -> s{_desrsSSHPublicKey = a});
+desrsSSHPublicKey = lens _desrsSSHPublicKey (\ s a -> s{_desrsSSHPublicKey = a})
 
 -- | The identifier of the subnet that the HSM is in.
 desrsSubnetId :: Lens' DescribeHSMResponse (Maybe Text)
-desrsSubnetId = lens _desrsSubnetId (\ s a -> s{_desrsSubnetId = a});
+desrsSubnetId = lens _desrsSubnetId (\ s a -> s{_desrsSubnetId = a})
 
 -- | Contains additional information about the status of the HSM.
 desrsStatusDetails :: Lens' DescribeHSMResponse (Maybe Text)
-desrsStatusDetails = lens _desrsStatusDetails (\ s a -> s{_desrsStatusDetails = a});
+desrsStatusDetails = lens _desrsStatusDetails (\ s a -> s{_desrsStatusDetails = a})
 
 -- | The list of partitions on the HSM.
 desrsPartitions :: Lens' DescribeHSMResponse [Text]
-desrsPartitions = lens _desrsPartitions (\ s a -> s{_desrsPartitions = a}) . _Default . _Coerce;
+desrsPartitions = lens _desrsPartitions (\ s a -> s{_desrsPartitions = a}) . _Default . _Coerce
 
 -- | The subscription start date.
 desrsSubscriptionStartDate :: Lens' DescribeHSMResponse (Maybe Text)
-desrsSubscriptionStartDate = lens _desrsSubscriptionStartDate (\ s a -> s{_desrsSubscriptionStartDate = a});
+desrsSubscriptionStartDate = lens _desrsSubscriptionStartDate (\ s a -> s{_desrsSubscriptionStartDate = a})
 
 -- | The Availability Zone that the HSM is in.
 desrsAvailabilityZone :: Lens' DescribeHSMResponse (Maybe Text)
-desrsAvailabilityZone = lens _desrsAvailabilityZone (\ s a -> s{_desrsAvailabilityZone = a});
+desrsAvailabilityZone = lens _desrsAvailabilityZone (\ s a -> s{_desrsAvailabilityZone = a})
 
 -- | The date and time that the server certificate was last updated.
 desrsServerCertLastUpdated :: Lens' DescribeHSMResponse (Maybe Text)
-desrsServerCertLastUpdated = lens _desrsServerCertLastUpdated (\ s a -> s{_desrsServerCertLastUpdated = a});
+desrsServerCertLastUpdated = lens _desrsServerCertLastUpdated (\ s a -> s{_desrsServerCertLastUpdated = a})
 
 -- | The HSM software version.
 desrsSoftwareVersion :: Lens' DescribeHSMResponse (Maybe Text)
-desrsSoftwareVersion = lens _desrsSoftwareVersion (\ s a -> s{_desrsSoftwareVersion = a});
+desrsSoftwareVersion = lens _desrsSoftwareVersion (\ s a -> s{_desrsSoftwareVersion = a})
 
 -- | The name of the HSM vendor.
 desrsVendorName :: Lens' DescribeHSMResponse (Maybe Text)
-desrsVendorName = lens _desrsVendorName (\ s a -> s{_desrsVendorName = a});
+desrsVendorName = lens _desrsVendorName (\ s a -> s{_desrsVendorName = a})
 
 -- | The serial number of the HSM.
 desrsSerialNumber :: Lens' DescribeHSMResponse (Maybe Text)
-desrsSerialNumber = lens _desrsSerialNumber (\ s a -> s{_desrsSerialNumber = a});
+desrsSerialNumber = lens _desrsSerialNumber (\ s a -> s{_desrsSerialNumber = a})
 
 -- | The ARN of the HSM.
 desrsHSMARN :: Lens' DescribeHSMResponse (Maybe Text)
-desrsHSMARN = lens _desrsHSMARN (\ s a -> s{_desrsHSMARN = a});
+desrsHSMARN = lens _desrsHSMARN (\ s a -> s{_desrsHSMARN = a})
 
 -- | The IP address assigned to the HSM's ENI.
 desrsEniIP :: Lens' DescribeHSMResponse (Maybe Text)
-desrsEniIP = lens _desrsEniIP (\ s a -> s{_desrsEniIP = a});
+desrsEniIP = lens _desrsEniIP (\ s a -> s{_desrsEniIP = a})
 
 -- | The HSM model type.
 desrsHSMType :: Lens' DescribeHSMResponse (Maybe Text)
-desrsHSMType = lens _desrsHSMType (\ s a -> s{_desrsHSMType = a});
+desrsHSMType = lens _desrsHSMType (\ s a -> s{_desrsHSMType = a})
 
 -- | -- | The response status code.
 desrsResponseStatus :: Lens' DescribeHSMResponse Int
-desrsResponseStatus = lens _desrsResponseStatus (\ s a -> s{_desrsResponseStatus = a});
+desrsResponseStatus = lens _desrsResponseStatus (\ s a -> s{_desrsResponseStatus = a})
 
 instance NFData DescribeHSMResponse where
diff --git a/gen/Network/AWS/CloudHSM/DescribeLunaClient.hs b/gen/Network/AWS/CloudHSM/DescribeLunaClient.hs
--- a/gen/Network/AWS/CloudHSM/DescribeLunaClient.hs
+++ b/gen/Network/AWS/CloudHSM/DescribeLunaClient.hs
@@ -12,7 +12,7 @@
 
 -- |
 -- Module      : Network.AWS.CloudHSM.DescribeLunaClient
--- 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,16 +71,16 @@
     :: DescribeLunaClient
 describeLunaClient =
   DescribeLunaClient'
-  {_dlcClientARN = Nothing, _dlcCertificateFingerprint = Nothing}
+    {_dlcClientARN = Nothing, _dlcCertificateFingerprint = Nothing}
 
 
 -- | The ARN of the client.
 dlcClientARN :: Lens' DescribeLunaClient (Maybe Text)
-dlcClientARN = lens _dlcClientARN (\ s a -> s{_dlcClientARN = a});
+dlcClientARN = lens _dlcClientARN (\ s a -> s{_dlcClientARN = a})
 
 -- | The certificate fingerprint.
 dlcCertificateFingerprint :: Lens' DescribeLunaClient (Maybe Text)
-dlcCertificateFingerprint = lens _dlcCertificateFingerprint (\ s a -> s{_dlcCertificateFingerprint = a});
+dlcCertificateFingerprint = lens _dlcCertificateFingerprint (\ s a -> s{_dlcCertificateFingerprint = a})
 
 instance AWSRequest DescribeLunaClient where
         type Rs DescribeLunaClient =
@@ -156,37 +156,37 @@
     -> DescribeLunaClientResponse
 describeLunaClientResponse pResponseStatus_ =
   DescribeLunaClientResponse'
-  { _drsClientARN = Nothing
-  , _drsLastModifiedTimestamp = Nothing
-  , _drsCertificateFingerprint = Nothing
-  , _drsCertificate = Nothing
-  , _drsLabel = Nothing
-  , _drsResponseStatus = pResponseStatus_
-  }
+    { _drsClientARN = Nothing
+    , _drsLastModifiedTimestamp = Nothing
+    , _drsCertificateFingerprint = Nothing
+    , _drsCertificate = Nothing
+    , _drsLabel = Nothing
+    , _drsResponseStatus = pResponseStatus_
+    }
 
 
 -- | The ARN of the client.
 drsClientARN :: Lens' DescribeLunaClientResponse (Maybe Text)
-drsClientARN = lens _drsClientARN (\ s a -> s{_drsClientARN = a});
+drsClientARN = lens _drsClientARN (\ s a -> s{_drsClientARN = a})
 
 -- | The date and time the client was last modified.
 drsLastModifiedTimestamp :: Lens' DescribeLunaClientResponse (Maybe Text)
-drsLastModifiedTimestamp = lens _drsLastModifiedTimestamp (\ s a -> s{_drsLastModifiedTimestamp = a});
+drsLastModifiedTimestamp = lens _drsLastModifiedTimestamp (\ s a -> s{_drsLastModifiedTimestamp = a})
 
 -- | The certificate fingerprint.
 drsCertificateFingerprint :: Lens' DescribeLunaClientResponse (Maybe Text)
-drsCertificateFingerprint = lens _drsCertificateFingerprint (\ s a -> s{_drsCertificateFingerprint = a});
+drsCertificateFingerprint = lens _drsCertificateFingerprint (\ s a -> s{_drsCertificateFingerprint = a})
 
 -- | The certificate installed on the HSMs used by this client.
 drsCertificate :: Lens' DescribeLunaClientResponse (Maybe Text)
-drsCertificate = lens _drsCertificate (\ s a -> s{_drsCertificate = a});
+drsCertificate = lens _drsCertificate (\ s a -> s{_drsCertificate = a})
 
 -- | The label of the client.
 drsLabel :: Lens' DescribeLunaClientResponse (Maybe Text)
-drsLabel = lens _drsLabel (\ s a -> s{_drsLabel = a});
+drsLabel = lens _drsLabel (\ s a -> s{_drsLabel = a})
 
 -- | -- | The response status code.
 drsResponseStatus :: Lens' DescribeLunaClientResponse Int
-drsResponseStatus = lens _drsResponseStatus (\ s a -> s{_drsResponseStatus = a});
+drsResponseStatus = lens _drsResponseStatus (\ s a -> s{_drsResponseStatus = a})
 
 instance NFData DescribeLunaClientResponse where
diff --git a/gen/Network/AWS/CloudHSM/GetConfig.hs b/gen/Network/AWS/CloudHSM/GetConfig.hs
--- a/gen/Network/AWS/CloudHSM/GetConfig.hs
+++ b/gen/Network/AWS/CloudHSM/GetConfig.hs
@@ -12,7 +12,7 @@
 
 -- |
 -- Module      : Network.AWS.CloudHSM.GetConfig
--- 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,23 +75,23 @@
     -> GetConfig
 getConfig pClientARN_ pClientVersion_ =
   GetConfig'
-  { _gcClientARN = pClientARN_
-  , _gcClientVersion = pClientVersion_
-  , _gcHAPGList = mempty
-  }
+    { _gcClientARN = pClientARN_
+    , _gcClientVersion = pClientVersion_
+    , _gcHAPGList = mempty
+    }
 
 
 -- | The ARN of the client.
 gcClientARN :: Lens' GetConfig Text
-gcClientARN = lens _gcClientARN (\ s a -> s{_gcClientARN = a});
+gcClientARN = lens _gcClientARN (\ s a -> s{_gcClientARN = a})
 
 -- | The client version.
 gcClientVersion :: Lens' GetConfig ClientVersion
-gcClientVersion = lens _gcClientVersion (\ s a -> s{_gcClientVersion = a});
+gcClientVersion = lens _gcClientVersion (\ s a -> s{_gcClientVersion = a})
 
 -- | A list of ARNs that identify the high-availability partition groups that are associated with the client.
 gcHAPGList :: Lens' GetConfig [Text]
-gcHAPGList = lens _gcHAPGList (\ s a -> s{_gcHAPGList = a}) . _Coerce;
+gcHAPGList = lens _gcHAPGList (\ s a -> s{_gcHAPGList = a}) . _Coerce
 
 instance AWSRequest GetConfig where
         type Rs GetConfig = GetConfigResponse
@@ -156,27 +156,27 @@
     -> GetConfigResponse
 getConfigResponse pResponseStatus_ =
   GetConfigResponse'
-  { _gcrsConfigFile = Nothing
-  , _gcrsConfigCred = Nothing
-  , _gcrsConfigType = Nothing
-  , _gcrsResponseStatus = pResponseStatus_
-  }
+    { _gcrsConfigFile = Nothing
+    , _gcrsConfigCred = Nothing
+    , _gcrsConfigType = Nothing
+    , _gcrsResponseStatus = pResponseStatus_
+    }
 
 
 -- | The chrystoki.conf configuration file.
 gcrsConfigFile :: Lens' GetConfigResponse (Maybe Text)
-gcrsConfigFile = lens _gcrsConfigFile (\ s a -> s{_gcrsConfigFile = a});
+gcrsConfigFile = lens _gcrsConfigFile (\ s a -> s{_gcrsConfigFile = a})
 
 -- | The certificate file containing the server.pem files of the HSMs.
 gcrsConfigCred :: Lens' GetConfigResponse (Maybe Text)
-gcrsConfigCred = lens _gcrsConfigCred (\ s a -> s{_gcrsConfigCred = a});
+gcrsConfigCred = lens _gcrsConfigCred (\ s a -> s{_gcrsConfigCred = a})
 
 -- | The type of credentials.
 gcrsConfigType :: Lens' GetConfigResponse (Maybe Text)
-gcrsConfigType = lens _gcrsConfigType (\ s a -> s{_gcrsConfigType = a});
+gcrsConfigType = lens _gcrsConfigType (\ s a -> s{_gcrsConfigType = a})
 
 -- | -- | The response status code.
 gcrsResponseStatus :: Lens' GetConfigResponse Int
-gcrsResponseStatus = lens _gcrsResponseStatus (\ s a -> s{_gcrsResponseStatus = a});
+gcrsResponseStatus = lens _gcrsResponseStatus (\ s a -> s{_gcrsResponseStatus = a})
 
 instance NFData GetConfigResponse where
diff --git a/gen/Network/AWS/CloudHSM/ListAvailableZones.hs b/gen/Network/AWS/CloudHSM/ListAvailableZones.hs
--- a/gen/Network/AWS/CloudHSM/ListAvailableZones.hs
+++ b/gen/Network/AWS/CloudHSM/ListAvailableZones.hs
@@ -12,7 +12,7 @@
 
 -- |
 -- Module      : Network.AWS.CloudHSM.ListAvailableZones
--- 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
@@ -115,15 +115,15 @@
     -> ListAvailableZonesResponse
 listAvailableZonesResponse pResponseStatus_ =
   ListAvailableZonesResponse'
-  {_lazrsAZList = Nothing, _lazrsResponseStatus = pResponseStatus_}
+    {_lazrsAZList = Nothing, _lazrsResponseStatus = pResponseStatus_}
 
 
 -- | The list of Availability Zones that have available AWS CloudHSM capacity.
 lazrsAZList :: Lens' ListAvailableZonesResponse [Text]
-lazrsAZList = lens _lazrsAZList (\ s a -> s{_lazrsAZList = a}) . _Default . _Coerce;
+lazrsAZList = lens _lazrsAZList (\ s a -> s{_lazrsAZList = a}) . _Default . _Coerce
 
 -- | -- | The response status code.
 lazrsResponseStatus :: Lens' ListAvailableZonesResponse Int
-lazrsResponseStatus = lens _lazrsResponseStatus (\ s a -> s{_lazrsResponseStatus = a});
+lazrsResponseStatus = lens _lazrsResponseStatus (\ s a -> s{_lazrsResponseStatus = a})
 
 instance NFData ListAvailableZonesResponse where
diff --git a/gen/Network/AWS/CloudHSM/ListHAPGs.hs b/gen/Network/AWS/CloudHSM/ListHAPGs.hs
--- a/gen/Network/AWS/CloudHSM/ListHAPGs.hs
+++ b/gen/Network/AWS/CloudHSM/ListHAPGs.hs
@@ -12,7 +12,7 @@
 
 -- |
 -- Module      : Network.AWS.CloudHSM.ListHAPGs
--- 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 @NextToken@ value from a previous call to @ListHapgs@ . Pass null if this is the first call.
 lhNextToken :: Lens' ListHAPGs (Maybe Text)
-lhNextToken = lens _lhNextToken (\ s a -> s{_lhNextToken = a});
+lhNextToken = lens _lhNextToken (\ s a -> s{_lhNextToken = a})
 
 instance AWSRequest ListHAPGs where
         type Rs ListHAPGs = ListHAPGsResponse
@@ -127,22 +127,22 @@
     -> ListHAPGsResponse
 listHAPGsResponse pResponseStatus_ =
   ListHAPGsResponse'
-  { _lhrsNextToken = Nothing
-  , _lhrsResponseStatus = pResponseStatus_
-  , _lhrsHAPGList = mempty
-  }
+    { _lhrsNextToken = Nothing
+    , _lhrsResponseStatus = pResponseStatus_
+    , _lhrsHAPGList = mempty
+    }
 
 
 -- | If not null, more results are available. Pass this value to @ListHapgs@ to retrieve the next set of items.
 lhrsNextToken :: Lens' ListHAPGsResponse (Maybe Text)
-lhrsNextToken = lens _lhrsNextToken (\ s a -> s{_lhrsNextToken = a});
+lhrsNextToken = lens _lhrsNextToken (\ s a -> s{_lhrsNextToken = a})
 
 -- | -- | The response status code.
 lhrsResponseStatus :: Lens' ListHAPGsResponse Int
-lhrsResponseStatus = lens _lhrsResponseStatus (\ s a -> s{_lhrsResponseStatus = a});
+lhrsResponseStatus = lens _lhrsResponseStatus (\ s a -> s{_lhrsResponseStatus = a})
 
 -- | The list of high-availability partition groups.
 lhrsHAPGList :: Lens' ListHAPGsResponse [Text]
-lhrsHAPGList = lens _lhrsHAPGList (\ s a -> s{_lhrsHAPGList = a}) . _Coerce;
+lhrsHAPGList = lens _lhrsHAPGList (\ s a -> s{_lhrsHAPGList = a}) . _Coerce
 
 instance NFData ListHAPGsResponse where
diff --git a/gen/Network/AWS/CloudHSM/ListHSMs.hs b/gen/Network/AWS/CloudHSM/ListHSMs.hs
--- a/gen/Network/AWS/CloudHSM/ListHSMs.hs
+++ b/gen/Network/AWS/CloudHSM/ListHSMs.hs
@@ -12,7 +12,7 @@
 
 -- |
 -- Module      : Network.AWS.CloudHSM.ListHSMs
--- 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 @NextToken@ value from a previous call to @ListHsms@ . Pass null if this is the first call.
 lhsmNextToken :: Lens' ListHSMs (Maybe Text)
-lhsmNextToken = lens _lhsmNextToken (\ s a -> s{_lhsmNextToken = a});
+lhsmNextToken = lens _lhsmNextToken (\ s a -> s{_lhsmNextToken = a})
 
 instance AWSRequest ListHSMs where
         type Rs ListHSMs = ListHSMsResponse
@@ -131,22 +131,22 @@
     -> ListHSMsResponse
 listHSMsResponse pResponseStatus_ =
   ListHSMsResponse'
-  { _lhsmrsNextToken = Nothing
-  , _lhsmrsHSMList = Nothing
-  , _lhsmrsResponseStatus = pResponseStatus_
-  }
+    { _lhsmrsNextToken = Nothing
+    , _lhsmrsHSMList = Nothing
+    , _lhsmrsResponseStatus = pResponseStatus_
+    }
 
 
 -- | If not null, more results are available. Pass this value to @ListHsms@ to retrieve the next set of items.
 lhsmrsNextToken :: Lens' ListHSMsResponse (Maybe Text)
-lhsmrsNextToken = lens _lhsmrsNextToken (\ s a -> s{_lhsmrsNextToken = a});
+lhsmrsNextToken = lens _lhsmrsNextToken (\ s a -> s{_lhsmrsNextToken = a})
 
 -- | The list of ARNs that identify the HSMs.
 lhsmrsHSMList :: Lens' ListHSMsResponse [Text]
-lhsmrsHSMList = lens _lhsmrsHSMList (\ s a -> s{_lhsmrsHSMList = a}) . _Default . _Coerce;
+lhsmrsHSMList = lens _lhsmrsHSMList (\ s a -> s{_lhsmrsHSMList = a}) . _Default . _Coerce
 
 -- | -- | The response status code.
 lhsmrsResponseStatus :: Lens' ListHSMsResponse Int
-lhsmrsResponseStatus = lens _lhsmrsResponseStatus (\ s a -> s{_lhsmrsResponseStatus = a});
+lhsmrsResponseStatus = lens _lhsmrsResponseStatus (\ s a -> s{_lhsmrsResponseStatus = a})
 
 instance NFData ListHSMsResponse where
diff --git a/gen/Network/AWS/CloudHSM/ListLunaClients.hs b/gen/Network/AWS/CloudHSM/ListLunaClients.hs
--- a/gen/Network/AWS/CloudHSM/ListLunaClients.hs
+++ b/gen/Network/AWS/CloudHSM/ListLunaClients.hs
@@ -12,7 +12,7 @@
 
 -- |
 -- Module      : Network.AWS.CloudHSM.ListLunaClients
--- 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 @NextToken@ value from a previous call to @ListLunaClients@ . Pass null if this is the first call.
 llcNextToken :: Lens' ListLunaClients (Maybe Text)
-llcNextToken = lens _llcNextToken (\ s a -> s{_llcNextToken = a});
+llcNextToken = lens _llcNextToken (\ s a -> s{_llcNextToken = a})
 
 instance AWSRequest ListLunaClients where
         type Rs ListLunaClients = ListLunaClientsResponse
@@ -128,22 +128,22 @@
     -> ListLunaClientsResponse
 listLunaClientsResponse pResponseStatus_ =
   ListLunaClientsResponse'
-  { _llcrsNextToken = Nothing
-  , _llcrsResponseStatus = pResponseStatus_
-  , _llcrsClientList = mempty
-  }
+    { _llcrsNextToken = Nothing
+    , _llcrsResponseStatus = pResponseStatus_
+    , _llcrsClientList = mempty
+    }
 
 
 -- | If not null, more results are available. Pass this to @ListLunaClients@ to retrieve the next set of items.
 llcrsNextToken :: Lens' ListLunaClientsResponse (Maybe Text)
-llcrsNextToken = lens _llcrsNextToken (\ s a -> s{_llcrsNextToken = a});
+llcrsNextToken = lens _llcrsNextToken (\ s a -> s{_llcrsNextToken = a})
 
 -- | -- | The response status code.
 llcrsResponseStatus :: Lens' ListLunaClientsResponse Int
-llcrsResponseStatus = lens _llcrsResponseStatus (\ s a -> s{_llcrsResponseStatus = a});
+llcrsResponseStatus = lens _llcrsResponseStatus (\ s a -> s{_llcrsResponseStatus = a})
 
 -- | The list of clients.
 llcrsClientList :: Lens' ListLunaClientsResponse [Text]
-llcrsClientList = lens _llcrsClientList (\ s a -> s{_llcrsClientList = a}) . _Coerce;
+llcrsClientList = lens _llcrsClientList (\ s a -> s{_llcrsClientList = a}) . _Coerce
 
 instance NFData ListLunaClientsResponse where
diff --git a/gen/Network/AWS/CloudHSM/ListTagsForResource.hs b/gen/Network/AWS/CloudHSM/ListTagsForResource.hs
--- a/gen/Network/AWS/CloudHSM/ListTagsForResource.hs
+++ b/gen/Network/AWS/CloudHSM/ListTagsForResource.hs
@@ -12,7 +12,7 @@
 
 -- |
 -- Module      : Network.AWS.CloudHSM.ListTagsForResource
--- 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 Amazon Resource Name (ARN) of the AWS CloudHSM resource.
 ltfrResourceARN :: Lens' ListTagsForResource Text
-ltfrResourceARN = lens _ltfrResourceARN (\ s a -> s{_ltfrResourceARN = a});
+ltfrResourceARN = lens _ltfrResourceARN (\ s a -> s{_ltfrResourceARN = a})
 
 instance AWSRequest ListTagsForResource where
         type Rs ListTagsForResource =
@@ -125,15 +125,15 @@
     -> ListTagsForResourceResponse
 listTagsForResourceResponse pResponseStatus_ =
   ListTagsForResourceResponse'
-  {_ltfrrsResponseStatus = pResponseStatus_, _ltfrrsTagList = mempty}
+    {_ltfrrsResponseStatus = pResponseStatus_, _ltfrrsTagList = mempty}
 
 
 -- | -- | The response status code.
 ltfrrsResponseStatus :: Lens' ListTagsForResourceResponse Int
-ltfrrsResponseStatus = lens _ltfrrsResponseStatus (\ s a -> s{_ltfrrsResponseStatus = a});
+ltfrrsResponseStatus = lens _ltfrrsResponseStatus (\ s a -> s{_ltfrrsResponseStatus = a})
 
 -- | One or more tags.
 ltfrrsTagList :: Lens' ListTagsForResourceResponse [Tag]
-ltfrrsTagList = lens _ltfrrsTagList (\ s a -> s{_ltfrrsTagList = a}) . _Coerce;
+ltfrrsTagList = lens _ltfrrsTagList (\ s a -> s{_ltfrrsTagList = a}) . _Coerce
 
 instance NFData ListTagsForResourceResponse where
diff --git a/gen/Network/AWS/CloudHSM/ModifyHAPG.hs b/gen/Network/AWS/CloudHSM/ModifyHAPG.hs
--- a/gen/Network/AWS/CloudHSM/ModifyHAPG.hs
+++ b/gen/Network/AWS/CloudHSM/ModifyHAPG.hs
@@ -12,7 +12,7 @@
 
 -- |
 -- Module      : Network.AWS.CloudHSM.ModifyHAPG
--- 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,20 +72,23 @@
     -> ModifyHAPG
 modifyHAPG pHAPGARN_ =
   ModifyHAPG'
-  {_mhPartitionSerialList = Nothing, _mhLabel = Nothing, _mhHAPGARN = pHAPGARN_}
+    { _mhPartitionSerialList = Nothing
+    , _mhLabel = Nothing
+    , _mhHAPGARN = pHAPGARN_
+    }
 
 
 -- | The list of partition serial numbers to make members of the high-availability partition group.
 mhPartitionSerialList :: Lens' ModifyHAPG [Text]
-mhPartitionSerialList = lens _mhPartitionSerialList (\ s a -> s{_mhPartitionSerialList = a}) . _Default . _Coerce;
+mhPartitionSerialList = lens _mhPartitionSerialList (\ s a -> s{_mhPartitionSerialList = a}) . _Default . _Coerce
 
 -- | The new label for the high-availability partition group.
 mhLabel :: Lens' ModifyHAPG (Maybe Text)
-mhLabel = lens _mhLabel (\ s a -> s{_mhLabel = a});
+mhLabel = lens _mhLabel (\ s a -> s{_mhLabel = a})
 
 -- | The ARN of the high-availability partition group to modify.
 mhHAPGARN :: Lens' ModifyHAPG Text
-mhHAPGARN = lens _mhHAPGARN (\ s a -> s{_mhHAPGARN = a});
+mhHAPGARN = lens _mhHAPGARN (\ s a -> s{_mhHAPGARN = a})
 
 instance AWSRequest ModifyHAPG where
         type Rs ModifyHAPG = ModifyHAPGResponse
@@ -143,15 +146,15 @@
     -> ModifyHAPGResponse
 modifyHAPGResponse pResponseStatus_ =
   ModifyHAPGResponse'
-  {_mhrsHAPGARN = Nothing, _mhrsResponseStatus = pResponseStatus_}
+    {_mhrsHAPGARN = Nothing, _mhrsResponseStatus = pResponseStatus_}
 
 
 -- | The ARN of the high-availability partition group.
 mhrsHAPGARN :: Lens' ModifyHAPGResponse (Maybe Text)
-mhrsHAPGARN = lens _mhrsHAPGARN (\ s a -> s{_mhrsHAPGARN = a});
+mhrsHAPGARN = lens _mhrsHAPGARN (\ s a -> s{_mhrsHAPGARN = a})
 
 -- | -- | The response status code.
 mhrsResponseStatus :: Lens' ModifyHAPGResponse Int
-mhrsResponseStatus = lens _mhrsResponseStatus (\ s a -> s{_mhrsResponseStatus = a});
+mhrsResponseStatus = lens _mhrsResponseStatus (\ s a -> s{_mhrsResponseStatus = a})
 
 instance NFData ModifyHAPGResponse where
diff --git a/gen/Network/AWS/CloudHSM/ModifyHSM.hs b/gen/Network/AWS/CloudHSM/ModifyHSM.hs
--- a/gen/Network/AWS/CloudHSM/ModifyHSM.hs
+++ b/gen/Network/AWS/CloudHSM/ModifyHSM.hs
@@ -12,7 +12,7 @@
 
 -- |
 -- Module      : Network.AWS.CloudHSM.ModifyHSM
--- 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
@@ -90,38 +90,38 @@
     -> ModifyHSM
 modifyHSM pHSMARN_ =
   ModifyHSM'
-  { _mhIAMRoleARN = Nothing
-  , _mhSubnetId = Nothing
-  , _mhSyslogIP = Nothing
-  , _mhExternalId = Nothing
-  , _mhEniIP = Nothing
-  , _mhHSMARN = pHSMARN_
-  }
+    { _mhIAMRoleARN = Nothing
+    , _mhSubnetId = Nothing
+    , _mhSyslogIP = Nothing
+    , _mhExternalId = Nothing
+    , _mhEniIP = Nothing
+    , _mhHSMARN = pHSMARN_
+    }
 
 
 -- | The new IAM role ARN.
 mhIAMRoleARN :: Lens' ModifyHSM (Maybe Text)
-mhIAMRoleARN = lens _mhIAMRoleARN (\ s a -> s{_mhIAMRoleARN = a});
+mhIAMRoleARN = lens _mhIAMRoleARN (\ s a -> s{_mhIAMRoleARN = a})
 
 -- | The new identifier of the subnet that the HSM is in. The new subnet must be in the same Availability Zone as the current subnet.
 mhSubnetId :: Lens' ModifyHSM (Maybe Text)
-mhSubnetId = lens _mhSubnetId (\ s a -> s{_mhSubnetId = a});
+mhSubnetId = lens _mhSubnetId (\ s a -> s{_mhSubnetId = a})
 
 -- | The new IP address for the syslog monitoring server. The AWS CloudHSM service only supports one syslog monitoring server.
 mhSyslogIP :: Lens' ModifyHSM (Maybe Text)
-mhSyslogIP = lens _mhSyslogIP (\ s a -> s{_mhSyslogIP = a});
+mhSyslogIP = lens _mhSyslogIP (\ s a -> s{_mhSyslogIP = a})
 
 -- | The new external ID.
 mhExternalId :: Lens' ModifyHSM (Maybe Text)
-mhExternalId = lens _mhExternalId (\ s a -> s{_mhExternalId = a});
+mhExternalId = lens _mhExternalId (\ s a -> s{_mhExternalId = a})
 
 -- | The new IP address for the elastic network interface (ENI) attached to the HSM. If the HSM is moved to a different subnet, and an IP address is not specified, an IP address will be randomly chosen from the CIDR range of the new subnet.
 mhEniIP :: Lens' ModifyHSM (Maybe Text)
-mhEniIP = lens _mhEniIP (\ s a -> s{_mhEniIP = a});
+mhEniIP = lens _mhEniIP (\ s a -> s{_mhEniIP = a})
 
 -- | The ARN of the HSM to modify.
 mhHSMARN :: Lens' ModifyHSM Text
-mhHSMARN = lens _mhHSMARN (\ s a -> s{_mhHSMARN = a});
+mhHSMARN = lens _mhHSMARN (\ s a -> s{_mhHSMARN = a})
 
 instance AWSRequest ModifyHSM where
         type Rs ModifyHSM = ModifyHSMResponse
@@ -185,15 +185,15 @@
     -> ModifyHSMResponse
 modifyHSMResponse pResponseStatus_ =
   ModifyHSMResponse'
-  {_mhsmrsHSMARN = Nothing, _mhsmrsResponseStatus = pResponseStatus_}
+    {_mhsmrsHSMARN = Nothing, _mhsmrsResponseStatus = pResponseStatus_}
 
 
 -- | The ARN of the HSM.
 mhsmrsHSMARN :: Lens' ModifyHSMResponse (Maybe Text)
-mhsmrsHSMARN = lens _mhsmrsHSMARN (\ s a -> s{_mhsmrsHSMARN = a});
+mhsmrsHSMARN = lens _mhsmrsHSMARN (\ s a -> s{_mhsmrsHSMARN = a})
 
 -- | -- | The response status code.
 mhsmrsResponseStatus :: Lens' ModifyHSMResponse Int
-mhsmrsResponseStatus = lens _mhsmrsResponseStatus (\ s a -> s{_mhsmrsResponseStatus = a});
+mhsmrsResponseStatus = lens _mhsmrsResponseStatus (\ s a -> s{_mhsmrsResponseStatus = a})
 
 instance NFData ModifyHSMResponse where
diff --git a/gen/Network/AWS/CloudHSM/ModifyLunaClient.hs b/gen/Network/AWS/CloudHSM/ModifyLunaClient.hs
--- a/gen/Network/AWS/CloudHSM/ModifyLunaClient.hs
+++ b/gen/Network/AWS/CloudHSM/ModifyLunaClient.hs
@@ -12,7 +12,7 @@
 
 -- |
 -- Module      : Network.AWS.CloudHSM.ModifyLunaClient
--- 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,16 +71,16 @@
     -> ModifyLunaClient
 modifyLunaClient pClientARN_ pCertificate_ =
   ModifyLunaClient'
-  {_mlcClientARN = pClientARN_, _mlcCertificate = pCertificate_}
+    {_mlcClientARN = pClientARN_, _mlcCertificate = pCertificate_}
 
 
 -- | The ARN of the client.
 mlcClientARN :: Lens' ModifyLunaClient Text
-mlcClientARN = lens _mlcClientARN (\ s a -> s{_mlcClientARN = a});
+mlcClientARN = lens _mlcClientARN (\ s a -> s{_mlcClientARN = a})
 
 -- | The new certificate for the client.
 mlcCertificate :: Lens' ModifyLunaClient Text
-mlcCertificate = lens _mlcCertificate (\ s a -> s{_mlcCertificate = a});
+mlcCertificate = lens _mlcCertificate (\ s a -> s{_mlcCertificate = a})
 
 instance AWSRequest ModifyLunaClient where
         type Rs ModifyLunaClient = ModifyLunaClientResponse
@@ -137,15 +137,15 @@
     -> ModifyLunaClientResponse
 modifyLunaClientResponse pResponseStatus_ =
   ModifyLunaClientResponse'
-  {_mlcrsClientARN = Nothing, _mlcrsResponseStatus = pResponseStatus_}
+    {_mlcrsClientARN = Nothing, _mlcrsResponseStatus = pResponseStatus_}
 
 
 -- | The ARN of the client.
 mlcrsClientARN :: Lens' ModifyLunaClientResponse (Maybe Text)
-mlcrsClientARN = lens _mlcrsClientARN (\ s a -> s{_mlcrsClientARN = a});
+mlcrsClientARN = lens _mlcrsClientARN (\ s a -> s{_mlcrsClientARN = a})
 
 -- | -- | The response status code.
 mlcrsResponseStatus :: Lens' ModifyLunaClientResponse Int
-mlcrsResponseStatus = lens _mlcrsResponseStatus (\ s a -> s{_mlcrsResponseStatus = a});
+mlcrsResponseStatus = lens _mlcrsResponseStatus (\ s a -> s{_mlcrsResponseStatus = a})
 
 instance NFData ModifyLunaClientResponse where
diff --git a/gen/Network/AWS/CloudHSM/RemoveTagsFromResource.hs b/gen/Network/AWS/CloudHSM/RemoveTagsFromResource.hs
--- a/gen/Network/AWS/CloudHSM/RemoveTagsFromResource.hs
+++ b/gen/Network/AWS/CloudHSM/RemoveTagsFromResource.hs
@@ -12,7 +12,7 @@
 
 -- |
 -- Module      : Network.AWS.CloudHSM.RemoveTagsFromResource
--- 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 @@
     -> RemoveTagsFromResource
 removeTagsFromResource pResourceARN_ =
   RemoveTagsFromResource'
-  {_rtfrResourceARN = pResourceARN_, _rtfrTagKeyList = mempty}
+    {_rtfrResourceARN = pResourceARN_, _rtfrTagKeyList = mempty}
 
 
 -- | The Amazon Resource Name (ARN) of the AWS CloudHSM resource.
 rtfrResourceARN :: Lens' RemoveTagsFromResource Text
-rtfrResourceARN = lens _rtfrResourceARN (\ s a -> s{_rtfrResourceARN = a});
+rtfrResourceARN = lens _rtfrResourceARN (\ s a -> s{_rtfrResourceARN = a})
 
 -- | The tag key or keys to remove. Specify only the tag key to remove (not the value). To overwrite the value for an existing tag, use 'AddTagsToResource' .
 rtfrTagKeyList :: Lens' RemoveTagsFromResource [Text]
-rtfrTagKeyList = lens _rtfrTagKeyList (\ s a -> s{_rtfrTagKeyList = a}) . _Coerce;
+rtfrTagKeyList = lens _rtfrTagKeyList (\ s a -> s{_rtfrTagKeyList = a}) . _Coerce
 
 instance AWSRequest RemoveTagsFromResource where
         type Rs RemoveTagsFromResource =
@@ -138,15 +138,15 @@
     -> RemoveTagsFromResourceResponse
 removeTagsFromResourceResponse pResponseStatus_ pStatus_ =
   RemoveTagsFromResourceResponse'
-  {_rtfrrsResponseStatus = pResponseStatus_, _rtfrrsStatus = pStatus_}
+    {_rtfrrsResponseStatus = pResponseStatus_, _rtfrrsStatus = pStatus_}
 
 
 -- | -- | The response status code.
 rtfrrsResponseStatus :: Lens' RemoveTagsFromResourceResponse Int
-rtfrrsResponseStatus = lens _rtfrrsResponseStatus (\ s a -> s{_rtfrrsResponseStatus = a});
+rtfrrsResponseStatus = lens _rtfrrsResponseStatus (\ s a -> s{_rtfrrsResponseStatus = a})
 
 -- | The status of the operation.
 rtfrrsStatus :: Lens' RemoveTagsFromResourceResponse Text
-rtfrrsStatus = lens _rtfrrsStatus (\ s a -> s{_rtfrrsStatus = a});
+rtfrrsStatus = lens _rtfrrsStatus (\ s a -> s{_rtfrrsStatus = a})
 
 instance NFData RemoveTagsFromResourceResponse where
diff --git a/gen/Network/AWS/CloudHSM/Types.hs b/gen/Network/AWS/CloudHSM/Types.hs
--- a/gen/Network/AWS/CloudHSM/Types.hs
+++ b/gen/Network/AWS/CloudHSM/Types.hs
@@ -4,7 +4,7 @@
 
 -- |
 -- Module      : Network.AWS.CloudHSM.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
@@ -49,24 +49,24 @@
 cloudHSM :: Service
 cloudHSM =
   Service
-  { _svcAbbrev = "CloudHSM"
-  , _svcSigner = v4
-  , _svcPrefix = "cloudhsm"
-  , _svcVersion = "2014-05-30"
-  , _svcEndpoint = defaultEndpoint cloudHSM
-  , _svcTimeout = Just 70
-  , _svcCheck = statusSuccess
-  , _svcError = parseJSONError "CloudHSM"
-  , _svcRetry = retry
-  }
+    { _svcAbbrev = "CloudHSM"
+    , _svcSigner = v4
+    , _svcPrefix = "cloudhsm"
+    , _svcVersion = "2014-05-30"
+    , _svcEndpoint = defaultEndpoint cloudHSM
+    , _svcTimeout = Just 70
+    , _svcCheck = statusSuccess
+    , _svcError = parseJSONError "CloudHSM"
+    , _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"
@@ -75,6 +75,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/CloudHSM/Types/Product.hs b/gen/Network/AWS/CloudHSM/Types/Product.hs
--- a/gen/Network/AWS/CloudHSM/Types/Product.hs
+++ b/gen/Network/AWS/CloudHSM/Types/Product.hs
@@ -9,7 +9,7 @@
 
 -- |
 -- Module      : Network.AWS.CloudHSM.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
@@ -48,11 +48,11 @@
 
 -- | The key of the tag.
 tagKey :: Lens' Tag Text
-tagKey = lens _tagKey (\ s a -> s{_tagKey = a});
+tagKey = lens _tagKey (\ s a -> s{_tagKey = a})
 
 -- | The value of the tag.
 tagValue :: Lens' Tag Text
-tagValue = lens _tagValue (\ s a -> s{_tagValue = a});
+tagValue = lens _tagValue (\ s a -> s{_tagValue = a})
 
 instance FromJSON Tag where
         parseJSON
diff --git a/gen/Network/AWS/CloudHSM/Types/Sum.hs b/gen/Network/AWS/CloudHSM/Types/Sum.hs
--- a/gen/Network/AWS/CloudHSM/Types/Sum.hs
+++ b/gen/Network/AWS/CloudHSM/Types/Sum.hs
@@ -9,7 +9,7 @@
 
 -- |
 -- Module      : Network.AWS.CloudHSM.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/CloudHSM/Waiters.hs b/gen/Network/AWS/CloudHSM/Waiters.hs
--- a/gen/Network/AWS/CloudHSM/Waiters.hs
+++ b/gen/Network/AWS/CloudHSM/Waiters.hs
@@ -7,7 +7,7 @@
 
 -- |
 -- Module      : Network.AWS.CloudHSM.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/CloudHSM.hs b/test/Test/AWS/CloudHSM.hs
--- a/test/Test/AWS/CloudHSM.hs
+++ b/test/Test/AWS/CloudHSM.hs
@@ -1,7 +1,7 @@
 {-# LANGUAGE OverloadedStrings #-}
 
 -- Module      : Test.AWS.CloudHSM
--- 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/CloudHSM/Internal.hs b/test/Test/AWS/CloudHSM/Internal.hs
--- a/test/Test/AWS/CloudHSM/Internal.hs
+++ b/test/Test/AWS/CloudHSM/Internal.hs
@@ -2,7 +2,7 @@
 {-# OPTIONS_GHC -fno-warn-unused-imports #-}
 
 -- Module      : Test.AWS.CloudHSM.Internal
--- Copyright   : (c) 2013-2016 Brendan Hay
+-- Copyright   : (c) 2013-2018 Brendan Hay
 -- License     : This Source Code Form is subject to the terms of
 --               the Mozilla Public License, v. 2.0.
 --               A copy of the MPL can be found in the LICENSE file or
diff --git a/test/Test/AWS/Gen/CloudHSM.hs b/test/Test/AWS/Gen/CloudHSM.hs
--- a/test/Test/AWS/Gen/CloudHSM.hs
+++ b/test/Test/AWS/Gen/CloudHSM.hs
@@ -5,7 +5,7 @@
 
 -- |
 -- Module      : Test.AWS.Gen.CloudHSM
--- 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