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-sms.cabal b/amazonka-sms.cabal
--- a/amazonka-sms.cabal
+++ b/amazonka-sms.cabal
@@ -1,5 +1,5 @@
 name:                  amazonka-sms
-version:               1.5.0
+version:               1.6.0
 synopsis:              Amazon Server Migration Service SDK.
 homepage:              https://github.com/brendanhay/amazonka
 bug-reports:           https://github.com/brendanhay/amazonka/issues
@@ -7,7 +7,7 @@
 license-file:          LICENSE
 author:                Brendan Hay
 maintainer:            Brendan Hay <brendan.g.hay+amazonka@gmail.com>
-copyright:             Copyright (c) 2013-2017 Brendan Hay
+copyright:             Copyright (c) 2013-2018 Brendan Hay
 category:              Network, AWS, Cloud, Distributed Computing
 build-type:            Simple
 cabal-version:         >= 1.10
@@ -64,7 +64,7 @@
         , Network.AWS.SMS.Types.Sum
 
     build-depends:
-          amazonka-core == 1.5.0.*
+          amazonka-core == 1.6.0.*
         , base          >= 4.7     && < 5
 
 test-suite amazonka-sms-test
@@ -84,8 +84,8 @@
         , Test.AWS.SMS.Internal
 
     build-depends:
-          amazonka-core == 1.5.0.*
-        , amazonka-test == 1.5.0.*
+          amazonka-core == 1.6.0.*
+        , amazonka-test == 1.6.0.*
         , amazonka-sms
         , base
         , bytestring
diff --git a/gen/Network/AWS/SMS.hs b/gen/Network/AWS/SMS.hs
--- a/gen/Network/AWS/SMS.hs
+++ b/gen/Network/AWS/SMS.hs
@@ -5,7 +5,7 @@
 
 -- |
 -- Module      : Network.AWS.SMS
--- 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/SMS/CreateReplicationJob.hs b/gen/Network/AWS/SMS/CreateReplicationJob.hs
--- a/gen/Network/AWS/SMS/CreateReplicationJob.hs
+++ b/gen/Network/AWS/SMS/CreateReplicationJob.hs
@@ -12,7 +12,7 @@
 
 -- |
 -- Module      : Network.AWS.SMS.CreateReplicationJob
--- 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,38 +80,38 @@
     -> CreateReplicationJob
 createReplicationJob pServerId_ pSeedReplicationTime_ pFrequency_ =
   CreateReplicationJob'
-  { _crjLicenseType = Nothing
-  , _crjRoleName = Nothing
-  , _crjDescription = Nothing
-  , _crjServerId = pServerId_
-  , _crjSeedReplicationTime = _Time # pSeedReplicationTime_
-  , _crjFrequency = pFrequency_
-  }
+    { _crjLicenseType = Nothing
+    , _crjRoleName = Nothing
+    , _crjDescription = Nothing
+    , _crjServerId = pServerId_
+    , _crjSeedReplicationTime = _Time # pSeedReplicationTime_
+    , _crjFrequency = pFrequency_
+    }
 
 
 -- | Undocumented member.
 crjLicenseType :: Lens' CreateReplicationJob (Maybe LicenseType)
-crjLicenseType = lens _crjLicenseType (\ s a -> s{_crjLicenseType = a});
+crjLicenseType = lens _crjLicenseType (\ s a -> s{_crjLicenseType = a})
 
 -- | Undocumented member.
 crjRoleName :: Lens' CreateReplicationJob (Maybe Text)
-crjRoleName = lens _crjRoleName (\ s a -> s{_crjRoleName = a});
+crjRoleName = lens _crjRoleName (\ s a -> s{_crjRoleName = a})
 
 -- | Undocumented member.
 crjDescription :: Lens' CreateReplicationJob (Maybe Text)
-crjDescription = lens _crjDescription (\ s a -> s{_crjDescription = a});
+crjDescription = lens _crjDescription (\ s a -> s{_crjDescription = a})
 
 -- | Undocumented member.
 crjServerId :: Lens' CreateReplicationJob Text
-crjServerId = lens _crjServerId (\ s a -> s{_crjServerId = a});
+crjServerId = lens _crjServerId (\ s a -> s{_crjServerId = a})
 
 -- | Undocumented member.
 crjSeedReplicationTime :: Lens' CreateReplicationJob UTCTime
-crjSeedReplicationTime = lens _crjSeedReplicationTime (\ s a -> s{_crjSeedReplicationTime = a}) . _Time;
+crjSeedReplicationTime = lens _crjSeedReplicationTime (\ s a -> s{_crjSeedReplicationTime = a}) . _Time
 
 -- | Undocumented member.
 crjFrequency :: Lens' CreateReplicationJob Int
-crjFrequency = lens _crjFrequency (\ s a -> s{_crjFrequency = a});
+crjFrequency = lens _crjFrequency (\ s a -> s{_crjFrequency = a})
 
 instance AWSRequest CreateReplicationJob where
         type Rs CreateReplicationJob =
@@ -174,15 +174,15 @@
     -> CreateReplicationJobResponse
 createReplicationJobResponse pResponseStatus_ =
   CreateReplicationJobResponse'
-  {_crjrsReplicationJobId = Nothing, _crjrsResponseStatus = pResponseStatus_}
+    {_crjrsReplicationJobId = Nothing, _crjrsResponseStatus = pResponseStatus_}
 
 
 -- | Undocumented member.
 crjrsReplicationJobId :: Lens' CreateReplicationJobResponse (Maybe Text)
-crjrsReplicationJobId = lens _crjrsReplicationJobId (\ s a -> s{_crjrsReplicationJobId = a});
+crjrsReplicationJobId = lens _crjrsReplicationJobId (\ s a -> s{_crjrsReplicationJobId = a})
 
 -- | -- | The response status code.
 crjrsResponseStatus :: Lens' CreateReplicationJobResponse Int
-crjrsResponseStatus = lens _crjrsResponseStatus (\ s a -> s{_crjrsResponseStatus = a});
+crjrsResponseStatus = lens _crjrsResponseStatus (\ s a -> s{_crjrsResponseStatus = a})
 
 instance NFData CreateReplicationJobResponse where
diff --git a/gen/Network/AWS/SMS/DeleteReplicationJob.hs b/gen/Network/AWS/SMS/DeleteReplicationJob.hs
--- a/gen/Network/AWS/SMS/DeleteReplicationJob.hs
+++ b/gen/Network/AWS/SMS/DeleteReplicationJob.hs
@@ -12,7 +12,7 @@
 
 -- |
 -- Module      : Network.AWS.SMS.DeleteReplicationJob
--- Copyright   : (c) 2013-2017 Brendan Hay
+-- Copyright   : (c) 2013-2018 Brendan Hay
 -- License     : Mozilla Public License, v. 2.0.
 -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com>
 -- Stability   : auto-generated
@@ -61,7 +61,7 @@
 
 -- | Undocumented member.
 drjReplicationJobId :: Lens' DeleteReplicationJob Text
-drjReplicationJobId = lens _drjReplicationJobId (\ s a -> s{_drjReplicationJobId = a});
+drjReplicationJobId = lens _drjReplicationJobId (\ s a -> s{_drjReplicationJobId = a})
 
 instance AWSRequest DeleteReplicationJob where
         type Rs DeleteReplicationJob =
@@ -119,6 +119,6 @@
 
 -- | -- | The response status code.
 drjrsResponseStatus :: Lens' DeleteReplicationJobResponse Int
-drjrsResponseStatus = lens _drjrsResponseStatus (\ s a -> s{_drjrsResponseStatus = a});
+drjrsResponseStatus = lens _drjrsResponseStatus (\ s a -> s{_drjrsResponseStatus = a})
 
 instance NFData DeleteReplicationJobResponse where
diff --git a/gen/Network/AWS/SMS/DeleteServerCatalog.hs b/gen/Network/AWS/SMS/DeleteServerCatalog.hs
--- a/gen/Network/AWS/SMS/DeleteServerCatalog.hs
+++ b/gen/Network/AWS/SMS/DeleteServerCatalog.hs
@@ -12,7 +12,7 @@
 
 -- |
 -- Module      : Network.AWS.SMS.DeleteServerCatalog
--- 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
@@ -104,6 +104,6 @@
 
 -- | -- | The response status code.
 dscrsResponseStatus :: Lens' DeleteServerCatalogResponse Int
-dscrsResponseStatus = lens _dscrsResponseStatus (\ s a -> s{_dscrsResponseStatus = a});
+dscrsResponseStatus = lens _dscrsResponseStatus (\ s a -> s{_dscrsResponseStatus = a})
 
 instance NFData DeleteServerCatalogResponse where
diff --git a/gen/Network/AWS/SMS/DisassociateConnector.hs b/gen/Network/AWS/SMS/DisassociateConnector.hs
--- a/gen/Network/AWS/SMS/DisassociateConnector.hs
+++ b/gen/Network/AWS/SMS/DisassociateConnector.hs
@@ -12,7 +12,7 @@
 
 -- |
 -- Module      : Network.AWS.SMS.DisassociateConnector
--- Copyright   : (c) 2013-2017 Brendan Hay
+-- Copyright   : (c) 2013-2018 Brendan Hay
 -- License     : Mozilla Public License, v. 2.0.
 -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com>
 -- Stability   : auto-generated
@@ -61,7 +61,7 @@
 
 -- | Undocumented member.
 dcConnectorId :: Lens' DisassociateConnector Text
-dcConnectorId = lens _dcConnectorId (\ s a -> s{_dcConnectorId = a});
+dcConnectorId = lens _dcConnectorId (\ s a -> s{_dcConnectorId = a})
 
 instance AWSRequest DisassociateConnector where
         type Rs DisassociateConnector =
@@ -118,6 +118,6 @@
 
 -- | -- | The response status code.
 dcrsResponseStatus :: Lens' DisassociateConnectorResponse Int
-dcrsResponseStatus = lens _dcrsResponseStatus (\ s a -> s{_dcrsResponseStatus = a});
+dcrsResponseStatus = lens _dcrsResponseStatus (\ s a -> s{_dcrsResponseStatus = a})
 
 instance NFData DisassociateConnectorResponse where
diff --git a/gen/Network/AWS/SMS/GetConnectors.hs b/gen/Network/AWS/SMS/GetConnectors.hs
--- a/gen/Network/AWS/SMS/GetConnectors.hs
+++ b/gen/Network/AWS/SMS/GetConnectors.hs
@@ -12,7 +12,7 @@
 
 -- |
 -- Module      : Network.AWS.SMS.GetConnectors
--- 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,11 +68,11 @@
 
 -- | Undocumented member.
 gcNextToken :: Lens' GetConnectors (Maybe Text)
-gcNextToken = lens _gcNextToken (\ s a -> s{_gcNextToken = a});
+gcNextToken = lens _gcNextToken (\ s a -> s{_gcNextToken = a})
 
 -- | Undocumented member.
 gcMaxResults :: Lens' GetConnectors (Maybe Int)
-gcMaxResults = lens _gcMaxResults (\ s a -> s{_gcMaxResults = a});
+gcMaxResults = lens _gcMaxResults (\ s a -> s{_gcMaxResults = a})
 
 instance AWSPager GetConnectors where
         page rq rs
@@ -141,22 +141,22 @@
     -> GetConnectorsResponse
 getConnectorsResponse pResponseStatus_ =
   GetConnectorsResponse'
-  { _gcrsConnectorList = Nothing
-  , _gcrsNextToken = Nothing
-  , _gcrsResponseStatus = pResponseStatus_
-  }
+    { _gcrsConnectorList = Nothing
+    , _gcrsNextToken = Nothing
+    , _gcrsResponseStatus = pResponseStatus_
+    }
 
 
 -- | Undocumented member.
 gcrsConnectorList :: Lens' GetConnectorsResponse [Connector]
-gcrsConnectorList = lens _gcrsConnectorList (\ s a -> s{_gcrsConnectorList = a}) . _Default . _Coerce;
+gcrsConnectorList = lens _gcrsConnectorList (\ s a -> s{_gcrsConnectorList = a}) . _Default . _Coerce
 
 -- | Undocumented member.
 gcrsNextToken :: Lens' GetConnectorsResponse (Maybe Text)
-gcrsNextToken = lens _gcrsNextToken (\ s a -> s{_gcrsNextToken = a});
+gcrsNextToken = lens _gcrsNextToken (\ s a -> s{_gcrsNextToken = a})
 
 -- | -- | The response status code.
 gcrsResponseStatus :: Lens' GetConnectorsResponse Int
-gcrsResponseStatus = lens _gcrsResponseStatus (\ s a -> s{_gcrsResponseStatus = a});
+gcrsResponseStatus = lens _gcrsResponseStatus (\ s a -> s{_gcrsResponseStatus = a})
 
 instance NFData GetConnectorsResponse where
diff --git a/gen/Network/AWS/SMS/GetReplicationJobs.hs b/gen/Network/AWS/SMS/GetReplicationJobs.hs
--- a/gen/Network/AWS/SMS/GetReplicationJobs.hs
+++ b/gen/Network/AWS/SMS/GetReplicationJobs.hs
@@ -12,7 +12,7 @@
 
 -- |
 -- Module      : Network.AWS.SMS.GetReplicationJobs
--- 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,23 +69,23 @@
     :: GetReplicationJobs
 getReplicationJobs =
   GetReplicationJobs'
-  { _grjReplicationJobId = Nothing
-  , _grjNextToken = Nothing
-  , _grjMaxResults = Nothing
-  }
+    { _grjReplicationJobId = Nothing
+    , _grjNextToken = Nothing
+    , _grjMaxResults = Nothing
+    }
 
 
 -- | Undocumented member.
 grjReplicationJobId :: Lens' GetReplicationJobs (Maybe Text)
-grjReplicationJobId = lens _grjReplicationJobId (\ s a -> s{_grjReplicationJobId = a});
+grjReplicationJobId = lens _grjReplicationJobId (\ s a -> s{_grjReplicationJobId = a})
 
 -- | Undocumented member.
 grjNextToken :: Lens' GetReplicationJobs (Maybe Text)
-grjNextToken = lens _grjNextToken (\ s a -> s{_grjNextToken = a});
+grjNextToken = lens _grjNextToken (\ s a -> s{_grjNextToken = a})
 
 -- | Undocumented member.
 grjMaxResults :: Lens' GetReplicationJobs (Maybe Int)
-grjMaxResults = lens _grjMaxResults (\ s a -> s{_grjMaxResults = a});
+grjMaxResults = lens _grjMaxResults (\ s a -> s{_grjMaxResults = a})
 
 instance AWSPager GetReplicationJobs where
         page rq rs
@@ -156,22 +156,22 @@
     -> GetReplicationJobsResponse
 getReplicationJobsResponse pResponseStatus_ =
   GetReplicationJobsResponse'
-  { _grjrsReplicationJobList = Nothing
-  , _grjrsNextToken = Nothing
-  , _grjrsResponseStatus = pResponseStatus_
-  }
+    { _grjrsReplicationJobList = Nothing
+    , _grjrsNextToken = Nothing
+    , _grjrsResponseStatus = pResponseStatus_
+    }
 
 
 -- | Undocumented member.
 grjrsReplicationJobList :: Lens' GetReplicationJobsResponse [ReplicationJob]
-grjrsReplicationJobList = lens _grjrsReplicationJobList (\ s a -> s{_grjrsReplicationJobList = a}) . _Default . _Coerce;
+grjrsReplicationJobList = lens _grjrsReplicationJobList (\ s a -> s{_grjrsReplicationJobList = a}) . _Default . _Coerce
 
 -- | Undocumented member.
 grjrsNextToken :: Lens' GetReplicationJobsResponse (Maybe Text)
-grjrsNextToken = lens _grjrsNextToken (\ s a -> s{_grjrsNextToken = a});
+grjrsNextToken = lens _grjrsNextToken (\ s a -> s{_grjrsNextToken = a})
 
 -- | -- | The response status code.
 grjrsResponseStatus :: Lens' GetReplicationJobsResponse Int
-grjrsResponseStatus = lens _grjrsResponseStatus (\ s a -> s{_grjrsResponseStatus = a});
+grjrsResponseStatus = lens _grjrsResponseStatus (\ s a -> s{_grjrsResponseStatus = a})
 
 instance NFData GetReplicationJobsResponse where
diff --git a/gen/Network/AWS/SMS/GetReplicationRuns.hs b/gen/Network/AWS/SMS/GetReplicationRuns.hs
--- a/gen/Network/AWS/SMS/GetReplicationRuns.hs
+++ b/gen/Network/AWS/SMS/GetReplicationRuns.hs
@@ -12,7 +12,7 @@
 
 -- |
 -- Module      : Network.AWS.SMS.GetReplicationRuns
--- 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,23 +71,23 @@
     -> GetReplicationRuns
 getReplicationRuns pReplicationJobId_ =
   GetReplicationRuns'
-  { _grrNextToken = Nothing
-  , _grrMaxResults = Nothing
-  , _grrReplicationJobId = pReplicationJobId_
-  }
+    { _grrNextToken = Nothing
+    , _grrMaxResults = Nothing
+    , _grrReplicationJobId = pReplicationJobId_
+    }
 
 
 -- | Undocumented member.
 grrNextToken :: Lens' GetReplicationRuns (Maybe Text)
-grrNextToken = lens _grrNextToken (\ s a -> s{_grrNextToken = a});
+grrNextToken = lens _grrNextToken (\ s a -> s{_grrNextToken = a})
 
 -- | Undocumented member.
 grrMaxResults :: Lens' GetReplicationRuns (Maybe Int)
-grrMaxResults = lens _grrMaxResults (\ s a -> s{_grrMaxResults = a});
+grrMaxResults = lens _grrMaxResults (\ s a -> s{_grrMaxResults = a})
 
 -- | Undocumented member.
 grrReplicationJobId :: Lens' GetReplicationRuns Text
-grrReplicationJobId = lens _grrReplicationJobId (\ s a -> s{_grrReplicationJobId = a});
+grrReplicationJobId = lens _grrReplicationJobId (\ s a -> s{_grrReplicationJobId = a})
 
 instance AWSPager GetReplicationRuns where
         page rq rs
@@ -161,27 +161,27 @@
     -> GetReplicationRunsResponse
 getReplicationRunsResponse pResponseStatus_ =
   GetReplicationRunsResponse'
-  { _grrrsReplicationJob = Nothing
-  , _grrrsNextToken = Nothing
-  , _grrrsReplicationRunList = Nothing
-  , _grrrsResponseStatus = pResponseStatus_
-  }
+    { _grrrsReplicationJob = Nothing
+    , _grrrsNextToken = Nothing
+    , _grrrsReplicationRunList = Nothing
+    , _grrrsResponseStatus = pResponseStatus_
+    }
 
 
 -- | Undocumented member.
 grrrsReplicationJob :: Lens' GetReplicationRunsResponse (Maybe ReplicationJob)
-grrrsReplicationJob = lens _grrrsReplicationJob (\ s a -> s{_grrrsReplicationJob = a});
+grrrsReplicationJob = lens _grrrsReplicationJob (\ s a -> s{_grrrsReplicationJob = a})
 
 -- | Undocumented member.
 grrrsNextToken :: Lens' GetReplicationRunsResponse (Maybe Text)
-grrrsNextToken = lens _grrrsNextToken (\ s a -> s{_grrrsNextToken = a});
+grrrsNextToken = lens _grrrsNextToken (\ s a -> s{_grrrsNextToken = a})
 
 -- | Undocumented member.
 grrrsReplicationRunList :: Lens' GetReplicationRunsResponse [ReplicationRun]
-grrrsReplicationRunList = lens _grrrsReplicationRunList (\ s a -> s{_grrrsReplicationRunList = a}) . _Default . _Coerce;
+grrrsReplicationRunList = lens _grrrsReplicationRunList (\ s a -> s{_grrrsReplicationRunList = a}) . _Default . _Coerce
 
 -- | -- | The response status code.
 grrrsResponseStatus :: Lens' GetReplicationRunsResponse Int
-grrrsResponseStatus = lens _grrrsResponseStatus (\ s a -> s{_grrrsResponseStatus = a});
+grrrsResponseStatus = lens _grrrsResponseStatus (\ s a -> s{_grrrsResponseStatus = a})
 
 instance NFData GetReplicationRunsResponse where
diff --git a/gen/Network/AWS/SMS/GetServers.hs b/gen/Network/AWS/SMS/GetServers.hs
--- a/gen/Network/AWS/SMS/GetServers.hs
+++ b/gen/Network/AWS/SMS/GetServers.hs
@@ -12,7 +12,7 @@
 
 -- |
 -- Module      : Network.AWS.SMS.GetServers
--- Copyright   : (c) 2013-2017 Brendan Hay
+-- Copyright   : (c) 2013-2018 Brendan Hay
 -- License     : Mozilla Public License, v. 2.0.
 -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com>
 -- Stability   : auto-generated
@@ -70,11 +70,11 @@
 
 -- | Undocumented member.
 gsNextToken :: Lens' GetServers (Maybe Text)
-gsNextToken = lens _gsNextToken (\ s a -> s{_gsNextToken = a});
+gsNextToken = lens _gsNextToken (\ s a -> s{_gsNextToken = a})
 
 -- | Undocumented member.
 gsMaxResults :: Lens' GetServers (Maybe Int)
-gsMaxResults = lens _gsMaxResults (\ s a -> s{_gsMaxResults = a});
+gsMaxResults = lens _gsMaxResults (\ s a -> s{_gsMaxResults = a})
 
 instance AWSPager GetServers where
         page rq rs
@@ -151,32 +151,32 @@
     -> GetServersResponse
 getServersResponse pResponseStatus_ =
   GetServersResponse'
-  { _gsrsServerCatalogStatus = Nothing
-  , _gsrsLastModifiedOn = Nothing
-  , _gsrsNextToken = Nothing
-  , _gsrsServerList = Nothing
-  , _gsrsResponseStatus = pResponseStatus_
-  }
+    { _gsrsServerCatalogStatus = Nothing
+    , _gsrsLastModifiedOn = Nothing
+    , _gsrsNextToken = Nothing
+    , _gsrsServerList = Nothing
+    , _gsrsResponseStatus = pResponseStatus_
+    }
 
 
 -- | Undocumented member.
 gsrsServerCatalogStatus :: Lens' GetServersResponse (Maybe ServerCatalogStatus)
-gsrsServerCatalogStatus = lens _gsrsServerCatalogStatus (\ s a -> s{_gsrsServerCatalogStatus = a});
+gsrsServerCatalogStatus = lens _gsrsServerCatalogStatus (\ s a -> s{_gsrsServerCatalogStatus = a})
 
 -- | Undocumented member.
 gsrsLastModifiedOn :: Lens' GetServersResponse (Maybe UTCTime)
-gsrsLastModifiedOn = lens _gsrsLastModifiedOn (\ s a -> s{_gsrsLastModifiedOn = a}) . mapping _Time;
+gsrsLastModifiedOn = lens _gsrsLastModifiedOn (\ s a -> s{_gsrsLastModifiedOn = a}) . mapping _Time
 
 -- | Undocumented member.
 gsrsNextToken :: Lens' GetServersResponse (Maybe Text)
-gsrsNextToken = lens _gsrsNextToken (\ s a -> s{_gsrsNextToken = a});
+gsrsNextToken = lens _gsrsNextToken (\ s a -> s{_gsrsNextToken = a})
 
 -- | Undocumented member.
 gsrsServerList :: Lens' GetServersResponse [Server]
-gsrsServerList = lens _gsrsServerList (\ s a -> s{_gsrsServerList = a}) . _Default . _Coerce;
+gsrsServerList = lens _gsrsServerList (\ s a -> s{_gsrsServerList = a}) . _Default . _Coerce
 
 -- | -- | The response status code.
 gsrsResponseStatus :: Lens' GetServersResponse Int
-gsrsResponseStatus = lens _gsrsResponseStatus (\ s a -> s{_gsrsResponseStatus = a});
+gsrsResponseStatus = lens _gsrsResponseStatus (\ s a -> s{_gsrsResponseStatus = a})
 
 instance NFData GetServersResponse where
diff --git a/gen/Network/AWS/SMS/ImportServerCatalog.hs b/gen/Network/AWS/SMS/ImportServerCatalog.hs
--- a/gen/Network/AWS/SMS/ImportServerCatalog.hs
+++ b/gen/Network/AWS/SMS/ImportServerCatalog.hs
@@ -12,7 +12,7 @@
 
 -- |
 -- Module      : Network.AWS.SMS.ImportServerCatalog
--- 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
@@ -104,6 +104,6 @@
 
 -- | -- | The response status code.
 iscrsResponseStatus :: Lens' ImportServerCatalogResponse Int
-iscrsResponseStatus = lens _iscrsResponseStatus (\ s a -> s{_iscrsResponseStatus = a});
+iscrsResponseStatus = lens _iscrsResponseStatus (\ s a -> s{_iscrsResponseStatus = a})
 
 instance NFData ImportServerCatalogResponse where
diff --git a/gen/Network/AWS/SMS/StartOnDemandReplicationRun.hs b/gen/Network/AWS/SMS/StartOnDemandReplicationRun.hs
--- a/gen/Network/AWS/SMS/StartOnDemandReplicationRun.hs
+++ b/gen/Network/AWS/SMS/StartOnDemandReplicationRun.hs
@@ -12,7 +12,7 @@
 
 -- |
 -- Module      : Network.AWS.SMS.StartOnDemandReplicationRun
--- 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
@@ -62,16 +62,16 @@
     -> StartOnDemandReplicationRun
 startOnDemandReplicationRun pReplicationJobId_ =
   StartOnDemandReplicationRun'
-  {_sodrrDescription = Nothing, _sodrrReplicationJobId = pReplicationJobId_}
+    {_sodrrDescription = Nothing, _sodrrReplicationJobId = pReplicationJobId_}
 
 
 -- | Undocumented member.
 sodrrDescription :: Lens' StartOnDemandReplicationRun (Maybe Text)
-sodrrDescription = lens _sodrrDescription (\ s a -> s{_sodrrDescription = a});
+sodrrDescription = lens _sodrrDescription (\ s a -> s{_sodrrDescription = a})
 
 -- | Undocumented member.
 sodrrReplicationJobId :: Lens' StartOnDemandReplicationRun Text
-sodrrReplicationJobId = lens _sodrrReplicationJobId (\ s a -> s{_sodrrReplicationJobId = a});
+sodrrReplicationJobId = lens _sodrrReplicationJobId (\ s a -> s{_sodrrReplicationJobId = a})
 
 instance AWSRequest StartOnDemandReplicationRun where
         type Rs StartOnDemandReplicationRun =
@@ -129,18 +129,18 @@
     -> StartOnDemandReplicationRunResponse
 startOnDemandReplicationRunResponse pResponseStatus_ =
   StartOnDemandReplicationRunResponse'
-  { _sodrrrsReplicationRunId = Nothing
-  , _sodrrrsResponseStatus = pResponseStatus_
-  }
+    { _sodrrrsReplicationRunId = Nothing
+    , _sodrrrsResponseStatus = pResponseStatus_
+    }
 
 
 -- | Undocumented member.
 sodrrrsReplicationRunId :: Lens' StartOnDemandReplicationRunResponse (Maybe Text)
-sodrrrsReplicationRunId = lens _sodrrrsReplicationRunId (\ s a -> s{_sodrrrsReplicationRunId = a});
+sodrrrsReplicationRunId = lens _sodrrrsReplicationRunId (\ s a -> s{_sodrrrsReplicationRunId = a})
 
 -- | -- | The response status code.
 sodrrrsResponseStatus :: Lens' StartOnDemandReplicationRunResponse Int
-sodrrrsResponseStatus = lens _sodrrrsResponseStatus (\ s a -> s{_sodrrrsResponseStatus = a});
+sodrrrsResponseStatus = lens _sodrrrsResponseStatus (\ s a -> s{_sodrrrsResponseStatus = a})
 
 instance NFData StartOnDemandReplicationRunResponse
          where
diff --git a/gen/Network/AWS/SMS/Types.hs b/gen/Network/AWS/SMS/Types.hs
--- a/gen/Network/AWS/SMS/Types.hs
+++ b/gen/Network/AWS/SMS/Types.hs
@@ -4,7 +4,7 @@
 
 -- |
 -- Module      : Network.AWS.SMS.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
@@ -133,24 +133,24 @@
 sms :: Service
 sms =
   Service
-  { _svcAbbrev = "SMS"
-  , _svcSigner = v4
-  , _svcPrefix = "sms"
-  , _svcVersion = "2016-10-24"
-  , _svcEndpoint = defaultEndpoint sms
-  , _svcTimeout = Just 70
-  , _svcCheck = statusSuccess
-  , _svcError = parseJSONError "SMS"
-  , _svcRetry = retry
-  }
+    { _svcAbbrev = "SMS"
+    , _svcSigner = v4
+    , _svcPrefix = "sms"
+    , _svcVersion = "2016-10-24"
+    , _svcEndpoint = defaultEndpoint sms
+    , _svcTimeout = Just 70
+    , _svcCheck = statusSuccess
+    , _svcError = parseJSONError "SMS"
+    , _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"
@@ -159,6 +159,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/SMS/Types/Product.hs b/gen/Network/AWS/SMS/Types/Product.hs
--- a/gen/Network/AWS/SMS/Types/Product.hs
+++ b/gen/Network/AWS/SMS/Types/Product.hs
@@ -9,7 +9,7 @@
 
 -- |
 -- Module      : Network.AWS.SMS.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
@@ -65,58 +65,58 @@
     :: Connector
 connector =
   Connector'
-  { _cStatus = Nothing
-  , _cVmManagerName = Nothing
-  , _cIpAddress = Nothing
-  , _cVmManagerId = Nothing
-  , _cVmManagerType = Nothing
-  , _cConnectorId = Nothing
-  , _cAssociatedOn = Nothing
-  , _cMacAddress = Nothing
-  , _cVersion = Nothing
-  , _cCapabilityList = Nothing
-  }
+    { _cStatus = Nothing
+    , _cVmManagerName = Nothing
+    , _cIpAddress = Nothing
+    , _cVmManagerId = Nothing
+    , _cVmManagerType = Nothing
+    , _cConnectorId = Nothing
+    , _cAssociatedOn = Nothing
+    , _cMacAddress = Nothing
+    , _cVersion = Nothing
+    , _cCapabilityList = Nothing
+    }
 
 
 -- | Undocumented member.
 cStatus :: Lens' Connector (Maybe ConnectorStatus)
-cStatus = lens _cStatus (\ s a -> s{_cStatus = a});
+cStatus = lens _cStatus (\ s a -> s{_cStatus = a})
 
 -- | Undocumented member.
 cVmManagerName :: Lens' Connector (Maybe Text)
-cVmManagerName = lens _cVmManagerName (\ s a -> s{_cVmManagerName = a});
+cVmManagerName = lens _cVmManagerName (\ s a -> s{_cVmManagerName = a})
 
 -- | Undocumented member.
 cIpAddress :: Lens' Connector (Maybe Text)
-cIpAddress = lens _cIpAddress (\ s a -> s{_cIpAddress = a});
+cIpAddress = lens _cIpAddress (\ s a -> s{_cIpAddress = a})
 
 -- | Undocumented member.
 cVmManagerId :: Lens' Connector (Maybe Text)
-cVmManagerId = lens _cVmManagerId (\ s a -> s{_cVmManagerId = a});
+cVmManagerId = lens _cVmManagerId (\ s a -> s{_cVmManagerId = a})
 
 -- | Undocumented member.
 cVmManagerType :: Lens' Connector (Maybe VMManagerType)
-cVmManagerType = lens _cVmManagerType (\ s a -> s{_cVmManagerType = a});
+cVmManagerType = lens _cVmManagerType (\ s a -> s{_cVmManagerType = a})
 
 -- | Undocumented member.
 cConnectorId :: Lens' Connector (Maybe Text)
-cConnectorId = lens _cConnectorId (\ s a -> s{_cConnectorId = a});
+cConnectorId = lens _cConnectorId (\ s a -> s{_cConnectorId = a})
 
 -- | Undocumented member.
 cAssociatedOn :: Lens' Connector (Maybe UTCTime)
-cAssociatedOn = lens _cAssociatedOn (\ s a -> s{_cAssociatedOn = a}) . mapping _Time;
+cAssociatedOn = lens _cAssociatedOn (\ s a -> s{_cAssociatedOn = a}) . mapping _Time
 
 -- | Undocumented member.
 cMacAddress :: Lens' Connector (Maybe Text)
-cMacAddress = lens _cMacAddress (\ s a -> s{_cMacAddress = a});
+cMacAddress = lens _cMacAddress (\ s a -> s{_cMacAddress = a})
 
 -- | Undocumented member.
 cVersion :: Lens' Connector (Maybe Text)
-cVersion = lens _cVersion (\ s a -> s{_cVersion = a});
+cVersion = lens _cVersion (\ s a -> s{_cVersion = a})
 
 -- | Undocumented member.
 cCapabilityList :: Lens' Connector [ConnectorCapability]
-cCapabilityList = lens _cCapabilityList (\ s a -> s{_cCapabilityList = a}) . _Default . _Coerce;
+cCapabilityList = lens _cCapabilityList (\ s a -> s{_cCapabilityList = a}) . _Default . _Coerce
 
 instance FromJSON Connector where
         parseJSON
@@ -193,78 +193,78 @@
     :: ReplicationJob
 replicationJob =
   ReplicationJob'
-  { _rjFrequency = Nothing
-  , _rjState = Nothing
-  , _rjServerType = Nothing
-  , _rjServerId = Nothing
-  , _rjLicenseType = Nothing
-  , _rjRoleName = Nothing
-  , _rjVmServer = Nothing
-  , _rjReplicationJobId = Nothing
-  , _rjReplicationRunList = Nothing
-  , _rjNextReplicationRunStartTime = Nothing
-  , _rjStatusMessage = Nothing
-  , _rjLatestAMIId = Nothing
-  , _rjSeedReplicationTime = Nothing
-  , _rjDescription = Nothing
-  }
+    { _rjFrequency = Nothing
+    , _rjState = Nothing
+    , _rjServerType = Nothing
+    , _rjServerId = Nothing
+    , _rjLicenseType = Nothing
+    , _rjRoleName = Nothing
+    , _rjVmServer = Nothing
+    , _rjReplicationJobId = Nothing
+    , _rjReplicationRunList = Nothing
+    , _rjNextReplicationRunStartTime = Nothing
+    , _rjStatusMessage = Nothing
+    , _rjLatestAMIId = Nothing
+    , _rjSeedReplicationTime = Nothing
+    , _rjDescription = Nothing
+    }
 
 
 -- | Undocumented member.
 rjFrequency :: Lens' ReplicationJob (Maybe Int)
-rjFrequency = lens _rjFrequency (\ s a -> s{_rjFrequency = a});
+rjFrequency = lens _rjFrequency (\ s a -> s{_rjFrequency = a})
 
 -- | Undocumented member.
 rjState :: Lens' ReplicationJob (Maybe ReplicationJobState)
-rjState = lens _rjState (\ s a -> s{_rjState = a});
+rjState = lens _rjState (\ s a -> s{_rjState = a})
 
 -- | Undocumented member.
 rjServerType :: Lens' ReplicationJob (Maybe ServerType)
-rjServerType = lens _rjServerType (\ s a -> s{_rjServerType = a});
+rjServerType = lens _rjServerType (\ s a -> s{_rjServerType = a})
 
 -- | Undocumented member.
 rjServerId :: Lens' ReplicationJob (Maybe Text)
-rjServerId = lens _rjServerId (\ s a -> s{_rjServerId = a});
+rjServerId = lens _rjServerId (\ s a -> s{_rjServerId = a})
 
 -- | Undocumented member.
 rjLicenseType :: Lens' ReplicationJob (Maybe LicenseType)
-rjLicenseType = lens _rjLicenseType (\ s a -> s{_rjLicenseType = a});
+rjLicenseType = lens _rjLicenseType (\ s a -> s{_rjLicenseType = a})
 
 -- | Undocumented member.
 rjRoleName :: Lens' ReplicationJob (Maybe Text)
-rjRoleName = lens _rjRoleName (\ s a -> s{_rjRoleName = a});
+rjRoleName = lens _rjRoleName (\ s a -> s{_rjRoleName = a})
 
 -- | Undocumented member.
 rjVmServer :: Lens' ReplicationJob (Maybe VMServer)
-rjVmServer = lens _rjVmServer (\ s a -> s{_rjVmServer = a});
+rjVmServer = lens _rjVmServer (\ s a -> s{_rjVmServer = a})
 
 -- | Undocumented member.
 rjReplicationJobId :: Lens' ReplicationJob (Maybe Text)
-rjReplicationJobId = lens _rjReplicationJobId (\ s a -> s{_rjReplicationJobId = a});
+rjReplicationJobId = lens _rjReplicationJobId (\ s a -> s{_rjReplicationJobId = a})
 
 -- | Undocumented member.
 rjReplicationRunList :: Lens' ReplicationJob [ReplicationRun]
-rjReplicationRunList = lens _rjReplicationRunList (\ s a -> s{_rjReplicationRunList = a}) . _Default . _Coerce;
+rjReplicationRunList = lens _rjReplicationRunList (\ s a -> s{_rjReplicationRunList = a}) . _Default . _Coerce
 
 -- | Undocumented member.
 rjNextReplicationRunStartTime :: Lens' ReplicationJob (Maybe UTCTime)
-rjNextReplicationRunStartTime = lens _rjNextReplicationRunStartTime (\ s a -> s{_rjNextReplicationRunStartTime = a}) . mapping _Time;
+rjNextReplicationRunStartTime = lens _rjNextReplicationRunStartTime (\ s a -> s{_rjNextReplicationRunStartTime = a}) . mapping _Time
 
 -- | Undocumented member.
 rjStatusMessage :: Lens' ReplicationJob (Maybe Text)
-rjStatusMessage = lens _rjStatusMessage (\ s a -> s{_rjStatusMessage = a});
+rjStatusMessage = lens _rjStatusMessage (\ s a -> s{_rjStatusMessage = a})
 
 -- | Undocumented member.
 rjLatestAMIId :: Lens' ReplicationJob (Maybe Text)
-rjLatestAMIId = lens _rjLatestAMIId (\ s a -> s{_rjLatestAMIId = a});
+rjLatestAMIId = lens _rjLatestAMIId (\ s a -> s{_rjLatestAMIId = a})
 
 -- | Undocumented member.
 rjSeedReplicationTime :: Lens' ReplicationJob (Maybe UTCTime)
-rjSeedReplicationTime = lens _rjSeedReplicationTime (\ s a -> s{_rjSeedReplicationTime = a}) . mapping _Time;
+rjSeedReplicationTime = lens _rjSeedReplicationTime (\ s a -> s{_rjSeedReplicationTime = a}) . mapping _Time
 
 -- | Undocumented member.
 rjDescription :: Lens' ReplicationJob (Maybe Text)
-rjDescription = lens _rjDescription (\ s a -> s{_rjDescription = a});
+rjDescription = lens _rjDescription (\ s a -> s{_rjDescription = a})
 
 instance FromJSON ReplicationJob where
         parseJSON
@@ -327,48 +327,48 @@
     :: ReplicationRun
 replicationRun =
   ReplicationRun'
-  { _rrState = Nothing
-  , _rrReplicationRunId = Nothing
-  , _rrScheduledStartTime = Nothing
-  , _rrStatusMessage = Nothing
-  , _rrCompletedTime = Nothing
-  , _rrAmiId = Nothing
-  , _rrType = Nothing
-  , _rrDescription = Nothing
-  }
+    { _rrState = Nothing
+    , _rrReplicationRunId = Nothing
+    , _rrScheduledStartTime = Nothing
+    , _rrStatusMessage = Nothing
+    , _rrCompletedTime = Nothing
+    , _rrAmiId = Nothing
+    , _rrType = Nothing
+    , _rrDescription = Nothing
+    }
 
 
 -- | Undocumented member.
 rrState :: Lens' ReplicationRun (Maybe ReplicationRunState)
-rrState = lens _rrState (\ s a -> s{_rrState = a});
+rrState = lens _rrState (\ s a -> s{_rrState = a})
 
 -- | Undocumented member.
 rrReplicationRunId :: Lens' ReplicationRun (Maybe Text)
-rrReplicationRunId = lens _rrReplicationRunId (\ s a -> s{_rrReplicationRunId = a});
+rrReplicationRunId = lens _rrReplicationRunId (\ s a -> s{_rrReplicationRunId = a})
 
 -- | Undocumented member.
 rrScheduledStartTime :: Lens' ReplicationRun (Maybe UTCTime)
-rrScheduledStartTime = lens _rrScheduledStartTime (\ s a -> s{_rrScheduledStartTime = a}) . mapping _Time;
+rrScheduledStartTime = lens _rrScheduledStartTime (\ s a -> s{_rrScheduledStartTime = a}) . mapping _Time
 
 -- | Undocumented member.
 rrStatusMessage :: Lens' ReplicationRun (Maybe Text)
-rrStatusMessage = lens _rrStatusMessage (\ s a -> s{_rrStatusMessage = a});
+rrStatusMessage = lens _rrStatusMessage (\ s a -> s{_rrStatusMessage = a})
 
 -- | Undocumented member.
 rrCompletedTime :: Lens' ReplicationRun (Maybe UTCTime)
-rrCompletedTime = lens _rrCompletedTime (\ s a -> s{_rrCompletedTime = a}) . mapping _Time;
+rrCompletedTime = lens _rrCompletedTime (\ s a -> s{_rrCompletedTime = a}) . mapping _Time
 
 -- | Undocumented member.
 rrAmiId :: Lens' ReplicationRun (Maybe Text)
-rrAmiId = lens _rrAmiId (\ s a -> s{_rrAmiId = a});
+rrAmiId = lens _rrAmiId (\ s a -> s{_rrAmiId = a})
 
 -- | Undocumented member.
 rrType :: Lens' ReplicationRun (Maybe ReplicationRunType)
-rrType = lens _rrType (\ s a -> s{_rrType = a});
+rrType = lens _rrType (\ s a -> s{_rrType = a})
 
 -- | Undocumented member.
 rrDescription :: Lens' ReplicationRun (Maybe Text)
-rrDescription = lens _rrDescription (\ s a -> s{_rrDescription = a});
+rrDescription = lens _rrDescription (\ s a -> s{_rrDescription = a})
 
 instance FromJSON ReplicationRun where
         parseJSON
@@ -416,33 +416,33 @@
     :: Server
 server =
   Server'
-  { _sServerType = Nothing
-  , _sServerId = Nothing
-  , _sReplicationJobTerminated = Nothing
-  , _sVmServer = Nothing
-  , _sReplicationJobId = Nothing
-  }
+    { _sServerType = Nothing
+    , _sServerId = Nothing
+    , _sReplicationJobTerminated = Nothing
+    , _sVmServer = Nothing
+    , _sReplicationJobId = Nothing
+    }
 
 
 -- | Undocumented member.
 sServerType :: Lens' Server (Maybe ServerType)
-sServerType = lens _sServerType (\ s a -> s{_sServerType = a});
+sServerType = lens _sServerType (\ s a -> s{_sServerType = a})
 
 -- | Undocumented member.
 sServerId :: Lens' Server (Maybe Text)
-sServerId = lens _sServerId (\ s a -> s{_sServerId = a});
+sServerId = lens _sServerId (\ s a -> s{_sServerId = a})
 
 -- | Undocumented member.
 sReplicationJobTerminated :: Lens' Server (Maybe Bool)
-sReplicationJobTerminated = lens _sReplicationJobTerminated (\ s a -> s{_sReplicationJobTerminated = a});
+sReplicationJobTerminated = lens _sReplicationJobTerminated (\ s a -> s{_sReplicationJobTerminated = a})
 
 -- | Undocumented member.
 sVmServer :: Lens' Server (Maybe VMServer)
-sVmServer = lens _sVmServer (\ s a -> s{_sVmServer = a});
+sVmServer = lens _sVmServer (\ s a -> s{_sVmServer = a})
 
 -- | Undocumented member.
 sReplicationJobId :: Lens' Server (Maybe Text)
-sReplicationJobId = lens _sReplicationJobId (\ s a -> s{_sReplicationJobId = a});
+sReplicationJobId = lens _sReplicationJobId (\ s a -> s{_sReplicationJobId = a})
 
 instance FromJSON Server where
         parseJSON
@@ -487,33 +487,33 @@
     :: VMServer
 vMServer =
   VMServer'
-  { _vmsVmManagerName = Nothing
-  , _vmsVmManagerType = Nothing
-  , _vmsVmServerAddress = Nothing
-  , _vmsVmName = Nothing
-  , _vmsVmPath = Nothing
-  }
+    { _vmsVmManagerName = Nothing
+    , _vmsVmManagerType = Nothing
+    , _vmsVmServerAddress = Nothing
+    , _vmsVmName = Nothing
+    , _vmsVmPath = Nothing
+    }
 
 
 -- | Undocumented member.
 vmsVmManagerName :: Lens' VMServer (Maybe Text)
-vmsVmManagerName = lens _vmsVmManagerName (\ s a -> s{_vmsVmManagerName = a});
+vmsVmManagerName = lens _vmsVmManagerName (\ s a -> s{_vmsVmManagerName = a})
 
 -- | Undocumented member.
 vmsVmManagerType :: Lens' VMServer (Maybe VMManagerType)
-vmsVmManagerType = lens _vmsVmManagerType (\ s a -> s{_vmsVmManagerType = a});
+vmsVmManagerType = lens _vmsVmManagerType (\ s a -> s{_vmsVmManagerType = a})
 
 -- | Undocumented member.
 vmsVmServerAddress :: Lens' VMServer (Maybe VMServerAddress)
-vmsVmServerAddress = lens _vmsVmServerAddress (\ s a -> s{_vmsVmServerAddress = a});
+vmsVmServerAddress = lens _vmsVmServerAddress (\ s a -> s{_vmsVmServerAddress = a})
 
 -- | Undocumented member.
 vmsVmName :: Lens' VMServer (Maybe Text)
-vmsVmName = lens _vmsVmName (\ s a -> s{_vmsVmName = a});
+vmsVmName = lens _vmsVmName (\ s a -> s{_vmsVmName = a})
 
 -- | Undocumented member.
 vmsVmPath :: Lens' VMServer (Maybe Text)
-vmsVmPath = lens _vmsVmPath (\ s a -> s{_vmsVmPath = a});
+vmsVmPath = lens _vmsVmPath (\ s a -> s{_vmsVmPath = a})
 
 instance FromJSON VMServer where
         parseJSON
@@ -553,11 +553,11 @@
 
 -- | Undocumented member.
 vmsaVmManagerId :: Lens' VMServerAddress (Maybe Text)
-vmsaVmManagerId = lens _vmsaVmManagerId (\ s a -> s{_vmsaVmManagerId = a});
+vmsaVmManagerId = lens _vmsaVmManagerId (\ s a -> s{_vmsaVmManagerId = a})
 
 -- | Undocumented member.
 vmsaVmId :: Lens' VMServerAddress (Maybe Text)
-vmsaVmId = lens _vmsaVmId (\ s a -> s{_vmsaVmId = a});
+vmsaVmId = lens _vmsaVmId (\ s a -> s{_vmsaVmId = a})
 
 instance FromJSON VMServerAddress where
         parseJSON
diff --git a/gen/Network/AWS/SMS/Types/Sum.hs b/gen/Network/AWS/SMS/Types/Sum.hs
--- a/gen/Network/AWS/SMS/Types/Sum.hs
+++ b/gen/Network/AWS/SMS/Types/Sum.hs
@@ -9,7 +9,7 @@
 
 -- |
 -- Module      : Network.AWS.SMS.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/SMS/UpdateReplicationJob.hs b/gen/Network/AWS/SMS/UpdateReplicationJob.hs
--- a/gen/Network/AWS/SMS/UpdateReplicationJob.hs
+++ b/gen/Network/AWS/SMS/UpdateReplicationJob.hs
@@ -12,7 +12,7 @@
 
 -- |
 -- Module      : Network.AWS.SMS.UpdateReplicationJob
--- 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
@@ -77,38 +77,38 @@
     -> UpdateReplicationJob
 updateReplicationJob pReplicationJobId_ =
   UpdateReplicationJob'
-  { _urjFrequency = Nothing
-  , _urjLicenseType = Nothing
-  , _urjRoleName = Nothing
-  , _urjNextReplicationRunStartTime = Nothing
-  , _urjDescription = Nothing
-  , _urjReplicationJobId = pReplicationJobId_
-  }
+    { _urjFrequency = Nothing
+    , _urjLicenseType = Nothing
+    , _urjRoleName = Nothing
+    , _urjNextReplicationRunStartTime = Nothing
+    , _urjDescription = Nothing
+    , _urjReplicationJobId = pReplicationJobId_
+    }
 
 
 -- | Undocumented member.
 urjFrequency :: Lens' UpdateReplicationJob (Maybe Int)
-urjFrequency = lens _urjFrequency (\ s a -> s{_urjFrequency = a});
+urjFrequency = lens _urjFrequency (\ s a -> s{_urjFrequency = a})
 
 -- | Undocumented member.
 urjLicenseType :: Lens' UpdateReplicationJob (Maybe LicenseType)
-urjLicenseType = lens _urjLicenseType (\ s a -> s{_urjLicenseType = a});
+urjLicenseType = lens _urjLicenseType (\ s a -> s{_urjLicenseType = a})
 
 -- | Undocumented member.
 urjRoleName :: Lens' UpdateReplicationJob (Maybe Text)
-urjRoleName = lens _urjRoleName (\ s a -> s{_urjRoleName = a});
+urjRoleName = lens _urjRoleName (\ s a -> s{_urjRoleName = a})
 
 -- | Undocumented member.
 urjNextReplicationRunStartTime :: Lens' UpdateReplicationJob (Maybe UTCTime)
-urjNextReplicationRunStartTime = lens _urjNextReplicationRunStartTime (\ s a -> s{_urjNextReplicationRunStartTime = a}) . mapping _Time;
+urjNextReplicationRunStartTime = lens _urjNextReplicationRunStartTime (\ s a -> s{_urjNextReplicationRunStartTime = a}) . mapping _Time
 
 -- | Undocumented member.
 urjDescription :: Lens' UpdateReplicationJob (Maybe Text)
-urjDescription = lens _urjDescription (\ s a -> s{_urjDescription = a});
+urjDescription = lens _urjDescription (\ s a -> s{_urjDescription = a})
 
 -- | Undocumented member.
 urjReplicationJobId :: Lens' UpdateReplicationJob Text
-urjReplicationJobId = lens _urjReplicationJobId (\ s a -> s{_urjReplicationJobId = a});
+urjReplicationJobId = lens _urjReplicationJobId (\ s a -> s{_urjReplicationJobId = a})
 
 instance AWSRequest UpdateReplicationJob where
         type Rs UpdateReplicationJob =
@@ -172,6 +172,6 @@
 
 -- | -- | The response status code.
 urjrsResponseStatus :: Lens' UpdateReplicationJobResponse Int
-urjrsResponseStatus = lens _urjrsResponseStatus (\ s a -> s{_urjrsResponseStatus = a});
+urjrsResponseStatus = lens _urjrsResponseStatus (\ s a -> s{_urjrsResponseStatus = a})
 
 instance NFData UpdateReplicationJobResponse where
diff --git a/gen/Network/AWS/SMS/Waiters.hs b/gen/Network/AWS/SMS/Waiters.hs
--- a/gen/Network/AWS/SMS/Waiters.hs
+++ b/gen/Network/AWS/SMS/Waiters.hs
@@ -7,7 +7,7 @@
 
 -- |
 -- Module      : Network.AWS.SMS.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/SMS.hs b/test/Test/AWS/Gen/SMS.hs
--- a/test/Test/AWS/Gen/SMS.hs
+++ b/test/Test/AWS/Gen/SMS.hs
@@ -5,7 +5,7 @@
 
 -- |
 -- Module      : Test.AWS.Gen.SMS
--- 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/SMS.hs b/test/Test/AWS/SMS.hs
--- a/test/Test/AWS/SMS.hs
+++ b/test/Test/AWS/SMS.hs
@@ -1,6 +1,6 @@
 -- |
 -- Module      : Test.AWS.SMS
--- Copyright   : (c) 2013-2016 Brendan Hay
+-- Copyright   : (c) 2013-2018 Brendan Hay
 -- License     : Mozilla Public License, v. 2.0.
 -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>
 -- Stability   : auto-generated
diff --git a/test/Test/AWS/SMS/Internal.hs b/test/Test/AWS/SMS/Internal.hs
--- a/test/Test/AWS/SMS/Internal.hs
+++ b/test/Test/AWS/SMS/Internal.hs
@@ -1,6 +1,6 @@
 -- |
 -- Module      : Test.AWS.SMS.Internal
--- Copyright   : (c) 2013-2016 Brendan Hay
+-- Copyright   : (c) 2013-2018 Brendan Hay
 -- License     : Mozilla Public License, v. 2.0.
 -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>
 -- Stability   : auto-generated