summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorBrendanHay <>2018-05-16 15:12:00 (GMT)
committerhdiff <hdiff@hdiff.luite.com>2018-05-16 15:12:00 (GMT)
commit719e6fe9cb03506996e0adcaa04aeaafbadfe60e (patch)
tree77b3ef026f29907c5612aab0511911084cec4c7e
parent359dbe1baa676737237474b1da54f05cf5c665e1 (diff)
version 1.6.0HEAD1.6.0master
-rw-r--r--README.md2
-rw-r--r--amazonka-discovery.cabal10
-rw-r--r--gen/Network/AWS/Discovery.hs16
-rw-r--r--gen/Network/AWS/Discovery/AssociateConfigurationItemsToApplication.hs16
-rw-r--r--gen/Network/AWS/Discovery/CreateApplication.hs12
-rw-r--r--gen/Network/AWS/Discovery/CreateTags.hs8
-rw-r--r--gen/Network/AWS/Discovery/DeleteApplications.hs6
-rw-r--r--gen/Network/AWS/Discovery/DeleteTags.hs8
-rw-r--r--gen/Network/AWS/Discovery/DescribeAgents.hs34
-rw-r--r--gen/Network/AWS/Discovery/DescribeConfigurations.hs10
-rw-r--r--gen/Network/AWS/Discovery/DescribeExportTasks.hs34
-rw-r--r--gen/Network/AWS/Discovery/DescribeTags.hs24
-rw-r--r--gen/Network/AWS/Discovery/DisassociateConfigurationItemsFromApplication.hs16
-rw-r--r--gen/Network/AWS/Discovery/GetDiscoverySummary.hs32
-rw-r--r--gen/Network/AWS/Discovery/ListConfigurations.hs38
-rw-r--r--gen/Network/AWS/Discovery/ListServerNeighbors.hs42
-rw-r--r--gen/Network/AWS/Discovery/StartDataCollectionByAgentIds.hs14
-rw-r--r--gen/Network/AWS/Discovery/StartExportTask.hs34
-rw-r--r--gen/Network/AWS/Discovery/StopDataCollectionByAgentIds.hs14
-rw-r--r--gen/Network/AWS/Discovery/Types.hs34
-rw-r--r--gen/Network/AWS/Discovery/Types/Product.hs226
-rw-r--r--gen/Network/AWS/Discovery/Types/Sum.hs2
-rw-r--r--gen/Network/AWS/Discovery/UpdateApplication.hs18
-rw-r--r--gen/Network/AWS/Discovery/Waiters.hs2
-rw-r--r--test/Main.hs2
-rw-r--r--test/Test/AWS/Discovery.hs2
-rw-r--r--test/Test/AWS/Discovery/Internal.hs2
-rw-r--r--test/Test/AWS/Gen/Discovery.hs2
28 files changed, 332 insertions, 328 deletions
diff --git a/README.md b/README.md
index 2a1e056..2de5dc7 100644
--- a/README.md
+++ b/README.md
@@ -8,7 +8,7 @@
## Version
-`1.5.0`
+`1.6.0`
## Description
diff --git a/amazonka-discovery.cabal b/amazonka-discovery.cabal
index 7ac7602..b923090 100644
--- a/amazonka-discovery.cabal
+++ b/amazonka-discovery.cabal
@@ -1,5 +1,5 @@
name: amazonka-discovery
-version: 1.5.0
+version: 1.6.0
synopsis: Amazon Application Discovery Service SDK.
homepage: https://github.com/brendanhay/amazonka
bug-reports: https://github.com/brendanhay/amazonka/issues
@@ -7,7 +7,7 @@ license: MPL-2.0
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
@@ -70,7 +70,7 @@ library
, Network.AWS.Discovery.Types.Sum
build-depends:
- amazonka-core == 1.5.0.*
+ amazonka-core == 1.6.0.*
, base >= 4.7 && < 5
test-suite amazonka-discovery-test
@@ -90,8 +90,8 @@ test-suite amazonka-discovery-test
, Test.AWS.Discovery.Internal
build-depends:
- amazonka-core == 1.5.0.*
- , amazonka-test == 1.5.0.*
+ amazonka-core == 1.6.0.*
+ , amazonka-test == 1.6.0.*
, amazonka-discovery
, base
, bytestring
diff --git a/gen/Network/AWS/Discovery.hs b/gen/Network/AWS/Discovery.hs
index 8570e27..b574544 100644
--- a/gen/Network/AWS/Discovery.hs
+++ b/gen/Network/AWS/Discovery.hs
@@ -5,7 +5,7 @@
-- |
-- Module : Network.AWS.Discovery
--- 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
@@ -13,21 +13,23 @@
--
-- __AWS Application Discovery Service__
--
--- AWS Application Discovery Service helps you plan application migration projects by automatically identifying servers, virtual machines (VMs), software, and software dependencies running in your on-premises data centers. Application Discovery Service also collects application performance data, which can help you assess the outcome of your migration. The data collected by Application Discovery Service is securely retained in an Amazon-hosted and managed database in the cloud. You can export the data as a CSV or XML file into your preferred visualization tool or cloud-migration solution to plan your migration. For more information, see the Application Discovery Service <http://aws.amazon.com/application-discovery/faqs/ FAQ> .
+-- AWS Application Discovery Service helps you plan application migration projects by automatically identifying servers, virtual machines (VMs), software, and software dependencies running in your on-premises data centers. Application Discovery Service also collects application performance data, which can help you assess the outcome of your migration. The data collected by Application Discovery Service is securely retained in an AWS-hosted and managed database in the cloud. You can export the data as a CSV or XML file into your preferred visualization tool or cloud-migration solution to plan your migration. For more information, see <http://aws.amazon.com/application-discovery/faqs/ AWS Application Discovery Service FAQ> .
--
--- Application Discovery Service offers two modes of operation.
+-- Application Discovery Service offers two modes of operation:
--
--- * __Agentless discovery__ mode is recommended for environments that use VMware vCenter Server. This mode doesn't require you to install an agent on each host. Agentless discovery gathers server information regardless of the operating systems, which minimizes the time required for initial on-premises infrastructure assessment. Agentless discovery doesn't collect information about software and software dependencies. It also doesn't work in non-VMware environments. We recommend that you use agent-based discovery for non-VMware environments and if you want to collect information about software and software dependencies. You can also run agent-based and agentless discovery simultaneously. Use agentless discovery to quickly complete the initial infrastructure assessment and then install agents on select hosts to gather information about software and software dependencies.
+-- * __Agentless discovery__ mode is recommended for environments that use VMware vCenter Server. This mode doesn't require you to install an agent on each host. Agentless discovery gathers server information regardless of the operating systems, which minimizes the time required for initial on-premises infrastructure assessment. Agentless discovery doesn't collect information about software and software dependencies. It also doesn't work in non-VMware environments.
--
--- * __Agent-based discovery__ mode collects a richer set of data than agentless discovery by using Amazon software, the AWS Application Discovery Agent, which you install on one or more hosts in your data center. The agent captures infrastructure and application information, including an inventory of installed software applications, system and process performance, resource utilization, and network dependencies between workloads. The information collected by agents is secured at rest and in transit to the Application Discovery Service database in the cloud.
+-- * __Agent-based discovery__ mode collects a richer set of data than agentless discovery by using the AWS Application Discovery Agent, which you install on one or more hosts in your data center. The agent captures infrastructure and application information, including an inventory of installed software applications, system and process performance, resource utilization, and network dependencies between workloads. The information collected by agents is secured at rest and in transit to the Application Discovery Service database in the cloud.
--
--
--
+-- We recommend that you use agent-based discovery for non-VMware environments and to collect information about software and software dependencies. You can also run agent-based and agentless discovery simultaneously. Use agentless discovery to quickly complete the initial infrastructure assessment and then install agents on select hosts.
+--
-- Application Discovery Service integrates with application discovery solutions from AWS Partner Network (APN) partners. Third-party application discovery tools can query Application Discovery Service and write to the Application Discovery Service database using a public API. You can then import the data into either a visualization tool or cloud-migration solution.
--
--- /Important:/ Application Discovery Service doesn't gather sensitive information. All data is handled according to the <http://aws.amazon.com/privacy/ AWS Privacy Policy> . You can operate Application Discovery Service using offline mode to inspect collected data before it is shared with the service.
+-- /Important:/ Application Discovery Service doesn't gather sensitive information. All data is handled according to the <http://aws.amazon.com/privacy/ AWS Privacy Policy> . You can operate Application Discovery Service offline to inspect collected data before it is shared with the service.
--
--- Your AWS account must be granted access to Application Discovery Service, a process called /whitelisting/ . This is true for AWS partners and customers alike. To request access, sign up for AWS Application Discovery Service <http://aws.amazon.com/application-discovery/preview/ here> . We send you information about how to get started.
+-- Your AWS account must be granted access to Application Discovery Service, a process called /whitelisting/ . This is true for AWS partners and customers alike. To request access, <http://aws.amazon.com/application-discovery/ sign up for Application Discovery Service> .
--
-- This API reference provides descriptions, syntax, and usage examples for each of the actions and data types for Application Discovery Service. The topic for each action shows the API request parameters and the response. Alternatively, you can use one of the AWS SDKs to access an API that is tailored to the programming language or platform that you're using. For more information, see <http://aws.amazon.com/tools/#SDKs AWS SDKs> .
--
diff --git a/gen/Network/AWS/Discovery/AssociateConfigurationItemsToApplication.hs b/gen/Network/AWS/Discovery/AssociateConfigurationItemsToApplication.hs
index 11c3ee1..e463401 100644
--- a/gen/Network/AWS/Discovery/AssociateConfigurationItemsToApplication.hs
+++ b/gen/Network/AWS/Discovery/AssociateConfigurationItemsToApplication.hs
@@ -12,7 +12,7 @@
-- |
-- Module : Network.AWS.Discovery.AssociateConfigurationItemsToApplication
--- 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 @@ associateConfigurationItemsToApplication
-> AssociateConfigurationItemsToApplication
associateConfigurationItemsToApplication pApplicationConfigurationId_ =
AssociateConfigurationItemsToApplication'
- { _acitaApplicationConfigurationId = pApplicationConfigurationId_
- , _acitaConfigurationIds = mempty
- }
+ { _acitaApplicationConfigurationId = pApplicationConfigurationId_
+ , _acitaConfigurationIds = mempty
+ }
-- | The configuration ID of an application with which items are to be associated.
acitaApplicationConfigurationId :: Lens' AssociateConfigurationItemsToApplication Text
-acitaApplicationConfigurationId = lens _acitaApplicationConfigurationId (\ s a -> s{_acitaApplicationConfigurationId = a});
+acitaApplicationConfigurationId = lens _acitaApplicationConfigurationId (\ s a -> s{_acitaApplicationConfigurationId = a})
-- | The ID of each configuration item to be associated with an application.
acitaConfigurationIds :: Lens' AssociateConfigurationItemsToApplication [Text]
-acitaConfigurationIds = lens _acitaConfigurationIds (\ s a -> s{_acitaConfigurationIds = a}) . _Coerce;
+acitaConfigurationIds = lens _acitaConfigurationIds (\ s a -> s{_acitaConfigurationIds = a}) . _Coerce
instance AWSRequest
AssociateConfigurationItemsToApplication
@@ -145,12 +145,12 @@ associateConfigurationItemsToApplicationResponse
-> AssociateConfigurationItemsToApplicationResponse
associateConfigurationItemsToApplicationResponse pResponseStatus_ =
AssociateConfigurationItemsToApplicationResponse'
- {_acitarsResponseStatus = pResponseStatus_}
+ {_acitarsResponseStatus = pResponseStatus_}
-- | -- | The response status code.
acitarsResponseStatus :: Lens' AssociateConfigurationItemsToApplicationResponse Int
-acitarsResponseStatus = lens _acitarsResponseStatus (\ s a -> s{_acitarsResponseStatus = a});
+acitarsResponseStatus = lens _acitarsResponseStatus (\ s a -> s{_acitarsResponseStatus = a})
instance NFData
AssociateConfigurationItemsToApplicationResponse
diff --git a/gen/Network/AWS/Discovery/CreateApplication.hs b/gen/Network/AWS/Discovery/CreateApplication.hs
index 44a38e1..781d87c 100644
--- a/gen/Network/AWS/Discovery/CreateApplication.hs
+++ b/gen/Network/AWS/Discovery/CreateApplication.hs
@@ -12,7 +12,7 @@
-- |
-- Module : Network.AWS.Discovery.CreateApplication
--- 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 @@ createApplication pName_ =
-- | Description of the application to be created.
caDescription :: Lens' CreateApplication (Maybe Text)
-caDescription = lens _caDescription (\ s a -> s{_caDescription = a});
+caDescription = lens _caDescription (\ s a -> s{_caDescription = a})
-- | Name of the application to be created.
caName :: Lens' CreateApplication Text
-caName = lens _caName (\ s a -> s{_caName = a});
+caName = lens _caName (\ s a -> s{_caName = a})
instance AWSRequest CreateApplication where
type Rs CreateApplication = CreateApplicationResponse
@@ -129,15 +129,15 @@ createApplicationResponse
-> CreateApplicationResponse
createApplicationResponse pResponseStatus_ =
CreateApplicationResponse'
- {_carsConfigurationId = Nothing, _carsResponseStatus = pResponseStatus_}
+ {_carsConfigurationId = Nothing, _carsResponseStatus = pResponseStatus_}
-- | Configuration ID of an application to be created.
carsConfigurationId :: Lens' CreateApplicationResponse (Maybe Text)
-carsConfigurationId = lens _carsConfigurationId (\ s a -> s{_carsConfigurationId = a});
+carsConfigurationId = lens _carsConfigurationId (\ s a -> s{_carsConfigurationId = a})
-- | -- | The response status code.
carsResponseStatus :: Lens' CreateApplicationResponse Int
-carsResponseStatus = lens _carsResponseStatus (\ s a -> s{_carsResponseStatus = a});
+carsResponseStatus = lens _carsResponseStatus (\ s a -> s{_carsResponseStatus = a})
instance NFData CreateApplicationResponse where
diff --git a/gen/Network/AWS/Discovery/CreateTags.hs b/gen/Network/AWS/Discovery/CreateTags.hs
index 7635541..ab754cc 100644
--- a/gen/Network/AWS/Discovery/CreateTags.hs
+++ b/gen/Network/AWS/Discovery/CreateTags.hs
@@ -12,7 +12,7 @@
-- |
-- Module : Network.AWS.Discovery.CreateTags
--- 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,11 +65,11 @@ createTags = CreateTags' {_ctConfigurationIds = mempty, _ctTags = mempty}
-- | A list of configuration items that you want to tag.
ctConfigurationIds :: Lens' CreateTags [Text]
-ctConfigurationIds = lens _ctConfigurationIds (\ s a -> s{_ctConfigurationIds = a}) . _Coerce;
+ctConfigurationIds = lens _ctConfigurationIds (\ s a -> s{_ctConfigurationIds = a}) . _Coerce
-- | Tags that you want to associate with one or more configuration items. Specify the tags that you want to create in a /key/ -/value/ format. For example: @{"key": "serverType", "value": "webServer"}@
ctTags :: Lens' CreateTags [Tag]
-ctTags = lens _ctTags (\ s a -> s{_ctTags = a}) . _Coerce;
+ctTags = lens _ctTags (\ s a -> s{_ctTags = a}) . _Coerce
instance AWSRequest CreateTags where
type Rs CreateTags = CreateTagsResponse
@@ -126,6 +126,6 @@ createTagsResponse pResponseStatus_ =
-- | -- | The response status code.
ctrsResponseStatus :: Lens' CreateTagsResponse Int
-ctrsResponseStatus = lens _ctrsResponseStatus (\ s a -> s{_ctrsResponseStatus = a});
+ctrsResponseStatus = lens _ctrsResponseStatus (\ s a -> s{_ctrsResponseStatus = a})
instance NFData CreateTagsResponse where
diff --git a/gen/Network/AWS/Discovery/DeleteApplications.hs b/gen/Network/AWS/Discovery/DeleteApplications.hs
index c876d46..8c78be0 100644
--- a/gen/Network/AWS/Discovery/DeleteApplications.hs
+++ b/gen/Network/AWS/Discovery/DeleteApplications.hs
@@ -12,7 +12,7 @@
-- |
-- Module : Network.AWS.Discovery.DeleteApplications
--- 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 @@ deleteApplications = DeleteApplications' {_daConfigurationIds = mempty}
-- | Configuration ID of an application to be deleted.
daConfigurationIds :: Lens' DeleteApplications [Text]
-daConfigurationIds = lens _daConfigurationIds (\ s a -> s{_daConfigurationIds = a}) . _Coerce;
+daConfigurationIds = lens _daConfigurationIds (\ s a -> s{_daConfigurationIds = a}) . _Coerce
instance AWSRequest DeleteApplications where
type Rs DeleteApplications =
@@ -118,6 +118,6 @@ deleteApplicationsResponse pResponseStatus_ =
-- | -- | The response status code.
darsResponseStatus :: Lens' DeleteApplicationsResponse Int
-darsResponseStatus = lens _darsResponseStatus (\ s a -> s{_darsResponseStatus = a});
+darsResponseStatus = lens _darsResponseStatus (\ s a -> s{_darsResponseStatus = a})
instance NFData DeleteApplicationsResponse where
diff --git a/gen/Network/AWS/Discovery/DeleteTags.hs b/gen/Network/AWS/Discovery/DeleteTags.hs
index 8902168..ea87fc3 100644
--- a/gen/Network/AWS/Discovery/DeleteTags.hs
+++ b/gen/Network/AWS/Discovery/DeleteTags.hs
@@ -12,7 +12,7 @@
-- |
-- Module : Network.AWS.Discovery.DeleteTags
--- 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,11 +65,11 @@ deleteTags = DeleteTags' {_dtTags = Nothing, _dtConfigurationIds = mempty}
-- | Tags that you want to delete from one or more configuration items. Specify the tags that you want to delete in a /key/ -/value/ format. For example: @{"key": "serverType", "value": "webServer"}@
dtTags :: Lens' DeleteTags [Tag]
-dtTags = lens _dtTags (\ s a -> s{_dtTags = a}) . _Default . _Coerce;
+dtTags = lens _dtTags (\ s a -> s{_dtTags = a}) . _Default . _Coerce
-- | A list of configuration items with tags that you want to delete.
dtConfigurationIds :: Lens' DeleteTags [Text]
-dtConfigurationIds = lens _dtConfigurationIds (\ s a -> s{_dtConfigurationIds = a}) . _Coerce;
+dtConfigurationIds = lens _dtConfigurationIds (\ s a -> s{_dtConfigurationIds = a}) . _Coerce
instance AWSRequest DeleteTags where
type Rs DeleteTags = DeleteTagsResponse
@@ -126,6 +126,6 @@ deleteTagsResponse pResponseStatus_ =
-- | -- | The response status code.
drsResponseStatus :: Lens' DeleteTagsResponse Int
-drsResponseStatus = lens _drsResponseStatus (\ s a -> s{_drsResponseStatus = a});
+drsResponseStatus = lens _drsResponseStatus (\ s a -> s{_drsResponseStatus = a})
instance NFData DeleteTagsResponse where
diff --git a/gen/Network/AWS/Discovery/DescribeAgents.hs b/gen/Network/AWS/Discovery/DescribeAgents.hs
index 4ee1b34..2f7ebae 100644
--- a/gen/Network/AWS/Discovery/DescribeAgents.hs
+++ b/gen/Network/AWS/Discovery/DescribeAgents.hs
@@ -12,7 +12,7 @@
-- |
-- Module : Network.AWS.Discovery.DescribeAgents
--- Copyright : (c) 2013-2017 Brendan Hay
+-- Copyright : (c) 2013-2018 Brendan Hay
-- License : Mozilla Public License, v. 2.0.
-- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com>
-- Stability : auto-generated
@@ -72,28 +72,28 @@ describeAgents
:: DescribeAgents
describeAgents =
DescribeAgents'
- { _daAgentIds = Nothing
- , _daFilters = Nothing
- , _daNextToken = Nothing
- , _daMaxResults = Nothing
- }
+ { _daAgentIds = Nothing
+ , _daFilters = Nothing
+ , _daNextToken = Nothing
+ , _daMaxResults = Nothing
+ }
-- | The agent or the Connector IDs for which you want information. If you specify no IDs, the system returns information about all agents/Connectors associated with your AWS user account.
daAgentIds :: Lens' DescribeAgents [Text]
-daAgentIds = lens _daAgentIds (\ s a -> s{_daAgentIds = a}) . _Default . _Coerce;
+daAgentIds = lens _daAgentIds (\ s a -> s{_daAgentIds = a}) . _Default . _Coerce
-- | You can filter the request using various logical operators and a /key/ -/value/ format. For example: @{"key": "collectionStatus", "value": "STARTED"}@
daFilters :: Lens' DescribeAgents [Filter]
-daFilters = lens _daFilters (\ s a -> s{_daFilters = a}) . _Default . _Coerce;
+daFilters = lens _daFilters (\ s a -> s{_daFilters = a}) . _Default . _Coerce
-- | Token to retrieve the next set of results. For example, if you previously specified 100 IDs for @DescribeAgentsRequest$agentIds@ but set @DescribeAgentsRequest$maxResults@ to 10, you received a set of 10 results along with a token. Use that token in this query to get the next set of 10.
daNextToken :: Lens' DescribeAgents (Maybe Text)
-daNextToken = lens _daNextToken (\ s a -> s{_daNextToken = a});
+daNextToken = lens _daNextToken (\ s a -> s{_daNextToken = a})
-- | The total number of agents/Connectors to return in a single page of output. The maximum value is 100.
daMaxResults :: Lens' DescribeAgents (Maybe Int)
-daMaxResults = lens _daMaxResults (\ s a -> s{_daMaxResults = a});
+daMaxResults = lens _daMaxResults (\ s a -> s{_daMaxResults = a})
instance AWSRequest DescribeAgents where
type Rs DescribeAgents = DescribeAgentsResponse
@@ -157,22 +157,22 @@ describeAgentsResponse
-> DescribeAgentsResponse
describeAgentsResponse pResponseStatus_ =
DescribeAgentsResponse'
- { _dasrsAgentsInfo = Nothing
- , _dasrsNextToken = Nothing
- , _dasrsResponseStatus = pResponseStatus_
- }
+ { _dasrsAgentsInfo = Nothing
+ , _dasrsNextToken = Nothing
+ , _dasrsResponseStatus = pResponseStatus_
+ }
-- | Lists agents or the Connector by ID or lists all agents/Connectors associated with your user account if you did not specify an agent/Connector ID. The output includes agent/Connector IDs, IP addresses, media access control (MAC) addresses, agent/Connector health, host name where the agent/Connector resides, and the version number of each agent/Connector.
dasrsAgentsInfo :: Lens' DescribeAgentsResponse [AgentInfo]
-dasrsAgentsInfo = lens _dasrsAgentsInfo (\ s a -> s{_dasrsAgentsInfo = a}) . _Default . _Coerce;
+dasrsAgentsInfo = lens _dasrsAgentsInfo (\ s a -> s{_dasrsAgentsInfo = a}) . _Default . _Coerce
-- | Token to retrieve the next set of results. For example, if you specified 100 IDs for @DescribeAgentsRequest$agentIds@ but set @DescribeAgentsRequest$maxResults@ to 10, you received a set of 10 results along with this token. Use this token in the next query to retrieve the next set of 10.
dasrsNextToken :: Lens' DescribeAgentsResponse (Maybe Text)
-dasrsNextToken = lens _dasrsNextToken (\ s a -> s{_dasrsNextToken = a});
+dasrsNextToken = lens _dasrsNextToken (\ s a -> s{_dasrsNextToken = a})
-- | -- | The response status code.
dasrsResponseStatus :: Lens' DescribeAgentsResponse Int
-dasrsResponseStatus = lens _dasrsResponseStatus (\ s a -> s{_dasrsResponseStatus = a});
+dasrsResponseStatus = lens _dasrsResponseStatus (\ s a -> s{_dasrsResponseStatus = a})
instance NFData DescribeAgentsResponse where
diff --git a/gen/Network/AWS/Discovery/DescribeConfigurations.hs b/gen/Network/AWS/Discovery/DescribeConfigurations.hs
index 9055e37..88f89bb 100644
--- a/gen/Network/AWS/Discovery/DescribeConfigurations.hs
+++ b/gen/Network/AWS/Discovery/DescribeConfigurations.hs
@@ -12,7 +12,7 @@
-- |
-- Module : Network.AWS.Discovery.DescribeConfigurations
--- Copyright : (c) 2013-2017 Brendan Hay
+-- Copyright : (c) 2013-2018 Brendan Hay
-- License : Mozilla Public License, v. 2.0.
-- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com>
-- Stability : auto-generated
@@ -64,7 +64,7 @@ describeConfigurations = DescribeConfigurations' {_dcConfigurationIds = mempty}
-- | One or more configuration IDs.
dcConfigurationIds :: Lens' DescribeConfigurations [Text]
-dcConfigurationIds = lens _dcConfigurationIds (\ s a -> s{_dcConfigurationIds = a}) . _Coerce;
+dcConfigurationIds = lens _dcConfigurationIds (\ s a -> s{_dcConfigurationIds = a}) . _Coerce
instance AWSRequest DescribeConfigurations where
type Rs DescribeConfigurations =
@@ -122,15 +122,15 @@ describeConfigurationsResponse
-> DescribeConfigurationsResponse
describeConfigurationsResponse pResponseStatus_ =
DescribeConfigurationsResponse'
- {_dcrsConfigurations = Nothing, _dcrsResponseStatus = pResponseStatus_}
+ {_dcrsConfigurations = Nothing, _dcrsResponseStatus = pResponseStatus_}
-- | A key in the response map. The value is an array of data.
dcrsConfigurations :: Lens' DescribeConfigurationsResponse [HashMap Text Text]
-dcrsConfigurations = lens _dcrsConfigurations (\ s a -> s{_dcrsConfigurations = a}) . _Default . _Coerce;
+dcrsConfigurations = lens _dcrsConfigurations (\ s a -> s{_dcrsConfigurations = a}) . _Default . _Coerce
-- | -- | The response status code.
dcrsResponseStatus :: Lens' DescribeConfigurationsResponse Int
-dcrsResponseStatus = lens _dcrsResponseStatus (\ s a -> s{_dcrsResponseStatus = a});
+dcrsResponseStatus = lens _dcrsResponseStatus (\ s a -> s{_dcrsResponseStatus = a})
instance NFData DescribeConfigurationsResponse where
diff --git a/gen/Network/AWS/Discovery/DescribeExportTasks.hs b/gen/Network/AWS/Discovery/DescribeExportTasks.hs
index 8fe433a..e08cf2a 100644
--- a/gen/Network/AWS/Discovery/DescribeExportTasks.hs
+++ b/gen/Network/AWS/Discovery/DescribeExportTasks.hs
@@ -12,7 +12,7 @@
-- |
-- Module : Network.AWS.Discovery.DescribeExportTasks
--- Copyright : (c) 2013-2017 Brendan Hay
+-- Copyright : (c) 2013-2018 Brendan Hay
-- License : Mozilla Public License, v. 2.0.
-- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com>
-- Stability : auto-generated
@@ -72,28 +72,28 @@ describeExportTasks
:: DescribeExportTasks
describeExportTasks =
DescribeExportTasks'
- { _detFilters = Nothing
- , _detNextToken = Nothing
- , _detExportIds = Nothing
- , _detMaxResults = Nothing
- }
+ { _detFilters = Nothing
+ , _detNextToken = Nothing
+ , _detExportIds = Nothing
+ , _detMaxResults = Nothing
+ }
-- | One or more filters. * @AgentId@ - ID of the agent whose collected data will be exported
detFilters :: Lens' DescribeExportTasks [ExportFilter]
-detFilters = lens _detFilters (\ s a -> s{_detFilters = a}) . _Default . _Coerce;
+detFilters = lens _detFilters (\ s a -> s{_detFilters = a}) . _Default . _Coerce
-- | The @nextToken@ value returned from a previous paginated @DescribeExportTasks@ request where @maxResults@ was used and the results exceeded the value of that parameter. Pagination continues from the end of the previous results that returned the @nextToken@ value. This value is null when there are no more results to return.
detNextToken :: Lens' DescribeExportTasks (Maybe Text)
-detNextToken = lens _detNextToken (\ s a -> s{_detNextToken = a});
+detNextToken = lens _detNextToken (\ s a -> s{_detNextToken = a})
-- | One or more unique identifiers used to query the status of an export request.
detExportIds :: Lens' DescribeExportTasks [Text]
-detExportIds = lens _detExportIds (\ s a -> s{_detExportIds = a}) . _Default . _Coerce;
+detExportIds = lens _detExportIds (\ s a -> s{_detExportIds = a}) . _Default . _Coerce
-- | The maximum number of volume results returned by @DescribeExportTasks@ in paginated output. When this parameter is used, @DescribeExportTasks@ only returns @maxResults@ results in a single page along with a @nextToken@ response element.
detMaxResults :: Lens' DescribeExportTasks (Maybe Int)
-detMaxResults = lens _detMaxResults (\ s a -> s{_detMaxResults = a});
+detMaxResults = lens _detMaxResults (\ s a -> s{_detMaxResults = a})
instance AWSRequest DescribeExportTasks where
type Rs DescribeExportTasks =
@@ -158,22 +158,22 @@ describeExportTasksResponse
-> DescribeExportTasksResponse
describeExportTasksResponse pResponseStatus_ =
DescribeExportTasksResponse'
- { _detrsNextToken = Nothing
- , _detrsExportsInfo = Nothing
- , _detrsResponseStatus = pResponseStatus_
- }
+ { _detrsNextToken = Nothing
+ , _detrsExportsInfo = Nothing
+ , _detrsResponseStatus = pResponseStatus_
+ }
-- | The @nextToken@ value to include in a future @DescribeExportTasks@ request. When the results of a @DescribeExportTasks@ request exceed @maxResults@ , this value can be used to retrieve the next page of results. This value is null when there are no more results to return.
detrsNextToken :: Lens' DescribeExportTasksResponse (Maybe Text)
-detrsNextToken = lens _detrsNextToken (\ s a -> s{_detrsNextToken = a});
+detrsNextToken = lens _detrsNextToken (\ s a -> s{_detrsNextToken = a})
-- | Contains one or more sets of export request details. When the status of a request is @SUCCEEDED@ , the response includes a URL for an Amazon S3 bucket where you can view the data in a CSV file.
detrsExportsInfo :: Lens' DescribeExportTasksResponse [ExportInfo]
-detrsExportsInfo = lens _detrsExportsInfo (\ s a -> s{_detrsExportsInfo = a}) . _Default . _Coerce;
+detrsExportsInfo = lens _detrsExportsInfo (\ s a -> s{_detrsExportsInfo = a}) . _Default . _Coerce
-- | -- | The response status code.
detrsResponseStatus :: Lens' DescribeExportTasksResponse Int
-detrsResponseStatus = lens _detrsResponseStatus (\ s a -> s{_detrsResponseStatus = a});
+detrsResponseStatus = lens _detrsResponseStatus (\ s a -> s{_detrsResponseStatus = a})
instance NFData DescribeExportTasksResponse where
diff --git a/gen/Network/AWS/Discovery/DescribeTags.hs b/gen/Network/AWS/Discovery/DescribeTags.hs
index 1b918ad..3b0b76a 100644
--- a/gen/Network/AWS/Discovery/DescribeTags.hs
+++ b/gen/Network/AWS/Discovery/DescribeTags.hs
@@ -12,7 +12,7 @@
-- |
-- Module : Network.AWS.Discovery.DescribeTags
--- 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,20 +68,20 @@ describeTags
:: DescribeTags
describeTags =
DescribeTags'
- {_dtFilters = Nothing, _dtNextToken = Nothing, _dtMaxResults = Nothing}
+ {_dtFilters = Nothing, _dtNextToken = Nothing, _dtMaxResults = Nothing}
-- | You can filter the list using a /key/ -/value/ format. You can separate these items by using logical operators. Allowed filters include @tagKey@ , @tagValue@ , and @configurationId@ .
dtFilters :: Lens' DescribeTags [TagFilter]
-dtFilters = lens _dtFilters (\ s a -> s{_dtFilters = a}) . _Default . _Coerce;
+dtFilters = lens _dtFilters (\ s a -> s{_dtFilters = a}) . _Default . _Coerce
-- | A token to start the list. Use this token to get the next set of results.
dtNextToken :: Lens' DescribeTags (Maybe Text)
-dtNextToken = lens _dtNextToken (\ s a -> s{_dtNextToken = a});
+dtNextToken = lens _dtNextToken (\ s a -> s{_dtNextToken = a})
-- | The total number of items to return in a single page of output. The maximum value is 100.
dtMaxResults :: Lens' DescribeTags (Maybe Int)
-dtMaxResults = lens _dtMaxResults (\ s a -> s{_dtMaxResults = a});
+dtMaxResults = lens _dtMaxResults (\ s a -> s{_dtMaxResults = a})
instance AWSRequest DescribeTags where
type Rs DescribeTags = DescribeTagsResponse
@@ -143,22 +143,22 @@ describeTagsResponse
-> DescribeTagsResponse
describeTagsResponse pResponseStatus_ =
DescribeTagsResponse'
- { _dtrsNextToken = Nothing
- , _dtrsTags = Nothing
- , _dtrsResponseStatus = pResponseStatus_
- }
+ { _dtrsNextToken = Nothing
+ , _dtrsTags = Nothing
+ , _dtrsResponseStatus = pResponseStatus_
+ }
-- | The call returns a token. Use this token to get the next set of results.
dtrsNextToken :: Lens' DescribeTagsResponse (Maybe Text)
-dtrsNextToken = lens _dtrsNextToken (\ s a -> s{_dtrsNextToken = a});
+dtrsNextToken = lens _dtrsNextToken (\ s a -> s{_dtrsNextToken = a})
-- | Depending on the input, this is a list of configuration items tagged with a specific tag, or a list of tags for a specific configuration item.
dtrsTags :: Lens' DescribeTagsResponse [ConfigurationTag]
-dtrsTags = lens _dtrsTags (\ s a -> s{_dtrsTags = a}) . _Default . _Coerce;
+dtrsTags = lens _dtrsTags (\ s a -> s{_dtrsTags = a}) . _Default . _Coerce
-- | -- | The response status code.
dtrsResponseStatus :: Lens' DescribeTagsResponse Int
-dtrsResponseStatus = lens _dtrsResponseStatus (\ s a -> s{_dtrsResponseStatus = a});
+dtrsResponseStatus = lens _dtrsResponseStatus (\ s a -> s{_dtrsResponseStatus = a})
instance NFData DescribeTagsResponse where
diff --git a/gen/Network/AWS/Discovery/DisassociateConfigurationItemsFromApplication.hs b/gen/Network/AWS/Discovery/DisassociateConfigurationItemsFromApplication.hs
index 98f1e4b..a226511 100644
--- a/gen/Network/AWS/Discovery/DisassociateConfigurationItemsFromApplication.hs
+++ b/gen/Network/AWS/Discovery/DisassociateConfigurationItemsFromApplication.hs
@@ -12,7 +12,7 @@
-- |
-- Module : Network.AWS.Discovery.DisassociateConfigurationItemsFromApplication
--- 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 @@ disassociateConfigurationItemsFromApplication
-> DisassociateConfigurationItemsFromApplication
disassociateConfigurationItemsFromApplication pApplicationConfigurationId_ =
DisassociateConfigurationItemsFromApplication'
- { _dcifaApplicationConfigurationId = pApplicationConfigurationId_
- , _dcifaConfigurationIds = mempty
- }
+ { _dcifaApplicationConfigurationId = pApplicationConfigurationId_
+ , _dcifaConfigurationIds = mempty
+ }
-- | Configuration ID of an application from which each item is disassociated.
dcifaApplicationConfigurationId :: Lens' DisassociateConfigurationItemsFromApplication Text
-dcifaApplicationConfigurationId = lens _dcifaApplicationConfigurationId (\ s a -> s{_dcifaApplicationConfigurationId = a});
+dcifaApplicationConfigurationId = lens _dcifaApplicationConfigurationId (\ s a -> s{_dcifaApplicationConfigurationId = a})
-- | Configuration ID of each item to be disassociated from an application.
dcifaConfigurationIds :: Lens' DisassociateConfigurationItemsFromApplication [Text]
-dcifaConfigurationIds = lens _dcifaConfigurationIds (\ s a -> s{_dcifaConfigurationIds = a}) . _Coerce;
+dcifaConfigurationIds = lens _dcifaConfigurationIds (\ s a -> s{_dcifaConfigurationIds = a}) . _Coerce
instance AWSRequest
DisassociateConfigurationItemsFromApplication
@@ -147,12 +147,12 @@ disassociateConfigurationItemsFromApplicationResponse
-> DisassociateConfigurationItemsFromApplicationResponse
disassociateConfigurationItemsFromApplicationResponse pResponseStatus_ =
DisassociateConfigurationItemsFromApplicationResponse'
- {_dcifarsResponseStatus = pResponseStatus_}
+ {_dcifarsResponseStatus = pResponseStatus_}
-- | -- | The response status code.
dcifarsResponseStatus :: Lens' DisassociateConfigurationItemsFromApplicationResponse Int
-dcifarsResponseStatus = lens _dcifarsResponseStatus (\ s a -> s{_dcifarsResponseStatus = a});
+dcifarsResponseStatus = lens _dcifarsResponseStatus (\ s a -> s{_dcifarsResponseStatus = a})
instance NFData
DisassociateConfigurationItemsFromApplicationResponse
diff --git a/gen/Network/AWS/Discovery/GetDiscoverySummary.hs b/gen/Network/AWS/Discovery/GetDiscoverySummary.hs
index 1164e6c..28bfff9 100644
--- a/gen/Network/AWS/Discovery/GetDiscoverySummary.hs
+++ b/gen/Network/AWS/Discovery/GetDiscoverySummary.hs
@@ -12,7 +12,7 @@
-- |
-- Module : Network.AWS.Discovery.GetDiscoverySummary
--- 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
@@ -132,42 +132,42 @@ getDiscoverySummaryResponse
-> GetDiscoverySummaryResponse
getDiscoverySummaryResponse pResponseStatus_ =
GetDiscoverySummaryResponse'
- { _gdsrsServers = Nothing
- , _gdsrsServersMappedtoTags = Nothing
- , _gdsrsServersMappedToApplications = Nothing
- , _gdsrsConnectorSummary = Nothing
- , _gdsrsAgentSummary = Nothing
- , _gdsrsApplications = Nothing
- , _gdsrsResponseStatus = pResponseStatus_
- }
+ { _gdsrsServers = Nothing
+ , _gdsrsServersMappedtoTags = Nothing
+ , _gdsrsServersMappedToApplications = Nothing
+ , _gdsrsConnectorSummary = Nothing
+ , _gdsrsAgentSummary = Nothing
+ , _gdsrsApplications = Nothing
+ , _gdsrsResponseStatus = pResponseStatus_
+ }
-- | The number of servers discovered.
gdsrsServers :: Lens' GetDiscoverySummaryResponse (Maybe Integer)
-gdsrsServers = lens _gdsrsServers (\ s a -> s{_gdsrsServers = a});
+gdsrsServers = lens _gdsrsServers (\ s a -> s{_gdsrsServers = a})
-- | The number of servers mapped to tags.
gdsrsServersMappedtoTags :: Lens' GetDiscoverySummaryResponse (Maybe Integer)
-gdsrsServersMappedtoTags = lens _gdsrsServersMappedtoTags (\ s a -> s{_gdsrsServersMappedtoTags = a});
+gdsrsServersMappedtoTags = lens _gdsrsServersMappedtoTags (\ s a -> s{_gdsrsServersMappedtoTags = a})
-- | The number of servers mapped to applications.
gdsrsServersMappedToApplications :: Lens' GetDiscoverySummaryResponse (Maybe Integer)
-gdsrsServersMappedToApplications = lens _gdsrsServersMappedToApplications (\ s a -> s{_gdsrsServersMappedToApplications = a});
+gdsrsServersMappedToApplications = lens _gdsrsServersMappedToApplications (\ s a -> s{_gdsrsServersMappedToApplications = a})
-- | Details about discovered connectors, including connector status and health.
gdsrsConnectorSummary :: Lens' GetDiscoverySummaryResponse (Maybe CustomerConnectorInfo)
-gdsrsConnectorSummary = lens _gdsrsConnectorSummary (\ s a -> s{_gdsrsConnectorSummary = a});
+gdsrsConnectorSummary = lens _gdsrsConnectorSummary (\ s a -> s{_gdsrsConnectorSummary = a})
-- | Details about discovered agents, including agent status and health.
gdsrsAgentSummary :: Lens' GetDiscoverySummaryResponse (Maybe CustomerAgentInfo)
-gdsrsAgentSummary = lens _gdsrsAgentSummary (\ s a -> s{_gdsrsAgentSummary = a});
+gdsrsAgentSummary = lens _gdsrsAgentSummary (\ s a -> s{_gdsrsAgentSummary = a})
-- | The number of applications discovered.
gdsrsApplications :: Lens' GetDiscoverySummaryResponse (Maybe Integer)
-gdsrsApplications = lens _gdsrsApplications (\ s a -> s{_gdsrsApplications = a});
+gdsrsApplications = lens _gdsrsApplications (\ s a -> s{_gdsrsApplications = a})
-- | -- | The response status code.
gdsrsResponseStatus :: Lens' GetDiscoverySummaryResponse Int
-gdsrsResponseStatus = lens _gdsrsResponseStatus (\ s a -> s{_gdsrsResponseStatus = a});
+gdsrsResponseStatus = lens _gdsrsResponseStatus (\ s a -> s{_gdsrsResponseStatus = a})
instance NFData GetDiscoverySummaryResponse where
diff --git a/gen/Network/AWS/Discovery/ListConfigurations.hs b/gen/Network/AWS/Discovery/ListConfigurations.hs
index e33cc71..a826d0b 100644
--- a/gen/Network/AWS/Discovery/ListConfigurations.hs
+++ b/gen/Network/AWS/Discovery/ListConfigurations.hs
@@ -12,7 +12,7 @@
-- |
-- Module : Network.AWS.Discovery.ListConfigurations
--- 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,33 +77,33 @@ listConfigurations
-> ListConfigurations
listConfigurations pConfigurationType_ =
ListConfigurations'
- { _lcOrderBy = Nothing
- , _lcFilters = Nothing
- , _lcNextToken = Nothing
- , _lcMaxResults = Nothing
- , _lcConfigurationType = pConfigurationType_
- }
+ { _lcOrderBy = Nothing
+ , _lcFilters = Nothing
+ , _lcNextToken = Nothing
+ , _lcMaxResults = Nothing
+ , _lcConfigurationType = pConfigurationType_
+ }
-- | Certain filter criteria return output that can be sorted in ascending or descending order. For a list of output characteristics for each filter, see <http://docs.aws.amazon.com/application-discovery/latest/APIReference/discovery-api-queries.html#ListConfigurations Using the ListConfigurations Action> .
lcOrderBy :: Lens' ListConfigurations [OrderByElement]
-lcOrderBy = lens _lcOrderBy (\ s a -> s{_lcOrderBy = a}) . _Default . _Coerce;
+lcOrderBy = lens _lcOrderBy (\ s a -> s{_lcOrderBy = a}) . _Default . _Coerce
-- | You can filter the request using various logical operators and a /key/ -/value/ format. For example: @{"key": "serverType", "value": "webServer"}@ For a complete list of filter options and guidance about using them with this action, see <http://docs.aws.amazon.com/application-discovery/latest/APIReference/discovery-api-queries.html#ListConfigurations Querying Discovered Configuration Items> .
lcFilters :: Lens' ListConfigurations [Filter]
-lcFilters = lens _lcFilters (\ s a -> s{_lcFilters = a}) . _Default . _Coerce;
+lcFilters = lens _lcFilters (\ s a -> s{_lcFilters = a}) . _Default . _Coerce
-- | Token to retrieve the next set of results. For example, if a previous call to ListConfigurations returned 100 items, but you set @ListConfigurationsRequest$maxResults@ to 10, you received a set of 10 results along with a token. Use that token in this query to get the next set of 10.
lcNextToken :: Lens' ListConfigurations (Maybe Text)
-lcNextToken = lens _lcNextToken (\ s a -> s{_lcNextToken = a});
+lcNextToken = lens _lcNextToken (\ s a -> s{_lcNextToken = a})
-- | The total number of items to return. The maximum value is 100.
lcMaxResults :: Lens' ListConfigurations (Maybe Int)
-lcMaxResults = lens _lcMaxResults (\ s a -> s{_lcMaxResults = a});
+lcMaxResults = lens _lcMaxResults (\ s a -> s{_lcMaxResults = a})
-- | A valid configuration identified by Application Discovery Service.
lcConfigurationType :: Lens' ListConfigurations ConfigurationItemType
-lcConfigurationType = lens _lcConfigurationType (\ s a -> s{_lcConfigurationType = a});
+lcConfigurationType = lens _lcConfigurationType (\ s a -> s{_lcConfigurationType = a})
instance AWSRequest ListConfigurations where
type Rs ListConfigurations =
@@ -169,22 +169,22 @@ listConfigurationsResponse
-> ListConfigurationsResponse
listConfigurationsResponse pResponseStatus_ =
ListConfigurationsResponse'
- { _lcrsConfigurations = Nothing
- , _lcrsNextToken = Nothing
- , _lcrsResponseStatus = pResponseStatus_
- }
+ { _lcrsConfigurations = Nothing
+ , _lcrsNextToken = Nothing
+ , _lcrsResponseStatus = pResponseStatus_
+ }
-- | Returns configuration details, including the configuration ID, attribute names, and attribute values.
lcrsConfigurations :: Lens' ListConfigurationsResponse [HashMap Text Text]
-lcrsConfigurations = lens _lcrsConfigurations (\ s a -> s{_lcrsConfigurations = a}) . _Default . _Coerce;
+lcrsConfigurations = lens _lcrsConfigurations (\ s a -> s{_lcrsConfigurations = a}) . _Default . _Coerce
-- | Token to retrieve the next set of results. For example, if your call to ListConfigurations returned 100 items, but you set @ListConfigurationsRequest$maxResults@ to 10, you received a set of 10 results along with this token. Use this token in the next query to retrieve the next set of 10.
lcrsNextToken :: Lens' ListConfigurationsResponse (Maybe Text)
-lcrsNextToken = lens _lcrsNextToken (\ s a -> s{_lcrsNextToken = a});
+lcrsNextToken = lens _lcrsNextToken (\ s a -> s{_lcrsNextToken = a})
-- | -- | The response status code.
lcrsResponseStatus :: Lens' ListConfigurationsResponse Int
-lcrsResponseStatus = lens _lcrsResponseStatus (\ s a -> s{_lcrsResponseStatus = a});
+lcrsResponseStatus = lens _lcrsResponseStatus (\ s a -> s{_lcrsResponseStatus = a})
instance NFData ListConfigurationsResponse where
diff --git a/gen/Network/AWS/Discovery/ListServerNeighbors.hs b/gen/Network/AWS/Discovery/ListServerNeighbors.hs
index 6e09b6f..080f407 100644
--- a/gen/Network/AWS/Discovery/ListServerNeighbors.hs
+++ b/gen/Network/AWS/Discovery/ListServerNeighbors.hs
@@ -12,7 +12,7 @@
-- |
-- Module : Network.AWS.Discovery.ListServerNeighbors
--- Copyright : (c) 2013-2017 Brendan Hay
+-- Copyright : (c) 2013-2018 Brendan Hay
-- License : Mozilla Public License, v. 2.0.
-- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com>
-- Stability : auto-generated
@@ -78,33 +78,33 @@ listServerNeighbors
-> ListServerNeighbors
listServerNeighbors pConfigurationId_ =
ListServerNeighbors'
- { _lsnPortInformationNeeded = Nothing
- , _lsnNeighborConfigurationIds = Nothing
- , _lsnNextToken = Nothing
- , _lsnMaxResults = Nothing
- , _lsnConfigurationId = pConfigurationId_
- }
+ { _lsnPortInformationNeeded = Nothing
+ , _lsnNeighborConfigurationIds = Nothing
+ , _lsnNextToken = Nothing
+ , _lsnMaxResults = Nothing
+ , _lsnConfigurationId = pConfigurationId_
+ }
-- | Flag to indicate if port and protocol information is needed as part of the response.
lsnPortInformationNeeded :: Lens' ListServerNeighbors (Maybe Bool)
-lsnPortInformationNeeded = lens _lsnPortInformationNeeded (\ s a -> s{_lsnPortInformationNeeded = a});
+lsnPortInformationNeeded = lens _lsnPortInformationNeeded (\ s a -> s{_lsnPortInformationNeeded = a})
-- | List of configuration IDs to test for one-hop-away.
lsnNeighborConfigurationIds :: Lens' ListServerNeighbors [Text]
-lsnNeighborConfigurationIds = lens _lsnNeighborConfigurationIds (\ s a -> s{_lsnNeighborConfigurationIds = a}) . _Default . _Coerce;
+lsnNeighborConfigurationIds = lens _lsnNeighborConfigurationIds (\ s a -> s{_lsnNeighborConfigurationIds = a}) . _Default . _Coerce
-- | Token to retrieve the next set of results. For example, if you previously specified 100 IDs for @ListServerNeighborsRequest$neighborConfigurationIds@ but set @ListServerNeighborsRequest$maxResults@ to 10, you received a set of 10 results along with a token. Use that token in this query to get the next set of 10.
lsnNextToken :: Lens' ListServerNeighbors (Maybe Text)
-lsnNextToken = lens _lsnNextToken (\ s a -> s{_lsnNextToken = a});
+lsnNextToken = lens _lsnNextToken (\ s a -> s{_lsnNextToken = a})
-- | Maximum number of results to return in a single page of output.
lsnMaxResults :: Lens' ListServerNeighbors (Maybe Int)
-lsnMaxResults = lens _lsnMaxResults (\ s a -> s{_lsnMaxResults = a});
+lsnMaxResults = lens _lsnMaxResults (\ s a -> s{_lsnMaxResults = a})
-- | Configuration ID of the server for which neighbors are being listed.
lsnConfigurationId :: Lens' ListServerNeighbors Text
-lsnConfigurationId = lens _lsnConfigurationId (\ s a -> s{_lsnConfigurationId = a});
+lsnConfigurationId = lens _lsnConfigurationId (\ s a -> s{_lsnConfigurationId = a})
instance AWSRequest ListServerNeighbors where
type Rs ListServerNeighbors =
@@ -176,27 +176,27 @@ listServerNeighborsResponse
-> ListServerNeighborsResponse
listServerNeighborsResponse pResponseStatus_ =
ListServerNeighborsResponse'
- { _lsnrsNextToken = Nothing
- , _lsnrsKnownDependencyCount = Nothing
- , _lsnrsResponseStatus = pResponseStatus_
- , _lsnrsNeighbors = mempty
- }
+ { _lsnrsNextToken = Nothing
+ , _lsnrsKnownDependencyCount = Nothing
+ , _lsnrsResponseStatus = pResponseStatus_
+ , _lsnrsNeighbors = mempty
+ }
-- | Token to retrieve the next set of results. For example, if you specified 100 IDs for @ListServerNeighborsRequest$neighborConfigurationIds@ but set @ListServerNeighborsRequest$maxResults@ to 10, you received a set of 10 results along with this token. Use this token in the next query to retrieve the next set of 10.
lsnrsNextToken :: Lens' ListServerNeighborsResponse (Maybe Text)
-lsnrsNextToken = lens _lsnrsNextToken (\ s a -> s{_lsnrsNextToken = a});
+lsnrsNextToken = lens _lsnrsNextToken (\ s a -> s{_lsnrsNextToken = a})
-- | Count of distinct servers that are one hop away from the given server.
lsnrsKnownDependencyCount :: Lens' ListServerNeighborsResponse (Maybe Integer)
-lsnrsKnownDependencyCount = lens _lsnrsKnownDependencyCount (\ s a -> s{_lsnrsKnownDependencyCount = a});
+lsnrsKnownDependencyCount = lens _lsnrsKnownDependencyCount (\ s a -> s{_lsnrsKnownDependencyCount = a})
-- | -- | The response status code.
lsnrsResponseStatus :: Lens' ListServerNeighborsResponse Int
-lsnrsResponseStatus = lens _lsnrsResponseStatus (\ s a -> s{_lsnrsResponseStatus = a});
+lsnrsResponseStatus = lens _lsnrsResponseStatus (\ s a -> s{_lsnrsResponseStatus = a})
-- | List of distinct servers that are one hop away from the given server.
lsnrsNeighbors :: Lens' ListServerNeighborsResponse [NeighborConnectionDetail]
-lsnrsNeighbors = lens _lsnrsNeighbors (\ s a -> s{_lsnrsNeighbors = a}) . _Coerce;
+lsnrsNeighbors = lens _lsnrsNeighbors (\ s a -> s{_lsnrsNeighbors = a}) . _Coerce
instance NFData ListServerNeighborsResponse where
diff --git a/gen/Network/AWS/Discovery/StartDataCollectionByAgentIds.hs b/gen/Network/AWS/Discovery/StartDataCollectionByAgentIds.hs
index f8bc6a2..1624cb4 100644
--- a/gen/Network/AWS/Discovery/StartDataCollectionByAgentIds.hs
+++ b/gen/Network/AWS/Discovery/StartDataCollectionByAgentIds.hs
@@ -12,7 +12,7 @@
-- |
-- Module : Network.AWS.Discovery.StartDataCollectionByAgentIds
--- 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,7 +63,7 @@ startDataCollectionByAgentIds =
-- | The IDs of the agents or connectors from which to start collecting data. If you send a request to an agent/connector ID that you do not have permission to contact, according to your AWS account, the service does not throw an exception. Instead, it returns the error in the /Description/ field. If you send a request to multiple agents/connectors and you do not have permission to contact some of those agents/connectors, the system does not throw an exception. Instead, the system shows @Failed@ in the /Description/ field.
sAgentIds :: Lens' StartDataCollectionByAgentIds [Text]
-sAgentIds = lens _sAgentIds (\ s a -> s{_sAgentIds = a}) . _Coerce;
+sAgentIds = lens _sAgentIds (\ s a -> s{_sAgentIds = a}) . _Coerce
instance AWSRequest StartDataCollectionByAgentIds
where
@@ -122,18 +122,18 @@ startDataCollectionByAgentIdsResponse
-> StartDataCollectionByAgentIdsResponse
startDataCollectionByAgentIdsResponse pResponseStatus_ =
StartDataCollectionByAgentIdsResponse'
- { _srsAgentsConfigurationStatus = Nothing
- , _srsResponseStatus = pResponseStatus_
- }
+ { _srsAgentsConfigurationStatus = Nothing
+ , _srsResponseStatus = pResponseStatus_
+ }
-- | Information about agents or the connector that were instructed to start collecting data. Information includes the agent/connector ID, a description of the operation performed, and whether the agent/connector configuration was updated.
srsAgentsConfigurationStatus :: Lens' StartDataCollectionByAgentIdsResponse [AgentConfigurationStatus]
-srsAgentsConfigurationStatus = lens _srsAgentsConfigurationStatus (\ s a -> s{_srsAgentsConfigurationStatus = a}) . _Default . _Coerce;
+srsAgentsConfigurationStatus = lens _srsAgentsConfigurationStatus (\ s a -> s{_srsAgentsConfigurationStatus = a}) . _Default . _Coerce
-- | -- | The response status code.
srsResponseStatus :: Lens' StartDataCollectionByAgentIdsResponse Int
-srsResponseStatus = lens _srsResponseStatus (\ s a -> s{_srsResponseStatus = a});
+srsResponseStatus = lens _srsResponseStatus (\ s a -> s{_srsResponseStatus = a})
instance NFData StartDataCollectionByAgentIdsResponse
where
diff --git a/gen/Network/AWS/Discovery/StartExportTask.hs b/gen/Network/AWS/Discovery/StartExportTask.hs
index 26778e5..fe3262e 100644
--- a/gen/Network/AWS/Discovery/StartExportTask.hs
+++ b/gen/Network/AWS/Discovery/StartExportTask.hs
@@ -12,7 +12,7 @@
-- |
-- Module : Network.AWS.Discovery.StartExportTask
--- 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,9 +21,9 @@
-- Begins the export of discovered data to an S3 bucket.
--
--
--- If you specify @agentId@ in a filter, the task exports up to 72 hours of detailed data collected by the identified Application Discovery Agent, including network, process, and performance details. A time range for exported agent data may be set by using @startTime@ and @endTime@ . Export of detailed agent data is limited to five concurrently running exports.
+-- If you specify @agentIds@ in a filter, the task exports up to 72 hours of detailed data collected by the identified Application Discovery Agent, including network, process, and performance details. A time range for exported agent data may be set by using @startTime@ and @endTime@ . Export of detailed agent data is limited to five concurrently running exports.
--
--- If you do not include an @agentId@ filter, summary data is exported that includes both AWS Agentless Discovery Connector data and summary data from AWS Discovery Agents. Export of summary data is limited to two exports per day.
+-- If you do not include an @agentIds@ filter, summary data is exported that includes both AWS Agentless Discovery Connector data and summary data from AWS Discovery Agents. Export of summary data is limited to two exports per day.
--
module Network.AWS.Discovery.StartExportTask
(
@@ -64,7 +64,7 @@ data StartExportTask = StartExportTask'
--
-- Use one of the following lenses to modify other fields as desired:
--
--- * 'setExportDataFormat' - The file format for the returned export data. Default value is @CSV@ .
+-- * 'setExportDataFormat' - The file format for the returned export data. Default value is @CSV@ . __Note:__ /The/ @GRAPHML@ /option has been deprecated./
--
-- * 'setStartTime' - The start timestamp for exported data from the single Application Discovery Agent selected in the filters. If no value is specified, data is exported starting from the first data collected by the agent.
--
@@ -75,28 +75,28 @@ startExportTask
:: StartExportTask
startExportTask =
StartExportTask'
- { _setExportDataFormat = Nothing
- , _setStartTime = Nothing
- , _setFilters = Nothing
- , _setEndTime = Nothing
- }
+ { _setExportDataFormat = Nothing
+ , _setStartTime = Nothing
+ , _setFilters = Nothing
+ , _setEndTime = Nothing
+ }
--- | The file format for the returned export data. Default value is @CSV@ .
+-- | The file format for the returned export data. Default value is @CSV@ . __Note:__ /The/ @GRAPHML@ /option has been deprecated./
setExportDataFormat :: Lens' StartExportTask [ExportDataFormat]
-setExportDataFormat = lens _setExportDataFormat (\ s a -> s{_setExportDataFormat = a}) . _Default . _Coerce;
+setExportDataFormat = lens _setExportDataFormat (\ s a -> s{_setExportDataFormat = a}) . _Default . _Coerce
-- | The start timestamp for exported data from the single Application Discovery Agent selected in the filters. If no value is specified, data is exported starting from the first data collected by the agent.
setStartTime :: Lens' StartExportTask (Maybe UTCTime)
-setStartTime = lens _setStartTime (\ s a -> s{_setStartTime = a}) . mapping _Time;
+setStartTime = lens _setStartTime (\ s a -> s{_setStartTime = a}) . mapping _Time
-- | If a filter is present, it selects the single @agentId@ of the Application Discovery Agent for which data is exported. The @agentId@ can be found in the results of the @DescribeAgents@ API or CLI. If no filter is present, @startTime@ and @endTime@ are ignored and exported data includes both Agentless Discovery Connector data and summary data from Application Discovery agents.
setFilters :: Lens' StartExportTask [ExportFilter]
-setFilters = lens _setFilters (\ s a -> s{_setFilters = a}) . _Default . _Coerce;
+setFilters = lens _setFilters (\ s a -> s{_setFilters = a}) . _Default . _Coerce
-- | The end timestamp for exported data from the single Application Discovery Agent selected in the filters. If no value is specified, exported data includes the most recent data collected by the agent.
setEndTime :: Lens' StartExportTask (Maybe UTCTime)
-setEndTime = lens _setEndTime (\ s a -> s{_setEndTime = a}) . mapping _Time;
+setEndTime = lens _setEndTime (\ s a -> s{_setEndTime = a}) . mapping _Time
instance AWSRequest StartExportTask where
type Rs StartExportTask = StartExportTaskResponse
@@ -155,15 +155,15 @@ startExportTaskResponse
-> StartExportTaskResponse
startExportTaskResponse pResponseStatus_ =
StartExportTaskResponse'
- {_setrsExportId = Nothing, _setrsResponseStatus = pResponseStatus_}
+ {_setrsExportId = Nothing, _setrsResponseStatus = pResponseStatus_}
-- | A unique identifier used to query the status of an export request.
setrsExportId :: Lens' StartExportTaskResponse (Maybe Text)
-setrsExportId = lens _setrsExportId (\ s a -> s{_setrsExportId = a});
+setrsExportId = lens _setrsExportId (\ s a -> s{_setrsExportId = a})
-- | -- | The response status code.
setrsResponseStatus :: Lens' StartExportTaskResponse Int
-setrsResponseStatus = lens _setrsResponseStatus (\ s a -> s{_setrsResponseStatus = a});
+setrsResponseStatus = lens _setrsResponseStatus (\ s a -> s{_setrsResponseStatus = a})
instance NFData StartExportTaskResponse where
diff --git a/gen/Network/AWS/Discovery/StopDataCollectionByAgentIds.hs b/gen/Network/AWS/Discovery/StopDataCollectionByAgentIds.hs
index 1b49475..64965ee 100644
--- a/gen/Network/AWS/Discovery/StopDataCollectionByAgentIds.hs
+++ b/gen/Network/AWS/Discovery/StopDataCollectionByAgentIds.hs
@@ -12,7 +12,7 @@
-- |
-- Module : Network.AWS.Discovery.StopDataCollectionByAgentIds
--- 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,7 +63,7 @@ stopDataCollectionByAgentIds =
-- | The IDs of the agents or connectors from which to stop collecting data.
sdcbaiAgentIds :: Lens' StopDataCollectionByAgentIds [Text]
-sdcbaiAgentIds = lens _sdcbaiAgentIds (\ s a -> s{_sdcbaiAgentIds = a}) . _Coerce;
+sdcbaiAgentIds = lens _sdcbaiAgentIds (\ s a -> s{_sdcbaiAgentIds = a}) . _Coerce
instance AWSRequest StopDataCollectionByAgentIds
where
@@ -121,18 +121,18 @@ stopDataCollectionByAgentIdsResponse
-> StopDataCollectionByAgentIdsResponse
stopDataCollectionByAgentIdsResponse pResponseStatus_ =
StopDataCollectionByAgentIdsResponse'
- { _sdcbairsAgentsConfigurationStatus = Nothing
- , _sdcbairsResponseStatus = pResponseStatus_
- }
+ { _sdcbairsAgentsConfigurationStatus = Nothing
+ , _sdcbairsResponseStatus = pResponseStatus_
+ }
-- | Information about the agents or connector that were instructed to stop collecting data. Information includes the agent/connector ID, a description of the operation performed, and whether the agent/connector configuration was updated.
sdcbairsAgentsConfigurationStatus :: Lens' StopDataCollectionByAgentIdsResponse [AgentConfigurationStatus]
-sdcbairsAgentsConfigurationStatus = lens _sdcbairsAgentsConfigurationStatus (\ s a -> s{_sdcbairsAgentsConfigurationStatus = a}) . _Default . _Coerce;
+sdcbairsAgentsConfigurationStatus = lens _sdcbairsAgentsConfigurationStatus (\ s a -> s{_sdcbairsAgentsConfigurationStatus = a}) . _Default . _Coerce
-- | -- | The response status code.
sdcbairsResponseStatus :: Lens' StopDataCollectionByAgentIdsResponse Int
-sdcbairsResponseStatus = lens _sdcbairsResponseStatus (\ s a -> s{_sdcbairsResponseStatus = a});
+sdcbairsResponseStatus = lens _sdcbairsResponseStatus (\ s a -> s{_sdcbairsResponseStatus = a})
instance NFData StopDataCollectionByAgentIdsResponse
where
diff --git a/gen/Network/AWS/Discovery/Types.hs b/gen/Network/AWS/Discovery/Types.hs
index 0dd4ca9..210583f 100644
--- a/gen/Network/AWS/Discovery/Types.hs
+++ b/gen/Network/AWS/Discovery/Types.hs
@@ -4,7 +4,7 @@
-- |
-- Module : Network.AWS.Discovery.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
@@ -160,24 +160,24 @@ import Network.AWS.Sign.V4
discovery :: Service
discovery =
Service
- { _svcAbbrev = "Discovery"
- , _svcSigner = v4
- , _svcPrefix = "discovery"
- , _svcVersion = "2015-11-01"
- , _svcEndpoint = defaultEndpoint discovery
- , _svcTimeout = Just 70
- , _svcCheck = statusSuccess
- , _svcError = parseJSONError "Discovery"
- , _svcRetry = retry
- }
+ { _svcAbbrev = "Discovery"
+ , _svcSigner = v4
+ , _svcPrefix = "discovery"
+ , _svcVersion = "2015-11-01"
+ , _svcEndpoint = defaultEndpoint discovery
+ , _svcTimeout = Just 70
+ , _svcCheck = statusSuccess
+ , _svcError = parseJSONError "Discovery"
+ , _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"
@@ -186,6 +186,8 @@ discovery =
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/Discovery/Types/Product.hs b/gen/Network/AWS/Discovery/Types/Product.hs
index 30ac4c2..24ac015 100644
--- a/gen/Network/AWS/Discovery/Types/Product.hs
+++ b/gen/Network/AWS/Discovery/Types/Product.hs
@@ -9,7 +9,7 @@
-- |
-- Module : Network.AWS.Discovery.Types.Product
--- Copyright : (c) 2013-2017 Brendan Hay
+-- Copyright : (c) 2013-2018 Brendan Hay
-- License : Mozilla Public License, v. 2.0.
-- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com>
-- Stability : auto-generated
@@ -46,23 +46,23 @@ agentConfigurationStatus
:: AgentConfigurationStatus
agentConfigurationStatus =
AgentConfigurationStatus'
- { _acsAgentId = Nothing
- , _acsOperationSucceeded = Nothing
- , _acsDescription = Nothing
- }
+ { _acsAgentId = Nothing
+ , _acsOperationSucceeded = Nothing
+ , _acsDescription = Nothing
+ }
-- | The agent/connector ID.
acsAgentId :: Lens' AgentConfigurationStatus (Maybe Text)
-acsAgentId = lens _acsAgentId (\ s a -> s{_acsAgentId = a});
+acsAgentId = lens _acsAgentId (\ s a -> s{_acsAgentId = a})
-- | Information about the status of the @StartDataCollection@ and @StopDataCollection@ operations. The system has recorded the data collection operation. The agent/connector receives this command the next time it polls for a new command.
acsOperationSucceeded :: Lens' AgentConfigurationStatus (Maybe Bool)
-acsOperationSucceeded = lens _acsOperationSucceeded (\ s a -> s{_acsOperationSucceeded = a});
+acsOperationSucceeded = lens _acsOperationSucceeded (\ s a -> s{_acsOperationSucceeded = a})
-- | A description of the operation performed.
acsDescription :: Lens' AgentConfigurationStatus (Maybe Text)
-acsDescription = lens _acsDescription (\ s a -> s{_acsDescription = a});
+acsDescription = lens _acsDescription (\ s a -> s{_acsDescription = a})
instance FromJSON AgentConfigurationStatus where
parseJSON
@@ -122,58 +122,58 @@ agentInfo
:: AgentInfo
agentInfo =
AgentInfo'
- { _aiHostName = Nothing
- , _aiLastHealthPingTime = Nothing
- , _aiAgentNetworkInfoList = Nothing
- , _aiConnectorId = Nothing
- , _aiHealth = Nothing
- , _aiAgentId = Nothing
- , _aiVersion = Nothing
- , _aiCollectionStatus = Nothing
- , _aiRegisteredTime = Nothing
- , _aiAgentType = Nothing
- }
+ { _aiHostName = Nothing
+ , _aiLastHealthPingTime = Nothing
+ , _aiAgentNetworkInfoList = Nothing
+ , _aiConnectorId = Nothing
+ , _aiHealth = Nothing
+ , _aiAgentId = Nothing
+ , _aiVersion = Nothing
+ , _aiCollectionStatus = Nothing
+ , _aiRegisteredTime = Nothing
+ , _aiAgentType = Nothing
+ }
-- | The name of the host where the agent or connector resides. The host can be a server or virtual machine.
aiHostName :: Lens' AgentInfo (Maybe Text)
-aiHostName = lens _aiHostName (\ s a -> s{_aiHostName = a});
+aiHostName = lens _aiHostName (\ s a -> s{_aiHostName = a})
-- | Time since agent or connector health was reported.
aiLastHealthPingTime :: Lens' AgentInfo (Maybe Text)
-aiLastHealthPingTime = lens _aiLastHealthPingTime (\ s a -> s{_aiLastHealthPingTime = a});
+aiLastHealthPingTime = lens _aiLastHealthPingTime (\ s a -> s{_aiLastHealthPingTime = a})
-- | Network details about the host where the agent or connector resides.
aiAgentNetworkInfoList :: Lens' AgentInfo [AgentNetworkInfo]
-aiAgentNetworkInfoList = lens _aiAgentNetworkInfoList (\ s a -> s{_aiAgentNetworkInfoList = a}) . _Default . _Coerce;
+aiAgentNetworkInfoList = lens _aiAgentNetworkInfoList (\ s a -> s{_aiAgentNetworkInfoList = a}) . _Default . _Coerce
-- | The ID of the connector.
aiConnectorId :: Lens' AgentInfo (Maybe Text)
-aiConnectorId = lens _aiConnectorId (\ s a -> s{_aiConnectorId = a});
+aiConnectorId = lens _aiConnectorId (\ s a -> s{_aiConnectorId = a})
-- | The health of the agent or connector.
aiHealth :: Lens' AgentInfo (Maybe AgentStatus)
-aiHealth = lens _aiHealth (\ s a -> s{_aiHealth = a});
+aiHealth = lens _aiHealth (\ s a -> s{_aiHealth = a})
-- | The agent or connector ID.
aiAgentId :: Lens' AgentInfo (Maybe Text)
-aiAgentId = lens _aiAgentId (\ s a -> s{_aiAgentId = a});
+aiAgentId = lens _aiAgentId (\ s a -> s{_aiAgentId = a})
-- | The agent or connector version.
aiVersion :: Lens' AgentInfo (Maybe Text)
-aiVersion = lens _aiVersion (\ s a -> s{_aiVersion = a});
+aiVersion = lens _aiVersion (\ s a -> s{_aiVersion = a})
-- | Status of the collection process for an agent or connector.
aiCollectionStatus :: Lens' AgentInfo (Maybe Text)
-aiCollectionStatus = lens _aiCollectionStatus (\ s a -> s{_aiCollectionStatus = a});
+aiCollectionStatus = lens _aiCollectionStatus (\ s a -> s{_aiCollectionStatus = a})
-- | Agent's first registration timestamp in UTC.
aiRegisteredTime :: Lens' AgentInfo (Maybe Text)
-aiRegisteredTime = lens _aiRegisteredTime (\ s a -> s{_aiRegisteredTime = a});
+aiRegisteredTime = lens _aiRegisteredTime (\ s a -> s{_aiRegisteredTime = a})
-- | Type of agent.
aiAgentType :: Lens' AgentInfo (Maybe Text)
-aiAgentType = lens _aiAgentType (\ s a -> s{_aiAgentType = a});
+aiAgentType = lens _aiAgentType (\ s a -> s{_aiAgentType = a})
instance FromJSON AgentInfo where
parseJSON
@@ -220,11 +220,11 @@ agentNetworkInfo =
-- | The IP address for the host where the agent/connector resides.
aniIpAddress :: Lens' AgentNetworkInfo (Maybe Text)
-aniIpAddress = lens _aniIpAddress (\ s a -> s{_aniIpAddress = a});
+aniIpAddress = lens _aniIpAddress (\ s a -> s{_aniIpAddress = a})
-- | The MAC address for the host where the agent/connector resides.
aniMacAddress :: Lens' AgentNetworkInfo (Maybe Text)
-aniMacAddress = lens _aniMacAddress (\ s a -> s{_aniMacAddress = a});
+aniMacAddress = lens _aniMacAddress (\ s a -> s{_aniMacAddress = a})
instance FromJSON AgentNetworkInfo where
parseJSON
@@ -268,33 +268,33 @@ configurationTag
:: ConfigurationTag
configurationTag =
ConfigurationTag'
- { _ctTimeOfCreation = Nothing
- , _ctConfigurationId = Nothing
- , _ctConfigurationType = Nothing
- , _ctValue = Nothing
- , _ctKey = Nothing
- }
+ { _ctTimeOfCreation = Nothing
+ , _ctConfigurationId = Nothing
+ , _ctConfigurationType = Nothing
+ , _ctValue = Nothing
+ , _ctKey = Nothing
+ }
-- | The time the configuration tag was created in Coordinated Universal Time (UTC).
ctTimeOfCreation :: Lens' ConfigurationTag (Maybe UTCTime)
-ctTimeOfCreation = lens _ctTimeOfCreation (\ s a -> s{_ctTimeOfCreation = a}) . mapping _Time;
+ctTimeOfCreation = lens _ctTimeOfCreation (\ s a -> s{_ctTimeOfCreation = a}) . mapping _Time
-- | The configuration ID for the item to tag. You can specify a list of keys and values.
ctConfigurationId :: Lens' ConfigurationTag (Maybe Text)
-ctConfigurationId = lens _ctConfigurationId (\ s a -> s{_ctConfigurationId = a});
+ctConfigurationId = lens _ctConfigurationId (\ s a -> s{_ctConfigurationId = a})
-- | A type of IT asset to tag.
ctConfigurationType :: Lens' ConfigurationTag (Maybe ConfigurationItemType)
-ctConfigurationType = lens _ctConfigurationType (\ s a -> s{_ctConfigurationType = a});
+ctConfigurationType = lens _ctConfigurationType (\ s a -> s{_ctConfigurationType = a})
-- | A value on which to filter. For example /key = serverType/ and /value = web server/ .
ctValue :: Lens' ConfigurationTag (Maybe Text)
-ctValue = lens _ctValue (\ s a -> s{_ctValue = a});
+ctValue = lens _ctValue (\ s a -> s{_ctValue = a})
-- | A type of tag on which to filter. For example, /serverType/ .
ctKey :: Lens' ConfigurationTag (Maybe Text)
-ctKey = lens _ctKey (\ s a -> s{_ctKey = a});
+ctKey = lens _ctKey (\ s a -> s{_ctKey = a})
instance FromJSON ConfigurationTag where
parseJSON
@@ -355,43 +355,43 @@ customerAgentInfo
-> CustomerAgentInfo
customerAgentInfo pActiveAgents_ pHealthyAgents_ pBlackListedAgents_ pShutdownAgents_ pUnhealthyAgents_ pTotalAgents_ pUnknownAgents_ =
CustomerAgentInfo'
- { _caiActiveAgents = pActiveAgents_
- , _caiHealthyAgents = pHealthyAgents_
- , _caiBlackListedAgents = pBlackListedAgents_
- , _caiShutdownAgents = pShutdownAgents_
- , _caiUnhealthyAgents = pUnhealthyAgents_
- , _caiTotalAgents = pTotalAgents_
- , _caiUnknownAgents = pUnknownAgents_
- }
+ { _caiActiveAgents = pActiveAgents_
+ , _caiHealthyAgents = pHealthyAgents_
+ , _caiBlackListedAgents = pBlackListedAgents_
+ , _caiShutdownAgents = pShutdownAgents_
+ , _caiUnhealthyAgents = pUnhealthyAgents_
+ , _caiTotalAgents = pTotalAgents_
+ , _caiUnknownAgents = pUnknownAgents_
+ }
-- | Number of active discovery agents.
caiActiveAgents :: Lens' CustomerAgentInfo Int
-caiActiveAgents = lens _caiActiveAgents (\ s a -> s{_caiActiveAgents = a});
+caiActiveAgents = lens _caiActiveAgents (\ s a -> s{_caiActiveAgents = a})
-- | Number of healthy discovery agents
caiHealthyAgents :: Lens' CustomerAgentInfo Int
-caiHealthyAgents = lens _caiHealthyAgents (\ s a -> s{_caiHealthyAgents = a});
+caiHealthyAgents = lens _caiHealthyAgents (\ s a -> s{_caiHealthyAgents = a})
-- | Number of blacklisted discovery agents.
caiBlackListedAgents :: Lens' CustomerAgentInfo Int
-caiBlackListedAgents = lens _caiBlackListedAgents (\ s a -> s{_caiBlackListedAgents = a});
+caiBlackListedAgents = lens _caiBlackListedAgents (\ s a -> s{_caiBlackListedAgents = a})
-- | Number of discovery agents with status SHUTDOWN.
caiShutdownAgents :: Lens' CustomerAgentInfo Int
-caiShutdownAgents = lens _caiShutdownAgents (\ s a -> s{_caiShutdownAgents = a});
+caiShutdownAgents = lens _caiShutdownAgents (\ s a -> s{_caiShutdownAgents = a})
-- | Number of unhealthy discovery agents.
caiUnhealthyAgents :: Lens' CustomerAgentInfo Int
-caiUnhealthyAgents = lens _caiUnhealthyAgents (\ s a -> s{_caiUnhealthyAgents = a});
+caiUnhealthyAgents = lens _caiUnhealthyAgents (\ s a -> s{_caiUnhealthyAgents = a})
-- | Total number of discovery agents.
caiTotalAgents :: Lens' CustomerAgentInfo Int
-caiTotalAgents = lens _caiTotalAgents (\ s a -> s{_caiTotalAgents = a});
+caiTotalAgents = lens _caiTotalAgents (\ s a -> s{_caiTotalAgents = a})
-- | Number of unknown discovery agents.
caiUnknownAgents :: Lens' CustomerAgentInfo Int
-caiUnknownAgents = lens _caiUnknownAgents (\ s a -> s{_caiUnknownAgents = a});
+caiUnknownAgents = lens _caiUnknownAgents (\ s a -> s{_caiUnknownAgents = a})
instance FromJSON CustomerAgentInfo where
parseJSON
@@ -453,43 +453,43 @@ customerConnectorInfo
-> CustomerConnectorInfo
customerConnectorInfo pActiveConnectors_ pHealthyConnectors_ pBlackListedConnectors_ pShutdownConnectors_ pUnhealthyConnectors_ pTotalConnectors_ pUnknownConnectors_ =
CustomerConnectorInfo'
- { _cciActiveConnectors = pActiveConnectors_
- , _cciHealthyConnectors = pHealthyConnectors_
- , _cciBlackListedConnectors = pBlackListedConnectors_
- , _cciShutdownConnectors = pShutdownConnectors_
- , _cciUnhealthyConnectors = pUnhealthyConnectors_
- , _cciTotalConnectors = pTotalConnectors_
- , _cciUnknownConnectors = pUnknownConnectors_
- }
+ { _cciActiveConnectors = pActiveConnectors_
+ , _cciHealthyConnectors = pHealthyConnectors_
+ , _cciBlackListedConnectors = pBlackListedConnectors_
+ , _cciShutdownConnectors = pShutdownConnectors_
+ , _cciUnhealthyConnectors = pUnhealthyConnectors_
+ , _cciTotalConnectors = pTotalConnectors_
+ , _cciUnknownConnectors = pUnknownConnectors_
+ }
-- | Number of active discovery connectors.
cciActiveConnectors :: Lens' CustomerConnectorInfo Int
-cciActiveConnectors = lens _cciActiveConnectors (\ s a -> s{_cciActiveConnectors = a});
+cciActiveConnectors = lens _cciActiveConnectors (\ s a -> s{_cciActiveConnectors = a})
-- | Number of healthy discovery connectors.
cciHealthyConnectors :: Lens' CustomerConnectorInfo Int
-cciHealthyConnectors = lens _cciHealthyConnectors (\ s a -> s{_cciHealthyConnectors = a});
+cciHealthyConnectors = lens _cciHealthyConnectors (\ s a -> s{_cciHealthyConnectors = a})
-- | Number of blacklisted discovery connectors.
cciBlackListedConnectors :: Lens' CustomerConnectorInfo Int
-cciBlackListedConnectors = lens _cciBlackListedConnectors (\ s a -> s{_cciBlackListedConnectors = a});
+cciBlackListedConnectors = lens _cciBlackListedConnectors (\ s a -> s{_cciBlackListedConnectors = a})
-- | Number of discovery connectors with status SHUTDOWN,
cciShutdownConnectors :: Lens' CustomerConnectorInfo Int
-cciShutdownConnectors = lens _cciShutdownConnectors (\ s a -> s{_cciShutdownConnectors = a});
+cciShutdownConnectors = lens _cciShutdownConnectors (\ s a -> s{_cciShutdownConnectors = a})
-- | Number of unhealthy discovery connectors.
cciUnhealthyConnectors :: Lens' CustomerConnectorInfo Int
-cciUnhealthyConnectors = lens _cciUnhealthyConnectors (\ s a -> s{_cciUnhealthyConnectors = a});
+cciUnhealthyConnectors = lens _cciUnhealthyConnectors (\ s a -> s{_cciUnhealthyConnectors = a})
-- | Total number of discovery connectors.
cciTotalConnectors :: Lens' CustomerConnectorInfo Int
-cciTotalConnectors = lens _cciTotalConnectors (\ s a -> s{_cciTotalConnectors = a});
+cciTotalConnectors = lens _cciTotalConnectors (\ s a -> s{_cciTotalConnectors = a})
-- | Number of unknown discovery connectors.
cciUnknownConnectors :: Lens' CustomerConnectorInfo Int
-cciUnknownConnectors = lens _cciUnknownConnectors (\ s a -> s{_cciUnknownConnectors = a});
+cciUnknownConnectors = lens _cciUnknownConnectors (\ s a -> s{_cciUnknownConnectors = a})
instance FromJSON CustomerConnectorInfo where
parseJSON
@@ -535,20 +535,20 @@ exportFilter
-> ExportFilter
exportFilter pName_ pCondition_ =
ExportFilter'
- {_efName = pName_, _efValues = mempty, _efCondition = pCondition_}
+ {_efName = pName_, _efValues = mempty, _efCondition = pCondition_}
-- | A single @ExportFilter@ name. Supported filters: @agentId@ .
efName :: Lens' ExportFilter Text
-efName = lens _efName (\ s a -> s{_efName = a});
+efName = lens _efName (\ s a -> s{_efName = a})
-- | A single @agentId@ for a Discovery Agent. An @agentId@ can be found using the <http://docs.aws.amazon.com/application-discovery/latest/APIReference/API_DescribeExportTasks.html DescribeAgents> action. Typically an ADS @agentId@ is in the form @o-0123456789abcdef0@ .
efValues :: Lens' ExportFilter [Text]
-efValues = lens _efValues (\ s a -> s{_efValues = a}) . _Coerce;
+efValues = lens _efValues (\ s a -> s{_efValues = a}) . _Coerce
-- | Supported condition: @EQUALS@
efCondition :: Lens' ExportFilter Text
-efCondition = lens _efCondition (\ s a -> s{_efCondition = a});
+efCondition = lens _efCondition (\ s a -> s{_efCondition = a})
instance Hashable ExportFilter where
@@ -606,48 +606,48 @@ exportInfo
-> ExportInfo
exportInfo pExportId_ pExportStatus_ pStatusMessage_ pExportRequestTime_ =
ExportInfo'
- { _eiConfigurationsDownloadURL = Nothing
- , _eiRequestedStartTime = Nothing
- , _eiRequestedEndTime = Nothing
- , _eiIsTruncated = Nothing
- , _eiExportId = pExportId_
- , _eiExportStatus = pExportStatus_
- , _eiStatusMessage = pStatusMessage_
- , _eiExportRequestTime = _Time # pExportRequestTime_
- }
+ { _eiConfigurationsDownloadURL = Nothing
+ , _eiRequestedStartTime = Nothing
+ , _eiRequestedEndTime = Nothing
+ , _eiIsTruncated = Nothing
+ , _eiExportId = pExportId_
+ , _eiExportStatus = pExportStatus_
+ , _eiStatusMessage = pStatusMessage_
+ , _eiExportRequestTime = _Time # pExportRequestTime_
+ }
-- | A URL for an Amazon S3 bucket where you can review the exported data. The URL is displayed only if the export succeeded.
eiConfigurationsDownloadURL :: Lens' ExportInfo (Maybe Text)
-eiConfigurationsDownloadURL = lens _eiConfigurationsDownloadURL (\ s a -> s{_eiConfigurationsDownloadURL = a});
+eiConfigurationsDownloadURL = lens _eiConfigurationsDownloadURL (\ s a -> s{_eiConfigurationsDownloadURL = a})
-- | The value of @startTime@ parameter in the @StartExportTask@ request. If no @startTime@ was requested, this result does not appear in @ExportInfo@ .
eiRequestedStartTime :: Lens' ExportInfo (Maybe UTCTime)
-eiRequestedStartTime = lens _eiRequestedStartTime (\ s a -> s{_eiRequestedStartTime = a}) . mapping _Time;
+eiRequestedStartTime = lens _eiRequestedStartTime (\ s a -> s{_eiRequestedStartTime = a}) . mapping _Time
-- | The @endTime@ used in the @StartExportTask@ request. If no @endTime@ was requested, this result does not appear in @ExportInfo@ .
eiRequestedEndTime :: Lens' ExportInfo (Maybe UTCTime)
-eiRequestedEndTime = lens _eiRequestedEndTime (\ s a -> s{_eiRequestedEndTime = a}) . mapping _Time;
+eiRequestedEndTime = lens _eiRequestedEndTime (\ s a -> s{_eiRequestedEndTime = a}) . mapping _Time
-- | If true, the export of agent information exceeded the size limit for a single export and the exported data is incomplete for the requested time range. To address this, select a smaller time range for the export by using @startDate@ and @endDate@ .
eiIsTruncated :: Lens' ExportInfo (Maybe Bool)
-eiIsTruncated = lens _eiIsTruncated (\ s a -> s{_eiIsTruncated = a});
+eiIsTruncated = lens _eiIsTruncated (\ s a -> s{_eiIsTruncated = a})
-- | A unique identifier used to query an export.
eiExportId :: Lens' ExportInfo Text
-eiExportId = lens _eiExportId (\ s a -> s{_eiExportId = a});
+eiExportId = lens _eiExportId (\ s a -> s{_eiExportId = a})
-- | The status of the data export job.
eiExportStatus :: Lens' ExportInfo ExportStatus
-eiExportStatus = lens _eiExportStatus (\ s a -> s{_eiExportStatus = a});
+eiExportStatus = lens _eiExportStatus (\ s a -> s{_eiExportStatus = a})
-- | A status message provided for API callers.
eiStatusMessage :: Lens' ExportInfo Text
-eiStatusMessage = lens _eiStatusMessage (\ s a -> s{_eiStatusMessage = a});
+eiStatusMessage = lens _eiStatusMessage (\ s a -> s{_eiStatusMessage = a})
-- | The time that the data export was initiated.
eiExportRequestTime :: Lens' ExportInfo UTCTime
-eiExportRequestTime = lens _eiExportRequestTime (\ s a -> s{_eiExportRequestTime = a}) . _Time;
+eiExportRequestTime = lens _eiExportRequestTime (\ s a -> s{_eiExportRequestTime = a}) . _Time
instance FromJSON ExportInfo where
parseJSON
@@ -700,15 +700,15 @@ filter' pName_ pCondition_ =
-- | The name of the filter.
fName :: Lens' Filter Text
-fName = lens _fName (\ s a -> s{_fName = a});
+fName = lens _fName (\ s a -> s{_fName = a})
-- | A string value on which to filter. For example, if you choose the @destinationServer.osVersion@ filter name, you could specify @Ubuntu@ for the value.
fValues :: Lens' Filter [Text]
-fValues = lens _fValues (\ s a -> s{_fValues = a}) . _Coerce;
+fValues = lens _fValues (\ s a -> s{_fValues = a}) . _Coerce
-- | A conditional operator. The following operators are valid: EQUALS, NOT_EQUALS, CONTAINS, NOT_CONTAINS. If you specify multiple filters, the system utilizes all filters as though concatenated by /AND/ . If you specify multiple values for a particular filter, the system differentiates the values using /OR/ . Calling either /DescribeConfigurations/ or /ListConfigurations/ returns attributes of matching configuration items.
fCondition :: Lens' Filter Text
-fCondition = lens _fCondition (\ s a -> s{_fCondition = a});
+fCondition = lens _fCondition (\ s a -> s{_fCondition = a})
instance Hashable Filter where
@@ -756,33 +756,33 @@ neighborConnectionDetail
-> NeighborConnectionDetail
neighborConnectionDetail pSourceServerId_ pDestinationServerId_ pConnectionsCount_ =
NeighborConnectionDetail'
- { _ncdTransportProtocol = Nothing
- , _ncdDestinationPort = Nothing
- , _ncdSourceServerId = pSourceServerId_
- , _ncdDestinationServerId = pDestinationServerId_
- , _ncdConnectionsCount = pConnectionsCount_
- }
+ { _ncdTransportProtocol = Nothing
+ , _ncdDestinationPort = Nothing
+ , _ncdSourceServerId = pSourceServerId_
+ , _ncdDestinationServerId = pDestinationServerId_
+ , _ncdConnectionsCount = pConnectionsCount_
+ }
-- | The network protocol used for the connection.
ncdTransportProtocol :: Lens' NeighborConnectionDetail (Maybe Text)
-ncdTransportProtocol = lens _ncdTransportProtocol (\ s a -> s{_ncdTransportProtocol = a});
+ncdTransportProtocol = lens _ncdTransportProtocol (\ s a -> s{_ncdTransportProtocol = a})
-- | The destination network port for the connection.
ncdDestinationPort :: Lens' NeighborConnectionDetail (Maybe Int)
-ncdDestinationPort = lens _ncdDestinationPort (\ s a -> s{_ncdDestinationPort = a});
+ncdDestinationPort = lens _ncdDestinationPort (\ s a -> s{_ncdDestinationPort = a})
-- | The ID of the server that opened the network connection.
ncdSourceServerId :: Lens' NeighborConnectionDetail Text
-ncdSourceServerId = lens _ncdSourceServerId (\ s a -> s{_ncdSourceServerId = a});
+ncdSourceServerId = lens _ncdSourceServerId (\ s a -> s{_ncdSourceServerId = a})
-- | The ID of the server that accepted the network connection.
ncdDestinationServerId :: Lens' NeighborConnectionDetail Text
-ncdDestinationServerId = lens _ncdDestinationServerId (\ s a -> s{_ncdDestinationServerId = a});
+ncdDestinationServerId = lens _ncdDestinationServerId (\ s a -> s{_ncdDestinationServerId = a})
-- | The number of open network connections with the neighboring server.
ncdConnectionsCount :: Lens' NeighborConnectionDetail Integer
-ncdConnectionsCount = lens _ncdConnectionsCount (\ s a -> s{_ncdConnectionsCount = a});
+ncdConnectionsCount = lens _ncdConnectionsCount (\ s a -> s{_ncdConnectionsCount = a})
instance FromJSON NeighborConnectionDetail where
parseJSON
@@ -826,11 +826,11 @@ orderByElement pFieldName_ =
-- | Ordering direction.
obeSortOrder :: Lens' OrderByElement (Maybe OrderString)
-obeSortOrder = lens _obeSortOrder (\ s a -> s{_obeSortOrder = a});
+obeSortOrder = lens _obeSortOrder (\ s a -> s{_obeSortOrder = a})
-- | The field on which to order.
obeFieldName :: Lens' OrderByElement Text
-obeFieldName = lens _obeFieldName (\ s a -> s{_obeFieldName = a});
+obeFieldName = lens _obeFieldName (\ s a -> s{_obeFieldName = a})
instance Hashable OrderByElement where
@@ -870,11 +870,11 @@ tag pKey_ pValue_ = Tag' {_tagKey = pKey_, _tagValue = pValue_}
-- | The type of tag on which to filter.
tagKey :: Lens' Tag Text
-tagKey = lens _tagKey (\ s a -> s{_tagKey = a});
+tagKey = lens _tagKey (\ s a -> s{_tagKey = a})
-- | A value for a tag key on which to filter.
tagValue :: Lens' Tag Text
-tagValue = lens _tagValue (\ s a -> s{_tagValue = a});
+tagValue = lens _tagValue (\ s a -> s{_tagValue = a})
instance Hashable Tag where
@@ -913,11 +913,11 @@ tagFilter pName_ = TagFilter' {_tfName = pName_, _tfValues = mempty}
-- | A name of the tag filter.
tfName :: Lens' TagFilter Text
-tfName = lens _tfName (\ s a -> s{_tfName = a});
+tfName = lens _tfName (\ s a -> s{_tfName = a})
-- | Values for the tag filter.
tfValues :: Lens' TagFilter [Text]
-tfValues = lens _tfValues (\ s a -> s{_tfValues = a}) . _Coerce;
+tfValues = lens _tfValues (\ s a -> s{_tfValues = a}) . _Coerce
instance Hashable TagFilter where
diff --git a/gen/Network/AWS/Discovery/Types/Sum.hs b/gen/Network/AWS/Discovery/Types/Sum.hs
index 917dc80..f972699 100644
--- a/gen/Network/AWS/Discovery/Types/Sum.hs
+++ b/gen/Network/AWS/Discovery/Types/Sum.hs
@@ -9,7 +9,7 @@
-- |
-- Module : Network.AWS.Discovery.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/Discovery/UpdateApplication.hs b/gen/Network/AWS/Discovery/UpdateApplication.hs
index 624b0d8..fae5569 100644
--- a/gen/Network/AWS/Discovery/UpdateApplication.hs
+++ b/gen/Network/AWS/Discovery/UpdateApplication.hs
@@ -12,7 +12,7 @@
-- |
-- Module : Network.AWS.Discovery.UpdateApplication
--- Copyright : (c) 2013-2017 Brendan Hay
+-- Copyright : (c) 2013-2018 Brendan Hay
-- License : Mozilla Public License, v. 2.0.
-- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com>
-- Stability : auto-generated
@@ -67,23 +67,23 @@ updateApplication
-> UpdateApplication
updateApplication pConfigurationId_ =
UpdateApplication'
- { _uaName = Nothing
- , _uaDescription = Nothing
- , _uaConfigurationId = pConfigurationId_
- }
+ { _uaName = Nothing
+ , _uaDescription = Nothing
+ , _uaConfigurationId = pConfigurationId_
+ }
-- | New name of the application to be updated.
uaName :: Lens' UpdateApplication (Maybe Text)
-uaName = lens _uaName (\ s a -> s{_uaName = a});
+uaName = lens _uaName (\ s a -> s{_uaName = a})
-- | New description of the application to be updated.
uaDescription :: Lens' UpdateApplication (Maybe Text)
-uaDescription = lens _uaDescription (\ s a -> s{_uaDescription = a});
+uaDescription = lens _uaDescription (\ s a -> s{_uaDescription = a})
-- | Configuration ID of the application to be updated.
uaConfigurationId :: Lens' UpdateApplication Text
-uaConfigurationId = lens _uaConfigurationId (\ s a -> s{_uaConfigurationId = a});
+uaConfigurationId = lens _uaConfigurationId (\ s a -> s{_uaConfigurationId = a})
instance AWSRequest UpdateApplication where
type Rs UpdateApplication = UpdateApplicationResponse
@@ -141,6 +141,6 @@ updateApplicationResponse pResponseStatus_ =
-- | -- | The response status code.
uarsResponseStatus :: Lens' UpdateApplicationResponse Int
-uarsResponseStatus = lens _uarsResponseStatus (\ s a -> s{_uarsResponseStatus = a});
+uarsResponseStatus = lens _uarsResponseStatus (\ s a -> s{_uarsResponseStatus = a})
instance NFData UpdateApplicationResponse where
diff --git a/gen/Network/AWS/Discovery/Waiters.hs b/gen/Network/AWS/Discovery/Waiters.hs
index e541319..a081341 100644
--- a/gen/Network/AWS/Discovery/Waiters.hs
+++ b/gen/Network/AWS/Discovery/Waiters.hs
@@ -7,7 +7,7 @@
-- |
-- Module : Network.AWS.Discovery.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
index 6dfeeb9..2bff32c 100644
--- 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/Discovery.hs b/test/Test/AWS/Discovery.hs
index 8e38b45..0e42335 100644
--- a/test/Test/AWS/Discovery.hs
+++ b/test/Test/AWS/Discovery.hs
@@ -2,7 +2,7 @@
-- |
-- Module : Test.AWS.Discovery
--- Copyright : (c) 2013-2016 Brendan Hay
+-- Copyright : (c) 2013-2018 Brendan Hay
-- License : This Source Code Form is subject to the terms of
-- the Mozilla Public License, v. 2.0.
-- A copy of the MPL can be found in the LICENSE file or
diff --git a/test/Test/AWS/Discovery/Internal.hs b/test/Test/AWS/Discovery/Internal.hs
index 7b9b03f..dbab34f 100644
--- a/test/Test/AWS/Discovery/Internal.hs
+++ b/test/Test/AWS/Discovery/Internal.hs
@@ -3,7 +3,7 @@
-- |
-- Module : Test.AWS.Discovery.Internal
--- Copyright : (c) 2013-2016 Brendan Hay
+-- Copyright : (c) 2013-2018 Brendan Hay
-- License : This Source Code Form is subject to the terms of
-- the Mozilla Public License, v. 2.0.
-- A copy of the MPL can be found in the LICENSE file or
diff --git a/test/Test/AWS/Gen/Discovery.hs b/test/Test/AWS/Gen/Discovery.hs
index 66c16d9..8e63512 100644
--- a/test/Test/AWS/Gen/Discovery.hs
+++ b/test/Test/AWS/Gen/Discovery.hs
@@ -5,7 +5,7 @@
-- |
-- Module : Test.AWS.Gen.Discovery
--- 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