amazonka-inspector 1.4.0 → 1.4.1

raw patch · 112 files changed

+6734/−6382 lines, 112 filesdep ~amazonka-coredep ~amazonka-inspectordep ~amazonka-testPVP: major bump suggested

API removals or changes: PVP suggests a major version bump

Dependency ranges changed: amazonka-core, amazonka-inspector, amazonka-test

API changes (from Hackage documentation)

Files

• README.md +4/−4
• amazonka-inspector.cabal +31/−35
• fixture/CreateAssessmentTarget.yaml +0/−0
• fixture/CreateAssessmentTargetResponse.proto +0/−0
• fixture/CreateAssessmentTemplate.yaml +0/−0
• fixture/CreateAssessmentTemplateResponse.proto +0/−0
• fixture/DeleteAssessmentRun.yaml +0/−0
• fixture/DeleteAssessmentRunResponse.proto +0/−0
• fixture/DeleteAssessmentTarget.yaml +0/−0
• fixture/DeleteAssessmentTargetResponse.proto +0/−0
• fixture/DeleteAssessmentTemplate.yaml +0/−0
• fixture/DeleteAssessmentTemplateResponse.proto +0/−0
• fixture/DescribeAssessmentRuns.yaml +0/−0
• fixture/DescribeAssessmentRunsResponse.proto +0/−0
• fixture/DescribeAssessmentTargets.yaml +0/−0
• fixture/DescribeAssessmentTargetsResponse.proto +0/−0
• fixture/DescribeAssessmentTemplates.yaml +0/−0
• fixture/DescribeAssessmentTemplatesResponse.proto +0/−0
• fixture/DescribeFindings.yaml +0/−0
• fixture/DescribeFindingsResponse.proto +0/−0
• fixture/DescribeResourceGroups.yaml +0/−0
• fixture/DescribeResourceGroupsResponse.proto +0/−0
• fixture/DescribeRulesPackages.yaml +0/−0
• fixture/DescribeRulesPackagesResponse.proto +0/−0
• fixture/GetTelemetryMetadata.yaml +0/−0
• fixture/GetTelemetryMetadataResponse.proto +0/−0
• fixture/ListAssessmentRunAgents.yaml +0/−0
• fixture/ListAssessmentRunAgentsResponse.proto +0/−0
• fixture/ListAssessmentRuns.yaml +0/−0
• fixture/ListAssessmentRunsResponse.proto +0/−0
• fixture/ListAssessmentTargets.yaml +0/−0
• fixture/ListAssessmentTargetsResponse.proto +0/−0
• fixture/ListAssessmentTemplates.yaml +0/−0
• fixture/ListAssessmentTemplatesResponse.proto +0/−0
• fixture/ListEventSubscriptions.yaml +0/−0
• fixture/ListEventSubscriptionsResponse.proto +0/−0
• fixture/PreviewAgents.yaml +0/−0
• fixture/PreviewAgentsResponse.proto +0/−0
• fixture/StartAssessmentRun.yaml +0/−0
• fixture/StartAssessmentRunResponse.proto +0/−0
• fixture/StopAssessmentRun.yaml +0/−0
• fixture/StopAssessmentRunResponse.proto +0/−0
• fixture/SubscribeToEvent.yaml +0/−0
• fixture/SubscribeToEventResponse.proto +0/−0
• fixture/UnsubscribeFromEvent.yaml +0/−0
• fixture/UnsubscribeFromEventResponse.proto +0/−0
• fixture/UpdateAssessmentTarget.yaml +0/−0
• fixture/UpdateAssessmentTargetResponse.proto +0/−0
• gen/Network/AWS/Inspector.hs +278/−212
• gen/Network/AWS/Inspector/AddAttributesToFindings.hs +29/−21
• gen/Network/AWS/Inspector/AttachAssessmentAndRulesPackage.hs +0/−146
• gen/Network/AWS/Inspector/CreateApplication.hs +0/−144
• gen/Network/AWS/Inspector/CreateAssessment.hs +0/−167
• gen/Network/AWS/Inspector/CreateAssessmentTarget.hs +153/−0
• gen/Network/AWS/Inspector/CreateAssessmentTemplate.hs +189/−0
• gen/Network/AWS/Inspector/CreateResourceGroup.hs +29/−23
• gen/Network/AWS/Inspector/DeleteApplication.hs +0/−127
• gen/Network/AWS/Inspector/DeleteAssessment.hs +0/−127
• gen/Network/AWS/Inspector/DeleteAssessmentRun.hs +108/−0
• gen/Network/AWS/Inspector/DeleteAssessmentTarget.hs +110/−0
• gen/Network/AWS/Inspector/DeleteAssessmentTemplate.hs +111/−0
• gen/Network/AWS/Inspector/DeleteRun.hs +0/−125
• gen/Network/AWS/Inspector/DescribeApplication.hs +0/−129
• gen/Network/AWS/Inspector/DescribeAssessment.hs +0/−129
• gen/Network/AWS/Inspector/DescribeAssessmentRuns.hs +147/−0
• gen/Network/AWS/Inspector/DescribeAssessmentTargets.hs +149/−0
• gen/Network/AWS/Inspector/DescribeAssessmentTemplates.hs +149/−0
• gen/Network/AWS/Inspector/DescribeCrossAccountAccessRole.hs +41/−23
• gen/Network/AWS/Inspector/DescribeFinding.hs +0/−126
• gen/Network/AWS/Inspector/DescribeFindings.hs +153/−0
• gen/Network/AWS/Inspector/DescribeResourceGroup.hs +0/−129
• gen/Network/AWS/Inspector/DescribeResourceGroups.hs +147/−0
• gen/Network/AWS/Inspector/DescribeRulesPackage.hs +0/−129
• gen/Network/AWS/Inspector/DescribeRulesPackages.hs +156/−0
• gen/Network/AWS/Inspector/DescribeRun.hs +0/−125
• gen/Network/AWS/Inspector/DetachAssessmentAndRulesPackage.hs +0/−146
• gen/Network/AWS/Inspector/GetAssessmentTelemetry.hs +0/−132
• gen/Network/AWS/Inspector/GetTelemetryMetadata.hs +136/−0
• gen/Network/AWS/Inspector/ListApplications.hs +0/−172
• gen/Network/AWS/Inspector/ListAssessmentAgents.hs +0/−183
• gen/Network/AWS/Inspector/ListAssessmentRunAgents.hs +188/−0
• gen/Network/AWS/Inspector/ListAssessmentRuns.hs +190/−0
• gen/Network/AWS/Inspector/ListAssessmentTargets.hs +178/−0
• gen/Network/AWS/Inspector/ListAssessmentTemplates.hs +189/−0
• gen/Network/AWS/Inspector/ListAssessments.hs +0/−182
• gen/Network/AWS/Inspector/ListAttachedAssessments.hs +0/−184
• gen/Network/AWS/Inspector/ListAttachedRulesPackages.hs +0/−169
• gen/Network/AWS/Inspector/ListEventSubscriptions.hs +173/−0
• gen/Network/AWS/Inspector/ListFindings.hs +31/−28
• gen/Network/AWS/Inspector/ListRulesPackages.hs +24/−20
• gen/Network/AWS/Inspector/ListRuns.hs +0/−181
• gen/Network/AWS/Inspector/ListTagsForResource.hs +19/−14
• gen/Network/AWS/Inspector/LocalizeText.hs +0/−148
• gen/Network/AWS/Inspector/PreviewAgents.hs +170/−0
• gen/Network/AWS/Inspector/PreviewAgentsForResourceGroup.hs +0/−171
• gen/Network/AWS/Inspector/RegisterCrossAccountAccessRole.hs +16/−33
• gen/Network/AWS/Inspector/RemoveAttributesFromFindings.hs +29/−22
• gen/Network/AWS/Inspector/RunAssessment.hs +0/−139
• gen/Network/AWS/Inspector/SetTagsForResource.hs +14/−36
• gen/Network/AWS/Inspector/StartAssessmentRun.hs +151/−0
• gen/Network/AWS/Inspector/StartDataCollection.hs +0/−132
• gen/Network/AWS/Inspector/StopAssessmentRun.hs +106/−0
• gen/Network/AWS/Inspector/StopDataCollection.hs +0/−130
• gen/Network/AWS/Inspector/SubscribeToEvent.hs +129/−0
• gen/Network/AWS/Inspector/Types.hs +223/−127
• gen/Network/AWS/Inspector/Types/Product.hs +1868/−1404
• gen/Network/AWS/Inspector/Types/Sum.hs +315/−0
• gen/Network/AWS/Inspector/UnsubscribeFromEvent.hs +131/−0
• gen/Network/AWS/Inspector/UpdateApplication.hs +0/−149
• gen/Network/AWS/Inspector/UpdateAssessment.hs +0/−151
• gen/Network/AWS/Inspector/UpdateAssessmentTarget.hs +134/−0
• test/Test/AWS/Gen/Inspector.hs +336/−408

@@ -8,17 +8,17 @@  ## Version -`1.4.0`+`1.4.1`   ## Description  Amazon Inspector -Amazon Inspector enables you to analyze the behavior of the applications-you run in AWS and to identify potential security issues. For more+Amazon Inspector enables you to analyze the behavior of your AWS+resources and to identify potential security issues. For more information, see-<https://docs.aws.amazon.com/inspector/latest/userguide/inspector_introduction.html Amazon Inspector User Guide>.+<http://docs.aws.amazon.com/inspector/latest/userguide/inspector_introduction.html Amazon Inspector User Guide>.  Documentation is available via [Hackage](http://hackage.haskell.org/package/amazonka-inspector) and the [AWS API Reference](https://aws.amazon.com/documentation/).

@@ -1,5 +1,5 @@ name:                  amazonka-inspector-version:               1.4.0+version:               1.4.1 synopsis:              Amazon Inspector SDK. homepage:              https://github.com/brendanhay/amazonka bug-reports:           https://github.com/brendanhay/amazonka/issues@@ -15,10 +15,10 @@ description:     Amazon Inspector -    Amazon Inspector enables you to analyze the behavior of the applications-    you run in AWS and to identify potential security issues. For more+    Amazon Inspector enables you to analyze the behavior of your AWS+    resources and to identify potential security issues. For more     information, see-    <https://docs.aws.amazon.com/inspector/latest/userguide/inspector_introduction.html Amazon Inspector User Guide>.+    <http://docs.aws.amazon.com/inspector/latest/userguide/inspector_introduction.html Amazon Inspector User Guide>.     .     The types from this library are intended to be used with     <http://hackage.haskell.org/package/amazonka amazonka>, which provides@@ -47,42 +47,38 @@     exposed-modules:           Network.AWS.Inspector         , Network.AWS.Inspector.AddAttributesToFindings-        , Network.AWS.Inspector.AttachAssessmentAndRulesPackage-        , Network.AWS.Inspector.CreateApplication-        , Network.AWS.Inspector.CreateAssessment+        , Network.AWS.Inspector.CreateAssessmentTarget+        , Network.AWS.Inspector.CreateAssessmentTemplate         , Network.AWS.Inspector.CreateResourceGroup-        , Network.AWS.Inspector.DeleteApplication-        , Network.AWS.Inspector.DeleteAssessment-        , Network.AWS.Inspector.DeleteRun-        , Network.AWS.Inspector.DescribeApplication-        , Network.AWS.Inspector.DescribeAssessment+        , Network.AWS.Inspector.DeleteAssessmentRun+        , Network.AWS.Inspector.DeleteAssessmentTarget+        , Network.AWS.Inspector.DeleteAssessmentTemplate+        , Network.AWS.Inspector.DescribeAssessmentRuns+        , Network.AWS.Inspector.DescribeAssessmentTargets+        , Network.AWS.Inspector.DescribeAssessmentTemplates         , Network.AWS.Inspector.DescribeCrossAccountAccessRole-        , Network.AWS.Inspector.DescribeFinding-        , Network.AWS.Inspector.DescribeResourceGroup-        , Network.AWS.Inspector.DescribeRulesPackage-        , Network.AWS.Inspector.DescribeRun-        , Network.AWS.Inspector.DetachAssessmentAndRulesPackage-        , Network.AWS.Inspector.GetAssessmentTelemetry-        , Network.AWS.Inspector.ListApplications-        , Network.AWS.Inspector.ListAssessmentAgents-        , Network.AWS.Inspector.ListAssessments-        , Network.AWS.Inspector.ListAttachedAssessments-        , Network.AWS.Inspector.ListAttachedRulesPackages+        , Network.AWS.Inspector.DescribeFindings+        , Network.AWS.Inspector.DescribeResourceGroups+        , Network.AWS.Inspector.DescribeRulesPackages+        , Network.AWS.Inspector.GetTelemetryMetadata+        , Network.AWS.Inspector.ListAssessmentRunAgents+        , Network.AWS.Inspector.ListAssessmentRuns+        , Network.AWS.Inspector.ListAssessmentTargets+        , Network.AWS.Inspector.ListAssessmentTemplates+        , Network.AWS.Inspector.ListEventSubscriptions         , Network.AWS.Inspector.ListFindings         , Network.AWS.Inspector.ListRulesPackages-        , Network.AWS.Inspector.ListRuns         , Network.AWS.Inspector.ListTagsForResource-        , Network.AWS.Inspector.LocalizeText-        , Network.AWS.Inspector.PreviewAgentsForResourceGroup+        , Network.AWS.Inspector.PreviewAgents         , Network.AWS.Inspector.RegisterCrossAccountAccessRole         , Network.AWS.Inspector.RemoveAttributesFromFindings-        , Network.AWS.Inspector.RunAssessment         , Network.AWS.Inspector.SetTagsForResource-        , Network.AWS.Inspector.StartDataCollection-        , Network.AWS.Inspector.StopDataCollection+        , Network.AWS.Inspector.StartAssessmentRun+        , Network.AWS.Inspector.StopAssessmentRun+        , Network.AWS.Inspector.SubscribeToEvent         , Network.AWS.Inspector.Types-        , Network.AWS.Inspector.UpdateApplication-        , Network.AWS.Inspector.UpdateAssessment+        , Network.AWS.Inspector.UnsubscribeFromEvent+        , Network.AWS.Inspector.UpdateAssessmentTarget         , Network.AWS.Inspector.Waiters      other-modules:@@ -90,7 +86,7 @@         , Network.AWS.Inspector.Types.Sum      build-depends:-          amazonka-core == 1.4.0.*+          amazonka-core == 1.4.1.*         , base          >= 4.7     && < 5  test-suite amazonka-inspector-test@@ -110,9 +106,9 @@         , Test.AWS.Inspector.Internal      build-depends:-          amazonka-core == 1.4.0.*-        , amazonka-test == 1.4.0.*-        , amazonka-inspector == 1.4.0.*+          amazonka-core == 1.4.1.*+        , amazonka-test == 1.4.1.*+        , amazonka-inspector == 1.4.1.*         , base         , bytestring         , tasty

@@ -13,10 +13,10 @@ -- -- Amazon Inspector ----- Amazon Inspector enables you to analyze the behavior of the applications--- you run in AWS and to identify potential security issues. For more+-- Amazon Inspector enables you to analyze the behavior of your AWS+-- resources and to identify potential security issues. For more -- information, see--- <https://docs.aws.amazon.com/inspector/latest/userguide/inspector_introduction.html Amazon Inspector User Guide>.+-- <http://docs.aws.amazon.com/inspector/latest/userguide/inspector_introduction.html Amazon Inspector User Guide>. module Network.AWS.Inspector     (     -- * Service Configuration@@ -28,11 +28,14 @@     -- ** AccessDeniedException     , _AccessDeniedException +    -- ** AssessmentRunInProgressException+    , _AssessmentRunInProgressException+     -- ** NoSuchEntityException     , _NoSuchEntityException -    -- ** OperationInProgressException-    , _OperationInProgressException+    -- ** AgentsAlreadyRunningAssessmentException+    , _AgentsAlreadyRunningAssessmentException      -- ** InvalidCrossAccountRoleException     , _InvalidCrossAccountRoleException@@ -43,24 +46,39 @@     -- ** InternalException     , _InternalException +    -- ** LimitExceededException+    , _LimitExceededException+     -- * Waiters     -- $waiters      -- * Operations     -- $operations +    -- ** GetTelemetryMetadata+    , module Network.AWS.Inspector.GetTelemetryMetadata+     -- ** ListFindings     , module Network.AWS.Inspector.ListFindings -    -- ** DescribeRun-    , module Network.AWS.Inspector.DescribeRun+    -- ** ListAssessmentTemplates+    , module Network.AWS.Inspector.ListAssessmentTemplates -    -- ** DescribeApplication-    , module Network.AWS.Inspector.DescribeApplication+    -- ** SubscribeToEvent+    , module Network.AWS.Inspector.SubscribeToEvent -    -- ** RunAssessment-    , module Network.AWS.Inspector.RunAssessment+    -- ** ListAssessmentRunAgents+    , module Network.AWS.Inspector.ListAssessmentRunAgents +    -- ** StartAssessmentRun+    , module Network.AWS.Inspector.StartAssessmentRun++    -- ** DeleteAssessmentTemplate+    , module Network.AWS.Inspector.DeleteAssessmentTemplate++    -- ** CreateAssessmentTemplate+    , module Network.AWS.Inspector.CreateAssessmentTemplate+     -- ** ListTagsForResource     , module Network.AWS.Inspector.ListTagsForResource @@ -70,154 +88,208 @@     -- ** DescribeCrossAccountAccessRole     , module Network.AWS.Inspector.DescribeCrossAccountAccessRole -    -- ** ListAttachedAssessments-    , module Network.AWS.Inspector.ListAttachedAssessments--    -- ** DescribeFinding-    , module Network.AWS.Inspector.DescribeFinding--    -- ** DeleteRun-    , module Network.AWS.Inspector.DeleteRun--    -- ** ListRuns-    , module Network.AWS.Inspector.ListRuns--    -- ** DeleteApplication-    , module Network.AWS.Inspector.DeleteApplication+    -- ** DescribeAssessmentTemplates+    , module Network.AWS.Inspector.DescribeAssessmentTemplates -    -- ** UpdateApplication-    , module Network.AWS.Inspector.UpdateApplication+    -- ** DescribeResourceGroups+    , module Network.AWS.Inspector.DescribeResourceGroups -    -- ** StartDataCollection-    , module Network.AWS.Inspector.StartDataCollection+    -- ** CreateAssessmentTarget+    , module Network.AWS.Inspector.CreateAssessmentTarget -    -- ** LocalizeText-    , module Network.AWS.Inspector.LocalizeText+    -- ** ListEventSubscriptions+    , module Network.AWS.Inspector.ListEventSubscriptions      -- ** RegisterCrossAccountAccessRole     , module Network.AWS.Inspector.RegisterCrossAccountAccessRole -    -- ** CreateApplication-    , module Network.AWS.Inspector.CreateApplication+    -- ** ListAssessmentTargets+    , module Network.AWS.Inspector.ListAssessmentTargets      -- ** CreateResourceGroup     , module Network.AWS.Inspector.CreateResourceGroup -    -- ** ListAttachedRulesPackages-    , module Network.AWS.Inspector.ListAttachedRulesPackages--    -- ** DeleteAssessment-    , module Network.AWS.Inspector.DeleteAssessment--    -- ** UpdateAssessment-    , module Network.AWS.Inspector.UpdateAssessment--    -- ** GetAssessmentTelemetry-    , module Network.AWS.Inspector.GetAssessmentTelemetry--    -- ** ListAssessments-    , module Network.AWS.Inspector.ListAssessments--    -- ** DescribeRulesPackage-    , module Network.AWS.Inspector.DescribeRulesPackage--    -- ** CreateAssessment-    , module Network.AWS.Inspector.CreateAssessment--    -- ** DetachAssessmentAndRulesPackage-    , module Network.AWS.Inspector.DetachAssessmentAndRulesPackage+    -- ** DescribeRulesPackages+    , module Network.AWS.Inspector.DescribeRulesPackages -    -- ** DescribeResourceGroup-    , module Network.AWS.Inspector.DescribeResourceGroup+    -- ** StopAssessmentRun+    , module Network.AWS.Inspector.StopAssessmentRun -    -- ** ListApplications-    , module Network.AWS.Inspector.ListApplications+    -- ** PreviewAgents+    , module Network.AWS.Inspector.PreviewAgents -    -- ** DescribeAssessment-    , module Network.AWS.Inspector.DescribeAssessment+    -- ** DescribeFindings+    , module Network.AWS.Inspector.DescribeFindings      -- ** AddAttributesToFindings     , module Network.AWS.Inspector.AddAttributesToFindings -    -- ** StopDataCollection-    , module Network.AWS.Inspector.StopDataCollection+    -- ** UpdateAssessmentTarget+    , module Network.AWS.Inspector.UpdateAssessmentTarget -    -- ** PreviewAgentsForResourceGroup-    , module Network.AWS.Inspector.PreviewAgentsForResourceGroup+    -- ** DeleteAssessmentTarget+    , module Network.AWS.Inspector.DeleteAssessmentTarget -    -- ** ListAssessmentAgents-    , module Network.AWS.Inspector.ListAssessmentAgents+    -- ** DeleteAssessmentRun+    , module Network.AWS.Inspector.DeleteAssessmentRun +    -- ** ListAssessmentRuns+    , module Network.AWS.Inspector.ListAssessmentRuns+     -- ** ListRulesPackages     , module Network.AWS.Inspector.ListRulesPackages +    -- ** DescribeAssessmentRuns+    , module Network.AWS.Inspector.DescribeAssessmentRuns++    -- ** UnsubscribeFromEvent+    , module Network.AWS.Inspector.UnsubscribeFromEvent+     -- ** RemoveAttributesFromFindings     , module Network.AWS.Inspector.RemoveAttributesFromFindings -    -- ** AttachAssessmentAndRulesPackage-    , module Network.AWS.Inspector.AttachAssessmentAndRulesPackage+    -- ** DescribeAssessmentTargets+    , module Network.AWS.Inspector.DescribeAssessmentTargets      -- * Types -    -- ** Agent-    , Agent-    , agent-    , aTelemetry-    , aAutoScalingGroup-    , aAgentHealthCode-    , aAssessmentARN-    , aAgentId-    , aAccountId-    , aAgentHealthDetails-    , aAgentHealth+    -- ** AgentHealth+    , AgentHealth (..) +    -- ** AgentHealthCode+    , AgentHealthCode (..)++    -- ** AssessmentRunNotificationSNSStatusCode+    , AssessmentRunNotificationSNSStatusCode (..)++    -- ** AssessmentRunState+    , AssessmentRunState (..)++    -- ** AssetType+    , AssetType (..)++    -- ** FailedItemErrorCode+    , FailedItemErrorCode (..)++    -- ** InspectorEvent+    , InspectorEvent (..)++    -- ** Locale+    , Locale (..)++    -- ** Severity+    , Severity (..)++    -- ** AgentFilter+    , AgentFilter+    , agentFilter+    , afAgentHealths+    , afAgentHealthCodes+     -- ** AgentPreview     , AgentPreview     , agentPreview     , apAutoScalingGroup     , apAgentId -    -- ** AgentsFilter-    , AgentsFilter-    , agentsFilter-    , afAgentHealthList+    -- ** AssessmentRun+    , AssessmentRun+    , assessmentRun+    , arStartedAt+    , arCompletedAt+    , arArn+    , arName+    , arAssessmentTemplateARN+    , arState+    , arDurationInSeconds+    , arRulesPackageARNs+    , arUserAttributesForFindings+    , arCreatedAt+    , arStateChangedAt+    , arDataCollected+    , arStateChanges+    , arNotifications -    -- ** Application-    , Application-    , application-    , aApplicationARN+    -- ** AssessmentRunAgent+    , AssessmentRunAgent+    , assessmentRunAgent+    , araAutoScalingGroup+    , araAgentHealthDetails+    , araAgentId+    , araAssessmentRunARN+    , araAgentHealth+    , araAgentHealthCode+    , araTelemetryMetadata++    -- ** AssessmentRunFilter+    , AssessmentRunFilter+    , assessmentRunFilter+    , arfStates+    , arfNamePattern+    , arfStartTimeRange+    , arfStateChangeTimeRange+    , arfRulesPackageARNs+    , arfCompletionTimeRange+    , arfDurationRange++    -- ** AssessmentRunNotification+    , AssessmentRunNotification+    , assessmentRunNotification+    , arnSnsTopicARN+    , arnSnsPublishStatusCode+    , arnMessage+    , arnDate+    , arnEvent+    , arnError++    -- ** AssessmentRunStateChange+    , AssessmentRunStateChange+    , assessmentRunStateChange+    , arscStateChangedAt+    , arscState++    -- ** AssessmentTarget+    , AssessmentTarget+    , assessmentTarget+    , aArn+    , aName     , aResourceGroupARN-    , aApplicationName+    , aCreatedAt+    , aUpdatedAt -    -- ** ApplicationsFilter-    , ApplicationsFilter-    , applicationsFilter-    , afApplicationNamePatterns+    -- ** AssessmentTargetFilter+    , AssessmentTargetFilter+    , assessmentTargetFilter+    , atfAssessmentTargetNamePattern -    -- ** Assessment-    , Assessment-    , assessment-    , assDataCollected-    , assApplicationARN-    , assStartTime-    , assAssessmentARN-    , assUserAttributesForFindings-    , assFailureMessage-    , assAssessmentState-    , assEndTime-    , assDurationInSeconds-    , assAssessmentName+    -- ** AssessmentTemplate+    , AssessmentTemplate+    , assessmentTemplate+    , atArn+    , atName+    , atAssessmentTargetARN+    , atDurationInSeconds+    , atRulesPackageARNs+    , atUserAttributesForFindings+    , atCreatedAt -    -- ** AssessmentsFilter-    , AssessmentsFilter-    , assessmentsFilter-    , afDataCollected-    , afAssessmentStates-    , afStartTimeRange-    , afAssessmentNamePatterns-    , afEndTimeRange-    , afDurationRange+    -- ** AssessmentTemplateFilter+    , AssessmentTemplateFilter+    , assessmentTemplateFilter+    , atfNamePattern+    , atfRulesPackageARNs+    , atfDurationRange +    -- ** AssetAttributes+    , AssetAttributes+    , assetAttributes+    , aaHostname+    , aaAutoScalingGroup+    , aaIpv4Addresses+    , aaAgentId+    , aaAmiId+    , aaSchemaVersion+     -- ** Attribute     , Attribute     , attribute@@ -227,93 +299,90 @@     -- ** DurationRange     , DurationRange     , durationRange-    , drMaximum-    , drMinimum+    , drMinSeconds+    , drMaxSeconds +    -- ** EventSubscription+    , EventSubscription+    , eventSubscription+    , esEvent+    , esSubscribedAt++    -- ** FailedItemDetails+    , FailedItemDetails+    , failedItemDetails+    , fidFailureCode+    , fidRetryable+     -- ** Finding     , Finding     , finding-    , fAutoScalingGroup-    , fFinding+    , fService     , fSeverity-    , fUserAttributes-    , fRuleName-    , fAgentId-    , fRunARN-    , fAttributes-    , fRulesPackageARN-    , fFindingARN+    , fSchemaVersion+    , fConfidence+    , fAssetAttributes+    , fServiceAttributes+    , fId+    , fNumericSeverity+    , fAssetType+    , fTitle+    , fIndicatorOfCompromise     , fDescription     , fRecommendation+    , fArn+    , fAttributes+    , fUserAttributes+    , fCreatedAt+    , fUpdatedAt -    -- ** FindingsFilter-    , FindingsFilter-    , findingsFilter+    -- ** FindingFilter+    , FindingFilter+    , findingFilter+    , ffAgentIds     , ffRuleNames     , ffUserAttributes     , ffRulesPackageARNs     , ffAttributes     , ffSeverities--    -- ** LocalizedText-    , LocalizedText-    , localizedText-    , ltKey-    , ltParameters--    -- ** LocalizedTextKey-    , LocalizedTextKey-    , localizedTextKey-    , ltkFacility-    , ltkId--    -- ** MessageTypeTelemetry-    , MessageTypeTelemetry-    , messageTypeTelemetry-    , mttDataSize-    , mttMessageType-    , mttCount+    , ffCreationTimeRange+    , ffAutoScalingGroups -    -- ** Parameter-    , Parameter-    , parameter-    , pValue-    , pName+    -- ** InspectorServiceAttributes+    , InspectorServiceAttributes+    , inspectorServiceAttributes+    , isaRulesPackageARN+    , isaAssessmentRunARN+    , isaSchemaVersion      -- ** ResourceGroup     , ResourceGroup     , resourceGroup-    , rgResourceGroupTags-    , rgResourceGroupARN+    , rgArn+    , rgTags+    , rgCreatedAt +    -- ** ResourceGroupTag+    , ResourceGroupTag+    , resourceGroupTag+    , rgtValue+    , rgtKey+     -- ** RulesPackage     , RulesPackage     , rulesPackage-    , rpVersion-    , rpRulesPackageARN-    , rpRulesPackageName     , rpDescription+    , rpArn+    , rpName+    , rpVersion     , rpProvider -    -- ** Run-    , Run-    , run-    , runCreationTime-    , runRulesPackages-    , runAssessmentARN-    , runRunState-    , runRunName-    , runCompletionTime-    , runRunARN--    -- ** RunsFilter-    , RunsFilter-    , runsFilter-    , rfCreationTime-    , rfRulesPackages-    , rfRunStates-    , rfRunNamePatterns-    , rfCompletionTime+    -- ** Subscription+    , Subscription+    , subscription+    , sResourceARN+    , sTopicARN+    , sEventSubscriptions      -- ** Tag     , Tag@@ -321,56 +390,53 @@     , tagValue     , tagKey -    -- ** Telemetry-    , Telemetry-    , telemetry-    , tStatus-    , tMessageTypeTelemetries+    -- ** TelemetryMetadata+    , TelemetryMetadata+    , telemetryMetadata+    , tmDataSize+    , tmMessageType+    , tmCount      -- ** TimestampRange     , TimestampRange     , timestampRange-    , trMaximum-    , trMinimum+    , trEndDate+    , trBeginDate     ) where  import           Network.AWS.Inspector.AddAttributesToFindings-import           Network.AWS.Inspector.AttachAssessmentAndRulesPackage-import           Network.AWS.Inspector.CreateApplication-import           Network.AWS.Inspector.CreateAssessment+import           Network.AWS.Inspector.CreateAssessmentTarget+import           Network.AWS.Inspector.CreateAssessmentTemplate import           Network.AWS.Inspector.CreateResourceGroup-import           Network.AWS.Inspector.DeleteApplication-import           Network.AWS.Inspector.DeleteAssessment-import           Network.AWS.Inspector.DeleteRun-import           Network.AWS.Inspector.DescribeApplication-import           Network.AWS.Inspector.DescribeAssessment+import           Network.AWS.Inspector.DeleteAssessmentRun+import           Network.AWS.Inspector.DeleteAssessmentTarget+import           Network.AWS.Inspector.DeleteAssessmentTemplate+import           Network.AWS.Inspector.DescribeAssessmentRuns+import           Network.AWS.Inspector.DescribeAssessmentTargets+import           Network.AWS.Inspector.DescribeAssessmentTemplates import           Network.AWS.Inspector.DescribeCrossAccountAccessRole-import           Network.AWS.Inspector.DescribeFinding-import           Network.AWS.Inspector.DescribeResourceGroup-import           Network.AWS.Inspector.DescribeRulesPackage-import           Network.AWS.Inspector.DescribeRun-import           Network.AWS.Inspector.DetachAssessmentAndRulesPackage-import           Network.AWS.Inspector.GetAssessmentTelemetry-import           Network.AWS.Inspector.ListApplications-import           Network.AWS.Inspector.ListAssessmentAgents-import           Network.AWS.Inspector.ListAssessments-import           Network.AWS.Inspector.ListAttachedAssessments-import           Network.AWS.Inspector.ListAttachedRulesPackages+import           Network.AWS.Inspector.DescribeFindings+import           Network.AWS.Inspector.DescribeResourceGroups+import           Network.AWS.Inspector.DescribeRulesPackages+import           Network.AWS.Inspector.GetTelemetryMetadata+import           Network.AWS.Inspector.ListAssessmentRunAgents+import           Network.AWS.Inspector.ListAssessmentRuns+import           Network.AWS.Inspector.ListAssessmentTargets+import           Network.AWS.Inspector.ListAssessmentTemplates+import           Network.AWS.Inspector.ListEventSubscriptions import           Network.AWS.Inspector.ListFindings import           Network.AWS.Inspector.ListRulesPackages-import           Network.AWS.Inspector.ListRuns import           Network.AWS.Inspector.ListTagsForResource-import           Network.AWS.Inspector.LocalizeText-import           Network.AWS.Inspector.PreviewAgentsForResourceGroup+import           Network.AWS.Inspector.PreviewAgents import           Network.AWS.Inspector.RegisterCrossAccountAccessRole import           Network.AWS.Inspector.RemoveAttributesFromFindings-import           Network.AWS.Inspector.RunAssessment import           Network.AWS.Inspector.SetTagsForResource-import           Network.AWS.Inspector.StartDataCollection-import           Network.AWS.Inspector.StopDataCollection+import           Network.AWS.Inspector.StartAssessmentRun+import           Network.AWS.Inspector.StopAssessmentRun+import           Network.AWS.Inspector.SubscribeToEvent import           Network.AWS.Inspector.Types-import           Network.AWS.Inspector.UpdateApplication-import           Network.AWS.Inspector.UpdateAssessment+import           Network.AWS.Inspector.UnsubscribeFromEvent+import           Network.AWS.Inspector.UpdateAssessmentTarget import           Network.AWS.Inspector.Waiters  {- $errors

@@ -18,8 +18,8 @@ -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Assigns attributes (key and value pair) to the findings specified by the--- findings\' ARNs.+-- Assigns attributes (key and value pairs) to the findings that are+-- specified by the ARNs of the findings. module Network.AWS.Inspector.AddAttributesToFindings     (     -- * Creating a Request@@ -33,8 +33,8 @@     , addAttributesToFindingsResponse     , AddAttributesToFindingsResponse     -- * Response Lenses-    , aatfrsMessage     , aatfrsResponseStatus+    , aatfrsFailedItems     ) where  import           Network.AWS.Inspector.Types@@ -46,7 +46,7 @@  -- | /See:/ 'addAttributesToFindings' smart constructor. data AddAttributesToFindings = AddAttributesToFindings'-    { _aatfFindingARNs :: ![Text]+    { _aatfFindingARNs :: !(List1 Text)     , _aatfAttributes  :: ![Attribute]     } deriving (Eq,Read,Show,Data,Typeable,Generic) @@ -58,16 +58,18 @@ -- -- * 'aatfAttributes' addAttributesToFindings-    :: AddAttributesToFindings-addAttributesToFindings =+    :: NonEmpty Text -- ^ 'aatfFindingARNs'+    -> AddAttributesToFindings+addAttributesToFindings pFindingARNs_ =     AddAttributesToFindings'-    { _aatfFindingARNs = mempty+    { _aatfFindingARNs = _List1 # pFindingARNs_     , _aatfAttributes = mempty     } --- | The ARNs specifying the findings that you want to assign attributes to.-aatfFindingARNs :: Lens' AddAttributesToFindings [Text]-aatfFindingARNs = lens _aatfFindingARNs (\ s a -> s{_aatfFindingARNs = a}) . _Coerce;+-- | The ARNs that specify the findings that you want to assign attributes+-- to.+aatfFindingARNs :: Lens' AddAttributesToFindings (NonEmpty Text)+aatfFindingARNs = lens _aatfFindingARNs (\ s a -> s{_aatfFindingARNs = a}) . _List1;  -- | The array of attributes that you want to assign to specified findings. aatfAttributes :: Lens' AddAttributesToFindings [Attribute]@@ -81,10 +83,13 @@           = receiveJSON               (\ s h x ->                  AddAttributesToFindingsResponse' <$>-                   (x .?> "message") <*> (pure (fromEnum s)))+                   (pure (fromEnum s)) <*>+                     (x .?> "failedItems" .!@ mempty))  instance Hashable AddAttributesToFindings +instance NFData AddAttributesToFindings+ instance ToHeaders AddAttributesToFindings where         toHeaders           = const@@ -110,30 +115,33 @@  -- | /See:/ 'addAttributesToFindingsResponse' smart constructor. data AddAttributesToFindingsResponse = AddAttributesToFindingsResponse'-    { _aatfrsMessage        :: !(Maybe Text)-    , _aatfrsResponseStatus :: !Int+    { _aatfrsResponseStatus :: !Int+    , _aatfrsFailedItems    :: !(Map Text FailedItemDetails)     } deriving (Eq,Read,Show,Data,Typeable,Generic)  -- | Creates a value of 'AddAttributesToFindingsResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: ----- * 'aatfrsMessage'--- -- * 'aatfrsResponseStatus'+--+-- * 'aatfrsFailedItems' addAttributesToFindingsResponse     :: Int -- ^ 'aatfrsResponseStatus'     -> AddAttributesToFindingsResponse addAttributesToFindingsResponse pResponseStatus_ =     AddAttributesToFindingsResponse'-    { _aatfrsMessage = Nothing-    , _aatfrsResponseStatus = pResponseStatus_+    { _aatfrsResponseStatus = pResponseStatus_+    , _aatfrsFailedItems = mempty     } --- | Confirmation details of the action performed.-aatfrsMessage :: Lens' AddAttributesToFindingsResponse (Maybe Text)-aatfrsMessage = lens _aatfrsMessage (\ s a -> s{_aatfrsMessage = a});- -- | The response status code. aatfrsResponseStatus :: Lens' AddAttributesToFindingsResponse Int aatfrsResponseStatus = lens _aatfrsResponseStatus (\ s a -> s{_aatfrsResponseStatus = a});++-- | Attribute details that cannot be described. An error code is provided+-- for each failed item.+aatfrsFailedItems :: Lens' AddAttributesToFindingsResponse (HashMap Text FailedItemDetails)+aatfrsFailedItems = lens _aatfrsFailedItems (\ s a -> s{_aatfrsFailedItems = a}) . _Map;++instance NFData AddAttributesToFindingsResponse

@@ -1,146 +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.Inspector.AttachAssessmentAndRulesPackage--- 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)------ Attaches the rules package specified by the rules package ARN to the--- assessment specified by the assessment ARN.-module Network.AWS.Inspector.AttachAssessmentAndRulesPackage-    (-    -- * Creating a Request-      attachAssessmentAndRulesPackage-    , AttachAssessmentAndRulesPackage-    -- * Request Lenses-    , aaarpAssessmentARN-    , aaarpRulesPackageARN--    -- * Destructuring the Response-    , attachAssessmentAndRulesPackageResponse-    , AttachAssessmentAndRulesPackageResponse-    -- * Response Lenses-    , aaarprsMessage-    , aaarprsResponseStatus-    ) where--import           Network.AWS.Inspector.Types-import           Network.AWS.Inspector.Types.Product-import           Network.AWS.Lens-import           Network.AWS.Prelude-import           Network.AWS.Request-import           Network.AWS.Response---- | /See:/ 'attachAssessmentAndRulesPackage' smart constructor.-data AttachAssessmentAndRulesPackage = AttachAssessmentAndRulesPackage'-    { _aaarpAssessmentARN   :: !Text-    , _aaarpRulesPackageARN :: !Text-    } deriving (Eq,Read,Show,Data,Typeable,Generic)---- | Creates a value of 'AttachAssessmentAndRulesPackage' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'aaarpAssessmentARN'------ * 'aaarpRulesPackageARN'-attachAssessmentAndRulesPackage-    :: Text -- ^ 'aaarpAssessmentARN'-    -> Text -- ^ 'aaarpRulesPackageARN'-    -> AttachAssessmentAndRulesPackage-attachAssessmentAndRulesPackage pAssessmentARN_ pRulesPackageARN_ =-    AttachAssessmentAndRulesPackage'-    { _aaarpAssessmentARN = pAssessmentARN_-    , _aaarpRulesPackageARN = pRulesPackageARN_-    }---- | The ARN specifying the assessment to which you want to attach a rules--- package.-aaarpAssessmentARN :: Lens' AttachAssessmentAndRulesPackage Text-aaarpAssessmentARN = lens _aaarpAssessmentARN (\ s a -> s{_aaarpAssessmentARN = a});---- | The ARN specifying the rules package that you want to attach to the--- assessment.-aaarpRulesPackageARN :: Lens' AttachAssessmentAndRulesPackage Text-aaarpRulesPackageARN = lens _aaarpRulesPackageARN (\ s a -> s{_aaarpRulesPackageARN = a});--instance AWSRequest AttachAssessmentAndRulesPackage-         where-        type Rs AttachAssessmentAndRulesPackage =-             AttachAssessmentAndRulesPackageResponse-        request = postJSON inspector-        response-          = receiveJSON-              (\ s h x ->-                 AttachAssessmentAndRulesPackageResponse' <$>-                   (x .?> "message") <*> (pure (fromEnum s)))--instance Hashable AttachAssessmentAndRulesPackage--instance ToHeaders AttachAssessmentAndRulesPackage-         where-        toHeaders-          = const-              (mconcat-                 ["X-Amz-Target" =#-                    ("InspectorService.AttachAssessmentAndRulesPackage"-                       :: ByteString),-                  "Content-Type" =#-                    ("application/x-amz-json-1.1" :: ByteString)])--instance ToJSON AttachAssessmentAndRulesPackage where-        toJSON AttachAssessmentAndRulesPackage'{..}-          = object-              (catMaybes-                 [Just ("assessmentArn" .= _aaarpAssessmentARN),-                  Just ("rulesPackageArn" .= _aaarpRulesPackageARN)])--instance ToPath AttachAssessmentAndRulesPackage where-        toPath = const "/"--instance ToQuery AttachAssessmentAndRulesPackage-         where-        toQuery = const mempty---- | /See:/ 'attachAssessmentAndRulesPackageResponse' smart constructor.-data AttachAssessmentAndRulesPackageResponse = AttachAssessmentAndRulesPackageResponse'-    { _aaarprsMessage        :: !(Maybe Text)-    , _aaarprsResponseStatus :: !Int-    } deriving (Eq,Read,Show,Data,Typeable,Generic)---- | Creates a value of 'AttachAssessmentAndRulesPackageResponse' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'aaarprsMessage'------ * 'aaarprsResponseStatus'-attachAssessmentAndRulesPackageResponse-    :: Int -- ^ 'aaarprsResponseStatus'-    -> AttachAssessmentAndRulesPackageResponse-attachAssessmentAndRulesPackageResponse pResponseStatus_ =-    AttachAssessmentAndRulesPackageResponse'-    { _aaarprsMessage = Nothing-    , _aaarprsResponseStatus = pResponseStatus_-    }---- | Confirmation details of the action performed.-aaarprsMessage :: Lens' AttachAssessmentAndRulesPackageResponse (Maybe Text)-aaarprsMessage = lens _aaarprsMessage (\ s a -> s{_aaarprsMessage = a});---- | The response status code.-aaarprsResponseStatus :: Lens' AttachAssessmentAndRulesPackageResponse Int-aaarprsResponseStatus = lens _aaarprsResponseStatus (\ s a -> s{_aaarprsResponseStatus = a});

@@ -1,144 +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.Inspector.CreateApplication--- 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)------ Creates a new application using the resource group ARN generated by--- < CreateResourceGroup>. You can create up to 50 applications per AWS--- account. You can run up to 500 concurrent agents per AWS account. For--- more information, see--- <https://docs.aws.amazon.com/inspector/latest/userguide//inspector_applications.html Inspector Applications.>-module Network.AWS.Inspector.CreateApplication-    (-    -- * Creating a Request-      createApplication-    , CreateApplication-    -- * Request Lenses-    , caApplicationName-    , caResourceGroupARN--    -- * Destructuring the Response-    , createApplicationResponse-    , CreateApplicationResponse-    -- * Response Lenses-    , carsApplicationARN-    , carsResponseStatus-    ) where--import           Network.AWS.Inspector.Types-import           Network.AWS.Inspector.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'-    { _caApplicationName  :: !Text-    , _caResourceGroupARN :: !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:------ * 'caApplicationName'------ * 'caResourceGroupARN'-createApplication-    :: Text -- ^ 'caApplicationName'-    -> Text -- ^ 'caResourceGroupARN'-    -> CreateApplication-createApplication pApplicationName_ pResourceGroupARN_ =-    CreateApplication'-    { _caApplicationName = pApplicationName_-    , _caResourceGroupARN = pResourceGroupARN_-    }---- | The user-defined name identifying the application that you want to--- create. The name must be unique within the AWS account.-caApplicationName :: Lens' CreateApplication Text-caApplicationName = lens _caApplicationName (\ s a -> s{_caApplicationName = a});---- | The ARN specifying the resource group that is used to create the--- application.-caResourceGroupARN :: Lens' CreateApplication Text-caResourceGroupARN = lens _caResourceGroupARN (\ s a -> s{_caResourceGroupARN = a});--instance AWSRequest CreateApplication where-        type Rs CreateApplication = CreateApplicationResponse-        request = postJSON inspector-        response-          = receiveJSON-              (\ s h x ->-                 CreateApplicationResponse' <$>-                   (x .?> "applicationArn") <*> (pure (fromEnum s)))--instance Hashable CreateApplication--instance ToHeaders CreateApplication where-        toHeaders-          = const-              (mconcat-                 ["X-Amz-Target" =#-                    ("InspectorService.CreateApplication" :: ByteString),-                  "Content-Type" =#-                    ("application/x-amz-json-1.1" :: ByteString)])--instance ToJSON CreateApplication where-        toJSON CreateApplication'{..}-          = object-              (catMaybes-                 [Just ("applicationName" .= _caApplicationName),-                  Just ("resourceGroupArn" .= _caResourceGroupARN)])--instance ToPath CreateApplication where-        toPath = const "/"--instance ToQuery CreateApplication where-        toQuery = const mempty---- | /See:/ 'createApplicationResponse' smart constructor.-data CreateApplicationResponse = CreateApplicationResponse'-    { _carsApplicationARN :: !(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:------ * 'carsApplicationARN'------ * 'carsResponseStatus'-createApplicationResponse-    :: Int -- ^ 'carsResponseStatus'-    -> CreateApplicationResponse-createApplicationResponse pResponseStatus_ =-    CreateApplicationResponse'-    { _carsApplicationARN = Nothing-    , _carsResponseStatus = pResponseStatus_-    }---- | The ARN specifying the application that is created.-carsApplicationARN :: Lens' CreateApplicationResponse (Maybe Text)-carsApplicationARN = lens _carsApplicationARN (\ s a -> s{_carsApplicationARN = a});---- | The response status code.-carsResponseStatus :: Lens' CreateApplicationResponse Int-carsResponseStatus = lens _carsResponseStatus (\ s a -> s{_carsResponseStatus = a});

@@ -1,167 +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.Inspector.CreateAssessment--- 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)------ Creates an assessment for the application specified by the application--- ARN. You can create up to 500 assessments per AWS account.-module Network.AWS.Inspector.CreateAssessment-    (-    -- * Creating a Request-      createAssessment-    , CreateAssessment-    -- * Request Lenses-    , caUserAttributesForFindings-    , caApplicationARN-    , caAssessmentName-    , caDurationInSeconds--    -- * Destructuring the Response-    , createAssessmentResponse-    , CreateAssessmentResponse-    -- * Response Lenses-    , crsAssessmentARN-    , crsResponseStatus-    ) where--import           Network.AWS.Inspector.Types-import           Network.AWS.Inspector.Types.Product-import           Network.AWS.Lens-import           Network.AWS.Prelude-import           Network.AWS.Request-import           Network.AWS.Response---- | /See:/ 'createAssessment' smart constructor.-data CreateAssessment = CreateAssessment'-    { _caUserAttributesForFindings :: !(Maybe [Attribute])-    , _caApplicationARN            :: !Text-    , _caAssessmentName            :: !Text-    , _caDurationInSeconds         :: !Int-    } deriving (Eq,Read,Show,Data,Typeable,Generic)---- | Creates a value of 'CreateAssessment' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'caUserAttributesForFindings'------ * 'caApplicationARN'------ * 'caAssessmentName'------ * 'caDurationInSeconds'-createAssessment-    :: Text -- ^ 'caApplicationARN'-    -> Text -- ^ 'caAssessmentName'-    -> Int -- ^ 'caDurationInSeconds'-    -> CreateAssessment-createAssessment pApplicationARN_ pAssessmentName_ pDurationInSeconds_ =-    CreateAssessment'-    { _caUserAttributesForFindings = Nothing-    , _caApplicationARN = pApplicationARN_-    , _caAssessmentName = pAssessmentName_-    , _caDurationInSeconds = pDurationInSeconds_-    }---- | The user-defined attributes that are assigned to every finding generated--- by running this assessment.-caUserAttributesForFindings :: Lens' CreateAssessment [Attribute]-caUserAttributesForFindings = lens _caUserAttributesForFindings (\ s a -> s{_caUserAttributesForFindings = a}) . _Default . _Coerce;---- | The ARN specifying the application for which you want to create an--- assessment.-caApplicationARN :: Lens' CreateAssessment Text-caApplicationARN = lens _caApplicationARN (\ s a -> s{_caApplicationARN = a});---- | The user-defined name identifying the assessment that you want to--- create. You can create several assessments for an application. The names--- of the assessments corresponding to a particular application must be--- unique.-caAssessmentName :: Lens' CreateAssessment Text-caAssessmentName = lens _caAssessmentName (\ s a -> s{_caAssessmentName = a});---- | The duration of the assessment in seconds. The default value is 3600--- seconds (one hour). The maximum value is 86400 seconds (one day).-caDurationInSeconds :: Lens' CreateAssessment Int-caDurationInSeconds = lens _caDurationInSeconds (\ s a -> s{_caDurationInSeconds = a});--instance AWSRequest CreateAssessment where-        type Rs CreateAssessment = CreateAssessmentResponse-        request = postJSON inspector-        response-          = receiveJSON-              (\ s h x ->-                 CreateAssessmentResponse' <$>-                   (x .?> "assessmentArn") <*> (pure (fromEnum s)))--instance Hashable CreateAssessment--instance ToHeaders CreateAssessment where-        toHeaders-          = const-              (mconcat-                 ["X-Amz-Target" =#-                    ("InspectorService.CreateAssessment" :: ByteString),-                  "Content-Type" =#-                    ("application/x-amz-json-1.1" :: ByteString)])--instance ToJSON CreateAssessment where-        toJSON CreateAssessment'{..}-          = object-              (catMaybes-                 [("userAttributesForFindings" .=) <$>-                    _caUserAttributesForFindings,-                  Just ("applicationArn" .= _caApplicationARN),-                  Just ("assessmentName" .= _caAssessmentName),-                  Just ("durationInSeconds" .= _caDurationInSeconds)])--instance ToPath CreateAssessment where-        toPath = const "/"--instance ToQuery CreateAssessment where-        toQuery = const mempty---- | /See:/ 'createAssessmentResponse' smart constructor.-data CreateAssessmentResponse = CreateAssessmentResponse'-    { _crsAssessmentARN  :: !(Maybe Text)-    , _crsResponseStatus :: !Int-    } deriving (Eq,Read,Show,Data,Typeable,Generic)---- | Creates a value of 'CreateAssessmentResponse' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'crsAssessmentARN'------ * 'crsResponseStatus'-createAssessmentResponse-    :: Int -- ^ 'crsResponseStatus'-    -> CreateAssessmentResponse-createAssessmentResponse pResponseStatus_ =-    CreateAssessmentResponse'-    { _crsAssessmentARN = Nothing-    , _crsResponseStatus = pResponseStatus_-    }---- | The ARN specifying the assessment that is created.-crsAssessmentARN :: Lens' CreateAssessmentResponse (Maybe Text)-crsAssessmentARN = lens _crsAssessmentARN (\ s a -> s{_crsAssessmentARN = a});---- | The response status code.-crsResponseStatus :: Lens' CreateAssessmentResponse Int-crsResponseStatus = lens _crsResponseStatus (\ s a -> s{_crsResponseStatus = a});

@@ -0,0 +1,153 @@+{-# 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.Inspector.CreateAssessmentTarget+-- 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)+--+-- Creates a new assessment target using the ARN of the resource group that+-- is generated by < CreateResourceGroup>. You can create up to 50+-- assessment targets per AWS account. You can run up to 500 concurrent+-- agents per AWS account. For more information, see+-- <http://docs.aws.amazon.com/inspector/latest/userguide/inspector_applications.html Amazon Inspector Assessment Targets>.+module Network.AWS.Inspector.CreateAssessmentTarget+    (+    -- * Creating a Request+      createAssessmentTarget+    , CreateAssessmentTarget+    -- * Request Lenses+    , catAssessmentTargetName+    , catResourceGroupARN++    -- * Destructuring the Response+    , createAssessmentTargetResponse+    , CreateAssessmentTargetResponse+    -- * Response Lenses+    , catrsResponseStatus+    , catrsAssessmentTargetARN+    ) where++import           Network.AWS.Inspector.Types+import           Network.AWS.Inspector.Types.Product+import           Network.AWS.Lens+import           Network.AWS.Prelude+import           Network.AWS.Request+import           Network.AWS.Response++-- | /See:/ 'createAssessmentTarget' smart constructor.+data CreateAssessmentTarget = CreateAssessmentTarget'+    { _catAssessmentTargetName :: !Text+    , _catResourceGroupARN     :: !Text+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'CreateAssessmentTarget' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'catAssessmentTargetName'+--+-- * 'catResourceGroupARN'+createAssessmentTarget+    :: Text -- ^ 'catAssessmentTargetName'+    -> Text -- ^ 'catResourceGroupARN'+    -> CreateAssessmentTarget+createAssessmentTarget pAssessmentTargetName_ pResourceGroupARN_ =+    CreateAssessmentTarget'+    { _catAssessmentTargetName = pAssessmentTargetName_+    , _catResourceGroupARN = pResourceGroupARN_+    }++-- | The user-defined name that identifies the assessment target that you+-- want to create. The name must be unique within the AWS account.+catAssessmentTargetName :: Lens' CreateAssessmentTarget Text+catAssessmentTargetName = lens _catAssessmentTargetName (\ s a -> s{_catAssessmentTargetName = a});++-- | The ARN that specifies the resource group that is used to create the+-- assessment target.+catResourceGroupARN :: Lens' CreateAssessmentTarget Text+catResourceGroupARN = lens _catResourceGroupARN (\ s a -> s{_catResourceGroupARN = a});++instance AWSRequest CreateAssessmentTarget where+        type Rs CreateAssessmentTarget =+             CreateAssessmentTargetResponse+        request = postJSON inspector+        response+          = receiveJSON+              (\ s h x ->+                 CreateAssessmentTargetResponse' <$>+                   (pure (fromEnum s)) <*>+                     (x .:> "assessmentTargetArn"))++instance Hashable CreateAssessmentTarget++instance NFData CreateAssessmentTarget++instance ToHeaders CreateAssessmentTarget where+        toHeaders+          = const+              (mconcat+                 ["X-Amz-Target" =#+                    ("InspectorService.CreateAssessmentTarget" ::+                       ByteString),+                  "Content-Type" =#+                    ("application/x-amz-json-1.1" :: ByteString)])++instance ToJSON CreateAssessmentTarget where+        toJSON CreateAssessmentTarget'{..}+          = object+              (catMaybes+                 [Just+                    ("assessmentTargetName" .= _catAssessmentTargetName),+                  Just ("resourceGroupArn" .= _catResourceGroupARN)])++instance ToPath CreateAssessmentTarget where+        toPath = const "/"++instance ToQuery CreateAssessmentTarget where+        toQuery = const mempty++-- | /See:/ 'createAssessmentTargetResponse' smart constructor.+data CreateAssessmentTargetResponse = CreateAssessmentTargetResponse'+    { _catrsResponseStatus      :: !Int+    , _catrsAssessmentTargetARN :: !Text+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'CreateAssessmentTargetResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'catrsResponseStatus'+--+-- * 'catrsAssessmentTargetARN'+createAssessmentTargetResponse+    :: Int -- ^ 'catrsResponseStatus'+    -> Text -- ^ 'catrsAssessmentTargetARN'+    -> CreateAssessmentTargetResponse+createAssessmentTargetResponse pResponseStatus_ pAssessmentTargetARN_ =+    CreateAssessmentTargetResponse'+    { _catrsResponseStatus = pResponseStatus_+    , _catrsAssessmentTargetARN = pAssessmentTargetARN_+    }++-- | The response status code.+catrsResponseStatus :: Lens' CreateAssessmentTargetResponse Int+catrsResponseStatus = lens _catrsResponseStatus (\ s a -> s{_catrsResponseStatus = a});++-- | The ARN that specifies the assessment target that is created.+catrsAssessmentTargetARN :: Lens' CreateAssessmentTargetResponse Text+catrsAssessmentTargetARN = lens _catrsAssessmentTargetARN (\ s a -> s{_catrsAssessmentTargetARN = a});++instance NFData CreateAssessmentTargetResponse

@@ -0,0 +1,189 @@+{-# 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.Inspector.CreateAssessmentTemplate+-- 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)+--+-- Creates an assessment template for the assessment target that is+-- specified by the ARN of the assessment target.+module Network.AWS.Inspector.CreateAssessmentTemplate+    (+    -- * Creating a Request+      createAssessmentTemplate+    , CreateAssessmentTemplate+    -- * Request Lenses+    , catUserAttributesForFindings+    , catAssessmentTargetARN+    , catAssessmentTemplateName+    , catDurationInSeconds+    , catRulesPackageARNs++    -- * Destructuring the Response+    , createAssessmentTemplateResponse+    , CreateAssessmentTemplateResponse+    -- * Response Lenses+    , crsResponseStatus+    , crsAssessmentTemplateARN+    ) where++import           Network.AWS.Inspector.Types+import           Network.AWS.Inspector.Types.Product+import           Network.AWS.Lens+import           Network.AWS.Prelude+import           Network.AWS.Request+import           Network.AWS.Response++-- | /See:/ 'createAssessmentTemplate' smart constructor.+data CreateAssessmentTemplate = CreateAssessmentTemplate'+    { _catUserAttributesForFindings :: !(Maybe [Attribute])+    , _catAssessmentTargetARN       :: !Text+    , _catAssessmentTemplateName    :: !Text+    , _catDurationInSeconds         :: !Nat+    , _catRulesPackageARNs          :: ![Text]+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'CreateAssessmentTemplate' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'catUserAttributesForFindings'+--+-- * 'catAssessmentTargetARN'+--+-- * 'catAssessmentTemplateName'+--+-- * 'catDurationInSeconds'+--+-- * 'catRulesPackageARNs'+createAssessmentTemplate+    :: Text -- ^ 'catAssessmentTargetARN'+    -> Text -- ^ 'catAssessmentTemplateName'+    -> Natural -- ^ 'catDurationInSeconds'+    -> CreateAssessmentTemplate+createAssessmentTemplate pAssessmentTargetARN_ pAssessmentTemplateName_ pDurationInSeconds_ =+    CreateAssessmentTemplate'+    { _catUserAttributesForFindings = Nothing+    , _catAssessmentTargetARN = pAssessmentTargetARN_+    , _catAssessmentTemplateName = pAssessmentTemplateName_+    , _catDurationInSeconds = _Nat # pDurationInSeconds_+    , _catRulesPackageARNs = mempty+    }++-- | The user-defined attributes that are assigned to every finding that is+-- generated by the assessment run that uses this assessment template.+catUserAttributesForFindings :: Lens' CreateAssessmentTemplate [Attribute]+catUserAttributesForFindings = lens _catUserAttributesForFindings (\ s a -> s{_catUserAttributesForFindings = a}) . _Default . _Coerce;++-- | The ARN that specifies the assessment target for which you want to+-- create the assessment template.+catAssessmentTargetARN :: Lens' CreateAssessmentTemplate Text+catAssessmentTargetARN = lens _catAssessmentTargetARN (\ s a -> s{_catAssessmentTargetARN = a});++-- | The user-defined name that identifies the assessment template that you+-- want to create. You can create several assessment templates for an+-- assessment target. The names of the assessment templates that correspond+-- to a particular assessment target must be unique.+catAssessmentTemplateName :: Lens' CreateAssessmentTemplate Text+catAssessmentTemplateName = lens _catAssessmentTemplateName (\ s a -> s{_catAssessmentTemplateName = a});++-- | The duration of the assessment run in seconds. The default value is 3600+-- seconds (one hour).+catDurationInSeconds :: Lens' CreateAssessmentTemplate Natural+catDurationInSeconds = lens _catDurationInSeconds (\ s a -> s{_catDurationInSeconds = a}) . _Nat;++-- | The ARNs that specify the rules packages that you want to attach to the+-- assessment template.+catRulesPackageARNs :: Lens' CreateAssessmentTemplate [Text]+catRulesPackageARNs = lens _catRulesPackageARNs (\ s a -> s{_catRulesPackageARNs = a}) . _Coerce;++instance AWSRequest CreateAssessmentTemplate where+        type Rs CreateAssessmentTemplate =+             CreateAssessmentTemplateResponse+        request = postJSON inspector+        response+          = receiveJSON+              (\ s h x ->+                 CreateAssessmentTemplateResponse' <$>+                   (pure (fromEnum s)) <*>+                     (x .:> "assessmentTemplateArn"))++instance Hashable CreateAssessmentTemplate++instance NFData CreateAssessmentTemplate++instance ToHeaders CreateAssessmentTemplate where+        toHeaders+          = const+              (mconcat+                 ["X-Amz-Target" =#+                    ("InspectorService.CreateAssessmentTemplate" ::+                       ByteString),+                  "Content-Type" =#+                    ("application/x-amz-json-1.1" :: ByteString)])++instance ToJSON CreateAssessmentTemplate where+        toJSON CreateAssessmentTemplate'{..}+          = object+              (catMaybes+                 [("userAttributesForFindings" .=) <$>+                    _catUserAttributesForFindings,+                  Just+                    ("assessmentTargetArn" .= _catAssessmentTargetARN),+                  Just+                    ("assessmentTemplateName" .=+                       _catAssessmentTemplateName),+                  Just ("durationInSeconds" .= _catDurationInSeconds),+                  Just ("rulesPackageArns" .= _catRulesPackageARNs)])++instance ToPath CreateAssessmentTemplate where+        toPath = const "/"++instance ToQuery CreateAssessmentTemplate where+        toQuery = const mempty++-- | /See:/ 'createAssessmentTemplateResponse' smart constructor.+data CreateAssessmentTemplateResponse = CreateAssessmentTemplateResponse'+    { _crsResponseStatus        :: !Int+    , _crsAssessmentTemplateARN :: !Text+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'CreateAssessmentTemplateResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'crsResponseStatus'+--+-- * 'crsAssessmentTemplateARN'+createAssessmentTemplateResponse+    :: Int -- ^ 'crsResponseStatus'+    -> Text -- ^ 'crsAssessmentTemplateARN'+    -> CreateAssessmentTemplateResponse+createAssessmentTemplateResponse pResponseStatus_ pAssessmentTemplateARN_ =+    CreateAssessmentTemplateResponse'+    { _crsResponseStatus = pResponseStatus_+    , _crsAssessmentTemplateARN = pAssessmentTemplateARN_+    }++-- | The response status code.+crsResponseStatus :: Lens' CreateAssessmentTemplateResponse Int+crsResponseStatus = lens _crsResponseStatus (\ s a -> s{_crsResponseStatus = a});++-- | The ARN that specifies the assessment template that is created.+crsAssessmentTemplateARN :: Lens' CreateAssessmentTemplateResponse Text+crsAssessmentTemplateARN = lens _crsAssessmentTemplateARN (\ s a -> s{_crsAssessmentTemplateARN = a});++instance NFData CreateAssessmentTemplateResponse

@@ -20,8 +20,9 @@ -- -- Creates a resource group using the specified set of tags (key and value -- pairs) that are used to select the EC2 instances to be included in an--- Inspector application. The created resource group is then used to create--- an Inspector application.+-- Amazon Inspector assessment target. The created resource group is then+-- used to create an Amazon Inspector assessment target. For more+-- information, see < CreateAssessmentTarget>. module Network.AWS.Inspector.CreateResourceGroup     (     -- * Creating a Request@@ -34,8 +35,8 @@     , createResourceGroupResponse     , CreateResourceGroupResponse     -- * Response Lenses-    , crgrsResourceGroupARN     , crgrsResponseStatus+    , crgrsResourceGroupARN     ) where  import           Network.AWS.Inspector.Types@@ -47,7 +48,7 @@  -- | /See:/ 'createResourceGroup' smart constructor. newtype CreateResourceGroup = CreateResourceGroup'-    { _crgResourceGroupTags :: Text+    { _crgResourceGroupTags :: List1 ResourceGroupTag     } deriving (Eq,Read,Show,Data,Typeable,Generic)  -- | Creates a value of 'CreateResourceGroup' with the minimum fields required to make a request.@@ -56,19 +57,19 @@ -- -- * 'crgResourceGroupTags' createResourceGroup-    :: Text -- ^ 'crgResourceGroupTags'+    :: NonEmpty ResourceGroupTag -- ^ 'crgResourceGroupTags'     -> CreateResourceGroup createResourceGroup pResourceGroupTags_ =     CreateResourceGroup'-    { _crgResourceGroupTags = pResourceGroupTags_+    { _crgResourceGroupTags = _List1 # pResourceGroupTags_     } --- | A collection of keys and an array of possible values in JSON format.+-- | A collection of keys and an array of possible values,+-- \'[{\"key\":\"key1\",\"values\":[\"Value1\",\"Value2\"]},{\"key\":\"Key2\",\"values\":[\"Value3\"]}]\'. ----- For example, [{ \"key1\" : [\"Value1\",\"Value2\"]},{\"Key2\":--- [\"Value3\"]}]-crgResourceGroupTags :: Lens' CreateResourceGroup Text-crgResourceGroupTags = lens _crgResourceGroupTags (\ s a -> s{_crgResourceGroupTags = a});+-- For example,\'[{\"key\":\"Name\",\"values\":[\"TestEC2Instance\"]}]\'.+crgResourceGroupTags :: Lens' CreateResourceGroup (NonEmpty ResourceGroupTag)+crgResourceGroupTags = lens _crgResourceGroupTags (\ s a -> s{_crgResourceGroupTags = a}) . _List1;  instance AWSRequest CreateResourceGroup where         type Rs CreateResourceGroup =@@ -78,10 +79,12 @@           = receiveJSON               (\ s h x ->                  CreateResourceGroupResponse' <$>-                   (x .?> "resourceGroupArn") <*> (pure (fromEnum s)))+                   (pure (fromEnum s)) <*> (x .:> "resourceGroupArn"))  instance Hashable CreateResourceGroup +instance NFData CreateResourceGroup+ instance ToHeaders CreateResourceGroup where         toHeaders           = const@@ -107,30 +110,33 @@  -- | /See:/ 'createResourceGroupResponse' smart constructor. data CreateResourceGroupResponse = CreateResourceGroupResponse'-    { _crgrsResourceGroupARN :: !(Maybe Text)-    , _crgrsResponseStatus   :: !Int+    { _crgrsResponseStatus   :: !Int+    , _crgrsResourceGroupARN :: !Text     } deriving (Eq,Read,Show,Data,Typeable,Generic)  -- | Creates a value of 'CreateResourceGroupResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: ----- * 'crgrsResourceGroupARN'--- -- * 'crgrsResponseStatus'+--+-- * 'crgrsResourceGroupARN' createResourceGroupResponse     :: Int -- ^ 'crgrsResponseStatus'+    -> Text -- ^ 'crgrsResourceGroupARN'     -> CreateResourceGroupResponse-createResourceGroupResponse pResponseStatus_ =+createResourceGroupResponse pResponseStatus_ pResourceGroupARN_ =     CreateResourceGroupResponse'-    { _crgrsResourceGroupARN = Nothing-    , _crgrsResponseStatus = pResponseStatus_+    { _crgrsResponseStatus = pResponseStatus_+    , _crgrsResourceGroupARN = pResourceGroupARN_     } --- | The ARN specifying the resource group that is created.-crgrsResourceGroupARN :: Lens' CreateResourceGroupResponse (Maybe Text)-crgrsResourceGroupARN = lens _crgrsResourceGroupARN (\ s a -> s{_crgrsResourceGroupARN = a});- -- | The response status code. crgrsResponseStatus :: Lens' CreateResourceGroupResponse Int crgrsResponseStatus = lens _crgrsResponseStatus (\ s a -> s{_crgrsResponseStatus = a});++-- | The ARN that specifies the resource group that is created.+crgrsResourceGroupARN :: Lens' CreateResourceGroupResponse Text+crgrsResourceGroupARN = lens _crgrsResourceGroupARN (\ s a -> s{_crgrsResourceGroupARN = a});++instance NFData CreateResourceGroupResponse

@@ -1,127 +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.Inspector.DeleteApplication--- 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)------ Deletes the application specified by the application ARN.-module Network.AWS.Inspector.DeleteApplication-    (-    -- * Creating a Request-      deleteApplication-    , DeleteApplication-    -- * Request Lenses-    , dApplicationARN--    -- * Destructuring the Response-    , deleteApplicationResponse-    , DeleteApplicationResponse-    -- * Response Lenses-    , drsMessage-    , drsResponseStatus-    ) where--import           Network.AWS.Inspector.Types-import           Network.AWS.Inspector.Types.Product-import           Network.AWS.Lens-import           Network.AWS.Prelude-import           Network.AWS.Request-import           Network.AWS.Response---- | /See:/ 'deleteApplication' smart constructor.-newtype DeleteApplication = DeleteApplication'-    { _dApplicationARN :: Text-    } deriving (Eq,Read,Show,Data,Typeable,Generic)---- | Creates a value of 'DeleteApplication' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'dApplicationARN'-deleteApplication-    :: Text -- ^ 'dApplicationARN'-    -> DeleteApplication-deleteApplication pApplicationARN_ =-    DeleteApplication'-    { _dApplicationARN = pApplicationARN_-    }---- | The ARN specifying the application that you want to delete.-dApplicationARN :: Lens' DeleteApplication Text-dApplicationARN = lens _dApplicationARN (\ s a -> s{_dApplicationARN = a});--instance AWSRequest DeleteApplication where-        type Rs DeleteApplication = DeleteApplicationResponse-        request = postJSON inspector-        response-          = receiveJSON-              (\ s h x ->-                 DeleteApplicationResponse' <$>-                   (x .?> "message") <*> (pure (fromEnum s)))--instance Hashable DeleteApplication--instance ToHeaders DeleteApplication where-        toHeaders-          = const-              (mconcat-                 ["X-Amz-Target" =#-                    ("InspectorService.DeleteApplication" :: ByteString),-                  "Content-Type" =#-                    ("application/x-amz-json-1.1" :: ByteString)])--instance ToJSON DeleteApplication where-        toJSON DeleteApplication'{..}-          = object-              (catMaybes-                 [Just ("applicationArn" .= _dApplicationARN)])--instance ToPath DeleteApplication where-        toPath = const "/"--instance ToQuery DeleteApplication where-        toQuery = const mempty---- | /See:/ 'deleteApplicationResponse' smart constructor.-data DeleteApplicationResponse = DeleteApplicationResponse'-    { _drsMessage        :: !(Maybe Text)-    , _drsResponseStatus :: !Int-    } deriving (Eq,Read,Show,Data,Typeable,Generic)---- | Creates a value of 'DeleteApplicationResponse' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'drsMessage'------ * 'drsResponseStatus'-deleteApplicationResponse-    :: Int -- ^ 'drsResponseStatus'-    -> DeleteApplicationResponse-deleteApplicationResponse pResponseStatus_ =-    DeleteApplicationResponse'-    { _drsMessage = Nothing-    , _drsResponseStatus = pResponseStatus_-    }---- | Confirmation details of the action performed.-drsMessage :: Lens' DeleteApplicationResponse (Maybe Text)-drsMessage = lens _drsMessage (\ s a -> s{_drsMessage = a});---- | The response status code.-drsResponseStatus :: Lens' DeleteApplicationResponse Int-drsResponseStatus = lens _drsResponseStatus (\ s a -> s{_drsResponseStatus = a});

@@ -1,127 +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.Inspector.DeleteAssessment--- 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)------ Deletes the assessment specified by the assessment ARN.-module Network.AWS.Inspector.DeleteAssessment-    (-    -- * Creating a Request-      deleteAssessment-    , DeleteAssessment-    -- * Request Lenses-    , daAssessmentARN--    -- * Destructuring the Response-    , deleteAssessmentResponse-    , DeleteAssessmentResponse-    -- * Response Lenses-    , daarsMessage-    , daarsResponseStatus-    ) where--import           Network.AWS.Inspector.Types-import           Network.AWS.Inspector.Types.Product-import           Network.AWS.Lens-import           Network.AWS.Prelude-import           Network.AWS.Request-import           Network.AWS.Response---- | /See:/ 'deleteAssessment' smart constructor.-newtype DeleteAssessment = DeleteAssessment'-    { _daAssessmentARN :: Text-    } deriving (Eq,Read,Show,Data,Typeable,Generic)---- | Creates a value of 'DeleteAssessment' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'daAssessmentARN'-deleteAssessment-    :: Text -- ^ 'daAssessmentARN'-    -> DeleteAssessment-deleteAssessment pAssessmentARN_ =-    DeleteAssessment'-    { _daAssessmentARN = pAssessmentARN_-    }---- | The ARN specifying the assessment that you want to delete.-daAssessmentARN :: Lens' DeleteAssessment Text-daAssessmentARN = lens _daAssessmentARN (\ s a -> s{_daAssessmentARN = a});--instance AWSRequest DeleteAssessment where-        type Rs DeleteAssessment = DeleteAssessmentResponse-        request = postJSON inspector-        response-          = receiveJSON-              (\ s h x ->-                 DeleteAssessmentResponse' <$>-                   (x .?> "message") <*> (pure (fromEnum s)))--instance Hashable DeleteAssessment--instance ToHeaders DeleteAssessment where-        toHeaders-          = const-              (mconcat-                 ["X-Amz-Target" =#-                    ("InspectorService.DeleteAssessment" :: ByteString),-                  "Content-Type" =#-                    ("application/x-amz-json-1.1" :: ByteString)])--instance ToJSON DeleteAssessment where-        toJSON DeleteAssessment'{..}-          = object-              (catMaybes-                 [Just ("assessmentArn" .= _daAssessmentARN)])--instance ToPath DeleteAssessment where-        toPath = const "/"--instance ToQuery DeleteAssessment where-        toQuery = const mempty---- | /See:/ 'deleteAssessmentResponse' smart constructor.-data DeleteAssessmentResponse = DeleteAssessmentResponse'-    { _daarsMessage        :: !(Maybe Text)-    , _daarsResponseStatus :: !Int-    } deriving (Eq,Read,Show,Data,Typeable,Generic)---- | Creates a value of 'DeleteAssessmentResponse' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'daarsMessage'------ * 'daarsResponseStatus'-deleteAssessmentResponse-    :: Int -- ^ 'daarsResponseStatus'-    -> DeleteAssessmentResponse-deleteAssessmentResponse pResponseStatus_ =-    DeleteAssessmentResponse'-    { _daarsMessage = Nothing-    , _daarsResponseStatus = pResponseStatus_-    }---- | Confirmation details of the action performed.-daarsMessage :: Lens' DeleteAssessmentResponse (Maybe Text)-daarsMessage = lens _daarsMessage (\ s a -> s{_daarsMessage = a});---- | The response status code.-daarsResponseStatus :: Lens' DeleteAssessmentResponse Int-daarsResponseStatus = lens _daarsResponseStatus (\ s a -> s{_daarsResponseStatus = a});

@@ -0,0 +1,108 @@+{-# 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.Inspector.DeleteAssessmentRun+-- 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)+--+-- Deletes the assessment run that is specified by the ARN of the+-- assessment run.+module Network.AWS.Inspector.DeleteAssessmentRun+    (+    -- * Creating a Request+      deleteAssessmentRun+    , DeleteAssessmentRun+    -- * Request Lenses+    , darAssessmentRunARN++    -- * Destructuring the Response+    , deleteAssessmentRunResponse+    , DeleteAssessmentRunResponse+    ) where++import           Network.AWS.Inspector.Types+import           Network.AWS.Inspector.Types.Product+import           Network.AWS.Lens+import           Network.AWS.Prelude+import           Network.AWS.Request+import           Network.AWS.Response++-- | /See:/ 'deleteAssessmentRun' smart constructor.+newtype DeleteAssessmentRun = DeleteAssessmentRun'+    { _darAssessmentRunARN :: Text+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'DeleteAssessmentRun' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'darAssessmentRunARN'+deleteAssessmentRun+    :: Text -- ^ 'darAssessmentRunARN'+    -> DeleteAssessmentRun+deleteAssessmentRun pAssessmentRunARN_ =+    DeleteAssessmentRun'+    { _darAssessmentRunARN = pAssessmentRunARN_+    }++-- | The ARN that specifies the assessment run that you want to delete.+darAssessmentRunARN :: Lens' DeleteAssessmentRun Text+darAssessmentRunARN = lens _darAssessmentRunARN (\ s a -> s{_darAssessmentRunARN = a});++instance AWSRequest DeleteAssessmentRun where+        type Rs DeleteAssessmentRun =+             DeleteAssessmentRunResponse+        request = postJSON inspector+        response = receiveNull DeleteAssessmentRunResponse'++instance Hashable DeleteAssessmentRun++instance NFData DeleteAssessmentRun++instance ToHeaders DeleteAssessmentRun where+        toHeaders+          = const+              (mconcat+                 ["X-Amz-Target" =#+                    ("InspectorService.DeleteAssessmentRun" ::+                       ByteString),+                  "Content-Type" =#+                    ("application/x-amz-json-1.1" :: ByteString)])++instance ToJSON DeleteAssessmentRun where+        toJSON DeleteAssessmentRun'{..}+          = object+              (catMaybes+                 [Just ("assessmentRunArn" .= _darAssessmentRunARN)])++instance ToPath DeleteAssessmentRun where+        toPath = const "/"++instance ToQuery DeleteAssessmentRun where+        toQuery = const mempty++-- | /See:/ 'deleteAssessmentRunResponse' smart constructor.+data DeleteAssessmentRunResponse =+    DeleteAssessmentRunResponse'+    deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'DeleteAssessmentRunResponse' with the minimum fields required to make a request.+--+deleteAssessmentRunResponse+    :: DeleteAssessmentRunResponse+deleteAssessmentRunResponse = DeleteAssessmentRunResponse'++instance NFData DeleteAssessmentRunResponse

@@ -0,0 +1,110 @@+{-# 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.Inspector.DeleteAssessmentTarget+-- 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)+--+-- Deletes the assessment target that is specified by the ARN of the+-- assessment target.+module Network.AWS.Inspector.DeleteAssessmentTarget+    (+    -- * Creating a Request+      deleteAssessmentTarget+    , DeleteAssessmentTarget+    -- * Request Lenses+    , datAssessmentTargetARN++    -- * Destructuring the Response+    , deleteAssessmentTargetResponse+    , DeleteAssessmentTargetResponse+    ) where++import           Network.AWS.Inspector.Types+import           Network.AWS.Inspector.Types.Product+import           Network.AWS.Lens+import           Network.AWS.Prelude+import           Network.AWS.Request+import           Network.AWS.Response++-- | /See:/ 'deleteAssessmentTarget' smart constructor.+newtype DeleteAssessmentTarget = DeleteAssessmentTarget'+    { _datAssessmentTargetARN :: Text+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'DeleteAssessmentTarget' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'datAssessmentTargetARN'+deleteAssessmentTarget+    :: Text -- ^ 'datAssessmentTargetARN'+    -> DeleteAssessmentTarget+deleteAssessmentTarget pAssessmentTargetARN_ =+    DeleteAssessmentTarget'+    { _datAssessmentTargetARN = pAssessmentTargetARN_+    }++-- | The ARN that specifies the assessment target that you want to delete.+datAssessmentTargetARN :: Lens' DeleteAssessmentTarget Text+datAssessmentTargetARN = lens _datAssessmentTargetARN (\ s a -> s{_datAssessmentTargetARN = a});++instance AWSRequest DeleteAssessmentTarget where+        type Rs DeleteAssessmentTarget =+             DeleteAssessmentTargetResponse+        request = postJSON inspector+        response+          = receiveNull DeleteAssessmentTargetResponse'++instance Hashable DeleteAssessmentTarget++instance NFData DeleteAssessmentTarget++instance ToHeaders DeleteAssessmentTarget where+        toHeaders+          = const+              (mconcat+                 ["X-Amz-Target" =#+                    ("InspectorService.DeleteAssessmentTarget" ::+                       ByteString),+                  "Content-Type" =#+                    ("application/x-amz-json-1.1" :: ByteString)])++instance ToJSON DeleteAssessmentTarget where+        toJSON DeleteAssessmentTarget'{..}+          = object+              (catMaybes+                 [Just+                    ("assessmentTargetArn" .= _datAssessmentTargetARN)])++instance ToPath DeleteAssessmentTarget where+        toPath = const "/"++instance ToQuery DeleteAssessmentTarget where+        toQuery = const mempty++-- | /See:/ 'deleteAssessmentTargetResponse' smart constructor.+data DeleteAssessmentTargetResponse =+    DeleteAssessmentTargetResponse'+    deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'DeleteAssessmentTargetResponse' with the minimum fields required to make a request.+--+deleteAssessmentTargetResponse+    :: DeleteAssessmentTargetResponse+deleteAssessmentTargetResponse = DeleteAssessmentTargetResponse'++instance NFData DeleteAssessmentTargetResponse

@@ -0,0 +1,111 @@+{-# 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.Inspector.DeleteAssessmentTemplate+-- 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)+--+-- Deletes the assessment template that is specified by the ARN of the+-- assessment template.+module Network.AWS.Inspector.DeleteAssessmentTemplate+    (+    -- * Creating a Request+      deleteAssessmentTemplate+    , DeleteAssessmentTemplate+    -- * Request Lenses+    , datAssessmentTemplateARN++    -- * Destructuring the Response+    , deleteAssessmentTemplateResponse+    , DeleteAssessmentTemplateResponse+    ) where++import           Network.AWS.Inspector.Types+import           Network.AWS.Inspector.Types.Product+import           Network.AWS.Lens+import           Network.AWS.Prelude+import           Network.AWS.Request+import           Network.AWS.Response++-- | /See:/ 'deleteAssessmentTemplate' smart constructor.+newtype DeleteAssessmentTemplate = DeleteAssessmentTemplate'+    { _datAssessmentTemplateARN :: Text+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'DeleteAssessmentTemplate' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'datAssessmentTemplateARN'+deleteAssessmentTemplate+    :: Text -- ^ 'datAssessmentTemplateARN'+    -> DeleteAssessmentTemplate+deleteAssessmentTemplate pAssessmentTemplateARN_ =+    DeleteAssessmentTemplate'+    { _datAssessmentTemplateARN = pAssessmentTemplateARN_+    }++-- | The ARN that specifies the assessment template that you want to delete.+datAssessmentTemplateARN :: Lens' DeleteAssessmentTemplate Text+datAssessmentTemplateARN = lens _datAssessmentTemplateARN (\ s a -> s{_datAssessmentTemplateARN = a});++instance AWSRequest DeleteAssessmentTemplate where+        type Rs DeleteAssessmentTemplate =+             DeleteAssessmentTemplateResponse+        request = postJSON inspector+        response+          = receiveNull DeleteAssessmentTemplateResponse'++instance Hashable DeleteAssessmentTemplate++instance NFData DeleteAssessmentTemplate++instance ToHeaders DeleteAssessmentTemplate where+        toHeaders+          = const+              (mconcat+                 ["X-Amz-Target" =#+                    ("InspectorService.DeleteAssessmentTemplate" ::+                       ByteString),+                  "Content-Type" =#+                    ("application/x-amz-json-1.1" :: ByteString)])++instance ToJSON DeleteAssessmentTemplate where+        toJSON DeleteAssessmentTemplate'{..}+          = object+              (catMaybes+                 [Just+                    ("assessmentTemplateArn" .=+                       _datAssessmentTemplateARN)])++instance ToPath DeleteAssessmentTemplate where+        toPath = const "/"++instance ToQuery DeleteAssessmentTemplate where+        toQuery = const mempty++-- | /See:/ 'deleteAssessmentTemplateResponse' smart constructor.+data DeleteAssessmentTemplateResponse =+    DeleteAssessmentTemplateResponse'+    deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'DeleteAssessmentTemplateResponse' with the minimum fields required to make a request.+--+deleteAssessmentTemplateResponse+    :: DeleteAssessmentTemplateResponse+deleteAssessmentTemplateResponse = DeleteAssessmentTemplateResponse'++instance NFData DeleteAssessmentTemplateResponse

@@ -1,125 +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.Inspector.DeleteRun--- 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)------ Deletes the assessment run specified by the run ARN.-module Network.AWS.Inspector.DeleteRun-    (-    -- * Creating a Request-      deleteRun-    , DeleteRun-    -- * Request Lenses-    , dRunARN--    -- * Destructuring the Response-    , deleteRunResponse-    , DeleteRunResponse-    -- * Response Lenses-    , delrsMessage-    , delrsResponseStatus-    ) where--import           Network.AWS.Inspector.Types-import           Network.AWS.Inspector.Types.Product-import           Network.AWS.Lens-import           Network.AWS.Prelude-import           Network.AWS.Request-import           Network.AWS.Response---- | /See:/ 'deleteRun' smart constructor.-newtype DeleteRun = DeleteRun'-    { _dRunARN :: Text-    } deriving (Eq,Read,Show,Data,Typeable,Generic)---- | Creates a value of 'DeleteRun' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'dRunARN'-deleteRun-    :: Text -- ^ 'dRunARN'-    -> DeleteRun-deleteRun pRunARN_ =-    DeleteRun'-    { _dRunARN = pRunARN_-    }---- | The ARN specifying the assessment run that you want to delete.-dRunARN :: Lens' DeleteRun Text-dRunARN = lens _dRunARN (\ s a -> s{_dRunARN = a});--instance AWSRequest DeleteRun where-        type Rs DeleteRun = DeleteRunResponse-        request = postJSON inspector-        response-          = receiveJSON-              (\ s h x ->-                 DeleteRunResponse' <$>-                   (x .?> "message") <*> (pure (fromEnum s)))--instance Hashable DeleteRun--instance ToHeaders DeleteRun where-        toHeaders-          = const-              (mconcat-                 ["X-Amz-Target" =#-                    ("InspectorService.DeleteRun" :: ByteString),-                  "Content-Type" =#-                    ("application/x-amz-json-1.1" :: ByteString)])--instance ToJSON DeleteRun where-        toJSON DeleteRun'{..}-          = object (catMaybes [Just ("runArn" .= _dRunARN)])--instance ToPath DeleteRun where-        toPath = const "/"--instance ToQuery DeleteRun where-        toQuery = const mempty---- | /See:/ 'deleteRunResponse' smart constructor.-data DeleteRunResponse = DeleteRunResponse'-    { _delrsMessage        :: !(Maybe Text)-    , _delrsResponseStatus :: !Int-    } deriving (Eq,Read,Show,Data,Typeable,Generic)---- | Creates a value of 'DeleteRunResponse' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'delrsMessage'------ * 'delrsResponseStatus'-deleteRunResponse-    :: Int -- ^ 'delrsResponseStatus'-    -> DeleteRunResponse-deleteRunResponse pResponseStatus_ =-    DeleteRunResponse'-    { _delrsMessage = Nothing-    , _delrsResponseStatus = pResponseStatus_-    }---- | Confirmation details of the action performed.-delrsMessage :: Lens' DeleteRunResponse (Maybe Text)-delrsMessage = lens _delrsMessage (\ s a -> s{_delrsMessage = a});---- | The response status code.-delrsResponseStatus :: Lens' DeleteRunResponse Int-delrsResponseStatus = lens _delrsResponseStatus (\ s a -> s{_delrsResponseStatus = a});

@@ -1,129 +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.Inspector.DescribeApplication--- 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)------ Describes the application specified by the application ARN.-module Network.AWS.Inspector.DescribeApplication-    (-    -- * Creating a Request-      describeApplication-    , DescribeApplication-    -- * Request Lenses-    , daApplicationARN--    -- * Destructuring the Response-    , describeApplicationResponse-    , DescribeApplicationResponse-    -- * Response Lenses-    , darsApplication-    , darsResponseStatus-    ) where--import           Network.AWS.Inspector.Types-import           Network.AWS.Inspector.Types.Product-import           Network.AWS.Lens-import           Network.AWS.Prelude-import           Network.AWS.Request-import           Network.AWS.Response---- | /See:/ 'describeApplication' smart constructor.-newtype DescribeApplication = DescribeApplication'-    { _daApplicationARN :: Text-    } deriving (Eq,Read,Show,Data,Typeable,Generic)---- | Creates a value of 'DescribeApplication' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'daApplicationARN'-describeApplication-    :: Text -- ^ 'daApplicationARN'-    -> DescribeApplication-describeApplication pApplicationARN_ =-    DescribeApplication'-    { _daApplicationARN = pApplicationARN_-    }---- | The ARN specifying the application that you want to describe.-daApplicationARN :: Lens' DescribeApplication Text-daApplicationARN = lens _daApplicationARN (\ s a -> s{_daApplicationARN = a});--instance AWSRequest DescribeApplication where-        type Rs DescribeApplication =-             DescribeApplicationResponse-        request = postJSON inspector-        response-          = receiveJSON-              (\ s h x ->-                 DescribeApplicationResponse' <$>-                   (x .?> "application") <*> (pure (fromEnum s)))--instance Hashable DescribeApplication--instance ToHeaders DescribeApplication where-        toHeaders-          = const-              (mconcat-                 ["X-Amz-Target" =#-                    ("InspectorService.DescribeApplication" ::-                       ByteString),-                  "Content-Type" =#-                    ("application/x-amz-json-1.1" :: ByteString)])--instance ToJSON DescribeApplication where-        toJSON DescribeApplication'{..}-          = object-              (catMaybes-                 [Just ("applicationArn" .= _daApplicationARN)])--instance ToPath DescribeApplication where-        toPath = const "/"--instance ToQuery DescribeApplication where-        toQuery = const mempty---- | /See:/ 'describeApplicationResponse' smart constructor.-data DescribeApplicationResponse = DescribeApplicationResponse'-    { _darsApplication    :: !(Maybe Application)-    , _darsResponseStatus :: !Int-    } deriving (Eq,Read,Show,Data,Typeable,Generic)---- | Creates a value of 'DescribeApplicationResponse' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'darsApplication'------ * 'darsResponseStatus'-describeApplicationResponse-    :: Int -- ^ 'darsResponseStatus'-    -> DescribeApplicationResponse-describeApplicationResponse pResponseStatus_ =-    DescribeApplicationResponse'-    { _darsApplication = Nothing-    , _darsResponseStatus = pResponseStatus_-    }---- | Information about the application.-darsApplication :: Lens' DescribeApplicationResponse (Maybe Application)-darsApplication = lens _darsApplication (\ s a -> s{_darsApplication = a});---- | The response status code.-darsResponseStatus :: Lens' DescribeApplicationResponse Int-darsResponseStatus = lens _darsResponseStatus (\ s a -> s{_darsResponseStatus = a});

@@ -1,129 +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.Inspector.DescribeAssessment--- 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)------ Describes the assessment specified by the assessment ARN.-module Network.AWS.Inspector.DescribeAssessment-    (-    -- * Creating a Request-      describeAssessment-    , DescribeAssessment-    -- * Request Lenses-    , dAssessmentARN--    -- * Destructuring the Response-    , describeAssessmentResponse-    , DescribeAssessmentResponse-    -- * Response Lenses-    , desrsAssessment-    , desrsResponseStatus-    ) where--import           Network.AWS.Inspector.Types-import           Network.AWS.Inspector.Types.Product-import           Network.AWS.Lens-import           Network.AWS.Prelude-import           Network.AWS.Request-import           Network.AWS.Response---- | /See:/ 'describeAssessment' smart constructor.-newtype DescribeAssessment = DescribeAssessment'-    { _dAssessmentARN :: Text-    } deriving (Eq,Read,Show,Data,Typeable,Generic)---- | Creates a value of 'DescribeAssessment' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'dAssessmentARN'-describeAssessment-    :: Text -- ^ 'dAssessmentARN'-    -> DescribeAssessment-describeAssessment pAssessmentARN_ =-    DescribeAssessment'-    { _dAssessmentARN = pAssessmentARN_-    }---- | The ARN specifying the assessment that you want to describe.-dAssessmentARN :: Lens' DescribeAssessment Text-dAssessmentARN = lens _dAssessmentARN (\ s a -> s{_dAssessmentARN = a});--instance AWSRequest DescribeAssessment where-        type Rs DescribeAssessment =-             DescribeAssessmentResponse-        request = postJSON inspector-        response-          = receiveJSON-              (\ s h x ->-                 DescribeAssessmentResponse' <$>-                   (x .?> "assessment") <*> (pure (fromEnum s)))--instance Hashable DescribeAssessment--instance ToHeaders DescribeAssessment where-        toHeaders-          = const-              (mconcat-                 ["X-Amz-Target" =#-                    ("InspectorService.DescribeAssessment" ::-                       ByteString),-                  "Content-Type" =#-                    ("application/x-amz-json-1.1" :: ByteString)])--instance ToJSON DescribeAssessment where-        toJSON DescribeAssessment'{..}-          = object-              (catMaybes-                 [Just ("assessmentArn" .= _dAssessmentARN)])--instance ToPath DescribeAssessment where-        toPath = const "/"--instance ToQuery DescribeAssessment where-        toQuery = const mempty---- | /See:/ 'describeAssessmentResponse' smart constructor.-data DescribeAssessmentResponse = DescribeAssessmentResponse'-    { _desrsAssessment     :: !(Maybe Assessment)-    , _desrsResponseStatus :: !Int-    } deriving (Eq,Read,Show,Data,Typeable,Generic)---- | Creates a value of 'DescribeAssessmentResponse' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'desrsAssessment'------ * 'desrsResponseStatus'-describeAssessmentResponse-    :: Int -- ^ 'desrsResponseStatus'-    -> DescribeAssessmentResponse-describeAssessmentResponse pResponseStatus_ =-    DescribeAssessmentResponse'-    { _desrsAssessment = Nothing-    , _desrsResponseStatus = pResponseStatus_-    }---- | Information about the assessment.-desrsAssessment :: Lens' DescribeAssessmentResponse (Maybe Assessment)-desrsAssessment = lens _desrsAssessment (\ s a -> s{_desrsAssessment = a});---- | The response status code.-desrsResponseStatus :: Lens' DescribeAssessmentResponse Int-desrsResponseStatus = lens _desrsResponseStatus (\ s a -> s{_desrsResponseStatus = a});

@@ -0,0 +1,147 @@+{-# 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.Inspector.DescribeAssessmentRuns+-- 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)+--+-- Describes the assessment runs that are specified by the ARNs of the+-- assessment runs.+module Network.AWS.Inspector.DescribeAssessmentRuns+    (+    -- * Creating a Request+      describeAssessmentRuns+    , DescribeAssessmentRuns+    -- * Request Lenses+    , darAssessmentRunARNs++    -- * Destructuring the Response+    , describeAssessmentRunsResponse+    , DescribeAssessmentRunsResponse+    -- * Response Lenses+    , darrsResponseStatus+    , darrsAssessmentRuns+    , darrsFailedItems+    ) where++import           Network.AWS.Inspector.Types+import           Network.AWS.Inspector.Types.Product+import           Network.AWS.Lens+import           Network.AWS.Prelude+import           Network.AWS.Request+import           Network.AWS.Response++-- | /See:/ 'describeAssessmentRuns' smart constructor.+newtype DescribeAssessmentRuns = DescribeAssessmentRuns'+    { _darAssessmentRunARNs :: List1 Text+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'DescribeAssessmentRuns' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'darAssessmentRunARNs'+describeAssessmentRuns+    :: NonEmpty Text -- ^ 'darAssessmentRunARNs'+    -> DescribeAssessmentRuns+describeAssessmentRuns pAssessmentRunARNs_ =+    DescribeAssessmentRuns'+    { _darAssessmentRunARNs = _List1 # pAssessmentRunARNs_+    }++-- | The ARN that specifies the assessment run that you want to describe.+darAssessmentRunARNs :: Lens' DescribeAssessmentRuns (NonEmpty Text)+darAssessmentRunARNs = lens _darAssessmentRunARNs (\ s a -> s{_darAssessmentRunARNs = a}) . _List1;++instance AWSRequest DescribeAssessmentRuns where+        type Rs DescribeAssessmentRuns =+             DescribeAssessmentRunsResponse+        request = postJSON inspector+        response+          = receiveJSON+              (\ s h x ->+                 DescribeAssessmentRunsResponse' <$>+                   (pure (fromEnum s)) <*>+                     (x .?> "assessmentRuns" .!@ mempty)+                     <*> (x .?> "failedItems" .!@ mempty))++instance Hashable DescribeAssessmentRuns++instance NFData DescribeAssessmentRuns++instance ToHeaders DescribeAssessmentRuns where+        toHeaders+          = const+              (mconcat+                 ["X-Amz-Target" =#+                    ("InspectorService.DescribeAssessmentRuns" ::+                       ByteString),+                  "Content-Type" =#+                    ("application/x-amz-json-1.1" :: ByteString)])++instance ToJSON DescribeAssessmentRuns where+        toJSON DescribeAssessmentRuns'{..}+          = object+              (catMaybes+                 [Just+                    ("assessmentRunArns" .= _darAssessmentRunARNs)])++instance ToPath DescribeAssessmentRuns where+        toPath = const "/"++instance ToQuery DescribeAssessmentRuns where+        toQuery = const mempty++-- | /See:/ 'describeAssessmentRunsResponse' smart constructor.+data DescribeAssessmentRunsResponse = DescribeAssessmentRunsResponse'+    { _darrsResponseStatus :: !Int+    , _darrsAssessmentRuns :: ![AssessmentRun]+    , _darrsFailedItems    :: !(Map Text FailedItemDetails)+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'DescribeAssessmentRunsResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'darrsResponseStatus'+--+-- * 'darrsAssessmentRuns'+--+-- * 'darrsFailedItems'+describeAssessmentRunsResponse+    :: Int -- ^ 'darrsResponseStatus'+    -> DescribeAssessmentRunsResponse+describeAssessmentRunsResponse pResponseStatus_ =+    DescribeAssessmentRunsResponse'+    { _darrsResponseStatus = pResponseStatus_+    , _darrsAssessmentRuns = mempty+    , _darrsFailedItems = mempty+    }++-- | The response status code.+darrsResponseStatus :: Lens' DescribeAssessmentRunsResponse Int+darrsResponseStatus = lens _darrsResponseStatus (\ s a -> s{_darrsResponseStatus = a});++-- | Information about the assessment run.+darrsAssessmentRuns :: Lens' DescribeAssessmentRunsResponse [AssessmentRun]+darrsAssessmentRuns = lens _darrsAssessmentRuns (\ s a -> s{_darrsAssessmentRuns = a}) . _Coerce;++-- | Assessment run details that cannot be described. An error code is+-- provided for each failed item.+darrsFailedItems :: Lens' DescribeAssessmentRunsResponse (HashMap Text FailedItemDetails)+darrsFailedItems = lens _darrsFailedItems (\ s a -> s{_darrsFailedItems = a}) . _Map;++instance NFData DescribeAssessmentRunsResponse

@@ -0,0 +1,149 @@+{-# 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.Inspector.DescribeAssessmentTargets+-- 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)+--+-- Describes the assessment targets that are specified by the ARNs of the+-- assessment targets.+module Network.AWS.Inspector.DescribeAssessmentTargets+    (+    -- * Creating a Request+      describeAssessmentTargets+    , DescribeAssessmentTargets+    -- * Request Lenses+    , datAssessmentTargetARNs++    -- * Destructuring the Response+    , describeAssessmentTargetsResponse+    , DescribeAssessmentTargetsResponse+    -- * Response Lenses+    , drsResponseStatus+    , drsAssessmentTargets+    , drsFailedItems+    ) where++import           Network.AWS.Inspector.Types+import           Network.AWS.Inspector.Types.Product+import           Network.AWS.Lens+import           Network.AWS.Prelude+import           Network.AWS.Request+import           Network.AWS.Response++-- | /See:/ 'describeAssessmentTargets' smart constructor.+newtype DescribeAssessmentTargets = DescribeAssessmentTargets'+    { _datAssessmentTargetARNs :: List1 Text+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'DescribeAssessmentTargets' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'datAssessmentTargetARNs'+describeAssessmentTargets+    :: NonEmpty Text -- ^ 'datAssessmentTargetARNs'+    -> DescribeAssessmentTargets+describeAssessmentTargets pAssessmentTargetARNs_ =+    DescribeAssessmentTargets'+    { _datAssessmentTargetARNs = _List1 # pAssessmentTargetARNs_+    }++-- | The ARNs that specifies the assessment targets that you want to+-- describe.+datAssessmentTargetARNs :: Lens' DescribeAssessmentTargets (NonEmpty Text)+datAssessmentTargetARNs = lens _datAssessmentTargetARNs (\ s a -> s{_datAssessmentTargetARNs = a}) . _List1;++instance AWSRequest DescribeAssessmentTargets where+        type Rs DescribeAssessmentTargets =+             DescribeAssessmentTargetsResponse+        request = postJSON inspector+        response+          = receiveJSON+              (\ s h x ->+                 DescribeAssessmentTargetsResponse' <$>+                   (pure (fromEnum s)) <*>+                     (x .?> "assessmentTargets" .!@ mempty)+                     <*> (x .?> "failedItems" .!@ mempty))++instance Hashable DescribeAssessmentTargets++instance NFData DescribeAssessmentTargets++instance ToHeaders DescribeAssessmentTargets where+        toHeaders+          = const+              (mconcat+                 ["X-Amz-Target" =#+                    ("InspectorService.DescribeAssessmentTargets" ::+                       ByteString),+                  "Content-Type" =#+                    ("application/x-amz-json-1.1" :: ByteString)])++instance ToJSON DescribeAssessmentTargets where+        toJSON DescribeAssessmentTargets'{..}+          = object+              (catMaybes+                 [Just+                    ("assessmentTargetArns" .=+                       _datAssessmentTargetARNs)])++instance ToPath DescribeAssessmentTargets where+        toPath = const "/"++instance ToQuery DescribeAssessmentTargets where+        toQuery = const mempty++-- | /See:/ 'describeAssessmentTargetsResponse' smart constructor.+data DescribeAssessmentTargetsResponse = DescribeAssessmentTargetsResponse'+    { _drsResponseStatus    :: !Int+    , _drsAssessmentTargets :: ![AssessmentTarget]+    , _drsFailedItems       :: !(Map Text FailedItemDetails)+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'DescribeAssessmentTargetsResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'drsResponseStatus'+--+-- * 'drsAssessmentTargets'+--+-- * 'drsFailedItems'+describeAssessmentTargetsResponse+    :: Int -- ^ 'drsResponseStatus'+    -> DescribeAssessmentTargetsResponse+describeAssessmentTargetsResponse pResponseStatus_ =+    DescribeAssessmentTargetsResponse'+    { _drsResponseStatus = pResponseStatus_+    , _drsAssessmentTargets = mempty+    , _drsFailedItems = mempty+    }++-- | The response status code.+drsResponseStatus :: Lens' DescribeAssessmentTargetsResponse Int+drsResponseStatus = lens _drsResponseStatus (\ s a -> s{_drsResponseStatus = a});++-- | Information about the assessment targets.+drsAssessmentTargets :: Lens' DescribeAssessmentTargetsResponse [AssessmentTarget]+drsAssessmentTargets = lens _drsAssessmentTargets (\ s a -> s{_drsAssessmentTargets = a}) . _Coerce;++-- | Assessment target details that cannot be described. An error code is+-- provided for each failed item.+drsFailedItems :: Lens' DescribeAssessmentTargetsResponse (HashMap Text FailedItemDetails)+drsFailedItems = lens _drsFailedItems (\ s a -> s{_drsFailedItems = a}) . _Map;++instance NFData DescribeAssessmentTargetsResponse

@@ -0,0 +1,149 @@+{-# 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.Inspector.DescribeAssessmentTemplates+-- 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)+--+-- Describes the assessment templates that are specified by the ARNs of the+-- assessment templates.+module Network.AWS.Inspector.DescribeAssessmentTemplates+    (+    -- * Creating a Request+      describeAssessmentTemplates+    , DescribeAssessmentTemplates+    -- * Request Lenses+    , datAssessmentTemplateARNs++    -- * Destructuring the Response+    , describeAssessmentTemplatesResponse+    , DescribeAssessmentTemplatesResponse+    -- * Response Lenses+    , datrsResponseStatus+    , datrsAssessmentTemplates+    , datrsFailedItems+    ) where++import           Network.AWS.Inspector.Types+import           Network.AWS.Inspector.Types.Product+import           Network.AWS.Lens+import           Network.AWS.Prelude+import           Network.AWS.Request+import           Network.AWS.Response++-- | /See:/ 'describeAssessmentTemplates' smart constructor.+newtype DescribeAssessmentTemplates = DescribeAssessmentTemplates'+    { _datAssessmentTemplateARNs :: List1 Text+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'DescribeAssessmentTemplates' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'datAssessmentTemplateARNs'+describeAssessmentTemplates+    :: NonEmpty Text -- ^ 'datAssessmentTemplateARNs'+    -> DescribeAssessmentTemplates+describeAssessmentTemplates pAssessmentTemplateARNs_ =+    DescribeAssessmentTemplates'+    { _datAssessmentTemplateARNs = _List1 # pAssessmentTemplateARNs_+    }++-- | The ARN that specifiesthe assessment templates that you want to+-- describe.+datAssessmentTemplateARNs :: Lens' DescribeAssessmentTemplates (NonEmpty Text)+datAssessmentTemplateARNs = lens _datAssessmentTemplateARNs (\ s a -> s{_datAssessmentTemplateARNs = a}) . _List1;++instance AWSRequest DescribeAssessmentTemplates where+        type Rs DescribeAssessmentTemplates =+             DescribeAssessmentTemplatesResponse+        request = postJSON inspector+        response+          = receiveJSON+              (\ s h x ->+                 DescribeAssessmentTemplatesResponse' <$>+                   (pure (fromEnum s)) <*>+                     (x .?> "assessmentTemplates" .!@ mempty)+                     <*> (x .?> "failedItems" .!@ mempty))++instance Hashable DescribeAssessmentTemplates++instance NFData DescribeAssessmentTemplates++instance ToHeaders DescribeAssessmentTemplates where+        toHeaders+          = const+              (mconcat+                 ["X-Amz-Target" =#+                    ("InspectorService.DescribeAssessmentTemplates" ::+                       ByteString),+                  "Content-Type" =#+                    ("application/x-amz-json-1.1" :: ByteString)])++instance ToJSON DescribeAssessmentTemplates where+        toJSON DescribeAssessmentTemplates'{..}+          = object+              (catMaybes+                 [Just+                    ("assessmentTemplateArns" .=+                       _datAssessmentTemplateARNs)])++instance ToPath DescribeAssessmentTemplates where+        toPath = const "/"++instance ToQuery DescribeAssessmentTemplates where+        toQuery = const mempty++-- | /See:/ 'describeAssessmentTemplatesResponse' smart constructor.+data DescribeAssessmentTemplatesResponse = DescribeAssessmentTemplatesResponse'+    { _datrsResponseStatus      :: !Int+    , _datrsAssessmentTemplates :: ![AssessmentTemplate]+    , _datrsFailedItems         :: !(Map Text FailedItemDetails)+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'DescribeAssessmentTemplatesResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'datrsResponseStatus'+--+-- * 'datrsAssessmentTemplates'+--+-- * 'datrsFailedItems'+describeAssessmentTemplatesResponse+    :: Int -- ^ 'datrsResponseStatus'+    -> DescribeAssessmentTemplatesResponse+describeAssessmentTemplatesResponse pResponseStatus_ =+    DescribeAssessmentTemplatesResponse'+    { _datrsResponseStatus = pResponseStatus_+    , _datrsAssessmentTemplates = mempty+    , _datrsFailedItems = mempty+    }++-- | The response status code.+datrsResponseStatus :: Lens' DescribeAssessmentTemplatesResponse Int+datrsResponseStatus = lens _datrsResponseStatus (\ s a -> s{_datrsResponseStatus = a});++-- | Information about the assessment templates.+datrsAssessmentTemplates :: Lens' DescribeAssessmentTemplatesResponse [AssessmentTemplate]+datrsAssessmentTemplates = lens _datrsAssessmentTemplates (\ s a -> s{_datrsAssessmentTemplates = a}) . _Coerce;++-- | Assessment template details that cannot be described. An error code is+-- provided for each failed item.+datrsFailedItems :: Lens' DescribeAssessmentTemplatesResponse (HashMap Text FailedItemDetails)+datrsFailedItems = lens _datrsFailedItems (\ s a -> s{_datrsFailedItems = a}) . _Map;++instance NFData DescribeAssessmentTemplatesResponse

@@ -18,7 +18,7 @@ -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Describes the IAM role that enables Inspector to access your AWS+-- Describes the IAM role that enables Amazon Inspector to access your AWS -- account. module Network.AWS.Inspector.DescribeCrossAccountAccessRole     (@@ -30,9 +30,10 @@     , describeCrossAccountAccessRoleResponse     , DescribeCrossAccountAccessRoleResponse     -- * Response Lenses-    , dcaarrsValid-    , dcaarrsRoleARN     , dcaarrsResponseStatus+    , dcaarrsRoleARN+    , dcaarrsValid+    , dcaarrsRegisteredAt     ) where  import           Network.AWS.Inspector.Types@@ -62,11 +63,14 @@           = receiveJSON               (\ s h x ->                  DescribeCrossAccountAccessRoleResponse' <$>-                   (x .?> "valid") <*> (x .?> "roleArn") <*>-                     (pure (fromEnum s)))+                   (pure (fromEnum s)) <*> (x .:> "roleArn") <*>+                     (x .:> "valid")+                     <*> (x .:> "registeredAt"))  instance Hashable DescribeCrossAccountAccessRole +instance NFData DescribeCrossAccountAccessRole+ instance ToHeaders DescribeCrossAccountAccessRole          where         toHeaders@@ -89,40 +93,54 @@  -- | /See:/ 'describeCrossAccountAccessRoleResponse' smart constructor. data DescribeCrossAccountAccessRoleResponse = DescribeCrossAccountAccessRoleResponse'-    { _dcaarrsValid          :: !(Maybe Bool)-    , _dcaarrsRoleARN        :: !(Maybe Text)-    , _dcaarrsResponseStatus :: !Int+    { _dcaarrsResponseStatus :: !Int+    , _dcaarrsRoleARN        :: !Text+    , _dcaarrsValid          :: !Bool+    , _dcaarrsRegisteredAt   :: !POSIX     } deriving (Eq,Read,Show,Data,Typeable,Generic)  -- | Creates a value of 'DescribeCrossAccountAccessRoleResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: ----- * 'dcaarrsValid'+-- * 'dcaarrsResponseStatus' -- -- * 'dcaarrsRoleARN' ----- * 'dcaarrsResponseStatus'+-- * 'dcaarrsValid'+--+-- * 'dcaarrsRegisteredAt' describeCrossAccountAccessRoleResponse     :: Int -- ^ 'dcaarrsResponseStatus'+    -> Text -- ^ 'dcaarrsRoleARN'+    -> Bool -- ^ 'dcaarrsValid'+    -> UTCTime -- ^ 'dcaarrsRegisteredAt'     -> DescribeCrossAccountAccessRoleResponse-describeCrossAccountAccessRoleResponse pResponseStatus_ =+describeCrossAccountAccessRoleResponse pResponseStatus_ pRoleARN_ pValid_ pRegisteredAt_ =     DescribeCrossAccountAccessRoleResponse'-    { _dcaarrsValid = Nothing-    , _dcaarrsRoleARN = Nothing-    , _dcaarrsResponseStatus = pResponseStatus_+    { _dcaarrsResponseStatus = pResponseStatus_+    , _dcaarrsRoleARN = pRoleARN_+    , _dcaarrsValid = pValid_+    , _dcaarrsRegisteredAt = _Time # pRegisteredAt_     } +-- | The response status code.+dcaarrsResponseStatus :: Lens' DescribeCrossAccountAccessRoleResponse Int+dcaarrsResponseStatus = lens _dcaarrsResponseStatus (\ s a -> s{_dcaarrsResponseStatus = a});++-- | The ARN that specifies the IAM role that Amazon Inspector uses to access+-- your AWS account.+dcaarrsRoleARN :: Lens' DescribeCrossAccountAccessRoleResponse Text+dcaarrsRoleARN = lens _dcaarrsRoleARN (\ s a -> s{_dcaarrsRoleARN = a});+ -- | A Boolean value that specifies whether the IAM role has the necessary--- policies attached to enable Inspector to access your AWS account.-dcaarrsValid :: Lens' DescribeCrossAccountAccessRoleResponse (Maybe Bool)+-- policies attached to enable Amazon Inspector to access your AWS account.+dcaarrsValid :: Lens' DescribeCrossAccountAccessRoleResponse Bool dcaarrsValid = lens _dcaarrsValid (\ s a -> s{_dcaarrsValid = a}); --- | The ARN specifying the IAM role that Inspector uses to access your AWS--- account.-dcaarrsRoleARN :: Lens' DescribeCrossAccountAccessRoleResponse (Maybe Text)-dcaarrsRoleARN = lens _dcaarrsRoleARN (\ s a -> s{_dcaarrsRoleARN = a});+-- | The date when the cross-account access role was registered.+dcaarrsRegisteredAt :: Lens' DescribeCrossAccountAccessRoleResponse UTCTime+dcaarrsRegisteredAt = lens _dcaarrsRegisteredAt (\ s a -> s{_dcaarrsRegisteredAt = a}) . _Time; --- | The response status code.-dcaarrsResponseStatus :: Lens' DescribeCrossAccountAccessRoleResponse Int-dcaarrsResponseStatus = lens _dcaarrsResponseStatus (\ s a -> s{_dcaarrsResponseStatus = a});+instance NFData+         DescribeCrossAccountAccessRoleResponse

@@ -1,126 +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.Inspector.DescribeFinding--- 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)------ Describes the finding specified by the finding ARN.-module Network.AWS.Inspector.DescribeFinding-    (-    -- * Creating a Request-      describeFinding-    , DescribeFinding-    -- * Request Lenses-    , dfFindingARN--    -- * Destructuring the Response-    , describeFindingResponse-    , DescribeFindingResponse-    -- * Response Lenses-    , dfrsFinding-    , dfrsResponseStatus-    ) where--import           Network.AWS.Inspector.Types-import           Network.AWS.Inspector.Types.Product-import           Network.AWS.Lens-import           Network.AWS.Prelude-import           Network.AWS.Request-import           Network.AWS.Response---- | /See:/ 'describeFinding' smart constructor.-newtype DescribeFinding = DescribeFinding'-    { _dfFindingARN :: Text-    } deriving (Eq,Read,Show,Data,Typeable,Generic)---- | Creates a value of 'DescribeFinding' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'dfFindingARN'-describeFinding-    :: Text -- ^ 'dfFindingARN'-    -> DescribeFinding-describeFinding pFindingARN_ =-    DescribeFinding'-    { _dfFindingARN = pFindingARN_-    }---- | The ARN specifying the finding that you want to describe.-dfFindingARN :: Lens' DescribeFinding Text-dfFindingARN = lens _dfFindingARN (\ s a -> s{_dfFindingARN = a});--instance AWSRequest DescribeFinding where-        type Rs DescribeFinding = DescribeFindingResponse-        request = postJSON inspector-        response-          = receiveJSON-              (\ s h x ->-                 DescribeFindingResponse' <$>-                   (x .?> "finding") <*> (pure (fromEnum s)))--instance Hashable DescribeFinding--instance ToHeaders DescribeFinding where-        toHeaders-          = const-              (mconcat-                 ["X-Amz-Target" =#-                    ("InspectorService.DescribeFinding" :: ByteString),-                  "Content-Type" =#-                    ("application/x-amz-json-1.1" :: ByteString)])--instance ToJSON DescribeFinding where-        toJSON DescribeFinding'{..}-          = object-              (catMaybes [Just ("findingArn" .= _dfFindingARN)])--instance ToPath DescribeFinding where-        toPath = const "/"--instance ToQuery DescribeFinding where-        toQuery = const mempty---- | /See:/ 'describeFindingResponse' smart constructor.-data DescribeFindingResponse = DescribeFindingResponse'-    { _dfrsFinding        :: !(Maybe Finding)-    , _dfrsResponseStatus :: !Int-    } deriving (Eq,Read,Show,Data,Typeable,Generic)---- | Creates a value of 'DescribeFindingResponse' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'dfrsFinding'------ * 'dfrsResponseStatus'-describeFindingResponse-    :: Int -- ^ 'dfrsResponseStatus'-    -> DescribeFindingResponse-describeFindingResponse pResponseStatus_ =-    DescribeFindingResponse'-    { _dfrsFinding = Nothing-    , _dfrsResponseStatus = pResponseStatus_-    }---- | Information about the finding.-dfrsFinding :: Lens' DescribeFindingResponse (Maybe Finding)-dfrsFinding = lens _dfrsFinding (\ s a -> s{_dfrsFinding = a});---- | The response status code.-dfrsResponseStatus :: Lens' DescribeFindingResponse Int-dfrsResponseStatus = lens _dfrsResponseStatus (\ s a -> s{_dfrsResponseStatus = a});

@@ -0,0 +1,153 @@+{-# 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.Inspector.DescribeFindings+-- 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)+--+-- Describes the findings that are specified by the ARNs of the findings.+module Network.AWS.Inspector.DescribeFindings+    (+    -- * Creating a Request+      describeFindings+    , DescribeFindings+    -- * Request Lenses+    , dfLocale+    , dfFindingARNs++    -- * Destructuring the Response+    , describeFindingsResponse+    , DescribeFindingsResponse+    -- * Response Lenses+    , dfrsResponseStatus+    , dfrsFindings+    , dfrsFailedItems+    ) where++import           Network.AWS.Inspector.Types+import           Network.AWS.Inspector.Types.Product+import           Network.AWS.Lens+import           Network.AWS.Prelude+import           Network.AWS.Request+import           Network.AWS.Response++-- | /See:/ 'describeFindings' smart constructor.+data DescribeFindings = DescribeFindings'+    { _dfLocale      :: !(Maybe Locale)+    , _dfFindingARNs :: !(List1 Text)+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'DescribeFindings' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'dfLocale'+--+-- * 'dfFindingARNs'+describeFindings+    :: NonEmpty Text -- ^ 'dfFindingARNs'+    -> DescribeFindings+describeFindings pFindingARNs_ =+    DescribeFindings'+    { _dfLocale = Nothing+    , _dfFindingARNs = _List1 # pFindingARNs_+    }++-- | The locale into which you want to translate a finding description,+-- recommendation, and the short description that identifies the finding.+dfLocale :: Lens' DescribeFindings (Maybe Locale)+dfLocale = lens _dfLocale (\ s a -> s{_dfLocale = a});++-- | The ARN that specifies the finding that you want to describe.+dfFindingARNs :: Lens' DescribeFindings (NonEmpty Text)+dfFindingARNs = lens _dfFindingARNs (\ s a -> s{_dfFindingARNs = a}) . _List1;++instance AWSRequest DescribeFindings where+        type Rs DescribeFindings = DescribeFindingsResponse+        request = postJSON inspector+        response+          = receiveJSON+              (\ s h x ->+                 DescribeFindingsResponse' <$>+                   (pure (fromEnum s)) <*> (x .?> "findings" .!@ mempty)+                     <*> (x .?> "failedItems" .!@ mempty))++instance Hashable DescribeFindings++instance NFData DescribeFindings++instance ToHeaders DescribeFindings where+        toHeaders+          = const+              (mconcat+                 ["X-Amz-Target" =#+                    ("InspectorService.DescribeFindings" :: ByteString),+                  "Content-Type" =#+                    ("application/x-amz-json-1.1" :: ByteString)])++instance ToJSON DescribeFindings where+        toJSON DescribeFindings'{..}+          = object+              (catMaybes+                 [("locale" .=) <$> _dfLocale,+                  Just ("findingArns" .= _dfFindingARNs)])++instance ToPath DescribeFindings where+        toPath = const "/"++instance ToQuery DescribeFindings where+        toQuery = const mempty++-- | /See:/ 'describeFindingsResponse' smart constructor.+data DescribeFindingsResponse = DescribeFindingsResponse'+    { _dfrsResponseStatus :: !Int+    , _dfrsFindings       :: ![Finding]+    , _dfrsFailedItems    :: !(Map Text FailedItemDetails)+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'DescribeFindingsResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'dfrsResponseStatus'+--+-- * 'dfrsFindings'+--+-- * 'dfrsFailedItems'+describeFindingsResponse+    :: Int -- ^ 'dfrsResponseStatus'+    -> DescribeFindingsResponse+describeFindingsResponse pResponseStatus_ =+    DescribeFindingsResponse'+    { _dfrsResponseStatus = pResponseStatus_+    , _dfrsFindings = mempty+    , _dfrsFailedItems = mempty+    }++-- | The response status code.+dfrsResponseStatus :: Lens' DescribeFindingsResponse Int+dfrsResponseStatus = lens _dfrsResponseStatus (\ s a -> s{_dfrsResponseStatus = a});++-- | Information about the finding.+dfrsFindings :: Lens' DescribeFindingsResponse [Finding]+dfrsFindings = lens _dfrsFindings (\ s a -> s{_dfrsFindings = a}) . _Coerce;++-- | Finding details that cannot be described. An error code is provided for+-- each failed item.+dfrsFailedItems :: Lens' DescribeFindingsResponse (HashMap Text FailedItemDetails)+dfrsFailedItems = lens _dfrsFailedItems (\ s a -> s{_dfrsFailedItems = a}) . _Map;++instance NFData DescribeFindingsResponse

@@ -1,129 +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.Inspector.DescribeResourceGroup--- 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)------ Describes the resource group specified by the resource group ARN.-module Network.AWS.Inspector.DescribeResourceGroup-    (-    -- * Creating a Request-      describeResourceGroup-    , DescribeResourceGroup-    -- * Request Lenses-    , drgResourceGroupARN--    -- * Destructuring the Response-    , describeResourceGroupResponse-    , DescribeResourceGroupResponse-    -- * Response Lenses-    , drgrsResourceGroup-    , drgrsResponseStatus-    ) where--import           Network.AWS.Inspector.Types-import           Network.AWS.Inspector.Types.Product-import           Network.AWS.Lens-import           Network.AWS.Prelude-import           Network.AWS.Request-import           Network.AWS.Response---- | /See:/ 'describeResourceGroup' smart constructor.-newtype DescribeResourceGroup = DescribeResourceGroup'-    { _drgResourceGroupARN :: Text-    } deriving (Eq,Read,Show,Data,Typeable,Generic)---- | Creates a value of 'DescribeResourceGroup' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'drgResourceGroupARN'-describeResourceGroup-    :: Text -- ^ 'drgResourceGroupARN'-    -> DescribeResourceGroup-describeResourceGroup pResourceGroupARN_ =-    DescribeResourceGroup'-    { _drgResourceGroupARN = pResourceGroupARN_-    }---- | The ARN specifying the resource group that you want to describe.-drgResourceGroupARN :: Lens' DescribeResourceGroup Text-drgResourceGroupARN = lens _drgResourceGroupARN (\ s a -> s{_drgResourceGroupARN = a});--instance AWSRequest DescribeResourceGroup where-        type Rs DescribeResourceGroup =-             DescribeResourceGroupResponse-        request = postJSON inspector-        response-          = receiveJSON-              (\ s h x ->-                 DescribeResourceGroupResponse' <$>-                   (x .?> "resourceGroup") <*> (pure (fromEnum s)))--instance Hashable DescribeResourceGroup--instance ToHeaders DescribeResourceGroup where-        toHeaders-          = const-              (mconcat-                 ["X-Amz-Target" =#-                    ("InspectorService.DescribeResourceGroup" ::-                       ByteString),-                  "Content-Type" =#-                    ("application/x-amz-json-1.1" :: ByteString)])--instance ToJSON DescribeResourceGroup where-        toJSON DescribeResourceGroup'{..}-          = object-              (catMaybes-                 [Just ("resourceGroupArn" .= _drgResourceGroupARN)])--instance ToPath DescribeResourceGroup where-        toPath = const "/"--instance ToQuery DescribeResourceGroup where-        toQuery = const mempty---- | /See:/ 'describeResourceGroupResponse' smart constructor.-data DescribeResourceGroupResponse = DescribeResourceGroupResponse'-    { _drgrsResourceGroup  :: !(Maybe ResourceGroup)-    , _drgrsResponseStatus :: !Int-    } deriving (Eq,Read,Show,Data,Typeable,Generic)---- | Creates a value of 'DescribeResourceGroupResponse' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'drgrsResourceGroup'------ * 'drgrsResponseStatus'-describeResourceGroupResponse-    :: Int -- ^ 'drgrsResponseStatus'-    -> DescribeResourceGroupResponse-describeResourceGroupResponse pResponseStatus_ =-    DescribeResourceGroupResponse'-    { _drgrsResourceGroup = Nothing-    , _drgrsResponseStatus = pResponseStatus_-    }---- | Information about the resource group.-drgrsResourceGroup :: Lens' DescribeResourceGroupResponse (Maybe ResourceGroup)-drgrsResourceGroup = lens _drgrsResourceGroup (\ s a -> s{_drgrsResourceGroup = a});---- | The response status code.-drgrsResponseStatus :: Lens' DescribeResourceGroupResponse Int-drgrsResponseStatus = lens _drgrsResponseStatus (\ s a -> s{_drgrsResponseStatus = a});

@@ -0,0 +1,147 @@+{-# 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.Inspector.DescribeResourceGroups+-- 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)+--+-- Describes the resource groups that are specified by the ARNs of the+-- resource groups.+module Network.AWS.Inspector.DescribeResourceGroups+    (+    -- * Creating a Request+      describeResourceGroups+    , DescribeResourceGroups+    -- * Request Lenses+    , drgResourceGroupARNs++    -- * Destructuring the Response+    , describeResourceGroupsResponse+    , DescribeResourceGroupsResponse+    -- * Response Lenses+    , drgrsResponseStatus+    , drgrsResourceGroups+    , drgrsFailedItems+    ) where++import           Network.AWS.Inspector.Types+import           Network.AWS.Inspector.Types.Product+import           Network.AWS.Lens+import           Network.AWS.Prelude+import           Network.AWS.Request+import           Network.AWS.Response++-- | /See:/ 'describeResourceGroups' smart constructor.+newtype DescribeResourceGroups = DescribeResourceGroups'+    { _drgResourceGroupARNs :: List1 Text+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'DescribeResourceGroups' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'drgResourceGroupARNs'+describeResourceGroups+    :: NonEmpty Text -- ^ 'drgResourceGroupARNs'+    -> DescribeResourceGroups+describeResourceGroups pResourceGroupARNs_ =+    DescribeResourceGroups'+    { _drgResourceGroupARNs = _List1 # pResourceGroupARNs_+    }++-- | The ARN that specifies the resource group that you want to describe.+drgResourceGroupARNs :: Lens' DescribeResourceGroups (NonEmpty Text)+drgResourceGroupARNs = lens _drgResourceGroupARNs (\ s a -> s{_drgResourceGroupARNs = a}) . _List1;++instance AWSRequest DescribeResourceGroups where+        type Rs DescribeResourceGroups =+             DescribeResourceGroupsResponse+        request = postJSON inspector+        response+          = receiveJSON+              (\ s h x ->+                 DescribeResourceGroupsResponse' <$>+                   (pure (fromEnum s)) <*>+                     (x .?> "resourceGroups" .!@ mempty)+                     <*> (x .?> "failedItems" .!@ mempty))++instance Hashable DescribeResourceGroups++instance NFData DescribeResourceGroups++instance ToHeaders DescribeResourceGroups where+        toHeaders+          = const+              (mconcat+                 ["X-Amz-Target" =#+                    ("InspectorService.DescribeResourceGroups" ::+                       ByteString),+                  "Content-Type" =#+                    ("application/x-amz-json-1.1" :: ByteString)])++instance ToJSON DescribeResourceGroups where+        toJSON DescribeResourceGroups'{..}+          = object+              (catMaybes+                 [Just+                    ("resourceGroupArns" .= _drgResourceGroupARNs)])++instance ToPath DescribeResourceGroups where+        toPath = const "/"++instance ToQuery DescribeResourceGroups where+        toQuery = const mempty++-- | /See:/ 'describeResourceGroupsResponse' smart constructor.+data DescribeResourceGroupsResponse = DescribeResourceGroupsResponse'+    { _drgrsResponseStatus :: !Int+    , _drgrsResourceGroups :: ![ResourceGroup]+    , _drgrsFailedItems    :: !(Map Text FailedItemDetails)+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'DescribeResourceGroupsResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'drgrsResponseStatus'+--+-- * 'drgrsResourceGroups'+--+-- * 'drgrsFailedItems'+describeResourceGroupsResponse+    :: Int -- ^ 'drgrsResponseStatus'+    -> DescribeResourceGroupsResponse+describeResourceGroupsResponse pResponseStatus_ =+    DescribeResourceGroupsResponse'+    { _drgrsResponseStatus = pResponseStatus_+    , _drgrsResourceGroups = mempty+    , _drgrsFailedItems = mempty+    }++-- | The response status code.+drgrsResponseStatus :: Lens' DescribeResourceGroupsResponse Int+drgrsResponseStatus = lens _drgrsResponseStatus (\ s a -> s{_drgrsResponseStatus = a});++-- | Information about a resource group.+drgrsResourceGroups :: Lens' DescribeResourceGroupsResponse [ResourceGroup]+drgrsResourceGroups = lens _drgrsResourceGroups (\ s a -> s{_drgrsResourceGroups = a}) . _Coerce;++-- | Resource group details that cannot be described. An error code is+-- provided for each failed item.+drgrsFailedItems :: Lens' DescribeResourceGroupsResponse (HashMap Text FailedItemDetails)+drgrsFailedItems = lens _drgrsFailedItems (\ s a -> s{_drgrsFailedItems = a}) . _Map;++instance NFData DescribeResourceGroupsResponse

@@ -1,129 +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.Inspector.DescribeRulesPackage--- 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)------ Describes the rules package specified by the rules package ARN.-module Network.AWS.Inspector.DescribeRulesPackage-    (-    -- * Creating a Request-      describeRulesPackage-    , DescribeRulesPackage-    -- * Request Lenses-    , drpRulesPackageARN--    -- * Destructuring the Response-    , describeRulesPackageResponse-    , DescribeRulesPackageResponse-    -- * Response Lenses-    , drprsRulesPackage-    , drprsResponseStatus-    ) where--import           Network.AWS.Inspector.Types-import           Network.AWS.Inspector.Types.Product-import           Network.AWS.Lens-import           Network.AWS.Prelude-import           Network.AWS.Request-import           Network.AWS.Response---- | /See:/ 'describeRulesPackage' smart constructor.-newtype DescribeRulesPackage = DescribeRulesPackage'-    { _drpRulesPackageARN :: Text-    } deriving (Eq,Read,Show,Data,Typeable,Generic)---- | Creates a value of 'DescribeRulesPackage' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'drpRulesPackageARN'-describeRulesPackage-    :: Text -- ^ 'drpRulesPackageARN'-    -> DescribeRulesPackage-describeRulesPackage pRulesPackageARN_ =-    DescribeRulesPackage'-    { _drpRulesPackageARN = pRulesPackageARN_-    }---- | The ARN specifying the rules package that you want to describe.-drpRulesPackageARN :: Lens' DescribeRulesPackage Text-drpRulesPackageARN = lens _drpRulesPackageARN (\ s a -> s{_drpRulesPackageARN = a});--instance AWSRequest DescribeRulesPackage where-        type Rs DescribeRulesPackage =-             DescribeRulesPackageResponse-        request = postJSON inspector-        response-          = receiveJSON-              (\ s h x ->-                 DescribeRulesPackageResponse' <$>-                   (x .?> "rulesPackage") <*> (pure (fromEnum s)))--instance Hashable DescribeRulesPackage--instance ToHeaders DescribeRulesPackage where-        toHeaders-          = const-              (mconcat-                 ["X-Amz-Target" =#-                    ("InspectorService.DescribeRulesPackage" ::-                       ByteString),-                  "Content-Type" =#-                    ("application/x-amz-json-1.1" :: ByteString)])--instance ToJSON DescribeRulesPackage where-        toJSON DescribeRulesPackage'{..}-          = object-              (catMaybes-                 [Just ("rulesPackageArn" .= _drpRulesPackageARN)])--instance ToPath DescribeRulesPackage where-        toPath = const "/"--instance ToQuery DescribeRulesPackage where-        toQuery = const mempty---- | /See:/ 'describeRulesPackageResponse' smart constructor.-data DescribeRulesPackageResponse = DescribeRulesPackageResponse'-    { _drprsRulesPackage   :: !(Maybe RulesPackage)-    , _drprsResponseStatus :: !Int-    } deriving (Eq,Read,Show,Data,Typeable,Generic)---- | Creates a value of 'DescribeRulesPackageResponse' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'drprsRulesPackage'------ * 'drprsResponseStatus'-describeRulesPackageResponse-    :: Int -- ^ 'drprsResponseStatus'-    -> DescribeRulesPackageResponse-describeRulesPackageResponse pResponseStatus_ =-    DescribeRulesPackageResponse'-    { _drprsRulesPackage = Nothing-    , _drprsResponseStatus = pResponseStatus_-    }---- | Information about the rules package.-drprsRulesPackage :: Lens' DescribeRulesPackageResponse (Maybe RulesPackage)-drprsRulesPackage = lens _drprsRulesPackage (\ s a -> s{_drprsRulesPackage = a});---- | The response status code.-drprsResponseStatus :: Lens' DescribeRulesPackageResponse Int-drprsResponseStatus = lens _drprsResponseStatus (\ s a -> s{_drprsResponseStatus = a});

@@ -0,0 +1,156 @@+{-# 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.Inspector.DescribeRulesPackages+-- 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)+--+-- Describes the rules packages that are specified by the ARNs of the rules+-- packages.+module Network.AWS.Inspector.DescribeRulesPackages+    (+    -- * Creating a Request+      describeRulesPackages+    , DescribeRulesPackages+    -- * Request Lenses+    , drpLocale+    , drpRulesPackageARNs++    -- * Destructuring the Response+    , describeRulesPackagesResponse+    , DescribeRulesPackagesResponse+    -- * Response Lenses+    , drprsResponseStatus+    , drprsRulesPackages+    , drprsFailedItems+    ) where++import           Network.AWS.Inspector.Types+import           Network.AWS.Inspector.Types.Product+import           Network.AWS.Lens+import           Network.AWS.Prelude+import           Network.AWS.Request+import           Network.AWS.Response++-- | /See:/ 'describeRulesPackages' smart constructor.+data DescribeRulesPackages = DescribeRulesPackages'+    { _drpLocale           :: !(Maybe Locale)+    , _drpRulesPackageARNs :: !(List1 Text)+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'DescribeRulesPackages' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'drpLocale'+--+-- * 'drpRulesPackageARNs'+describeRulesPackages+    :: NonEmpty Text -- ^ 'drpRulesPackageARNs'+    -> DescribeRulesPackages+describeRulesPackages pRulesPackageARNs_ =+    DescribeRulesPackages'+    { _drpLocale = Nothing+    , _drpRulesPackageARNs = _List1 # pRulesPackageARNs_+    }++-- | The locale that you want to translate a rules package description into.+drpLocale :: Lens' DescribeRulesPackages (Maybe Locale)+drpLocale = lens _drpLocale (\ s a -> s{_drpLocale = a});++-- | The ARN that specifies the rules package that you want to describe.+drpRulesPackageARNs :: Lens' DescribeRulesPackages (NonEmpty Text)+drpRulesPackageARNs = lens _drpRulesPackageARNs (\ s a -> s{_drpRulesPackageARNs = a}) . _List1;++instance AWSRequest DescribeRulesPackages where+        type Rs DescribeRulesPackages =+             DescribeRulesPackagesResponse+        request = postJSON inspector+        response+          = receiveJSON+              (\ s h x ->+                 DescribeRulesPackagesResponse' <$>+                   (pure (fromEnum s)) <*>+                     (x .?> "rulesPackages" .!@ mempty)+                     <*> (x .?> "failedItems" .!@ mempty))++instance Hashable DescribeRulesPackages++instance NFData DescribeRulesPackages++instance ToHeaders DescribeRulesPackages where+        toHeaders+          = const+              (mconcat+                 ["X-Amz-Target" =#+                    ("InspectorService.DescribeRulesPackages" ::+                       ByteString),+                  "Content-Type" =#+                    ("application/x-amz-json-1.1" :: ByteString)])++instance ToJSON DescribeRulesPackages where+        toJSON DescribeRulesPackages'{..}+          = object+              (catMaybes+                 [("locale" .=) <$> _drpLocale,+                  Just ("rulesPackageArns" .= _drpRulesPackageARNs)])++instance ToPath DescribeRulesPackages where+        toPath = const "/"++instance ToQuery DescribeRulesPackages where+        toQuery = const mempty++-- | /See:/ 'describeRulesPackagesResponse' smart constructor.+data DescribeRulesPackagesResponse = DescribeRulesPackagesResponse'+    { _drprsResponseStatus :: !Int+    , _drprsRulesPackages  :: ![RulesPackage]+    , _drprsFailedItems    :: !(Map Text FailedItemDetails)+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'DescribeRulesPackagesResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'drprsResponseStatus'+--+-- * 'drprsRulesPackages'+--+-- * 'drprsFailedItems'+describeRulesPackagesResponse+    :: Int -- ^ 'drprsResponseStatus'+    -> DescribeRulesPackagesResponse+describeRulesPackagesResponse pResponseStatus_ =+    DescribeRulesPackagesResponse'+    { _drprsResponseStatus = pResponseStatus_+    , _drprsRulesPackages = mempty+    , _drprsFailedItems = mempty+    }++-- | The response status code.+drprsResponseStatus :: Lens' DescribeRulesPackagesResponse Int+drprsResponseStatus = lens _drprsResponseStatus (\ s a -> s{_drprsResponseStatus = a});++-- | Information about the rules package.+drprsRulesPackages :: Lens' DescribeRulesPackagesResponse [RulesPackage]+drprsRulesPackages = lens _drprsRulesPackages (\ s a -> s{_drprsRulesPackages = a}) . _Coerce;++-- | Rules package details that cannot be described. An error code is+-- provided for each failed item.+drprsFailedItems :: Lens' DescribeRulesPackagesResponse (HashMap Text FailedItemDetails)+drprsFailedItems = lens _drprsFailedItems (\ s a -> s{_drprsFailedItems = a}) . _Map;++instance NFData DescribeRulesPackagesResponse

@@ -1,125 +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.Inspector.DescribeRun--- 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)------ Describes the assessment run specified by the run ARN.-module Network.AWS.Inspector.DescribeRun-    (-    -- * Creating a Request-      describeRun-    , DescribeRun-    -- * Request Lenses-    , drRunARN--    -- * Destructuring the Response-    , describeRunResponse-    , DescribeRunResponse-    -- * Response Lenses-    , drrsRun-    , drrsResponseStatus-    ) where--import           Network.AWS.Inspector.Types-import           Network.AWS.Inspector.Types.Product-import           Network.AWS.Lens-import           Network.AWS.Prelude-import           Network.AWS.Request-import           Network.AWS.Response---- | /See:/ 'describeRun' smart constructor.-newtype DescribeRun = DescribeRun'-    { _drRunARN :: Text-    } deriving (Eq,Read,Show,Data,Typeable,Generic)---- | Creates a value of 'DescribeRun' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'drRunARN'-describeRun-    :: Text -- ^ 'drRunARN'-    -> DescribeRun-describeRun pRunARN_ =-    DescribeRun'-    { _drRunARN = pRunARN_-    }---- | The ARN specifying the assessment run that you want to describe.-drRunARN :: Lens' DescribeRun Text-drRunARN = lens _drRunARN (\ s a -> s{_drRunARN = a});--instance AWSRequest DescribeRun where-        type Rs DescribeRun = DescribeRunResponse-        request = postJSON inspector-        response-          = receiveJSON-              (\ s h x ->-                 DescribeRunResponse' <$>-                   (x .?> "run") <*> (pure (fromEnum s)))--instance Hashable DescribeRun--instance ToHeaders DescribeRun where-        toHeaders-          = const-              (mconcat-                 ["X-Amz-Target" =#-                    ("InspectorService.DescribeRun" :: ByteString),-                  "Content-Type" =#-                    ("application/x-amz-json-1.1" :: ByteString)])--instance ToJSON DescribeRun where-        toJSON DescribeRun'{..}-          = object (catMaybes [Just ("runArn" .= _drRunARN)])--instance ToPath DescribeRun where-        toPath = const "/"--instance ToQuery DescribeRun where-        toQuery = const mempty---- | /See:/ 'describeRunResponse' smart constructor.-data DescribeRunResponse = DescribeRunResponse'-    { _drrsRun            :: !(Maybe Run)-    , _drrsResponseStatus :: !Int-    } deriving (Eq,Read,Show,Data,Typeable,Generic)---- | Creates a value of 'DescribeRunResponse' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'drrsRun'------ * 'drrsResponseStatus'-describeRunResponse-    :: Int -- ^ 'drrsResponseStatus'-    -> DescribeRunResponse-describeRunResponse pResponseStatus_ =-    DescribeRunResponse'-    { _drrsRun = Nothing-    , _drrsResponseStatus = pResponseStatus_-    }---- | Information about the assessment run.-drrsRun :: Lens' DescribeRunResponse (Maybe Run)-drrsRun = lens _drrsRun (\ s a -> s{_drrsRun = a});---- | The response status code.-drrsResponseStatus :: Lens' DescribeRunResponse Int-drrsResponseStatus = lens _drrsResponseStatus (\ s a -> s{_drrsResponseStatus = a});

@@ -1,146 +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.Inspector.DetachAssessmentAndRulesPackage--- 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)------ Detaches the rules package specified by the rules package ARN from the--- assessment specified by the assessment ARN.-module Network.AWS.Inspector.DetachAssessmentAndRulesPackage-    (-    -- * Creating a Request-      detachAssessmentAndRulesPackage-    , DetachAssessmentAndRulesPackage-    -- * Request Lenses-    , daarpAssessmentARN-    , daarpRulesPackageARN--    -- * Destructuring the Response-    , detachAssessmentAndRulesPackageResponse-    , DetachAssessmentAndRulesPackageResponse-    -- * Response Lenses-    , daarprsMessage-    , daarprsResponseStatus-    ) where--import           Network.AWS.Inspector.Types-import           Network.AWS.Inspector.Types.Product-import           Network.AWS.Lens-import           Network.AWS.Prelude-import           Network.AWS.Request-import           Network.AWS.Response---- | /See:/ 'detachAssessmentAndRulesPackage' smart constructor.-data DetachAssessmentAndRulesPackage = DetachAssessmentAndRulesPackage'-    { _daarpAssessmentARN   :: !Text-    , _daarpRulesPackageARN :: !Text-    } deriving (Eq,Read,Show,Data,Typeable,Generic)---- | Creates a value of 'DetachAssessmentAndRulesPackage' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'daarpAssessmentARN'------ * 'daarpRulesPackageARN'-detachAssessmentAndRulesPackage-    :: Text -- ^ 'daarpAssessmentARN'-    -> Text -- ^ 'daarpRulesPackageARN'-    -> DetachAssessmentAndRulesPackage-detachAssessmentAndRulesPackage pAssessmentARN_ pRulesPackageARN_ =-    DetachAssessmentAndRulesPackage'-    { _daarpAssessmentARN = pAssessmentARN_-    , _daarpRulesPackageARN = pRulesPackageARN_-    }---- | The ARN specifying the assessment from which you want to detach a rules--- package.-daarpAssessmentARN :: Lens' DetachAssessmentAndRulesPackage Text-daarpAssessmentARN = lens _daarpAssessmentARN (\ s a -> s{_daarpAssessmentARN = a});---- | The ARN specifying the rules package that you want to detach from the--- assessment.-daarpRulesPackageARN :: Lens' DetachAssessmentAndRulesPackage Text-daarpRulesPackageARN = lens _daarpRulesPackageARN (\ s a -> s{_daarpRulesPackageARN = a});--instance AWSRequest DetachAssessmentAndRulesPackage-         where-        type Rs DetachAssessmentAndRulesPackage =-             DetachAssessmentAndRulesPackageResponse-        request = postJSON inspector-        response-          = receiveJSON-              (\ s h x ->-                 DetachAssessmentAndRulesPackageResponse' <$>-                   (x .?> "message") <*> (pure (fromEnum s)))--instance Hashable DetachAssessmentAndRulesPackage--instance ToHeaders DetachAssessmentAndRulesPackage-         where-        toHeaders-          = const-              (mconcat-                 ["X-Amz-Target" =#-                    ("InspectorService.DetachAssessmentAndRulesPackage"-                       :: ByteString),-                  "Content-Type" =#-                    ("application/x-amz-json-1.1" :: ByteString)])--instance ToJSON DetachAssessmentAndRulesPackage where-        toJSON DetachAssessmentAndRulesPackage'{..}-          = object-              (catMaybes-                 [Just ("assessmentArn" .= _daarpAssessmentARN),-                  Just ("rulesPackageArn" .= _daarpRulesPackageARN)])--instance ToPath DetachAssessmentAndRulesPackage where-        toPath = const "/"--instance ToQuery DetachAssessmentAndRulesPackage-         where-        toQuery = const mempty---- | /See:/ 'detachAssessmentAndRulesPackageResponse' smart constructor.-data DetachAssessmentAndRulesPackageResponse = DetachAssessmentAndRulesPackageResponse'-    { _daarprsMessage        :: !(Maybe Text)-    , _daarprsResponseStatus :: !Int-    } deriving (Eq,Read,Show,Data,Typeable,Generic)---- | Creates a value of 'DetachAssessmentAndRulesPackageResponse' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'daarprsMessage'------ * 'daarprsResponseStatus'-detachAssessmentAndRulesPackageResponse-    :: Int -- ^ 'daarprsResponseStatus'-    -> DetachAssessmentAndRulesPackageResponse-detachAssessmentAndRulesPackageResponse pResponseStatus_ =-    DetachAssessmentAndRulesPackageResponse'-    { _daarprsMessage = Nothing-    , _daarprsResponseStatus = pResponseStatus_-    }---- | Confirmation details of the action performed.-daarprsMessage :: Lens' DetachAssessmentAndRulesPackageResponse (Maybe Text)-daarprsMessage = lens _daarprsMessage (\ s a -> s{_daarprsMessage = a});---- | The response status code.-daarprsResponseStatus :: Lens' DetachAssessmentAndRulesPackageResponse Int-daarprsResponseStatus = lens _daarprsResponseStatus (\ s a -> s{_daarprsResponseStatus = a});

@@ -1,132 +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.Inspector.GetAssessmentTelemetry--- 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)------ Returns the metadata about the telemetry (application behavioral data)--- for the assessment specified by the assessment ARN.-module Network.AWS.Inspector.GetAssessmentTelemetry-    (-    -- * Creating a Request-      getAssessmentTelemetry-    , GetAssessmentTelemetry-    -- * Request Lenses-    , gatAssessmentARN--    -- * Destructuring the Response-    , getAssessmentTelemetryResponse-    , GetAssessmentTelemetryResponse-    -- * Response Lenses-    , gatrsTelemetry-    , gatrsResponseStatus-    ) where--import           Network.AWS.Inspector.Types-import           Network.AWS.Inspector.Types.Product-import           Network.AWS.Lens-import           Network.AWS.Prelude-import           Network.AWS.Request-import           Network.AWS.Response---- | /See:/ 'getAssessmentTelemetry' smart constructor.-newtype GetAssessmentTelemetry = GetAssessmentTelemetry'-    { _gatAssessmentARN :: Text-    } deriving (Eq,Read,Show,Data,Typeable,Generic)---- | Creates a value of 'GetAssessmentTelemetry' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'gatAssessmentARN'-getAssessmentTelemetry-    :: Text -- ^ 'gatAssessmentARN'-    -> GetAssessmentTelemetry-getAssessmentTelemetry pAssessmentARN_ =-    GetAssessmentTelemetry'-    { _gatAssessmentARN = pAssessmentARN_-    }---- | The ARN specifying the assessment the telemetry of which you want to--- obtain.-gatAssessmentARN :: Lens' GetAssessmentTelemetry Text-gatAssessmentARN = lens _gatAssessmentARN (\ s a -> s{_gatAssessmentARN = a});--instance AWSRequest GetAssessmentTelemetry where-        type Rs GetAssessmentTelemetry =-             GetAssessmentTelemetryResponse-        request = postJSON inspector-        response-          = receiveJSON-              (\ s h x ->-                 GetAssessmentTelemetryResponse' <$>-                   (x .?> "telemetry" .!@ mempty) <*>-                     (pure (fromEnum s)))--instance Hashable GetAssessmentTelemetry--instance ToHeaders GetAssessmentTelemetry where-        toHeaders-          = const-              (mconcat-                 ["X-Amz-Target" =#-                    ("InspectorService.GetAssessmentTelemetry" ::-                       ByteString),-                  "Content-Type" =#-                    ("application/x-amz-json-1.1" :: ByteString)])--instance ToJSON GetAssessmentTelemetry where-        toJSON GetAssessmentTelemetry'{..}-          = object-              (catMaybes-                 [Just ("assessmentArn" .= _gatAssessmentARN)])--instance ToPath GetAssessmentTelemetry where-        toPath = const "/"--instance ToQuery GetAssessmentTelemetry where-        toQuery = const mempty---- | /See:/ 'getAssessmentTelemetryResponse' smart constructor.-data GetAssessmentTelemetryResponse = GetAssessmentTelemetryResponse'-    { _gatrsTelemetry      :: !(Maybe [Telemetry])-    , _gatrsResponseStatus :: !Int-    } deriving (Eq,Read,Show,Data,Typeable,Generic)---- | Creates a value of 'GetAssessmentTelemetryResponse' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'gatrsTelemetry'------ * 'gatrsResponseStatus'-getAssessmentTelemetryResponse-    :: Int -- ^ 'gatrsResponseStatus'-    -> GetAssessmentTelemetryResponse-getAssessmentTelemetryResponse pResponseStatus_ =-    GetAssessmentTelemetryResponse'-    { _gatrsTelemetry = Nothing-    , _gatrsResponseStatus = pResponseStatus_-    }---- | Telemetry details.-gatrsTelemetry :: Lens' GetAssessmentTelemetryResponse [Telemetry]-gatrsTelemetry = lens _gatrsTelemetry (\ s a -> s{_gatrsTelemetry = a}) . _Default . _Coerce;---- | The response status code.-gatrsResponseStatus :: Lens' GetAssessmentTelemetryResponse Int-gatrsResponseStatus = lens _gatrsResponseStatus (\ s a -> s{_gatrsResponseStatus = a});

@@ -0,0 +1,136 @@+{-# 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.Inspector.GetTelemetryMetadata+-- 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)+--+-- Information about the data that is collected for the specified+-- assessment run.+module Network.AWS.Inspector.GetTelemetryMetadata+    (+    -- * Creating a Request+      getTelemetryMetadata+    , GetTelemetryMetadata+    -- * Request Lenses+    , gtmAssessmentRunARN++    -- * Destructuring the Response+    , getTelemetryMetadataResponse+    , GetTelemetryMetadataResponse+    -- * Response Lenses+    , gtmrsResponseStatus+    , gtmrsTelemetryMetadata+    ) where++import           Network.AWS.Inspector.Types+import           Network.AWS.Inspector.Types.Product+import           Network.AWS.Lens+import           Network.AWS.Prelude+import           Network.AWS.Request+import           Network.AWS.Response++-- | /See:/ 'getTelemetryMetadata' smart constructor.+newtype GetTelemetryMetadata = GetTelemetryMetadata'+    { _gtmAssessmentRunARN :: Text+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'GetTelemetryMetadata' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'gtmAssessmentRunARN'+getTelemetryMetadata+    :: Text -- ^ 'gtmAssessmentRunARN'+    -> GetTelemetryMetadata+getTelemetryMetadata pAssessmentRunARN_ =+    GetTelemetryMetadata'+    { _gtmAssessmentRunARN = pAssessmentRunARN_+    }++-- | The ARN that specifies the assessment run that has the telemetry data+-- that you want to obtain.+gtmAssessmentRunARN :: Lens' GetTelemetryMetadata Text+gtmAssessmentRunARN = lens _gtmAssessmentRunARN (\ s a -> s{_gtmAssessmentRunARN = a});++instance AWSRequest GetTelemetryMetadata where+        type Rs GetTelemetryMetadata =+             GetTelemetryMetadataResponse+        request = postJSON inspector+        response+          = receiveJSON+              (\ s h x ->+                 GetTelemetryMetadataResponse' <$>+                   (pure (fromEnum s)) <*>+                     (x .?> "telemetryMetadata" .!@ mempty))++instance Hashable GetTelemetryMetadata++instance NFData GetTelemetryMetadata++instance ToHeaders GetTelemetryMetadata where+        toHeaders+          = const+              (mconcat+                 ["X-Amz-Target" =#+                    ("InspectorService.GetTelemetryMetadata" ::+                       ByteString),+                  "Content-Type" =#+                    ("application/x-amz-json-1.1" :: ByteString)])++instance ToJSON GetTelemetryMetadata where+        toJSON GetTelemetryMetadata'{..}+          = object+              (catMaybes+                 [Just ("assessmentRunArn" .= _gtmAssessmentRunARN)])++instance ToPath GetTelemetryMetadata where+        toPath = const "/"++instance ToQuery GetTelemetryMetadata where+        toQuery = const mempty++-- | /See:/ 'getTelemetryMetadataResponse' smart constructor.+data GetTelemetryMetadataResponse = GetTelemetryMetadataResponse'+    { _gtmrsResponseStatus    :: !Int+    , _gtmrsTelemetryMetadata :: ![TelemetryMetadata]+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'GetTelemetryMetadataResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'gtmrsResponseStatus'+--+-- * 'gtmrsTelemetryMetadata'+getTelemetryMetadataResponse+    :: Int -- ^ 'gtmrsResponseStatus'+    -> GetTelemetryMetadataResponse+getTelemetryMetadataResponse pResponseStatus_ =+    GetTelemetryMetadataResponse'+    { _gtmrsResponseStatus = pResponseStatus_+    , _gtmrsTelemetryMetadata = mempty+    }++-- | The response status code.+gtmrsResponseStatus :: Lens' GetTelemetryMetadataResponse Int+gtmrsResponseStatus = lens _gtmrsResponseStatus (\ s a -> s{_gtmrsResponseStatus = a});++-- | Telemetry details.+gtmrsTelemetryMetadata :: Lens' GetTelemetryMetadataResponse [TelemetryMetadata]+gtmrsTelemetryMetadata = lens _gtmrsTelemetryMetadata (\ s a -> s{_gtmrsTelemetryMetadata = a}) . _Coerce;++instance NFData GetTelemetryMetadataResponse

@@ -1,172 +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.Inspector.ListApplications--- 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)------ Lists the ARNs of the applications within this AWS account. For more--- information about applications, see--- <https://docs.aws.amazon.com/inspector/latest/userguide//inspector_applications.html Inspector Applications>.-module Network.AWS.Inspector.ListApplications-    (-    -- * Creating a Request-      listApplications-    , ListApplications-    -- * Request Lenses-    , lNextToken-    , lFilter-    , lMaxResults--    -- * Destructuring the Response-    , listApplicationsResponse-    , ListApplicationsResponse-    -- * Response Lenses-    , lrsApplicationARNList-    , lrsNextToken-    , lrsResponseStatus-    ) where--import           Network.AWS.Inspector.Types-import           Network.AWS.Inspector.Types.Product-import           Network.AWS.Lens-import           Network.AWS.Prelude-import           Network.AWS.Request-import           Network.AWS.Response---- | /See:/ 'listApplications' smart constructor.-data ListApplications = ListApplications'-    { _lNextToken  :: !(Maybe Text)-    , _lFilter     :: !(Maybe ApplicationsFilter)-    , _lMaxResults :: !(Maybe Int)-    } deriving (Eq,Read,Show,Data,Typeable,Generic)---- | Creates a value of 'ListApplications' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'lNextToken'------ * 'lFilter'------ * 'lMaxResults'-listApplications-    :: ListApplications-listApplications =-    ListApplications'-    { _lNextToken = Nothing-    , _lFilter = Nothing-    , _lMaxResults = Nothing-    }---- | You can use this parameter when paginating results. Set the value of--- this parameter to \'null\' on your first call to the--- __ListApplications__ action. Subsequent calls to the action fill--- __nextToken__ in the request with the value of __NextToken__ from--- previous response to continue listing data.-lNextToken :: Lens' ListApplications (Maybe Text)-lNextToken = lens _lNextToken (\ s a -> s{_lNextToken = a});---- | You can use this parameter to specify a subset of data to be included in--- the action\'s response.------ For a record to match a filter, all specified filter attributes must--- match. When multiple values are specified for a filter attribute, any of--- the values can match.-lFilter :: Lens' ListApplications (Maybe ApplicationsFilter)-lFilter = lens _lFilter (\ s a -> s{_lFilter = a});---- | You can use this parameter to indicate the maximum number of items you--- want in the response. The default value is 10. The maximum value is 500.-lMaxResults :: Lens' ListApplications (Maybe Int)-lMaxResults = lens _lMaxResults (\ s a -> s{_lMaxResults = a});--instance AWSRequest ListApplications where-        type Rs ListApplications = ListApplicationsResponse-        request = postJSON inspector-        response-          = receiveJSON-              (\ s h x ->-                 ListApplicationsResponse' <$>-                   (x .?> "applicationArnList" .!@ mempty) <*>-                     (x .?> "nextToken")-                     <*> (pure (fromEnum s)))--instance Hashable ListApplications--instance ToHeaders ListApplications where-        toHeaders-          = const-              (mconcat-                 ["X-Amz-Target" =#-                    ("InspectorService.ListApplications" :: ByteString),-                  "Content-Type" =#-                    ("application/x-amz-json-1.1" :: ByteString)])--instance ToJSON ListApplications where-        toJSON ListApplications'{..}-          = object-              (catMaybes-                 [("nextToken" .=) <$> _lNextToken,-                  ("filter" .=) <$> _lFilter,-                  ("maxResults" .=) <$> _lMaxResults])--instance ToPath ListApplications where-        toPath = const "/"--instance ToQuery ListApplications where-        toQuery = const mempty---- | /See:/ 'listApplicationsResponse' smart constructor.-data ListApplicationsResponse = ListApplicationsResponse'-    { _lrsApplicationARNList :: !(Maybe [Text])-    , _lrsNextToken          :: !(Maybe Text)-    , _lrsResponseStatus     :: !Int-    } deriving (Eq,Read,Show,Data,Typeable,Generic)---- | Creates a value of 'ListApplicationsResponse' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'lrsApplicationARNList'------ * 'lrsNextToken'------ * 'lrsResponseStatus'-listApplicationsResponse-    :: Int -- ^ 'lrsResponseStatus'-    -> ListApplicationsResponse-listApplicationsResponse pResponseStatus_ =-    ListApplicationsResponse'-    { _lrsApplicationARNList = Nothing-    , _lrsNextToken = Nothing-    , _lrsResponseStatus = pResponseStatus_-    }---- | A list of ARNs specifying the applications returned by the action.-lrsApplicationARNList :: Lens' ListApplicationsResponse [Text]-lrsApplicationARNList = lens _lrsApplicationARNList (\ s a -> s{_lrsApplicationARNList = a}) . _Default . _Coerce;---- | When a response is generated, if there is more data to be listed, this--- parameter is present in the response and contains the value to use for--- the __nextToken__ parameter in a subsequent pagination request. If there--- is no more data to be listed, this parameter is set to \'null\'.-lrsNextToken :: Lens' ListApplicationsResponse (Maybe Text)-lrsNextToken = lens _lrsNextToken (\ s a -> s{_lrsNextToken = a});---- | The response status code.-lrsResponseStatus :: Lens' ListApplicationsResponse Int-lrsResponseStatus = lens _lrsResponseStatus (\ s a -> s{_lrsResponseStatus = a});

@@ -1,183 +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.Inspector.ListAssessmentAgents--- 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)------ Lists the agents of the assessment specified by the assessment ARN.-module Network.AWS.Inspector.ListAssessmentAgents-    (-    -- * Creating a Request-      listAssessmentAgents-    , ListAssessmentAgents-    -- * Request Lenses-    , laasNextToken-    , laasFilter-    , laasMaxResults-    , laasAssessmentARN--    -- * Destructuring the Response-    , listAssessmentAgentsResponse-    , ListAssessmentAgentsResponse-    -- * Response Lenses-    , laarsAgentList-    , laarsNextToken-    , laarsResponseStatus-    ) where--import           Network.AWS.Inspector.Types-import           Network.AWS.Inspector.Types.Product-import           Network.AWS.Lens-import           Network.AWS.Prelude-import           Network.AWS.Request-import           Network.AWS.Response---- | /See:/ 'listAssessmentAgents' smart constructor.-data ListAssessmentAgents = ListAssessmentAgents'-    { _laasNextToken     :: !(Maybe Text)-    , _laasFilter        :: !(Maybe AgentsFilter)-    , _laasMaxResults    :: !(Maybe Int)-    , _laasAssessmentARN :: !Text-    } deriving (Eq,Read,Show,Data,Typeable,Generic)---- | Creates a value of 'ListAssessmentAgents' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'laasNextToken'------ * 'laasFilter'------ * 'laasMaxResults'------ * 'laasAssessmentARN'-listAssessmentAgents-    :: Text -- ^ 'laasAssessmentARN'-    -> ListAssessmentAgents-listAssessmentAgents pAssessmentARN_ =-    ListAssessmentAgents'-    { _laasNextToken = Nothing-    , _laasFilter = Nothing-    , _laasMaxResults = Nothing-    , _laasAssessmentARN = pAssessmentARN_-    }---- | You can use this parameter when paginating results. Set the value of--- this parameter to \'null\' on your first call to the--- __ListAssessmentAgents__ action. Subsequent calls to the action fill--- __nextToken__ in the request with the value of __NextToken__ from--- previous response to continue listing data.-laasNextToken :: Lens' ListAssessmentAgents (Maybe Text)-laasNextToken = lens _laasNextToken (\ s a -> s{_laasNextToken = a});---- | You can use this parameter to specify a subset of data to be included in--- the action\'s response.------ For a record to match a filter, all specified filter attributes must--- match. When multiple values are specified for a filter attribute, any of--- the values can match.-laasFilter :: Lens' ListAssessmentAgents (Maybe AgentsFilter)-laasFilter = lens _laasFilter (\ s a -> s{_laasFilter = a});---- | You can use this parameter to indicate the maximum number of items you--- want in the response. The default value is 10. The maximum value is 500.-laasMaxResults :: Lens' ListAssessmentAgents (Maybe Int)-laasMaxResults = lens _laasMaxResults (\ s a -> s{_laasMaxResults = a});---- | The ARN specifying the assessment whose agents you want to list.-laasAssessmentARN :: Lens' ListAssessmentAgents Text-laasAssessmentARN = lens _laasAssessmentARN (\ s a -> s{_laasAssessmentARN = a});--instance AWSRequest ListAssessmentAgents where-        type Rs ListAssessmentAgents =-             ListAssessmentAgentsResponse-        request = postJSON inspector-        response-          = receiveJSON-              (\ s h x ->-                 ListAssessmentAgentsResponse' <$>-                   (x .?> "agentList" .!@ mempty) <*>-                     (x .?> "nextToken")-                     <*> (pure (fromEnum s)))--instance Hashable ListAssessmentAgents--instance ToHeaders ListAssessmentAgents where-        toHeaders-          = const-              (mconcat-                 ["X-Amz-Target" =#-                    ("InspectorService.ListAssessmentAgents" ::-                       ByteString),-                  "Content-Type" =#-                    ("application/x-amz-json-1.1" :: ByteString)])--instance ToJSON ListAssessmentAgents where-        toJSON ListAssessmentAgents'{..}-          = object-              (catMaybes-                 [("nextToken" .=) <$> _laasNextToken,-                  ("filter" .=) <$> _laasFilter,-                  ("maxResults" .=) <$> _laasMaxResults,-                  Just ("assessmentArn" .= _laasAssessmentARN)])--instance ToPath ListAssessmentAgents where-        toPath = const "/"--instance ToQuery ListAssessmentAgents where-        toQuery = const mempty---- | /See:/ 'listAssessmentAgentsResponse' smart constructor.-data ListAssessmentAgentsResponse = ListAssessmentAgentsResponse'-    { _laarsAgentList      :: !(Maybe [Agent])-    , _laarsNextToken      :: !(Maybe Text)-    , _laarsResponseStatus :: !Int-    } deriving (Eq,Read,Show,Data,Typeable,Generic)---- | Creates a value of 'ListAssessmentAgentsResponse' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'laarsAgentList'------ * 'laarsNextToken'------ * 'laarsResponseStatus'-listAssessmentAgentsResponse-    :: Int -- ^ 'laarsResponseStatus'-    -> ListAssessmentAgentsResponse-listAssessmentAgentsResponse pResponseStatus_ =-    ListAssessmentAgentsResponse'-    { _laarsAgentList = Nothing-    , _laarsNextToken = Nothing-    , _laarsResponseStatus = pResponseStatus_-    }---- | A list of ARNs specifying the agents returned by the action.-laarsAgentList :: Lens' ListAssessmentAgentsResponse [Agent]-laarsAgentList = lens _laarsAgentList (\ s a -> s{_laarsAgentList = a}) . _Default . _Coerce;---- | When a response is generated, if there is more data to be listed, this--- parameter is present in the response and contains the value to use for--- the __nextToken__ parameter in a subsequent pagination request. If there--- is no more data to be listed, this parameter is set to \'null\'.-laarsNextToken :: Lens' ListAssessmentAgentsResponse (Maybe Text)-laarsNextToken = lens _laarsNextToken (\ s a -> s{_laarsNextToken = a});---- | The response status code.-laarsResponseStatus :: Lens' ListAssessmentAgentsResponse Int-laarsResponseStatus = lens _laarsResponseStatus (\ s a -> s{_laarsResponseStatus = a});