summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorBrendanHay <>2017-11-15 08:22:00 (GMT)
committerhdiff <hdiff@hdiff.luite.com>2017-11-15 08:22:00 (GMT)
commit359dbe1baa676737237474b1da54f05cf5c665e1 (patch)
tree4764abf1fc8fed5b6d8c2309f3ac7201ef35c1da
parent4847cf9cd367e313b277d434574d49aff36e9ccc (diff)
version 1.5.01.5.0
-rw-r--r--README.md2
-rw-r--r--amazonka-discovery.cabal38
-rw-r--r--fixture/AssociateConfigurationItemsToApplication.yaml10
-rw-r--r--fixture/AssociateConfigurationItemsToApplicationResponse.proto0
-rw-r--r--fixture/CreateApplication.yaml10
-rw-r--r--fixture/CreateApplicationResponse.proto0
-rw-r--r--fixture/DeleteApplications.yaml10
-rw-r--r--fixture/DeleteApplicationsResponse.proto0
-rw-r--r--fixture/DescribeExportTasks.yaml10
-rw-r--r--fixture/DescribeExportTasksResponse.proto0
-rw-r--r--fixture/DisassociateConfigurationItemsFromApplication.yaml10
-rw-r--r--fixture/DisassociateConfigurationItemsFromApplicationResponse.proto0
-rw-r--r--fixture/GetDiscoverySummary.yaml10
-rw-r--r--fixture/GetDiscoverySummaryResponse.proto0
-rw-r--r--fixture/ListServerNeighbors.yaml10
-rw-r--r--fixture/ListServerNeighborsResponse.proto0
-rw-r--r--fixture/StartExportTask.yaml10
-rw-r--r--fixture/StartExportTaskResponse.proto0
-rw-r--r--fixture/UpdateApplication.yaml10
-rw-r--r--fixture/UpdateApplicationResponse.proto0
-rw-r--r--gen/Network/AWS/Discovery.hs284
-rw-r--r--gen/Network/AWS/Discovery/AssociateConfigurationItemsToApplication.hs157
-rw-r--r--gen/Network/AWS/Discovery/CreateApplication.hs143
-rw-r--r--gen/Network/AWS/Discovery/CreateTags.hs46
-rw-r--r--gen/Network/AWS/Discovery/DeleteApplications.hs123
-rw-r--r--gen/Network/AWS/Discovery/DeleteTags.hs46
-rw-r--r--gen/Network/AWS/Discovery/DescribeAgents.hs116
-rw-r--r--gen/Network/AWS/Discovery/DescribeConfigurations.hs51
-rw-r--r--gen/Network/AWS/Discovery/DescribeExportConfigurations.hs166
-rw-r--r--gen/Network/AWS/Discovery/DescribeExportTasks.hs179
-rw-r--r--gen/Network/AWS/Discovery/DescribeTags.hs63
-rw-r--r--gen/Network/AWS/Discovery/DisassociateConfigurationItemsFromApplication.hs159
-rw-r--r--gen/Network/AWS/Discovery/ExportConfigurations.hs119
-rw-r--r--gen/Network/AWS/Discovery/GetDiscoverySummary.hs173
-rw-r--r--gen/Network/AWS/Discovery/ListConfigurations.hs98
-rw-r--r--gen/Network/AWS/Discovery/ListServerNeighbors.hs202
-rw-r--r--gen/Network/AWS/Discovery/StartDataCollectionByAgentIds.hs57
-rw-r--r--gen/Network/AWS/Discovery/StartExportTask.hs169
-rw-r--r--gen/Network/AWS/Discovery/StopDataCollectionByAgentIds.hs57
-rw-r--r--gen/Network/AWS/Discovery/Types.hs128
-rw-r--r--gen/Network/AWS/Discovery/Types/Product.hs765
-rw-r--r--gen/Network/AWS/Discovery/Types/Sum.hs98
-rw-r--r--gen/Network/AWS/Discovery/UpdateApplication.hs146
-rw-r--r--gen/Network/AWS/Discovery/Waiters.hs12
-rw-r--r--test/Main.hs4
-rw-r--r--test/Test/AWS/Gen/Discovery.hs196
46 files changed, 2910 insertions, 977 deletions
diff --git a/README.md b/README.md
index 6a5d007..2a1e056 100644
--- a/README.md
+++ b/README.md
@@ -8,7 +8,7 @@
## Version
-`1.4.5`
+`1.5.0`
## Description
diff --git a/amazonka-discovery.cabal b/amazonka-discovery.cabal
index 10619e5..7ac7602 100644
--- a/amazonka-discovery.cabal
+++ b/amazonka-discovery.cabal
@@ -1,13 +1,13 @@
name: amazonka-discovery
-version: 1.4.5
+version: 1.5.0
synopsis: Amazon Application Discovery Service SDK.
homepage: https://github.com/brendanhay/amazonka
bug-reports: https://github.com/brendanhay/amazonka/issues
-license: OtherLicense
+license: MPL-2.0
license-file: LICENSE
author: Brendan Hay
-maintainer: Brendan Hay <brendan.g.hay@gmail.com>
-copyright: Copyright (c) 2013-2016 Brendan Hay
+maintainer: Brendan Hay <brendan.g.hay+amazonka@gmail.com>
+copyright: Copyright (c) 2013-2017 Brendan Hay
category: Network, AWS, Cloud, Distributed Computing
build-type: Simple
cabal-version: >= 1.10
@@ -29,28 +29,40 @@ description:
to get started.
source-repository head
- type: git
- location: git://github.com/brendanhay/amazonka.git
+ type: git
+ location: git://github.com/brendanhay/amazonka.git
+ subdir: amazonka-discovery
library
default-language: Haskell2010
hs-source-dirs: src gen
- ghc-options: -Wall
+ ghc-options:
+ -Wall
+ -fwarn-incomplete-uni-patterns
+ -fwarn-incomplete-record-updates
+ -funbox-strict-fields
exposed-modules:
Network.AWS.Discovery
+ , Network.AWS.Discovery.AssociateConfigurationItemsToApplication
+ , Network.AWS.Discovery.CreateApplication
, Network.AWS.Discovery.CreateTags
+ , Network.AWS.Discovery.DeleteApplications
, Network.AWS.Discovery.DeleteTags
, Network.AWS.Discovery.DescribeAgents
, Network.AWS.Discovery.DescribeConfigurations
- , Network.AWS.Discovery.DescribeExportConfigurations
+ , Network.AWS.Discovery.DescribeExportTasks
, Network.AWS.Discovery.DescribeTags
- , Network.AWS.Discovery.ExportConfigurations
+ , Network.AWS.Discovery.DisassociateConfigurationItemsFromApplication
+ , Network.AWS.Discovery.GetDiscoverySummary
, Network.AWS.Discovery.ListConfigurations
+ , Network.AWS.Discovery.ListServerNeighbors
, Network.AWS.Discovery.StartDataCollectionByAgentIds
+ , Network.AWS.Discovery.StartExportTask
, Network.AWS.Discovery.StopDataCollectionByAgentIds
, Network.AWS.Discovery.Types
+ , Network.AWS.Discovery.UpdateApplication
, Network.AWS.Discovery.Waiters
other-modules:
@@ -58,7 +70,7 @@ library
, Network.AWS.Discovery.Types.Sum
build-depends:
- amazonka-core == 1.4.5.*
+ amazonka-core == 1.5.0.*
, base >= 4.7 && < 5
test-suite amazonka-discovery-test
@@ -78,9 +90,9 @@ test-suite amazonka-discovery-test
, Test.AWS.Discovery.Internal
build-depends:
- amazonka-core == 1.4.5.*
- , amazonka-test == 1.4.5.*
- , amazonka-discovery == 1.4.5.*
+ amazonka-core == 1.5.0.*
+ , amazonka-test == 1.5.0.*
+ , amazonka-discovery
, base
, bytestring
, tasty
diff --git a/fixture/AssociateConfigurationItemsToApplication.yaml b/fixture/AssociateConfigurationItemsToApplication.yaml
new file mode 100644
index 0000000..76b018e
--- /dev/null
+++ b/fixture/AssociateConfigurationItemsToApplication.yaml
@@ -0,0 +1,10 @@
+---
+method: POST
+headers:
+ Authorization: AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/discovery/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?
+ Host: discovery.us-east-1.amazonaws.com
+ Content-Type: application/x-www-form-urlencoded; charset=utf-8
+ X-Amz-Content-SHA256: abcdef
+ X-Amz-Date: 20091028T223200Z
+body:
+ ''
diff --git a/fixture/AssociateConfigurationItemsToApplicationResponse.proto b/fixture/AssociateConfigurationItemsToApplicationResponse.proto
new file mode 100644
index 0000000..e69de29
--- /dev/null
+++ b/fixture/AssociateConfigurationItemsToApplicationResponse.proto
diff --git a/fixture/CreateApplication.yaml b/fixture/CreateApplication.yaml
new file mode 100644
index 0000000..76b018e
--- /dev/null
+++ b/fixture/CreateApplication.yaml
@@ -0,0 +1,10 @@
+---
+method: POST
+headers:
+ Authorization: AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/discovery/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?
+ Host: discovery.us-east-1.amazonaws.com
+ Content-Type: application/x-www-form-urlencoded; charset=utf-8
+ X-Amz-Content-SHA256: abcdef
+ X-Amz-Date: 20091028T223200Z
+body:
+ ''
diff --git a/fixture/CreateApplicationResponse.proto b/fixture/CreateApplicationResponse.proto
new file mode 100644
index 0000000..e69de29
--- /dev/null
+++ b/fixture/CreateApplicationResponse.proto
diff --git a/fixture/DeleteApplications.yaml b/fixture/DeleteApplications.yaml
new file mode 100644
index 0000000..76b018e
--- /dev/null
+++ b/fixture/DeleteApplications.yaml
@@ -0,0 +1,10 @@
+---
+method: POST
+headers:
+ Authorization: AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/discovery/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?
+ Host: discovery.us-east-1.amazonaws.com
+ Content-Type: application/x-www-form-urlencoded; charset=utf-8
+ X-Amz-Content-SHA256: abcdef
+ X-Amz-Date: 20091028T223200Z
+body:
+ ''
diff --git a/fixture/DeleteApplicationsResponse.proto b/fixture/DeleteApplicationsResponse.proto
new file mode 100644
index 0000000..e69de29
--- /dev/null
+++ b/fixture/DeleteApplicationsResponse.proto
diff --git a/fixture/DescribeExportTasks.yaml b/fixture/DescribeExportTasks.yaml
new file mode 100644
index 0000000..76b018e
--- /dev/null
+++ b/fixture/DescribeExportTasks.yaml
@@ -0,0 +1,10 @@
+---
+method: POST
+headers:
+ Authorization: AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/discovery/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?
+ Host: discovery.us-east-1.amazonaws.com
+ Content-Type: application/x-www-form-urlencoded; charset=utf-8
+ X-Amz-Content-SHA256: abcdef
+ X-Amz-Date: 20091028T223200Z
+body:
+ ''
diff --git a/fixture/DescribeExportTasksResponse.proto b/fixture/DescribeExportTasksResponse.proto
new file mode 100644
index 0000000..e69de29
--- /dev/null
+++ b/fixture/DescribeExportTasksResponse.proto
diff --git a/fixture/DisassociateConfigurationItemsFromApplication.yaml b/fixture/DisassociateConfigurationItemsFromApplication.yaml
new file mode 100644
index 0000000..76b018e
--- /dev/null
+++ b/fixture/DisassociateConfigurationItemsFromApplication.yaml
@@ -0,0 +1,10 @@
+---
+method: POST
+headers:
+ Authorization: AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/discovery/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?
+ Host: discovery.us-east-1.amazonaws.com
+ Content-Type: application/x-www-form-urlencoded; charset=utf-8
+ X-Amz-Content-SHA256: abcdef
+ X-Amz-Date: 20091028T223200Z
+body:
+ ''
diff --git a/fixture/DisassociateConfigurationItemsFromApplicationResponse.proto b/fixture/DisassociateConfigurationItemsFromApplicationResponse.proto
new file mode 100644
index 0000000..e69de29
--- /dev/null
+++ b/fixture/DisassociateConfigurationItemsFromApplicationResponse.proto
diff --git a/fixture/GetDiscoverySummary.yaml b/fixture/GetDiscoverySummary.yaml
new file mode 100644
index 0000000..76b018e
--- /dev/null
+++ b/fixture/GetDiscoverySummary.yaml
@@ -0,0 +1,10 @@
+---
+method: POST
+headers:
+ Authorization: AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/discovery/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?
+ Host: discovery.us-east-1.amazonaws.com
+ Content-Type: application/x-www-form-urlencoded; charset=utf-8
+ X-Amz-Content-SHA256: abcdef
+ X-Amz-Date: 20091028T223200Z
+body:
+ ''
diff --git a/fixture/GetDiscoverySummaryResponse.proto b/fixture/GetDiscoverySummaryResponse.proto
new file mode 100644
index 0000000..e69de29
--- /dev/null
+++ b/fixture/GetDiscoverySummaryResponse.proto
diff --git a/fixture/ListServerNeighbors.yaml b/fixture/ListServerNeighbors.yaml
new file mode 100644
index 0000000..76b018e
--- /dev/null
+++ b/fixture/ListServerNeighbors.yaml
@@ -0,0 +1,10 @@
+---
+method: POST
+headers:
+ Authorization: AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/discovery/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?
+ Host: discovery.us-east-1.amazonaws.com
+ Content-Type: application/x-www-form-urlencoded; charset=utf-8
+ X-Amz-Content-SHA256: abcdef
+ X-Amz-Date: 20091028T223200Z
+body:
+ ''
diff --git a/fixture/ListServerNeighborsResponse.proto b/fixture/ListServerNeighborsResponse.proto
new file mode 100644
index 0000000..e69de29
--- /dev/null
+++ b/fixture/ListServerNeighborsResponse.proto
diff --git a/fixture/StartExportTask.yaml b/fixture/StartExportTask.yaml
new file mode 100644
index 0000000..76b018e
--- /dev/null
+++ b/fixture/StartExportTask.yaml
@@ -0,0 +1,10 @@
+---
+method: POST
+headers:
+ Authorization: AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/discovery/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?
+ Host: discovery.us-east-1.amazonaws.com
+ Content-Type: application/x-www-form-urlencoded; charset=utf-8
+ X-Amz-Content-SHA256: abcdef
+ X-Amz-Date: 20091028T223200Z
+body:
+ ''
diff --git a/fixture/StartExportTaskResponse.proto b/fixture/StartExportTaskResponse.proto
new file mode 100644
index 0000000..e69de29
--- /dev/null
+++ b/fixture/StartExportTaskResponse.proto
diff --git a/fixture/UpdateApplication.yaml b/fixture/UpdateApplication.yaml
new file mode 100644
index 0000000..76b018e
--- /dev/null
+++ b/fixture/UpdateApplication.yaml
@@ -0,0 +1,10 @@
+---
+method: POST
+headers:
+ Authorization: AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/discovery/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?
+ Host: discovery.us-east-1.amazonaws.com
+ Content-Type: application/x-www-form-urlencoded; charset=utf-8
+ X-Amz-Content-SHA256: abcdef
+ X-Amz-Date: 20091028T223200Z
+body:
+ ''
diff --git a/fixture/UpdateApplicationResponse.proto b/fixture/UpdateApplicationResponse.proto
new file mode 100644
index 0000000..e69de29
--- /dev/null
+++ b/fixture/UpdateApplicationResponse.proto
diff --git a/gen/Network/AWS/Discovery.hs b/gen/Network/AWS/Discovery.hs
index 8e68c61..8570e27 100644
--- a/gen/Network/AWS/Discovery.hs
+++ b/gen/Network/AWS/Discovery.hs
@@ -5,174 +5,33 @@
-- |
-- Module : Network.AWS.Discovery
--- Copyright : (c) 2013-2016 Brendan Hay
+-- Copyright : (c) 2013-2017 Brendan Hay
-- License : Mozilla Public License, v. 2.0.
--- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>
+-- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com>
-- Stability : auto-generated
-- Portability : non-portable (GHC extensions)
--
--- The AWS Application Discovery Service helps Systems Integrators quickly and reliably plan application migration projects by automatically identifying applications running in on-premises data centers, their associated dependencies, and their performance profile.
+-- __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> .
--
--- Planning data center migrations can involve thousands of workloads that are often deeply interdependent. Application discovery and dependency mapping are important early first steps in the migration process, but difficult to perform at scale due to the lack of automated tools.
+-- Application Discovery Service offers two modes of operation.
--
--- The AWS Application Discovery Service automatically collects configuration and usage data from servers to develop a list of applications, how they perform, and how they are interdependent. This information is securely retained in an AWS Application Discovery Service database which you can export as a CSV file into your preferred visualization tool or cloud migration solution to help reduce the complexity and time in planning your cloud migration.
+-- * __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.
--
--- The Application Discovery Service is currently available for preview. Only customers who are engaged with <https://aws.amazon.com/professional-services/ AWS Professional Services> or a certified AWS partner can use the service. To see the list of certified partners and request access to the Application Discovery Service, complete the following <http://aws.amazon.com/application-discovery/preview/ preview form> .
+-- * __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.
--
--- This API reference provides descriptions, syntax, and usage examples for each of the actions and data types for the 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> .
--
--- This guide is intended for use with the <http://docs.aws.amazon.com/application-discovery/latest/userguide/what-is-appdiscovery.html /AWS Discovery Service User Guide/ > .
--
--- The following are short descriptions of each API action, organized by function.
+-- 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.
--
--- __Managing AWS Agents Using the Application Discovery 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 using offline mode to inspect collected data before it is shared with the service.
--
--- An AWS agent is software that you install on on-premises servers and virtual machines that are targeted for discovery and migration. Agents run on Linux and Windows Server and collect server configuration and activity information about your applications and infrastructure. Specifically, agents collect the following information and send it to the Application Discovery Service using Secure Sockets Layer (SSL) encryption:
---
--- * User information (user name, home directory)
---
--- * Group information (name)
---
--- * List of installed packages
---
--- * List of kernel modules
---
--- * All create and stop process events
---
--- * DNS queries
---
--- * NIC information
---
--- * TCP/UDP process listening ports
---
--- * TCPV4/V6 connections
---
--- * Operating system information
---
--- * System performance
---
--- * Process performance
---
---
---
--- The Application Discovery Service API includes the following actions to manage AWS agents:
---
--- * /StartDataCollectionByAgentIds/ : Instructs the specified agents to start collecting data. The Application Discovery Service takes several minutes to receive and process data after you initiate data collection.
---
--- * /StopDataCollectionByAgentIds/ : Instructs the specified agents to stop collecting data.
---
--- * /DescribeAgents/ : Lists AWS agents by ID or lists all agents associated with your user account if you did not specify an agent ID. The output includes agent IDs, IP addresses, media access control (MAC) addresses, agent health, host name where the agent resides, and the version number of each agent.
---
---
---
--- __Querying Configuration Items__
---
--- A /configuration item/ is an IT asset that was discovered in your data center by an AWS agent. When you use the Application Discovery Service, you can specify filters and query specific configuration items. The service supports Server, Process, and Connection configuration items. This means you can specify a value for the following keys and query your IT assets:
---
--- __Server__
---
--- * server.HostName
---
--- * server.osName
---
--- * server.osVersion
---
--- * server.configurationId
---
--- * server.agentId
---
---
---
--- __Process__
---
--- * process.name
---
--- * process.CommandLine
---
--- * process.configurationId
---
--- * server.hostName
---
--- * server.osName
---
--- * server.osVersion
---
--- * server.configurationId
---
--- * server.agentId
---
---
---
--- __Connection__
---
--- * connection.sourceIp
---
--- * connection.sourcePort
---
--- * connection.destinationIp
---
--- * connection.destinationPort
---
--- * sourceProcess.configurationId
---
--- * sourceProcess.commandLine
---
--- * sourceProcess.name
---
--- * destinationProcessId.configurationId
---
--- * destinationProcess.commandLine
---
--- * destinationProcess.name
---
--- * sourceServer.configurationId
---
--- * sourceServer.hostName
---
--- * sourceServer.osName
---
--- * sourceServer.osVersion
---
--- * destinationServer.configurationId
---
--- * destinationServer.hostName
---
--- * destinationServer.osName
---
--- * destinationServer.osVersion
---
---
---
--- The Application Discovery Service includes the following actions for querying configuration items.
---
--- * /DescribeConfigurations/ : Retrieves a list of attributes for a specific configuration ID. For example, the output for a /server/ configuration item includes a list of attributes about the server, including host name, operating system, number of network cards, etc.
---
--- * /ListConfigurations/ : Retrieves a list of configuration items according to the criteria you specify in a filter. The filter criteria identify relationship requirements. For example, you can specify filter criteria of process.name with values of /nginx/ and /apache/ .
---
---
---
--- __Tagging Discovered Configuration Items__
---
--- You can tag discovered configuration items. Tags are metadata that help you categorize IT assets in your data center. Tags use a /key/ -/value/ format. For example, @{"key": "serverType", "value": "webServer"}@ .
---
--- * /CreateTags/ : Creates one or more tags for a configuration items.
---
--- * /DescribeTags/ : Retrieves a list of configuration items that are tagged with a specific tag. /Or/ , retrieves a list of all tags assigned to a specific configuration item.
---
--- * /DeleteTags/ : Deletes the association between a configuration item and one or more tags.
---
---
---
--- __Exporting Data__
---
--- You can export data as a CSV file to an Amazon S3 bucket or into your preferred visualization tool or cloud migration solution to help reduce the complexity and time in planning your cloud migration.
---
--- * /ExportConfigurations/ : Exports all discovered configuration data to an Amazon S3 bucket. Data includes tags and tag associations, processes, connections, servers, and system performance. This API returns an export ID which you can query using the GetExportStatus API.
---
--- * /DescribeExportConfigurations/ : Gets the status of the data export. When the export is complete, the service returns an Amazon S3 URL where you can download CSV files that include the data.
+-- 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.
--
+-- 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> .
--
+-- This guide is intended for use with the <http://docs.aws.amazon.com/application-discovery/latest/userguide/ /AWS Application Discovery Service User Guide/ > .
--
module Network.AWS.Discovery
(
@@ -209,9 +68,6 @@ module Network.AWS.Discovery
-- ** DescribeTags
, module Network.AWS.Discovery.DescribeTags
- -- ** ExportConfigurations
- , module Network.AWS.Discovery.ExportConfigurations
-
-- ** StopDataCollectionByAgentIds
, module Network.AWS.Discovery.StopDataCollectionByAgentIds
@@ -221,21 +77,45 @@ module Network.AWS.Discovery
-- ** DeleteTags
, module Network.AWS.Discovery.DeleteTags
+ -- ** DeleteApplications
+ , module Network.AWS.Discovery.DeleteApplications
+
+ -- ** UpdateApplication
+ , module Network.AWS.Discovery.UpdateApplication
+
-- ** DescribeConfigurations
, module Network.AWS.Discovery.DescribeConfigurations
+ -- ** CreateApplication
+ , module Network.AWS.Discovery.CreateApplication
+
-- ** ListConfigurations
, module Network.AWS.Discovery.ListConfigurations
-- ** DescribeAgents
, module Network.AWS.Discovery.DescribeAgents
- -- ** DescribeExportConfigurations
- , module Network.AWS.Discovery.DescribeExportConfigurations
+ -- ** DescribeExportTasks
+ , module Network.AWS.Discovery.DescribeExportTasks
-- ** StartDataCollectionByAgentIds
, module Network.AWS.Discovery.StartDataCollectionByAgentIds
+ -- ** GetDiscoverySummary
+ , module Network.AWS.Discovery.GetDiscoverySummary
+
+ -- ** DisassociateConfigurationItemsFromApplication
+ , module Network.AWS.Discovery.DisassociateConfigurationItemsFromApplication
+
+ -- ** AssociateConfigurationItemsToApplication
+ , module Network.AWS.Discovery.AssociateConfigurationItemsToApplication
+
+ -- ** ListServerNeighbors
+ , module Network.AWS.Discovery.ListServerNeighbors
+
+ -- ** StartExportTask
+ , module Network.AWS.Discovery.StartExportTask
+
-- * Types
-- ** AgentStatus
@@ -244,9 +124,15 @@ module Network.AWS.Discovery
-- ** ConfigurationItemType
, ConfigurationItemType (..)
+ -- ** ExportDataFormat
+ , ExportDataFormat (..)
+
-- ** ExportStatus
, ExportStatus (..)
+ -- ** OrderString
+ , OrderString (..)
+
-- ** AgentConfigurationStatus
, AgentConfigurationStatus
, agentConfigurationStatus
@@ -258,11 +144,15 @@ module Network.AWS.Discovery
, AgentInfo
, agentInfo
, aiHostName
+ , aiLastHealthPingTime
, aiAgentNetworkInfoList
, aiConnectorId
, aiHealth
, aiAgentId
, aiVersion
+ , aiCollectionStatus
+ , aiRegisteredTime
+ , aiAgentType
-- ** AgentNetworkInfo
, AgentNetworkInfo
@@ -279,10 +169,42 @@ module Network.AWS.Discovery
, ctValue
, ctKey
+ -- ** CustomerAgentInfo
+ , CustomerAgentInfo
+ , customerAgentInfo
+ , caiActiveAgents
+ , caiHealthyAgents
+ , caiBlackListedAgents
+ , caiShutdownAgents
+ , caiUnhealthyAgents
+ , caiTotalAgents
+ , caiUnknownAgents
+
+ -- ** CustomerConnectorInfo
+ , CustomerConnectorInfo
+ , customerConnectorInfo
+ , cciActiveConnectors
+ , cciHealthyConnectors
+ , cciBlackListedConnectors
+ , cciShutdownConnectors
+ , cciUnhealthyConnectors
+ , cciTotalConnectors
+ , cciUnknownConnectors
+
+ -- ** ExportFilter
+ , ExportFilter
+ , exportFilter
+ , efName
+ , efValues
+ , efCondition
+
-- ** ExportInfo
, ExportInfo
, exportInfo
, eiConfigurationsDownloadURL
+ , eiRequestedStartTime
+ , eiRequestedEndTime
+ , eiIsTruncated
, eiExportId
, eiExportStatus
, eiStatusMessage
@@ -295,6 +217,21 @@ module Network.AWS.Discovery
, fValues
, fCondition
+ -- ** NeighborConnectionDetail
+ , NeighborConnectionDetail
+ , neighborConnectionDetail
+ , ncdTransportProtocol
+ , ncdDestinationPort
+ , ncdSourceServerId
+ , ncdDestinationServerId
+ , ncdConnectionsCount
+
+ -- ** OrderByElement
+ , OrderByElement
+ , orderByElement
+ , obeSortOrder
+ , obeFieldName
+
-- ** Tag
, Tag
, tag
@@ -308,18 +245,25 @@ module Network.AWS.Discovery
, tfValues
) where
-import Network.AWS.Discovery.CreateTags
-import Network.AWS.Discovery.DeleteTags
-import Network.AWS.Discovery.DescribeAgents
-import Network.AWS.Discovery.DescribeConfigurations
-import Network.AWS.Discovery.DescribeExportConfigurations
-import Network.AWS.Discovery.DescribeTags
-import Network.AWS.Discovery.ExportConfigurations
-import Network.AWS.Discovery.ListConfigurations
-import Network.AWS.Discovery.StartDataCollectionByAgentIds
-import Network.AWS.Discovery.StopDataCollectionByAgentIds
-import Network.AWS.Discovery.Types
-import Network.AWS.Discovery.Waiters
+import Network.AWS.Discovery.AssociateConfigurationItemsToApplication
+import Network.AWS.Discovery.CreateApplication
+import Network.AWS.Discovery.CreateTags
+import Network.AWS.Discovery.DeleteApplications
+import Network.AWS.Discovery.DeleteTags
+import Network.AWS.Discovery.DescribeAgents
+import Network.AWS.Discovery.DescribeConfigurations
+import Network.AWS.Discovery.DescribeExportTasks
+import Network.AWS.Discovery.DescribeTags
+import Network.AWS.Discovery.DisassociateConfigurationItemsFromApplication
+import Network.AWS.Discovery.GetDiscoverySummary
+import Network.AWS.Discovery.ListConfigurations
+import Network.AWS.Discovery.ListServerNeighbors
+import Network.AWS.Discovery.StartDataCollectionByAgentIds
+import Network.AWS.Discovery.StartExportTask
+import Network.AWS.Discovery.StopDataCollectionByAgentIds
+import Network.AWS.Discovery.Types
+import Network.AWS.Discovery.UpdateApplication
+import Network.AWS.Discovery.Waiters
{- $errors
Error matchers are designed for use with the functions provided by
diff --git a/gen/Network/AWS/Discovery/AssociateConfigurationItemsToApplication.hs b/gen/Network/AWS/Discovery/AssociateConfigurationItemsToApplication.hs
new file mode 100644
index 0000000..11c3ee1
--- /dev/null
+++ b/gen/Network/AWS/Discovery/AssociateConfigurationItemsToApplication.hs
@@ -0,0 +1,157 @@
+{-# LANGUAGE DeriveDataTypeable #-}
+{-# LANGUAGE DeriveGeneric #-}
+{-# LANGUAGE OverloadedStrings #-}
+{-# LANGUAGE RecordWildCards #-}
+{-# LANGUAGE TypeFamilies #-}
+
+{-# OPTIONS_GHC -fno-warn-unused-imports #-}
+{-# OPTIONS_GHC -fno-warn-unused-binds #-}
+{-# OPTIONS_GHC -fno-warn-unused-matches #-}
+
+-- Derived from AWS service descriptions, licensed under Apache 2.0.
+
+-- |
+-- Module : Network.AWS.Discovery.AssociateConfigurationItemsToApplication
+-- Copyright : (c) 2013-2017 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)
+--
+-- Associates one or more configuration items with an application.
+--
+--
+module Network.AWS.Discovery.AssociateConfigurationItemsToApplication
+ (
+ -- * Creating a Request
+ associateConfigurationItemsToApplication
+ , AssociateConfigurationItemsToApplication
+ -- * Request Lenses
+ , acitaApplicationConfigurationId
+ , acitaConfigurationIds
+
+ -- * Destructuring the Response
+ , associateConfigurationItemsToApplicationResponse
+ , AssociateConfigurationItemsToApplicationResponse
+ -- * Response Lenses
+ , acitarsResponseStatus
+ ) where
+
+import Network.AWS.Discovery.Types
+import Network.AWS.Discovery.Types.Product
+import Network.AWS.Lens
+import Network.AWS.Prelude
+import Network.AWS.Request
+import Network.AWS.Response
+
+-- | /See:/ 'associateConfigurationItemsToApplication' smart constructor.
+data AssociateConfigurationItemsToApplication = AssociateConfigurationItemsToApplication'
+ { _acitaApplicationConfigurationId :: !Text
+ , _acitaConfigurationIds :: ![Text]
+ } deriving (Eq, Read, Show, Data, Typeable, Generic)
+
+
+-- | Creates a value of 'AssociateConfigurationItemsToApplication' with the minimum fields required to make a request.
+--
+-- Use one of the following lenses to modify other fields as desired:
+--
+-- * 'acitaApplicationConfigurationId' - The configuration ID of an application with which items are to be associated.
+--
+-- * 'acitaConfigurationIds' - The ID of each configuration item to be associated with an application.
+associateConfigurationItemsToApplication
+ :: Text -- ^ 'acitaApplicationConfigurationId'
+ -> AssociateConfigurationItemsToApplication
+associateConfigurationItemsToApplication pApplicationConfigurationId_ =
+ AssociateConfigurationItemsToApplication'
+ { _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});
+
+-- | 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;
+
+instance AWSRequest
+ AssociateConfigurationItemsToApplication
+ where
+ type Rs AssociateConfigurationItemsToApplication =
+ AssociateConfigurationItemsToApplicationResponse
+ request = postJSON discovery
+ response
+ = receiveEmpty
+ (\ s h x ->
+ AssociateConfigurationItemsToApplicationResponse' <$>
+ (pure (fromEnum s)))
+
+instance Hashable
+ AssociateConfigurationItemsToApplication
+ where
+
+instance NFData
+ AssociateConfigurationItemsToApplication
+ where
+
+instance ToHeaders
+ AssociateConfigurationItemsToApplication
+ where
+ toHeaders
+ = const
+ (mconcat
+ ["X-Amz-Target" =#
+ ("AWSPoseidonService_V2015_11_01.AssociateConfigurationItemsToApplication"
+ :: ByteString),
+ "Content-Type" =#
+ ("application/x-amz-json-1.1" :: ByteString)])
+
+instance ToJSON
+ AssociateConfigurationItemsToApplication
+ where
+ toJSON AssociateConfigurationItemsToApplication'{..}
+ = object
+ (catMaybes
+ [Just
+ ("applicationConfigurationId" .=
+ _acitaApplicationConfigurationId),
+ Just ("configurationIds" .= _acitaConfigurationIds)])
+
+instance ToPath
+ AssociateConfigurationItemsToApplication
+ where
+ toPath = const "/"
+
+instance ToQuery
+ AssociateConfigurationItemsToApplication
+ where
+ toQuery = const mempty
+
+-- | /See:/ 'associateConfigurationItemsToApplicationResponse' smart constructor.
+newtype AssociateConfigurationItemsToApplicationResponse = AssociateConfigurationItemsToApplicationResponse'
+ { _acitarsResponseStatus :: Int
+ } deriving (Eq, Read, Show, Data, Typeable, Generic)
+
+
+-- | Creates a value of 'AssociateConfigurationItemsToApplicationResponse' with the minimum fields required to make a request.
+--
+-- Use one of the following lenses to modify other fields as desired:
+--
+-- * 'acitarsResponseStatus' - -- | The response status code.
+associateConfigurationItemsToApplicationResponse
+ :: Int -- ^ 'acitarsResponseStatus'
+ -> AssociateConfigurationItemsToApplicationResponse
+associateConfigurationItemsToApplicationResponse pResponseStatus_ =
+ AssociateConfigurationItemsToApplicationResponse'
+ {_acitarsResponseStatus = pResponseStatus_}
+
+
+-- | -- | The response status code.
+acitarsResponseStatus :: Lens' AssociateConfigurationItemsToApplicationResponse Int
+acitarsResponseStatus = lens _acitarsResponseStatus (\ s a -> s{_acitarsResponseStatus = a});
+
+instance NFData
+ AssociateConfigurationItemsToApplicationResponse
+ where
diff --git a/gen/Network/AWS/Discovery/CreateApplication.hs b/gen/Network/AWS/Discovery/CreateApplication.hs
new file mode 100644
index 0000000..44a38e1
--- /dev/null
+++ b/gen/Network/AWS/Discovery/CreateApplication.hs
@@ -0,0 +1,143 @@
+{-# LANGUAGE DeriveDataTypeable #-}
+{-# LANGUAGE DeriveGeneric #-}
+{-# LANGUAGE OverloadedStrings #-}
+{-# LANGUAGE RecordWildCards #-}
+{-# LANGUAGE TypeFamilies #-}
+
+{-# OPTIONS_GHC -fno-warn-unused-imports #-}
+{-# OPTIONS_GHC -fno-warn-unused-binds #-}
+{-# OPTIONS_GHC -fno-warn-unused-matches #-}
+
+-- Derived from AWS service descriptions, licensed under Apache 2.0.
+
+-- |
+-- Module : Network.AWS.Discovery.CreateApplication
+-- Copyright : (c) 2013-2017 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)
+--
+-- Creates an application with the given name and description.
+--
+--
+module Network.AWS.Discovery.CreateApplication
+ (
+ -- * Creating a Request
+ createApplication
+ , CreateApplication
+ -- * Request Lenses
+ , caDescription
+ , caName
+
+ -- * Destructuring the Response
+ , createApplicationResponse
+ , CreateApplicationResponse
+ -- * Response Lenses
+ , carsConfigurationId
+ , carsResponseStatus
+ ) where
+
+import Network.AWS.Discovery.Types
+import Network.AWS.Discovery.Types.Product
+import Network.AWS.Lens
+import Network.AWS.Prelude
+import Network.AWS.Request
+import Network.AWS.Response
+
+-- | /See:/ 'createApplication' smart constructor.
+data CreateApplication = CreateApplication'
+ { _caDescription :: !(Maybe Text)
+ , _caName :: !Text
+ } deriving (Eq, Read, Show, Data, Typeable, Generic)
+
+
+-- | Creates a value of 'CreateApplication' with the minimum fields required to make a request.
+--
+-- Use one of the following lenses to modify other fields as desired:
+--
+-- * 'caDescription' - Description of the application to be created.
+--
+-- * 'caName' - Name of the application to be created.
+createApplication
+ :: Text -- ^ 'caName'
+ -> CreateApplication
+createApplication pName_ =
+ CreateApplication' {_caDescription = Nothing, _caName = pName_}
+
+
+-- | Description of the application to be created.
+caDescription :: Lens' CreateApplication (Maybe Text)
+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});
+
+instance AWSRequest CreateApplication where
+ type Rs CreateApplication = CreateApplicationResponse
+ request = postJSON discovery
+ response
+ = receiveJSON
+ (\ s h x ->
+ CreateApplicationResponse' <$>
+ (x .?> "configurationId") <*> (pure (fromEnum s)))
+
+instance Hashable CreateApplication where
+
+instance NFData CreateApplication where
+
+instance ToHeaders CreateApplication where
+ toHeaders
+ = const
+ (mconcat
+ ["X-Amz-Target" =#
+ ("AWSPoseidonService_V2015_11_01.CreateApplication"
+ :: ByteString),
+ "Content-Type" =#
+ ("application/x-amz-json-1.1" :: ByteString)])
+
+instance ToJSON CreateApplication where
+ toJSON CreateApplication'{..}
+ = object
+ (catMaybes
+ [("description" .=) <$> _caDescription,
+ Just ("name" .= _caName)])
+
+instance ToPath CreateApplication where
+ toPath = const "/"
+
+instance ToQuery CreateApplication where
+ toQuery = const mempty
+
+-- | /See:/ 'createApplicationResponse' smart constructor.
+data CreateApplicationResponse = CreateApplicationResponse'
+ { _carsConfigurationId :: !(Maybe Text)
+ , _carsResponseStatus :: !Int
+ } deriving (Eq, Read, Show, Data, Typeable, Generic)
+
+
+-- | Creates a value of 'CreateApplicationResponse' with the minimum fields required to make a request.
+--
+-- Use one of the following lenses to modify other fields as desired:
+--
+-- * 'carsConfigurationId' - Configuration ID of an application to be created.
+--
+-- * 'carsResponseStatus' - -- | The response status code.
+createApplicationResponse
+ :: Int -- ^ 'carsResponseStatus'
+ -> CreateApplicationResponse
+createApplicationResponse pResponseStatus_ =
+ CreateApplicationResponse'
+ {_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});
+
+-- | -- | The response status code.
+carsResponseStatus :: Lens' CreateApplicationResponse Int
+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 9da8b80..7635541 100644
--- a/gen/Network/AWS/Discovery/CreateTags.hs
+++ b/gen/Network/AWS/Discovery/CreateTags.hs
@@ -12,9 +12,9 @@
-- |
-- Module : Network.AWS.Discovery.CreateTags
--- Copyright : (c) 2013-2016 Brendan Hay
+-- Copyright : (c) 2013-2017 Brendan Hay
-- License : Mozilla Public License, v. 2.0.
--- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>
+-- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com>
-- Stability : auto-generated
-- Portability : non-portable (GHC extensions)
--
@@ -37,18 +37,19 @@ module Network.AWS.Discovery.CreateTags
, ctrsResponseStatus
) where
-import Network.AWS.Discovery.Types
-import Network.AWS.Discovery.Types.Product
-import Network.AWS.Lens
-import Network.AWS.Prelude
-import Network.AWS.Request
-import Network.AWS.Response
+import Network.AWS.Discovery.Types
+import Network.AWS.Discovery.Types.Product
+import Network.AWS.Lens
+import Network.AWS.Prelude
+import Network.AWS.Request
+import Network.AWS.Response
-- | /See:/ 'createTags' smart constructor.
data CreateTags = CreateTags'
- { _ctConfigurationIds :: ![Text]
- , _ctTags :: ![Tag]
- } deriving (Eq,Read,Show,Data,Typeable,Generic)
+ { _ctConfigurationIds :: ![Text]
+ , _ctTags :: ![Tag]
+ } deriving (Eq, Read, Show, Data, Typeable, Generic)
+
-- | Creates a value of 'CreateTags' with the minimum fields required to make a request.
--
@@ -59,11 +60,8 @@ data CreateTags = CreateTags'
-- * 'ctTags' - 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"}@
createTags
:: CreateTags
-createTags =
- CreateTags'
- { _ctConfigurationIds = mempty
- , _ctTags = mempty
- }
+createTags = CreateTags' {_ctConfigurationIds = mempty, _ctTags = mempty}
+
-- | A list of configuration items that you want to tag.
ctConfigurationIds :: Lens' CreateTags [Text]
@@ -81,9 +79,9 @@ instance AWSRequest CreateTags where
(\ s h x ->
CreateTagsResponse' <$> (pure (fromEnum s)))
-instance Hashable CreateTags
+instance Hashable CreateTags where
-instance NFData CreateTags
+instance NFData CreateTags where
instance ToHeaders CreateTags where
toHeaders
@@ -110,8 +108,9 @@ instance ToQuery CreateTags where
-- | /See:/ 'createTagsResponse' smart constructor.
newtype CreateTagsResponse = CreateTagsResponse'
- { _ctrsResponseStatus :: Int
- } deriving (Eq,Read,Show,Data,Typeable,Generic)
+ { _ctrsResponseStatus :: Int
+ } deriving (Eq, Read, Show, Data, Typeable, Generic)
+
-- | Creates a value of 'CreateTagsResponse' with the minimum fields required to make a request.
--
@@ -122,12 +121,11 @@ createTagsResponse
:: Int -- ^ 'ctrsResponseStatus'
-> CreateTagsResponse
createTagsResponse pResponseStatus_ =
- CreateTagsResponse'
- { _ctrsResponseStatus = pResponseStatus_
- }
+ CreateTagsResponse' {_ctrsResponseStatus = pResponseStatus_}
+
-- | -- | The response status code.
ctrsResponseStatus :: Lens' CreateTagsResponse Int
ctrsResponseStatus = lens _ctrsResponseStatus (\ s a -> s{_ctrsResponseStatus = a});
-instance NFData CreateTagsResponse
+instance NFData CreateTagsResponse where
diff --git a/gen/Network/AWS/Discovery/DeleteApplications.hs b/gen/Network/AWS/Discovery/DeleteApplications.hs
new file mode 100644
index 0000000..c876d46
--- /dev/null
+++ b/gen/Network/AWS/Discovery/DeleteApplications.hs
@@ -0,0 +1,123 @@
+{-# LANGUAGE DeriveDataTypeable #-}
+{-# LANGUAGE DeriveGeneric #-}
+{-# LANGUAGE OverloadedStrings #-}
+{-# LANGUAGE RecordWildCards #-}
+{-# LANGUAGE TypeFamilies #-}
+
+{-# OPTIONS_GHC -fno-warn-unused-imports #-}
+{-# OPTIONS_GHC -fno-warn-unused-binds #-}
+{-# OPTIONS_GHC -fno-warn-unused-matches #-}
+
+-- Derived from AWS service descriptions, licensed under Apache 2.0.
+
+-- |
+-- Module : Network.AWS.Discovery.DeleteApplications
+-- Copyright : (c) 2013-2017 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)
+--
+-- Deletes a list of applications and their associations with configuration items.
+--
+--
+module Network.AWS.Discovery.DeleteApplications
+ (
+ -- * Creating a Request
+ deleteApplications
+ , DeleteApplications
+ -- * Request Lenses
+ , daConfigurationIds
+
+ -- * Destructuring the Response
+ , deleteApplicationsResponse
+ , DeleteApplicationsResponse
+ -- * Response Lenses
+ , darsResponseStatus
+ ) where
+
+import Network.AWS.Discovery.Types
+import Network.AWS.Discovery.Types.Product
+import Network.AWS.Lens
+import Network.AWS.Prelude
+import Network.AWS.Request
+import Network.AWS.Response
+
+-- | /See:/ 'deleteApplications' smart constructor.
+newtype DeleteApplications = DeleteApplications'
+ { _daConfigurationIds :: [Text]
+ } deriving (Eq, Read, Show, Data, Typeable, Generic)
+
+
+-- | Creates a value of 'DeleteApplications' with the minimum fields required to make a request.
+--
+-- Use one of the following lenses to modify other fields as desired:
+--
+-- * 'daConfigurationIds' - Configuration ID of an application to be deleted.
+deleteApplications
+ :: DeleteApplications
+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;
+
+instance AWSRequest DeleteApplications where
+ type Rs DeleteApplications =
+ DeleteApplicationsResponse
+ request = postJSON discovery
+ response
+ = receiveEmpty
+ (\ s h x ->
+ DeleteApplicationsResponse' <$> (pure (fromEnum s)))
+
+instance Hashable DeleteApplications where
+
+instance NFData DeleteApplications where
+
+instance ToHeaders DeleteApplications where
+ toHeaders
+ = const
+ (mconcat
+ ["X-Amz-Target" =#
+ ("AWSPoseidonService_V2015_11_01.DeleteApplications"
+ :: ByteString),
+ "Content-Type" =#
+ ("application/x-amz-json-1.1" :: ByteString)])
+
+instance ToJSON DeleteApplications where
+ toJSON DeleteApplications'{..}
+ = object
+ (catMaybes
+ [Just ("configurationIds" .= _daConfigurationIds)])
+
+instance ToPath DeleteApplications where
+ toPath = const "/"
+
+instance ToQuery DeleteApplications where
+ toQuery = const mempty
+
+-- | /See:/ 'deleteApplicationsResponse' smart constructor.
+newtype DeleteApplicationsResponse = DeleteApplicationsResponse'
+ { _darsResponseStatus :: Int
+ } deriving (Eq, Read, Show, Data, Typeable, Generic)
+
+
+-- | Creates a value of 'DeleteApplicationsResponse' with the minimum fields required to make a request.
+--
+-- Use one of the following lenses to modify other fields as desired:
+--
+-- * 'darsResponseStatus' - -- | The response status code.
+deleteApplicationsResponse
+ :: Int -- ^ 'darsResponseStatus'
+ -> DeleteApplicationsResponse
+deleteApplicationsResponse pResponseStatus_ =
+ DeleteApplicationsResponse' {_darsResponseStatus = pResponseStatus_}
+
+
+-- | -- | The response status code.
+darsResponseStatus :: Lens' DeleteApplicationsResponse Int
+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 aaa152d..8902168 100644
--- a/gen/Network/AWS/Discovery/DeleteTags.hs
+++ b/gen/Network/AWS/Discovery/DeleteTags.hs
@@ -12,9 +12,9 @@
-- |
-- Module : Network.AWS.Discovery.DeleteTags
--- Copyright : (c) 2013-2016 Brendan Hay
+-- Copyright : (c) 2013-2017 Brendan Hay
-- License : Mozilla Public License, v. 2.0.
--- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>
+-- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com>
-- Stability : auto-generated
-- Portability : non-portable (GHC extensions)
--
@@ -37,18 +37,19 @@ module Network.AWS.Discovery.DeleteTags
, drsResponseStatus
) where
-import Network.AWS.Discovery.Types
-import Network.AWS.Discovery.Types.Product
-import Network.AWS.Lens
-import Network.AWS.Prelude
-import Network.AWS.Request
-import Network.AWS.Response
+import Network.AWS.Discovery.Types
+import Network.AWS.Discovery.Types.Product
+import Network.AWS.Lens
+import Network.AWS.Prelude
+import Network.AWS.Request
+import Network.AWS.Response
-- | /See:/ 'deleteTags' smart constructor.
data DeleteTags = DeleteTags'
- { _dtTags :: !(Maybe [Tag])
- , _dtConfigurationIds :: ![Text]
- } deriving (Eq,Read,Show,Data,Typeable,Generic)
+ { _dtTags :: !(Maybe [Tag])
+ , _dtConfigurationIds :: ![Text]
+ } deriving (Eq, Read, Show, Data, Typeable, Generic)
+
-- | Creates a value of 'DeleteTags' with the minimum fields required to make a request.
--
@@ -59,11 +60,8 @@ data DeleteTags = DeleteTags'
-- * 'dtConfigurationIds' - A list of configuration items with tags that you want to delete.
deleteTags
:: DeleteTags
-deleteTags =
- DeleteTags'
- { _dtTags = Nothing
- , _dtConfigurationIds = mempty
- }
+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]
@@ -81,9 +79,9 @@ instance AWSRequest DeleteTags where
(\ s h x ->
DeleteTagsResponse' <$> (pure (fromEnum s)))
-instance Hashable DeleteTags
+instance Hashable DeleteTags where
-instance NFData DeleteTags
+instance NFData DeleteTags where
instance ToHeaders DeleteTags where
toHeaders
@@ -110,8 +108,9 @@ instance ToQuery DeleteTags where
-- | /See:/ 'deleteTagsResponse' smart constructor.
newtype DeleteTagsResponse = DeleteTagsResponse'
- { _drsResponseStatus :: Int
- } deriving (Eq,Read,Show,Data,Typeable,Generic)
+ { _drsResponseStatus :: Int
+ } deriving (Eq, Read, Show, Data, Typeable, Generic)
+
-- | Creates a value of 'DeleteTagsResponse' with the minimum fields required to make a request.
--
@@ -122,12 +121,11 @@ deleteTagsResponse
:: Int -- ^ 'drsResponseStatus'
-> DeleteTagsResponse
deleteTagsResponse pResponseStatus_ =
- DeleteTagsResponse'
- { _drsResponseStatus = pResponseStatus_
- }
+ DeleteTagsResponse' {_drsResponseStatus = pResponseStatus_}
+
-- | -- | The response status code.
drsResponseStatus :: Lens' DeleteTagsResponse Int
drsResponseStatus = lens _drsResponseStatus (\ s a -> s{_drsResponseStatus = a});
-instance NFData DeleteTagsResponse
+instance NFData DeleteTagsResponse where
diff --git a/gen/Network/AWS/Discovery/DescribeAgents.hs b/gen/Network/AWS/Discovery/DescribeAgents.hs
index 3abd167..4ee1b34 100644
--- a/gen/Network/AWS/Discovery/DescribeAgents.hs
+++ b/gen/Network/AWS/Discovery/DescribeAgents.hs
@@ -12,13 +12,13 @@
-- |
-- Module : Network.AWS.Discovery.DescribeAgents
--- Copyright : (c) 2013-2016 Brendan Hay
+-- Copyright : (c) 2013-2017 Brendan Hay
-- License : Mozilla Public License, v. 2.0.
--- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>
+-- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com>
-- Stability : auto-generated
-- Portability : non-portable (GHC extensions)
--
--- Lists AWS agents by ID or lists all agents associated with your user account if you did not specify an agent ID.
+-- Lists agents or the Connector by ID or lists all agents/Connectors associated with your user account if you did not specify an ID.
--
--
module Network.AWS.Discovery.DescribeAgents
@@ -28,6 +28,7 @@ module Network.AWS.Discovery.DescribeAgents
, DescribeAgents
-- * Request Lenses
, daAgentIds
+ , daFilters
, daNextToken
, daMaxResults
@@ -35,52 +36,62 @@ module Network.AWS.Discovery.DescribeAgents
, describeAgentsResponse
, DescribeAgentsResponse
-- * Response Lenses
- , darsAgentsInfo
- , darsNextToken
- , darsResponseStatus
+ , dasrsAgentsInfo
+ , dasrsNextToken
+ , dasrsResponseStatus
) where
-import Network.AWS.Discovery.Types
-import Network.AWS.Discovery.Types.Product
-import Network.AWS.Lens
-import Network.AWS.Prelude
-import Network.AWS.Request
-import Network.AWS.Response
+import Network.AWS.Discovery.Types
+import Network.AWS.Discovery.Types.Product
+import Network.AWS.Lens
+import Network.AWS.Prelude
+import Network.AWS.Request
+import Network.AWS.Response
-- | /See:/ 'describeAgents' smart constructor.
data DescribeAgents = DescribeAgents'
- { _daAgentIds :: !(Maybe [Text])
- , _daNextToken :: !(Maybe Text)
- , _daMaxResults :: !(Maybe Int)
- } deriving (Eq,Read,Show,Data,Typeable,Generic)
+ { _daAgentIds :: !(Maybe [Text])
+ , _daFilters :: !(Maybe [Filter])
+ , _daNextToken :: !(Maybe Text)
+ , _daMaxResults :: !(Maybe Int)
+ } deriving (Eq, Read, Show, Data, Typeable, Generic)
+
-- | Creates a value of 'DescribeAgents' with the minimum fields required to make a request.
--
-- Use one of the following lenses to modify other fields as desired:
--
--- * 'daAgentIds' - The agent IDs for which you want information. If you specify no IDs, the system returns information about all agents associated with your AWS user account.
+-- * 'daAgentIds' - 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.
+--
+-- * 'daFilters' - You can filter the request using various logical operators and a /key/ -/value/ format. For example: @{"key": "collectionStatus", "value": "STARTED"}@
--
--- * 'daNextToken' - A token to start the list. Use this token to get the next set of results.
+-- * 'daNextToken' - 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.
--
--- * 'daMaxResults' - The total number of agents to return. The maximum value is 100.
+-- * 'daMaxResults' - The total number of agents/Connectors to return in a single page of output. The maximum value is 100.
describeAgents
:: DescribeAgents
describeAgents =
- DescribeAgents'
- { _daAgentIds = Nothing
- , _daNextToken = Nothing
- , _daMaxResults = Nothing
- }
+ DescribeAgents'
+ { _daAgentIds = Nothing
+ , _daFilters = Nothing
+ , _daNextToken = Nothing
+ , _daMaxResults = Nothing
+ }
+
--- | The agent IDs for which you want information. If you specify no IDs, the system returns information about all agents associated with your AWS user account.
+-- | 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;
--- | A token to start the list. Use this token to get the next set of results.
+-- | 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;
+
+-- | 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});
--- | The total number of agents to return. The maximum value is 100.
+-- | 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});
@@ -95,9 +106,9 @@ instance AWSRequest DescribeAgents where
(x .?> "nextToken")
<*> (pure (fromEnum s)))
-instance Hashable DescribeAgents
+instance Hashable DescribeAgents where
-instance NFData DescribeAgents
+instance NFData DescribeAgents where
instance ToHeaders DescribeAgents where
toHeaders
@@ -114,6 +125,7 @@ instance ToJSON DescribeAgents where
= object
(catMaybes
[("agentIds" .=) <$> _daAgentIds,
+ ("filters" .=) <$> _daFilters,
("nextToken" .=) <$> _daNextToken,
("maxResults" .=) <$> _daMaxResults])
@@ -125,40 +137,42 @@ instance ToQuery DescribeAgents where
-- | /See:/ 'describeAgentsResponse' smart constructor.
data DescribeAgentsResponse = DescribeAgentsResponse'
- { _darsAgentsInfo :: !(Maybe [AgentInfo])
- , _darsNextToken :: !(Maybe Text)
- , _darsResponseStatus :: !Int
- } deriving (Eq,Read,Show,Data,Typeable,Generic)
+ { _dasrsAgentsInfo :: !(Maybe [AgentInfo])
+ , _dasrsNextToken :: !(Maybe Text)
+ , _dasrsResponseStatus :: !Int
+ } deriving (Eq, Read, Show, Data, Typeable, Generic)
+
-- | Creates a value of 'DescribeAgentsResponse' with the minimum fields required to make a request.
--
-- Use one of the following lenses to modify other fields as desired:
--
--- * 'darsAgentsInfo' - Lists AWS agents by ID or lists all agents associated with your user account if you did not specify an agent ID. The output includes agent IDs, IP addresses, media access control (MAC) addresses, agent health, host name where the agent resides, and the version number of each agent.
+-- * 'dasrsAgentsInfo' - 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.
--
--- * 'darsNextToken' - The call returns a token. Use this token to get the next set of results.
+-- * 'dasrsNextToken' - 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.
--
--- * 'darsResponseStatus' - -- | The response status code.
+-- * 'dasrsResponseStatus' - -- | The response status code.
describeAgentsResponse
- :: Int -- ^ 'darsResponseStatus'
+ :: Int -- ^ 'dasrsResponseStatus'
-> DescribeAgentsResponse
describeAgentsResponse pResponseStatus_ =
- DescribeAgentsResponse'
- { _darsAgentsInfo = Nothing
- , _darsNextToken = Nothing
- , _darsResponseStatus = pResponseStatus_
- }
+ DescribeAgentsResponse'
+ { _dasrsAgentsInfo = Nothing
+ , _dasrsNextToken = Nothing
+ , _dasrsResponseStatus = pResponseStatus_
+ }
+
--- | Lists AWS agents by ID or lists all agents associated with your user account if you did not specify an agent ID. The output includes agent IDs, IP addresses, media access control (MAC) addresses, agent health, host name where the agent resides, and the version number of each agent.
-darsAgentsInfo :: Lens' DescribeAgentsResponse [AgentInfo]
-darsAgentsInfo = lens _darsAgentsInfo (\ s a -> s{_darsAgentsInfo = a}) . _Default . _Coerce;
+-- | 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;
--- | The call returns a token. Use this token to get the next set of results.
-darsNextToken :: Lens' DescribeAgentsResponse (Maybe Text)
-darsNextToken = lens _darsNextToken (\ s a -> s{_darsNextToken = a});
+-- | 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});
-- | -- | The response status code.
-darsResponseStatus :: Lens' DescribeAgentsResponse Int
-darsResponseStatus = lens _darsResponseStatus (\ s a -> s{_darsResponseStatus = a});
+dasrsResponseStatus :: Lens' DescribeAgentsResponse Int
+dasrsResponseStatus = lens _dasrsResponseStatus (\ s a -> s{_dasrsResponseStatus = a});
-instance NFData DescribeAgentsResponse
+instance NFData DescribeAgentsResponse where
diff --git a/gen/Network/AWS/Discovery/DescribeConfigurations.hs b/gen/Network/AWS/Discovery/DescribeConfigurations.hs
index ecbacb3..9055e37 100644
--- a/gen/Network/AWS/Discovery/DescribeConfigurations.hs
+++ b/gen/Network/AWS/Discovery/DescribeConfigurations.hs
@@ -12,15 +12,17 @@
-- |
-- Module : Network.AWS.Discovery.DescribeConfigurations
--- Copyright : (c) 2013-2016 Brendan Hay
+-- Copyright : (c) 2013-2017 Brendan Hay
-- License : Mozilla Public License, v. 2.0.
--- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>
+-- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com>
-- Stability : auto-generated
-- Portability : non-portable (GHC extensions)
--
--- Retrieves a list of attributes for a specific configuration ID. For example, the output for a /server/ configuration item includes a list of attributes about the server, including host name, operating system, number of network cards, etc.
+-- Retrieves attributes for a list of configuration item IDs. All of the supplied IDs must be for the same asset type (server, application, process, or connection). Output fields are specific to the asset type selected. For example, the output for a /server/ configuration item includes a list of attributes about the server, such as host name, operating system, and number of network cards.
--
--
+-- For a complete list of outputs for each asset type, see <http://docs.aws.amazon.com/application-discovery/latest/APIReference/discovery-api-queries.html#DescribeConfigurations Using the DescribeConfigurations Action> .
+--
module Network.AWS.Discovery.DescribeConfigurations
(
-- * Creating a Request
@@ -37,17 +39,18 @@ module Network.AWS.Discovery.DescribeConfigurations
, dcrsResponseStatus
) where
-import Network.AWS.Discovery.Types
-import Network.AWS.Discovery.Types.Product
-import Network.AWS.Lens
-import Network.AWS.Prelude
-import Network.AWS.Request
-import Network.AWS.Response
+import Network.AWS.Discovery.Types
+import Network.AWS.Discovery.Types.Product
+import Network.AWS.Lens
+import Network.AWS.Prelude
+import Network.AWS.Request
+import Network.AWS.Response
-- | /See:/ 'describeConfigurations' smart constructor.
newtype DescribeConfigurations = DescribeConfigurations'
- { _dcConfigurationIds :: [Text]
- } deriving (Eq,Read,Show,Data,Typeable,Generic)
+ { _dcConfigurationIds :: [Text]
+ } deriving (Eq, Read, Show, Data, Typeable, Generic)
+
-- | Creates a value of 'DescribeConfigurations' with the minimum fields required to make a request.
--
@@ -56,10 +59,8 @@ newtype DescribeConfigurations = DescribeConfigurations'
-- * 'dcConfigurationIds' - One or more configuration IDs.
describeConfigurations
:: DescribeConfigurations
-describeConfigurations =
- DescribeConfigurations'
- { _dcConfigurationIds = mempty
- }
+describeConfigurations = DescribeConfigurations' {_dcConfigurationIds = mempty}
+
-- | One or more configuration IDs.
dcConfigurationIds :: Lens' DescribeConfigurations [Text]
@@ -76,9 +77,9 @@ instance AWSRequest DescribeConfigurations where
(x .?> "configurations" .!@ mempty) <*>
(pure (fromEnum s)))
-instance Hashable DescribeConfigurations
+instance Hashable DescribeConfigurations where
-instance NFData DescribeConfigurations
+instance NFData DescribeConfigurations where
instance ToHeaders DescribeConfigurations where
toHeaders
@@ -104,9 +105,10 @@ instance ToQuery DescribeConfigurations where
-- | /See:/ 'describeConfigurationsResponse' smart constructor.
data DescribeConfigurationsResponse = DescribeConfigurationsResponse'
- { _dcrsConfigurations :: !(Maybe [Map Text Text])
- , _dcrsResponseStatus :: !Int
- } deriving (Eq,Read,Show,Data,Typeable,Generic)
+ { _dcrsConfigurations :: !(Maybe [Map Text Text])
+ , _dcrsResponseStatus :: !Int
+ } deriving (Eq, Read, Show, Data, Typeable, Generic)
+
-- | Creates a value of 'DescribeConfigurationsResponse' with the minimum fields required to make a request.
--
@@ -119,10 +121,9 @@ describeConfigurationsResponse
:: Int -- ^ 'dcrsResponseStatus'
-> DescribeConfigurationsResponse
describeConfigurationsResponse pResponseStatus_ =
- DescribeConfigurationsResponse'
- { _dcrsConfigurations = Nothing
- , _dcrsResponseStatus = pResponseStatus_
- }
+ DescribeConfigurationsResponse'
+ {_dcrsConfigurations = Nothing, _dcrsResponseStatus = pResponseStatus_}
+
-- | A key in the response map. The value is an array of data.
dcrsConfigurations :: Lens' DescribeConfigurationsResponse [HashMap Text Text]
@@ -132,4 +133,4 @@ dcrsConfigurations = lens _dcrsConfigurations (\ s a -> s{_dcrsConfigurations =
dcrsResponseStatus :: Lens' DescribeConfigurationsResponse Int
dcrsResponseStatus = lens _dcrsResponseStatus (\ s a -> s{_dcrsResponseStatus = a});
-instance NFData DescribeConfigurationsResponse
+instance NFData DescribeConfigurationsResponse where
diff --git a/gen/Network/AWS/Discovery/DescribeExportConfigurations.hs b/gen/Network/AWS/Discovery/DescribeExportConfigurations.hs
deleted file mode 100644
index c2d0565..0000000
--- a/gen/Network/AWS/Discovery/DescribeExportConfigurations.hs
+++ /dev/null
@@ -1,166 +0,0 @@
-{-# LANGUAGE DeriveDataTypeable #-}
-{-# LANGUAGE DeriveGeneric #-}
-{-# LANGUAGE OverloadedStrings #-}
-{-# LANGUAGE RecordWildCards #-}
-{-# LANGUAGE TypeFamilies #-}
-
-{-# OPTIONS_GHC -fno-warn-unused-imports #-}
-{-# OPTIONS_GHC -fno-warn-unused-binds #-}
-{-# OPTIONS_GHC -fno-warn-unused-matches #-}
-
--- Derived from AWS service descriptions, licensed under Apache 2.0.
-
--- |
--- Module : Network.AWS.Discovery.DescribeExportConfigurations
--- Copyright : (c) 2013-2016 Brendan Hay
--- License : Mozilla Public License, v. 2.0.
--- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>
--- Stability : auto-generated
--- Portability : non-portable (GHC extensions)
---
--- Retrieves the status of a given export process. You can retrieve status from a maximum of 100 processes.
---
---
-module Network.AWS.Discovery.DescribeExportConfigurations
- (
- -- * Creating a Request
- describeExportConfigurations
- , DescribeExportConfigurations
- -- * Request Lenses
- , decNextToken
- , decExportIds
- , decMaxResults
-
- -- * Destructuring the Response
- , describeExportConfigurationsResponse
- , DescribeExportConfigurationsResponse
- -- * Response Lenses
- , decrsNextToken
- , decrsExportsInfo
- , decrsResponseStatus
- ) where
-
-import Network.AWS.Discovery.Types
-import Network.AWS.Discovery.Types.Product
-import Network.AWS.Lens
-import Network.AWS.Prelude
-import Network.AWS.Request
-import Network.AWS.Response
-
--- | /See:/ 'describeExportConfigurations' smart constructor.
-data DescribeExportConfigurations = DescribeExportConfigurations'
- { _decNextToken :: !(Maybe Text)
- , _decExportIds :: !(Maybe [Text])
- , _decMaxResults :: !(Maybe Int)
- } deriving (Eq,Read,Show,Data,Typeable,Generic)
-
--- | Creates a value of 'DescribeExportConfigurations' with the minimum fields required to make a request.
---
--- Use one of the following lenses to modify other fields as desired:
---
--- * 'decNextToken' - A token to get the next set of results. For example, if you specified 100 IDs for @DescribeConfigurationsRequest$configurationIds@ but set @DescribeExportConfigurationsRequest$maxResults@ to 10, you will get results in a set of 10. Use the token in the query to get the next set of 10.
---
--- * 'decExportIds' - A unique identifier that you can use to query the export status.
---
--- * 'decMaxResults' - The maximum number of results that you want to display as a part of the query.
-describeExportConfigurations
- :: DescribeExportConfigurations
-describeExportConfigurations =
- DescribeExportConfigurations'
- { _decNextToken = Nothing
- , _decExportIds = Nothing
- , _decMaxResults = Nothing
- }
-
--- | A token to get the next set of results. For example, if you specified 100 IDs for @DescribeConfigurationsRequest$configurationIds@ but set @DescribeExportConfigurationsRequest$maxResults@ to 10, you will get results in a set of 10. Use the token in the query to get the next set of 10.
-decNextToken :: Lens' DescribeExportConfigurations (Maybe Text)
-decNextToken = lens _decNextToken (\ s a -> s{_decNextToken = a});
-
--- | A unique identifier that you can use to query the export status.
-decExportIds :: Lens' DescribeExportConfigurations [Text]
-decExportIds = lens _decExportIds (\ s a -> s{_decExportIds = a}) . _Default . _Coerce;
-
--- | The maximum number of results that you want to display as a part of the query.
-decMaxResults :: Lens' DescribeExportConfigurations (Maybe Int)
-decMaxResults = lens _decMaxResults (\ s a -> s{_decMaxResults = a});
-
-instance AWSRequest DescribeExportConfigurations
- where
- type Rs DescribeExportConfigurations =
- DescribeExportConfigurationsResponse
- request = postJSON discovery
- response
- = receiveJSON
- (\ s h x ->
- DescribeExportConfigurationsResponse' <$>
- (x .?> "nextToken") <*>
- (x .?> "exportsInfo" .!@ mempty)
- <*> (pure (fromEnum s)))
-
-instance Hashable DescribeExportConfigurations
-
-instance NFData DescribeExportConfigurations
-
-instance ToHeaders DescribeExportConfigurations where
- toHeaders
- = const
- (mconcat
- ["X-Amz-Target" =#
- ("AWSPoseidonService_V2015_11_01.DescribeExportConfigurations"
- :: ByteString),
- "Content-Type" =#
- ("application/x-amz-json-1.1" :: ByteString)])
-
-instance ToJSON DescribeExportConfigurations where
- toJSON DescribeExportConfigurations'{..}
- = object
- (catMaybes
- [("nextToken" .=) <$> _decNextToken,
- ("exportIds" .=) <$> _decExportIds,
- ("maxResults" .=) <$> _decMaxResults])
-
-instance ToPath DescribeExportConfigurations where
- toPath = const "/"
-
-instance ToQuery DescribeExportConfigurations where
- toQuery = const mempty
-
--- | /See:/ 'describeExportConfigurationsResponse' smart constructor.
-data DescribeExportConfigurationsResponse = DescribeExportConfigurationsResponse'
- { _decrsNextToken :: !(Maybe Text)
- , _decrsExportsInfo :: !(Maybe [ExportInfo])
- , _decrsResponseStatus :: !Int
- } deriving (Eq,Read,Show,Data,Typeable,Generic)
-
--- | Creates a value of 'DescribeExportConfigurationsResponse' with the minimum fields required to make a request.
---
--- Use one of the following lenses to modify other fields as desired:
---
--- * 'decrsNextToken' - A token to get the next set of results. For example, if you specified 100 IDs for @DescribeConfigurationsRequest$configurationIds@ but set @DescribeExportConfigurationsRequest$maxResults@ to 10, you will get results in a set of 10. Use the token in the query to get the next set of 10.
---
--- * 'decrsExportsInfo' - Returns export details. When the status is complete, the response includes a URL for an Amazon S3 bucket where you can view the data in a CSV file.
---
--- * 'decrsResponseStatus' - -- | The response status code.
-describeExportConfigurationsResponse
- :: Int -- ^ 'decrsResponseStatus'
- -> DescribeExportConfigurationsResponse
-describeExportConfigurationsResponse pResponseStatus_ =
- DescribeExportConfigurationsResponse'
- { _decrsNextToken = Nothing
- , _decrsExportsInfo = Nothing
- , _decrsResponseStatus = pResponseStatus_
- }
-
--- | A token to get the next set of results. For example, if you specified 100 IDs for @DescribeConfigurationsRequest$configurationIds@ but set @DescribeExportConfigurationsRequest$maxResults@ to 10, you will get results in a set of 10. Use the token in the query to get the next set of 10.
-decrsNextToken :: Lens' DescribeExportConfigurationsResponse (Maybe Text)
-decrsNextToken = lens _decrsNextToken (\ s a -> s{_decrsNextToken = a});
-
--- | Returns export details. When the status is complete, the response includes a URL for an Amazon S3 bucket where you can view the data in a CSV file.
-decrsExportsInfo :: Lens' DescribeExportConfigurationsResponse [ExportInfo]
-decrsExportsInfo = lens _decrsExportsInfo (\ s a -> s{_decrsExportsInfo = a}) . _Default . _Coerce;
-
--- | -- | The response status code.
-decrsResponseStatus :: Lens' DescribeExportConfigurationsResponse Int
-decrsResponseStatus = lens _decrsResponseStatus (\ s a -> s{_decrsResponseStatus = a});
-
-instance NFData DescribeExportConfigurationsResponse
diff --git a/gen/Network/AWS/Discovery/DescribeExportTasks.hs b/gen/Network/AWS/Discovery/DescribeExportTasks.hs
new file mode 100644
index 0000000..8fe433a
--- /dev/null
+++ b/gen/Network/AWS/Discovery/DescribeExportTasks.hs
@@ -0,0 +1,179 @@
+{-# LANGUAGE DeriveDataTypeable #-}
+{-# LANGUAGE DeriveGeneric #-}
+{-# LANGUAGE OverloadedStrings #-}
+{-# LANGUAGE RecordWildCards #-}
+{-# LANGUAGE TypeFamilies #-}
+
+{-# OPTIONS_GHC -fno-warn-unused-imports #-}
+{-# OPTIONS_GHC -fno-warn-unused-binds #-}
+{-# OPTIONS_GHC -fno-warn-unused-matches #-}
+
+-- Derived from AWS service descriptions, licensed under Apache 2.0.
+
+-- |
+-- Module : Network.AWS.Discovery.DescribeExportTasks
+-- Copyright : (c) 2013-2017 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)
+--
+-- Retrieve status of one or more export tasks. You can retrieve the status of up to 100 export tasks.
+--
+--
+module Network.AWS.Discovery.DescribeExportTasks
+ (
+ -- * Creating a Request
+ describeExportTasks
+ , DescribeExportTasks
+ -- * Request Lenses
+ , detFilters
+ , detNextToken
+ , detExportIds
+ , detMaxResults
+
+ -- * Destructuring the Response
+ , describeExportTasksResponse
+ , DescribeExportTasksResponse
+ -- * Response Lenses
+ , detrsNextToken
+ , detrsExportsInfo
+ , detrsResponseStatus
+ ) where
+
+import Network.AWS.Discovery.Types
+import Network.AWS.Discovery.Types.Product
+import Network.AWS.Lens
+import Network.AWS.Prelude
+import Network.AWS.Request
+import Network.AWS.Response
+
+-- | /See:/ 'describeExportTasks' smart constructor.
+data DescribeExportTasks = DescribeExportTasks'
+ { _detFilters :: !(Maybe [ExportFilter])
+ , _detNextToken :: !(Maybe Text)
+ , _detExportIds :: !(Maybe [Text])
+ , _detMaxResults :: !(Maybe Int)
+ } deriving (Eq, Read, Show, Data, Typeable, Generic)
+
+
+-- | Creates a value of 'DescribeExportTasks' with the minimum fields required to make a request.
+--
+-- Use one of the following lenses to modify other fields as desired:
+--
+-- * 'detFilters' - One or more filters. * @AgentId@ - ID of the agent whose collected data will be exported
+--
+-- * 'detNextToken' - 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.
+--
+-- * 'detExportIds' - One or more unique identifiers used to query the status of an export request.
+--
+-- * 'detMaxResults' - 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.
+describeExportTasks
+ :: DescribeExportTasks
+describeExportTasks =
+ DescribeExportTasks'
+ { _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;
+
+-- | 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});
+
+-- | 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;
+
+-- | 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});
+
+instance AWSRequest DescribeExportTasks where
+ type Rs DescribeExportTasks =
+ DescribeExportTasksResponse
+ request = postJSON discovery
+ response
+ = receiveJSON
+ (\ s h x ->
+ DescribeExportTasksResponse' <$>
+ (x .?> "nextToken") <*>
+ (x .?> "exportsInfo" .!@ mempty)
+ <*> (pure (fromEnum s)))
+
+instance Hashable DescribeExportTasks where
+
+instance NFData DescribeExportTasks where
+
+instance ToHeaders DescribeExportTasks where
+ toHeaders
+ = const
+ (mconcat
+ ["X-Amz-Target" =#
+ ("AWSPoseidonService_V2015_11_01.DescribeExportTasks"
+ :: ByteString),
+ "Content-Type" =#
+ ("application/x-amz-json-1.1" :: ByteString)])
+
+instance ToJSON DescribeExportTasks where
+ toJSON DescribeExportTasks'{..}
+ = object
+ (catMaybes
+ [("filters" .=) <$> _detFilters,
+ ("nextToken" .=) <$> _detNextToken,
+ ("exportIds" .=) <$> _detExportIds,
+ ("maxResults" .=) <$> _detMaxResults])
+
+instance ToPath DescribeExportTasks where
+ toPath = const "/"
+
+instance ToQuery DescribeExportTasks where
+ toQuery = const mempty
+
+-- | /See:/ 'describeExportTasksResponse' smart constructor.
+data DescribeExportTasksResponse = DescribeExportTasksResponse'
+ { _detrsNextToken :: !(Maybe Text)
+ , _detrsExportsInfo :: !(Maybe [ExportInfo])
+ , _detrsResponseStatus :: !Int
+ } deriving (Eq, Read, Show, Data, Typeable, Generic)
+
+
+-- | Creates a value of 'DescribeExportTasksResponse' with the minimum fields required to make a request.
+--
+-- Use one of the following lenses to modify other fields as desired:
+--
+-- * 'detrsNextToken' - 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.
+--
+-- * 'detrsExportsInfo' - 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.
+--
+-- * 'detrsResponseStatus' - -- | The response status code.
+describeExportTasksResponse
+ :: Int -- ^ 'detrsResponseStatus'
+ -> DescribeExportTasksResponse
+describeExportTasksResponse pResponseStatus_ =
+ DescribeExportTasksResponse'
+ { _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});
+
+-- | 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;
+
+-- | -- | The response status code.
+detrsResponseStatus :: Lens' DescribeExportTasksResponse Int
+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 d1cbb01..1b918ad 100644
--- a/gen/Network/AWS/Discovery/DescribeTags.hs
+++ b/gen/Network/AWS/Discovery/DescribeTags.hs
@@ -12,9 +12,9 @@
-- |
-- Module : Network.AWS.Discovery.DescribeTags
--- Copyright : (c) 2013-2016 Brendan Hay
+-- Copyright : (c) 2013-2017 Brendan Hay
-- License : Mozilla Public License, v. 2.0.
--- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>
+-- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com>
-- Stability : auto-generated
-- Portability : non-portable (GHC extensions)
--
@@ -40,19 +40,20 @@ module Network.AWS.Discovery.DescribeTags
, dtrsResponseStatus
) where
-import Network.AWS.Discovery.Types
-import Network.AWS.Discovery.Types.Product
-import Network.AWS.Lens
-import Network.AWS.Prelude
-import Network.AWS.Request
-import Network.AWS.Response
+import Network.AWS.Discovery.Types
+import Network.AWS.Discovery.Types.Product
+import Network.AWS.Lens
+import Network.AWS.Prelude
+import Network.AWS.Request
+import Network.AWS.Response
-- | /See:/ 'describeTags' smart constructor.
data DescribeTags = DescribeTags'
- { _dtFilters :: !(Maybe [TagFilter])
- , _dtNextToken :: !(Maybe Text)
- , _dtMaxResults :: !(Maybe Int)
- } deriving (Eq,Read,Show,Data,Typeable,Generic)
+ { _dtFilters :: !(Maybe [TagFilter])
+ , _dtNextToken :: !(Maybe Text)
+ , _dtMaxResults :: !(Maybe Int)
+ } deriving (Eq, Read, Show, Data, Typeable, Generic)
+
-- | Creates a value of 'DescribeTags' with the minimum fields required to make a request.
--
@@ -62,15 +63,13 @@ data DescribeTags = DescribeTags'
--
-- * 'dtNextToken' - A token to start the list. Use this token to get the next set of results.
--
--- * 'dtMaxResults' - The total number of items to return. The maximum value is 100.
+-- * 'dtMaxResults' - The total number of items to return in a single page of output. The maximum value is 100.
describeTags
:: DescribeTags
describeTags =
- DescribeTags'
- { _dtFilters = Nothing
- , _dtNextToken = Nothing
- , _dtMaxResults = Nothing
- }
+ DescribeTags'
+ {_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]
@@ -80,7 +79,7 @@ dtFilters = lens _dtFilters (\ s a -> s{_dtFilters = a}) . _Default . _Coerce;
dtNextToken :: Lens' DescribeTags (Maybe Text)
dtNextToken = lens _dtNextToken (\ s a -> s{_dtNextToken = a});
--- | The total number of items to return. The maximum value is 100.
+-- | 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});
@@ -94,9 +93,9 @@ instance AWSRequest DescribeTags where
(x .?> "nextToken") <*> (x .?> "tags" .!@ mempty) <*>
(pure (fromEnum s)))
-instance Hashable DescribeTags
+instance Hashable DescribeTags where
-instance NFData DescribeTags
+instance NFData DescribeTags where
instance ToHeaders DescribeTags where
toHeaders
@@ -124,10 +123,11 @@ instance ToQuery DescribeTags where
-- | /See:/ 'describeTagsResponse' smart constructor.
data DescribeTagsResponse = DescribeTagsResponse'
- { _dtrsNextToken :: !(Maybe Text)
- , _dtrsTags :: !(Maybe [ConfigurationTag])
- , _dtrsResponseStatus :: !Int
- } deriving (Eq,Read,Show,Data,Typeable,Generic)
+ { _dtrsNextToken :: !(Maybe Text)
+ , _dtrsTags :: !(Maybe [ConfigurationTag])
+ , _dtrsResponseStatus :: !Int
+ } deriving (Eq, Read, Show, Data, Typeable, Generic)
+
-- | Creates a value of 'DescribeTagsResponse' with the minimum fields required to make a request.
--
@@ -142,11 +142,12 @@ describeTagsResponse
:: Int -- ^ 'dtrsResponseStatus'
-> DescribeTagsResponse
describeTagsResponse pResponseStatus_ =
- DescribeTagsResponse'
- { _dtrsNextToken = Nothing
- , _dtrsTags = Nothing
- , _dtrsResponseStatus = pResponseStatus_
- }
+ DescribeTagsResponse'
+ { _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)
@@ -160,4 +161,4 @@ dtrsTags = lens _dtrsTags (\ s a -> s{_dtrsTags = a}) . _Default . _Coerce;
dtrsResponseStatus :: Lens' DescribeTagsResponse Int
dtrsResponseStatus = lens _dtrsResponseStatus (\ s a -> s{_dtrsResponseStatus = a});
-instance NFData DescribeTagsResponse
+instance NFData DescribeTagsResponse where
diff --git a/gen/Network/AWS/Discovery/DisassociateConfigurationItemsFromApplication.hs b/gen/Network/AWS/Discovery/DisassociateConfigurationItemsFromApplication.hs
new file mode 100644
index 0000000..98f1e4b
--- /dev/null
+++ b/gen/Network/AWS/Discovery/DisassociateConfigurationItemsFromApplication.hs
@@ -0,0 +1,159 @@
+{-# LANGUAGE DeriveDataTypeable #-}
+{-# LANGUAGE DeriveGeneric #-}
+{-# LANGUAGE OverloadedStrings #-}
+{-# LANGUAGE RecordWildCards #-}
+{-# LANGUAGE TypeFamilies #-}
+
+{-# OPTIONS_GHC -fno-warn-unused-imports #-}
+{-# OPTIONS_GHC -fno-warn-unused-binds #-}
+{-# OPTIONS_GHC -fno-warn-unused-matches #-}
+
+-- Derived from AWS service descriptions, licensed under Apache 2.0.
+
+-- |
+-- Module : Network.AWS.Discovery.DisassociateConfigurationItemsFromApplication
+-- Copyright : (c) 2013-2017 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)
+--
+-- Disassociates one or more configuration items from an application.
+--
+--
+module Network.AWS.Discovery.DisassociateConfigurationItemsFromApplication
+ (
+ -- * Creating a Request
+ disassociateConfigurationItemsFromApplication
+ , DisassociateConfigurationItemsFromApplication
+ -- * Request Lenses
+ , dcifaApplicationConfigurationId
+ , dcifaConfigurationIds
+
+ -- * Destructuring the Response
+ , disassociateConfigurationItemsFromApplicationResponse
+ , DisassociateConfigurationItemsFromApplicationResponse
+ -- * Response Lenses
+ , dcifarsResponseStatus
+ ) where
+
+import Network.AWS.Discovery.Types
+import Network.AWS.Discovery.Types.Product
+import Network.AWS.Lens
+import Network.AWS.Prelude
+import Network.AWS.Request
+import Network.AWS.Response
+
+-- | /See:/ 'disassociateConfigurationItemsFromApplication' smart constructor.
+data DisassociateConfigurationItemsFromApplication = DisassociateConfigurationItemsFromApplication'
+ { _dcifaApplicationConfigurationId :: !Text
+ , _dcifaConfigurationIds :: ![Text]
+ } deriving (Eq, Read, Show, Data, Typeable, Generic)
+
+
+-- | Creates a value of 'DisassociateConfigurationItemsFromApplication' with the minimum fields required to make a request.
+--
+-- Use one of the following lenses to modify other fields as desired:
+--
+-- * 'dcifaApplicationConfigurationId' - Configuration ID of an application from which each item is disassociated.
+--
+-- * 'dcifaConfigurationIds' - Configuration ID of each item to be disassociated from an application.
+disassociateConfigurationItemsFromApplication
+ :: Text -- ^ 'dcifaApplicationConfigurationId'
+ -> DisassociateConfigurationItemsFromApplication
+disassociateConfigurationItemsFromApplication pApplicationConfigurationId_ =
+ DisassociateConfigurationItemsFromApplication'
+ { _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});
+
+-- | Configuration ID of each item to be disassociated from an application.
+dcifaConfigurationIds :: Lens' DisassociateConfigurationItemsFromApplication [Text]
+dcifaConfigurationIds = lens _dcifaConfigurationIds (\ s a -> s{_dcifaConfigurationIds = a}) . _Coerce;
+
+instance AWSRequest
+ DisassociateConfigurationItemsFromApplication
+ where
+ type Rs DisassociateConfigurationItemsFromApplication
+ =
+ DisassociateConfigurationItemsFromApplicationResponse
+ request = postJSON discovery
+ response
+ = receiveEmpty
+ (\ s h x ->
+ DisassociateConfigurationItemsFromApplicationResponse'
+ <$> (pure (fromEnum s)))
+
+instance Hashable
+ DisassociateConfigurationItemsFromApplication
+ where
+
+instance NFData
+ DisassociateConfigurationItemsFromApplication
+ where
+
+instance ToHeaders
+ DisassociateConfigurationItemsFromApplication
+ where
+ toHeaders
+ = const
+ (mconcat
+ ["X-Amz-Target" =#
+ ("AWSPoseidonService_V2015_11_01.DisassociateConfigurationItemsFromApplication"
+ :: ByteString),
+ "Content-Type" =#
+ ("application/x-amz-json-1.1" :: ByteString)])
+
+instance ToJSON
+ DisassociateConfigurationItemsFromApplication
+ where
+ toJSON
+ DisassociateConfigurationItemsFromApplication'{..}
+ = object
+ (catMaybes
+ [Just
+ ("applicationConfigurationId" .=
+ _dcifaApplicationConfigurationId),
+ Just ("configurationIds" .= _dcifaConfigurationIds)])
+
+instance ToPath
+ DisassociateConfigurationItemsFromApplication
+ where
+ toPath = const "/"
+
+instance ToQuery
+ DisassociateConfigurationItemsFromApplication
+ where
+ toQuery = const mempty
+
+-- | /See:/ 'disassociateConfigurationItemsFromApplicationResponse' smart constructor.
+newtype DisassociateConfigurationItemsFromApplicationResponse = DisassociateConfigurationItemsFromApplicationResponse'
+ { _dcifarsResponseStatus :: Int
+ } deriving (Eq, Read, Show, Data, Typeable, Generic)
+
+
+-- | Creates a value of 'DisassociateConfigurationItemsFromApplicationResponse' with the minimum fields required to make a request.
+--
+-- Use one of the following lenses to modify other fields as desired:
+--
+-- * 'dcifarsResponseStatus' - -- | The response status code.
+disassociateConfigurationItemsFromApplicationResponse
+ :: Int -- ^ 'dcifarsResponseStatus'
+ -> DisassociateConfigurationItemsFromApplicationResponse
+disassociateConfigurationItemsFromApplicationResponse pResponseStatus_ =
+ DisassociateConfigurationItemsFromApplicationResponse'
+ {_dcifarsResponseStatus = pResponseStatus_}
+
+
+-- | -- | The response status code.
+dcifarsResponseStatus :: Lens' DisassociateConfigurationItemsFromApplicationResponse Int
+dcifarsResponseStatus = lens _dcifarsResponseStatus (\ s a -> s{_dcifarsResponseStatus = a});
+
+instance NFData
+ DisassociateConfigurationItemsFromApplicationResponse
+ where
diff --git a/gen/Network/AWS/Discovery/ExportConfigurations.hs b/gen/Network/AWS/Discovery/ExportConfigurations.hs
deleted file mode 100644
index 66efd08..0000000
--- a/gen/Network/AWS/Discovery/ExportConfigurations.hs
+++ /dev/null
@@ -1,119 +0,0 @@
-{-# LANGUAGE DeriveDataTypeable #-}
-{-# LANGUAGE DeriveGeneric #-}
-{-# LANGUAGE OverloadedStrings #-}
-{-# LANGUAGE RecordWildCards #-}
-{-# LANGUAGE TypeFamilies #-}
-
-{-# OPTIONS_GHC -fno-warn-unused-imports #-}
-{-# OPTIONS_GHC -fno-warn-unused-binds #-}
-{-# OPTIONS_GHC -fno-warn-unused-matches #-}
-
--- Derived from AWS service descriptions, licensed under Apache 2.0.
-
--- |
--- Module : Network.AWS.Discovery.ExportConfigurations
--- Copyright : (c) 2013-2016 Brendan Hay
--- License : Mozilla Public License, v. 2.0.
--- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>
--- Stability : auto-generated
--- Portability : non-portable (GHC extensions)
---
--- Exports all discovered configuration data to an Amazon S3 bucket or an application that enables you to view and evaluate the data. Data includes tags and tag associations, processes, connections, servers, and system performance. This API returns an export ID which you can query using the /GetExportStatus/ API. The system imposes a limit of two configuration exports in six hours.
---
---
-module Network.AWS.Discovery.ExportConfigurations
- (
- -- * Creating a Request
- exportConfigurations
- , ExportConfigurations
-
- -- * Destructuring the Response
- , exportConfigurationsResponse
- , ExportConfigurationsResponse
- -- * Response Lenses
- , ecrsExportId
- , ecrsResponseStatus
- ) where
-
-import Network.AWS.Discovery.Types
-import Network.AWS.Discovery.Types.Product
-import Network.AWS.Lens
-import Network.AWS.Prelude
-import Network.AWS.Request
-import Network.AWS.Response
-
--- | /See:/ 'exportConfigurations' smart constructor.
-data ExportConfigurations =
- ExportConfigurations'
- deriving (Eq,Read,Show,Data,Typeable,Generic)
-
--- | Creates a value of 'ExportConfigurations' with the minimum fields required to make a request.
---
-exportConfigurations
- :: ExportConfigurations
-exportConfigurations = ExportConfigurations'
-
-instance AWSRequest ExportConfigurations where
- type Rs ExportConfigurations =
- ExportConfigurationsResponse
- request = postJSON discovery
- response
- = receiveJSON
- (\ s h x ->
- ExportConfigurationsResponse' <$>
- (x .?> "exportId") <*> (pure (fromEnum s)))
-
-instance Hashable ExportConfigurations
-
-instance NFData ExportConfigurations
-
-instance ToHeaders ExportConfigurations where
- toHeaders
- = const
- (mconcat
- ["X-Amz-Target" =#
- ("AWSPoseidonService_V2015_11_01.ExportConfigurations"
- :: ByteString),
- "Content-Type" =#
- ("application/x-amz-json-1.1" :: ByteString)])
-
-instance ToJSON ExportConfigurations where
- toJSON = const (Object mempty)
-
-instance ToPath ExportConfigurations where
- toPath = const "/"
-
-instance ToQuery ExportConfigurations where
- toQuery = const mempty
-
--- | /See:/ 'exportConfigurationsResponse' smart constructor.
-data ExportConfigurationsResponse = ExportConfigurationsResponse'
- { _ecrsExportId :: !(Maybe Text)
- , _ecrsResponseStatus :: !Int
- } deriving (Eq,Read,Show,Data,Typeable,Generic)
-
--- | Creates a value of 'ExportConfigurationsResponse' with the minimum fields required to make a request.
---
--- Use one of the following lenses to modify other fields as desired:
---
--- * 'ecrsExportId' - A unique identifier that you can use to query the export status.
---
--- * 'ecrsResponseStatus' - -- | The response status code.
-exportConfigurationsResponse
- :: Int -- ^ 'ecrsResponseStatus'
- -> ExportConfigurationsResponse
-exportConfigurationsResponse pResponseStatus_ =
- ExportConfigurationsResponse'
- { _ecrsExportId = Nothing
- , _ecrsResponseStatus = pResponseStatus_
- }
-
--- | A unique identifier that you can use to query the export status.
-ecrsExportId :: Lens' ExportConfigurationsResponse (Maybe Text)
-ecrsExportId = lens _ecrsExportId (\ s a -> s{_ecrsExportId = a});
-
--- | -- | The response status code.
-ecrsResponseStatus :: Lens' ExportConfigurationsResponse Int
-ecrsResponseStatus = lens _ecrsResponseStatus (\ s a -> s{_ecrsResponseStatus = a});
-
-instance NFData ExportConfigurationsResponse
diff --git a/gen/Network/AWS/Discovery/GetDiscoverySummary.hs b/gen/Network/AWS/Discovery/GetDiscoverySummary.hs
new file mode 100644
index 0000000..1164e6c
--- /dev/null
+++ b/gen/Network/AWS/Discovery/GetDiscoverySummary.hs
@@ -0,0 +1,173 @@
+{-# LANGUAGE DeriveDataTypeable #-}
+{-# LANGUAGE DeriveGeneric #-}
+{-# LANGUAGE OverloadedStrings #-}
+{-# LANGUAGE RecordWildCards #-}
+{-# LANGUAGE TypeFamilies #-}
+
+{-# OPTIONS_GHC -fno-warn-unused-imports #-}
+{-# OPTIONS_GHC -fno-warn-unused-binds #-}
+{-# OPTIONS_GHC -fno-warn-unused-matches #-}
+
+-- Derived from AWS service descriptions, licensed under Apache 2.0.
+
+-- |
+-- Module : Network.AWS.Discovery.GetDiscoverySummary
+-- Copyright : (c) 2013-2017 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)
+--
+-- Retrieves a short summary of discovered assets.
+--
+--
+module Network.AWS.Discovery.GetDiscoverySummary
+ (
+ -- * Creating a Request
+ getDiscoverySummary
+ , GetDiscoverySummary
+
+ -- * Destructuring the Response
+ , getDiscoverySummaryResponse
+ , GetDiscoverySummaryResponse
+ -- * Response Lenses
+ , gdsrsServers
+ , gdsrsServersMappedtoTags
+ , gdsrsServersMappedToApplications
+ , gdsrsConnectorSummary
+ , gdsrsAgentSummary
+ , gdsrsApplications
+ , gdsrsResponseStatus
+ ) where
+
+import Network.AWS.Discovery.Types
+import Network.AWS.Discovery.Types.Product
+import Network.AWS.Lens
+import Network.AWS.Prelude
+import Network.AWS.Request
+import Network.AWS.Response
+
+-- | /See:/ 'getDiscoverySummary' smart constructor.
+data GetDiscoverySummary =
+ GetDiscoverySummary'
+ deriving (Eq, Read, Show, Data, Typeable, Generic)
+
+
+-- | Creates a value of 'GetDiscoverySummary' with the minimum fields required to make a request.
+--
+getDiscoverySummary
+ :: GetDiscoverySummary
+getDiscoverySummary = GetDiscoverySummary'
+
+
+instance AWSRequest GetDiscoverySummary where
+ type Rs GetDiscoverySummary =
+ GetDiscoverySummaryResponse
+ request = postJSON discovery
+ response
+ = receiveJSON
+ (\ s h x ->
+ GetDiscoverySummaryResponse' <$>
+ (x .?> "servers") <*> (x .?> "serversMappedtoTags")
+ <*> (x .?> "serversMappedToApplications")
+ <*> (x .?> "connectorSummary")
+ <*> (x .?> "agentSummary")
+ <*> (x .?> "applications")
+ <*> (pure (fromEnum s)))
+
+instance Hashable GetDiscoverySummary where
+
+instance NFData GetDiscoverySummary where
+
+instance ToHeaders GetDiscoverySummary where
+ toHeaders
+ = const
+ (mconcat
+ ["X-Amz-Target" =#
+ ("AWSPoseidonService_V2015_11_01.GetDiscoverySummary"
+ :: ByteString),
+ "Content-Type" =#
+ ("application/x-amz-json-1.1" :: ByteString)])
+
+instance ToJSON GetDiscoverySummary where
+ toJSON = const (Object mempty)
+
+instance ToPath GetDiscoverySummary where
+ toPath = const "/"
+
+instance ToQuery GetDiscoverySummary where
+ toQuery = const mempty
+
+-- | /See:/ 'getDiscoverySummaryResponse' smart constructor.
+data GetDiscoverySummaryResponse = GetDiscoverySummaryResponse'
+ { _gdsrsServers :: !(Maybe Integer)
+ , _gdsrsServersMappedtoTags :: !(Maybe Integer)
+ , _gdsrsServersMappedToApplications :: !(Maybe Integer)
+ , _gdsrsConnectorSummary :: !(Maybe CustomerConnectorInfo)
+ , _gdsrsAgentSummary :: !(Maybe CustomerAgentInfo)
+ , _gdsrsApplications :: !(Maybe Integer)
+ , _gdsrsResponseStatus :: !Int
+ } deriving (Eq, Read, Show, Data, Typeable, Generic)
+
+
+-- | Creates a value of 'GetDiscoverySummaryResponse' with the minimum fields required to make a request.
+--
+-- Use one of the following lenses to modify other fields as desired:
+--
+-- * 'gdsrsServers' - The number of servers discovered.
+--
+-- * 'gdsrsServersMappedtoTags' - The number of servers mapped to tags.
+--
+-- * 'gdsrsServersMappedToApplications' - The number of servers mapped to applications.
+--
+-- * 'gdsrsConnectorSummary' - Details about discovered connectors, including connector status and health.
+--
+-- * 'gdsrsAgentSummary' - Details about discovered agents, including agent status and health.
+--
+-- * 'gdsrsApplications' - The number of applications discovered.
+--
+-- * 'gdsrsResponseStatus' - -- | The response status code.
+getDiscoverySummaryResponse
+ :: Int -- ^ 'gdsrsResponseStatus'
+ -> GetDiscoverySummaryResponse
+getDiscoverySummaryResponse pResponseStatus_ =
+ GetDiscoverySummaryResponse'
+ { _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});
+
+-- | The number of servers mapped to tags.
+gdsrsServersMappedtoTags :: Lens' GetDiscoverySummaryResponse (Maybe Integer)
+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});
+
+-- | Details about discovered connectors, including connector status and health.
+gdsrsConnectorSummary :: Lens' GetDiscoverySummaryResponse (Maybe CustomerConnectorInfo)
+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});
+
+-- | The number of applications discovered.
+gdsrsApplications :: Lens' GetDiscoverySummaryResponse (Maybe Integer)
+gdsrsApplications = lens _gdsrsApplications (\ s a -> s{_gdsrsApplications = a});
+
+-- | -- | The response status code.
+gdsrsResponseStatus :: Lens' GetDiscoverySummaryResponse Int
+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 4a992dd..e33cc71 100644
--- a/gen/Network/AWS/Discovery/ListConfigurations.hs
+++ b/gen/Network/AWS/Discovery/ListConfigurations.hs
@@ -12,13 +12,13 @@
-- |
-- Module : Network.AWS.Discovery.ListConfigurations
--- Copyright : (c) 2013-2016 Brendan Hay
+-- Copyright : (c) 2013-2017 Brendan Hay
-- License : Mozilla Public License, v. 2.0.
--- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>
+-- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com>
-- Stability : auto-generated
-- Portability : non-portable (GHC extensions)
--
--- Retrieves a list of configurations items according to the criteria you specify in a filter. The filter criteria identify relationship requirements.
+-- Retrieves a list of configuration items according to criteria that you specify in a filter. The filter criteria identifies the relationship requirements.
--
--
module Network.AWS.Discovery.ListConfigurations
@@ -27,6 +27,7 @@ module Network.AWS.Discovery.ListConfigurations
listConfigurations
, ListConfigurations
-- * Request Lenses
+ , lcOrderBy
, lcFilters
, lcNextToken
, lcMaxResults
@@ -41,48 +42,58 @@ module Network.AWS.Discovery.ListConfigurations
, lcrsResponseStatus
) where
-import Network.AWS.Discovery.Types
-import Network.AWS.Discovery.Types.Product
-import Network.AWS.Lens
-import Network.AWS.Prelude
-import Network.AWS.Request
-import Network.AWS.Response
+import Network.AWS.Discovery.Types
+import Network.AWS.Discovery.Types.Product
+import Network.AWS.Lens
+import Network.AWS.Prelude
+import Network.AWS.Request
+import Network.AWS.Response
-- | /See:/ 'listConfigurations' smart constructor.
data ListConfigurations = ListConfigurations'
- { _lcFilters :: !(Maybe [Filter])
- , _lcNextToken :: !(Maybe Text)
- , _lcMaxResults :: !(Maybe Int)
- , _lcConfigurationType :: !ConfigurationItemType
- } deriving (Eq,Read,Show,Data,Typeable,Generic)
+ { _lcOrderBy :: !(Maybe [OrderByElement])
+ , _lcFilters :: !(Maybe [Filter])
+ , _lcNextToken :: !(Maybe Text)
+ , _lcMaxResults :: !(Maybe Int)
+ , _lcConfigurationType :: !ConfigurationItemType
+ } deriving (Eq, Read, Show, Data, Typeable, Generic)
+
-- | Creates a value of 'ListConfigurations' with the minimum fields required to make a request.
--
-- Use one of the following lenses to modify other fields as desired:
--
--- * 'lcFilters' - You can filter the list using a /key/ -/value/ format. For example: @{"key": "serverType", "value": "webServer"}@ You can separate these items by using logical operators.
+-- * 'lcOrderBy' - 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> .
+--
+-- * 'lcFilters' - 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> .
--
--- * 'lcNextToken' - A token to start the list. Use this token to get the next set of results.
+-- * 'lcNextToken' - 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.
--
-- * 'lcMaxResults' - The total number of items to return. The maximum value is 100.
--
--- * 'lcConfigurationType' - A valid configuration identified by the Discovery Service.
+-- * 'lcConfigurationType' - A valid configuration identified by Application Discovery Service.
listConfigurations
:: ConfigurationItemType -- ^ 'lcConfigurationType'
-> ListConfigurations
listConfigurations pConfigurationType_ =
- ListConfigurations'
- { _lcFilters = Nothing
- , _lcNextToken = Nothing
- , _lcMaxResults = Nothing
- , _lcConfigurationType = pConfigurationType_
- }
-
--- | You can filter the list using a /key/ -/value/ format. For example: @{"key": "serverType", "value": "webServer"}@ You can separate these items by using logical operators.
+ ListConfigurations'
+ { _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;
+
+-- | 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;
--- | A token to start the list. Use this token to get the next set of results.
+-- | 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});
@@ -90,7 +101,7 @@ lcNextToken = lens _lcNextToken (\ s a -> s{_lcNextToken = a});
lcMaxResults :: Lens' ListConfigurations (Maybe Int)
lcMaxResults = lens _lcMaxResults (\ s a -> s{_lcMaxResults = a});
--- | A valid configuration identified by the Discovery Service.
+-- | A valid configuration identified by Application Discovery Service.
lcConfigurationType :: Lens' ListConfigurations ConfigurationItemType
lcConfigurationType = lens _lcConfigurationType (\ s a -> s{_lcConfigurationType = a});
@@ -106,9 +117,9 @@ instance AWSRequest ListConfigurations where
(x .?> "nextToken")
<*> (pure (fromEnum s)))
-instance Hashable ListConfigurations
+instance Hashable ListConfigurations where
-instance NFData ListConfigurations
+instance NFData ListConfigurations where
instance ToHeaders ListConfigurations where
toHeaders
@@ -124,7 +135,8 @@ instance ToJSON ListConfigurations where
toJSON ListConfigurations'{..}
= object
(catMaybes
- [("filters" .=) <$> _lcFilters,
+ [("orderBy" .=) <$> _lcOrderBy,
+ ("filters" .=) <$> _lcFilters,
("nextToken" .=) <$> _lcNextToken,
("maxResults" .=) <$> _lcMaxResults,
Just ("configurationType" .= _lcConfigurationType)])
@@ -137,10 +149,11 @@ instance ToQuery ListConfigurations where
-- | /See:/ 'listConfigurationsResponse' smart constructor.
data ListConfigurationsResponse = ListConfigurationsResponse'
- { _lcrsConfigurations :: !(Maybe [Map Text Text])
- , _lcrsNextToken :: !(Maybe Text)
- , _lcrsResponseStatus :: !Int
- } deriving (Eq,Read,Show,Data,Typeable,Generic)
+ { _lcrsConfigurations :: !(Maybe [Map Text Text])
+ , _lcrsNextToken :: !(Maybe Text)
+ , _lcrsResponseStatus :: !Int
+ } deriving (Eq, Read, Show, Data, Typeable, Generic)
+
-- | Creates a value of 'ListConfigurationsResponse' with the minimum fields required to make a request.
--
@@ -148,24 +161,25 @@ data ListConfigurationsResponse = ListConfigurationsResponse'
--
-- * 'lcrsConfigurations' - Returns configuration details, including the configuration ID, attribute names, and attribute values.
--
--- * 'lcrsNextToken' - The call returns a token. Use this token to get the next set of results.
+-- * 'lcrsNextToken' - 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.
--
-- * 'lcrsResponseStatus' - -- | The response status code.
listConfigurationsResponse
:: Int -- ^ 'lcrsResponseStatus'
-> ListConfigurationsResponse
listConfigurationsResponse pResponseStatus_ =
- ListConfigurationsResponse'
- { _lcrsConfigurations = Nothing
- , _lcrsNextToken = Nothing
- , _lcrsResponseStatus = pResponseStatus_
- }
+ ListConfigurationsResponse'
+ { _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;
--- | The call returns a token. Use this token to get the next set of results.
+-- | 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});
@@ -173,4 +187,4 @@ lcrsNextToken = lens _lcrsNextToken (\ s a -> s{_lcrsNextToken = a});
lcrsResponseStatus :: Lens' ListConfigurationsResponse Int
lcrsResponseStatus = lens _lcrsResponseStatus (\ s a -> s{_lcrsResponseStatus = a});
-instance NFData ListConfigurationsResponse
+instance NFData ListConfigurationsResponse where
diff --git a/gen/Network/AWS/Discovery/ListServerNeighbors.hs b/gen/Network/AWS/Discovery/ListServerNeighbors.hs
new file mode 100644
index 0000000..6e09b6f
--- /dev/null
+++ b/gen/Network/AWS/Discovery/ListServerNeighbors.hs
@@ -0,0 +1,202 @@
+{-# LANGUAGE DeriveDataTypeable #-}
+{-# LANGUAGE DeriveGeneric #-}
+{-# LANGUAGE OverloadedStrings #-}
+{-# LANGUAGE RecordWildCards #-}
+{-# LANGUAGE TypeFamilies #-}
+
+{-# OPTIONS_GHC -fno-warn-unused-imports #-}
+{-# OPTIONS_GHC -fno-warn-unused-binds #-}
+{-# OPTIONS_GHC -fno-warn-unused-matches #-}
+
+-- Derived from AWS service descriptions, licensed under Apache 2.0.
+
+-- |
+-- Module : Network.AWS.Discovery.ListServerNeighbors
+-- Copyright : (c) 2013-2017 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)
+--
+-- Retrieves a list of servers that are one network hop away from a specified server.
+--
+--
+module Network.AWS.Discovery.ListServerNeighbors
+ (
+ -- * Creating a Request
+ listServerNeighbors
+ , ListServerNeighbors
+ -- * Request Lenses
+ , lsnPortInformationNeeded
+ , lsnNeighborConfigurationIds
+ , lsnNextToken
+ , lsnMaxResults
+ , lsnConfigurationId
+
+ -- * Destructuring the Response
+ , listServerNeighborsResponse
+ , ListServerNeighborsResponse
+ -- * Response Lenses
+ , lsnrsNextToken
+ , lsnrsKnownDependencyCount
+ , lsnrsResponseStatus
+ , lsnrsNeighbors
+ ) where
+
+import Network.AWS.Discovery.Types
+import Network.AWS.Discovery.Types.Product
+import Network.AWS.Lens
+import Network.AWS.Prelude
+import Network.AWS.Request
+import Network.AWS.Response
+
+-- | /See:/ 'listServerNeighbors' smart constructor.
+data ListServerNeighbors = ListServerNeighbors'
+ { _lsnPortInformationNeeded :: !(Maybe Bool)
+ , _lsnNeighborConfigurationIds :: !(Maybe [Text])
+ , _lsnNextToken :: !(Maybe Text)
+ , _lsnMaxResults :: !(Maybe Int)
+ , _lsnConfigurationId :: !Text
+ } deriving (Eq, Read, Show, Data, Typeable, Generic)
+
+
+-- | Creates a value of 'ListServerNeighbors' with the minimum fields required to make a request.
+--
+-- Use one of the following lenses to modify other fields as desired:
+--
+-- * 'lsnPortInformationNeeded' - Flag to indicate if port and protocol information is needed as part of the response.
+--
+-- * 'lsnNeighborConfigurationIds' - List of configuration IDs to test for one-hop-away.
+--
+-- * 'lsnNextToken' - 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.
+--
+-- * 'lsnMaxResults' - Maximum number of results to return in a single page of output.
+--
+-- * 'lsnConfigurationId' - Configuration ID of the server for which neighbors are being listed.
+listServerNeighbors
+ :: Text -- ^ 'lsnConfigurationId'
+ -> ListServerNeighbors
+listServerNeighbors pConfigurationId_ =
+ ListServerNeighbors'
+ { _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});
+
+-- | List of configuration IDs to test for one-hop-away.
+lsnNeighborConfigurationIds :: Lens' ListServerNeighbors [Text]
+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});
+
+-- | 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});
+
+-- | Configuration ID of the server for which neighbors are being listed.
+lsnConfigurationId :: Lens' ListServerNeighbors Text
+lsnConfigurationId = lens _lsnConfigurationId (\ s a -> s{_lsnConfigurationId = a});
+
+instance AWSRequest ListServerNeighbors where
+ type Rs ListServerNeighbors =
+ ListServerNeighborsResponse
+ request = postJSON discovery
+ response
+ = receiveJSON
+ (\ s h x ->
+ ListServerNeighborsResponse' <$>
+ (x .?> "nextToken") <*>
+ (x .?> "knownDependencyCount")
+ <*> (pure (fromEnum s))
+ <*> (x .?> "neighbors" .!@ mempty))
+
+instance Hashable ListServerNeighbors where
+
+instance NFData ListServerNeighbors where
+
+instance ToHeaders ListServerNeighbors where
+ toHeaders
+ = const
+ (mconcat
+ ["X-Amz-Target" =#
+ ("AWSPoseidonService_V2015_11_01.ListServerNeighbors"
+ :: ByteString),
+ "Content-Type" =#
+ ("application/x-amz-json-1.1" :: ByteString)])
+
+instance ToJSON ListServerNeighbors where
+ toJSON ListServerNeighbors'{..}
+ = object
+ (catMaybes
+ [("portInformationNeeded" .=) <$>
+ _lsnPortInformationNeeded,
+ ("neighborConfigurationIds" .=) <$>
+ _lsnNeighborConfigurationIds,
+ ("nextToken" .=) <$> _lsnNextToken,
+ ("maxResults" .=) <$> _lsnMaxResults,
+ Just ("configurationId" .= _lsnConfigurationId)])
+
+instance ToPath ListServerNeighbors where
+ toPath = const "/"
+
+instance ToQuery ListServerNeighbors where
+ toQuery = const mempty
+
+-- | /See:/ 'listServerNeighborsResponse' smart constructor.
+data ListServerNeighborsResponse = ListServerNeighborsResponse'
+ { _lsnrsNextToken :: !(Maybe Text)
+ , _lsnrsKnownDependencyCount :: !(Maybe Integer)
+ , _lsnrsResponseStatus :: !Int
+ , _lsnrsNeighbors :: ![NeighborConnectionDetail]
+ } deriving (Eq, Read, Show, Data, Typeable, Generic)
+
+
+-- | Creates a value of 'ListServerNeighborsResponse' with the minimum fields required to make a request.
+--
+-- Use one of the following lenses to modify other fields as desired:
+--
+-- * 'lsnrsNextToken' - 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.
+--
+-- * 'lsnrsKnownDependencyCount' - Count of distinct servers that are one hop away from the given server.
+--
+-- * 'lsnrsResponseStatus' - -- | The response status code.
+--
+-- * 'lsnrsNeighbors' - List of distinct servers that are one hop away from the given server.
+listServerNeighborsResponse
+ :: Int -- ^ 'lsnrsResponseStatus'
+ -> ListServerNeighborsResponse
+listServerNeighborsResponse pResponseStatus_ =
+ ListServerNeighborsResponse'
+ { _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});
+
+-- | 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});
+
+-- | -- | The response status code.
+lsnrsResponseStatus :: Lens' ListServerNeighborsResponse Int
+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;
+
+instance NFData ListServerNeighborsResponse where
diff --git a/gen/Network/AWS/Discovery/StartDataCollectionByAgentIds.hs b/gen/Network/AWS/Discovery/StartDataCollectionByAgentIds.hs
index eb4ecf3..f8bc6a2 100644
--- a/gen/Network/AWS/Discovery/StartDataCollectionByAgentIds.hs
+++ b/gen/Network/AWS/Discovery/StartDataCollectionByAgentIds.hs
@@ -12,13 +12,13 @@
-- |
-- Module : Network.AWS.Discovery.StartDataCollectionByAgentIds
--- Copyright : (c) 2013-2016 Brendan Hay
+-- Copyright : (c) 2013-2017 Brendan Hay
-- License : Mozilla Public License, v. 2.0.
--- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>
+-- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com>
-- Stability : auto-generated
-- Portability : non-portable (GHC extensions)
--
--- Instructs the specified agents to start collecting data. Agents can reside on host servers or virtual machines in your data center.
+-- Instructs the specified agents or connectors to start collecting data.
--
--
module Network.AWS.Discovery.StartDataCollectionByAgentIds
@@ -37,31 +37,31 @@ module Network.AWS.Discovery.StartDataCollectionByAgentIds
, srsResponseStatus
) where
-import Network.AWS.Discovery.Types
-import Network.AWS.Discovery.Types.Product
-import Network.AWS.Lens
-import Network.AWS.Prelude
-import Network.AWS.Request
-import Network.AWS.Response
+import Network.AWS.Discovery.Types
+import Network.AWS.Discovery.Types.Product
+import Network.AWS.Lens
+import Network.AWS.Prelude
+import Network.AWS.Request
+import Network.AWS.Response
-- | /See:/ 'startDataCollectionByAgentIds' smart constructor.
newtype StartDataCollectionByAgentIds = StartDataCollectionByAgentIds'
- { _sAgentIds :: [Text]
- } deriving (Eq,Read,Show,Data,Typeable,Generic)
+ { _sAgentIds :: [Text]
+ } deriving (Eq, Read, Show, Data, Typeable, Generic)
+
-- | Creates a value of 'StartDataCollectionByAgentIds' with the minimum fields required to make a request.
--
-- Use one of the following lenses to modify other fields as desired:
--
--- * 'sAgentIds' - The IDs of the agents that you want to start collecting data. If you send a request to an AWS agent 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 and you do not have permission to contact some of those agents, the system does not throw an exception. Instead, the system shows @Failed@ in the /Description/ field.
+-- * 'sAgentIds' - 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.
startDataCollectionByAgentIds
:: StartDataCollectionByAgentIds
startDataCollectionByAgentIds =
- StartDataCollectionByAgentIds'
- { _sAgentIds = mempty
- }
+ StartDataCollectionByAgentIds' {_sAgentIds = mempty}
+
--- | The IDs of the agents that you want to start collecting data. If you send a request to an AWS agent 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 and you do not have permission to contact some of those agents, the system does not throw an exception. Instead, the system shows @Failed@ in the /Description/ field.
+-- | 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;
@@ -77,9 +77,9 @@ instance AWSRequest StartDataCollectionByAgentIds
(x .?> "agentsConfigurationStatus" .!@ mempty) <*>
(pure (fromEnum s)))
-instance Hashable StartDataCollectionByAgentIds
+instance Hashable StartDataCollectionByAgentIds where
-instance NFData StartDataCollectionByAgentIds
+instance NFData StartDataCollectionByAgentIds where
instance ToHeaders StartDataCollectionByAgentIds
where
@@ -105,27 +105,29 @@ instance ToQuery StartDataCollectionByAgentIds where
-- | /See:/ 'startDataCollectionByAgentIdsResponse' smart constructor.
data StartDataCollectionByAgentIdsResponse = StartDataCollectionByAgentIdsResponse'
- { _srsAgentsConfigurationStatus :: !(Maybe [AgentConfigurationStatus])
- , _srsResponseStatus :: !Int
- } deriving (Eq,Read,Show,Data,Typeable,Generic)
+ { _srsAgentsConfigurationStatus :: !(Maybe [AgentConfigurationStatus])
+ , _srsResponseStatus :: !Int
+ } deriving (Eq, Read, Show, Data, Typeable, Generic)
+
-- | Creates a value of 'StartDataCollectionByAgentIdsResponse' with the minimum fields required to make a request.
--
-- Use one of the following lenses to modify other fields as desired:
--
--- * 'srsAgentsConfigurationStatus' - Information about agents that were instructed to start collecting data. Information includes the agent ID, a description of the operation performed, and whether or not the agent configuration was updated.
+-- * 'srsAgentsConfigurationStatus' - 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.
--
-- * 'srsResponseStatus' - -- | The response status code.
startDataCollectionByAgentIdsResponse
:: Int -- ^ 'srsResponseStatus'
-> StartDataCollectionByAgentIdsResponse
startDataCollectionByAgentIdsResponse pResponseStatus_ =
- StartDataCollectionByAgentIdsResponse'
- { _srsAgentsConfigurationStatus = Nothing
- , _srsResponseStatus = pResponseStatus_
- }
+ StartDataCollectionByAgentIdsResponse'
+ { _srsAgentsConfigurationStatus = Nothing
+ , _srsResponseStatus = pResponseStatus_
+ }
--- | Information about agents that were instructed to start collecting data. Information includes the agent ID, a description of the operation performed, and whether or not the agent configuration was updated.
+
+-- | 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;
@@ -134,3 +136,4 @@ srsResponseStatus :: Lens' StartDataCollectionByAgentIdsResponse Int
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
new file mode 100644
index 0000000..26778e5
--- /dev/null
+++ b/gen/Network/AWS/Discovery/StartExportTask.hs
@@ -0,0 +1,169 @@
+{-# LANGUAGE DeriveDataTypeable #-}
+{-# LANGUAGE DeriveGeneric #-}
+{-# LANGUAGE OverloadedStrings #-}
+{-# LANGUAGE RecordWildCards #-}
+{-# LANGUAGE TypeFamilies #-}
+
+{-# OPTIONS_GHC -fno-warn-unused-imports #-}
+{-# OPTIONS_GHC -fno-warn-unused-binds #-}
+{-# OPTIONS_GHC -fno-warn-unused-matches #-}
+
+-- Derived from AWS service descriptions, licensed under Apache 2.0.
+
+-- |
+-- Module : Network.AWS.Discovery.StartExportTask
+-- Copyright : (c) 2013-2017 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)
+--
+-- 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 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.
+--
+module Network.AWS.Discovery.StartExportTask
+ (
+ -- * Creating a Request
+ startExportTask
+ , StartExportTask
+ -- * Request Lenses
+ , setExportDataFormat
+ , setStartTime
+ , setFilters
+ , setEndTime
+
+ -- * Destructuring the Response
+ , startExportTaskResponse
+ , StartExportTaskResponse
+ -- * Response Lenses
+ , setrsExportId
+ , setrsResponseStatus
+ ) where
+
+import Network.AWS.Discovery.Types
+import Network.AWS.Discovery.Types.Product
+import Network.AWS.Lens
+import Network.AWS.Prelude
+import Network.AWS.Request
+import Network.AWS.Response
+
+-- | /See:/ 'startExportTask' smart constructor.
+data StartExportTask = StartExportTask'
+ { _setExportDataFormat :: !(Maybe [ExportDataFormat])
+ , _setStartTime :: !(Maybe POSIX)
+ , _setFilters :: !(Maybe [ExportFilter])
+ , _setEndTime :: !(Maybe POSIX)
+ } deriving (Eq, Read, Show, Data, Typeable, Generic)
+
+
+-- | Creates a value of 'StartExportTask' with the minimum fields required to make a request.
+--
+-- 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@ .
+--
+-- * '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.
+--
+-- * 'setFilters' - 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.
+--
+-- * 'setEndTime' - 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.
+startExportTask
+ :: StartExportTask
+startExportTask =
+ StartExportTask'
+ { _setExportDataFormat = Nothing
+ , _setStartTime = Nothing
+ , _setFilters = Nothing
+ , _setEndTime = Nothing
+ }
+
+
+-- | The file format for the returned export data. Default value is @CSV@ .
+setExportDataFormat :: Lens' StartExportTask [ExportDataFormat]
+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;
+
+-- | 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;
+
+-- | 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;
+
+instance AWSRequest StartExportTask where
+ type Rs StartExportTask = StartExportTaskResponse
+ request = postJSON discovery
+ response
+ = receiveJSON
+ (\ s h x ->
+ StartExportTaskResponse' <$>
+ (x .?> "exportId") <*> (pure (fromEnum s)))
+
+instance Hashable StartExportTask where
+
+instance NFData StartExportTask where
+
+instance ToHeaders StartExportTask where
+ toHeaders
+ = const
+ (mconcat
+ ["X-Amz-Target" =#
+ ("AWSPoseidonService_V2015_11_01.StartExportTask" ::
+ ByteString),
+ "Content-Type" =#
+ ("application/x-amz-json-1.1" :: ByteString)])
+
+instance ToJSON StartExportTask where
+ toJSON StartExportTask'{..}
+ = object
+ (catMaybes
+ [("exportDataFormat" .=) <$> _setExportDataFormat,
+ ("startTime" .=) <$> _setStartTime,
+ ("filters" .=) <$> _setFilters,
+ ("endTime" .=) <$> _setEndTime])
+
+instance ToPath StartExportTask where
+ toPath = const "/"
+
+instance ToQuery StartExportTask where
+ toQuery = const mempty
+
+-- | /See:/ 'startExportTaskResponse' smart constructor.
+data StartExportTaskResponse = StartExportTaskResponse'
+ { _setrsExportId :: !(Maybe Text)
+ , _setrsResponseStatus :: !Int
+ } deriving (Eq, Read, Show, Data, Typeable, Generic)
+
+
+-- | Creates a value of 'StartExportTaskResponse' with the minimum fields required to make a request.
+--
+-- Use one of the following lenses to modify other fields as desired:
+--
+-- * 'setrsExportId' - A unique identifier used to query the status of an export request.
+--
+-- * 'setrsResponseStatus' - -- | The response status code.
+startExportTaskResponse
+ :: Int -- ^ 'setrsResponseStatus'
+ -> StartExportTaskResponse
+startExportTaskResponse pResponseStatus_ =
+ StartExportTaskResponse'
+ {_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});
+
+-- | -- | The response status code.
+setrsResponseStatus :: Lens' StartExportTaskResponse Int
+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 e504b1d..1b49475 100644
--- a/gen/Network/AWS/Discovery/StopDataCollectionByAgentIds.hs
+++ b/gen/Network/AWS/Discovery/StopDataCollectionByAgentIds.hs
@@ -12,13 +12,13 @@
-- |
-- Module : Network.AWS.Discovery.StopDataCollectionByAgentIds
--- Copyright : (c) 2013-2016 Brendan Hay
+-- Copyright : (c) 2013-2017 Brendan Hay
-- License : Mozilla Public License, v. 2.0.
--- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>
+-- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com>
-- Stability : auto-generated
-- Portability : non-portable (GHC extensions)
--
--- Instructs the specified agents to stop collecting data.
+-- Instructs the specified agents or connectors to stop collecting data.
--
--
module Network.AWS.Discovery.StopDataCollectionByAgentIds
@@ -37,31 +37,31 @@ module Network.AWS.Discovery.StopDataCollectionByAgentIds
, sdcbairsResponseStatus
) where
-import Network.AWS.Discovery.Types
-import Network.AWS.Discovery.Types.Product
-import Network.AWS.Lens
-import Network.AWS.Prelude
-import Network.AWS.Request
-import Network.AWS.Response
+import Network.AWS.Discovery.Types
+import Network.AWS.Discovery.Types.Product
+import Network.AWS.Lens
+import Network.AWS.Prelude
+import Network.AWS.Request
+import Network.AWS.Response
-- | /See:/ 'stopDataCollectionByAgentIds' smart constructor.
newtype StopDataCollectionByAgentIds = StopDataCollectionByAgentIds'
- { _sdcbaiAgentIds :: [Text]
- } deriving (Eq,Read,Show,Data,Typeable,Generic)
+ { _sdcbaiAgentIds :: [Text]
+ } deriving (Eq, Read, Show, Data, Typeable, Generic)
+
-- | Creates a value of 'StopDataCollectionByAgentIds' with the minimum fields required to make a request.
--
-- Use one of the following lenses to modify other fields as desired:
--
--- * 'sdcbaiAgentIds' - The IDs of the agents that you want to stop collecting data.
+-- * 'sdcbaiAgentIds' - The IDs of the agents or connectors from which to stop collecting data.
stopDataCollectionByAgentIds
:: StopDataCollectionByAgentIds
stopDataCollectionByAgentIds =
- StopDataCollectionByAgentIds'
- { _sdcbaiAgentIds = mempty
- }
+ StopDataCollectionByAgentIds' {_sdcbaiAgentIds = mempty}
+
--- | The IDs of the agents that you want to stop collecting data.
+-- | 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;
@@ -77,9 +77,9 @@ instance AWSRequest StopDataCollectionByAgentIds
(x .?> "agentsConfigurationStatus" .!@ mempty) <*>
(pure (fromEnum s)))
-instance Hashable StopDataCollectionByAgentIds
+instance Hashable StopDataCollectionByAgentIds where
-instance NFData StopDataCollectionByAgentIds
+instance NFData StopDataCollectionByAgentIds where
instance ToHeaders StopDataCollectionByAgentIds where
toHeaders
@@ -104,27 +104,29 @@ instance ToQuery StopDataCollectionByAgentIds where
-- | /See:/ 'stopDataCollectionByAgentIdsResponse' smart constructor.
data StopDataCollectionByAgentIdsResponse = StopDataCollectionByAgentIdsResponse'
- { _sdcbairsAgentsConfigurationStatus :: !(Maybe [AgentConfigurationStatus])
- , _sdcbairsResponseStatus :: !Int
- } deriving (Eq,Read,Show,Data,Typeable,Generic)
+ { _sdcbairsAgentsConfigurationStatus :: !(Maybe [AgentConfigurationStatus])
+ , _sdcbairsResponseStatus :: !Int
+ } deriving (Eq, Read, Show, Data, Typeable, Generic)
+
-- | Creates a value of 'StopDataCollectionByAgentIdsResponse' with the minimum fields required to make a request.
--
-- Use one of the following lenses to modify other fields as desired:
--
--- * 'sdcbairsAgentsConfigurationStatus' - Information about agents that were instructed to stop collecting data. Information includes the agent ID, a description of the operation performed, and whether or not the agent configuration was updated.
+-- * 'sdcbairsAgentsConfigurationStatus' - 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.
--
-- * 'sdcbairsResponseStatus' - -- | The response status code.
stopDataCollectionByAgentIdsResponse
:: Int -- ^ 'sdcbairsResponseStatus'
-> StopDataCollectionByAgentIdsResponse
stopDataCollectionByAgentIdsResponse pResponseStatus_ =
- StopDataCollectionByAgentIdsResponse'
- { _sdcbairsAgentsConfigurationStatus = Nothing
- , _sdcbairsResponseStatus = pResponseStatus_
- }
+ StopDataCollectionByAgentIdsResponse'
+ { _sdcbairsAgentsConfigurationStatus = Nothing
+ , _sdcbairsResponseStatus = pResponseStatus_
+ }
--- | Information about agents that were instructed to stop collecting data. Information includes the agent ID, a description of the operation performed, and whether or not the agent configuration was updated.
+
+-- | 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;
@@ -133,3 +135,4 @@ sdcbairsResponseStatus :: Lens' StopDataCollectionByAgentIdsResponse Int
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 fe4bfb9..0dd4ca9 100644
--- a/gen/Network/AWS/Discovery/Types.hs
+++ b/gen/Network/AWS/Discovery/Types.hs
@@ -4,9 +4,9 @@
-- |
-- Module : Network.AWS.Discovery.Types
--- Copyright : (c) 2013-2016 Brendan Hay
+-- Copyright : (c) 2013-2017 Brendan Hay
-- License : Mozilla Public License, v. 2.0.
--- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>
+-- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com>
-- Stability : auto-generated
-- Portability : non-portable (GHC extensions)
--
@@ -29,9 +29,15 @@ module Network.AWS.Discovery.Types
-- * ConfigurationItemType
, ConfigurationItemType (..)
+ -- * ExportDataFormat
+ , ExportDataFormat (..)
+
-- * ExportStatus
, ExportStatus (..)
+ -- * OrderString
+ , OrderString (..)
+
-- * AgentConfigurationStatus
, AgentConfigurationStatus
, agentConfigurationStatus
@@ -43,11 +49,15 @@ module Network.AWS.Discovery.Types
, AgentInfo
, agentInfo
, aiHostName
+ , aiLastHealthPingTime
, aiAgentNetworkInfoList
, aiConnectorId
, aiHealth
, aiAgentId
, aiVersion
+ , aiCollectionStatus
+ , aiRegisteredTime
+ , aiAgentType
-- * AgentNetworkInfo
, AgentNetworkInfo
@@ -64,10 +74,42 @@ module Network.AWS.Discovery.Types
, ctValue
, ctKey
+ -- * CustomerAgentInfo
+ , CustomerAgentInfo
+ , customerAgentInfo
+ , caiActiveAgents
+ , caiHealthyAgents
+ , caiBlackListedAgents
+ , caiShutdownAgents
+ , caiUnhealthyAgents
+ , caiTotalAgents
+ , caiUnknownAgents
+
+ -- * CustomerConnectorInfo
+ , CustomerConnectorInfo
+ , customerConnectorInfo
+ , cciActiveConnectors
+ , cciHealthyConnectors
+ , cciBlackListedConnectors
+ , cciShutdownConnectors
+ , cciUnhealthyConnectors
+ , cciTotalConnectors
+ , cciUnknownConnectors
+
+ -- * ExportFilter
+ , ExportFilter
+ , exportFilter
+ , efName
+ , efValues
+ , efCondition
+
-- * ExportInfo
, ExportInfo
, exportInfo
, eiConfigurationsDownloadURL
+ , eiRequestedStartTime
+ , eiRequestedEndTime
+ , eiIsTruncated
, eiExportId
, eiExportStatus
, eiStatusMessage
@@ -80,6 +122,21 @@ module Network.AWS.Discovery.Types
, fValues
, fCondition
+ -- * NeighborConnectionDetail
+ , NeighborConnectionDetail
+ , neighborConnectionDetail
+ , ncdTransportProtocol
+ , ncdDestinationPort
+ , ncdSourceServerId
+ , ncdDestinationServerId
+ , ncdConnectionsCount
+
+ -- * OrderByElement
+ , OrderByElement
+ , orderByElement
+ , obeSortOrder
+ , obeFieldName
+
-- * Tag
, Tag
, tag
@@ -93,38 +150,40 @@ module Network.AWS.Discovery.Types
, tfValues
) where
-import Network.AWS.Discovery.Types.Product
-import Network.AWS.Discovery.Types.Sum
-import Network.AWS.Lens
-import Network.AWS.Prelude
-import Network.AWS.Sign.V4
+import Network.AWS.Discovery.Types.Product
+import Network.AWS.Discovery.Types.Sum
+import Network.AWS.Lens
+import Network.AWS.Prelude
+import Network.AWS.Sign.V4
-- | API version @2015-11-01@ of the Amazon Application Discovery Service SDK configuration.
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
- }
+ Service
+ { _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
- }
+ Exponential
+ { _retryBase = 5.0e-2
+ , _retryGrowth = 2
+ , _retryAttempts = 5
+ , _retryCheck = check
+ }
check e
+ | has (hasCode "ThrottledException" . hasStatus 400) e =
+ Just "throttled_exception"
| has (hasStatus 429) e = Just "too_many_requests"
| has (hasCode "ThrottlingException" . hasStatus 400) e =
- Just "throttling_exception"
+ Just "throttling_exception"
| has (hasCode "Throttling" . hasStatus 400) e = Just "throttling"
| has (hasStatus 504) e = Just "gateway_timeout"
| has (hasStatus 502) e = Just "bad_gateway"
@@ -133,44 +192,51 @@ discovery =
| has (hasStatus 509) e = Just "limit_exceeded"
| otherwise = Nothing
+
-- | The AWS user account does not have permission to perform the action. Check the IAM policy associated with this account.
--
--
_AuthorizationErrorException :: AsError a => Getting (First ServiceError) a ServiceError
_AuthorizationErrorException =
- _ServiceError . hasCode "AuthorizationErrorException"
+ _MatchServiceError discovery "AuthorizationErrorException"
+
-- | One or more parameters are not valid. Verify the parameters and try again.
--
--
_InvalidParameterException :: AsError a => Getting (First ServiceError) a ServiceError
_InvalidParameterException =
- _ServiceError . hasCode "InvalidParameterException"
+ _MatchServiceError discovery "InvalidParameterException"
+
-- | The value of one or more parameters are either invalid or out of range. Verify the parameter values and try again.
--
--
_InvalidParameterValueException :: AsError a => Getting (First ServiceError) a ServiceError
_InvalidParameterValueException =
- _ServiceError . hasCode "InvalidParameterValueException"
+ _MatchServiceError discovery "InvalidParameterValueException"
+
-- | The server experienced an internal error. Try again.
--
--
_ServerInternalErrorException :: AsError a => Getting (First ServiceError) a ServiceError
_ServerInternalErrorException =
- _ServiceError . hasCode "ServerInternalErrorException"
+ _MatchServiceError discovery "ServerInternalErrorException"
+
-- | This operation is not permitted.
--
--
_OperationNotPermittedException :: AsError a => Getting (First ServiceError) a ServiceError
_OperationNotPermittedException =
- _ServiceError . hasCode "OperationNotPermittedException"
+ _MatchServiceError discovery "OperationNotPermittedException"
+
-- | The specified configuration ID was not located. Verify the configuration ID and try again.
--
--
_ResourceNotFoundException :: AsError a => Getting (First ServiceError) a ServiceError
_ResourceNotFoundException =
- _ServiceError . hasCode "ResourceNotFoundException"
+ _MatchServiceError discovery "ResourceNotFoundException"
+
diff --git a/gen/Network/AWS/Discovery/Types/Product.hs b/gen/Network/AWS/Discovery/Types/Product.hs
index 4a32314..30ac4c2 100644
--- a/gen/Network/AWS/Discovery/Types/Product.hs
+++ b/gen/Network/AWS/Discovery/Types/Product.hs
@@ -9,52 +9,54 @@
-- |
-- Module : Network.AWS.Discovery.Types.Product
--- Copyright : (c) 2013-2016 Brendan Hay
+-- Copyright : (c) 2013-2017 Brendan Hay
-- License : Mozilla Public License, v. 2.0.
--- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>
+-- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com>
-- Stability : auto-generated
-- Portability : non-portable (GHC extensions)
--
module Network.AWS.Discovery.Types.Product where
-import Network.AWS.Discovery.Types.Sum
-import Network.AWS.Lens
-import Network.AWS.Prelude
+import Network.AWS.Discovery.Types.Sum
+import Network.AWS.Lens
+import Network.AWS.Prelude
--- | Information about agents that were instructed to start collecting data. Information includes the agent ID, a description of the operation, and whether or not the agent configuration was updated.
+-- | Information about agents or connectors that were instructed to start collecting data. Information includes the agent/connector ID, a description of the operation, and whether the agent/connector configuration was updated.
--
--
--
-- /See:/ 'agentConfigurationStatus' smart constructor.
data AgentConfigurationStatus = AgentConfigurationStatus'
- { _acsAgentId :: !(Maybe Text)
- , _acsOperationSucceeded :: !(Maybe Bool)
- , _acsDescription :: !(Maybe Text)
- } deriving (Eq,Read,Show,Data,Typeable,Generic)
+ { _acsAgentId :: !(Maybe Text)
+ , _acsOperationSucceeded :: !(Maybe Bool)
+ , _acsDescription :: !(Maybe Text)
+ } deriving (Eq, Read, Show, Data, Typeable, Generic)
+
-- | Creates a value of 'AgentConfigurationStatus' with the minimum fields required to make a request.
--
-- Use one of the following lenses to modify other fields as desired:
--
--- * 'acsAgentId' - The agent ID.
+-- * 'acsAgentId' - The agent/connector ID.
--
--- * 'acsOperationSucceeded' - Information about the status of the @StartDataCollection@ and @StopDataCollection@ operations. The system has recorded the data collection operation. The agent receives this command the next time it polls for a new command.
+-- * 'acsOperationSucceeded' - 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.
--
-- * 'acsDescription' - A description of the operation performed.
agentConfigurationStatus
:: AgentConfigurationStatus
agentConfigurationStatus =
- AgentConfigurationStatus'
- { _acsAgentId = Nothing
- , _acsOperationSucceeded = Nothing
- , _acsDescription = Nothing
- }
+ AgentConfigurationStatus'
+ { _acsAgentId = Nothing
+ , _acsOperationSucceeded = Nothing
+ , _acsDescription = Nothing
+ }
+
--- | The agent ID.
+-- | The agent/connector ID.
acsAgentId :: Lens' AgentConfigurationStatus (Maybe Text)
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 receives this command the next time it polls for a new command.
+-- | 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});
@@ -70,121 +72,157 @@ instance FromJSON AgentConfigurationStatus where
(x .:? "agentId") <*> (x .:? "operationSucceeded")
<*> (x .:? "description"))
-instance Hashable AgentConfigurationStatus
+instance Hashable AgentConfigurationStatus where
-instance NFData AgentConfigurationStatus
+instance NFData AgentConfigurationStatus where
--- | Information about agents associated with the user’s AWS account. Information includes agent IDs, IP addresses, media access control (MAC) addresses, agent health, hostname where the agent resides, and agent version for each agent.
+-- | Information about agents or connectors associated with the user’s AWS account. Information includes agent or connector IDs, IP addresses, media access control (MAC) addresses, agent or connector health, hostname where the agent or connector resides, and agent version for each agent.
--
--
--
-- /See:/ 'agentInfo' smart constructor.
data AgentInfo = AgentInfo'
- { _aiHostName :: !(Maybe Text)
- , _aiAgentNetworkInfoList :: !(Maybe [AgentNetworkInfo])
- , _aiConnectorId :: !(Maybe Text)
- , _aiHealth :: !(Maybe AgentStatus)
- , _aiAgentId :: !(Maybe Text)
- , _aiVersion :: !(Maybe Text)
- } deriving (Eq,Read,Show,Data,Typeable,Generic)
+ { _aiHostName :: !(Maybe Text)
+ , _aiLastHealthPingTime :: !(Maybe Text)
+ , _aiAgentNetworkInfoList :: !(Maybe [AgentNetworkInfo])
+ , _aiConnectorId :: !(Maybe Text)
+ , _aiHealth :: !(Maybe AgentStatus)
+ , _aiAgentId :: !(Maybe Text)
+ , _aiVersion :: !(Maybe Text)
+ , _aiCollectionStatus :: !(Maybe Text)
+ , _aiRegisteredTime :: !(Maybe Text)
+ , _aiAgentType :: !(Maybe Text)
+ } deriving (Eq, Read, Show, Data, Typeable, Generic)
+
-- | Creates a value of 'AgentInfo' with the minimum fields required to make a request.
--
-- Use one of the following lenses to modify other fields as desired:
--
--- * 'aiHostName' - The name of the host where the agent resides. The host can be a server or virtual machine.
+-- * 'aiHostName' - The name of the host where the agent or connector resides. The host can be a server or virtual machine.
+--
+-- * 'aiLastHealthPingTime' - Time since agent or connector health was reported.
+--
+-- * 'aiAgentNetworkInfoList' - Network details about the host where the agent or connector resides.
--
--- * 'aiAgentNetworkInfoList' - Network details about the host where the agent resides.
+-- * 'aiConnectorId' - The ID of the connector.
--
--- * 'aiConnectorId' - This data type is currently not valid.
+-- * 'aiHealth' - The health of the agent or connector.
--
--- * 'aiHealth' - The health of the agent.
+-- * 'aiAgentId' - The agent or connector ID.
--
--- * 'aiAgentId' - The agent ID.
+-- * 'aiVersion' - The agent or connector version.
--
--- * 'aiVersion' - The agent version.
+-- * 'aiCollectionStatus' - Status of the collection process for an agent or connector.
+--
+-- * 'aiRegisteredTime' - Agent's first registration timestamp in UTC.
+--
+-- * 'aiAgentType' - Type of agent.
agentInfo
:: AgentInfo
agentInfo =
- AgentInfo'
- { _aiHostName = Nothing
- , _aiAgentNetworkInfoList = Nothing
- , _aiConnectorId = Nothing
- , _aiHealth = Nothing
- , _aiAgentId = Nothing
- , _aiVersion = Nothing
- }
-
--- | The name of the host where the agent resides. The host can be a server or virtual machine.
+ AgentInfo'
+ { _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});
--- | Network details about the host where the agent resides.
+-- | Time since agent or connector health was reported.
+aiLastHealthPingTime :: Lens' AgentInfo (Maybe Text)
+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;
--- | This data type is currently not valid.
+-- | The ID of the connector.
aiConnectorId :: Lens' AgentInfo (Maybe Text)
aiConnectorId = lens _aiConnectorId (\ s a -> s{_aiConnectorId = a});
--- | The health of the agent.
+-- | The health of the agent or connector.
aiHealth :: Lens' AgentInfo (Maybe AgentStatus)
aiHealth = lens _aiHealth (\ s a -> s{_aiHealth = a});
--- | The agent ID.
+-- | The agent or connector ID.
aiAgentId :: Lens' AgentInfo (Maybe Text)
aiAgentId = lens _aiAgentId (\ s a -> s{_aiAgentId = a});
--- | The agent version.
+-- | The agent or connector version.
aiVersion :: Lens' AgentInfo (Maybe Text)
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});
+
+-- | Agent's first registration timestamp in UTC.
+aiRegisteredTime :: Lens' AgentInfo (Maybe Text)
+aiRegisteredTime = lens _aiRegisteredTime (\ s a -> s{_aiRegisteredTime = a});
+
+-- | Type of agent.
+aiAgentType :: Lens' AgentInfo (Maybe Text)
+aiAgentType = lens _aiAgentType (\ s a -> s{_aiAgentType = a});
+
instance FromJSON AgentInfo where
parseJSON
= withObject "AgentInfo"
(\ x ->
AgentInfo' <$>
- (x .:? "hostName") <*>
- (x .:? "agentNetworkInfoList" .!= mempty)
+ (x .:? "hostName") <*> (x .:? "lastHealthPingTime")
+ <*> (x .:? "agentNetworkInfoList" .!= mempty)
<*> (x .:? "connectorId")
<*> (x .:? "health")
<*> (x .:? "agentId")
- <*> (x .:? "version"))
+ <*> (x .:? "version")
+ <*> (x .:? "collectionStatus")
+ <*> (x .:? "registeredTime")
+ <*> (x .:? "agentType"))
-instance Hashable AgentInfo
+instance Hashable AgentInfo where
-instance NFData AgentInfo
+instance NFData AgentInfo where
--- | Network details about the host where the agent resides.
+-- | Network details about the host where the agent/connector resides.
--
--
--
-- /See:/ 'agentNetworkInfo' smart constructor.
data AgentNetworkInfo = AgentNetworkInfo'
- { _aniIpAddress :: !(Maybe Text)
- , _aniMacAddress :: !(Maybe Text)
- } deriving (Eq,Read,Show,Data,Typeable,Generic)
+ { _aniIpAddress :: !(Maybe Text)
+ , _aniMacAddress :: !(Maybe Text)
+ } deriving (Eq, Read, Show, Data, Typeable, Generic)
+
-- | Creates a value of 'AgentNetworkInfo' with the minimum fields required to make a request.
--
-- Use one of the following lenses to modify other fields as desired:
--
--- * 'aniIpAddress' - The IP address for the host where the agent resides.
+-- * 'aniIpAddress' - The IP address for the host where the agent/connector resides.
--
--- * 'aniMacAddress' - The MAC address for the host where the agent resides.
+-- * 'aniMacAddress' - The MAC address for the host where the agent/connector resides.
agentNetworkInfo
:: AgentNetworkInfo
agentNetworkInfo =
- AgentNetworkInfo'
- { _aniIpAddress = Nothing
- , _aniMacAddress = Nothing
- }
+ AgentNetworkInfo' {_aniIpAddress = Nothing, _aniMacAddress = Nothing}
+
--- | The IP address for the host where the agent resides.
+-- | The IP address for the host where the agent/connector resides.
aniIpAddress :: Lens' AgentNetworkInfo (Maybe Text)
aniIpAddress = lens _aniIpAddress (\ s a -> s{_aniIpAddress = a});
--- | The MAC address for the host where the agent resides.
+-- | The MAC address for the host where the agent/connector resides.
aniMacAddress :: Lens' AgentNetworkInfo (Maybe Text)
aniMacAddress = lens _aniMacAddress (\ s a -> s{_aniMacAddress = a});
@@ -195,9 +233,9 @@ instance FromJSON AgentNetworkInfo where
AgentNetworkInfo' <$>
(x .:? "ipAddress") <*> (x .:? "macAddress"))
-instance Hashable AgentNetworkInfo
+instance Hashable AgentNetworkInfo where
-instance NFData AgentNetworkInfo
+instance NFData AgentNetworkInfo where
-- | Tags for a configuration item. Tags are metadata that help you categorize IT assets.
--
@@ -205,12 +243,13 @@ instance NFData AgentNetworkInfo
--
-- /See:/ 'configurationTag' smart constructor.
data ConfigurationTag = ConfigurationTag'
- { _ctTimeOfCreation :: !(Maybe POSIX)
- , _ctConfigurationId :: !(Maybe Text)
- , _ctConfigurationType :: !(Maybe ConfigurationItemType)
- , _ctValue :: !(Maybe Text)
- , _ctKey :: !(Maybe Text)
- } deriving (Eq,Read,Show,Data,Typeable,Generic)
+ { _ctTimeOfCreation :: !(Maybe POSIX)
+ , _ctConfigurationId :: !(Maybe Text)
+ , _ctConfigurationType :: !(Maybe ConfigurationItemType)
+ , _ctValue :: !(Maybe Text)
+ , _ctKey :: !(Maybe Text)
+ } deriving (Eq, Read, Show, Data, Typeable, Generic)
+
-- | Creates a value of 'ConfigurationTag' with the minimum fields required to make a request.
--
@@ -218,41 +257,42 @@ data ConfigurationTag = ConfigurationTag'
--
-- * 'ctTimeOfCreation' - The time the configuration tag was created in Coordinated Universal Time (UTC).
--
--- * 'ctConfigurationId' - The configuration ID for the item you want to tag. You can specify a list of keys and values.
+-- * 'ctConfigurationId' - The configuration ID for the item to tag. You can specify a list of keys and values.
--
--- * 'ctConfigurationType' - A type of IT asset that you want to tag.
+-- * 'ctConfigurationType' - A type of IT asset to tag.
--
--- * 'ctValue' - A value to filter on. For example /key = serverType/ and /value = web server/ .
+-- * 'ctValue' - A value on which to filter. For example /key = serverType/ and /value = web server/ .
--
--- * 'ctKey' - A type of tag to filter on. For example, /serverType/ .
+-- * 'ctKey' - A type of tag on which to filter. For example, /serverType/ .
configurationTag
:: ConfigurationTag
configurationTag =
- ConfigurationTag'
- { _ctTimeOfCreation = Nothing
- , _ctConfigurationId = Nothing
- , _ctConfigurationType = Nothing
- , _ctValue = Nothing
- , _ctKey = Nothing
- }
+ ConfigurationTag'
+ { _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;
--- | The configuration ID for the item you want to tag. You can specify a list of keys and values.
+-- | 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});
--- | A type of IT asset that you want to tag.
+-- | A type of IT asset to tag.
ctConfigurationType :: Lens' ConfigurationTag (Maybe ConfigurationItemType)
ctConfigurationType = lens _ctConfigurationType (\ s a -> s{_ctConfigurationType = a});
--- | A value to filter on. For example /key = serverType/ and /value = web server/ .
+-- | 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});
--- | A type of tag to filter on. For example, /serverType/ .
+-- | A type of tag on which to filter. For example, /serverType/ .
ctKey :: Lens' ConfigurationTag (Maybe Text)
ctKey = lens _ctKey (\ s a -> s{_ctKey = a});
@@ -267,36 +307,297 @@ instance FromJSON ConfigurationTag where
<*> (x .:? "value")
<*> (x .:? "key"))
-instance Hashable ConfigurationTag
+instance Hashable ConfigurationTag where
+
+instance NFData ConfigurationTag where
+
+-- | Inventory data for installed discovery agents.
+--
+--
+--
+-- /See:/ 'customerAgentInfo' smart constructor.
+data CustomerAgentInfo = CustomerAgentInfo'
+ { _caiActiveAgents :: !Int
+ , _caiHealthyAgents :: !Int
+ , _caiBlackListedAgents :: !Int
+ , _caiShutdownAgents :: !Int
+ , _caiUnhealthyAgents :: !Int
+ , _caiTotalAgents :: !Int
+ , _caiUnknownAgents :: !Int
+ } deriving (Eq, Read, Show, Data, Typeable, Generic)
+
+
+-- | Creates a value of 'CustomerAgentInfo' with the minimum fields required to make a request.
+--
+-- Use one of the following lenses to modify other fields as desired:
+--
+-- * 'caiActiveAgents' - Number of active discovery agents.
+--
+-- * 'caiHealthyAgents' - Number of healthy discovery agents
+--
+-- * 'caiBlackListedAgents' - Number of blacklisted discovery agents.
+--
+-- * 'caiShutdownAgents' - Number of discovery agents with status SHUTDOWN.
+--
+-- * 'caiUnhealthyAgents' - Number of unhealthy discovery agents.
+--
+-- * 'caiTotalAgents' - Total number of discovery agents.
+--
+-- * 'caiUnknownAgents' - Number of unknown discovery agents.
+customerAgentInfo
+ :: Int -- ^ 'caiActiveAgents'
+ -> Int -- ^ 'caiHealthyAgents'
+ -> Int -- ^ 'caiBlackListedAgents'
+ -> Int -- ^ 'caiShutdownAgents'
+ -> Int -- ^ 'caiUnhealthyAgents'
+ -> Int -- ^ 'caiTotalAgents'
+ -> Int -- ^ 'caiUnknownAgents'
+ -> CustomerAgentInfo
+customerAgentInfo pActiveAgents_ pHealthyAgents_ pBlackListedAgents_ pShutdownAgents_ pUnhealthyAgents_ pTotalAgents_ pUnknownAgents_ =
+ CustomerAgentInfo'
+ { _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});
+
+-- | Number of healthy discovery agents
+caiHealthyAgents :: Lens' CustomerAgentInfo Int
+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});
+
+-- | Number of discovery agents with status SHUTDOWN.
+caiShutdownAgents :: Lens' CustomerAgentInfo Int
+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});
-instance NFData ConfigurationTag
+-- | Total number of discovery agents.
+caiTotalAgents :: Lens' CustomerAgentInfo Int
+caiTotalAgents = lens _caiTotalAgents (\ s a -> s{_caiTotalAgents = a});
--- | Information regarding the export status of the discovered data. The value is an array of objects.
+-- | Number of unknown discovery agents.
+caiUnknownAgents :: Lens' CustomerAgentInfo Int
+caiUnknownAgents = lens _caiUnknownAgents (\ s a -> s{_caiUnknownAgents = a});
+
+instance FromJSON CustomerAgentInfo where
+ parseJSON
+ = withObject "CustomerAgentInfo"
+ (\ x ->
+ CustomerAgentInfo' <$>
+ (x .: "activeAgents") <*> (x .: "healthyAgents") <*>
+ (x .: "blackListedAgents")
+ <*> (x .: "shutdownAgents")
+ <*> (x .: "unhealthyAgents")
+ <*> (x .: "totalAgents")
+ <*> (x .: "unknownAgents"))
+
+instance Hashable CustomerAgentInfo where
+
+instance NFData CustomerAgentInfo where
+
+-- | Inventory data for installed discovery connectors.
+--
+--
+--
+-- /See:/ 'customerConnectorInfo' smart constructor.
+data CustomerConnectorInfo = CustomerConnectorInfo'
+ { _cciActiveConnectors :: !Int
+ , _cciHealthyConnectors :: !Int
+ , _cciBlackListedConnectors :: !Int
+ , _cciShutdownConnectors :: !Int
+ , _cciUnhealthyConnectors :: !Int
+ , _cciTotalConnectors :: !Int
+ , _cciUnknownConnectors :: !Int
+ } deriving (Eq, Read, Show, Data, Typeable, Generic)
+
+
+-- | Creates a value of 'CustomerConnectorInfo' with the minimum fields required to make a request.
+--
+-- Use one of the following lenses to modify other fields as desired:
+--
+-- * 'cciActiveConnectors' - Number of active discovery connectors.
+--
+-- * 'cciHealthyConnectors' - Number of healthy discovery connectors.
+--
+-- * 'cciBlackListedConnectors' - Number of blacklisted discovery connectors.
+--
+-- * 'cciShutdownConnectors' - Number of discovery connectors with status SHUTDOWN,
+--
+-- * 'cciUnhealthyConnectors' - Number of unhealthy discovery connectors.
+--
+-- * 'cciTotalConnectors' - Total number of discovery connectors.
+--
+-- * 'cciUnknownConnectors' - Number of unknown discovery connectors.
+customerConnectorInfo
+ :: Int -- ^ 'cciActiveConnectors'
+ -> Int -- ^ 'cciHealthyConnectors'
+ -> Int -- ^ 'cciBlackListedConnectors'
+ -> Int -- ^ 'cciShutdownConnectors'
+ -> Int -- ^ 'cciUnhealthyConnectors'
+ -> Int -- ^ 'cciTotalConnectors'
+ -> Int -- ^ 'cciUnknownConnectors'
+ -> CustomerConnectorInfo
+customerConnectorInfo pActiveConnectors_ pHealthyConnectors_ pBlackListedConnectors_ pShutdownConnectors_ pUnhealthyConnectors_ pTotalConnectors_ pUnknownConnectors_ =
+ CustomerConnectorInfo'
+ { _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});
+
+-- | Number of healthy discovery connectors.
+cciHealthyConnectors :: Lens' CustomerConnectorInfo Int
+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});
+
+-- | Number of discovery connectors with status SHUTDOWN,
+cciShutdownConnectors :: Lens' CustomerConnectorInfo Int
+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});
+
+-- | Total number of discovery connectors.
+cciTotalConnectors :: Lens' CustomerConnectorInfo Int
+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});
+
+instance FromJSON CustomerConnectorInfo where
+ parseJSON
+ = withObject "CustomerConnectorInfo"
+ (\ x ->
+ CustomerConnectorInfo' <$>
+ (x .: "activeConnectors") <*>
+ (x .: "healthyConnectors")
+ <*> (x .: "blackListedConnectors")
+ <*> (x .: "shutdownConnectors")
+ <*> (x .: "unhealthyConnectors")
+ <*> (x .: "totalConnectors")
+ <*> (x .: "unknownConnectors"))
+
+instance Hashable CustomerConnectorInfo where
+
+instance NFData CustomerConnectorInfo where
+
+-- | Used to select which agent's data is to be exported. A single agent ID may be selected for export using the <http://docs.aws.amazon.com/application-discovery/latest/APIReference/API_StartExportTask.html StartExportTask> action.
+--
+--
+--
+-- /See:/ 'exportFilter' smart constructor.
+data ExportFilter = ExportFilter'
+ { _efName :: !Text
+ , _efValues :: ![Text]
+ , _efCondition :: !Text
+ } deriving (Eq, Read, Show, Data, Typeable, Generic)
+
+
+-- | Creates a value of 'ExportFilter' with the minimum fields required to make a request.
+--
+-- Use one of the following lenses to modify other fields as desired:
+--
+-- * 'efName' - A single @ExportFilter@ name. Supported filters: @agentId@ .
+--
+-- * 'efValues' - 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@ .
+--
+-- * 'efCondition' - Supported condition: @EQUALS@
+exportFilter
+ :: Text -- ^ 'efName'
+ -> Text -- ^ 'efCondition'
+ -> ExportFilter
+exportFilter pName_ pCondition_ =
+ ExportFilter'
+ {_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});
+
+-- | 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;
+
+-- | Supported condition: @EQUALS@
+efCondition :: Lens' ExportFilter Text
+efCondition = lens _efCondition (\ s a -> s{_efCondition = a});
+
+instance Hashable ExportFilter where
+
+instance NFData ExportFilter where
+
+instance ToJSON ExportFilter where
+ toJSON ExportFilter'{..}
+ = object
+ (catMaybes
+ [Just ("name" .= _efName),
+ Just ("values" .= _efValues),
+ Just ("condition" .= _efCondition)])
+
+-- | Information regarding the export status of discovered data. The value is an array of objects.
--
--
--
-- /See:/ 'exportInfo' smart constructor.
data ExportInfo = ExportInfo'
- { _eiConfigurationsDownloadURL :: !(Maybe Text)
- , _eiExportId :: !Text
- , _eiExportStatus :: !ExportStatus
- , _eiStatusMessage :: !Text
- , _eiExportRequestTime :: !POSIX
- } deriving (Eq,Read,Show,Data,Typeable,Generic)
+ { _eiConfigurationsDownloadURL :: !(Maybe Text)
+ , _eiRequestedStartTime :: !(Maybe POSIX)
+ , _eiRequestedEndTime :: !(Maybe POSIX)
+ , _eiIsTruncated :: !(Maybe Bool)
+ , _eiExportId :: !Text
+ , _eiExportStatus :: !ExportStatus
+ , _eiStatusMessage :: !Text
+ , _eiExportRequestTime :: !POSIX
+ } deriving (Eq, Read, Show, Data, Typeable, Generic)
+
-- | Creates a value of 'ExportInfo' with the minimum fields required to make a request.
--
-- Use one of the following lenses to modify other fields as desired:
--
--- * 'eiConfigurationsDownloadURL' - A URL for an Amazon S3 bucket where you can review the configuration data. The URL is displayed only if the export succeeded.
+-- * 'eiConfigurationsDownloadURL' - A URL for an Amazon S3 bucket where you can review the exported data. The URL is displayed only if the export succeeded.
+--
+-- * 'eiRequestedStartTime' - The value of @startTime@ parameter in the @StartExportTask@ request. If no @startTime@ was requested, this result does not appear in @ExportInfo@ .
--
--- * 'eiExportId' - A unique identifier that you can use to query the export.
+-- * 'eiRequestedEndTime' - The @endTime@ used in the @StartExportTask@ request. If no @endTime@ was requested, this result does not appear in @ExportInfo@ .
--
--- * 'eiExportStatus' - The status of the configuration data export. The status can succeed, fail, or be in-progress.
+-- * 'eiIsTruncated' - 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@ .
--
--- * 'eiStatusMessage' - Helpful status messages for API callers. For example: Too many exports in the last 6 hours. Export in progress. Export was successful.
+-- * 'eiExportId' - A unique identifier used to query an export.
--
--- * 'eiExportRequestTime' - The time the configuration data export was initiated.
+-- * 'eiExportStatus' - The status of the data export job.
+--
+-- * 'eiStatusMessage' - A status message provided for API callers.
+--
+-- * 'eiExportRequestTime' - The time that the data export was initiated.
exportInfo
:: Text -- ^ 'eiExportId'
-> ExportStatus -- ^ 'eiExportStatus'
@@ -304,31 +605,47 @@ exportInfo
-> UTCTime -- ^ 'eiExportRequestTime'
-> ExportInfo
exportInfo pExportId_ pExportStatus_ pStatusMessage_ pExportRequestTime_ =
- ExportInfo'
- { _eiConfigurationsDownloadURL = Nothing
- , _eiExportId = pExportId_
- , _eiExportStatus = pExportStatus_
- , _eiStatusMessage = pStatusMessage_
- , _eiExportRequestTime = _Time # pExportRequestTime_
- }
-
--- | A URL for an Amazon S3 bucket where you can review the configuration data. The URL is displayed only if the export succeeded.
+ ExportInfo'
+ { _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});
--- | A unique identifier that you can use to query the export.
+-- | 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;
+
+-- | 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;
+
+-- | 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});
+
+-- | A unique identifier used to query an export.
eiExportId :: Lens' ExportInfo Text
eiExportId = lens _eiExportId (\ s a -> s{_eiExportId = a});
--- | The status of the configuration data export. The status can succeed, fail, or be in-progress.
+-- | The status of the data export job.
eiExportStatus :: Lens' ExportInfo ExportStatus
eiExportStatus = lens _eiExportStatus (\ s a -> s{_eiExportStatus = a});
--- | Helpful status messages for API callers. For example: Too many exports in the last 6 hours. Export in progress. Export was successful.
+-- | A status message provided for API callers.
eiStatusMessage :: Lens' ExportInfo Text
eiStatusMessage = lens _eiStatusMessage (\ s a -> s{_eiStatusMessage = a});
--- | The time the configuration data export was initiated.
+-- | The time that the data export was initiated.
eiExportRequestTime :: Lens' ExportInfo UTCTime
eiExportRequestTime = lens _eiExportRequestTime (\ s a -> s{_eiExportRequestTime = a}) . _Time;
@@ -338,33 +655,39 @@ instance FromJSON ExportInfo where
(\ x ->
ExportInfo' <$>
(x .:? "configurationsDownloadUrl") <*>
- (x .: "exportId")
+ (x .:? "requestedStartTime")
+ <*> (x .:? "requestedEndTime")
+ <*> (x .:? "isTruncated")
+ <*> (x .: "exportId")
<*> (x .: "exportStatus")
<*> (x .: "statusMessage")
<*> (x .: "exportRequestTime"))
-instance Hashable ExportInfo
+instance Hashable ExportInfo where
-instance NFData ExportInfo
+instance NFData ExportInfo where
-- | A filter that can use conditional operators.
--
--
+-- For more information about filters, see <http://docs.aws.amazon.com/application-discovery/latest/APIReference/discovery-api-queries.html Querying Discovered Configuration Items> .
+--
--
-- /See:/ 'filter'' smart constructor.
data Filter = Filter'
- { _fName :: !Text
- , _fValues :: ![Text]
- , _fCondition :: !Text
- } deriving (Eq,Read,Show,Data,Typeable,Generic)
+ { _fName :: !Text
+ , _fValues :: ![Text]
+ , _fCondition :: !Text
+ } deriving (Eq, Read, Show, Data, Typeable, Generic)
+
-- | Creates a value of 'Filter' with the minimum fields required to make a request.
--
-- Use one of the following lenses to modify other fields as desired:
--
--- * 'fName' - The name of the filter. The following filter names are allowed for @SERVER@ configuration items. __Server__ * @server.hostName@ * @server.osName@ * @server.osVersion@ * @server.configurationid@ * @server.agentid@ The name of the filter. The following filter names are allowed for @PROCESS@ configuration items. __Process__ * @process.configurationid@ * @process.name@ * @process.commandLine@ * @server.configurationid@ * @server.hostName@ * @server.osName@ * @server.osVersion@ * @server.agentId@ The name of the filter. The following filter names are allowed for @CONNECTION@ configuration items. __Connection__ * @connection.sourceIp@ * @connection.destinationIp@ * @connection.destinationPort@ * @sourceProcess.configurationId@ * @sourceProcess.name@ * @sourceProcess.commandLine@ * @destinationProcess.configurationId@ * @destinationProcess.name@ * @destinationProcess.commandLine@ * @sourceServer.configurationId@ * @sourceServer.hostName@ * @sourceServer.osName@ * @sourceServer.osVersion@ * @sourceServer.agentId@ * @destinationServer.configurationId@ * @destinationServer.hostName@ * @destinationServer.osName@ * @destinationServer.osVersion@ * @destinationServer.agentId@
+-- * 'fName' - The name of the filter.
--
--- * 'fValues' - A string value that you want to filter on. For example, if you choose the @destinationServer.osVersion@ filter name, you could specify @Ubuntu@ for the value.
+-- * 'fValues' - A string value on which to filter. For example, if you choose the @destinationServer.osVersion@ filter name, you could specify @Ubuntu@ for the value.
--
-- * 'fCondition' - 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.
filter'
@@ -372,17 +695,14 @@ filter'
-> Text -- ^ 'fCondition'
-> Filter
filter' pName_ pCondition_ =
- Filter'
- { _fName = pName_
- , _fValues = mempty
- , _fCondition = pCondition_
- }
+ Filter' {_fName = pName_, _fValues = mempty, _fCondition = pCondition_}
--- | The name of the filter. The following filter names are allowed for @SERVER@ configuration items. __Server__ * @server.hostName@ * @server.osName@ * @server.osVersion@ * @server.configurationid@ * @server.agentid@ The name of the filter. The following filter names are allowed for @PROCESS@ configuration items. __Process__ * @process.configurationid@ * @process.name@ * @process.commandLine@ * @server.configurationid@ * @server.hostName@ * @server.osName@ * @server.osVersion@ * @server.agentId@ The name of the filter. The following filter names are allowed for @CONNECTION@ configuration items. __Connection__ * @connection.sourceIp@ * @connection.destinationIp@ * @connection.destinationPort@ * @sourceProcess.configurationId@ * @sourceProcess.name@ * @sourceProcess.commandLine@ * @destinationProcess.configurationId@ * @destinationProcess.name@ * @destinationProcess.commandLine@ * @sourceServer.configurationId@ * @sourceServer.hostName@ * @sourceServer.osName@ * @sourceServer.osVersion@ * @sourceServer.agentId@ * @destinationServer.configurationId@ * @destinationServer.hostName@ * @destinationServer.osName@ * @destinationServer.osVersion@ * @destinationServer.agentId@
+
+-- | The name of the filter.
fName :: Lens' Filter Text
fName = lens _fName (\ s a -> s{_fName = a});
--- | A string value that you want to filter on. For example, if you choose the @destinationServer.osVersion@ filter name, you could specify @Ubuntu@ for the value.
+-- | 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;
@@ -390,9 +710,9 @@ fValues = lens _fValues (\ s a -> s{_fValues = a}) . _Coerce;
fCondition :: Lens' Filter Text
fCondition = lens _fCondition (\ s a -> s{_fCondition = a});
-instance Hashable Filter
+instance Hashable Filter where
-instance NFData Filter
+instance NFData Filter where
instance ToJSON Filter where
toJSON Filter'{..}
@@ -402,44 +722,163 @@ instance ToJSON Filter where
Just ("values" .= _fValues),
Just ("condition" .= _fCondition)])
+-- | Details about neighboring servers.
+--
+--
+--
+-- /See:/ 'neighborConnectionDetail' smart constructor.
+data NeighborConnectionDetail = NeighborConnectionDetail'
+ { _ncdTransportProtocol :: !(Maybe Text)
+ , _ncdDestinationPort :: !(Maybe Int)
+ , _ncdSourceServerId :: !Text
+ , _ncdDestinationServerId :: !Text
+ , _ncdConnectionsCount :: !Integer
+ } deriving (Eq, Read, Show, Data, Typeable, Generic)
+
+
+-- | Creates a value of 'NeighborConnectionDetail' with the minimum fields required to make a request.
+--
+-- Use one of the following lenses to modify other fields as desired:
+--
+-- * 'ncdTransportProtocol' - The network protocol used for the connection.
+--
+-- * 'ncdDestinationPort' - The destination network port for the connection.
+--
+-- * 'ncdSourceServerId' - The ID of the server that opened the network connection.
+--
+-- * 'ncdDestinationServerId' - The ID of the server that accepted the network connection.
+--
+-- * 'ncdConnectionsCount' - The number of open network connections with the neighboring server.
+neighborConnectionDetail
+ :: Text -- ^ 'ncdSourceServerId'
+ -> Text -- ^ 'ncdDestinationServerId'
+ -> Integer -- ^ 'ncdConnectionsCount'
+ -> NeighborConnectionDetail
+neighborConnectionDetail pSourceServerId_ pDestinationServerId_ pConnectionsCount_ =
+ NeighborConnectionDetail'
+ { _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});
+
+-- | The destination network port for the connection.
+ncdDestinationPort :: Lens' NeighborConnectionDetail (Maybe Int)
+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});
+
+-- | The ID of the server that accepted the network connection.
+ncdDestinationServerId :: Lens' NeighborConnectionDetail Text
+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});
+
+instance FromJSON NeighborConnectionDetail where
+ parseJSON
+ = withObject "NeighborConnectionDetail"
+ (\ x ->
+ NeighborConnectionDetail' <$>
+ (x .:? "transportProtocol") <*>
+ (x .:? "destinationPort")
+ <*> (x .: "sourceServerId")
+ <*> (x .: "destinationServerId")
+ <*> (x .: "connectionsCount"))
+
+instance Hashable NeighborConnectionDetail where
+
+instance NFData NeighborConnectionDetail where
+
+-- | A field and direction for ordered output.
+--
+--
+--
+-- /See:/ 'orderByElement' smart constructor.
+data OrderByElement = OrderByElement'
+ { _obeSortOrder :: !(Maybe OrderString)
+ , _obeFieldName :: !Text
+ } deriving (Eq, Read, Show, Data, Typeable, Generic)
+
+
+-- | Creates a value of 'OrderByElement' with the minimum fields required to make a request.
+--
+-- Use one of the following lenses to modify other fields as desired:
+--
+-- * 'obeSortOrder' - Ordering direction.
+--
+-- * 'obeFieldName' - The field on which to order.
+orderByElement
+ :: Text -- ^ 'obeFieldName'
+ -> OrderByElement
+orderByElement pFieldName_ =
+ OrderByElement' {_obeSortOrder = Nothing, _obeFieldName = pFieldName_}
+
+
+-- | Ordering direction.
+obeSortOrder :: Lens' OrderByElement (Maybe OrderString)
+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});
+
+instance Hashable OrderByElement where
+
+instance NFData OrderByElement where
+
+instance ToJSON OrderByElement where
+ toJSON OrderByElement'{..}
+ = object
+ (catMaybes
+ [("sortOrder" .=) <$> _obeSortOrder,
+ Just ("fieldName" .= _obeFieldName)])
+
-- | Metadata that help you categorize IT assets.
--
--
--
-- /See:/ 'tag' smart constructor.
data Tag = Tag'
- { _tagKey :: !Text
- , _tagValue :: !Text
- } deriving (Eq,Read,Show,Data,Typeable,Generic)
+ { _tagKey :: !Text
+ , _tagValue :: !Text
+ } deriving (Eq, Read, Show, Data, Typeable, Generic)
+
-- | Creates a value of 'Tag' with the minimum fields required to make a request.
--
-- Use one of the following lenses to modify other fields as desired:
--
--- * 'tagKey' - A type of tag to filter on.
+-- * 'tagKey' - The type of tag on which to filter.
--
--- * 'tagValue' - A value for a tag key to filter on.
+-- * 'tagValue' - A value for a tag key on which to filter.
tag
:: Text -- ^ 'tagKey'
-> Text -- ^ 'tagValue'
-> Tag
-tag pKey_ pValue_ =
- Tag'
- { _tagKey = pKey_
- , _tagValue = pValue_
- }
+tag pKey_ pValue_ = Tag' {_tagKey = pKey_, _tagValue = pValue_}
+
--- | A type of tag to filter on.
+-- | The type of tag on which to filter.
tagKey :: Lens' Tag Text
tagKey = lens _tagKey (\ s a -> s{_tagKey = a});
--- | A value for a tag key to filter on.
+-- | A value for a tag key on which to filter.
tagValue :: Lens' Tag Text
tagValue = lens _tagValue (\ s a -> s{_tagValue = a});
-instance Hashable Tag
+instance Hashable Tag where
-instance NFData Tag
+instance NFData Tag where
instance ToJSON Tag where
toJSON Tag'{..}
@@ -448,43 +887,41 @@ instance ToJSON Tag where
[Just ("key" .= _tagKey),
Just ("value" .= _tagValue)])
--- | The name of a tag filter. Valid names are: @tagKey@ , @tagValue@ , @configurationId@ .
+-- | The tag filter. Valid names are: @tagKey@ , @tagValue@ , @configurationId@ .
--
--
--
-- /See:/ 'tagFilter' smart constructor.
data TagFilter = TagFilter'
- { _tfName :: !Text
- , _tfValues :: ![Text]
- } deriving (Eq,Read,Show,Data,Typeable,Generic)
+ { _tfName :: !Text
+ , _tfValues :: ![Text]
+ } deriving (Eq, Read, Show, Data, Typeable, Generic)
+
-- | Creates a value of 'TagFilter' with the minimum fields required to make a request.
--
-- Use one of the following lenses to modify other fields as desired:
--
--- * 'tfName' - A name of a tag filter.
+-- * 'tfName' - A name of the tag filter.
--
--- * 'tfValues' - Values of a tag filter.
+-- * 'tfValues' - Values for the tag filter.
tagFilter
:: Text -- ^ 'tfName'
-> TagFilter
-tagFilter pName_ =
- TagFilter'
- { _tfName = pName_
- , _tfValues = mempty
- }
+tagFilter pName_ = TagFilter' {_tfName = pName_, _tfValues = mempty}
+
--- | A name of a tag filter.
+-- | A name of the tag filter.
tfName :: Lens' TagFilter Text
tfName = lens _tfName (\ s a -> s{_tfName = a});
--- | Values of a tag filter.
+-- | Values for the tag filter.
tfValues :: Lens' TagFilter [Text]
tfValues = lens _tfValues (\ s a -> s{_tfValues = a}) . _Coerce;
-instance Hashable TagFilter
+instance Hashable TagFilter where
-instance NFData TagFilter
+instance NFData TagFilter where
instance ToJSON TagFilter where
toJSON TagFilter'{..}
diff --git a/gen/Network/AWS/Discovery/Types/Sum.hs b/gen/Network/AWS/Discovery/Types/Sum.hs
index 9a70006..917dc80 100644
--- a/gen/Network/AWS/Discovery/Types/Sum.hs
+++ b/gen/Network/AWS/Discovery/Types/Sum.hs
@@ -9,24 +9,25 @@
-- |
-- Module : Network.AWS.Discovery.Types.Sum
--- Copyright : (c) 2013-2016 Brendan Hay
+-- Copyright : (c) 2013-2017 Brendan Hay
-- License : Mozilla Public License, v. 2.0.
--- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>
+-- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com>
-- Stability : auto-generated
-- Portability : non-portable (GHC extensions)
--
module Network.AWS.Discovery.Types.Sum where
-import Network.AWS.Prelude
+import Network.AWS.Prelude
data AgentStatus
- = Blacklisted
- | Healthy
- | Running
- | Shutdown
- | Unhealthy
- | Unknown
- deriving (Eq,Ord,Read,Show,Enum,Bounded,Data,Typeable,Generic)
+ = Blacklisted
+ | Healthy
+ | Running
+ | Shutdown
+ | Unhealthy
+ | Unknown
+ deriving (Eq, Ord, Read, Show, Enum, Bounded, Data, Typeable, Generic)
+
instance FromText AgentStatus where
parser = takeLowerText >>= \case
@@ -58,21 +59,25 @@ instance FromJSON AgentStatus where
parseJSON = parseJSONText "AgentStatus"
data ConfigurationItemType
- = Connection
- | Process
- | Server
- deriving (Eq,Ord,Read,Show,Enum,Bounded,Data,Typeable,Generic)
+ = Application
+ | Connection
+ | Process
+ | Server
+ deriving (Eq, Ord, Read, Show, Enum, Bounded, Data, Typeable, Generic)
+
instance FromText ConfigurationItemType where
parser = takeLowerText >>= \case
+ "application" -> pure Application
"connection" -> pure Connection
"process" -> pure Process
"server" -> pure Server
e -> fromTextError $ "Failure parsing ConfigurationItemType from value: '" <> e
- <> "'. Accepted values: connection, process, server"
+ <> "'. Accepted values: application, connection, process, server"
instance ToText ConfigurationItemType where
toText = \case
+ Application -> "APPLICATION"
Connection -> "CONNECTION"
Process -> "PROCESS"
Server -> "SERVER"
@@ -89,11 +94,39 @@ instance ToJSON ConfigurationItemType where
instance FromJSON ConfigurationItemType where
parseJSON = parseJSONText "ConfigurationItemType"
+data ExportDataFormat
+ = CSV
+ | Graphml
+ deriving (Eq, Ord, Read, Show, Enum, Bounded, Data, Typeable, Generic)
+
+
+instance FromText ExportDataFormat where
+ parser = takeLowerText >>= \case
+ "csv" -> pure CSV
+ "graphml" -> pure Graphml
+ e -> fromTextError $ "Failure parsing ExportDataFormat from value: '" <> e
+ <> "'. Accepted values: csv, graphml"
+
+instance ToText ExportDataFormat where
+ toText = \case
+ CSV -> "CSV"
+ Graphml -> "GRAPHML"
+
+instance Hashable ExportDataFormat
+instance NFData ExportDataFormat
+instance ToByteString ExportDataFormat
+instance ToQuery ExportDataFormat
+instance ToHeader ExportDataFormat
+
+instance ToJSON ExportDataFormat where
+ toJSON = toJSONText
+
data ExportStatus
- = Failed
- | InProgress
- | Succeeded
- deriving (Eq,Ord,Read,Show,Enum,Bounded,Data,Typeable,Generic)
+ = Failed
+ | InProgress
+ | Succeeded
+ deriving (Eq, Ord, Read, Show, Enum, Bounded, Data, Typeable, Generic)
+
instance FromText ExportStatus where
parser = takeLowerText >>= \case
@@ -117,3 +150,30 @@ instance ToHeader ExportStatus
instance FromJSON ExportStatus where
parseJSON = parseJSONText "ExportStatus"
+
+data OrderString
+ = Asc
+ | Desc
+ deriving (Eq, Ord, Read, Show, Enum, Bounded, Data, Typeable, Generic)
+
+
+instance FromText OrderString where
+ parser = takeLowerText >>= \case
+ "asc" -> pure Asc
+ "desc" -> pure Desc
+ e -> fromTextError $ "Failure parsing OrderString from value: '" <> e
+ <> "'. Accepted values: asc, desc"
+
+instance ToText OrderString where
+ toText = \case
+ Asc -> "ASC"
+ Desc -> "DESC"
+
+instance Hashable OrderString
+instance NFData OrderString
+instance ToByteString OrderString
+instance ToQuery OrderString
+instance ToHeader OrderString
+
+instance ToJSON OrderString where
+ toJSON = toJSONText
diff --git a/gen/Network/AWS/Discovery/UpdateApplication.hs b/gen/Network/AWS/Discovery/UpdateApplication.hs
new file mode 100644
index 0000000..624b0d8
--- /dev/null
+++ b/gen/Network/AWS/Discovery/UpdateApplication.hs
@@ -0,0 +1,146 @@
+{-# LANGUAGE DeriveDataTypeable #-}
+{-# LANGUAGE DeriveGeneric #-}
+{-# LANGUAGE OverloadedStrings #-}
+{-# LANGUAGE RecordWildCards #-}
+{-# LANGUAGE TypeFamilies #-}
+
+{-# OPTIONS_GHC -fno-warn-unused-imports #-}
+{-# OPTIONS_GHC -fno-warn-unused-binds #-}
+{-# OPTIONS_GHC -fno-warn-unused-matches #-}
+
+-- Derived from AWS service descriptions, licensed under Apache 2.0.
+
+-- |
+-- Module : Network.AWS.Discovery.UpdateApplication
+-- Copyright : (c) 2013-2017 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)
+--
+-- Updates metadata about an application.
+--
+--
+module Network.AWS.Discovery.UpdateApplication
+ (
+ -- * Creating a Request
+ updateApplication
+ , UpdateApplication
+ -- * Request Lenses
+ , uaName
+ , uaDescription
+ , uaConfigurationId
+
+ -- * Destructuring the Response
+ , updateApplicationResponse
+ , UpdateApplicationResponse
+ -- * Response Lenses
+ , uarsResponseStatus
+ ) where
+
+import Network.AWS.Discovery.Types
+import Network.AWS.Discovery.Types.Product
+import Network.AWS.Lens
+import Network.AWS.Prelude
+import Network.AWS.Request
+import Network.AWS.Response
+
+-- | /See:/ 'updateApplication' smart constructor.
+data UpdateApplication = UpdateApplication'
+ { _uaName :: !(Maybe Text)
+ , _uaDescription :: !(Maybe Text)
+ , _uaConfigurationId :: !Text
+ } deriving (Eq, Read, Show, Data, Typeable, Generic)
+
+
+-- | Creates a value of 'UpdateApplication' with the minimum fields required to make a request.
+--
+-- Use one of the following lenses to modify other fields as desired:
+--
+-- * 'uaName' - New name of the application to be updated.
+--
+-- * 'uaDescription' - New description of the application to be updated.
+--
+-- * 'uaConfigurationId' - Configuration ID of the application to be updated.
+updateApplication
+ :: Text -- ^ 'uaConfigurationId'
+ -> UpdateApplication
+updateApplication pConfigurationId_ =
+ UpdateApplication'
+ { _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});
+
+-- | New description of the application to be updated.
+uaDescription :: Lens' UpdateApplication (Maybe Text)
+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});
+
+instance AWSRequest UpdateApplication where
+ type Rs UpdateApplication = UpdateApplicationResponse
+ request = postJSON discovery
+ response
+ = receiveEmpty
+ (\ s h x ->
+ UpdateApplicationResponse' <$> (pure (fromEnum s)))
+
+instance Hashable UpdateApplication where
+
+instance NFData UpdateApplication where
+
+instance ToHeaders UpdateApplication where
+ toHeaders
+ = const
+ (mconcat
+ ["X-Amz-Target" =#
+ ("AWSPoseidonService_V2015_11_01.UpdateApplication"
+ :: ByteString),
+ "Content-Type" =#
+ ("application/x-amz-json-1.1" :: ByteString)])
+
+instance ToJSON UpdateApplication where
+ toJSON UpdateApplication'{..}
+ = object
+ (catMaybes
+ [("name" .=) <$> _uaName,
+ ("description" .=) <$> _uaDescription,
+ Just ("configurationId" .= _uaConfigurationId)])
+
+instance ToPath UpdateApplication where
+ toPath = const "/"
+
+instance ToQuery UpdateApplication where
+ toQuery = const mempty
+
+-- | /See:/ 'updateApplicationResponse' smart constructor.
+newtype UpdateApplicationResponse = UpdateApplicationResponse'
+ { _uarsResponseStatus :: Int
+ } deriving (Eq, Read, Show, Data, Typeable, Generic)
+
+
+-- | Creates a value of 'UpdateApplicationResponse' with the minimum fields required to make a request.
+--
+-- Use one of the following lenses to modify other fields as desired:
+--
+-- * 'uarsResponseStatus' - -- | The response status code.
+updateApplicationResponse
+ :: Int -- ^ 'uarsResponseStatus'
+ -> UpdateApplicationResponse
+updateApplicationResponse pResponseStatus_ =
+ UpdateApplicationResponse' {_uarsResponseStatus = pResponseStatus_}
+
+
+-- | -- | The response status code.
+uarsResponseStatus :: Lens' UpdateApplicationResponse Int
+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 fd7c4ab..e541319 100644
--- a/gen/Network/AWS/Discovery/Waiters.hs
+++ b/gen/Network/AWS/Discovery/Waiters.hs
@@ -7,15 +7,15 @@
-- |
-- Module : Network.AWS.Discovery.Waiters
--- Copyright : (c) 2013-2016 Brendan Hay
+-- Copyright : (c) 2013-2017 Brendan Hay
-- License : Mozilla Public License, v. 2.0.
--- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>
+-- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com>
-- Stability : auto-generated
-- Portability : non-portable (GHC extensions)
--
module Network.AWS.Discovery.Waiters where
-import Network.AWS.Discovery.Types
-import Network.AWS.Lens
-import Network.AWS.Prelude
-import Network.AWS.Waiter
+import Network.AWS.Discovery.Types
+import Network.AWS.Lens
+import Network.AWS.Prelude
+import Network.AWS.Waiter
diff --git a/test/Main.hs b/test/Main.hs
index 421bcbc..6dfeeb9 100644
--- a/test/Main.hs
+++ b/test/Main.hs
@@ -2,9 +2,9 @@
-- |
-- Module : Main
--- Copyright : (c) 2013-2016 Brendan Hay
+-- Copyright : (c) 2013-2017 Brendan Hay
-- License : Mozilla Public License, v. 2.0.
--- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>
+-- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com>
-- Stability : auto-generated
-- Portability : non-portable (GHC extensions)
--
diff --git a/test/Test/AWS/Gen/Discovery.hs b/test/Test/AWS/Gen/Discovery.hs
index 1957229..66c16d9 100644
--- a/test/Test/AWS/Gen/Discovery.hs
+++ b/test/Test/AWS/Gen/Discovery.hs
@@ -5,20 +5,20 @@
-- |
-- Module : Test.AWS.Gen.Discovery
--- Copyright : (c) 2013-2016 Brendan Hay
+-- Copyright : (c) 2013-2017 Brendan Hay
-- License : Mozilla Public License, v. 2.0.
--- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>
+-- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com>
-- Stability : auto-generated
-- Portability : non-portable (GHC extensions)
--
module Test.AWS.Gen.Discovery where
import Data.Proxy
+import Network.AWS.Discovery
+import Test.AWS.Discovery.Internal
import Test.AWS.Fixture
import Test.AWS.Prelude
import Test.Tasty
-import Network.AWS.Discovery
-import Test.AWS.Discovery.Internal
-- Auto-generated: the actual test selection needs to be manually placed into
-- the top-level so that real test data can be incrementally added.
@@ -31,9 +31,6 @@ import Test.AWS.Discovery.Internal
-- [ requestDescribeTags $
-- describeTags
--
--- , requestExportConfigurations $
--- exportConfigurations
---
-- , requestStopDataCollectionByAgentIds $
-- stopDataCollectionByAgentIds
--
@@ -43,30 +40,51 @@ import Test.AWS.Discovery.Internal
-- , requestDeleteTags $
-- deleteTags
--
+-- , requestDeleteApplications $
+-- deleteApplications
+--
+-- , requestUpdateApplication $
+-- updateApplication
+--
-- , requestDescribeConfigurations $
-- describeConfigurations
--
+-- , requestCreateApplication $
+-- createApplication
+--
-- , requestListConfigurations $
-- listConfigurations
--
-- , requestDescribeAgents $
-- describeAgents
--
--- , requestDescribeExportConfigurations $
--- describeExportConfigurations
+-- , requestDescribeExportTasks $
+-- describeExportTasks
--
-- , requestStartDataCollectionByAgentIds $
-- startDataCollectionByAgentIds
--
+-- , requestGetDiscoverySummary $
+-- getDiscoverySummary
+--
+-- , requestDisassociateConfigurationItemsFromApplication $
+-- disassociateConfigurationItemsFromApplication
+--
+-- , requestAssociateConfigurationItemsToApplication $
+-- associateConfigurationItemsToApplication
+--
+-- , requestListServerNeighbors $
+-- listServerNeighbors
+--
+-- , requestStartExportTask $
+-- startExportTask
+--
-- ]
-- , testGroup "response"
-- [ responseDescribeTags $
-- describeTagsResponse
--
--- , responseExportConfigurations $
--- exportConfigurationsResponse
---
-- , responseStopDataCollectionByAgentIds $
-- stopDataCollectionByAgentIdsResponse
--
@@ -76,21 +94,45 @@ import Test.AWS.Discovery.Internal
-- , responseDeleteTags $
-- deleteTagsResponse
--
+-- , responseDeleteApplications $
+-- deleteApplicationsResponse
+--
+-- , responseUpdateApplication $
+-- updateApplicationResponse
+--
-- , responseDescribeConfigurations $
-- describeConfigurationsResponse
--
+-- , responseCreateApplication $
+-- createApplicationResponse
+--
-- , responseListConfigurations $
-- listConfigurationsResponse
--
-- , responseDescribeAgents $
-- describeAgentsResponse
--
--- , responseDescribeExportConfigurations $
--- describeExportConfigurationsResponse
+-- , responseDescribeExportTasks $
+-- describeExportTasksResponse
--
-- , responseStartDataCollectionByAgentIds $
-- startDataCollectionByAgentIdsResponse
--
+-- , responseGetDiscoverySummary $
+-- getDiscoverySummaryResponse
+--
+-- , responseDisassociateConfigurationItemsFromApplication $
+-- disassociateConfigurationItemsFromApplicationResponse
+--
+-- , responseAssociateConfigurationItemsToApplication $
+-- associateConfigurationItemsToApplicationResponse
+--
+-- , responseListServerNeighbors $
+-- listServerNeighborsResponse
+--
+-- , responseStartExportTask $
+-- startExportTaskResponse
+--
-- ]
-- ]
@@ -101,11 +143,6 @@ requestDescribeTags = req
"DescribeTags"
"fixture/DescribeTags.yaml"
-requestExportConfigurations :: ExportConfigurations -> TestTree
-requestExportConfigurations = req
- "ExportConfigurations"
- "fixture/ExportConfigurations.yaml"
-
requestStopDataCollectionByAgentIds :: StopDataCollectionByAgentIds -> TestTree
requestStopDataCollectionByAgentIds = req
"StopDataCollectionByAgentIds"
@@ -121,11 +158,26 @@ requestDeleteTags = req
"DeleteTags"
"fixture/DeleteTags.yaml"
+requestDeleteApplications :: DeleteApplications -> TestTree
+requestDeleteApplications = req
+ "DeleteApplications"
+ "fixture/DeleteApplications.yaml"
+
+requestUpdateApplication :: UpdateApplication -> TestTree
+requestUpdateApplication = req
+ "UpdateApplication"
+ "fixture/UpdateApplication.yaml"
+
requestDescribeConfigurations :: DescribeConfigurations -> TestTree
requestDescribeConfigurations = req
"DescribeConfigurations"
"fixture/DescribeConfigurations.yaml"
+requestCreateApplication :: CreateApplication -> TestTree
+requestCreateApplication = req
+ "CreateApplication"
+ "fixture/CreateApplication.yaml"
+
requestListConfigurations :: ListConfigurations -> TestTree
requestListConfigurations = req
"ListConfigurations"
@@ -136,16 +188,41 @@ requestDescribeAgents = req
"DescribeAgents"
"fixture/DescribeAgents.yaml"
-requestDescribeExportConfigurations :: DescribeExportConfigurations -> TestTree
-requestDescribeExportConfigurations = req
- "DescribeExportConfigurations"
- "fixture/DescribeExportConfigurations.yaml"
+requestDescribeExportTasks :: DescribeExportTasks -> TestTree
+requestDescribeExportTasks = req
+ "DescribeExportTasks"
+ "fixture/DescribeExportTasks.yaml"
requestStartDataCollectionByAgentIds :: StartDataCollectionByAgentIds -> TestTree
requestStartDataCollectionByAgentIds = req
"StartDataCollectionByAgentIds"
"fixture/StartDataCollectionByAgentIds.yaml"
+requestGetDiscoverySummary :: GetDiscoverySummary -> TestTree
+requestGetDiscoverySummary = req
+ "GetDiscoverySummary"
+ "fixture/GetDiscoverySummary.yaml"
+
+requestDisassociateConfigurationItemsFromApplication :: DisassociateConfigurationItemsFromApplication -> TestTree
+requestDisassociateConfigurationItemsFromApplication = req
+ "DisassociateConfigurationItemsFromApplication"
+ "fixture/DisassociateConfigurationItemsFromApplication.yaml"
+
+requestAssociateConfigurationItemsToApplication :: AssociateConfigurationItemsToApplication -> TestTree
+requestAssociateConfigurationItemsToApplication = req
+ "AssociateConfigurationItemsToApplication"
+ "fixture/AssociateConfigurationItemsToApplication.yaml"
+
+requestListServerNeighbors :: ListServerNeighbors -> TestTree
+requestListServerNeighbors = req
+ "ListServerNeighbors"
+ "fixture/ListServerNeighbors.yaml"
+
+requestStartExportTask :: StartExportTask -> TestTree
+requestStartExportTask = req
+ "StartExportTask"
+ "fixture/StartExportTask.yaml"
+
-- Responses
responseDescribeTags :: DescribeTagsResponse -> TestTree
@@ -155,13 +232,6 @@ responseDescribeTags = res
discovery
(Proxy :: Proxy DescribeTags)
-responseExportConfigurations :: ExportConfigurationsResponse -> TestTree
-responseExportConfigurations = res
- "ExportConfigurationsResponse"
- "fixture/ExportConfigurationsResponse.proto"
- discovery
- (Proxy :: Proxy ExportConfigurations)
-
responseStopDataCollectionByAgentIds :: StopDataCollectionByAgentIdsResponse -> TestTree
responseStopDataCollectionByAgentIds = res
"StopDataCollectionByAgentIdsResponse"
@@ -183,6 +253,20 @@ responseDeleteTags = res
discovery
(Proxy :: Proxy DeleteTags)
+responseDeleteApplications :: DeleteApplicationsResponse -> TestTree
+responseDeleteApplications = res
+ "DeleteApplicationsResponse"
+ "fixture/DeleteApplicationsResponse.proto"
+ discovery
+ (Proxy :: Proxy DeleteApplications)
+
+responseUpdateApplication :: UpdateApplicationResponse -> TestTree
+responseUpdateApplication = res
+ "UpdateApplicationResponse"
+ "fixture/UpdateApplicationResponse.proto"
+ discovery
+ (Proxy :: Proxy UpdateApplication)
+
responseDescribeConfigurations :: DescribeConfigurationsResponse -> TestTree
responseDescribeConfigurations = res
"DescribeConfigurationsResponse"
@@ -190,6 +274,13 @@ responseDescribeConfigurations = res
discovery
(Proxy :: Proxy DescribeConfigurations)
+responseCreateApplication :: CreateApplicationResponse -> TestTree
+responseCreateApplication = res
+ "CreateApplicationResponse"
+ "fixture/CreateApplicationResponse.proto"
+ discovery
+ (Proxy :: Proxy CreateApplication)
+
responseListConfigurations :: ListConfigurationsResponse -> TestTree
responseListConfigurations = res
"ListConfigurationsResponse"
@@ -204,12 +295,12 @@ responseDescribeAgents = res
discovery
(Proxy :: Proxy DescribeAgents)
-responseDescribeExportConfigurations :: DescribeExportConfigurationsResponse -> TestTree
-responseDescribeExportConfigurations = res
- "DescribeExportConfigurationsResponse"
- "fixture/DescribeExportConfigurationsResponse.proto"
+responseDescribeExportTasks :: DescribeExportTasksResponse -> TestTree
+responseDescribeExportTasks = res
+ "DescribeExportTasksResponse"
+ "fixture/DescribeExportTasksResponse.proto"
discovery
- (Proxy :: Proxy DescribeExportConfigurations)
+ (Proxy :: Proxy DescribeExportTasks)
responseStartDataCollectionByAgentIds :: StartDataCollectionByAgentIdsResponse -> TestTree
responseStartDataCollectionByAgentIds = res
@@ -217,3 +308,38 @@ responseStartDataCollectionByAgentIds = res
"fixture/StartDataCollectionByAgentIdsResponse.proto"
discovery
(Proxy :: Proxy StartDataCollectionByAgentIds)
+
+responseGetDiscoverySummary :: GetDiscoverySummaryResponse -> TestTree
+responseGetDiscoverySummary = res
+ "GetDiscoverySummaryResponse"
+ "fixture/GetDiscoverySummaryResponse.proto"
+ discovery
+ (Proxy :: Proxy GetDiscoverySummary)
+
+responseDisassociateConfigurationItemsFromApplication :: DisassociateConfigurationItemsFromApplicationResponse -> TestTree
+responseDisassociateConfigurationItemsFromApplication = res
+ "DisassociateConfigurationItemsFromApplicationResponse"
+ "fixture/DisassociateConfigurationItemsFromApplicationResponse.proto"
+ discovery
+ (Proxy :: Proxy DisassociateConfigurationItemsFromApplication)
+
+responseAssociateConfigurationItemsToApplication :: AssociateConfigurationItemsToApplicationResponse -> TestTree
+responseAssociateConfigurationItemsToApplication = res
+ "AssociateConfigurationItemsToApplicationResponse"
+ "fixture/AssociateConfigurationItemsToApplicationResponse.proto"
+ discovery
+ (Proxy :: Proxy AssociateConfigurationItemsToApplication)
+
+responseListServerNeighbors :: ListServerNeighborsResponse -> TestTree
+responseListServerNeighbors = res
+ "ListServerNeighborsResponse"
+ "fixture/ListServerNeighborsResponse.proto"
+ discovery
+ (Proxy :: Proxy ListServerNeighbors)
+
+responseStartExportTask :: StartExportTaskResponse -> TestTree
+responseStartExportTask = res
+ "StartExportTaskResponse"
+ "fixture/StartExportTaskResponse.proto"
+ discovery
+ (Proxy :: Proxy StartExportTask)