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-migrationhub.cabal b/amazonka-migrationhub.cabal
--- a/amazonka-migrationhub.cabal
+++ b/amazonka-migrationhub.cabal
@@ -1,5 +1,5 @@
 name:                  amazonka-migrationhub
-version:               1.5.0
+version:               1.6.0
 synopsis:              Amazon Migration Hub 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
@@ -69,7 +69,7 @@
         , Network.AWS.MigrationHub.Types.Sum
 
     build-depends:
-          amazonka-core == 1.5.0.*
+          amazonka-core == 1.6.0.*
         , base          >= 4.7     && < 5
 
 test-suite amazonka-migrationhub-test
@@ -89,8 +89,8 @@
         , Test.AWS.MigrationHub.Internal
 
     build-depends:
-          amazonka-core == 1.5.0.*
-        , amazonka-test == 1.5.0.*
+          amazonka-core == 1.6.0.*
+        , amazonka-test == 1.6.0.*
         , amazonka-migrationhub
         , base
         , bytestring
diff --git a/gen/Network/AWS/MigrationHub.hs b/gen/Network/AWS/MigrationHub.hs
--- a/gen/Network/AWS/MigrationHub.hs
+++ b/gen/Network/AWS/MigrationHub.hs
@@ -5,13 +5,13 @@
 
 -- |
 -- Module      : Network.AWS.MigrationHub
--- 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
 -- Portability : non-portable (GHC extensions)
 --
---
+-- The AWS Migration Hub API methods help to obtain server and application migration status and integrate your resource-specific migration tool by providing a programmatic interface to Migration Hub.
 --
 --
 module Network.AWS.MigrationHub
diff --git a/gen/Network/AWS/MigrationHub/AssociateCreatedArtifact.hs b/gen/Network/AWS/MigrationHub/AssociateCreatedArtifact.hs
--- a/gen/Network/AWS/MigrationHub/AssociateCreatedArtifact.hs
+++ b/gen/Network/AWS/MigrationHub/AssociateCreatedArtifact.hs
@@ -12,7 +12,7 @@
 
 -- |
 -- Module      : Network.AWS.MigrationHub.AssociateCreatedArtifact
--- Copyright   : (c) 2013-2017 Brendan Hay
+-- Copyright   : (c) 2013-2018 Brendan Hay
 -- License     : Mozilla Public License, v. 2.0.
 -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com>
 -- Stability   : auto-generated
@@ -81,28 +81,28 @@
     -> AssociateCreatedArtifact
 associateCreatedArtifact pProgressUpdateStream_ pMigrationTaskName_ pCreatedArtifact_ =
   AssociateCreatedArtifact'
-  { _acaDryRun = Nothing
-  , _acaProgressUpdateStream = pProgressUpdateStream_
-  , _acaMigrationTaskName = pMigrationTaskName_
-  , _acaCreatedArtifact = pCreatedArtifact_
-  }
+    { _acaDryRun = Nothing
+    , _acaProgressUpdateStream = pProgressUpdateStream_
+    , _acaMigrationTaskName = pMigrationTaskName_
+    , _acaCreatedArtifact = pCreatedArtifact_
+    }
 
 
 -- | Optional boolean flag to indicate whether any effect should take place. Used to test if the caller has permission to make the call.
 acaDryRun :: Lens' AssociateCreatedArtifact (Maybe Bool)
-acaDryRun = lens _acaDryRun (\ s a -> s{_acaDryRun = a});
+acaDryRun = lens _acaDryRun (\ s a -> s{_acaDryRun = a})
 
 -- | The name of the ProgressUpdateStream.
 acaProgressUpdateStream :: Lens' AssociateCreatedArtifact Text
-acaProgressUpdateStream = lens _acaProgressUpdateStream (\ s a -> s{_acaProgressUpdateStream = a});
+acaProgressUpdateStream = lens _acaProgressUpdateStream (\ s a -> s{_acaProgressUpdateStream = a})
 
 -- | Unique identifier that references the migration task.
 acaMigrationTaskName :: Lens' AssociateCreatedArtifact Text
-acaMigrationTaskName = lens _acaMigrationTaskName (\ s a -> s{_acaMigrationTaskName = a});
+acaMigrationTaskName = lens _acaMigrationTaskName (\ s a -> s{_acaMigrationTaskName = a})
 
 -- | An ARN of the AWS resource related to the migration (e.g., AMI, EC2 instance, RDS instance, etc.)
 acaCreatedArtifact :: Lens' AssociateCreatedArtifact CreatedArtifact
-acaCreatedArtifact = lens _acaCreatedArtifact (\ s a -> s{_acaCreatedArtifact = a});
+acaCreatedArtifact = lens _acaCreatedArtifact (\ s a -> s{_acaCreatedArtifact = a})
 
 instance AWSRequest AssociateCreatedArtifact where
         type Rs AssociateCreatedArtifact =
@@ -164,7 +164,7 @@
 
 -- | -- | The response status code.
 acarsResponseStatus :: Lens' AssociateCreatedArtifactResponse Int
-acarsResponseStatus = lens _acarsResponseStatus (\ s a -> s{_acarsResponseStatus = a});
+acarsResponseStatus = lens _acarsResponseStatus (\ s a -> s{_acarsResponseStatus = a})
 
 instance NFData AssociateCreatedArtifactResponse
          where
diff --git a/gen/Network/AWS/MigrationHub/AssociateDiscoveredResource.hs b/gen/Network/AWS/MigrationHub/AssociateDiscoveredResource.hs
--- a/gen/Network/AWS/MigrationHub/AssociateDiscoveredResource.hs
+++ b/gen/Network/AWS/MigrationHub/AssociateDiscoveredResource.hs
@@ -12,7 +12,7 @@
 
 -- |
 -- Module      : Network.AWS.MigrationHub.AssociateDiscoveredResource
--- Copyright   : (c) 2013-2017 Brendan Hay
+-- Copyright   : (c) 2013-2018 Brendan Hay
 -- License     : Mozilla Public License, v. 2.0.
 -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com>
 -- Stability   : auto-generated
@@ -73,28 +73,28 @@
     -> AssociateDiscoveredResource
 associateDiscoveredResource pProgressUpdateStream_ pMigrationTaskName_ pDiscoveredResource_ =
   AssociateDiscoveredResource'
-  { _adrDryRun = Nothing
-  , _adrProgressUpdateStream = pProgressUpdateStream_
-  , _adrMigrationTaskName = pMigrationTaskName_
-  , _adrDiscoveredResource = pDiscoveredResource_
-  }
+    { _adrDryRun = Nothing
+    , _adrProgressUpdateStream = pProgressUpdateStream_
+    , _adrMigrationTaskName = pMigrationTaskName_
+    , _adrDiscoveredResource = pDiscoveredResource_
+    }
 
 
 -- | Optional boolean flag to indicate whether any effect should take place. Used to test if the caller has permission to make the call.
 adrDryRun :: Lens' AssociateDiscoveredResource (Maybe Bool)
-adrDryRun = lens _adrDryRun (\ s a -> s{_adrDryRun = a});
+adrDryRun = lens _adrDryRun (\ s a -> s{_adrDryRun = a})
 
 -- | The name of the ProgressUpdateStream.
 adrProgressUpdateStream :: Lens' AssociateDiscoveredResource Text
-adrProgressUpdateStream = lens _adrProgressUpdateStream (\ s a -> s{_adrProgressUpdateStream = a});
+adrProgressUpdateStream = lens _adrProgressUpdateStream (\ s a -> s{_adrProgressUpdateStream = a})
 
 -- | The identifier given to the MigrationTask.
 adrMigrationTaskName :: Lens' AssociateDiscoveredResource Text
-adrMigrationTaskName = lens _adrMigrationTaskName (\ s a -> s{_adrMigrationTaskName = a});
+adrMigrationTaskName = lens _adrMigrationTaskName (\ s a -> s{_adrMigrationTaskName = a})
 
 -- | Object representing a Resource.
 adrDiscoveredResource :: Lens' AssociateDiscoveredResource DiscoveredResource
-adrDiscoveredResource = lens _adrDiscoveredResource (\ s a -> s{_adrDiscoveredResource = a});
+adrDiscoveredResource = lens _adrDiscoveredResource (\ s a -> s{_adrDiscoveredResource = a})
 
 instance AWSRequest AssociateDiscoveredResource where
         type Rs AssociateDiscoveredResource =
@@ -157,7 +157,7 @@
 
 -- | -- | The response status code.
 adrrsResponseStatus :: Lens' AssociateDiscoveredResourceResponse Int
-adrrsResponseStatus = lens _adrrsResponseStatus (\ s a -> s{_adrrsResponseStatus = a});
+adrrsResponseStatus = lens _adrrsResponseStatus (\ s a -> s{_adrrsResponseStatus = a})
 
 instance NFData AssociateDiscoveredResourceResponse
          where
diff --git a/gen/Network/AWS/MigrationHub/CreateProgressUpdateStream.hs b/gen/Network/AWS/MigrationHub/CreateProgressUpdateStream.hs
--- a/gen/Network/AWS/MigrationHub/CreateProgressUpdateStream.hs
+++ b/gen/Network/AWS/MigrationHub/CreateProgressUpdateStream.hs
@@ -12,7 +12,7 @@
 
 -- |
 -- Module      : Network.AWS.MigrationHub.CreateProgressUpdateStream
--- 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
@@ -63,18 +63,18 @@
     -> CreateProgressUpdateStream
 createProgressUpdateStream pProgressUpdateStreamName_ =
   CreateProgressUpdateStream'
-  { _cpusDryRun = Nothing
-  , _cpusProgressUpdateStreamName = pProgressUpdateStreamName_
-  }
+    { _cpusDryRun = Nothing
+    , _cpusProgressUpdateStreamName = pProgressUpdateStreamName_
+    }
 
 
 -- | Optional boolean flag to indicate whether any effect should take place. Used to test if the caller has permission to make the call.
 cpusDryRun :: Lens' CreateProgressUpdateStream (Maybe Bool)
-cpusDryRun = lens _cpusDryRun (\ s a -> s{_cpusDryRun = a});
+cpusDryRun = lens _cpusDryRun (\ s a -> s{_cpusDryRun = a})
 
 -- | The name of the ProgressUpdateStream.
 cpusProgressUpdateStreamName :: Lens' CreateProgressUpdateStream Text
-cpusProgressUpdateStreamName = lens _cpusProgressUpdateStreamName (\ s a -> s{_cpusProgressUpdateStreamName = a});
+cpusProgressUpdateStreamName = lens _cpusProgressUpdateStreamName (\ s a -> s{_cpusProgressUpdateStreamName = a})
 
 instance AWSRequest CreateProgressUpdateStream where
         type Rs CreateProgressUpdateStream =
@@ -135,7 +135,7 @@
 
 -- | -- | The response status code.
 cpusrsResponseStatus :: Lens' CreateProgressUpdateStreamResponse Int
-cpusrsResponseStatus = lens _cpusrsResponseStatus (\ s a -> s{_cpusrsResponseStatus = a});
+cpusrsResponseStatus = lens _cpusrsResponseStatus (\ s a -> s{_cpusrsResponseStatus = a})
 
 instance NFData CreateProgressUpdateStreamResponse
          where
diff --git a/gen/Network/AWS/MigrationHub/DeleteProgressUpdateStream.hs b/gen/Network/AWS/MigrationHub/DeleteProgressUpdateStream.hs
--- a/gen/Network/AWS/MigrationHub/DeleteProgressUpdateStream.hs
+++ b/gen/Network/AWS/MigrationHub/DeleteProgressUpdateStream.hs
@@ -12,7 +12,7 @@
 
 -- |
 -- Module      : Network.AWS.MigrationHub.DeleteProgressUpdateStream
--- 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
@@ -23,7 +23,7 @@
 --
 --     * The only parameter needed for @DeleteProgressUpdateStream@ is the stream name (same as a @CreateProgressUpdateStream@ call).
 --
---     * The call will return, and a background process will asynchronously be doing the actual delete of the stream and all of its resources (tasks, associated resources, resource attributes, created artifacts).
+--     * The call will return, and a background process will asynchronously delete the stream and all of its resources (tasks, associated resources, resource attributes, created artifacts).
 --
 --     * If the stream takes time to be deleted, it might still show up on a @ListProgressUpdateStreams@ call.
 --
@@ -75,18 +75,18 @@
     -> DeleteProgressUpdateStream
 deleteProgressUpdateStream pProgressUpdateStreamName_ =
   DeleteProgressUpdateStream'
-  { _dpusDryRun = Nothing
-  , _dpusProgressUpdateStreamName = pProgressUpdateStreamName_
-  }
+    { _dpusDryRun = Nothing
+    , _dpusProgressUpdateStreamName = pProgressUpdateStreamName_
+    }
 
 
 -- | Optional boolean flag to indicate whether any effect should take place. Used to test if the caller has permission to make the call.
 dpusDryRun :: Lens' DeleteProgressUpdateStream (Maybe Bool)
-dpusDryRun = lens _dpusDryRun (\ s a -> s{_dpusDryRun = a});
+dpusDryRun = lens _dpusDryRun (\ s a -> s{_dpusDryRun = a})
 
 -- | The name of the ProgressUpdateStream.
 dpusProgressUpdateStreamName :: Lens' DeleteProgressUpdateStream Text
-dpusProgressUpdateStreamName = lens _dpusProgressUpdateStreamName (\ s a -> s{_dpusProgressUpdateStreamName = a});
+dpusProgressUpdateStreamName = lens _dpusProgressUpdateStreamName (\ s a -> s{_dpusProgressUpdateStreamName = a})
 
 instance AWSRequest DeleteProgressUpdateStream where
         type Rs DeleteProgressUpdateStream =
@@ -147,7 +147,7 @@
 
 -- | -- | The response status code.
 dpusrsResponseStatus :: Lens' DeleteProgressUpdateStreamResponse Int
-dpusrsResponseStatus = lens _dpusrsResponseStatus (\ s a -> s{_dpusrsResponseStatus = a});
+dpusrsResponseStatus = lens _dpusrsResponseStatus (\ s a -> s{_dpusrsResponseStatus = a})
 
 instance NFData DeleteProgressUpdateStreamResponse
          where
diff --git a/gen/Network/AWS/MigrationHub/DescribeApplicationState.hs b/gen/Network/AWS/MigrationHub/DescribeApplicationState.hs
--- a/gen/Network/AWS/MigrationHub/DescribeApplicationState.hs
+++ b/gen/Network/AWS/MigrationHub/DescribeApplicationState.hs
@@ -12,7 +12,7 @@
 
 -- |
 -- Module      : Network.AWS.MigrationHub.DescribeApplicationState
--- Copyright   : (c) 2013-2017 Brendan Hay
+-- Copyright   : (c) 2013-2018 Brendan Hay
 -- License     : Mozilla Public License, v. 2.0.
 -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com>
 -- Stability   : auto-generated
@@ -65,7 +65,7 @@
 
 -- | The configurationId in ADS that uniquely identifies the grouped application.
 dasApplicationId :: Lens' DescribeApplicationState Text
-dasApplicationId = lens _dasApplicationId (\ s a -> s{_dasApplicationId = a});
+dasApplicationId = lens _dasApplicationId (\ s a -> s{_dasApplicationId = a})
 
 instance AWSRequest DescribeApplicationState where
         type Rs DescribeApplicationState =
@@ -127,23 +127,23 @@
     -> DescribeApplicationStateResponse
 describeApplicationStateResponse pResponseStatus_ =
   DescribeApplicationStateResponse'
-  { _dasrsLastUpdatedTime = Nothing
-  , _dasrsApplicationStatus = Nothing
-  , _dasrsResponseStatus = pResponseStatus_
-  }
+    { _dasrsLastUpdatedTime = Nothing
+    , _dasrsApplicationStatus = Nothing
+    , _dasrsResponseStatus = pResponseStatus_
+    }
 
 
 -- | The timestamp when the application status was last updated.
 dasrsLastUpdatedTime :: Lens' DescribeApplicationStateResponse (Maybe UTCTime)
-dasrsLastUpdatedTime = lens _dasrsLastUpdatedTime (\ s a -> s{_dasrsLastUpdatedTime = a}) . mapping _Time;
+dasrsLastUpdatedTime = lens _dasrsLastUpdatedTime (\ s a -> s{_dasrsLastUpdatedTime = a}) . mapping _Time
 
 -- | Status of the application - Not Started, In-Progress, Complete.
 dasrsApplicationStatus :: Lens' DescribeApplicationStateResponse (Maybe ApplicationStatus)
-dasrsApplicationStatus = lens _dasrsApplicationStatus (\ s a -> s{_dasrsApplicationStatus = a});
+dasrsApplicationStatus = lens _dasrsApplicationStatus (\ s a -> s{_dasrsApplicationStatus = a})
 
 -- | -- | The response status code.
 dasrsResponseStatus :: Lens' DescribeApplicationStateResponse Int
-dasrsResponseStatus = lens _dasrsResponseStatus (\ s a -> s{_dasrsResponseStatus = a});
+dasrsResponseStatus = lens _dasrsResponseStatus (\ s a -> s{_dasrsResponseStatus = a})
 
 instance NFData DescribeApplicationStateResponse
          where
diff --git a/gen/Network/AWS/MigrationHub/DescribeMigrationTask.hs b/gen/Network/AWS/MigrationHub/DescribeMigrationTask.hs
--- a/gen/Network/AWS/MigrationHub/DescribeMigrationTask.hs
+++ b/gen/Network/AWS/MigrationHub/DescribeMigrationTask.hs
@@ -12,7 +12,7 @@
 
 -- |
 -- Module      : Network.AWS.MigrationHub.DescribeMigrationTask
--- Copyright   : (c) 2013-2017 Brendan Hay
+-- Copyright   : (c) 2013-2018 Brendan Hay
 -- License     : Mozilla Public License, v. 2.0.
 -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com>
 -- Stability   : auto-generated
@@ -65,18 +65,18 @@
     -> DescribeMigrationTask
 describeMigrationTask pProgressUpdateStream_ pMigrationTaskName_ =
   DescribeMigrationTask'
-  { _dmtProgressUpdateStream = pProgressUpdateStream_
-  , _dmtMigrationTaskName = pMigrationTaskName_
-  }
+    { _dmtProgressUpdateStream = pProgressUpdateStream_
+    , _dmtMigrationTaskName = pMigrationTaskName_
+    }
 
 
 -- | The name of the ProgressUpdateStream.
 dmtProgressUpdateStream :: Lens' DescribeMigrationTask Text
-dmtProgressUpdateStream = lens _dmtProgressUpdateStream (\ s a -> s{_dmtProgressUpdateStream = a});
+dmtProgressUpdateStream = lens _dmtProgressUpdateStream (\ s a -> s{_dmtProgressUpdateStream = a})
 
 -- | The identifier given to the MigrationTask.
 dmtMigrationTaskName :: Lens' DescribeMigrationTask Text
-dmtMigrationTaskName = lens _dmtMigrationTaskName (\ s a -> s{_dmtMigrationTaskName = a});
+dmtMigrationTaskName = lens _dmtMigrationTaskName (\ s a -> s{_dmtMigrationTaskName = a})
 
 instance AWSRequest DescribeMigrationTask where
         type Rs DescribeMigrationTask =
@@ -135,15 +135,15 @@
     -> DescribeMigrationTaskResponse
 describeMigrationTaskResponse pResponseStatus_ =
   DescribeMigrationTaskResponse'
-  {_dmtrsMigrationTask = Nothing, _dmtrsResponseStatus = pResponseStatus_}
+    {_dmtrsMigrationTask = Nothing, _dmtrsResponseStatus = pResponseStatus_}
 
 
 -- | Object encapsulating information about the migration task.
 dmtrsMigrationTask :: Lens' DescribeMigrationTaskResponse (Maybe MigrationTask)
-dmtrsMigrationTask = lens _dmtrsMigrationTask (\ s a -> s{_dmtrsMigrationTask = a});
+dmtrsMigrationTask = lens _dmtrsMigrationTask (\ s a -> s{_dmtrsMigrationTask = a})
 
 -- | -- | The response status code.
 dmtrsResponseStatus :: Lens' DescribeMigrationTaskResponse Int
-dmtrsResponseStatus = lens _dmtrsResponseStatus (\ s a -> s{_dmtrsResponseStatus = a});
+dmtrsResponseStatus = lens _dmtrsResponseStatus (\ s a -> s{_dmtrsResponseStatus = a})
 
 instance NFData DescribeMigrationTaskResponse where
diff --git a/gen/Network/AWS/MigrationHub/DisassociateCreatedArtifact.hs b/gen/Network/AWS/MigrationHub/DisassociateCreatedArtifact.hs
--- a/gen/Network/AWS/MigrationHub/DisassociateCreatedArtifact.hs
+++ b/gen/Network/AWS/MigrationHub/DisassociateCreatedArtifact.hs
@@ -12,7 +12,7 @@
 
 -- |
 -- Module      : Network.AWS.MigrationHub.DisassociateCreatedArtifact
--- Copyright   : (c) 2013-2017 Brendan Hay
+-- Copyright   : (c) 2013-2018 Brendan Hay
 -- License     : Mozilla Public License, v. 2.0.
 -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com>
 -- Stability   : auto-generated
@@ -81,28 +81,28 @@
     -> DisassociateCreatedArtifact
 disassociateCreatedArtifact pProgressUpdateStream_ pMigrationTaskName_ pCreatedArtifactName_ =
   DisassociateCreatedArtifact'
-  { _dcaDryRun = Nothing
-  , _dcaProgressUpdateStream = pProgressUpdateStream_
-  , _dcaMigrationTaskName = pMigrationTaskName_
-  , _dcaCreatedArtifactName = pCreatedArtifactName_
-  }
+    { _dcaDryRun = Nothing
+    , _dcaProgressUpdateStream = pProgressUpdateStream_
+    , _dcaMigrationTaskName = pMigrationTaskName_
+    , _dcaCreatedArtifactName = pCreatedArtifactName_
+    }
 
 
 -- | Optional boolean flag to indicate whether any effect should take place. Used to test if the caller has permission to make the call.
 dcaDryRun :: Lens' DisassociateCreatedArtifact (Maybe Bool)
-dcaDryRun = lens _dcaDryRun (\ s a -> s{_dcaDryRun = a});
+dcaDryRun = lens _dcaDryRun (\ s a -> s{_dcaDryRun = a})
 
 -- | The name of the ProgressUpdateStream.
 dcaProgressUpdateStream :: Lens' DisassociateCreatedArtifact Text
-dcaProgressUpdateStream = lens _dcaProgressUpdateStream (\ s a -> s{_dcaProgressUpdateStream = a});
+dcaProgressUpdateStream = lens _dcaProgressUpdateStream (\ s a -> s{_dcaProgressUpdateStream = a})
 
 -- | Unique identifier that references the migration task to be disassociated with the artifact.
 dcaMigrationTaskName :: Lens' DisassociateCreatedArtifact Text
-dcaMigrationTaskName = lens _dcaMigrationTaskName (\ s a -> s{_dcaMigrationTaskName = a});
+dcaMigrationTaskName = lens _dcaMigrationTaskName (\ s a -> s{_dcaMigrationTaskName = a})
 
 -- | An ARN of the AWS resource related to the migration (e.g., AMI, EC2 instance, RDS instance, etc.)
 dcaCreatedArtifactName :: Lens' DisassociateCreatedArtifact Text
-dcaCreatedArtifactName = lens _dcaCreatedArtifactName (\ s a -> s{_dcaCreatedArtifactName = a});
+dcaCreatedArtifactName = lens _dcaCreatedArtifactName (\ s a -> s{_dcaCreatedArtifactName = a})
 
 instance AWSRequest DisassociateCreatedArtifact where
         type Rs DisassociateCreatedArtifact =
@@ -165,7 +165,7 @@
 
 -- | -- | The response status code.
 dcarsResponseStatus :: Lens' DisassociateCreatedArtifactResponse Int
-dcarsResponseStatus = lens _dcarsResponseStatus (\ s a -> s{_dcarsResponseStatus = a});
+dcarsResponseStatus = lens _dcarsResponseStatus (\ s a -> s{_dcarsResponseStatus = a})
 
 instance NFData DisassociateCreatedArtifactResponse
          where
diff --git a/gen/Network/AWS/MigrationHub/DisassociateDiscoveredResource.hs b/gen/Network/AWS/MigrationHub/DisassociateDiscoveredResource.hs
--- a/gen/Network/AWS/MigrationHub/DisassociateDiscoveredResource.hs
+++ b/gen/Network/AWS/MigrationHub/DisassociateDiscoveredResource.hs
@@ -12,7 +12,7 @@
 
 -- |
 -- Module      : Network.AWS.MigrationHub.DisassociateDiscoveredResource
--- Copyright   : (c) 2013-2017 Brendan Hay
+-- Copyright   : (c) 2013-2018 Brendan Hay
 -- License     : Mozilla Public License, v. 2.0.
 -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com>
 -- Stability   : auto-generated
@@ -73,28 +73,28 @@
     -> DisassociateDiscoveredResource
 disassociateDiscoveredResource pProgressUpdateStream_ pMigrationTaskName_ pConfigurationId_ =
   DisassociateDiscoveredResource'
-  { _ddrDryRun = Nothing
-  , _ddrProgressUpdateStream = pProgressUpdateStream_
-  , _ddrMigrationTaskName = pMigrationTaskName_
-  , _ddrConfigurationId = pConfigurationId_
-  }
+    { _ddrDryRun = Nothing
+    , _ddrProgressUpdateStream = pProgressUpdateStream_
+    , _ddrMigrationTaskName = pMigrationTaskName_
+    , _ddrConfigurationId = pConfigurationId_
+    }
 
 
 -- | Optional boolean flag to indicate whether any effect should take place. Used to test if the caller has permission to make the call.
 ddrDryRun :: Lens' DisassociateDiscoveredResource (Maybe Bool)
-ddrDryRun = lens _ddrDryRun (\ s a -> s{_ddrDryRun = a});
+ddrDryRun = lens _ddrDryRun (\ s a -> s{_ddrDryRun = a})
 
 -- | The name of the ProgressUpdateStream.
 ddrProgressUpdateStream :: Lens' DisassociateDiscoveredResource Text
-ddrProgressUpdateStream = lens _ddrProgressUpdateStream (\ s a -> s{_ddrProgressUpdateStream = a});
+ddrProgressUpdateStream = lens _ddrProgressUpdateStream (\ s a -> s{_ddrProgressUpdateStream = a})
 
 -- | The identifier given to the MigrationTask.
 ddrMigrationTaskName :: Lens' DisassociateDiscoveredResource Text
-ddrMigrationTaskName = lens _ddrMigrationTaskName (\ s a -> s{_ddrMigrationTaskName = a});
+ddrMigrationTaskName = lens _ddrMigrationTaskName (\ s a -> s{_ddrMigrationTaskName = a})
 
 -- | ConfigurationId of the ADS resource to be disassociated.
 ddrConfigurationId :: Lens' DisassociateDiscoveredResource Text
-ddrConfigurationId = lens _ddrConfigurationId (\ s a -> s{_ddrConfigurationId = a});
+ddrConfigurationId = lens _ddrConfigurationId (\ s a -> s{_ddrConfigurationId = a})
 
 instance AWSRequest DisassociateDiscoveredResource
          where
@@ -155,12 +155,12 @@
     -> DisassociateDiscoveredResourceResponse
 disassociateDiscoveredResourceResponse pResponseStatus_ =
   DisassociateDiscoveredResourceResponse'
-  {_ddrrsResponseStatus = pResponseStatus_}
+    {_ddrrsResponseStatus = pResponseStatus_}
 
 
 -- | -- | The response status code.
 ddrrsResponseStatus :: Lens' DisassociateDiscoveredResourceResponse Int
-ddrrsResponseStatus = lens _ddrrsResponseStatus (\ s a -> s{_ddrrsResponseStatus = a});
+ddrrsResponseStatus = lens _ddrrsResponseStatus (\ s a -> s{_ddrrsResponseStatus = a})
 
 instance NFData
            DisassociateDiscoveredResourceResponse
diff --git a/gen/Network/AWS/MigrationHub/ImportMigrationTask.hs b/gen/Network/AWS/MigrationHub/ImportMigrationTask.hs
--- a/gen/Network/AWS/MigrationHub/ImportMigrationTask.hs
+++ b/gen/Network/AWS/MigrationHub/ImportMigrationTask.hs
@@ -12,7 +12,7 @@
 
 -- |
 -- Module      : Network.AWS.MigrationHub.ImportMigrationTask
--- Copyright   : (c) 2013-2017 Brendan Hay
+-- Copyright   : (c) 2013-2018 Brendan Hay
 -- License     : Mozilla Public License, v. 2.0.
 -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com>
 -- Stability   : auto-generated
@@ -70,23 +70,23 @@
     -> ImportMigrationTask
 importMigrationTask pProgressUpdateStream_ pMigrationTaskName_ =
   ImportMigrationTask'
-  { _imtDryRun = Nothing
-  , _imtProgressUpdateStream = pProgressUpdateStream_
-  , _imtMigrationTaskName = pMigrationTaskName_
-  }
+    { _imtDryRun = Nothing
+    , _imtProgressUpdateStream = pProgressUpdateStream_
+    , _imtMigrationTaskName = pMigrationTaskName_
+    }
 
 
 -- | Optional boolean flag to indicate whether any effect should take place. Used to test if the caller has permission to make the call.
 imtDryRun :: Lens' ImportMigrationTask (Maybe Bool)
-imtDryRun = lens _imtDryRun (\ s a -> s{_imtDryRun = a});
+imtDryRun = lens _imtDryRun (\ s a -> s{_imtDryRun = a})
 
 -- | The name of the ProgressUpdateStream.
 imtProgressUpdateStream :: Lens' ImportMigrationTask Text
-imtProgressUpdateStream = lens _imtProgressUpdateStream (\ s a -> s{_imtProgressUpdateStream = a});
+imtProgressUpdateStream = lens _imtProgressUpdateStream (\ s a -> s{_imtProgressUpdateStream = a})
 
 -- | Unique identifier that references the migration task.
 imtMigrationTaskName :: Lens' ImportMigrationTask Text
-imtMigrationTaskName = lens _imtMigrationTaskName (\ s a -> s{_imtMigrationTaskName = a});
+imtMigrationTaskName = lens _imtMigrationTaskName (\ s a -> s{_imtMigrationTaskName = a})
 
 instance AWSRequest ImportMigrationTask where
         type Rs ImportMigrationTask =
@@ -146,6 +146,6 @@
 
 -- | -- | The response status code.
 imtrsResponseStatus :: Lens' ImportMigrationTaskResponse Int
-imtrsResponseStatus = lens _imtrsResponseStatus (\ s a -> s{_imtrsResponseStatus = a});
+imtrsResponseStatus = lens _imtrsResponseStatus (\ s a -> s{_imtrsResponseStatus = a})
 
 instance NFData ImportMigrationTaskResponse where
diff --git a/gen/Network/AWS/MigrationHub/ListCreatedArtifacts.hs b/gen/Network/AWS/MigrationHub/ListCreatedArtifacts.hs
--- a/gen/Network/AWS/MigrationHub/ListCreatedArtifacts.hs
+++ b/gen/Network/AWS/MigrationHub/ListCreatedArtifacts.hs
@@ -12,7 +12,7 @@
 
 -- |
 -- Module      : Network.AWS.MigrationHub.ListCreatedArtifacts
--- 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
@@ -82,28 +82,28 @@
     -> ListCreatedArtifacts
 listCreatedArtifacts pProgressUpdateStream_ pMigrationTaskName_ =
   ListCreatedArtifacts'
-  { _lcaNextToken = Nothing
-  , _lcaMaxResults = Nothing
-  , _lcaProgressUpdateStream = pProgressUpdateStream_
-  , _lcaMigrationTaskName = pMigrationTaskName_
-  }
+    { _lcaNextToken = Nothing
+    , _lcaMaxResults = Nothing
+    , _lcaProgressUpdateStream = pProgressUpdateStream_
+    , _lcaMigrationTaskName = pMigrationTaskName_
+    }
 
 
 -- | If a @NextToken@ was returned by a previous call, there are more results available. To retrieve the next page of results, make the call again using the returned token in @NextToken@ .
 lcaNextToken :: Lens' ListCreatedArtifacts (Maybe Text)
-lcaNextToken = lens _lcaNextToken (\ s a -> s{_lcaNextToken = a});
+lcaNextToken = lens _lcaNextToken (\ s a -> s{_lcaNextToken = a})
 
 -- | Maximum number of results to be returned per page.
 lcaMaxResults :: Lens' ListCreatedArtifacts (Maybe Natural)
-lcaMaxResults = lens _lcaMaxResults (\ s a -> s{_lcaMaxResults = a}) . mapping _Nat;
+lcaMaxResults = lens _lcaMaxResults (\ s a -> s{_lcaMaxResults = a}) . mapping _Nat
 
 -- | The name of the ProgressUpdateStream.
 lcaProgressUpdateStream :: Lens' ListCreatedArtifacts Text
-lcaProgressUpdateStream = lens _lcaProgressUpdateStream (\ s a -> s{_lcaProgressUpdateStream = a});
+lcaProgressUpdateStream = lens _lcaProgressUpdateStream (\ s a -> s{_lcaProgressUpdateStream = a})
 
 -- | Unique identifier that references the migration task.
 lcaMigrationTaskName :: Lens' ListCreatedArtifacts Text
-lcaMigrationTaskName = lens _lcaMigrationTaskName (\ s a -> s{_lcaMigrationTaskName = a});
+lcaMigrationTaskName = lens _lcaMigrationTaskName (\ s a -> s{_lcaMigrationTaskName = a})
 
 instance AWSRequest ListCreatedArtifacts where
         type Rs ListCreatedArtifacts =
@@ -169,22 +169,22 @@
     -> ListCreatedArtifactsResponse
 listCreatedArtifactsResponse pResponseStatus_ =
   ListCreatedArtifactsResponse'
-  { _lcarsNextToken = Nothing
-  , _lcarsCreatedArtifactList = Nothing
-  , _lcarsResponseStatus = pResponseStatus_
-  }
+    { _lcarsNextToken = Nothing
+    , _lcarsCreatedArtifactList = Nothing
+    , _lcarsResponseStatus = pResponseStatus_
+    }
 
 
 -- | If there are more created artifacts than the max result, return the next token to be passed to the next call as a bookmark of where to start from.
 lcarsNextToken :: Lens' ListCreatedArtifactsResponse (Maybe Text)
-lcarsNextToken = lens _lcarsNextToken (\ s a -> s{_lcarsNextToken = a});
+lcarsNextToken = lens _lcarsNextToken (\ s a -> s{_lcarsNextToken = a})
 
 -- | List of created artifacts up to the maximum number of results specified in the request.
 lcarsCreatedArtifactList :: Lens' ListCreatedArtifactsResponse [CreatedArtifact]
-lcarsCreatedArtifactList = lens _lcarsCreatedArtifactList (\ s a -> s{_lcarsCreatedArtifactList = a}) . _Default . _Coerce;
+lcarsCreatedArtifactList = lens _lcarsCreatedArtifactList (\ s a -> s{_lcarsCreatedArtifactList = a}) . _Default . _Coerce
 
 -- | -- | The response status code.
 lcarsResponseStatus :: Lens' ListCreatedArtifactsResponse Int
-lcarsResponseStatus = lens _lcarsResponseStatus (\ s a -> s{_lcarsResponseStatus = a});
+lcarsResponseStatus = lens _lcarsResponseStatus (\ s a -> s{_lcarsResponseStatus = a})
 
 instance NFData ListCreatedArtifactsResponse where
diff --git a/gen/Network/AWS/MigrationHub/ListDiscoveredResources.hs b/gen/Network/AWS/MigrationHub/ListDiscoveredResources.hs
--- a/gen/Network/AWS/MigrationHub/ListDiscoveredResources.hs
+++ b/gen/Network/AWS/MigrationHub/ListDiscoveredResources.hs
@@ -12,7 +12,7 @@
 
 -- |
 -- Module      : Network.AWS.MigrationHub.ListDiscoveredResources
--- 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,28 +74,28 @@
     -> ListDiscoveredResources
 listDiscoveredResources pProgressUpdateStream_ pMigrationTaskName_ =
   ListDiscoveredResources'
-  { _ldrNextToken = Nothing
-  , _ldrMaxResults = Nothing
-  , _ldrProgressUpdateStream = pProgressUpdateStream_
-  , _ldrMigrationTaskName = pMigrationTaskName_
-  }
+    { _ldrNextToken = Nothing
+    , _ldrMaxResults = Nothing
+    , _ldrProgressUpdateStream = pProgressUpdateStream_
+    , _ldrMigrationTaskName = pMigrationTaskName_
+    }
 
 
 -- | If a @NextToken@ was returned by a previous call, there are more results available. To retrieve the next page of results, make the call again using the returned token in @NextToken@ .
 ldrNextToken :: Lens' ListDiscoveredResources (Maybe Text)
-ldrNextToken = lens _ldrNextToken (\ s a -> s{_ldrNextToken = a});
+ldrNextToken = lens _ldrNextToken (\ s a -> s{_ldrNextToken = a})
 
 -- | The maximum number of results returned per page.
 ldrMaxResults :: Lens' ListDiscoveredResources (Maybe Natural)
-ldrMaxResults = lens _ldrMaxResults (\ s a -> s{_ldrMaxResults = a}) . mapping _Nat;
+ldrMaxResults = lens _ldrMaxResults (\ s a -> s{_ldrMaxResults = a}) . mapping _Nat
 
 -- | The name of the ProgressUpdateStream.
 ldrProgressUpdateStream :: Lens' ListDiscoveredResources Text
-ldrProgressUpdateStream = lens _ldrProgressUpdateStream (\ s a -> s{_ldrProgressUpdateStream = a});
+ldrProgressUpdateStream = lens _ldrProgressUpdateStream (\ s a -> s{_ldrProgressUpdateStream = a})
 
 -- | The name of the MigrationTask.
 ldrMigrationTaskName :: Lens' ListDiscoveredResources Text
-ldrMigrationTaskName = lens _ldrMigrationTaskName (\ s a -> s{_ldrMigrationTaskName = a});
+ldrMigrationTaskName = lens _ldrMigrationTaskName (\ s a -> s{_ldrMigrationTaskName = a})
 
 instance AWSRequest ListDiscoveredResources where
         type Rs ListDiscoveredResources =
@@ -161,22 +161,22 @@
     -> ListDiscoveredResourcesResponse
 listDiscoveredResourcesResponse pResponseStatus_ =
   ListDiscoveredResourcesResponse'
-  { _ldrrsDiscoveredResourceList = Nothing
-  , _ldrrsNextToken = Nothing
-  , _ldrrsResponseStatus = pResponseStatus_
-  }
+    { _ldrrsDiscoveredResourceList = Nothing
+    , _ldrrsNextToken = Nothing
+    , _ldrrsResponseStatus = pResponseStatus_
+    }
 
 
 -- | Returned list of discovered resources associated with the given MigrationTask.
 ldrrsDiscoveredResourceList :: Lens' ListDiscoveredResourcesResponse [DiscoveredResource]
-ldrrsDiscoveredResourceList = lens _ldrrsDiscoveredResourceList (\ s a -> s{_ldrrsDiscoveredResourceList = a}) . _Default . _Coerce;
+ldrrsDiscoveredResourceList = lens _ldrrsDiscoveredResourceList (\ s a -> s{_ldrrsDiscoveredResourceList = a}) . _Default . _Coerce
 
 -- | If there are more discovered resources than the max result, return the next token to be passed to the next call as a bookmark of where to start from.
 ldrrsNextToken :: Lens' ListDiscoveredResourcesResponse (Maybe Text)
-ldrrsNextToken = lens _ldrrsNextToken (\ s a -> s{_ldrrsNextToken = a});
+ldrrsNextToken = lens _ldrrsNextToken (\ s a -> s{_ldrrsNextToken = a})
 
 -- | -- | The response status code.
 ldrrsResponseStatus :: Lens' ListDiscoveredResourcesResponse Int
-ldrrsResponseStatus = lens _ldrrsResponseStatus (\ s a -> s{_ldrrsResponseStatus = a});
+ldrrsResponseStatus = lens _ldrrsResponseStatus (\ s a -> s{_ldrrsResponseStatus = a})
 
 instance NFData ListDiscoveredResourcesResponse where
diff --git a/gen/Network/AWS/MigrationHub/ListMigrationTasks.hs b/gen/Network/AWS/MigrationHub/ListMigrationTasks.hs
--- a/gen/Network/AWS/MigrationHub/ListMigrationTasks.hs
+++ b/gen/Network/AWS/MigrationHub/ListMigrationTasks.hs
@@ -12,7 +12,7 @@
 
 -- |
 -- Module      : Network.AWS.MigrationHub.ListMigrationTasks
--- Copyright   : (c) 2013-2017 Brendan Hay
+-- Copyright   : (c) 2013-2018 Brendan Hay
 -- License     : Mozilla Public License, v. 2.0.
 -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com>
 -- Stability   : auto-generated
@@ -76,23 +76,23 @@
     :: ListMigrationTasks
 listMigrationTasks =
   ListMigrationTasks'
-  { _lmtResourceName = Nothing
-  , _lmtNextToken = Nothing
-  , _lmtMaxResults = Nothing
-  }
+    { _lmtResourceName = Nothing
+    , _lmtNextToken = Nothing
+    , _lmtMaxResults = Nothing
+    }
 
 
 -- | Filter migration tasks by discovered resource name.
 lmtResourceName :: Lens' ListMigrationTasks (Maybe Text)
-lmtResourceName = lens _lmtResourceName (\ s a -> s{_lmtResourceName = a});
+lmtResourceName = lens _lmtResourceName (\ s a -> s{_lmtResourceName = a})
 
 -- | If a @NextToken@ was returned by a previous call, there are more results available. To retrieve the next page of results, make the call again using the returned token in @NextToken@ .
 lmtNextToken :: Lens' ListMigrationTasks (Maybe Text)
-lmtNextToken = lens _lmtNextToken (\ s a -> s{_lmtNextToken = a});
+lmtNextToken = lens _lmtNextToken (\ s a -> s{_lmtNextToken = a})
 
 -- | Value to specify how many results are returned per page.
 lmtMaxResults :: Lens' ListMigrationTasks (Maybe Natural)
-lmtMaxResults = lens _lmtMaxResults (\ s a -> s{_lmtMaxResults = a}) . mapping _Nat;
+lmtMaxResults = lens _lmtMaxResults (\ s a -> s{_lmtMaxResults = a}) . mapping _Nat
 
 instance AWSRequest ListMigrationTasks where
         type Rs ListMigrationTasks =
@@ -155,22 +155,22 @@
     -> ListMigrationTasksResponse
 listMigrationTasksResponse pResponseStatus_ =
   ListMigrationTasksResponse'
-  { _lmtrsMigrationTaskSummaryList = Nothing
-  , _lmtrsNextToken = Nothing
-  , _lmtrsResponseStatus = pResponseStatus_
-  }
+    { _lmtrsMigrationTaskSummaryList = Nothing
+    , _lmtrsNextToken = Nothing
+    , _lmtrsResponseStatus = pResponseStatus_
+    }
 
 
 -- | Lists the migration task's summary which includes: @MigrationTaskName@ , @ProgressPercent@ , @ProgressUpdateStream@ , @Status@ , and the @UpdateDateTime@ for each task.
 lmtrsMigrationTaskSummaryList :: Lens' ListMigrationTasksResponse [MigrationTaskSummary]
-lmtrsMigrationTaskSummaryList = lens _lmtrsMigrationTaskSummaryList (\ s a -> s{_lmtrsMigrationTaskSummaryList = a}) . _Default . _Coerce;
+lmtrsMigrationTaskSummaryList = lens _lmtrsMigrationTaskSummaryList (\ s a -> s{_lmtrsMigrationTaskSummaryList = a}) . _Default . _Coerce
 
 -- | If there are more migration tasks than the max result, return the next token to be passed to the next call as a bookmark of where to start from.
 lmtrsNextToken :: Lens' ListMigrationTasksResponse (Maybe Text)
-lmtrsNextToken = lens _lmtrsNextToken (\ s a -> s{_lmtrsNextToken = a});
+lmtrsNextToken = lens _lmtrsNextToken (\ s a -> s{_lmtrsNextToken = a})
 
 -- | -- | The response status code.
 lmtrsResponseStatus :: Lens' ListMigrationTasksResponse Int
-lmtrsResponseStatus = lens _lmtrsResponseStatus (\ s a -> s{_lmtrsResponseStatus = a});
+lmtrsResponseStatus = lens _lmtrsResponseStatus (\ s a -> s{_lmtrsResponseStatus = a})
 
 instance NFData ListMigrationTasksResponse where
diff --git a/gen/Network/AWS/MigrationHub/ListProgressUpdateStreams.hs b/gen/Network/AWS/MigrationHub/ListProgressUpdateStreams.hs
--- a/gen/Network/AWS/MigrationHub/ListProgressUpdateStreams.hs
+++ b/gen/Network/AWS/MigrationHub/ListProgressUpdateStreams.hs
@@ -12,7 +12,7 @@
 
 -- |
 -- Module      : Network.AWS.MigrationHub.ListProgressUpdateStreams
--- Copyright   : (c) 2013-2017 Brendan Hay
+-- Copyright   : (c) 2013-2018 Brendan Hay
 -- License     : Mozilla Public License, v. 2.0.
 -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com>
 -- Stability   : auto-generated
@@ -64,16 +64,16 @@
     :: ListProgressUpdateStreams
 listProgressUpdateStreams =
   ListProgressUpdateStreams'
-  {_lpusNextToken = Nothing, _lpusMaxResults = Nothing}
+    {_lpusNextToken = Nothing, _lpusMaxResults = Nothing}
 
 
 -- | If a @NextToken@ was returned by a previous call, there are more results available. To retrieve the next page of results, make the call again using the returned token in @NextToken@ .
 lpusNextToken :: Lens' ListProgressUpdateStreams (Maybe Text)
-lpusNextToken = lens _lpusNextToken (\ s a -> s{_lpusNextToken = a});
+lpusNextToken = lens _lpusNextToken (\ s a -> s{_lpusNextToken = a})
 
 -- | Filter to limit the maximum number of results to list per page.
 lpusMaxResults :: Lens' ListProgressUpdateStreams (Maybe Natural)
-lpusMaxResults = lens _lpusMaxResults (\ s a -> s{_lpusMaxResults = a}) . mapping _Nat;
+lpusMaxResults = lens _lpusMaxResults (\ s a -> s{_lpusMaxResults = a}) . mapping _Nat
 
 instance AWSRequest ListProgressUpdateStreams where
         type Rs ListProgressUpdateStreams =
@@ -136,23 +136,23 @@
     -> ListProgressUpdateStreamsResponse
 listProgressUpdateStreamsResponse pResponseStatus_ =
   ListProgressUpdateStreamsResponse'
-  { _lpusrsProgressUpdateStreamSummaryList = Nothing
-  , _lpusrsNextToken = Nothing
-  , _lpusrsResponseStatus = pResponseStatus_
-  }
+    { _lpusrsProgressUpdateStreamSummaryList = Nothing
+    , _lpusrsNextToken = Nothing
+    , _lpusrsResponseStatus = pResponseStatus_
+    }
 
 
 -- | List of progress update streams up to the max number of results passed in the input.
 lpusrsProgressUpdateStreamSummaryList :: Lens' ListProgressUpdateStreamsResponse [ProgressUpdateStreamSummary]
-lpusrsProgressUpdateStreamSummaryList = lens _lpusrsProgressUpdateStreamSummaryList (\ s a -> s{_lpusrsProgressUpdateStreamSummaryList = a}) . _Default . _Coerce;
+lpusrsProgressUpdateStreamSummaryList = lens _lpusrsProgressUpdateStreamSummaryList (\ s a -> s{_lpusrsProgressUpdateStreamSummaryList = a}) . _Default . _Coerce
 
 -- | If there are more streams created than the max result, return the next token to be passed to the next call as a bookmark of where to start from.
 lpusrsNextToken :: Lens' ListProgressUpdateStreamsResponse (Maybe Text)
-lpusrsNextToken = lens _lpusrsNextToken (\ s a -> s{_lpusrsNextToken = a});
+lpusrsNextToken = lens _lpusrsNextToken (\ s a -> s{_lpusrsNextToken = a})
 
 -- | -- | The response status code.
 lpusrsResponseStatus :: Lens' ListProgressUpdateStreamsResponse Int
-lpusrsResponseStatus = lens _lpusrsResponseStatus (\ s a -> s{_lpusrsResponseStatus = a});
+lpusrsResponseStatus = lens _lpusrsResponseStatus (\ s a -> s{_lpusrsResponseStatus = a})
 
 instance NFData ListProgressUpdateStreamsResponse
          where
diff --git a/gen/Network/AWS/MigrationHub/NotifyApplicationState.hs b/gen/Network/AWS/MigrationHub/NotifyApplicationState.hs
--- a/gen/Network/AWS/MigrationHub/NotifyApplicationState.hs
+++ b/gen/Network/AWS/MigrationHub/NotifyApplicationState.hs
@@ -12,7 +12,7 @@
 
 -- |
 -- Module      : Network.AWS.MigrationHub.NotifyApplicationState
--- 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,23 +68,23 @@
     -> NotifyApplicationState
 notifyApplicationState pApplicationId_ pStatus_ =
   NotifyApplicationState'
-  { _nasDryRun = Nothing
-  , _nasApplicationId = pApplicationId_
-  , _nasStatus = pStatus_
-  }
+    { _nasDryRun = Nothing
+    , _nasApplicationId = pApplicationId_
+    , _nasStatus = pStatus_
+    }
 
 
 -- | Optional boolean flag to indicate whether any effect should take place. Used to test if the caller has permission to make the call.
 nasDryRun :: Lens' NotifyApplicationState (Maybe Bool)
-nasDryRun = lens _nasDryRun (\ s a -> s{_nasDryRun = a});
+nasDryRun = lens _nasDryRun (\ s a -> s{_nasDryRun = a})
 
 -- | The configurationId in ADS that uniquely identifies the grouped application.
 nasApplicationId :: Lens' NotifyApplicationState Text
-nasApplicationId = lens _nasApplicationId (\ s a -> s{_nasApplicationId = a});
+nasApplicationId = lens _nasApplicationId (\ s a -> s{_nasApplicationId = a})
 
 -- | Status of the application - Not Started, In-Progress, Complete.
 nasStatus :: Lens' NotifyApplicationState ApplicationStatus
-nasStatus = lens _nasStatus (\ s a -> s{_nasStatus = a});
+nasStatus = lens _nasStatus (\ s a -> s{_nasStatus = a})
 
 instance AWSRequest NotifyApplicationState where
         type Rs NotifyApplicationState =
@@ -144,6 +144,6 @@
 
 -- | -- | The response status code.
 nasrsResponseStatus :: Lens' NotifyApplicationStateResponse Int
-nasrsResponseStatus = lens _nasrsResponseStatus (\ s a -> s{_nasrsResponseStatus = a});
+nasrsResponseStatus = lens _nasrsResponseStatus (\ s a -> s{_nasrsResponseStatus = a})
 
 instance NFData NotifyApplicationStateResponse where
diff --git a/gen/Network/AWS/MigrationHub/NotifyMigrationTaskState.hs b/gen/Network/AWS/MigrationHub/NotifyMigrationTaskState.hs
--- a/gen/Network/AWS/MigrationHub/NotifyMigrationTaskState.hs
+++ b/gen/Network/AWS/MigrationHub/NotifyMigrationTaskState.hs
@@ -12,7 +12,7 @@
 
 -- |
 -- Module      : Network.AWS.MigrationHub.NotifyMigrationTaskState
--- 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
@@ -91,38 +91,38 @@
     -> NotifyMigrationTaskState
 notifyMigrationTaskState pProgressUpdateStream_ pMigrationTaskName_ pTask_ pUpdateDateTime_ pNextUpdateSeconds_ =
   NotifyMigrationTaskState'
-  { _nmtsDryRun = Nothing
-  , _nmtsProgressUpdateStream = pProgressUpdateStream_
-  , _nmtsMigrationTaskName = pMigrationTaskName_
-  , _nmtsTask = pTask_
-  , _nmtsUpdateDateTime = _Time # pUpdateDateTime_
-  , _nmtsNextUpdateSeconds = _Nat # pNextUpdateSeconds_
-  }
+    { _nmtsDryRun = Nothing
+    , _nmtsProgressUpdateStream = pProgressUpdateStream_
+    , _nmtsMigrationTaskName = pMigrationTaskName_
+    , _nmtsTask = pTask_
+    , _nmtsUpdateDateTime = _Time # pUpdateDateTime_
+    , _nmtsNextUpdateSeconds = _Nat # pNextUpdateSeconds_
+    }
 
 
 -- | Optional boolean flag to indicate whether any effect should take place. Used to test if the caller has permission to make the call.
 nmtsDryRun :: Lens' NotifyMigrationTaskState (Maybe Bool)
-nmtsDryRun = lens _nmtsDryRun (\ s a -> s{_nmtsDryRun = a});
+nmtsDryRun = lens _nmtsDryRun (\ s a -> s{_nmtsDryRun = a})
 
 -- | The name of the ProgressUpdateStream.
 nmtsProgressUpdateStream :: Lens' NotifyMigrationTaskState Text
-nmtsProgressUpdateStream = lens _nmtsProgressUpdateStream (\ s a -> s{_nmtsProgressUpdateStream = a});
+nmtsProgressUpdateStream = lens _nmtsProgressUpdateStream (\ s a -> s{_nmtsProgressUpdateStream = a})
 
 -- | Unique identifier that references the migration task.
 nmtsMigrationTaskName :: Lens' NotifyMigrationTaskState Text
-nmtsMigrationTaskName = lens _nmtsMigrationTaskName (\ s a -> s{_nmtsMigrationTaskName = a});
+nmtsMigrationTaskName = lens _nmtsMigrationTaskName (\ s a -> s{_nmtsMigrationTaskName = a})
 
 -- | Information about the task's progress and status.
 nmtsTask :: Lens' NotifyMigrationTaskState Task
-nmtsTask = lens _nmtsTask (\ s a -> s{_nmtsTask = a});
+nmtsTask = lens _nmtsTask (\ s a -> s{_nmtsTask = a})
 
 -- | The timestamp when the task was gathered.
 nmtsUpdateDateTime :: Lens' NotifyMigrationTaskState UTCTime
-nmtsUpdateDateTime = lens _nmtsUpdateDateTime (\ s a -> s{_nmtsUpdateDateTime = a}) . _Time;
+nmtsUpdateDateTime = lens _nmtsUpdateDateTime (\ s a -> s{_nmtsUpdateDateTime = a}) . _Time
 
 -- | Number of seconds after the UpdateDateTime within which the Migration Hub can expect an update. If Migration Hub does not receive an update within the specified interval, then the migration task will be considered stale.
 nmtsNextUpdateSeconds :: Lens' NotifyMigrationTaskState Natural
-nmtsNextUpdateSeconds = lens _nmtsNextUpdateSeconds (\ s a -> s{_nmtsNextUpdateSeconds = a}) . _Nat;
+nmtsNextUpdateSeconds = lens _nmtsNextUpdateSeconds (\ s a -> s{_nmtsNextUpdateSeconds = a}) . _Nat
 
 instance AWSRequest NotifyMigrationTaskState where
         type Rs NotifyMigrationTaskState =
@@ -188,7 +188,7 @@
 
 -- | -- | The response status code.
 nmtsrsResponseStatus :: Lens' NotifyMigrationTaskStateResponse Int
-nmtsrsResponseStatus = lens _nmtsrsResponseStatus (\ s a -> s{_nmtsrsResponseStatus = a});
+nmtsrsResponseStatus = lens _nmtsrsResponseStatus (\ s a -> s{_nmtsrsResponseStatus = a})
 
 instance NFData NotifyMigrationTaskStateResponse
          where
diff --git a/gen/Network/AWS/MigrationHub/PutResourceAttributes.hs b/gen/Network/AWS/MigrationHub/PutResourceAttributes.hs
--- a/gen/Network/AWS/MigrationHub/PutResourceAttributes.hs
+++ b/gen/Network/AWS/MigrationHub/PutResourceAttributes.hs
@@ -12,7 +12,7 @@
 
 -- |
 -- Module      : Network.AWS.MigrationHub.PutResourceAttributes
--- 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
@@ -21,8 +21,12 @@
 -- Provides identifying details of the resource being migrated so that it can be associated in the Application Discovery Service (ADS)'s repository. This association occurs asynchronously after @PutResourceAttributes@ returns.
 --
 --
--- /Important:/ Keep in mind that subsequent calls to PutResourceAttributes will override previously stored attributes. For example, if it is first called with a MAC address, but later, it is desired to /add/ an IP address, it will then be required to call it with /both/ the IP and MAC addresses to prevent overiding the MAC address.
+-- /Important:/     * Keep in mind that subsequent calls to PutResourceAttributes will override previously stored attributes. For example, if it is first called with a MAC address, but later, it is desired to /add/ an IP address, it will then be required to call it with /both/ the IP and MAC addresses to prevent overiding the MAC address.
 --
+--     * Note the instructions regarding the special use case of the @ResourceAttributeList@ parameter when specifying any "VM" related value.
+--
+--
+--
 module Network.AWS.MigrationHub.PutResourceAttributes
     (
     -- * Creating a Request
@@ -67,7 +71,7 @@
 --
 -- * 'praMigrationTaskName' - Unique identifier that references the migration task.
 --
--- * 'praResourceAttributeList' - Information about the resource that is being migrated. This data will be used to map the task to a resource in the Application Discovery Service (ADS)'s repository.
+-- * 'praResourceAttributeList' - Information about the resource that is being migrated. This data will be used to map the task to a resource in the Application Discovery Service (ADS)'s repository. /Important:/ If any "VM" related value is used for a @ResourceAttribute@ object, it is required that @VM_MANAGER_ID@ , as a minimum, is always used. If it is not used, the server will not be associated in the Application Discovery Service (ADS)'s repository using any of the other "VM" related values, and you will experience data loss. See the Example section below for a use case of specifying "VM" related values.
 putResourceAttributes
     :: Text -- ^ 'praProgressUpdateStream'
     -> Text -- ^ 'praMigrationTaskName'
@@ -75,28 +79,28 @@
     -> PutResourceAttributes
 putResourceAttributes pProgressUpdateStream_ pMigrationTaskName_ pResourceAttributeList_ =
   PutResourceAttributes'
-  { _praDryRun = Nothing
-  , _praProgressUpdateStream = pProgressUpdateStream_
-  , _praMigrationTaskName = pMigrationTaskName_
-  , _praResourceAttributeList = _List1 # pResourceAttributeList_
-  }
+    { _praDryRun = Nothing
+    , _praProgressUpdateStream = pProgressUpdateStream_
+    , _praMigrationTaskName = pMigrationTaskName_
+    , _praResourceAttributeList = _List1 # pResourceAttributeList_
+    }
 
 
 -- | Optional boolean flag to indicate whether any effect should take place. Used to test if the caller has permission to make the call.
 praDryRun :: Lens' PutResourceAttributes (Maybe Bool)
-praDryRun = lens _praDryRun (\ s a -> s{_praDryRun = a});
+praDryRun = lens _praDryRun (\ s a -> s{_praDryRun = a})
 
 -- | The name of the ProgressUpdateStream.
 praProgressUpdateStream :: Lens' PutResourceAttributes Text
-praProgressUpdateStream = lens _praProgressUpdateStream (\ s a -> s{_praProgressUpdateStream = a});
+praProgressUpdateStream = lens _praProgressUpdateStream (\ s a -> s{_praProgressUpdateStream = a})
 
 -- | Unique identifier that references the migration task.
 praMigrationTaskName :: Lens' PutResourceAttributes Text
-praMigrationTaskName = lens _praMigrationTaskName (\ s a -> s{_praMigrationTaskName = a});
+praMigrationTaskName = lens _praMigrationTaskName (\ s a -> s{_praMigrationTaskName = a})
 
--- | Information about the resource that is being migrated. This data will be used to map the task to a resource in the Application Discovery Service (ADS)'s repository.
+-- | Information about the resource that is being migrated. This data will be used to map the task to a resource in the Application Discovery Service (ADS)'s repository. /Important:/ If any "VM" related value is used for a @ResourceAttribute@ object, it is required that @VM_MANAGER_ID@ , as a minimum, is always used. If it is not used, the server will not be associated in the Application Discovery Service (ADS)'s repository using any of the other "VM" related values, and you will experience data loss. See the Example section below for a use case of specifying "VM" related values.
 praResourceAttributeList :: Lens' PutResourceAttributes (NonEmpty ResourceAttribute)
-praResourceAttributeList = lens _praResourceAttributeList (\ s a -> s{_praResourceAttributeList = a}) . _List1;
+praResourceAttributeList = lens _praResourceAttributeList (\ s a -> s{_praResourceAttributeList = a}) . _List1
 
 instance AWSRequest PutResourceAttributes where
         type Rs PutResourceAttributes =
@@ -160,6 +164,6 @@
 
 -- | -- | The response status code.
 prarsResponseStatus :: Lens' PutResourceAttributesResponse Int
-prarsResponseStatus = lens _prarsResponseStatus (\ s a -> s{_prarsResponseStatus = a});
+prarsResponseStatus = lens _prarsResponseStatus (\ s a -> s{_prarsResponseStatus = a})
 
 instance NFData PutResourceAttributesResponse where
diff --git a/gen/Network/AWS/MigrationHub/Types.hs b/gen/Network/AWS/MigrationHub/Types.hs
--- a/gen/Network/AWS/MigrationHub/Types.hs
+++ b/gen/Network/AWS/MigrationHub/Types.hs
@@ -4,7 +4,7 @@
 
 -- |
 -- Module      : Network.AWS.MigrationHub.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
@@ -94,24 +94,24 @@
 migrationHub :: Service
 migrationHub =
   Service
-  { _svcAbbrev = "MigrationHub"
-  , _svcSigner = v4
-  , _svcPrefix = "mgh"
-  , _svcVersion = "2017-05-31"
-  , _svcEndpoint = defaultEndpoint migrationHub
-  , _svcTimeout = Just 70
-  , _svcCheck = statusSuccess
-  , _svcError = parseJSONError "MigrationHub"
-  , _svcRetry = retry
-  }
+    { _svcAbbrev = "MigrationHub"
+    , _svcSigner = v4
+    , _svcPrefix = "mgh"
+    , _svcVersion = "2017-05-31"
+    , _svcEndpoint = defaultEndpoint migrationHub
+    , _svcTimeout = Just 70
+    , _svcCheck = statusSuccess
+    , _svcError = parseJSONError "MigrationHub"
+    , _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"
@@ -120,6 +120,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"
@@ -127,7 +129,7 @@
       | otherwise = Nothing
 
 
--- | Exception raised when the account making the call is not whitelisted or there are other authentication errors.
+-- | You do not have sufficient access to perform this action.
 --
 --
 _AccessDeniedException :: AsError a => Getting (First ServiceError) a ServiceError
@@ -141,7 +143,7 @@
 _DryRunOperation = _MatchServiceError migrationHub "DryRunOperation"
 
 
--- | Exception raised when there are problems accessing ADS (Application Discovery Service); most likely due to a misconfigured policy or the @ADSCaller@ role is missing or not configured correctly.
+-- | Exception raised when there are problems accessing ADS (Application Discovery Service); most likely due to a misconfigured policy or the @migrationhub-discovery@ role is missing or not configured correctly.
 --
 --
 _PolicyErrorException :: AsError a => Getting (First ServiceError) a ServiceError
@@ -162,7 +164,7 @@
 _InvalidInputException = _MatchServiceError migrationHub "InvalidInputException"
 
 
--- | Exception raised when the service encounters throttled communication with upstream dependencies or is overloaded with requests.
+-- | Exception raised when there is an internal, configuration, or dependency error encountered.
 --
 --
 _ServiceUnavailableException :: AsError a => Getting (First ServiceError) a ServiceError
diff --git a/gen/Network/AWS/MigrationHub/Types/Product.hs b/gen/Network/AWS/MigrationHub/Types/Product.hs
--- a/gen/Network/AWS/MigrationHub/Types/Product.hs
+++ b/gen/Network/AWS/MigrationHub/Types/Product.hs
@@ -9,7 +9,7 @@
 
 -- |
 -- Module      : Network.AWS.MigrationHub.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 @@
 
 -- | A description that can be free-form text to record additional detail about the artifact for clarity or for later reference.
 caDescription :: Lens' CreatedArtifact (Maybe Text)
-caDescription = lens _caDescription (\ s a -> s{_caDescription = a});
+caDescription = lens _caDescription (\ s a -> s{_caDescription = a})
 
 -- | An ARN that uniquely identifies the result of a migration task.
 caName :: Lens' CreatedArtifact Text
-caName = lens _caName (\ s a -> s{_caName = a});
+caName = lens _caName (\ s a -> s{_caName = a})
 
 instance FromJSON CreatedArtifact where
         parseJSON
@@ -95,16 +95,16 @@
     -> DiscoveredResource
 discoveredResource pConfigurationId_ =
   DiscoveredResource'
-  {_drDescription = Nothing, _drConfigurationId = pConfigurationId_}
+    {_drDescription = Nothing, _drConfigurationId = pConfigurationId_}
 
 
 -- | A description that can be free-form text to record additional detail about the discovered resource for clarity or later reference.
 drDescription :: Lens' DiscoveredResource (Maybe Text)
-drDescription = lens _drDescription (\ s a -> s{_drDescription = a});
+drDescription = lens _drDescription (\ s a -> s{_drDescription = a})
 
 -- | The configurationId in ADS that uniquely identifies the on-premise resource.
 drConfigurationId :: Lens' DiscoveredResource Text
-drConfigurationId = lens _drConfigurationId (\ s a -> s{_drConfigurationId = a});
+drConfigurationId = lens _drConfigurationId (\ s a -> s{_drConfigurationId = a})
 
 instance FromJSON DiscoveredResource where
         parseJSON
@@ -155,33 +155,33 @@
     :: MigrationTask
 migrationTask =
   MigrationTask'
-  { _mtUpdateDateTime = Nothing
-  , _mtResourceAttributeList = Nothing
-  , _mtTask = Nothing
-  , _mtProgressUpdateStream = Nothing
-  , _mtMigrationTaskName = Nothing
-  }
+    { _mtUpdateDateTime = Nothing
+    , _mtResourceAttributeList = Nothing
+    , _mtTask = Nothing
+    , _mtProgressUpdateStream = Nothing
+    , _mtMigrationTaskName = Nothing
+    }
 
 
 -- | The timestamp when the task was gathered.
 mtUpdateDateTime :: Lens' MigrationTask (Maybe UTCTime)
-mtUpdateDateTime = lens _mtUpdateDateTime (\ s a -> s{_mtUpdateDateTime = a}) . mapping _Time;
+mtUpdateDateTime = lens _mtUpdateDateTime (\ s a -> s{_mtUpdateDateTime = a}) . mapping _Time
 
 -- |
 mtResourceAttributeList :: Lens' MigrationTask [ResourceAttribute]
-mtResourceAttributeList = lens _mtResourceAttributeList (\ s a -> s{_mtResourceAttributeList = a}) . _Default . _Coerce;
+mtResourceAttributeList = lens _mtResourceAttributeList (\ s a -> s{_mtResourceAttributeList = a}) . _Default . _Coerce
 
 -- | Task object encapsulating task information.
 mtTask :: Lens' MigrationTask (Maybe Task)
-mtTask = lens _mtTask (\ s a -> s{_mtTask = a});
+mtTask = lens _mtTask (\ s a -> s{_mtTask = a})
 
 -- | A name that identifies the vendor of the migration tool being used.
 mtProgressUpdateStream :: Lens' MigrationTask (Maybe Text)
-mtProgressUpdateStream = lens _mtProgressUpdateStream (\ s a -> s{_mtProgressUpdateStream = a});
+mtProgressUpdateStream = lens _mtProgressUpdateStream (\ s a -> s{_mtProgressUpdateStream = a})
 
 -- | Unique identifier that references the migration task.
 mtMigrationTaskName :: Lens' MigrationTask (Maybe Text)
-mtMigrationTaskName = lens _mtMigrationTaskName (\ s a -> s{_mtMigrationTaskName = a});
+mtMigrationTaskName = lens _mtMigrationTaskName (\ s a -> s{_mtMigrationTaskName = a})
 
 instance FromJSON MigrationTask where
         parseJSON
@@ -232,38 +232,38 @@
     :: MigrationTaskSummary
 migrationTaskSummary =
   MigrationTaskSummary'
-  { _mtsStatus = Nothing
-  , _mtsUpdateDateTime = Nothing
-  , _mtsProgressPercent = Nothing
-  , _mtsStatusDetail = Nothing
-  , _mtsProgressUpdateStream = Nothing
-  , _mtsMigrationTaskName = Nothing
-  }
+    { _mtsStatus = Nothing
+    , _mtsUpdateDateTime = Nothing
+    , _mtsProgressPercent = Nothing
+    , _mtsStatusDetail = Nothing
+    , _mtsProgressUpdateStream = Nothing
+    , _mtsMigrationTaskName = Nothing
+    }
 
 
 -- | Status of the task.
 mtsStatus :: Lens' MigrationTaskSummary (Maybe MigrationStatus)
-mtsStatus = lens _mtsStatus (\ s a -> s{_mtsStatus = a});
+mtsStatus = lens _mtsStatus (\ s a -> s{_mtsStatus = a})
 
 -- | The timestamp when the task was gathered.
 mtsUpdateDateTime :: Lens' MigrationTaskSummary (Maybe UTCTime)
-mtsUpdateDateTime = lens _mtsUpdateDateTime (\ s a -> s{_mtsUpdateDateTime = a}) . mapping _Time;
+mtsUpdateDateTime = lens _mtsUpdateDateTime (\ s a -> s{_mtsUpdateDateTime = a}) . mapping _Time
 
 -- |
 mtsProgressPercent :: Lens' MigrationTaskSummary (Maybe Natural)
-mtsProgressPercent = lens _mtsProgressPercent (\ s a -> s{_mtsProgressPercent = a}) . mapping _Nat;
+mtsProgressPercent = lens _mtsProgressPercent (\ s a -> s{_mtsProgressPercent = a}) . mapping _Nat
 
 -- | Detail information of what is being done within the overall status state.
 mtsStatusDetail :: Lens' MigrationTaskSummary (Maybe Text)
-mtsStatusDetail = lens _mtsStatusDetail (\ s a -> s{_mtsStatusDetail = a});
+mtsStatusDetail = lens _mtsStatusDetail (\ s a -> s{_mtsStatusDetail = a})
 
 -- | An AWS resource used for access control. It should uniquely identify the migration tool as it is used for all updates made by the tool.
 mtsProgressUpdateStream :: Lens' MigrationTaskSummary (Maybe Text)
-mtsProgressUpdateStream = lens _mtsProgressUpdateStream (\ s a -> s{_mtsProgressUpdateStream = a});
+mtsProgressUpdateStream = lens _mtsProgressUpdateStream (\ s a -> s{_mtsProgressUpdateStream = a})
 
 -- | Unique identifier that references the migration task.
 mtsMigrationTaskName :: Lens' MigrationTaskSummary (Maybe Text)
-mtsMigrationTaskName = lens _mtsMigrationTaskName (\ s a -> s{_mtsMigrationTaskName = a});
+mtsMigrationTaskName = lens _mtsMigrationTaskName (\ s a -> s{_mtsMigrationTaskName = a})
 
 instance FromJSON MigrationTaskSummary where
         parseJSON
@@ -303,7 +303,7 @@
 
 -- | The name of the ProgressUpdateStream.
 pussProgressUpdateStreamName :: Lens' ProgressUpdateStreamSummary (Maybe Text)
-pussProgressUpdateStreamName = lens _pussProgressUpdateStreamName (\ s a -> s{_pussProgressUpdateStreamName = a});
+pussProgressUpdateStreamName = lens _pussProgressUpdateStreamName (\ s a -> s{_pussProgressUpdateStreamName = a})
 
 instance FromJSON ProgressUpdateStreamSummary where
         parseJSON
@@ -319,7 +319,23 @@
 -- | Attribute associated with a resource.
 --
 --
+-- Note the corresponding format required per type listed below:
 --
+--     * IPV4    * @x.x.x.x@
+--
+-- /where x is an integer in the range [0,255]/
+--
+--     * IPV6    * @y : y : y : y : y : y : y : y@
+--
+-- /where y is a hexadecimal between 0 and FFFF. [0, FFFF]/
+--
+--     * MAC_ADDRESS    * @^([0-9A-Fa-f]{2}[:-]){5}([0-9A-Fa-f]{2})$@
+--
+--     * FQDN    * @^[^<>{}\\\\/?,=\\p{Cntrl}]{1,256}$@
+--
+--
+--
+--
 -- /See:/ 'resourceAttribute' smart constructor.
 data ResourceAttribute = ResourceAttribute'
   { _raType  :: !ResourceAttributeType
@@ -344,11 +360,11 @@
 
 -- | Type of resource.
 raType :: Lens' ResourceAttribute ResourceAttributeType
-raType = lens _raType (\ s a -> s{_raType = a});
+raType = lens _raType (\ s a -> s{_raType = a})
 
 -- | Value of the resource type.
 raValue :: Lens' ResourceAttribute Text
-raValue = lens _raValue (\ s a -> s{_raValue = a});
+raValue = lens _raValue (\ s a -> s{_raValue = a})
 
 instance FromJSON ResourceAttribute where
         parseJSON
@@ -394,20 +410,20 @@
     -> Task
 task pStatus_ =
   Task'
-  {_tProgressPercent = Nothing, _tStatusDetail = Nothing, _tStatus = pStatus_}
+    {_tProgressPercent = Nothing, _tStatusDetail = Nothing, _tStatus = pStatus_}
 
 
 -- | Indication of the percentage completion of the task.
 tProgressPercent :: Lens' Task (Maybe Natural)
-tProgressPercent = lens _tProgressPercent (\ s a -> s{_tProgressPercent = a}) . mapping _Nat;
+tProgressPercent = lens _tProgressPercent (\ s a -> s{_tProgressPercent = a}) . mapping _Nat
 
 -- | Details of task status as notified by a migration tool. A tool might use this field to provide clarifying information about the status that is unique to that tool or that explains an error state.
 tStatusDetail :: Lens' Task (Maybe Text)
-tStatusDetail = lens _tStatusDetail (\ s a -> s{_tStatusDetail = a});
+tStatusDetail = lens _tStatusDetail (\ s a -> s{_tStatusDetail = a})
 
 -- | Status of the task - Not Started, In-Progress, Complete.
 tStatus :: Lens' Task MigrationStatus
-tStatus = lens _tStatus (\ s a -> s{_tStatus = a});
+tStatus = lens _tStatus (\ s a -> s{_tStatus = a})
 
 instance FromJSON Task where
         parseJSON
diff --git a/gen/Network/AWS/MigrationHub/Types/Sum.hs b/gen/Network/AWS/MigrationHub/Types/Sum.hs
--- a/gen/Network/AWS/MigrationHub/Types/Sum.hs
+++ b/gen/Network/AWS/MigrationHub/Types/Sum.hs
@@ -9,7 +9,7 @@
 
 -- |
 -- Module      : Network.AWS.MigrationHub.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
@@ -93,7 +93,6 @@
   | Fqdn
   | IPV4Address
   | IPV6Address
-  | Label
   | MACAddress
   | MotherboardSerialNumber
   | VMManagedObjectReference
@@ -109,7 +108,6 @@
         "fqdn" -> pure Fqdn
         "ipv4_address" -> pure IPV4Address
         "ipv6_address" -> pure IPV6Address
-        "label" -> pure Label
         "mac_address" -> pure MACAddress
         "motherboard_serial_number" -> pure MotherboardSerialNumber
         "vm_managed_object_reference" -> pure VMManagedObjectReference
@@ -117,7 +115,7 @@
         "vm_name" -> pure VMName
         "vm_path" -> pure VMPath
         e -> fromTextError $ "Failure parsing ResourceAttributeType from value: '" <> e
-           <> "'. Accepted values: bios_id, fqdn, ipv4_address, ipv6_address, label, mac_address, motherboard_serial_number, vm_managed_object_reference, vm_manager_id, vm_name, vm_path"
+           <> "'. Accepted values: bios_id, fqdn, ipv4_address, ipv6_address, mac_address, motherboard_serial_number, vm_managed_object_reference, vm_manager_id, vm_name, vm_path"
 
 instance ToText ResourceAttributeType where
     toText = \case
@@ -125,7 +123,6 @@
         Fqdn -> "FQDN"
         IPV4Address -> "IPV4_ADDRESS"
         IPV6Address -> "IPV6_ADDRESS"
-        Label -> "LABEL"
         MACAddress -> "MAC_ADDRESS"
         MotherboardSerialNumber -> "MOTHERBOARD_SERIAL_NUMBER"
         VMManagedObjectReference -> "VM_MANAGED_OBJECT_REFERENCE"
diff --git a/gen/Network/AWS/MigrationHub/Waiters.hs b/gen/Network/AWS/MigrationHub/Waiters.hs
--- a/gen/Network/AWS/MigrationHub/Waiters.hs
+++ b/gen/Network/AWS/MigrationHub/Waiters.hs
@@ -7,7 +7,7 @@
 
 -- |
 -- Module      : Network.AWS.MigrationHub.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/MigrationHub.hs b/test/Test/AWS/Gen/MigrationHub.hs
--- a/test/Test/AWS/Gen/MigrationHub.hs
+++ b/test/Test/AWS/Gen/MigrationHub.hs
@@ -5,7 +5,7 @@
 
 -- |
 -- Module      : Test.AWS.Gen.MigrationHub
--- 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/MigrationHub.hs b/test/Test/AWS/MigrationHub.hs
--- a/test/Test/AWS/MigrationHub.hs
+++ b/test/Test/AWS/MigrationHub.hs
@@ -1,6 +1,6 @@
 -- |
 -- Module      : Test.AWS.MigrationHub
--- 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/MigrationHub/Internal.hs b/test/Test/AWS/MigrationHub/Internal.hs
--- a/test/Test/AWS/MigrationHub/Internal.hs
+++ b/test/Test/AWS/MigrationHub/Internal.hs
@@ -1,6 +1,6 @@
 -- |
 -- Module      : Test.AWS.MigrationHub.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