amazonka-ssm 1.5.0 → 1.6.0

raw patch · 116 files changed

+11249/−8647 lines, 116 filesdep ~amazonka-coredep ~amazonka-testPVP ok

version bump matches the API change (PVP)

Dependency ranges changed: amazonka-core, amazonka-test

API changes (from Hackage documentation)

Files

• README.md +1/−1
• amazonka-ssm.cabal +8/−5
• fixture/DeleteInventory.yaml +10/−0
• fixture/DeleteInventoryResponse.proto +0/−0
• fixture/DescribeAutomationStepExecutions.yaml +10/−0
• fixture/DescribeAutomationStepExecutionsResponse.proto +0/−0
• fixture/DescribeInventoryDeletions.yaml +10/−0
• fixture/DescribeInventoryDeletionsResponse.proto +0/−0
• gen/Network/AWS/SSM.hs +142/−6
• gen/Network/AWS/SSM/AddTagsToResource.hs +14/−14
• gen/Network/AWS/SSM/CancelCommand.hs +4/−4
• gen/Network/AWS/SSM/CreateActivation.hs +23/−23
• gen/Network/AWS/SSM/CreateAssociation.hs +23/−21
• gen/Network/AWS/SSM/CreateAssociationBatch.hs +9/−9
• gen/Network/AWS/SSM/CreateDocument.hs +38/−15
• gen/Network/AWS/SSM/CreateMaintenanceWindow.hs +19/−19
• gen/Network/AWS/SSM/CreatePatchBaseline.hs +62/−41
• gen/Network/AWS/SSM/CreateResourceDataSync.hs +6/−6
• gen/Network/AWS/SSM/DeleteActivation.hs +3/−3
• gen/Network/AWS/SSM/DeleteAssociation.hs +6/−6
• gen/Network/AWS/SSM/DeleteDocument.hs +3/−3
• gen/Network/AWS/SSM/DeleteInventory.hs +187/−0
• gen/Network/AWS/SSM/DeleteMaintenanceWindow.hs +5/−5
• gen/Network/AWS/SSM/DeleteParameter.hs +3/−3
• gen/Network/AWS/SSM/DeleteParameters.hs +9/−9
• gen/Network/AWS/SSM/DeletePatchBaseline.hs +5/−5
• gen/Network/AWS/SSM/DeleteResourceDataSync.hs +3/−3
• gen/Network/AWS/SSM/DeregisterManagedInstance.hs +3/−3
• gen/Network/AWS/SSM/DeregisterPatchBaselineForPatchGroup.hs +11/−11
• gen/Network/AWS/SSM/DeregisterTargetFromMaintenanceWindow.hs +15/−15
• gen/Network/AWS/SSM/DeregisterTaskFromMaintenanceWindow.hs +11/−11
• gen/Network/AWS/SSM/DescribeActivations.hs +12/−12
• gen/Network/AWS/SSM/DescribeAssociation.hs +16/−16
• gen/Network/AWS/SSM/DescribeAutomationExecutions.hs +12/−12
• gen/Network/AWS/SSM/DescribeAutomationStepExecutions.hs +201/−0
• gen/Network/AWS/SSM/DescribeAvailablePatches.hs +12/−12
• gen/Network/AWS/SSM/DescribeDocument.hs +6/−6
• gen/Network/AWS/SSM/DescribeDocumentPermission.hs +7/−7
• gen/Network/AWS/SSM/DescribeEffectiveInstanceAssociations.hs +15/−15
• gen/Network/AWS/SSM/DescribeEffectivePatchesForPatchBaseline.hs +15/−15
• gen/Network/AWS/SSM/DescribeInstanceAssociationsStatus.hs +15/−15
• gen/Network/AWS/SSM/DescribeInstanceInformation.hs +17/−17
• gen/Network/AWS/SSM/DescribeInstancePatchStates.hs +15/−15
• gen/Network/AWS/SSM/DescribeInstancePatchStatesForPatchGroup.hs +17/−17
• gen/Network/AWS/SSM/DescribeInstancePatches.hs +17/−17
• gen/Network/AWS/SSM/DescribeInventoryDeletions.hs +170/−0
• gen/Network/AWS/SSM/DescribeMaintenanceWindowExecutionTaskInvocations.hs +19/−19
• gen/Network/AWS/SSM/DescribeMaintenanceWindowExecutionTasks.hs +17/−17
• gen/Network/AWS/SSM/DescribeMaintenanceWindowExecutions.hs +17/−17
• gen/Network/AWS/SSM/DescribeMaintenanceWindowTargets.hs +17/−17
• gen/Network/AWS/SSM/DescribeMaintenanceWindowTasks.hs +17/−17
• gen/Network/AWS/SSM/DescribeMaintenanceWindows.hs +12/−12
• gen/Network/AWS/SSM/DescribeParameters.hs +17/−17
• gen/Network/AWS/SSM/DescribePatchBaselines.hs +12/−12
• gen/Network/AWS/SSM/DescribePatchGroupState.hs +17/−17
• gen/Network/AWS/SSM/DescribePatchGroups.hs +12/−12
• gen/Network/AWS/SSM/GetAutomationExecution.hs +7/−5
• gen/Network/AWS/SSM/GetCommandInvocation.hs +53/−43
• gen/Network/AWS/SSM/GetDefaultPatchBaseline.hs +11/−9
• gen/Network/AWS/SSM/GetDeployablePatchSnapshotForInstance.hs +15/−15
• gen/Network/AWS/SSM/GetDocument.hs +41/−18
• gen/Network/AWS/SSM/GetInventory.hs +29/−19
• gen/Network/AWS/SSM/GetInventorySchema.hs +27/−17
• gen/Network/AWS/SSM/GetMaintenanceWindow.hs +25/−25
• gen/Network/AWS/SSM/GetMaintenanceWindowExecution.hs +17/−17
• gen/Network/AWS/SSM/GetMaintenanceWindowExecutionTask.hs +33/−33
• gen/Network/AWS/SSM/GetMaintenanceWindowExecutionTaskInvocation.hs +35/−35
• gen/Network/AWS/SSM/GetMaintenanceWindowTask.hs +35/−35
• gen/Network/AWS/SSM/GetParameter.hs +6/−6
• gen/Network/AWS/SSM/GetParameterHistory.hs +27/−17
• gen/Network/AWS/SSM/GetParameters.hs +10/−10
• gen/Network/AWS/SSM/GetParametersByPath.hs +35/−25
• gen/Network/AWS/SSM/GetPatchBaseline.hs +63/−43
• gen/Network/AWS/SSM/GetPatchBaselineForPatchGroup.hs +13/−13
• gen/Network/AWS/SSM/ListAssociationVersions.hs +15/−15
• gen/Network/AWS/SSM/ListAssociations.hs +15/−15
• gen/Network/AWS/SSM/ListCommandInvocations.hs +21/−21
• gen/Network/AWS/SSM/ListCommands.hs +19/−19
• gen/Network/AWS/SSM/ListComplianceItems.hs +19/−19
• gen/Network/AWS/SSM/ListComplianceSummaries.hs +12/−12
• gen/Network/AWS/SSM/ListDocumentVersions.hs +12/−12
• gen/Network/AWS/SSM/ListDocuments.hs +17/−17
• gen/Network/AWS/SSM/ListInventoryEntries.hs +27/−27
• gen/Network/AWS/SSM/ListResourceComplianceSummaries.hs +15/−12
• gen/Network/AWS/SSM/ListResourceDataSync.hs +10/−10
• gen/Network/AWS/SSM/ListTagsForResource.hs +7/−7
• gen/Network/AWS/SSM/ModifyDocumentPermission.hs +11/−11
• gen/Network/AWS/SSM/PutComplianceItems.hs +49/−15
• gen/Network/AWS/SSM/PutInventory.hs +19/−9
• gen/Network/AWS/SSM/PutParameter.hs +24/−24
• gen/Network/AWS/SSM/RegisterDefaultPatchBaseline.hs +5/−5
• gen/Network/AWS/SSM/RegisterPatchBaselineForPatchGroup.hs +11/−11
• gen/Network/AWS/SSM/RegisterTargetWithMaintenanceWindow.hs +21/−21
• gen/Network/AWS/SSM/RegisterTaskWithMaintenanceWindow.hs +37/−37
• gen/Network/AWS/SSM/RemoveTagsFromResource.hs +11/−11
• gen/Network/AWS/SSM/SendAutomationSignal.hs +9/−9
• gen/Network/AWS/SSM/SendCommand.hs +49/−39
• gen/Network/AWS/SSM/StartAutomationExecution.hs +69/−18
• gen/Network/AWS/SSM/StopAutomationExecution.hs +17/−7
• gen/Network/AWS/SSM/Types.hs +185/−24
• gen/Network/AWS/SSM/Types/Product.hs +8089/−6979
• gen/Network/AWS/SSM/Types/Sum.hs +224/−11
• gen/Network/AWS/SSM/UpdateAssociation.hs +25/−25
• gen/Network/AWS/SSM/UpdateAssociationStatus.hs +13/−13
• gen/Network/AWS/SSM/UpdateDocument.hs +33/−10
• gen/Network/AWS/SSM/UpdateDocumentDefaultVersion.hs +7/−7
• gen/Network/AWS/SSM/UpdateMaintenanceWindow.hs +39/−39
• gen/Network/AWS/SSM/UpdateMaintenanceWindowTarget.hs +31/−31
• gen/Network/AWS/SSM/UpdateMaintenanceWindowTask.hs +68/−66
• gen/Network/AWS/SSM/UpdateManagedInstanceRole.hs +5/−5
• gen/Network/AWS/SSM/UpdatePatchBaseline.hs +121/−70
• gen/Network/AWS/SSM/Waiters.hs +1/−1
• test/Main.hs +1/−1
• test/Test/AWS/Gen/SSM.hs +55/−1
• test/Test/AWS/SSM.hs +1/−1
• test/Test/AWS/SSM/Internal.hs +1/−1

@@ -8,7 +8,7 @@  ## Version -`1.5.0`+`1.6.0`   ## Description

@@ -1,5 +1,5 @@ name:                  amazonka-ssm-version:               1.5.0+version:               1.6.0 synopsis:              Amazon Simple Systems Manager (SSM) SDK. homepage:              https://github.com/brendanhay/amazonka bug-reports:           https://github.com/brendanhay/amazonka/issues@@ -7,7 +7,7 @@ license-file:          LICENSE author:                Brendan Hay maintainer:            Brendan Hay <brendan.g.hay+amazonka@gmail.com>-copyright:             Copyright (c) 2013-2017 Brendan Hay+copyright:             Copyright (c) 2013-2018 Brendan Hay category:              Network, AWS, Cloud, Distributed Computing build-type:            Simple cabal-version:         >= 1.10@@ -57,6 +57,7 @@         , Network.AWS.SSM.DeleteActivation         , Network.AWS.SSM.DeleteAssociation         , Network.AWS.SSM.DeleteDocument+        , Network.AWS.SSM.DeleteInventory         , Network.AWS.SSM.DeleteMaintenanceWindow         , Network.AWS.SSM.DeleteParameter         , Network.AWS.SSM.DeleteParameters@@ -69,6 +70,7 @@         , Network.AWS.SSM.DescribeActivations         , Network.AWS.SSM.DescribeAssociation         , Network.AWS.SSM.DescribeAutomationExecutions+        , Network.AWS.SSM.DescribeAutomationStepExecutions         , Network.AWS.SSM.DescribeAvailablePatches         , Network.AWS.SSM.DescribeDocument         , Network.AWS.SSM.DescribeDocumentPermission@@ -79,6 +81,7 @@         , Network.AWS.SSM.DescribeInstancePatchStates         , Network.AWS.SSM.DescribeInstancePatchStatesForPatchGroup         , Network.AWS.SSM.DescribeInstancePatches+        , Network.AWS.SSM.DescribeInventoryDeletions         , Network.AWS.SSM.DescribeMaintenanceWindowExecutionTaskInvocations         , Network.AWS.SSM.DescribeMaintenanceWindowExecutionTasks         , Network.AWS.SSM.DescribeMaintenanceWindowExecutions@@ -149,7 +152,7 @@         , Network.AWS.SSM.Types.Sum      build-depends:-          amazonka-core == 1.5.0.*+          amazonka-core == 1.6.0.*         , base          >= 4.7     && < 5  test-suite amazonka-ssm-test@@ -169,8 +172,8 @@         , Test.AWS.SSM.Internal      build-depends:-          amazonka-core == 1.5.0.*-        , amazonka-test == 1.5.0.*+          amazonka-core == 1.6.0.*+        , amazonka-test == 1.6.0.*         , amazonka-ssm         , base         , bytestring

@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/ssm/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  ssm.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''

@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/ssm/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  ssm.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''

@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/ssm/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  ssm.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''

@@ -5,17 +5,17 @@  -- | -- Module      : Network.AWS.SSM--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- __Amazon EC2 Systems Manager__+-- __AWS Systems Manager__ ----- Amazon EC2 Systems Manager is a collection of capabilities that helps you automate management tasks such as collecting system inventory, applying operating system (OS) patches, automating the creation of Amazon Machine Images (AMIs), and configuring operating systems (OSs) and applications at scale. Systems Manager lets you remotely and securely manage the configuration of your managed instances. A /managed instance/ is any Amazon EC2 instance or on-premises machine in your hybrid environment that has been configured for Systems Manager.+-- AWS Systems Manager is a collection of capabilities that helps you automate management tasks such as collecting system inventory, applying operating system (OS) patches, automating the creation of Amazon Machine Images (AMIs), and configuring operating systems (OSs) and applications at scale. Systems Manager lets you remotely and securely manage the configuration of your managed instances. A /managed instance/ is any Amazon EC2 instance or on-premises machine in your hybrid environment that has been configured for Systems Manager. ----- This reference is intended to be used with the <http://docs.aws.amazon.com/systems-manager/latest/userguide/ Amazon EC2 Systems Manager User Guide> .+-- This reference is intended to be used with the <http://docs.aws.amazon.com/systems-manager/latest/userguide/ AWS Systems Manager User Guide> . -- -- To get started, verify prerequisites and configure managed instances. For more information, see <http://docs.aws.amazon.com/systems-manager/latest/userguide/systems-manager-setting-up.html Systems Manager Prerequisites> . --@@ -44,6 +44,9 @@     -- ** UnsupportedParameterType     , _UnsupportedParameterType +    -- ** InvalidAutomationStatusUpdateException+    , _InvalidAutomationStatusUpdateException+     -- ** InvalidPluginName     , _InvalidPluginName @@ -89,6 +92,9 @@     -- ** InvalidNextToken     , _InvalidNextToken +    -- ** InvalidInventoryRequestException+    , _InvalidInventoryRequestException+     -- ** InvalidOutputFolder     , _InvalidOutputFolder @@ -170,6 +176,12 @@     -- ** ComplianceTypeCountLimitExceededException     , _ComplianceTypeCountLimitExceededException +    -- ** InvalidDeleteInventoryParametersException+    , _InvalidDeleteInventoryParametersException++    -- ** InvalidDeletionIdException+    , _InvalidDeletionIdException+     -- ** InvalidDocumentContent     , _InvalidDocumentContent @@ -209,6 +221,9 @@     -- ** InvalidActivation     , _InvalidActivation +    -- ** InvalidOptionException+    , _InvalidOptionException+     -- ** InvalidDocumentSchemaVersion     , _InvalidDocumentSchemaVersion @@ -272,6 +287,9 @@     -- ** DocumentPermissionLimit     , _DocumentPermissionLimit +    -- ** AutomationStepNotFoundException+    , _AutomationStepNotFoundException+     -- ** DuplicateDocumentContent     , _DuplicateDocumentContent @@ -326,7 +344,7 @@     -- ** DescribeParameters (Paginated)     , module Network.AWS.SSM.DescribeParameters -    -- ** GetParametersByPath+    -- ** GetParametersByPath (Paginated)     , module Network.AWS.SSM.GetParametersByPath      -- ** PutComplianceItems@@ -431,6 +449,9 @@     -- ** CancelCommand     , module Network.AWS.SSM.CancelCommand +    -- ** DescribeAutomationStepExecutions+    , module Network.AWS.SSM.DescribeAutomationStepExecutions+     -- ** GetCommandInvocation     , module Network.AWS.SSM.GetCommandInvocation @@ -497,7 +518,7 @@     -- ** UpdateMaintenanceWindowTask     , module Network.AWS.SSM.UpdateMaintenanceWindowTask -    -- ** GetParameterHistory+    -- ** GetParameterHistory (Paginated)     , module Network.AWS.SSM.GetParameterHistory      -- ** CreateMaintenanceWindow@@ -536,6 +557,12 @@     -- ** UpdateAssociation     , module Network.AWS.SSM.UpdateAssociation +    -- ** DescribeInventoryDeletions+    , module Network.AWS.SSM.DescribeInventoryDeletions++    -- ** DeleteInventory+    , module Network.AWS.SSM.DeleteInventory+     -- ** PutInventory     , module Network.AWS.SSM.PutInventory @@ -625,6 +652,9 @@     -- ** DocumentFilterKey     , DocumentFilterKey (..) +    -- ** DocumentFormat+    , DocumentFormat (..)+     -- ** DocumentHashType     , DocumentHashType (..) @@ -640,6 +670,9 @@     -- ** DocumentType     , DocumentType (..) +    -- ** ExecutionMode+    , ExecutionMode (..)+     -- ** Fault     , Fault (..) @@ -652,9 +685,15 @@     -- ** InventoryAttributeDataType     , InventoryAttributeDataType (..) +    -- ** InventoryDeletionStatus+    , InventoryDeletionStatus (..)+     -- ** InventoryQueryOperatorType     , InventoryQueryOperatorType (..) +    -- ** InventorySchemaDeleteOption+    , InventorySchemaDeleteOption (..)+     -- ** LastResourceDataSyncStatus     , LastResourceDataSyncStatus (..) @@ -715,6 +754,12 @@     -- ** SignalType     , SignalType (..) +    -- ** StepExecutionFilterKey+    , StepExecutionFilterKey (..)++    -- ** StopType+    , StopType (..)+     -- ** Activation     , Activation     , activation@@ -800,16 +845,28 @@     -- ** AutomationExecution     , AutomationExecution     , automationExecution+    , aeCurrentStepName+    , aeTargetParameterName+    , aeExecutedBy     , aeDocumentName     , aeExecutionEndTime     , aeFailureMessage+    , aeMode+    , aeStepExecutionsTruncated     , aeAutomationExecutionStatus+    , aeParentAutomationExecutionId     , aeOutputs+    , aeMaxErrors     , aeExecutionStartTime+    , aeCurrentAction+    , aeTargets+    , aeResolvedTargets     , aeParameters     , aeDocumentVersion     , aeAutomationExecutionId     , aeStepExecutions+    , aeMaxConcurrency+    , aeTarget      -- ** AutomationExecutionFilter     , AutomationExecutionFilter@@ -820,15 +877,26 @@     -- ** AutomationExecutionMetadata     , AutomationExecutionMetadata     , automationExecutionMetadata+    , aemCurrentStepName+    , aemTargetParameterName     , aemLogFile     , aemExecutedBy     , aemDocumentName     , aemExecutionEndTime+    , aemFailureMessage+    , aemMode     , aemAutomationExecutionStatus+    , aemParentAutomationExecutionId     , aemOutputs+    , aemMaxErrors     , aemExecutionStartTime+    , aemCurrentAction+    , aemTargets+    , aemResolvedTargets     , aemDocumentVersion     , aemAutomationExecutionId+    , aemMaxConcurrency+    , aemTarget      -- ** Command     , Command@@ -847,6 +915,7 @@     , cTargets     , cCommandId     , cParameters+    , cDocumentVersion     , cComment     , cCompletedCount     , cOutputS3BucketName@@ -872,6 +941,7 @@     , comStatusDetails     , comStandardOutputURL     , comCommandId+    , comDocumentVersion     , comComment     , comTraceOutput     , comInstanceName@@ -976,9 +1046,11 @@     , dSchemaVersion     , dSha1     , dDefaultVersion+    , dTargetType     , dOwner     , dPlatformTypes     , dCreatedDate+    , dDocumentFormat     , dName     , dHashType     , dParameters@@ -998,8 +1070,10 @@     , documentIdentifier     , diDocumentType     , diSchemaVersion+    , diTargetType     , diOwner     , diPlatformTypes+    , diDocumentFormat     , diName     , diDocumentVersion     , diTags@@ -1022,6 +1096,7 @@     , DocumentVersionInfo     , documentVersionInfo     , dviCreatedDate+    , dviDocumentFormat     , dviName     , dviDocumentVersion     , dviIsDefaultVersion@@ -1145,6 +1220,37 @@     , ipsfValues     , ipsfType +    -- ** InventoryAggregator+    , InventoryAggregator+    , inventoryAggregator+    , iaAggregators+    , iaExpression++    -- ** InventoryDeletionStatusItem+    , InventoryDeletionStatusItem+    , inventoryDeletionStatusItem+    , idsiTypeName+    , idsiLastStatusUpdateTime+    , idsiLastStatusMessage+    , idsiDeletionSummary+    , idsiLastStatus+    , idsiDeletionStartTime+    , idsiDeletionId++    -- ** InventoryDeletionSummary+    , InventoryDeletionSummary+    , inventoryDeletionSummary+    , idsRemainingCount+    , idsSummaryItems+    , idsTotalCount++    -- ** InventoryDeletionSummaryItem+    , InventoryDeletionSummaryItem+    , inventoryDeletionSummaryItem+    , idsiRemainingCount+    , idsiCount+    , idsiVersion+     -- ** InventoryFilter     , InventoryFilter     , inventoryFilter@@ -1172,6 +1278,7 @@     , InventoryItemSchema     , inventoryItemSchema     , iisVersion+    , iisDisplayName     , iisTypeName     , iisAttributes @@ -1445,6 +1552,7 @@     -- ** PatchRule     , PatchRule     , patchRule+    , prEnableNonSecurity     , prComplianceLevel     , prPatchFilterGroup     , prApproveAfterDays@@ -1454,6 +1562,13 @@     , patchRuleGroup     , prgPatchRules +    -- ** PatchSource+    , PatchSource+    , patchSource+    , psName+    , psProducts+    , psConfiguration+     -- ** PatchStatus     , PatchStatus     , patchStatus@@ -1461,6 +1576,12 @@     , psDeploymentStatus     , psComplianceLevel +    -- ** ResolvedTargets+    , ResolvedTargets+    , resolvedTargets+    , rtTruncated+    , rtParameterValues+     -- ** ResourceComplianceSummaryItem     , ResourceComplianceSummaryItem     , resourceComplianceSummaryItem@@ -1476,6 +1597,7 @@     -- ** ResourceDataSyncItem     , ResourceDataSyncItem     , resourceDataSyncItem+    , rdsiLastSyncStatusMessage     , rdsiSyncCreatedTime     , rdsiLastSyncTime     , rdsiSyncName@@ -1531,9 +1653,20 @@     , seAction     , seResponseCode     , seStepStatus+    , seOverriddenParameters     , seOutputs     , seExecutionStartTime+    , seMaxAttempts+    , seStepExecutionId+    , seTimeoutSeconds+    , seOnFailure +    -- ** StepExecutionFilter+    , StepExecutionFilter+    , stepExecutionFilter+    , sefKey+    , sefValues+     -- ** Tag     , Tag     , tag@@ -1559,6 +1692,7 @@ import Network.AWS.SSM.DeleteActivation import Network.AWS.SSM.DeleteAssociation import Network.AWS.SSM.DeleteDocument+import Network.AWS.SSM.DeleteInventory import Network.AWS.SSM.DeleteMaintenanceWindow import Network.AWS.SSM.DeleteParameter import Network.AWS.SSM.DeleteParameters@@ -1571,6 +1705,7 @@ import Network.AWS.SSM.DescribeActivations import Network.AWS.SSM.DescribeAssociation import Network.AWS.SSM.DescribeAutomationExecutions+import Network.AWS.SSM.DescribeAutomationStepExecutions import Network.AWS.SSM.DescribeAvailablePatches import Network.AWS.SSM.DescribeDocument import Network.AWS.SSM.DescribeDocumentPermission@@ -1581,6 +1716,7 @@ import Network.AWS.SSM.DescribeInstancePatches import Network.AWS.SSM.DescribeInstancePatchStates import Network.AWS.SSM.DescribeInstancePatchStatesForPatchGroup+import Network.AWS.SSM.DescribeInventoryDeletions import Network.AWS.SSM.DescribeMaintenanceWindowExecutions import Network.AWS.SSM.DescribeMaintenanceWindowExecutionTaskInvocations import Network.AWS.SSM.DescribeMaintenanceWindowExecutionTasks

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.SSM.AddTagsToResource--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -21,7 +21,7 @@ -- Adds or overwrites one or more tags for the specified resource. Tags are metadata that you can assign to your documents, managed instances, Maintenance Windows, Parameter Store parameters, and patch baselines. Tags enable you to categorize your resources in different ways, for example, by purpose, owner, or environment. Each tag consists of a key and an optional value, both of which you define. For example, you could define a set of tags for your account's managed instances that helps you track each instance's owner and stack level. For example: Key=Owner and Value=DbAdmin, SysAdmin, or Dev. Or Key=Stack and Value=Production, Pre-Production, or Test. -- ----- Each resource can have a maximum of 10 tags.+-- Each resource can have a maximum of 50 tags. -- -- We recommend that you devise a set of tag keys that meets your needs for each resource type. Using a consistent set of tag keys makes it easier for you to manage your resources. You can search and filter the resources based on the tags you add. Tags don't have any semantic meaning to Amazon EC2 and are interpreted strictly as a string of characters. --@@ -65,32 +65,32 @@ -- -- * 'attrResourceType' - Specifies the type of resource you are tagging. ----- * 'attrResourceId' - The resource ID you want to tag. For the ManagedInstance, MaintenanceWindow, and PatchBaseline values, use the ID of the resource, such as mw-01234361858c9b57b for a Maintenance Window. For the Document and Parameter values, use the name of the resource.+-- * 'attrResourceId' - The resource ID you want to tag. Use the ID of the resource. Here are some examples: ManagedInstance: mi-012345abcde MaintenanceWindow: mw-012345abcde PatchBaseline: pb-012345abcde For the Document and Parameter values, use the name of the resource. ----- * 'attrTags' - One or more tags. The value parameter is required, but if you don't want the tag to have a value, specify the parameter with no value, and we set the value to an empty string.+-- * 'attrTags' - One or more tags. The value parameter is required, but if you don't want the tag to have a value, specify the parameter with no value, and we set the value to an empty string.  /Important:/ Do not enter personally identifiable information in this field. addTagsToResource     :: ResourceTypeForTagging -- ^ 'attrResourceType'     -> Text -- ^ 'attrResourceId'     -> AddTagsToResource addTagsToResource pResourceType_ pResourceId_ =   AddTagsToResource'-  { _attrResourceType = pResourceType_-  , _attrResourceId = pResourceId_-  , _attrTags = mempty-  }+    { _attrResourceType = pResourceType_+    , _attrResourceId = pResourceId_+    , _attrTags = mempty+    }   -- | Specifies the type of resource you are tagging. attrResourceType :: Lens' AddTagsToResource ResourceTypeForTagging-attrResourceType = lens _attrResourceType (\ s a -> s{_attrResourceType = a});+attrResourceType = lens _attrResourceType (\ s a -> s{_attrResourceType = a}) --- | The resource ID you want to tag. For the ManagedInstance, MaintenanceWindow, and PatchBaseline values, use the ID of the resource, such as mw-01234361858c9b57b for a Maintenance Window. For the Document and Parameter values, use the name of the resource.+-- | The resource ID you want to tag. Use the ID of the resource. Here are some examples: ManagedInstance: mi-012345abcde MaintenanceWindow: mw-012345abcde PatchBaseline: pb-012345abcde For the Document and Parameter values, use the name of the resource. attrResourceId :: Lens' AddTagsToResource Text-attrResourceId = lens _attrResourceId (\ s a -> s{_attrResourceId = a});+attrResourceId = lens _attrResourceId (\ s a -> s{_attrResourceId = a}) --- | One or more tags. The value parameter is required, but if you don't want the tag to have a value, specify the parameter with no value, and we set the value to an empty string.+-- | One or more tags. The value parameter is required, but if you don't want the tag to have a value, specify the parameter with no value, and we set the value to an empty string.  /Important:/ Do not enter personally identifiable information in this field. attrTags :: Lens' AddTagsToResource [Tag]-attrTags = lens _attrTags (\ s a -> s{_attrTags = a}) . _Coerce;+attrTags = lens _attrTags (\ s a -> s{_attrTags = a}) . _Coerce  instance AWSRequest AddTagsToResource where         type Rs AddTagsToResource = AddTagsToResourceResponse@@ -147,6 +147,6 @@  -- | -- | The response status code. attrrsResponseStatus :: Lens' AddTagsToResourceResponse Int-attrrsResponseStatus = lens _attrrsResponseStatus (\ s a -> s{_attrrsResponseStatus = a});+attrrsResponseStatus = lens _attrrsResponseStatus (\ s a -> s{_attrrsResponseStatus = a})  instance NFData AddTagsToResourceResponse where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.SSM.CancelCommand--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -71,11 +71,11 @@  -- | (Optional) A list of instance IDs on which you want to cancel the command. If not provided, the command is canceled on every instance on which it was requested. ccInstanceIds :: Lens' CancelCommand [Text]-ccInstanceIds = lens _ccInstanceIds (\ s a -> s{_ccInstanceIds = a}) . _Default . _Coerce;+ccInstanceIds = lens _ccInstanceIds (\ s a -> s{_ccInstanceIds = a}) . _Default . _Coerce  -- | The ID of the command you want to cancel. ccCommandId :: Lens' CancelCommand Text-ccCommandId = lens _ccCommandId (\ s a -> s{_ccCommandId = a});+ccCommandId = lens _ccCommandId (\ s a -> s{_ccCommandId = a})  instance AWSRequest CancelCommand where         type Rs CancelCommand = CancelCommandResponse@@ -135,6 +135,6 @@  -- | -- | The response status code. ccrsResponseStatus :: Lens' CancelCommandResponse Int-ccrsResponseStatus = lens _ccrsResponseStatus (\ s a -> s{_ccrsResponseStatus = a});+ccrsResponseStatus = lens _ccrsResponseStatus (\ s a -> s{_ccrsResponseStatus = a})  instance NFData CancelCommandResponse where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.SSM.CreateActivation--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -63,13 +63,13 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'caDefaultInstanceName' - The name of the registered, managed instance as it will appear in the Amazon EC2 console or when you use the AWS command line tools to list EC2 resources.+-- * 'caDefaultInstanceName' - The name of the registered, managed instance as it will appear in the Amazon EC2 console or when you use the AWS command line tools to list EC2 resources. /Important:/ Do not enter personally identifiable information in this field. -- -- * 'caRegistrationLimit' - Specify the maximum number of managed instances you want to register. The default value is 1 instance. -- -- * 'caExpirationDate' - The date by which this activation request should expire. The default value is 24 hours. ----- * 'caDescription' - A userdefined description of the resource that you want to register with Amazon EC2.+-- * 'caDescription' - A user-defined description of the resource that you want to register with Amazon EC2.  /Important:/ Do not enter personally identifiable information in this field. -- -- * 'caIAMRole' - The Amazon Identity and Access Management (IAM) role that you want to assign to the managed instance. createActivation@@ -77,33 +77,33 @@     -> CreateActivation createActivation pIAMRole_ =   CreateActivation'-  { _caDefaultInstanceName = Nothing-  , _caRegistrationLimit = Nothing-  , _caExpirationDate = Nothing-  , _caDescription = Nothing-  , _caIAMRole = pIAMRole_-  }+    { _caDefaultInstanceName = Nothing+    , _caRegistrationLimit = Nothing+    , _caExpirationDate = Nothing+    , _caDescription = Nothing+    , _caIAMRole = pIAMRole_+    }  --- | The name of the registered, managed instance as it will appear in the Amazon EC2 console or when you use the AWS command line tools to list EC2 resources.+-- | The name of the registered, managed instance as it will appear in the Amazon EC2 console or when you use the AWS command line tools to list EC2 resources. /Important:/ Do not enter personally identifiable information in this field. caDefaultInstanceName :: Lens' CreateActivation (Maybe Text)-caDefaultInstanceName = lens _caDefaultInstanceName (\ s a -> s{_caDefaultInstanceName = a});+caDefaultInstanceName = lens _caDefaultInstanceName (\ s a -> s{_caDefaultInstanceName = a})  -- | Specify the maximum number of managed instances you want to register. The default value is 1 instance. caRegistrationLimit :: Lens' CreateActivation (Maybe Natural)-caRegistrationLimit = lens _caRegistrationLimit (\ s a -> s{_caRegistrationLimit = a}) . mapping _Nat;+caRegistrationLimit = lens _caRegistrationLimit (\ s a -> s{_caRegistrationLimit = a}) . mapping _Nat  -- | The date by which this activation request should expire. The default value is 24 hours. caExpirationDate :: Lens' CreateActivation (Maybe UTCTime)-caExpirationDate = lens _caExpirationDate (\ s a -> s{_caExpirationDate = a}) . mapping _Time;+caExpirationDate = lens _caExpirationDate (\ s a -> s{_caExpirationDate = a}) . mapping _Time --- | A userdefined description of the resource that you want to register with Amazon EC2.+-- | A user-defined description of the resource that you want to register with Amazon EC2.  /Important:/ Do not enter personally identifiable information in this field. caDescription :: Lens' CreateActivation (Maybe Text)-caDescription = lens _caDescription (\ s a -> s{_caDescription = a});+caDescription = lens _caDescription (\ s a -> s{_caDescription = a})  -- | The Amazon Identity and Access Management (IAM) role that you want to assign to the managed instance. caIAMRole :: Lens' CreateActivation Text-caIAMRole = lens _caIAMRole (\ s a -> s{_caIAMRole = a});+caIAMRole = lens _caIAMRole (\ s a -> s{_caIAMRole = a})  instance AWSRequest CreateActivation where         type Rs CreateActivation = CreateActivationResponse@@ -167,22 +167,22 @@     -> CreateActivationResponse createActivationResponse pResponseStatus_ =   CreateActivationResponse'-  { _carsActivationId = Nothing-  , _carsActivationCode = Nothing-  , _carsResponseStatus = pResponseStatus_-  }+    { _carsActivationId = Nothing+    , _carsActivationCode = Nothing+    , _carsResponseStatus = pResponseStatus_+    }   -- | The ID number generated by the system when it processed the activation. The activation ID functions like a user name. carsActivationId :: Lens' CreateActivationResponse (Maybe Text)-carsActivationId = lens _carsActivationId (\ s a -> s{_carsActivationId = a});+carsActivationId = lens _carsActivationId (\ s a -> s{_carsActivationId = a})  -- | The code the system generates when it processes the activation. The activation code functions like a password to validate the activation ID. carsActivationCode :: Lens' CreateActivationResponse (Maybe Text)-carsActivationCode = lens _carsActivationCode (\ s a -> s{_carsActivationCode = a});+carsActivationCode = lens _carsActivationCode (\ s a -> s{_carsActivationCode = a})  -- | -- | The response status code. carsResponseStatus :: Lens' CreateActivationResponse Int-carsResponseStatus = lens _carsResponseStatus (\ s a -> s{_carsResponseStatus = a});+carsResponseStatus = lens _carsResponseStatus (\ s a -> s{_carsResponseStatus = a})  instance NFData CreateActivationResponse where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.SSM.CreateAssociation--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -92,48 +92,48 @@     -> CreateAssociation createAssociation pName_ =   CreateAssociation'-  { _caInstanceId = Nothing-  , _caScheduleExpression = Nothing-  , _caOutputLocation = Nothing-  , _caTargets = Nothing-  , _caParameters = Nothing-  , _caDocumentVersion = Nothing-  , _caAssociationName = Nothing-  , _caName = pName_-  }+    { _caInstanceId = Nothing+    , _caScheduleExpression = Nothing+    , _caOutputLocation = Nothing+    , _caTargets = Nothing+    , _caParameters = Nothing+    , _caDocumentVersion = Nothing+    , _caAssociationName = Nothing+    , _caName = pName_+    }   -- | The instance ID. caInstanceId :: Lens' CreateAssociation (Maybe Text)-caInstanceId = lens _caInstanceId (\ s a -> s{_caInstanceId = a});+caInstanceId = lens _caInstanceId (\ s a -> s{_caInstanceId = a})  -- | A cron expression when the association will be applied to the target(s). caScheduleExpression :: Lens' CreateAssociation (Maybe Text)-caScheduleExpression = lens _caScheduleExpression (\ s a -> s{_caScheduleExpression = a});+caScheduleExpression = lens _caScheduleExpression (\ s a -> s{_caScheduleExpression = a})  -- | An Amazon S3 bucket where you want to store the output details of the request. caOutputLocation :: Lens' CreateAssociation (Maybe InstanceAssociationOutputLocation)-caOutputLocation = lens _caOutputLocation (\ s a -> s{_caOutputLocation = a});+caOutputLocation = lens _caOutputLocation (\ s a -> s{_caOutputLocation = a})  -- | The targets (either instances or tags) for the association. caTargets :: Lens' CreateAssociation [Target]-caTargets = lens _caTargets (\ s a -> s{_caTargets = a}) . _Default . _Coerce;+caTargets = lens _caTargets (\ s a -> s{_caTargets = a}) . _Default . _Coerce  -- | The parameters for the documents runtime configuration. caParameters :: Lens' CreateAssociation (HashMap Text [Text])-caParameters = lens _caParameters (\ s a -> s{_caParameters = a}) . _Default . _Map;+caParameters = lens _caParameters (\ s a -> s{_caParameters = a}) . _Default . _Map  -- | The document version you want to associate with the target(s). Can be a specific version or the default version. caDocumentVersion :: Lens' CreateAssociation (Maybe Text)-caDocumentVersion = lens _caDocumentVersion (\ s a -> s{_caDocumentVersion = a});+caDocumentVersion = lens _caDocumentVersion (\ s a -> s{_caDocumentVersion = a})  -- | Specify a descriptive name for the association. caAssociationName :: Lens' CreateAssociation (Maybe Text)-caAssociationName = lens _caAssociationName (\ s a -> s{_caAssociationName = a});+caAssociationName = lens _caAssociationName (\ s a -> s{_caAssociationName = a})  -- | The name of the Systems Manager document. caName :: Lens' CreateAssociation Text-caName = lens _caName (\ s a -> s{_caName = a});+caName = lens _caName (\ s a -> s{_caName = a})  instance AWSRequest CreateAssociation where         type Rs CreateAssociation = CreateAssociationResponse@@ -196,15 +196,17 @@     -> CreateAssociationResponse createAssociationResponse pResponseStatus_ =   CreateAssociationResponse'-  {_crsAssociationDescription = Nothing, _crsResponseStatus = pResponseStatus_}+    { _crsAssociationDescription = Nothing+    , _crsResponseStatus = pResponseStatus_+    }   -- | Information about the association. crsAssociationDescription :: Lens' CreateAssociationResponse (Maybe AssociationDescription)-crsAssociationDescription = lens _crsAssociationDescription (\ s a -> s{_crsAssociationDescription = a});+crsAssociationDescription = lens _crsAssociationDescription (\ s a -> s{_crsAssociationDescription = a})  -- | -- | The response status code. crsResponseStatus :: Lens' CreateAssociationResponse Int-crsResponseStatus = lens _crsResponseStatus (\ s a -> s{_crsResponseStatus = a});+crsResponseStatus = lens _crsResponseStatus (\ s a -> s{_crsResponseStatus = a})  instance NFData CreateAssociationResponse where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.SSM.CreateAssociationBatch--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -69,7 +69,7 @@  -- | One or more associations. cabEntries :: Lens' CreateAssociationBatch (NonEmpty CreateAssociationBatchRequestEntry)-cabEntries = lens _cabEntries (\ s a -> s{_cabEntries = a}) . _List1;+cabEntries = lens _cabEntries (\ s a -> s{_cabEntries = a}) . _List1  instance AWSRequest CreateAssociationBatch where         type Rs CreateAssociationBatch =@@ -129,22 +129,22 @@     -> CreateAssociationBatchResponse createAssociationBatchResponse pResponseStatus_ =   CreateAssociationBatchResponse'-  { _cabrsSuccessful = Nothing-  , _cabrsFailed = Nothing-  , _cabrsResponseStatus = pResponseStatus_-  }+    { _cabrsSuccessful = Nothing+    , _cabrsFailed = Nothing+    , _cabrsResponseStatus = pResponseStatus_+    }   -- | Information about the associations that succeeded. cabrsSuccessful :: Lens' CreateAssociationBatchResponse [AssociationDescription]-cabrsSuccessful = lens _cabrsSuccessful (\ s a -> s{_cabrsSuccessful = a}) . _Default . _Coerce;+cabrsSuccessful = lens _cabrsSuccessful (\ s a -> s{_cabrsSuccessful = a}) . _Default . _Coerce  -- | Information about the associations that failed. cabrsFailed :: Lens' CreateAssociationBatchResponse [FailedCreateAssociation]-cabrsFailed = lens _cabrsFailed (\ s a -> s{_cabrsFailed = a}) . _Default . _Coerce;+cabrsFailed = lens _cabrsFailed (\ s a -> s{_cabrsFailed = a}) . _Default . _Coerce  -- | -- | The response status code. cabrsResponseStatus :: Lens' CreateAssociationBatchResponse Int-cabrsResponseStatus = lens _cabrsResponseStatus (\ s a -> s{_cabrsResponseStatus = a});+cabrsResponseStatus = lens _cabrsResponseStatus (\ s a -> s{_cabrsResponseStatus = a})  instance NFData CreateAssociationBatchResponse where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.SSM.CreateDocument--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -30,6 +30,8 @@     , CreateDocument     -- * Request Lenses     , cdDocumentType+    , cdTargetType+    , cdDocumentFormat     , cdContent     , cdName @@ -50,9 +52,11 @@  -- | /See:/ 'createDocument' smart constructor. data CreateDocument = CreateDocument'-  { _cdDocumentType :: !(Maybe DocumentType)-  , _cdContent      :: !Text-  , _cdName         :: !Text+  { _cdDocumentType   :: !(Maybe DocumentType)+  , _cdTargetType     :: !(Maybe Text)+  , _cdDocumentFormat :: !(Maybe DocumentFormat)+  , _cdContent        :: !Text+  , _cdName           :: !Text   } deriving (Eq, Read, Show, Data, Typeable, Generic)  @@ -62,29 +66,46 @@ -- -- * 'cdDocumentType' - The type of document to create. Valid document types include: Policy, Automation, and Command. ----- * 'cdContent' - A valid JSON string.+-- * 'cdTargetType' - Specify a target type to define the kinds of resources the document can run on. For example, to run a document on EC2 instances, specify the following value: /AWS::EC2::Instance. If you specify a value of '/' the document can run on all types of resources. If you don't specify a value, the document can't run on any resources. For a list of valid resource types, see <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-template-resource-type-ref.html AWS Resource Types Reference> in the /AWS CloudFormation User Guide/ . ----- * 'cdName' - A name for the Systems Manager document.+-- * 'cdDocumentFormat' - Specify the document format for the request. The document format can be either JSON or YAML. JSON is the default format.+--+-- * 'cdContent' - A valid JSON or YAML string.+--+-- * 'cdName' - A name for the Systems Manager document. /Important:/ Do not use the following to begin the names of documents you create. They are reserved by AWS for use as document prefixes:     * @aws@      * @amazon@      * @amzn@ createDocument     :: Text -- ^ 'cdContent'     -> Text -- ^ 'cdName'     -> CreateDocument createDocument pContent_ pName_ =   CreateDocument'-  {_cdDocumentType = Nothing, _cdContent = pContent_, _cdName = pName_}+    { _cdDocumentType = Nothing+    , _cdTargetType = Nothing+    , _cdDocumentFormat = Nothing+    , _cdContent = pContent_+    , _cdName = pName_+    }   -- | The type of document to create. Valid document types include: Policy, Automation, and Command. cdDocumentType :: Lens' CreateDocument (Maybe DocumentType)-cdDocumentType = lens _cdDocumentType (\ s a -> s{_cdDocumentType = a});+cdDocumentType = lens _cdDocumentType (\ s a -> s{_cdDocumentType = a}) --- | A valid JSON string.+-- | Specify a target type to define the kinds of resources the document can run on. For example, to run a document on EC2 instances, specify the following value: /AWS::EC2::Instance. If you specify a value of '/' the document can run on all types of resources. If you don't specify a value, the document can't run on any resources. For a list of valid resource types, see <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-template-resource-type-ref.html AWS Resource Types Reference> in the /AWS CloudFormation User Guide/ .+cdTargetType :: Lens' CreateDocument (Maybe Text)+cdTargetType = lens _cdTargetType (\ s a -> s{_cdTargetType = a})++-- | Specify the document format for the request. The document format can be either JSON or YAML. JSON is the default format.+cdDocumentFormat :: Lens' CreateDocument (Maybe DocumentFormat)+cdDocumentFormat = lens _cdDocumentFormat (\ s a -> s{_cdDocumentFormat = a})++-- | A valid JSON or YAML string. cdContent :: Lens' CreateDocument Text-cdContent = lens _cdContent (\ s a -> s{_cdContent = a});+cdContent = lens _cdContent (\ s a -> s{_cdContent = a}) --- | A name for the Systems Manager document.+-- | A name for the Systems Manager document. /Important:/ Do not use the following to begin the names of documents you create. They are reserved by AWS for use as document prefixes:     * @aws@      * @amazon@      * @amzn@ cdName :: Lens' CreateDocument Text-cdName = lens _cdName (\ s a -> s{_cdName = a});+cdName = lens _cdName (\ s a -> s{_cdName = a})  instance AWSRequest CreateDocument where         type Rs CreateDocument = CreateDocumentResponse@@ -114,6 +135,8 @@           = object               (catMaybes                  [("DocumentType" .=) <$> _cdDocumentType,+                  ("TargetType" .=) <$> _cdTargetType,+                  ("DocumentFormat" .=) <$> _cdDocumentFormat,                   Just ("Content" .= _cdContent),                   Just ("Name" .= _cdName)]) @@ -142,15 +165,15 @@     -> CreateDocumentResponse createDocumentResponse pResponseStatus_ =   CreateDocumentResponse'-  {_cdrsDocumentDescription = Nothing, _cdrsResponseStatus = pResponseStatus_}+    {_cdrsDocumentDescription = Nothing, _cdrsResponseStatus = pResponseStatus_}   -- | Information about the Systems Manager document. cdrsDocumentDescription :: Lens' CreateDocumentResponse (Maybe DocumentDescription)-cdrsDocumentDescription = lens _cdrsDocumentDescription (\ s a -> s{_cdrsDocumentDescription = a});+cdrsDocumentDescription = lens _cdrsDocumentDescription (\ s a -> s{_cdrsDocumentDescription = a})  -- | -- | The response status code. cdrsResponseStatus :: Lens' CreateDocumentResponse Int-cdrsResponseStatus = lens _cdrsResponseStatus (\ s a -> s{_cdrsResponseStatus = a});+cdrsResponseStatus = lens _cdrsResponseStatus (\ s a -> s{_cdrsResponseStatus = a})  instance NFData CreateDocumentResponse where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.SSM.CreateMaintenanceWindow--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -88,43 +88,43 @@     -> CreateMaintenanceWindow createMaintenanceWindow pName_ pSchedule_ pDuration_ pCutoff_ pAllowUnassociatedTargets_ =   CreateMaintenanceWindow'-  { _cmwClientToken = Nothing-  , _cmwDescription = Nothing-  , _cmwName = pName_-  , _cmwSchedule = pSchedule_-  , _cmwDuration = _Nat # pDuration_-  , _cmwCutoff = _Nat # pCutoff_-  , _cmwAllowUnassociatedTargets = pAllowUnassociatedTargets_-  }+    { _cmwClientToken = Nothing+    , _cmwDescription = Nothing+    , _cmwName = pName_+    , _cmwSchedule = pSchedule_+    , _cmwDuration = _Nat # pDuration_+    , _cmwCutoff = _Nat # pCutoff_+    , _cmwAllowUnassociatedTargets = pAllowUnassociatedTargets_+    }   -- | User-provided idempotency token. cmwClientToken :: Lens' CreateMaintenanceWindow (Maybe Text)-cmwClientToken = lens _cmwClientToken (\ s a -> s{_cmwClientToken = a});+cmwClientToken = lens _cmwClientToken (\ s a -> s{_cmwClientToken = a})  -- | An optional description for the Maintenance Window. We recommend specifying a description to help you organize your Maintenance Windows. cmwDescription :: Lens' CreateMaintenanceWindow (Maybe Text)-cmwDescription = lens _cmwDescription (\ s a -> s{_cmwDescription = a}) . mapping _Sensitive;+cmwDescription = lens _cmwDescription (\ s a -> s{_cmwDescription = a}) . mapping _Sensitive  -- | The name of the Maintenance Window. cmwName :: Lens' CreateMaintenanceWindow Text-cmwName = lens _cmwName (\ s a -> s{_cmwName = a});+cmwName = lens _cmwName (\ s a -> s{_cmwName = a})  -- | The schedule of the Maintenance Window in the form of a cron or rate expression. cmwSchedule :: Lens' CreateMaintenanceWindow Text-cmwSchedule = lens _cmwSchedule (\ s a -> s{_cmwSchedule = a});+cmwSchedule = lens _cmwSchedule (\ s a -> s{_cmwSchedule = a})  -- | The duration of the Maintenance Window in hours. cmwDuration :: Lens' CreateMaintenanceWindow Natural-cmwDuration = lens _cmwDuration (\ s a -> s{_cmwDuration = a}) . _Nat;+cmwDuration = lens _cmwDuration (\ s a -> s{_cmwDuration = a}) . _Nat  -- | The number of hours before the end of the Maintenance Window that Systems Manager stops scheduling new tasks for execution. cmwCutoff :: Lens' CreateMaintenanceWindow Natural-cmwCutoff = lens _cmwCutoff (\ s a -> s{_cmwCutoff = a}) . _Nat;+cmwCutoff = lens _cmwCutoff (\ s a -> s{_cmwCutoff = a}) . _Nat  -- | Enables a Maintenance Window task to execute on managed instances, even if you have not registered those instances as targets. If enabled, then you must specify the unregistered instances (by instance ID) when you register a task with the Maintenance Window  If you don't enable this option, then you must specify previously-registered targets when you register a task with the Maintenance Window. cmwAllowUnassociatedTargets :: Lens' CreateMaintenanceWindow Bool-cmwAllowUnassociatedTargets = lens _cmwAllowUnassociatedTargets (\ s a -> s{_cmwAllowUnassociatedTargets = a});+cmwAllowUnassociatedTargets = lens _cmwAllowUnassociatedTargets (\ s a -> s{_cmwAllowUnassociatedTargets = a})  instance AWSRequest CreateMaintenanceWindow where         type Rs CreateMaintenanceWindow =@@ -188,15 +188,15 @@     -> CreateMaintenanceWindowResponse createMaintenanceWindowResponse pResponseStatus_ =   CreateMaintenanceWindowResponse'-  {_cmwrsWindowId = Nothing, _cmwrsResponseStatus = pResponseStatus_}+    {_cmwrsWindowId = Nothing, _cmwrsResponseStatus = pResponseStatus_}   -- | The ID of the created Maintenance Window. cmwrsWindowId :: Lens' CreateMaintenanceWindowResponse (Maybe Text)-cmwrsWindowId = lens _cmwrsWindowId (\ s a -> s{_cmwrsWindowId = a});+cmwrsWindowId = lens _cmwrsWindowId (\ s a -> s{_cmwrsWindowId = a})  -- | -- | The response status code. cmwrsResponseStatus :: Lens' CreateMaintenanceWindowResponse Int-cmwrsResponseStatus = lens _cmwrsResponseStatus (\ s a -> s{_cmwrsResponseStatus = a});+cmwrsResponseStatus = lens _cmwrsResponseStatus (\ s a -> s{_cmwrsResponseStatus = a})  instance NFData CreateMaintenanceWindowResponse where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.SSM.CreatePatchBaseline--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -33,7 +33,9 @@     , cpbGlobalFilters     , cpbApprovedPatchesComplianceLevel     , cpbApprovedPatches+    , cpbApprovedPatchesEnableNonSecurity     , cpbRejectedPatches+    , cpbSources     , cpbDescription     , cpbName @@ -54,16 +56,18 @@  -- | /See:/ 'createPatchBaseline' smart constructor. data CreatePatchBaseline = CreatePatchBaseline'-  { _cpbApprovalRules                  :: !(Maybe PatchRuleGroup)-  , _cpbClientToken                    :: !(Maybe Text)-  , _cpbOperatingSystem                :: !(Maybe OperatingSystem)-  , _cpbGlobalFilters                  :: !(Maybe PatchFilterGroup)-  , _cpbApprovedPatchesComplianceLevel :: !(Maybe PatchComplianceLevel)-  , _cpbApprovedPatches                :: !(Maybe [Text])-  , _cpbRejectedPatches                :: !(Maybe [Text])-  , _cpbDescription                    :: !(Maybe Text)-  , _cpbName                           :: !Text-  } deriving (Eq, Read, Show, Data, Typeable, Generic)+  { _cpbApprovalRules                    :: !(Maybe PatchRuleGroup)+  , _cpbClientToken                      :: !(Maybe Text)+  , _cpbOperatingSystem                  :: !(Maybe OperatingSystem)+  , _cpbGlobalFilters                    :: !(Maybe PatchFilterGroup)+  , _cpbApprovedPatchesComplianceLevel   :: !(Maybe PatchComplianceLevel)+  , _cpbApprovedPatches                  :: !(Maybe [Text])+  , _cpbApprovedPatchesEnableNonSecurity :: !(Maybe Bool)+  , _cpbRejectedPatches                  :: !(Maybe [Text])+  , _cpbSources                          :: !(Maybe [PatchSource])+  , _cpbDescription                      :: !(Maybe Text)+  , _cpbName                             :: !Text+  } deriving (Eq, Show, Data, Typeable, Generic)   -- | Creates a value of 'CreatePatchBaseline' with the minimum fields required to make a request.@@ -74,16 +78,20 @@ -- -- * 'cpbClientToken' - User-provided idempotency token. ----- * 'cpbOperatingSystem' - Defines the operating system the patch baseline applies to. Supported operating systems include WINDOWS, AMAZON_LINUX, UBUNTU and REDHAT_ENTERPRISE_LINUX. The Default value is WINDOWS.+-- * 'cpbOperatingSystem' - Defines the operating system the patch baseline applies to. The Default value is WINDOWS. -- -- * 'cpbGlobalFilters' - A set of global filters used to exclude patches from the baseline. ----- * 'cpbApprovedPatchesComplianceLevel' - Defines the compliance level for approved patches. This means that if an approved patch is reported as missing, this is the severity of the compliance violation. Valid compliance severity levels include the following: CRITICAL, HIGH, MEDIUM, LOW, INFORMATIONAL, UNSPECIFIED. The default value is UNSPECIFIED.+-- * 'cpbApprovedPatchesComplianceLevel' - Defines the compliance level for approved patches. This means that if an approved patch is reported as missing, this is the severity of the compliance violation. The default value is UNSPECIFIED. ----- * 'cpbApprovedPatches' - A list of explicitly approved patches for the baseline.+-- * 'cpbApprovedPatches' - A list of explicitly approved patches for the baseline. For information about accepted formats for lists of approved patches and rejected patches, see <http://docs.aws.amazon.com/systems-manager/latest/userguide/patch-manager-approved-rejected-package-name-formats.html Package Name Formats for Approved and Rejected Patch Lists> in the /AWS Systems Manager User Guide/ . ----- * 'cpbRejectedPatches' - A list of explicitly rejected patches for the baseline.+-- * 'cpbApprovedPatchesEnableNonSecurity' - Indicates whether the list of approved patches includes non-security updates that should be applied to the instances. The default value is 'false'. Applies to Linux instances only. --+-- * 'cpbRejectedPatches' - A list of explicitly rejected patches for the baseline. For information about accepted formats for lists of approved patches and rejected patches, see <http://docs.aws.amazon.com/systems-manager/latest/userguide/patch-manager-approved-rejected-package-name-formats.html Package Name Formats for Approved and Rejected Patch Lists> in the /AWS Systems Manager User Guide/ .+--+-- * 'cpbSources' - Information about the patches to use to update the instances, including target operating systems and source repositories. Applies to Linux instances only.+-- -- * 'cpbDescription' - A description of the patch baseline. -- -- * 'cpbName' - The name of the patch baseline.@@ -92,53 +100,63 @@     -> CreatePatchBaseline createPatchBaseline pName_ =   CreatePatchBaseline'-  { _cpbApprovalRules = Nothing-  , _cpbClientToken = Nothing-  , _cpbOperatingSystem = Nothing-  , _cpbGlobalFilters = Nothing-  , _cpbApprovedPatchesComplianceLevel = Nothing-  , _cpbApprovedPatches = Nothing-  , _cpbRejectedPatches = Nothing-  , _cpbDescription = Nothing-  , _cpbName = pName_-  }+    { _cpbApprovalRules = Nothing+    , _cpbClientToken = Nothing+    , _cpbOperatingSystem = Nothing+    , _cpbGlobalFilters = Nothing+    , _cpbApprovedPatchesComplianceLevel = Nothing+    , _cpbApprovedPatches = Nothing+    , _cpbApprovedPatchesEnableNonSecurity = Nothing+    , _cpbRejectedPatches = Nothing+    , _cpbSources = Nothing+    , _cpbDescription = Nothing+    , _cpbName = pName_+    }   -- | A set of rules used to include patches in the baseline. cpbApprovalRules :: Lens' CreatePatchBaseline (Maybe PatchRuleGroup)-cpbApprovalRules = lens _cpbApprovalRules (\ s a -> s{_cpbApprovalRules = a});+cpbApprovalRules = lens _cpbApprovalRules (\ s a -> s{_cpbApprovalRules = a})  -- | User-provided idempotency token. cpbClientToken :: Lens' CreatePatchBaseline (Maybe Text)-cpbClientToken = lens _cpbClientToken (\ s a -> s{_cpbClientToken = a});+cpbClientToken = lens _cpbClientToken (\ s a -> s{_cpbClientToken = a}) --- | Defines the operating system the patch baseline applies to. Supported operating systems include WINDOWS, AMAZON_LINUX, UBUNTU and REDHAT_ENTERPRISE_LINUX. The Default value is WINDOWS.+-- | Defines the operating system the patch baseline applies to. The Default value is WINDOWS. cpbOperatingSystem :: Lens' CreatePatchBaseline (Maybe OperatingSystem)-cpbOperatingSystem = lens _cpbOperatingSystem (\ s a -> s{_cpbOperatingSystem = a});+cpbOperatingSystem = lens _cpbOperatingSystem (\ s a -> s{_cpbOperatingSystem = a})  -- | A set of global filters used to exclude patches from the baseline. cpbGlobalFilters :: Lens' CreatePatchBaseline (Maybe PatchFilterGroup)-cpbGlobalFilters = lens _cpbGlobalFilters (\ s a -> s{_cpbGlobalFilters = a});+cpbGlobalFilters = lens _cpbGlobalFilters (\ s a -> s{_cpbGlobalFilters = a}) --- | Defines the compliance level for approved patches. This means that if an approved patch is reported as missing, this is the severity of the compliance violation. Valid compliance severity levels include the following: CRITICAL, HIGH, MEDIUM, LOW, INFORMATIONAL, UNSPECIFIED. The default value is UNSPECIFIED.+-- | Defines the compliance level for approved patches. This means that if an approved patch is reported as missing, this is the severity of the compliance violation. The default value is UNSPECIFIED. cpbApprovedPatchesComplianceLevel :: Lens' CreatePatchBaseline (Maybe PatchComplianceLevel)-cpbApprovedPatchesComplianceLevel = lens _cpbApprovedPatchesComplianceLevel (\ s a -> s{_cpbApprovedPatchesComplianceLevel = a});+cpbApprovedPatchesComplianceLevel = lens _cpbApprovedPatchesComplianceLevel (\ s a -> s{_cpbApprovedPatchesComplianceLevel = a}) --- | A list of explicitly approved patches for the baseline.+-- | A list of explicitly approved patches for the baseline. For information about accepted formats for lists of approved patches and rejected patches, see <http://docs.aws.amazon.com/systems-manager/latest/userguide/patch-manager-approved-rejected-package-name-formats.html Package Name Formats for Approved and Rejected Patch Lists> in the /AWS Systems Manager User Guide/ . cpbApprovedPatches :: Lens' CreatePatchBaseline [Text]-cpbApprovedPatches = lens _cpbApprovedPatches (\ s a -> s{_cpbApprovedPatches = a}) . _Default . _Coerce;+cpbApprovedPatches = lens _cpbApprovedPatches (\ s a -> s{_cpbApprovedPatches = a}) . _Default . _Coerce --- | A list of explicitly rejected patches for the baseline.+-- | Indicates whether the list of approved patches includes non-security updates that should be applied to the instances. The default value is 'false'. Applies to Linux instances only.+cpbApprovedPatchesEnableNonSecurity :: Lens' CreatePatchBaseline (Maybe Bool)+cpbApprovedPatchesEnableNonSecurity = lens _cpbApprovedPatchesEnableNonSecurity (\ s a -> s{_cpbApprovedPatchesEnableNonSecurity = a})++-- | A list of explicitly rejected patches for the baseline. For information about accepted formats for lists of approved patches and rejected patches, see <http://docs.aws.amazon.com/systems-manager/latest/userguide/patch-manager-approved-rejected-package-name-formats.html Package Name Formats for Approved and Rejected Patch Lists> in the /AWS Systems Manager User Guide/ . cpbRejectedPatches :: Lens' CreatePatchBaseline [Text]-cpbRejectedPatches = lens _cpbRejectedPatches (\ s a -> s{_cpbRejectedPatches = a}) . _Default . _Coerce;+cpbRejectedPatches = lens _cpbRejectedPatches (\ s a -> s{_cpbRejectedPatches = a}) . _Default . _Coerce +-- | Information about the patches to use to update the instances, including target operating systems and source repositories. Applies to Linux instances only.+cpbSources :: Lens' CreatePatchBaseline [PatchSource]+cpbSources = lens _cpbSources (\ s a -> s{_cpbSources = a}) . _Default . _Coerce+ -- | A description of the patch baseline. cpbDescription :: Lens' CreatePatchBaseline (Maybe Text)-cpbDescription = lens _cpbDescription (\ s a -> s{_cpbDescription = a});+cpbDescription = lens _cpbDescription (\ s a -> s{_cpbDescription = a})  -- | The name of the patch baseline. cpbName :: Lens' CreatePatchBaseline Text-cpbName = lens _cpbName (\ s a -> s{_cpbName = a});+cpbName = lens _cpbName (\ s a -> s{_cpbName = a})  instance AWSRequest CreatePatchBaseline where         type Rs CreatePatchBaseline =@@ -174,7 +192,10 @@                   ("ApprovedPatchesComplianceLevel" .=) <$>                     _cpbApprovedPatchesComplianceLevel,                   ("ApprovedPatches" .=) <$> _cpbApprovedPatches,+                  ("ApprovedPatchesEnableNonSecurity" .=) <$>+                    _cpbApprovedPatchesEnableNonSecurity,                   ("RejectedPatches" .=) <$> _cpbRejectedPatches,+                  ("Sources" .=) <$> _cpbSources,                   ("Description" .=) <$> _cpbDescription,                   Just ("Name" .= _cpbName)]) @@ -203,15 +224,15 @@     -> CreatePatchBaselineResponse createPatchBaselineResponse pResponseStatus_ =   CreatePatchBaselineResponse'-  {_cpbrsBaselineId = Nothing, _cpbrsResponseStatus = pResponseStatus_}+    {_cpbrsBaselineId = Nothing, _cpbrsResponseStatus = pResponseStatus_}   -- | The ID of the created patch baseline. cpbrsBaselineId :: Lens' CreatePatchBaselineResponse (Maybe Text)-cpbrsBaselineId = lens _cpbrsBaselineId (\ s a -> s{_cpbrsBaselineId = a});+cpbrsBaselineId = lens _cpbrsBaselineId (\ s a -> s{_cpbrsBaselineId = a})  -- | -- | The response status code. cpbrsResponseStatus :: Lens' CreatePatchBaselineResponse Int-cpbrsResponseStatus = lens _cpbrsResponseStatus (\ s a -> s{_cpbrsResponseStatus = a});+cpbrsResponseStatus = lens _cpbrsResponseStatus (\ s a -> s{_cpbrsResponseStatus = a})  instance NFData CreatePatchBaselineResponse where

@@ -12,13 +12,13 @@  -- | -- Module      : Network.AWS.SSM.CreateResourceDataSync--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Creates a resource data sync configuration to a single bucket in Amazon S3. This is an asynchronous operation that returns immediately. After a successful initial sync is completed, the system continuously syncs data to the Amazon S3 bucket. To check the status of the sync, use the <API_ListResourceDataSync.html ListResourceDataSync> operation.+-- Creates a resource data sync configuration to a single bucket in Amazon S3. This is an asynchronous operation that returns immediately. After a successful initial sync is completed, the system continuously syncs data to the Amazon S3 bucket. To check the status of the sync, use the 'ListResourceDataSync' . -- -- -- By default, data is not encrypted in Amazon S3. We strongly recommend that you enable encryption in Amazon S3 to ensure secure data storage. We also recommend that you secure access to the Amazon S3 bucket by creating a restrictive bucket policy. To view an example of a restrictive Amazon S3 bucket policy for Resource Data Sync, see <http://docs.aws.amazon.com/systems-manager/latest/userguide/sysman-inventory-configuring.html#sysman-inventory-datasync Configuring Resource Data Sync for Inventory> .@@ -66,16 +66,16 @@     -> CreateResourceDataSync createResourceDataSync pSyncName_ pS3Destination_ =   CreateResourceDataSync'-  {_crdsSyncName = pSyncName_, _crdsS3Destination = pS3Destination_}+    {_crdsSyncName = pSyncName_, _crdsS3Destination = pS3Destination_}   -- | A name for the configuration. crdsSyncName :: Lens' CreateResourceDataSync Text-crdsSyncName = lens _crdsSyncName (\ s a -> s{_crdsSyncName = a});+crdsSyncName = lens _crdsSyncName (\ s a -> s{_crdsSyncName = a})  -- | Amazon S3 configuration details for the sync. crdsS3Destination :: Lens' CreateResourceDataSync ResourceDataSyncS3Destination-crdsS3Destination = lens _crdsS3Destination (\ s a -> s{_crdsS3Destination = a});+crdsS3Destination = lens _crdsS3Destination (\ s a -> s{_crdsS3Destination = a})  instance AWSRequest CreateResourceDataSync where         type Rs CreateResourceDataSync =@@ -133,6 +133,6 @@  -- | -- | The response status code. crdsrsResponseStatus :: Lens' CreateResourceDataSyncResponse Int-crdsrsResponseStatus = lens _crdsrsResponseStatus (\ s a -> s{_crdsrsResponseStatus = a});+crdsrsResponseStatus = lens _crdsrsResponseStatus (\ s a -> s{_crdsrsResponseStatus = a})  instance NFData CreateResourceDataSyncResponse where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.SSM.DeleteActivation--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -63,7 +63,7 @@  -- | The ID of the activation that you want to delete. daActivationId :: Lens' DeleteActivation Text-daActivationId = lens _daActivationId (\ s a -> s{_daActivationId = a});+daActivationId = lens _daActivationId (\ s a -> s{_daActivationId = a})  instance AWSRequest DeleteActivation where         type Rs DeleteActivation = DeleteActivationResponse@@ -118,6 +118,6 @@  -- | -- | The response status code. delersResponseStatus :: Lens' DeleteActivationResponse Int-delersResponseStatus = lens _delersResponseStatus (\ s a -> s{_delersResponseStatus = a});+delersResponseStatus = lens _delersResponseStatus (\ s a -> s{_delersResponseStatus = a})  instance NFData DeleteActivationResponse where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.SSM.DeleteAssociation--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -68,20 +68,20 @@     :: DeleteAssociation deleteAssociation =   DeleteAssociation'-  {_daaAssociationId = Nothing, _daaInstanceId = Nothing, _daaName = Nothing}+    {_daaAssociationId = Nothing, _daaInstanceId = Nothing, _daaName = Nothing}   -- | The association ID that you want to delete. daaAssociationId :: Lens' DeleteAssociation (Maybe Text)-daaAssociationId = lens _daaAssociationId (\ s a -> s{_daaAssociationId = a});+daaAssociationId = lens _daaAssociationId (\ s a -> s{_daaAssociationId = a})  -- | The ID of the instance. daaInstanceId :: Lens' DeleteAssociation (Maybe Text)-daaInstanceId = lens _daaInstanceId (\ s a -> s{_daaInstanceId = a});+daaInstanceId = lens _daaInstanceId (\ s a -> s{_daaInstanceId = a})  -- | The name of the Systems Manager document. daaName :: Lens' DeleteAssociation (Maybe Text)-daaName = lens _daaName (\ s a -> s{_daaName = a});+daaName = lens _daaName (\ s a -> s{_daaName = a})  instance AWSRequest DeleteAssociation where         type Rs DeleteAssociation = DeleteAssociationResponse@@ -138,6 +138,6 @@  -- | -- | The response status code. delrsResponseStatus :: Lens' DeleteAssociationResponse Int-delrsResponseStatus = lens _delrsResponseStatus (\ s a -> s{_delrsResponseStatus = a});+delrsResponseStatus = lens _delrsResponseStatus (\ s a -> s{_delrsResponseStatus = a})  instance NFData DeleteAssociationResponse where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.SSM.DeleteDocument--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -64,7 +64,7 @@  -- | The name of the document. dddName :: Lens' DeleteDocument Text-dddName = lens _dddName (\ s a -> s{_dddName = a});+dddName = lens _dddName (\ s a -> s{_dddName = a})  instance AWSRequest DeleteDocument where         type Rs DeleteDocument = DeleteDocumentResponse@@ -117,6 +117,6 @@  -- | -- | The response status code. ddrsResponseStatus :: Lens' DeleteDocumentResponse Int-ddrsResponseStatus = lens _ddrsResponseStatus (\ s a -> s{_ddrsResponseStatus = a});+ddrsResponseStatus = lens _ddrsResponseStatus (\ s a -> s{_ddrsResponseStatus = a})  instance NFData DeleteDocumentResponse where

@@ -0,0 +1,187 @@+{-# 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.SSM.DeleteInventory+-- Copyright   : (c) 2013-2018 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Delete a custom inventory type, or the data associated with a custom Inventory type. Deleting a custom inventory type is also referred to as deleting a custom inventory schema.+--+--+module Network.AWS.SSM.DeleteInventory+    (+    -- * Creating a Request+      deleteInventory+    , DeleteInventory+    -- * Request Lenses+    , diClientToken+    , diSchemaDeleteOption+    , diDryRun+    , diTypeName++    -- * Destructuring the Response+    , deleteInventoryResponse+    , DeleteInventoryResponse+    -- * Response Lenses+    , dirsTypeName+    , dirsDeletionSummary+    , dirsDeletionId+    , dirsResponseStatus+    ) where++import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response+import Network.AWS.SSM.Types+import Network.AWS.SSM.Types.Product++-- | /See:/ 'deleteInventory' smart constructor.+data DeleteInventory = DeleteInventory'+  { _diClientToken        :: !(Maybe Text)+  , _diSchemaDeleteOption :: !(Maybe InventorySchemaDeleteOption)+  , _diDryRun             :: !(Maybe Bool)+  , _diTypeName           :: !Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'DeleteInventory' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'diClientToken' - User-provided idempotency token.+--+-- * 'diSchemaDeleteOption' - Use the @SchemaDeleteOption@ to delete a custom inventory type (schema). If you don't choose this option, the system only deletes existing inventory data associated with the custom inventory type. Choose one of the following options: DisableSchema: If you choose this option, the system ignores all inventory data for the specified version, and any earlier versions. To enable this schema again, you must call the @PutInventory@ action for a version greater than the disbled version. DeleteSchema: This option deletes the specified custom type from the Inventory service. You can recreate the schema later, if you want.+--+-- * 'diDryRun' - Use this option to view a summary of the deletion request without deleting any data or the data type. This option is useful when you only want to understand what will be deleted. Once you validate that the data to be deleted is what you intend to delete, you can run the same command without specifying the @DryRun@ option.+--+-- * 'diTypeName' - The name of the custom inventory type for which you want to delete either all previously collected data, or the inventory type itself.+deleteInventory+    :: Text -- ^ 'diTypeName'+    -> DeleteInventory+deleteInventory pTypeName_ =+  DeleteInventory'+    { _diClientToken = Nothing+    , _diSchemaDeleteOption = Nothing+    , _diDryRun = Nothing+    , _diTypeName = pTypeName_+    }+++-- | User-provided idempotency token.+diClientToken :: Lens' DeleteInventory (Maybe Text)+diClientToken = lens _diClientToken (\ s a -> s{_diClientToken = a})++-- | Use the @SchemaDeleteOption@ to delete a custom inventory type (schema). If you don't choose this option, the system only deletes existing inventory data associated with the custom inventory type. Choose one of the following options: DisableSchema: If you choose this option, the system ignores all inventory data for the specified version, and any earlier versions. To enable this schema again, you must call the @PutInventory@ action for a version greater than the disbled version. DeleteSchema: This option deletes the specified custom type from the Inventory service. You can recreate the schema later, if you want.+diSchemaDeleteOption :: Lens' DeleteInventory (Maybe InventorySchemaDeleteOption)+diSchemaDeleteOption = lens _diSchemaDeleteOption (\ s a -> s{_diSchemaDeleteOption = a})++-- | Use this option to view a summary of the deletion request without deleting any data or the data type. This option is useful when you only want to understand what will be deleted. Once you validate that the data to be deleted is what you intend to delete, you can run the same command without specifying the @DryRun@ option.+diDryRun :: Lens' DeleteInventory (Maybe Bool)+diDryRun = lens _diDryRun (\ s a -> s{_diDryRun = a})++-- | The name of the custom inventory type for which you want to delete either all previously collected data, or the inventory type itself.+diTypeName :: Lens' DeleteInventory Text+diTypeName = lens _diTypeName (\ s a -> s{_diTypeName = a})++instance AWSRequest DeleteInventory where+        type Rs DeleteInventory = DeleteInventoryResponse+        request = postJSON ssm+        response+          = receiveJSON+              (\ s h x ->+                 DeleteInventoryResponse' <$>+                   (x .?> "TypeName") <*> (x .?> "DeletionSummary") <*>+                     (x .?> "DeletionId")+                     <*> (pure (fromEnum s)))++instance Hashable DeleteInventory where++instance NFData DeleteInventory where++instance ToHeaders DeleteInventory where+        toHeaders+          = const+              (mconcat+                 ["X-Amz-Target" =#+                    ("AmazonSSM.DeleteInventory" :: ByteString),+                  "Content-Type" =#+                    ("application/x-amz-json-1.1" :: ByteString)])++instance ToJSON DeleteInventory where+        toJSON DeleteInventory'{..}+          = object+              (catMaybes+                 [("ClientToken" .=) <$> _diClientToken,+                  ("SchemaDeleteOption" .=) <$> _diSchemaDeleteOption,+                  ("DryRun" .=) <$> _diDryRun,+                  Just ("TypeName" .= _diTypeName)])++instance ToPath DeleteInventory where+        toPath = const "/"++instance ToQuery DeleteInventory where+        toQuery = const mempty++-- | /See:/ 'deleteInventoryResponse' smart constructor.+data DeleteInventoryResponse = DeleteInventoryResponse'+  { _dirsTypeName        :: !(Maybe Text)+  , _dirsDeletionSummary :: !(Maybe InventoryDeletionSummary)+  , _dirsDeletionId      :: !(Maybe Text)+  , _dirsResponseStatus  :: !Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'DeleteInventoryResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'dirsTypeName' - The name of the inventory data type specified in the request.+--+-- * 'dirsDeletionSummary' - A summary of the delete operation. For more information about this summary, see <http://docs.aws.amazon.com/systems-manager/latest/userguide/sysman-inventory-delete.html#sysman-inventory-delete-summary Understanding the Delete Inventory Summary> .+--+-- * 'dirsDeletionId' - Every @DeleteInventory@ action is assigned a unique ID. This option returns a unique ID. You can use this ID to query the status of a delete operation. This option is useful for ensuring that a delete operation has completed before you begin other actions.+--+-- * 'dirsResponseStatus' - -- | The response status code.+deleteInventoryResponse+    :: Int -- ^ 'dirsResponseStatus'+    -> DeleteInventoryResponse+deleteInventoryResponse pResponseStatus_ =+  DeleteInventoryResponse'+    { _dirsTypeName = Nothing+    , _dirsDeletionSummary = Nothing+    , _dirsDeletionId = Nothing+    , _dirsResponseStatus = pResponseStatus_+    }+++-- | The name of the inventory data type specified in the request.+dirsTypeName :: Lens' DeleteInventoryResponse (Maybe Text)+dirsTypeName = lens _dirsTypeName (\ s a -> s{_dirsTypeName = a})++-- | A summary of the delete operation. For more information about this summary, see <http://docs.aws.amazon.com/systems-manager/latest/userguide/sysman-inventory-delete.html#sysman-inventory-delete-summary Understanding the Delete Inventory Summary> .+dirsDeletionSummary :: Lens' DeleteInventoryResponse (Maybe InventoryDeletionSummary)+dirsDeletionSummary = lens _dirsDeletionSummary (\ s a -> s{_dirsDeletionSummary = a})++-- | Every @DeleteInventory@ action is assigned a unique ID. This option returns a unique ID. You can use this ID to query the status of a delete operation. This option is useful for ensuring that a delete operation has completed before you begin other actions.+dirsDeletionId :: Lens' DeleteInventoryResponse (Maybe Text)+dirsDeletionId = lens _dirsDeletionId (\ s a -> s{_dirsDeletionId = a})++-- | -- | The response status code.+dirsResponseStatus :: Lens' DeleteInventoryResponse Int+dirsResponseStatus = lens _dirsResponseStatus (\ s a -> s{_dirsResponseStatus = a})++instance NFData DeleteInventoryResponse where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.SSM.DeleteMaintenanceWindow--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -64,7 +64,7 @@  -- | The ID of the Maintenance Window to delete. dmwWindowId :: Lens' DeleteMaintenanceWindow Text-dmwWindowId = lens _dmwWindowId (\ s a -> s{_dmwWindowId = a});+dmwWindowId = lens _dmwWindowId (\ s a -> s{_dmwWindowId = a})  instance AWSRequest DeleteMaintenanceWindow where         type Rs DeleteMaintenanceWindow =@@ -119,15 +119,15 @@     -> DeleteMaintenanceWindowResponse deleteMaintenanceWindowResponse pResponseStatus_ =   DeleteMaintenanceWindowResponse'-  {_dmwrsWindowId = Nothing, _dmwrsResponseStatus = pResponseStatus_}+    {_dmwrsWindowId = Nothing, _dmwrsResponseStatus = pResponseStatus_}   -- | The ID of the deleted Maintenance Window. dmwrsWindowId :: Lens' DeleteMaintenanceWindowResponse (Maybe Text)-dmwrsWindowId = lens _dmwrsWindowId (\ s a -> s{_dmwrsWindowId = a});+dmwrsWindowId = lens _dmwrsWindowId (\ s a -> s{_dmwrsWindowId = a})  -- | -- | The response status code. dmwrsResponseStatus :: Lens' DeleteMaintenanceWindowResponse Int-dmwrsResponseStatus = lens _dmwrsResponseStatus (\ s a -> s{_dmwrsResponseStatus = a});+dmwrsResponseStatus = lens _dmwrsResponseStatus (\ s a -> s{_dmwrsResponseStatus = a})  instance NFData DeleteMaintenanceWindowResponse where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.SSM.DeleteParameter--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -62,7 +62,7 @@  -- | The name of the parameter to delete. delName :: Lens' DeleteParameter Text-delName = lens _delName (\ s a -> s{_delName = a});+delName = lens _delName (\ s a -> s{_delName = a})  instance AWSRequest DeleteParameter where         type Rs DeleteParameter = DeleteParameterResponse@@ -115,6 +115,6 @@  -- | -- | The response status code. dpprsResponseStatus :: Lens' DeleteParameterResponse Int-dpprsResponseStatus = lens _dpprsResponseStatus (\ s a -> s{_dpprsResponseStatus = a});+dpprsResponseStatus = lens _dpprsResponseStatus (\ s a -> s{_dpprsResponseStatus = a})  instance NFData DeleteParameterResponse where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.SSM.DeleteParameters--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -64,7 +64,7 @@  -- | The names of the parameters to delete. dpNames :: Lens' DeleteParameters (NonEmpty Text)-dpNames = lens _dpNames (\ s a -> s{_dpNames = a}) . _List1;+dpNames = lens _dpNames (\ s a -> s{_dpNames = a}) . _List1  instance AWSRequest DeleteParameters where         type Rs DeleteParameters = DeleteParametersResponse@@ -122,22 +122,22 @@     -> DeleteParametersResponse deleteParametersResponse pResponseStatus_ =   DeleteParametersResponse'-  { _drsDeletedParameters = Nothing-  , _drsInvalidParameters = Nothing-  , _drsResponseStatus = pResponseStatus_-  }+    { _drsDeletedParameters = Nothing+    , _drsInvalidParameters = Nothing+    , _drsResponseStatus = pResponseStatus_+    }   -- | The names of the deleted parameters. drsDeletedParameters :: Lens' DeleteParametersResponse (Maybe (NonEmpty Text))-drsDeletedParameters = lens _drsDeletedParameters (\ s a -> s{_drsDeletedParameters = a}) . mapping _List1;+drsDeletedParameters = lens _drsDeletedParameters (\ s a -> s{_drsDeletedParameters = a}) . mapping _List1  -- | The names of parameters that weren't deleted because the parameters are not valid. drsInvalidParameters :: Lens' DeleteParametersResponse (Maybe (NonEmpty Text))-drsInvalidParameters = lens _drsInvalidParameters (\ s a -> s{_drsInvalidParameters = a}) . mapping _List1;+drsInvalidParameters = lens _drsInvalidParameters (\ s a -> s{_drsInvalidParameters = a}) . mapping _List1  -- | -- | The response status code. drsResponseStatus :: Lens' DeleteParametersResponse Int-drsResponseStatus = lens _drsResponseStatus (\ s a -> s{_drsResponseStatus = a});+drsResponseStatus = lens _drsResponseStatus (\ s a -> s{_drsResponseStatus = a})  instance NFData DeleteParametersResponse where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.SSM.DeletePatchBaseline--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -64,7 +64,7 @@  -- | The ID of the patch baseline to delete. dpbBaselineId :: Lens' DeletePatchBaseline Text-dpbBaselineId = lens _dpbBaselineId (\ s a -> s{_dpbBaselineId = a});+dpbBaselineId = lens _dpbBaselineId (\ s a -> s{_dpbBaselineId = a})  instance AWSRequest DeletePatchBaseline where         type Rs DeletePatchBaseline =@@ -119,15 +119,15 @@     -> DeletePatchBaselineResponse deletePatchBaselineResponse pResponseStatus_ =   DeletePatchBaselineResponse'-  {_dpbrsBaselineId = Nothing, _dpbrsResponseStatus = pResponseStatus_}+    {_dpbrsBaselineId = Nothing, _dpbrsResponseStatus = pResponseStatus_}   -- | The ID of the deleted patch baseline. dpbrsBaselineId :: Lens' DeletePatchBaselineResponse (Maybe Text)-dpbrsBaselineId = lens _dpbrsBaselineId (\ s a -> s{_dpbrsBaselineId = a});+dpbrsBaselineId = lens _dpbrsBaselineId (\ s a -> s{_dpbrsBaselineId = a})  -- | -- | The response status code. dpbrsResponseStatus :: Lens' DeletePatchBaselineResponse Int-dpbrsResponseStatus = lens _dpbrsResponseStatus (\ s a -> s{_dpbrsResponseStatus = a});+dpbrsResponseStatus = lens _dpbrsResponseStatus (\ s a -> s{_dpbrsResponseStatus = a})  instance NFData DeletePatchBaselineResponse where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.SSM.DeleteResourceDataSync--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -63,7 +63,7 @@  -- | The name of the configuration to delete. drdsSyncName :: Lens' DeleteResourceDataSync Text-drdsSyncName = lens _drdsSyncName (\ s a -> s{_drdsSyncName = a});+drdsSyncName = lens _drdsSyncName (\ s a -> s{_drdsSyncName = a})  instance AWSRequest DeleteResourceDataSync where         type Rs DeleteResourceDataSync =@@ -119,6 +119,6 @@  -- | -- | The response status code. drdsrsResponseStatus :: Lens' DeleteResourceDataSyncResponse Int-drdsrsResponseStatus = lens _drdsrsResponseStatus (\ s a -> s{_drdsrsResponseStatus = a});+drdsrsResponseStatus = lens _drdsrsResponseStatus (\ s a -> s{_drdsrsResponseStatus = a})  instance NFData DeleteResourceDataSyncResponse where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.SSM.DeregisterManagedInstance--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -63,7 +63,7 @@  -- | The ID assigned to the managed instance when you registered it using the activation process. dmiInstanceId :: Lens' DeregisterManagedInstance Text-dmiInstanceId = lens _dmiInstanceId (\ s a -> s{_dmiInstanceId = a});+dmiInstanceId = lens _dmiInstanceId (\ s a -> s{_dmiInstanceId = a})  instance AWSRequest DeregisterManagedInstance where         type Rs DeregisterManagedInstance =@@ -120,7 +120,7 @@  -- | -- | The response status code. dmirsResponseStatus :: Lens' DeregisterManagedInstanceResponse Int-dmirsResponseStatus = lens _dmirsResponseStatus (\ s a -> s{_dmirsResponseStatus = a});+dmirsResponseStatus = lens _dmirsResponseStatus (\ s a -> s{_dmirsResponseStatus = a})  instance NFData DeregisterManagedInstanceResponse          where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.SSM.DeregisterPatchBaselineForPatchGroup--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -66,16 +66,16 @@     -> DeregisterPatchBaselineForPatchGroup deregisterPatchBaselineForPatchGroup pBaselineId_ pPatchGroup_ =   DeregisterPatchBaselineForPatchGroup'-  {_dpbfpgBaselineId = pBaselineId_, _dpbfpgPatchGroup = pPatchGroup_}+    {_dpbfpgBaselineId = pBaselineId_, _dpbfpgPatchGroup = pPatchGroup_}   -- | The ID of the patch baseline to deregister the patch group from. dpbfpgBaselineId :: Lens' DeregisterPatchBaselineForPatchGroup Text-dpbfpgBaselineId = lens _dpbfpgBaselineId (\ s a -> s{_dpbfpgBaselineId = a});+dpbfpgBaselineId = lens _dpbfpgBaselineId (\ s a -> s{_dpbfpgBaselineId = a})  -- | The name of the patch group that should be deregistered from the patch baseline. dpbfpgPatchGroup :: Lens' DeregisterPatchBaselineForPatchGroup Text-dpbfpgPatchGroup = lens _dpbfpgPatchGroup (\ s a -> s{_dpbfpgPatchGroup = a});+dpbfpgPatchGroup = lens _dpbfpgPatchGroup (\ s a -> s{_dpbfpgPatchGroup = a})  instance AWSRequest            DeregisterPatchBaselineForPatchGroup@@ -147,23 +147,23 @@     -> DeregisterPatchBaselineForPatchGroupResponse deregisterPatchBaselineForPatchGroupResponse pResponseStatus_ =   DeregisterPatchBaselineForPatchGroupResponse'-  { _dpbfpgrsBaselineId = Nothing-  , _dpbfpgrsPatchGroup = Nothing-  , _dpbfpgrsResponseStatus = pResponseStatus_-  }+    { _dpbfpgrsBaselineId = Nothing+    , _dpbfpgrsPatchGroup = Nothing+    , _dpbfpgrsResponseStatus = pResponseStatus_+    }   -- | The ID of the patch baseline the patch group was deregistered from. dpbfpgrsBaselineId :: Lens' DeregisterPatchBaselineForPatchGroupResponse (Maybe Text)-dpbfpgrsBaselineId = lens _dpbfpgrsBaselineId (\ s a -> s{_dpbfpgrsBaselineId = a});+dpbfpgrsBaselineId = lens _dpbfpgrsBaselineId (\ s a -> s{_dpbfpgrsBaselineId = a})  -- | The name of the patch group deregistered from the patch baseline. dpbfpgrsPatchGroup :: Lens' DeregisterPatchBaselineForPatchGroupResponse (Maybe Text)-dpbfpgrsPatchGroup = lens _dpbfpgrsPatchGroup (\ s a -> s{_dpbfpgrsPatchGroup = a});+dpbfpgrsPatchGroup = lens _dpbfpgrsPatchGroup (\ s a -> s{_dpbfpgrsPatchGroup = a})  -- | -- | The response status code. dpbfpgrsResponseStatus :: Lens' DeregisterPatchBaselineForPatchGroupResponse Int-dpbfpgrsResponseStatus = lens _dpbfpgrsResponseStatus (\ s a -> s{_dpbfpgrsResponseStatus = a});+dpbfpgrsResponseStatus = lens _dpbfpgrsResponseStatus (\ s a -> s{_dpbfpgrsResponseStatus = a})  instance NFData            DeregisterPatchBaselineForPatchGroupResponse

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.SSM.DeregisterTargetFromMaintenanceWindow--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -70,23 +70,23 @@     -> DeregisterTargetFromMaintenanceWindow deregisterTargetFromMaintenanceWindow pWindowId_ pWindowTargetId_ =   DeregisterTargetFromMaintenanceWindow'-  { _dtfmwSafe = Nothing-  , _dtfmwWindowId = pWindowId_-  , _dtfmwWindowTargetId = pWindowTargetId_-  }+    { _dtfmwSafe = Nothing+    , _dtfmwWindowId = pWindowId_+    , _dtfmwWindowTargetId = pWindowTargetId_+    }   -- | The system checks if the target is being referenced by a task. If the target is being referenced, the system returns an error and does not deregister the target from the Maintenance Window. dtfmwSafe :: Lens' DeregisterTargetFromMaintenanceWindow (Maybe Bool)-dtfmwSafe = lens _dtfmwSafe (\ s a -> s{_dtfmwSafe = a});+dtfmwSafe = lens _dtfmwSafe (\ s a -> s{_dtfmwSafe = a})  -- | The ID of the Maintenance Window the target should be removed from. dtfmwWindowId :: Lens' DeregisterTargetFromMaintenanceWindow Text-dtfmwWindowId = lens _dtfmwWindowId (\ s a -> s{_dtfmwWindowId = a});+dtfmwWindowId = lens _dtfmwWindowId (\ s a -> s{_dtfmwWindowId = a})  -- | The ID of the target definition to remove. dtfmwWindowTargetId :: Lens' DeregisterTargetFromMaintenanceWindow Text-dtfmwWindowTargetId = lens _dtfmwWindowTargetId (\ s a -> s{_dtfmwWindowTargetId = a});+dtfmwWindowTargetId = lens _dtfmwWindowTargetId (\ s a -> s{_dtfmwWindowTargetId = a})  instance AWSRequest            DeregisterTargetFromMaintenanceWindow@@ -160,23 +160,23 @@     -> DeregisterTargetFromMaintenanceWindowResponse deregisterTargetFromMaintenanceWindowResponse pResponseStatus_ =   DeregisterTargetFromMaintenanceWindowResponse'-  { _dtfmwrsWindowTargetId = Nothing-  , _dtfmwrsWindowId = Nothing-  , _dtfmwrsResponseStatus = pResponseStatus_-  }+    { _dtfmwrsWindowTargetId = Nothing+    , _dtfmwrsWindowId = Nothing+    , _dtfmwrsResponseStatus = pResponseStatus_+    }   -- | The ID of the removed target definition. dtfmwrsWindowTargetId :: Lens' DeregisterTargetFromMaintenanceWindowResponse (Maybe Text)-dtfmwrsWindowTargetId = lens _dtfmwrsWindowTargetId (\ s a -> s{_dtfmwrsWindowTargetId = a});+dtfmwrsWindowTargetId = lens _dtfmwrsWindowTargetId (\ s a -> s{_dtfmwrsWindowTargetId = a})  -- | The ID of the Maintenance Window the target was removed from. dtfmwrsWindowId :: Lens' DeregisterTargetFromMaintenanceWindowResponse (Maybe Text)-dtfmwrsWindowId = lens _dtfmwrsWindowId (\ s a -> s{_dtfmwrsWindowId = a});+dtfmwrsWindowId = lens _dtfmwrsWindowId (\ s a -> s{_dtfmwrsWindowId = a})  -- | -- | The response status code. dtfmwrsResponseStatus :: Lens' DeregisterTargetFromMaintenanceWindowResponse Int-dtfmwrsResponseStatus = lens _dtfmwrsResponseStatus (\ s a -> s{_dtfmwrsResponseStatus = a});+dtfmwrsResponseStatus = lens _dtfmwrsResponseStatus (\ s a -> s{_dtfmwrsResponseStatus = a})  instance NFData            DeregisterTargetFromMaintenanceWindowResponse

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.SSM.DeregisterTaskFromMaintenanceWindow--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -66,16 +66,16 @@     -> DeregisterTaskFromMaintenanceWindow deregisterTaskFromMaintenanceWindow pWindowId_ pWindowTaskId_ =   DeregisterTaskFromMaintenanceWindow'-  {_derWindowId = pWindowId_, _derWindowTaskId = pWindowTaskId_}+    {_derWindowId = pWindowId_, _derWindowTaskId = pWindowTaskId_}   -- | The ID of the Maintenance Window the task should be removed from. derWindowId :: Lens' DeregisterTaskFromMaintenanceWindow Text-derWindowId = lens _derWindowId (\ s a -> s{_derWindowId = a});+derWindowId = lens _derWindowId (\ s a -> s{_derWindowId = a})  -- | The ID of the task to remove from the Maintenance Window. derWindowTaskId :: Lens' DeregisterTaskFromMaintenanceWindow Text-derWindowTaskId = lens _derWindowTaskId (\ s a -> s{_derWindowTaskId = a});+derWindowTaskId = lens _derWindowTaskId (\ s a -> s{_derWindowTaskId = a})  instance AWSRequest            DeregisterTaskFromMaintenanceWindow@@ -146,23 +146,23 @@     -> DeregisterTaskFromMaintenanceWindowResponse deregisterTaskFromMaintenanceWindowResponse pResponseStatus_ =   DeregisterTaskFromMaintenanceWindowResponse'-  { _derrsWindowTaskId = Nothing-  , _derrsWindowId = Nothing-  , _derrsResponseStatus = pResponseStatus_-  }+    { _derrsWindowTaskId = Nothing+    , _derrsWindowId = Nothing+    , _derrsResponseStatus = pResponseStatus_+    }   -- | The ID of the task removed from the Maintenance Window. derrsWindowTaskId :: Lens' DeregisterTaskFromMaintenanceWindowResponse (Maybe Text)-derrsWindowTaskId = lens _derrsWindowTaskId (\ s a -> s{_derrsWindowTaskId = a});+derrsWindowTaskId = lens _derrsWindowTaskId (\ s a -> s{_derrsWindowTaskId = a})  -- | The ID of the Maintenance Window the task was removed from. derrsWindowId :: Lens' DeregisterTaskFromMaintenanceWindowResponse (Maybe Text)-derrsWindowId = lens _derrsWindowId (\ s a -> s{_derrsWindowId = a});+derrsWindowId = lens _derrsWindowId (\ s a -> s{_derrsWindowId = a})  -- | -- | The response status code. derrsResponseStatus :: Lens' DeregisterTaskFromMaintenanceWindowResponse Int-derrsResponseStatus = lens _derrsResponseStatus (\ s a -> s{_derrsResponseStatus = a});+derrsResponseStatus = lens _derrsResponseStatus (\ s a -> s{_derrsResponseStatus = a})  instance NFData            DeregisterTaskFromMaintenanceWindowResponse

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.SSM.DescribeActivations--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -71,20 +71,20 @@     :: DescribeActivations describeActivations =   DescribeActivations'-  {_daFilters = Nothing, _daNextToken = Nothing, _daMaxResults = Nothing}+    {_daFilters = Nothing, _daNextToken = Nothing, _daMaxResults = Nothing}   -- | A filter to view information about your activations. daFilters :: Lens' DescribeActivations [DescribeActivationsFilter]-daFilters = lens _daFilters (\ s a -> s{_daFilters = a}) . _Default . _Coerce;+daFilters = lens _daFilters (\ s a -> s{_daFilters = a}) . _Default . _Coerce  -- | A token to start the list. Use this token to get the next set of results. daNextToken :: Lens' DescribeActivations (Maybe Text)-daNextToken = lens _daNextToken (\ s a -> s{_daNextToken = a});+daNextToken = lens _daNextToken (\ s a -> s{_daNextToken = a})  -- | The maximum number of items to return for this call. The call also returns a token that you can specify in a subsequent call to get the next set of results. daMaxResults :: Lens' DescribeActivations (Maybe Natural)-daMaxResults = lens _daMaxResults (\ s a -> s{_daMaxResults = a}) . mapping _Nat;+daMaxResults = lens _daMaxResults (\ s a -> s{_daMaxResults = a}) . mapping _Nat  instance AWSPager DescribeActivations where         page rq rs@@ -154,22 +154,22 @@     -> DescribeActivationsResponse describeActivationsResponse pResponseStatus_ =   DescribeActivationsResponse'-  { _darsActivationList = Nothing-  , _darsNextToken = Nothing-  , _darsResponseStatus = pResponseStatus_-  }+    { _darsActivationList = Nothing+    , _darsNextToken = Nothing+    , _darsResponseStatus = pResponseStatus_+    }   -- | A list of activations for your AWS account. darsActivationList :: Lens' DescribeActivationsResponse [Activation]-darsActivationList = lens _darsActivationList (\ s a -> s{_darsActivationList = a}) . _Default . _Coerce;+darsActivationList = lens _darsActivationList (\ s a -> s{_darsActivationList = a}) . _Default . _Coerce  -- | The token for the next set of items to return. Use this token to get the next set of results. darsNextToken :: Lens' DescribeActivationsResponse (Maybe Text)-darsNextToken = lens _darsNextToken (\ s a -> s{_darsNextToken = a});+darsNextToken = lens _darsNextToken (\ s a -> s{_darsNextToken = a})  -- | -- | The response status code. darsResponseStatus :: Lens' DescribeActivationsResponse Int-darsResponseStatus = lens _darsResponseStatus (\ s a -> s{_darsResponseStatus = a});+darsResponseStatus = lens _darsResponseStatus (\ s a -> s{_darsResponseStatus = a})  instance NFData DescribeActivationsResponse where

@@ -12,13 +12,13 @@  -- | -- Module      : Network.AWS.SSM.DescribeAssociation--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Describes the associations for the specified Systems Manager document or instance.+-- Describes the association for the specified target or instance. If you created the association by using the @Targets@ parameter, then you must retrieve the association by using the association ID. If you created the association by specifying an instance ID and a Systems Manager document, then you retrieve the association by specifying the document name and the instance ID. -- -- module Network.AWS.SSM.DescribeAssociation@@ -71,28 +71,28 @@     :: DescribeAssociation describeAssociation =   DescribeAssociation'-  { _daAssociationId = Nothing-  , _daInstanceId = Nothing-  , _daName = Nothing-  , _daAssociationVersion = Nothing-  }+    { _daAssociationId = Nothing+    , _daInstanceId = Nothing+    , _daName = Nothing+    , _daAssociationVersion = Nothing+    }   -- | The association ID for which you want information. daAssociationId :: Lens' DescribeAssociation (Maybe Text)-daAssociationId = lens _daAssociationId (\ s a -> s{_daAssociationId = a});+daAssociationId = lens _daAssociationId (\ s a -> s{_daAssociationId = a})  -- | The instance ID. daInstanceId :: Lens' DescribeAssociation (Maybe Text)-daInstanceId = lens _daInstanceId (\ s a -> s{_daInstanceId = a});+daInstanceId = lens _daInstanceId (\ s a -> s{_daInstanceId = a})  -- | The name of the Systems Manager document. daName :: Lens' DescribeAssociation (Maybe Text)-daName = lens _daName (\ s a -> s{_daName = a});+daName = lens _daName (\ s a -> s{_daName = a})  -- | Specify the association version to retrieve. To view the latest version, either specify @> LATEST@ for this parameter, or omit this parameter. To view a list of all associations for an instance, use ListInstanceAssociations. To get a list of versions for a specific association, use ListAssociationVersions. daAssociationVersion :: Lens' DescribeAssociation (Maybe Text)-daAssociationVersion = lens _daAssociationVersion (\ s a -> s{_daAssociationVersion = a});+daAssociationVersion = lens _daAssociationVersion (\ s a -> s{_daAssociationVersion = a})  instance AWSRequest DescribeAssociation where         type Rs DescribeAssociation =@@ -152,17 +152,17 @@     -> DescribeAssociationResponse describeAssociationResponse pResponseStatus_ =   DescribeAssociationResponse'-  { _daarsAssociationDescription = Nothing-  , _daarsResponseStatus = pResponseStatus_-  }+    { _daarsAssociationDescription = Nothing+    , _daarsResponseStatus = pResponseStatus_+    }   -- | Information about the association. daarsAssociationDescription :: Lens' DescribeAssociationResponse (Maybe AssociationDescription)-daarsAssociationDescription = lens _daarsAssociationDescription (\ s a -> s{_daarsAssociationDescription = a});+daarsAssociationDescription = lens _daarsAssociationDescription (\ s a -> s{_daarsAssociationDescription = a})  -- | -- | The response status code. daarsResponseStatus :: Lens' DescribeAssociationResponse Int-daarsResponseStatus = lens _daarsResponseStatus (\ s a -> s{_daarsResponseStatus = a});+daarsResponseStatus = lens _daarsResponseStatus (\ s a -> s{_daarsResponseStatus = a})  instance NFData DescribeAssociationResponse where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.SSM.DescribeAutomationExecutions--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -68,20 +68,20 @@     :: DescribeAutomationExecutions describeAutomationExecutions =   DescribeAutomationExecutions'-  {_daeFilters = Nothing, _daeNextToken = Nothing, _daeMaxResults = Nothing}+    {_daeFilters = Nothing, _daeNextToken = Nothing, _daeMaxResults = Nothing}   -- | Filters used to limit the scope of executions that are requested. daeFilters :: Lens' DescribeAutomationExecutions (Maybe (NonEmpty AutomationExecutionFilter))-daeFilters = lens _daeFilters (\ s a -> s{_daeFilters = a}) . mapping _List1;+daeFilters = lens _daeFilters (\ s a -> s{_daeFilters = a}) . mapping _List1  -- | The token for the next set of items to return. (You received this token from a previous call.) daeNextToken :: Lens' DescribeAutomationExecutions (Maybe Text)-daeNextToken = lens _daeNextToken (\ s a -> s{_daeNextToken = a});+daeNextToken = lens _daeNextToken (\ s a -> s{_daeNextToken = a})  -- | The maximum number of items to return for this call. The call also returns a token that you can specify in a subsequent call to get the next set of results. daeMaxResults :: Lens' DescribeAutomationExecutions (Maybe Natural)-daeMaxResults = lens _daeMaxResults (\ s a -> s{_daeMaxResults = a}) . mapping _Nat;+daeMaxResults = lens _daeMaxResults (\ s a -> s{_daeMaxResults = a}) . mapping _Nat  instance AWSRequest DescribeAutomationExecutions          where@@ -146,23 +146,23 @@     -> DescribeAutomationExecutionsResponse describeAutomationExecutionsResponse pResponseStatus_ =   DescribeAutomationExecutionsResponse'-  { _daersNextToken = Nothing-  , _daersAutomationExecutionMetadataList = Nothing-  , _daersResponseStatus = pResponseStatus_-  }+    { _daersNextToken = Nothing+    , _daersAutomationExecutionMetadataList = Nothing+    , _daersResponseStatus = pResponseStatus_+    }   -- | The token to use when requesting the next set of items. If there are no additional items to return, the string is empty. daersNextToken :: Lens' DescribeAutomationExecutionsResponse (Maybe Text)-daersNextToken = lens _daersNextToken (\ s a -> s{_daersNextToken = a});+daersNextToken = lens _daersNextToken (\ s a -> s{_daersNextToken = a})  -- | The list of details about each automation execution which has occurred which matches the filter specification, if any. daersAutomationExecutionMetadataList :: Lens' DescribeAutomationExecutionsResponse [AutomationExecutionMetadata]-daersAutomationExecutionMetadataList = lens _daersAutomationExecutionMetadataList (\ s a -> s{_daersAutomationExecutionMetadataList = a}) . _Default . _Coerce;+daersAutomationExecutionMetadataList = lens _daersAutomationExecutionMetadataList (\ s a -> s{_daersAutomationExecutionMetadataList = a}) . _Default . _Coerce  -- | -- | The response status code. daersResponseStatus :: Lens' DescribeAutomationExecutionsResponse Int-daersResponseStatus = lens _daersResponseStatus (\ s a -> s{_daersResponseStatus = a});+daersResponseStatus = lens _daersResponseStatus (\ s a -> s{_daersResponseStatus = a})  instance NFData DescribeAutomationExecutionsResponse          where

@@ -0,0 +1,201 @@+{-# 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.SSM.DescribeAutomationStepExecutions+-- Copyright   : (c) 2013-2018 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Information about all active and terminated step executions in an Automation workflow.+--+--+module Network.AWS.SSM.DescribeAutomationStepExecutions+    (+    -- * Creating a Request+      describeAutomationStepExecutions+    , DescribeAutomationStepExecutions+    -- * Request Lenses+    , daseFilters+    , daseReverseOrder+    , daseNextToken+    , daseMaxResults+    , daseAutomationExecutionId++    -- * Destructuring the Response+    , describeAutomationStepExecutionsResponse+    , DescribeAutomationStepExecutionsResponse+    -- * Response Lenses+    , dasersNextToken+    , dasersStepExecutions+    , dasersResponseStatus+    ) where++import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response+import Network.AWS.SSM.Types+import Network.AWS.SSM.Types.Product++-- | /See:/ 'describeAutomationStepExecutions' smart constructor.+data DescribeAutomationStepExecutions = DescribeAutomationStepExecutions'+  { _daseFilters               :: !(Maybe (List1 StepExecutionFilter))+  , _daseReverseOrder          :: !(Maybe Bool)+  , _daseNextToken             :: !(Maybe Text)+  , _daseMaxResults            :: !(Maybe Nat)+  , _daseAutomationExecutionId :: !Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'DescribeAutomationStepExecutions' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'daseFilters' - One or more filters to limit the number of step executions returned by the request.+--+-- * 'daseReverseOrder' - A boolean that indicates whether to list step executions in reverse order by start time. The default value is false.+--+-- * 'daseNextToken' - The token for the next set of items to return. (You received this token from a previous call.)+--+-- * 'daseMaxResults' - The maximum number of items to return for this call. The call also returns a token that you can specify in a subsequent call to get the next set of results.+--+-- * 'daseAutomationExecutionId' - The Automation execution ID for which you want step execution descriptions.+describeAutomationStepExecutions+    :: Text -- ^ 'daseAutomationExecutionId'+    -> DescribeAutomationStepExecutions+describeAutomationStepExecutions pAutomationExecutionId_ =+  DescribeAutomationStepExecutions'+    { _daseFilters = Nothing+    , _daseReverseOrder = Nothing+    , _daseNextToken = Nothing+    , _daseMaxResults = Nothing+    , _daseAutomationExecutionId = pAutomationExecutionId_+    }+++-- | One or more filters to limit the number of step executions returned by the request.+daseFilters :: Lens' DescribeAutomationStepExecutions (Maybe (NonEmpty StepExecutionFilter))+daseFilters = lens _daseFilters (\ s a -> s{_daseFilters = a}) . mapping _List1++-- | A boolean that indicates whether to list step executions in reverse order by start time. The default value is false.+daseReverseOrder :: Lens' DescribeAutomationStepExecutions (Maybe Bool)+daseReverseOrder = lens _daseReverseOrder (\ s a -> s{_daseReverseOrder = a})++-- | The token for the next set of items to return. (You received this token from a previous call.)+daseNextToken :: Lens' DescribeAutomationStepExecutions (Maybe Text)+daseNextToken = lens _daseNextToken (\ s a -> s{_daseNextToken = a})++-- | The maximum number of items to return for this call. The call also returns a token that you can specify in a subsequent call to get the next set of results.+daseMaxResults :: Lens' DescribeAutomationStepExecutions (Maybe Natural)+daseMaxResults = lens _daseMaxResults (\ s a -> s{_daseMaxResults = a}) . mapping _Nat++-- | The Automation execution ID for which you want step execution descriptions.+daseAutomationExecutionId :: Lens' DescribeAutomationStepExecutions Text+daseAutomationExecutionId = lens _daseAutomationExecutionId (\ s a -> s{_daseAutomationExecutionId = a})++instance AWSRequest DescribeAutomationStepExecutions+         where+        type Rs DescribeAutomationStepExecutions =+             DescribeAutomationStepExecutionsResponse+        request = postJSON ssm+        response+          = receiveJSON+              (\ s h x ->+                 DescribeAutomationStepExecutionsResponse' <$>+                   (x .?> "NextToken") <*>+                     (x .?> "StepExecutions" .!@ mempty)+                     <*> (pure (fromEnum s)))++instance Hashable DescribeAutomationStepExecutions+         where++instance NFData DescribeAutomationStepExecutions+         where++instance ToHeaders DescribeAutomationStepExecutions+         where+        toHeaders+          = const+              (mconcat+                 ["X-Amz-Target" =#+                    ("AmazonSSM.DescribeAutomationStepExecutions" ::+                       ByteString),+                  "Content-Type" =#+                    ("application/x-amz-json-1.1" :: ByteString)])++instance ToJSON DescribeAutomationStepExecutions+         where+        toJSON DescribeAutomationStepExecutions'{..}+          = object+              (catMaybes+                 [("Filters" .=) <$> _daseFilters,+                  ("ReverseOrder" .=) <$> _daseReverseOrder,+                  ("NextToken" .=) <$> _daseNextToken,+                  ("MaxResults" .=) <$> _daseMaxResults,+                  Just+                    ("AutomationExecutionId" .=+                       _daseAutomationExecutionId)])++instance ToPath DescribeAutomationStepExecutions+         where+        toPath = const "/"++instance ToQuery DescribeAutomationStepExecutions+         where+        toQuery = const mempty++-- | /See:/ 'describeAutomationStepExecutionsResponse' smart constructor.+data DescribeAutomationStepExecutionsResponse = DescribeAutomationStepExecutionsResponse'+  { _dasersNextToken      :: !(Maybe Text)+  , _dasersStepExecutions :: !(Maybe [StepExecution])+  , _dasersResponseStatus :: !Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'DescribeAutomationStepExecutionsResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'dasersNextToken' - The token to use when requesting the next set of items. If there are no additional items to return, the string is empty.+--+-- * 'dasersStepExecutions' - A list of details about the current state of all steps that make up an execution.+--+-- * 'dasersResponseStatus' - -- | The response status code.+describeAutomationStepExecutionsResponse+    :: Int -- ^ 'dasersResponseStatus'+    -> DescribeAutomationStepExecutionsResponse+describeAutomationStepExecutionsResponse pResponseStatus_ =+  DescribeAutomationStepExecutionsResponse'+    { _dasersNextToken = Nothing+    , _dasersStepExecutions = Nothing+    , _dasersResponseStatus = pResponseStatus_+    }+++-- | The token to use when requesting the next set of items. If there are no additional items to return, the string is empty.+dasersNextToken :: Lens' DescribeAutomationStepExecutionsResponse (Maybe Text)+dasersNextToken = lens _dasersNextToken (\ s a -> s{_dasersNextToken = a})++-- | A list of details about the current state of all steps that make up an execution.+dasersStepExecutions :: Lens' DescribeAutomationStepExecutionsResponse [StepExecution]+dasersStepExecutions = lens _dasersStepExecutions (\ s a -> s{_dasersStepExecutions = a}) . _Default . _Coerce++-- | -- | The response status code.+dasersResponseStatus :: Lens' DescribeAutomationStepExecutionsResponse Int+dasersResponseStatus = lens _dasersResponseStatus (\ s a -> s{_dasersResponseStatus = a})++instance NFData+           DescribeAutomationStepExecutionsResponse+         where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.SSM.DescribeAvailablePatches--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -68,20 +68,20 @@     :: DescribeAvailablePatches describeAvailablePatches =   DescribeAvailablePatches'-  {_dapFilters = Nothing, _dapNextToken = Nothing, _dapMaxResults = Nothing}+    {_dapFilters = Nothing, _dapNextToken = Nothing, _dapMaxResults = Nothing}   -- | Filters used to scope down the returned patches. dapFilters :: Lens' DescribeAvailablePatches [PatchOrchestratorFilter]-dapFilters = lens _dapFilters (\ s a -> s{_dapFilters = a}) . _Default . _Coerce;+dapFilters = lens _dapFilters (\ s a -> s{_dapFilters = a}) . _Default . _Coerce  -- | The token for the next set of items to return. (You received this token from a previous call.) dapNextToken :: Lens' DescribeAvailablePatches (Maybe Text)-dapNextToken = lens _dapNextToken (\ s a -> s{_dapNextToken = a});+dapNextToken = lens _dapNextToken (\ s a -> s{_dapNextToken = a})  -- | The maximum number of patches to return (per page). dapMaxResults :: Lens' DescribeAvailablePatches (Maybe Natural)-dapMaxResults = lens _dapMaxResults (\ s a -> s{_dapMaxResults = a}) . mapping _Nat;+dapMaxResults = lens _dapMaxResults (\ s a -> s{_dapMaxResults = a}) . mapping _Nat  instance AWSRequest DescribeAvailablePatches where         type Rs DescribeAvailablePatches =@@ -143,23 +143,23 @@     -> DescribeAvailablePatchesResponse describeAvailablePatchesResponse pResponseStatus_ =   DescribeAvailablePatchesResponse'-  { _daprsPatches = Nothing-  , _daprsNextToken = Nothing-  , _daprsResponseStatus = pResponseStatus_-  }+    { _daprsPatches = Nothing+    , _daprsNextToken = Nothing+    , _daprsResponseStatus = pResponseStatus_+    }   -- | An array of patches. Each entry in the array is a patch structure. daprsPatches :: Lens' DescribeAvailablePatchesResponse [Patch]-daprsPatches = lens _daprsPatches (\ s a -> s{_daprsPatches = a}) . _Default . _Coerce;+daprsPatches = lens _daprsPatches (\ s a -> s{_daprsPatches = a}) . _Default . _Coerce  -- | The token to use when requesting the next set of items. If there are no additional items to return, the string is empty. daprsNextToken :: Lens' DescribeAvailablePatchesResponse (Maybe Text)-daprsNextToken = lens _daprsNextToken (\ s a -> s{_daprsNextToken = a});+daprsNextToken = lens _daprsNextToken (\ s a -> s{_daprsNextToken = a})  -- | -- | The response status code. daprsResponseStatus :: Lens' DescribeAvailablePatchesResponse Int-daprsResponseStatus = lens _daprsResponseStatus (\ s a -> s{_daprsResponseStatus = a});+daprsResponseStatus = lens _daprsResponseStatus (\ s a -> s{_daprsResponseStatus = a})  instance NFData DescribeAvailablePatchesResponse          where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.SSM.DescribeDocument--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -68,11 +68,11 @@  -- | The document version for which you want information. Can be a specific version or the default version. ddDocumentVersion :: Lens' DescribeDocument (Maybe Text)-ddDocumentVersion = lens _ddDocumentVersion (\ s a -> s{_ddDocumentVersion = a});+ddDocumentVersion = lens _ddDocumentVersion (\ s a -> s{_ddDocumentVersion = a})  -- | The name of the Systems Manager document. ddName :: Lens' DescribeDocument Text-ddName = lens _ddName (\ s a -> s{_ddName = a});+ddName = lens _ddName (\ s a -> s{_ddName = a})  instance AWSRequest DescribeDocument where         type Rs DescribeDocument = DescribeDocumentResponse@@ -128,15 +128,15 @@     -> DescribeDocumentResponse describeDocumentResponse pResponseStatus_ =   DescribeDocumentResponse'-  {_desrsDocument = Nothing, _desrsResponseStatus = pResponseStatus_}+    {_desrsDocument = Nothing, _desrsResponseStatus = pResponseStatus_}   -- | Information about the Systems Manager document. desrsDocument :: Lens' DescribeDocumentResponse (Maybe DocumentDescription)-desrsDocument = lens _desrsDocument (\ s a -> s{_desrsDocument = a});+desrsDocument = lens _desrsDocument (\ s a -> s{_desrsDocument = a})  -- | -- | The response status code. desrsResponseStatus :: Lens' DescribeDocumentResponse Int-desrsResponseStatus = lens _desrsResponseStatus (\ s a -> s{_desrsResponseStatus = a});+desrsResponseStatus = lens _desrsResponseStatus (\ s a -> s{_desrsResponseStatus = a})  instance NFData DescribeDocumentResponse where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.SSM.DescribeDocumentPermission--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -65,16 +65,16 @@     -> DescribeDocumentPermission describeDocumentPermission pName_ pPermissionType_ =   DescribeDocumentPermission'-  {_ddpName = pName_, _ddpPermissionType = pPermissionType_}+    {_ddpName = pName_, _ddpPermissionType = pPermissionType_}   -- | The name of the document for which you are the owner. ddpName :: Lens' DescribeDocumentPermission Text-ddpName = lens _ddpName (\ s a -> s{_ddpName = a});+ddpName = lens _ddpName (\ s a -> s{_ddpName = a})  -- | The permission type for the document. The permission type can be /Share/ . ddpPermissionType :: Lens' DescribeDocumentPermission DocumentPermissionType-ddpPermissionType = lens _ddpPermissionType (\ s a -> s{_ddpPermissionType = a});+ddpPermissionType = lens _ddpPermissionType (\ s a -> s{_ddpPermissionType = a})  instance AWSRequest DescribeDocumentPermission where         type Rs DescribeDocumentPermission =@@ -133,16 +133,16 @@     -> DescribeDocumentPermissionResponse describeDocumentPermissionResponse pResponseStatus_ =   DescribeDocumentPermissionResponse'-  {_ddprsAccountIds = Nothing, _ddprsResponseStatus = pResponseStatus_}+    {_ddprsAccountIds = Nothing, _ddprsResponseStatus = pResponseStatus_}   -- | The account IDs that have permission to use this document. The ID can be either an AWS account or /All/ . ddprsAccountIds :: Lens' DescribeDocumentPermissionResponse [Text]-ddprsAccountIds = lens _ddprsAccountIds (\ s a -> s{_ddprsAccountIds = a}) . _Default . _Coerce;+ddprsAccountIds = lens _ddprsAccountIds (\ s a -> s{_ddprsAccountIds = a}) . _Default . _Coerce  -- | -- | The response status code. ddprsResponseStatus :: Lens' DescribeDocumentPermissionResponse Int-ddprsResponseStatus = lens _ddprsResponseStatus (\ s a -> s{_ddprsResponseStatus = a});+ddprsResponseStatus = lens _ddprsResponseStatus (\ s a -> s{_ddprsResponseStatus = a})  instance NFData DescribeDocumentPermissionResponse          where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.SSM.DescribeEffectiveInstanceAssociations--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -69,23 +69,23 @@     -> DescribeEffectiveInstanceAssociations describeEffectiveInstanceAssociations pInstanceId_ =   DescribeEffectiveInstanceAssociations'-  { _deiaNextToken = Nothing-  , _deiaMaxResults = Nothing-  , _deiaInstanceId = pInstanceId_-  }+    { _deiaNextToken = Nothing+    , _deiaMaxResults = Nothing+    , _deiaInstanceId = pInstanceId_+    }   -- | The token for the next set of items to return. (You received this token from a previous call.) deiaNextToken :: Lens' DescribeEffectiveInstanceAssociations (Maybe Text)-deiaNextToken = lens _deiaNextToken (\ s a -> s{_deiaNextToken = a});+deiaNextToken = lens _deiaNextToken (\ s a -> s{_deiaNextToken = a})  -- | The maximum number of items to return for this call. The call also returns a token that you can specify in a subsequent call to get the next set of results. deiaMaxResults :: Lens' DescribeEffectiveInstanceAssociations (Maybe Natural)-deiaMaxResults = lens _deiaMaxResults (\ s a -> s{_deiaMaxResults = a}) . mapping _Nat;+deiaMaxResults = lens _deiaMaxResults (\ s a -> s{_deiaMaxResults = a}) . mapping _Nat  -- | The instance ID for which you want to view all associations. deiaInstanceId :: Lens' DescribeEffectiveInstanceAssociations Text-deiaInstanceId = lens _deiaInstanceId (\ s a -> s{_deiaInstanceId = a});+deiaInstanceId = lens _deiaInstanceId (\ s a -> s{_deiaInstanceId = a})  instance AWSRequest            DescribeEffectiveInstanceAssociations@@ -160,23 +160,23 @@     -> DescribeEffectiveInstanceAssociationsResponse describeEffectiveInstanceAssociationsResponse pResponseStatus_ =   DescribeEffectiveInstanceAssociationsResponse'-  { _deiarsNextToken = Nothing-  , _deiarsAssociations = Nothing-  , _deiarsResponseStatus = pResponseStatus_-  }+    { _deiarsNextToken = Nothing+    , _deiarsAssociations = Nothing+    , _deiarsResponseStatus = pResponseStatus_+    }   -- | The token to use when requesting the next set of items. If there are no additional items to return, the string is empty. deiarsNextToken :: Lens' DescribeEffectiveInstanceAssociationsResponse (Maybe Text)-deiarsNextToken = lens _deiarsNextToken (\ s a -> s{_deiarsNextToken = a});+deiarsNextToken = lens _deiarsNextToken (\ s a -> s{_deiarsNextToken = a})  -- | The associations for the requested instance. deiarsAssociations :: Lens' DescribeEffectiveInstanceAssociationsResponse [InstanceAssociation]-deiarsAssociations = lens _deiarsAssociations (\ s a -> s{_deiarsAssociations = a}) . _Default . _Coerce;+deiarsAssociations = lens _deiarsAssociations (\ s a -> s{_deiarsAssociations = a}) . _Default . _Coerce  -- | -- | The response status code. deiarsResponseStatus :: Lens' DescribeEffectiveInstanceAssociationsResponse Int-deiarsResponseStatus = lens _deiarsResponseStatus (\ s a -> s{_deiarsResponseStatus = a});+deiarsResponseStatus = lens _deiarsResponseStatus (\ s a -> s{_deiarsResponseStatus = a})  instance NFData            DescribeEffectiveInstanceAssociationsResponse

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.SSM.DescribeEffectivePatchesForPatchBaseline--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -69,23 +69,23 @@     -> DescribeEffectivePatchesForPatchBaseline describeEffectivePatchesForPatchBaseline pBaselineId_ =   DescribeEffectivePatchesForPatchBaseline'-  { _depfpbNextToken = Nothing-  , _depfpbMaxResults = Nothing-  , _depfpbBaselineId = pBaselineId_-  }+    { _depfpbNextToken = Nothing+    , _depfpbMaxResults = Nothing+    , _depfpbBaselineId = pBaselineId_+    }   -- | The token for the next set of items to return. (You received this token from a previous call.) depfpbNextToken :: Lens' DescribeEffectivePatchesForPatchBaseline (Maybe Text)-depfpbNextToken = lens _depfpbNextToken (\ s a -> s{_depfpbNextToken = a});+depfpbNextToken = lens _depfpbNextToken (\ s a -> s{_depfpbNextToken = a})  -- | The maximum number of patches to return (per page). depfpbMaxResults :: Lens' DescribeEffectivePatchesForPatchBaseline (Maybe Natural)-depfpbMaxResults = lens _depfpbMaxResults (\ s a -> s{_depfpbMaxResults = a}) . mapping _Nat;+depfpbMaxResults = lens _depfpbMaxResults (\ s a -> s{_depfpbMaxResults = a}) . mapping _Nat  -- | The ID of the patch baseline to retrieve the effective patches for. depfpbBaselineId :: Lens' DescribeEffectivePatchesForPatchBaseline Text-depfpbBaselineId = lens _depfpbBaselineId (\ s a -> s{_depfpbBaselineId = a});+depfpbBaselineId = lens _depfpbBaselineId (\ s a -> s{_depfpbBaselineId = a})  instance AWSRequest            DescribeEffectivePatchesForPatchBaseline@@ -163,23 +163,23 @@     -> DescribeEffectivePatchesForPatchBaselineResponse describeEffectivePatchesForPatchBaselineResponse pResponseStatus_ =   DescribeEffectivePatchesForPatchBaselineResponse'-  { _depfpbrsEffectivePatches = Nothing-  , _depfpbrsNextToken = Nothing-  , _depfpbrsResponseStatus = pResponseStatus_-  }+    { _depfpbrsEffectivePatches = Nothing+    , _depfpbrsNextToken = Nothing+    , _depfpbrsResponseStatus = pResponseStatus_+    }   -- | An array of patches and patch status. depfpbrsEffectivePatches :: Lens' DescribeEffectivePatchesForPatchBaselineResponse [EffectivePatch]-depfpbrsEffectivePatches = lens _depfpbrsEffectivePatches (\ s a -> s{_depfpbrsEffectivePatches = a}) . _Default . _Coerce;+depfpbrsEffectivePatches = lens _depfpbrsEffectivePatches (\ s a -> s{_depfpbrsEffectivePatches = a}) . _Default . _Coerce  -- | The token to use when requesting the next set of items. If there are no additional items to return, the string is empty. depfpbrsNextToken :: Lens' DescribeEffectivePatchesForPatchBaselineResponse (Maybe Text)-depfpbrsNextToken = lens _depfpbrsNextToken (\ s a -> s{_depfpbrsNextToken = a});+depfpbrsNextToken = lens _depfpbrsNextToken (\ s a -> s{_depfpbrsNextToken = a})  -- | -- | The response status code. depfpbrsResponseStatus :: Lens' DescribeEffectivePatchesForPatchBaselineResponse Int-depfpbrsResponseStatus = lens _depfpbrsResponseStatus (\ s a -> s{_depfpbrsResponseStatus = a});+depfpbrsResponseStatus = lens _depfpbrsResponseStatus (\ s a -> s{_depfpbrsResponseStatus = a})  instance NFData            DescribeEffectivePatchesForPatchBaselineResponse

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.SSM.DescribeInstanceAssociationsStatus--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -69,23 +69,23 @@     -> DescribeInstanceAssociationsStatus describeInstanceAssociationsStatus pInstanceId_ =   DescribeInstanceAssociationsStatus'-  { _diasNextToken = Nothing-  , _diasMaxResults = Nothing-  , _diasInstanceId = pInstanceId_-  }+    { _diasNextToken = Nothing+    , _diasMaxResults = Nothing+    , _diasInstanceId = pInstanceId_+    }   -- | The token for the next set of items to return. (You received this token from a previous call.) diasNextToken :: Lens' DescribeInstanceAssociationsStatus (Maybe Text)-diasNextToken = lens _diasNextToken (\ s a -> s{_diasNextToken = a});+diasNextToken = lens _diasNextToken (\ s a -> s{_diasNextToken = a})  -- | The maximum number of items to return for this call. The call also returns a token that you can specify in a subsequent call to get the next set of results. diasMaxResults :: Lens' DescribeInstanceAssociationsStatus (Maybe Natural)-diasMaxResults = lens _diasMaxResults (\ s a -> s{_diasMaxResults = a}) . mapping _Nat;+diasMaxResults = lens _diasMaxResults (\ s a -> s{_diasMaxResults = a}) . mapping _Nat  -- | The instance IDs for which you want association status information. diasInstanceId :: Lens' DescribeInstanceAssociationsStatus Text-diasInstanceId = lens _diasInstanceId (\ s a -> s{_diasInstanceId = a});+diasInstanceId = lens _diasInstanceId (\ s a -> s{_diasInstanceId = a})  instance AWSRequest            DescribeInstanceAssociationsStatus@@ -157,23 +157,23 @@     -> DescribeInstanceAssociationsStatusResponse describeInstanceAssociationsStatusResponse pResponseStatus_ =   DescribeInstanceAssociationsStatusResponse'-  { _diasrsInstanceAssociationStatusInfos = Nothing-  , _diasrsNextToken = Nothing-  , _diasrsResponseStatus = pResponseStatus_-  }+    { _diasrsInstanceAssociationStatusInfos = Nothing+    , _diasrsNextToken = Nothing+    , _diasrsResponseStatus = pResponseStatus_+    }   -- | Status information about the association. diasrsInstanceAssociationStatusInfos :: Lens' DescribeInstanceAssociationsStatusResponse [InstanceAssociationStatusInfo]-diasrsInstanceAssociationStatusInfos = lens _diasrsInstanceAssociationStatusInfos (\ s a -> s{_diasrsInstanceAssociationStatusInfos = a}) . _Default . _Coerce;+diasrsInstanceAssociationStatusInfos = lens _diasrsInstanceAssociationStatusInfos (\ s a -> s{_diasrsInstanceAssociationStatusInfos = a}) . _Default . _Coerce  -- | The token to use when requesting the next set of items. If there are no additional items to return, the string is empty. diasrsNextToken :: Lens' DescribeInstanceAssociationsStatusResponse (Maybe Text)-diasrsNextToken = lens _diasrsNextToken (\ s a -> s{_diasrsNextToken = a});+diasrsNextToken = lens _diasrsNextToken (\ s a -> s{_diasrsNextToken = a})  -- | -- | The response status code. diasrsResponseStatus :: Lens' DescribeInstanceAssociationsStatusResponse Int-diasrsResponseStatus = lens _diasrsResponseStatus (\ s a -> s{_diasrsResponseStatus = a});+diasrsResponseStatus = lens _diasrsResponseStatus (\ s a -> s{_diasrsResponseStatus = a})  instance NFData            DescribeInstanceAssociationsStatusResponse

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.SSM.DescribeInstanceInformation--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -75,28 +75,28 @@     :: DescribeInstanceInformation describeInstanceInformation =   DescribeInstanceInformation'-  { _diiInstanceInformationFilterList = Nothing-  , _diiFilters = Nothing-  , _diiNextToken = Nothing-  , _diiMaxResults = Nothing-  }+    { _diiInstanceInformationFilterList = Nothing+    , _diiFilters = Nothing+    , _diiNextToken = Nothing+    , _diiMaxResults = Nothing+    }   -- | One or more filters. Use a filter to return a more specific list of instances. diiInstanceInformationFilterList :: Lens' DescribeInstanceInformation [InstanceInformationFilter]-diiInstanceInformationFilterList = lens _diiInstanceInformationFilterList (\ s a -> s{_diiInstanceInformationFilterList = a}) . _Default . _Coerce;+diiInstanceInformationFilterList = lens _diiInstanceInformationFilterList (\ s a -> s{_diiInstanceInformationFilterList = a}) . _Default . _Coerce  -- | One or more filters. Use a filter to return a more specific list of instances. diiFilters :: Lens' DescribeInstanceInformation [InstanceInformationStringFilter]-diiFilters = lens _diiFilters (\ s a -> s{_diiFilters = a}) . _Default . _Coerce;+diiFilters = lens _diiFilters (\ s a -> s{_diiFilters = a}) . _Default . _Coerce  -- | The token for the next set of items to return. (You received this token from a previous call.) diiNextToken :: Lens' DescribeInstanceInformation (Maybe Text)-diiNextToken = lens _diiNextToken (\ s a -> s{_diiNextToken = a});+diiNextToken = lens _diiNextToken (\ s a -> s{_diiNextToken = a})  -- | The maximum number of items to return for this call. The call also returns a token that you can specify in a subsequent call to get the next set of results. diiMaxResults :: Lens' DescribeInstanceInformation (Maybe Natural)-diiMaxResults = lens _diiMaxResults (\ s a -> s{_diiMaxResults = a}) . mapping _Nat;+diiMaxResults = lens _diiMaxResults (\ s a -> s{_diiMaxResults = a}) . mapping _Nat  instance AWSPager DescribeInstanceInformation where         page rq rs@@ -169,23 +169,23 @@     -> DescribeInstanceInformationResponse describeInstanceInformationResponse pResponseStatus_ =   DescribeInstanceInformationResponse'-  { _diirsNextToken = Nothing-  , _diirsInstanceInformationList = Nothing-  , _diirsResponseStatus = pResponseStatus_-  }+    { _diirsNextToken = Nothing+    , _diirsInstanceInformationList = Nothing+    , _diirsResponseStatus = pResponseStatus_+    }   -- | The token to use when requesting the next set of items. If there are no additional items to return, the string is empty. diirsNextToken :: Lens' DescribeInstanceInformationResponse (Maybe Text)-diirsNextToken = lens _diirsNextToken (\ s a -> s{_diirsNextToken = a});+diirsNextToken = lens _diirsNextToken (\ s a -> s{_diirsNextToken = a})  -- | The instance information list. diirsInstanceInformationList :: Lens' DescribeInstanceInformationResponse [InstanceInformation]-diirsInstanceInformationList = lens _diirsInstanceInformationList (\ s a -> s{_diirsInstanceInformationList = a}) . _Default . _Coerce;+diirsInstanceInformationList = lens _diirsInstanceInformationList (\ s a -> s{_diirsInstanceInformationList = a}) . _Default . _Coerce  -- | -- | The response status code. diirsResponseStatus :: Lens' DescribeInstanceInformationResponse Int-diirsResponseStatus = lens _diirsResponseStatus (\ s a -> s{_diirsResponseStatus = a});+diirsResponseStatus = lens _diirsResponseStatus (\ s a -> s{_diirsResponseStatus = a})  instance NFData DescribeInstanceInformationResponse          where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.SSM.DescribeInstancePatchStates--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -68,23 +68,23 @@     :: DescribeInstancePatchStates describeInstancePatchStates =   DescribeInstancePatchStates'-  { _dipsNextToken = Nothing-  , _dipsMaxResults = Nothing-  , _dipsInstanceIds = mempty-  }+    { _dipsNextToken = Nothing+    , _dipsMaxResults = Nothing+    , _dipsInstanceIds = mempty+    }   -- | The token for the next set of items to return. (You received this token from a previous call.) dipsNextToken :: Lens' DescribeInstancePatchStates (Maybe Text)-dipsNextToken = lens _dipsNextToken (\ s a -> s{_dipsNextToken = a});+dipsNextToken = lens _dipsNextToken (\ s a -> s{_dipsNextToken = a})  -- | The maximum number of instances to return (per page). dipsMaxResults :: Lens' DescribeInstancePatchStates (Maybe Natural)-dipsMaxResults = lens _dipsMaxResults (\ s a -> s{_dipsMaxResults = a}) . mapping _Nat;+dipsMaxResults = lens _dipsMaxResults (\ s a -> s{_dipsMaxResults = a}) . mapping _Nat  -- | The ID of the instance whose patch state information should be retrieved. dipsInstanceIds :: Lens' DescribeInstancePatchStates [Text]-dipsInstanceIds = lens _dipsInstanceIds (\ s a -> s{_dipsInstanceIds = a}) . _Coerce;+dipsInstanceIds = lens _dipsInstanceIds (\ s a -> s{_dipsInstanceIds = a}) . _Coerce  instance AWSRequest DescribeInstancePatchStates where         type Rs DescribeInstancePatchStates =@@ -148,23 +148,23 @@     -> DescribeInstancePatchStatesResponse describeInstancePatchStatesResponse pResponseStatus_ =   DescribeInstancePatchStatesResponse'-  { _dipsrsNextToken = Nothing-  , _dipsrsInstancePatchStates = Nothing-  , _dipsrsResponseStatus = pResponseStatus_-  }+    { _dipsrsNextToken = Nothing+    , _dipsrsInstancePatchStates = Nothing+    , _dipsrsResponseStatus = pResponseStatus_+    }   -- | The token to use when requesting the next set of items. If there are no additional items to return, the string is empty. dipsrsNextToken :: Lens' DescribeInstancePatchStatesResponse (Maybe Text)-dipsrsNextToken = lens _dipsrsNextToken (\ s a -> s{_dipsrsNextToken = a});+dipsrsNextToken = lens _dipsrsNextToken (\ s a -> s{_dipsrsNextToken = a})  -- | The high-level patch state for the requested instances. dipsrsInstancePatchStates :: Lens' DescribeInstancePatchStatesResponse [InstancePatchState]-dipsrsInstancePatchStates = lens _dipsrsInstancePatchStates (\ s a -> s{_dipsrsInstancePatchStates = a}) . _Default . _Coerce;+dipsrsInstancePatchStates = lens _dipsrsInstancePatchStates (\ s a -> s{_dipsrsInstancePatchStates = a}) . _Default . _Coerce  -- | -- | The response status code. dipsrsResponseStatus :: Lens' DescribeInstancePatchStatesResponse Int-dipsrsResponseStatus = lens _dipsrsResponseStatus (\ s a -> s{_dipsrsResponseStatus = a});+dipsrsResponseStatus = lens _dipsrsResponseStatus (\ s a -> s{_dipsrsResponseStatus = a})  instance NFData DescribeInstancePatchStatesResponse          where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.SSM.DescribeInstancePatchStatesForPatchGroup--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -73,28 +73,28 @@     -> DescribeInstancePatchStatesForPatchGroup describeInstancePatchStatesForPatchGroup pPatchGroup_ =   DescribeInstancePatchStatesForPatchGroup'-  { _dipsfpgFilters = Nothing-  , _dipsfpgNextToken = Nothing-  , _dipsfpgMaxResults = Nothing-  , _dipsfpgPatchGroup = pPatchGroup_-  }+    { _dipsfpgFilters = Nothing+    , _dipsfpgNextToken = Nothing+    , _dipsfpgMaxResults = Nothing+    , _dipsfpgPatchGroup = pPatchGroup_+    }   -- | Each entry in the array is a structure containing: Key (string between 1 and 200 characters) Values (array containing a single string) Type (string "Equal", "NotEqual", "LessThan", "GreaterThan") dipsfpgFilters :: Lens' DescribeInstancePatchStatesForPatchGroup [InstancePatchStateFilter]-dipsfpgFilters = lens _dipsfpgFilters (\ s a -> s{_dipsfpgFilters = a}) . _Default . _Coerce;+dipsfpgFilters = lens _dipsfpgFilters (\ s a -> s{_dipsfpgFilters = a}) . _Default . _Coerce  -- | The token for the next set of items to return. (You received this token from a previous call.) dipsfpgNextToken :: Lens' DescribeInstancePatchStatesForPatchGroup (Maybe Text)-dipsfpgNextToken = lens _dipsfpgNextToken (\ s a -> s{_dipsfpgNextToken = a});+dipsfpgNextToken = lens _dipsfpgNextToken (\ s a -> s{_dipsfpgNextToken = a})  -- | The maximum number of patches to return (per page). dipsfpgMaxResults :: Lens' DescribeInstancePatchStatesForPatchGroup (Maybe Natural)-dipsfpgMaxResults = lens _dipsfpgMaxResults (\ s a -> s{_dipsfpgMaxResults = a}) . mapping _Nat;+dipsfpgMaxResults = lens _dipsfpgMaxResults (\ s a -> s{_dipsfpgMaxResults = a}) . mapping _Nat  -- | The name of the patch group for which the patch state information should be retrieved. dipsfpgPatchGroup :: Lens' DescribeInstancePatchStatesForPatchGroup Text-dipsfpgPatchGroup = lens _dipsfpgPatchGroup (\ s a -> s{_dipsfpgPatchGroup = a});+dipsfpgPatchGroup = lens _dipsfpgPatchGroup (\ s a -> s{_dipsfpgPatchGroup = a})  instance AWSRequest            DescribeInstancePatchStatesForPatchGroup@@ -172,23 +172,23 @@     -> DescribeInstancePatchStatesForPatchGroupResponse describeInstancePatchStatesForPatchGroupResponse pResponseStatus_ =   DescribeInstancePatchStatesForPatchGroupResponse'-  { _dipsfpgrsNextToken = Nothing-  , _dipsfpgrsInstancePatchStates = Nothing-  , _dipsfpgrsResponseStatus = pResponseStatus_-  }+    { _dipsfpgrsNextToken = Nothing+    , _dipsfpgrsInstancePatchStates = Nothing+    , _dipsfpgrsResponseStatus = pResponseStatus_+    }   -- | The token to use when requesting the next set of items. If there are no additional items to return, the string is empty. dipsfpgrsNextToken :: Lens' DescribeInstancePatchStatesForPatchGroupResponse (Maybe Text)-dipsfpgrsNextToken = lens _dipsfpgrsNextToken (\ s a -> s{_dipsfpgrsNextToken = a});+dipsfpgrsNextToken = lens _dipsfpgrsNextToken (\ s a -> s{_dipsfpgrsNextToken = a})  -- | The high-level patch state for the requested instances. dipsfpgrsInstancePatchStates :: Lens' DescribeInstancePatchStatesForPatchGroupResponse (Maybe (NonEmpty InstancePatchState))-dipsfpgrsInstancePatchStates = lens _dipsfpgrsInstancePatchStates (\ s a -> s{_dipsfpgrsInstancePatchStates = a}) . mapping _List1;+dipsfpgrsInstancePatchStates = lens _dipsfpgrsInstancePatchStates (\ s a -> s{_dipsfpgrsInstancePatchStates = a}) . mapping _List1  -- | -- | The response status code. dipsfpgrsResponseStatus :: Lens' DescribeInstancePatchStatesForPatchGroupResponse Int-dipsfpgrsResponseStatus = lens _dipsfpgrsResponseStatus (\ s a -> s{_dipsfpgrsResponseStatus = a});+dipsfpgrsResponseStatus = lens _dipsfpgrsResponseStatus (\ s a -> s{_dipsfpgrsResponseStatus = a})  instance NFData            DescribeInstancePatchStatesForPatchGroupResponse

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.SSM.DescribeInstancePatches--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -73,28 +73,28 @@     -> DescribeInstancePatches describeInstancePatches pInstanceId_ =   DescribeInstancePatches'-  { _dipFilters = Nothing-  , _dipNextToken = Nothing-  , _dipMaxResults = Nothing-  , _dipInstanceId = pInstanceId_-  }+    { _dipFilters = Nothing+    , _dipNextToken = Nothing+    , _dipMaxResults = Nothing+    , _dipInstanceId = pInstanceId_+    }   -- | Each entry in the array is a structure containing: Key (string, between 1 and 128 characters) Values (array of strings, each string between 1 and 256 characters) dipFilters :: Lens' DescribeInstancePatches [PatchOrchestratorFilter]-dipFilters = lens _dipFilters (\ s a -> s{_dipFilters = a}) . _Default . _Coerce;+dipFilters = lens _dipFilters (\ s a -> s{_dipFilters = a}) . _Default . _Coerce  -- | The token for the next set of items to return. (You received this token from a previous call.) dipNextToken :: Lens' DescribeInstancePatches (Maybe Text)-dipNextToken = lens _dipNextToken (\ s a -> s{_dipNextToken = a});+dipNextToken = lens _dipNextToken (\ s a -> s{_dipNextToken = a})  -- | The maximum number of patches to return (per page). dipMaxResults :: Lens' DescribeInstancePatches (Maybe Natural)-dipMaxResults = lens _dipMaxResults (\ s a -> s{_dipMaxResults = a}) . mapping _Nat;+dipMaxResults = lens _dipMaxResults (\ s a -> s{_dipMaxResults = a}) . mapping _Nat  -- | The ID of the instance whose patch state information should be retrieved. dipInstanceId :: Lens' DescribeInstancePatches Text-dipInstanceId = lens _dipInstanceId (\ s a -> s{_dipInstanceId = a});+dipInstanceId = lens _dipInstanceId (\ s a -> s{_dipInstanceId = a})  instance AWSRequest DescribeInstancePatches where         type Rs DescribeInstancePatches =@@ -157,22 +157,22 @@     -> DescribeInstancePatchesResponse describeInstancePatchesResponse pResponseStatus_ =   DescribeInstancePatchesResponse'-  { _diprsPatches = Nothing-  , _diprsNextToken = Nothing-  , _diprsResponseStatus = pResponseStatus_-  }+    { _diprsPatches = Nothing+    , _diprsNextToken = Nothing+    , _diprsResponseStatus = pResponseStatus_+    }   -- | Each entry in the array is a structure containing: Title (string) KBId (string) Classification (string) Severity (string) State (string: "INSTALLED", "INSTALLED OTHER", "MISSING", "NOT APPLICABLE", "FAILED") InstalledTime (DateTime) InstalledBy (string) diprsPatches :: Lens' DescribeInstancePatchesResponse [PatchComplianceData]-diprsPatches = lens _diprsPatches (\ s a -> s{_diprsPatches = a}) . _Default . _Coerce;+diprsPatches = lens _diprsPatches (\ s a -> s{_diprsPatches = a}) . _Default . _Coerce  -- | The token to use when requesting the next set of items. If there are no additional items to return, the string is empty. diprsNextToken :: Lens' DescribeInstancePatchesResponse (Maybe Text)-diprsNextToken = lens _diprsNextToken (\ s a -> s{_diprsNextToken = a});+diprsNextToken = lens _diprsNextToken (\ s a -> s{_diprsNextToken = a})  -- | -- | The response status code. diprsResponseStatus :: Lens' DescribeInstancePatchesResponse Int-diprsResponseStatus = lens _diprsResponseStatus (\ s a -> s{_diprsResponseStatus = a});+diprsResponseStatus = lens _diprsResponseStatus (\ s a -> s{_diprsResponseStatus = a})  instance NFData DescribeInstancePatchesResponse where

@@ -0,0 +1,170 @@+{-# 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.SSM.DescribeInventoryDeletions+-- Copyright   : (c) 2013-2018 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Describes a specific delete inventory operation.+--+--+module Network.AWS.SSM.DescribeInventoryDeletions+    (+    -- * Creating a Request+      describeInventoryDeletions+    , DescribeInventoryDeletions+    -- * Request Lenses+    , didNextToken+    , didMaxResults+    , didDeletionId++    -- * Destructuring the Response+    , describeInventoryDeletionsResponse+    , DescribeInventoryDeletionsResponse+    -- * Response Lenses+    , didrsInventoryDeletions+    , didrsNextToken+    , didrsResponseStatus+    ) where++import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response+import Network.AWS.SSM.Types+import Network.AWS.SSM.Types.Product++-- | /See:/ 'describeInventoryDeletions' smart constructor.+data DescribeInventoryDeletions = DescribeInventoryDeletions'+  { _didNextToken  :: !(Maybe Text)+  , _didMaxResults :: !(Maybe Nat)+  , _didDeletionId :: !(Maybe Text)+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'DescribeInventoryDeletions' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'didNextToken' - A token to start the list. Use this token to get the next set of results.+--+-- * 'didMaxResults' - The maximum number of items to return for this call. The call also returns a token that you can specify in a subsequent call to get the next set of results.+--+-- * 'didDeletionId' - Specify the delete inventory ID for which you want information. This ID was returned by the @DeleteInventory@ action.+describeInventoryDeletions+    :: DescribeInventoryDeletions+describeInventoryDeletions =+  DescribeInventoryDeletions'+    { _didNextToken = Nothing+    , _didMaxResults = Nothing+    , _didDeletionId = Nothing+    }+++-- | A token to start the list. Use this token to get the next set of results.+didNextToken :: Lens' DescribeInventoryDeletions (Maybe Text)+didNextToken = lens _didNextToken (\ s a -> s{_didNextToken = a})++-- | The maximum number of items to return for this call. The call also returns a token that you can specify in a subsequent call to get the next set of results.+didMaxResults :: Lens' DescribeInventoryDeletions (Maybe Natural)+didMaxResults = lens _didMaxResults (\ s a -> s{_didMaxResults = a}) . mapping _Nat++-- | Specify the delete inventory ID for which you want information. This ID was returned by the @DeleteInventory@ action.+didDeletionId :: Lens' DescribeInventoryDeletions (Maybe Text)+didDeletionId = lens _didDeletionId (\ s a -> s{_didDeletionId = a})++instance AWSRequest DescribeInventoryDeletions where+        type Rs DescribeInventoryDeletions =+             DescribeInventoryDeletionsResponse+        request = postJSON ssm+        response+          = receiveJSON+              (\ s h x ->+                 DescribeInventoryDeletionsResponse' <$>+                   (x .?> "InventoryDeletions" .!@ mempty) <*>+                     (x .?> "NextToken")+                     <*> (pure (fromEnum s)))++instance Hashable DescribeInventoryDeletions where++instance NFData DescribeInventoryDeletions where++instance ToHeaders DescribeInventoryDeletions where+        toHeaders+          = const+              (mconcat+                 ["X-Amz-Target" =#+                    ("AmazonSSM.DescribeInventoryDeletions" ::+                       ByteString),+                  "Content-Type" =#+                    ("application/x-amz-json-1.1" :: ByteString)])++instance ToJSON DescribeInventoryDeletions where+        toJSON DescribeInventoryDeletions'{..}+          = object+              (catMaybes+                 [("NextToken" .=) <$> _didNextToken,+                  ("MaxResults" .=) <$> _didMaxResults,+                  ("DeletionId" .=) <$> _didDeletionId])++instance ToPath DescribeInventoryDeletions where+        toPath = const "/"++instance ToQuery DescribeInventoryDeletions where+        toQuery = const mempty++-- | /See:/ 'describeInventoryDeletionsResponse' smart constructor.+data DescribeInventoryDeletionsResponse = DescribeInventoryDeletionsResponse'+  { _didrsInventoryDeletions :: !(Maybe [InventoryDeletionStatusItem])+  , _didrsNextToken          :: !(Maybe Text)+  , _didrsResponseStatus     :: !Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'DescribeInventoryDeletionsResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'didrsInventoryDeletions' - A list of status items for deleted inventory.+--+-- * 'didrsNextToken' - The token for the next set of items to return. Use this token to get the next set of results.+--+-- * 'didrsResponseStatus' - -- | The response status code.+describeInventoryDeletionsResponse+    :: Int -- ^ 'didrsResponseStatus'+    -> DescribeInventoryDeletionsResponse+describeInventoryDeletionsResponse pResponseStatus_ =+  DescribeInventoryDeletionsResponse'+    { _didrsInventoryDeletions = Nothing+    , _didrsNextToken = Nothing+    , _didrsResponseStatus = pResponseStatus_+    }+++-- | A list of status items for deleted inventory.+didrsInventoryDeletions :: Lens' DescribeInventoryDeletionsResponse [InventoryDeletionStatusItem]+didrsInventoryDeletions = lens _didrsInventoryDeletions (\ s a -> s{_didrsInventoryDeletions = a}) . _Default . _Coerce++-- | The token for the next set of items to return. Use this token to get the next set of results.+didrsNextToken :: Lens' DescribeInventoryDeletionsResponse (Maybe Text)+didrsNextToken = lens _didrsNextToken (\ s a -> s{_didrsNextToken = a})++-- | -- | The response status code.+didrsResponseStatus :: Lens' DescribeInventoryDeletionsResponse Int+didrsResponseStatus = lens _didrsResponseStatus (\ s a -> s{_didrsResponseStatus = a})++instance NFData DescribeInventoryDeletionsResponse+         where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.SSM.DescribeMaintenanceWindowExecutionTaskInvocations--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -78,33 +78,33 @@     -> DescribeMaintenanceWindowExecutionTaskInvocations describeMaintenanceWindowExecutionTaskInvocations pWindowExecutionId_ pTaskId_ =   DescribeMaintenanceWindowExecutionTaskInvocations'-  { _dmwetiFilters = Nothing-  , _dmwetiNextToken = Nothing-  , _dmwetiMaxResults = Nothing-  , _dmwetiWindowExecutionId = pWindowExecutionId_-  , _dmwetiTaskId = pTaskId_-  }+    { _dmwetiFilters = Nothing+    , _dmwetiNextToken = Nothing+    , _dmwetiMaxResults = Nothing+    , _dmwetiWindowExecutionId = pWindowExecutionId_+    , _dmwetiTaskId = pTaskId_+    }   -- | Optional filters used to scope down the returned task invocations. The supported filter key is STATUS with the corresponding values PENDING, IN_PROGRESS, SUCCESS, FAILED, TIMED_OUT, CANCELLING, and CANCELLED. dmwetiFilters :: Lens' DescribeMaintenanceWindowExecutionTaskInvocations [MaintenanceWindowFilter]-dmwetiFilters = lens _dmwetiFilters (\ s a -> s{_dmwetiFilters = a}) . _Default . _Coerce;+dmwetiFilters = lens _dmwetiFilters (\ s a -> s{_dmwetiFilters = a}) . _Default . _Coerce  -- | The token for the next set of items to return. (You received this token from a previous call.) dmwetiNextToken :: Lens' DescribeMaintenanceWindowExecutionTaskInvocations (Maybe Text)-dmwetiNextToken = lens _dmwetiNextToken (\ s a -> s{_dmwetiNextToken = a});+dmwetiNextToken = lens _dmwetiNextToken (\ s a -> s{_dmwetiNextToken = a})  -- | The maximum number of items to return for this call. The call also returns a token that you can specify in a subsequent call to get the next set of results. dmwetiMaxResults :: Lens' DescribeMaintenanceWindowExecutionTaskInvocations (Maybe Natural)-dmwetiMaxResults = lens _dmwetiMaxResults (\ s a -> s{_dmwetiMaxResults = a}) . mapping _Nat;+dmwetiMaxResults = lens _dmwetiMaxResults (\ s a -> s{_dmwetiMaxResults = a}) . mapping _Nat  -- | The ID of the Maintenance Window execution the task is part of. dmwetiWindowExecutionId :: Lens' DescribeMaintenanceWindowExecutionTaskInvocations Text-dmwetiWindowExecutionId = lens _dmwetiWindowExecutionId (\ s a -> s{_dmwetiWindowExecutionId = a});+dmwetiWindowExecutionId = lens _dmwetiWindowExecutionId (\ s a -> s{_dmwetiWindowExecutionId = a})  -- | The ID of the specific task in the Maintenance Window task that should be retrieved. dmwetiTaskId :: Lens' DescribeMaintenanceWindowExecutionTaskInvocations Text-dmwetiTaskId = lens _dmwetiTaskId (\ s a -> s{_dmwetiTaskId = a});+dmwetiTaskId = lens _dmwetiTaskId (\ s a -> s{_dmwetiTaskId = a})  instance AWSRequest            DescribeMaintenanceWindowExecutionTaskInvocations@@ -190,23 +190,23 @@     -> DescribeMaintenanceWindowExecutionTaskInvocationsResponse describeMaintenanceWindowExecutionTaskInvocationsResponse pResponseStatus_ =   DescribeMaintenanceWindowExecutionTaskInvocationsResponse'-  { _dmwetirsWindowExecutionTaskInvocationIdentities = Nothing-  , _dmwetirsNextToken = Nothing-  , _dmwetirsResponseStatus = pResponseStatus_-  }+    { _dmwetirsWindowExecutionTaskInvocationIdentities = Nothing+    , _dmwetirsNextToken = Nothing+    , _dmwetirsResponseStatus = pResponseStatus_+    }   -- | Information about the task invocation results per invocation. dmwetirsWindowExecutionTaskInvocationIdentities :: Lens' DescribeMaintenanceWindowExecutionTaskInvocationsResponse [MaintenanceWindowExecutionTaskInvocationIdentity]-dmwetirsWindowExecutionTaskInvocationIdentities = lens _dmwetirsWindowExecutionTaskInvocationIdentities (\ s a -> s{_dmwetirsWindowExecutionTaskInvocationIdentities = a}) . _Default . _Coerce;+dmwetirsWindowExecutionTaskInvocationIdentities = lens _dmwetirsWindowExecutionTaskInvocationIdentities (\ s a -> s{_dmwetirsWindowExecutionTaskInvocationIdentities = a}) . _Default . _Coerce  -- | The token to use when requesting the next set of items. If there are no additional items to return, the string is empty. dmwetirsNextToken :: Lens' DescribeMaintenanceWindowExecutionTaskInvocationsResponse (Maybe Text)-dmwetirsNextToken = lens _dmwetirsNextToken (\ s a -> s{_dmwetirsNextToken = a});+dmwetirsNextToken = lens _dmwetirsNextToken (\ s a -> s{_dmwetirsNextToken = a})  -- | -- | The response status code. dmwetirsResponseStatus :: Lens' DescribeMaintenanceWindowExecutionTaskInvocationsResponse Int-dmwetirsResponseStatus = lens _dmwetirsResponseStatus (\ s a -> s{_dmwetirsResponseStatus = a});+dmwetirsResponseStatus = lens _dmwetirsResponseStatus (\ s a -> s{_dmwetirsResponseStatus = a})  instance NFData            DescribeMaintenanceWindowExecutionTaskInvocationsResponse

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.SSM.DescribeMaintenanceWindowExecutionTasks--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -73,28 +73,28 @@     -> DescribeMaintenanceWindowExecutionTasks describeMaintenanceWindowExecutionTasks pWindowExecutionId_ =   DescribeMaintenanceWindowExecutionTasks'-  { _dmwetFilters = Nothing-  , _dmwetNextToken = Nothing-  , _dmwetMaxResults = Nothing-  , _dmwetWindowExecutionId = pWindowExecutionId_-  }+    { _dmwetFilters = Nothing+    , _dmwetNextToken = Nothing+    , _dmwetMaxResults = Nothing+    , _dmwetWindowExecutionId = pWindowExecutionId_+    }   -- | Optional filters used to scope down the returned tasks. The supported filter key is STATUS with the corresponding values PENDING, IN_PROGRESS, SUCCESS, FAILED, TIMED_OUT, CANCELLING, and CANCELLED. dmwetFilters :: Lens' DescribeMaintenanceWindowExecutionTasks [MaintenanceWindowFilter]-dmwetFilters = lens _dmwetFilters (\ s a -> s{_dmwetFilters = a}) . _Default . _Coerce;+dmwetFilters = lens _dmwetFilters (\ s a -> s{_dmwetFilters = a}) . _Default . _Coerce  -- | The token for the next set of items to return. (You received this token from a previous call.) dmwetNextToken :: Lens' DescribeMaintenanceWindowExecutionTasks (Maybe Text)-dmwetNextToken = lens _dmwetNextToken (\ s a -> s{_dmwetNextToken = a});+dmwetNextToken = lens _dmwetNextToken (\ s a -> s{_dmwetNextToken = a})  -- | The maximum number of items to return for this call. The call also returns a token that you can specify in a subsequent call to get the next set of results. dmwetMaxResults :: Lens' DescribeMaintenanceWindowExecutionTasks (Maybe Natural)-dmwetMaxResults = lens _dmwetMaxResults (\ s a -> s{_dmwetMaxResults = a}) . mapping _Nat;+dmwetMaxResults = lens _dmwetMaxResults (\ s a -> s{_dmwetMaxResults = a}) . mapping _Nat  -- | The ID of the Maintenance Window execution whose task executions should be retrieved. dmwetWindowExecutionId :: Lens' DescribeMaintenanceWindowExecutionTasks Text-dmwetWindowExecutionId = lens _dmwetWindowExecutionId (\ s a -> s{_dmwetWindowExecutionId = a});+dmwetWindowExecutionId = lens _dmwetWindowExecutionId (\ s a -> s{_dmwetWindowExecutionId = a})  instance AWSRequest            DescribeMaintenanceWindowExecutionTasks@@ -174,23 +174,23 @@     -> DescribeMaintenanceWindowExecutionTasksResponse describeMaintenanceWindowExecutionTasksResponse pResponseStatus_ =   DescribeMaintenanceWindowExecutionTasksResponse'-  { _dmwetrsNextToken = Nothing-  , _dmwetrsWindowExecutionTaskIdentities = Nothing-  , _dmwetrsResponseStatus = pResponseStatus_-  }+    { _dmwetrsNextToken = Nothing+    , _dmwetrsWindowExecutionTaskIdentities = Nothing+    , _dmwetrsResponseStatus = pResponseStatus_+    }   -- | The token to use when requesting the next set of items. If there are no additional items to return, the string is empty. dmwetrsNextToken :: Lens' DescribeMaintenanceWindowExecutionTasksResponse (Maybe Text)-dmwetrsNextToken = lens _dmwetrsNextToken (\ s a -> s{_dmwetrsNextToken = a});+dmwetrsNextToken = lens _dmwetrsNextToken (\ s a -> s{_dmwetrsNextToken = a})  -- | Information about the task executions. dmwetrsWindowExecutionTaskIdentities :: Lens' DescribeMaintenanceWindowExecutionTasksResponse [MaintenanceWindowExecutionTaskIdentity]-dmwetrsWindowExecutionTaskIdentities = lens _dmwetrsWindowExecutionTaskIdentities (\ s a -> s{_dmwetrsWindowExecutionTaskIdentities = a}) . _Default . _Coerce;+dmwetrsWindowExecutionTaskIdentities = lens _dmwetrsWindowExecutionTaskIdentities (\ s a -> s{_dmwetrsWindowExecutionTaskIdentities = a}) . _Default . _Coerce  -- | -- | The response status code. dmwetrsResponseStatus :: Lens' DescribeMaintenanceWindowExecutionTasksResponse Int-dmwetrsResponseStatus = lens _dmwetrsResponseStatus (\ s a -> s{_dmwetrsResponseStatus = a});+dmwetrsResponseStatus = lens _dmwetrsResponseStatus (\ s a -> s{_dmwetrsResponseStatus = a})  instance NFData            DescribeMaintenanceWindowExecutionTasksResponse

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.SSM.DescribeMaintenanceWindowExecutions--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -73,28 +73,28 @@     -> DescribeMaintenanceWindowExecutions describeMaintenanceWindowExecutions pWindowId_ =   DescribeMaintenanceWindowExecutions'-  { _dmweFilters = Nothing-  , _dmweNextToken = Nothing-  , _dmweMaxResults = Nothing-  , _dmweWindowId = pWindowId_-  }+    { _dmweFilters = Nothing+    , _dmweNextToken = Nothing+    , _dmweMaxResults = Nothing+    , _dmweWindowId = pWindowId_+    }   -- | Each entry in the array is a structure containing: Key (string, between 1 and 128 characters) Values (array of strings, each string is between 1 and 256 characters) The supported Keys are ExecutedBefore and ExecutedAfter with the value being a date/time string such as 2016-11-04T05:00:00Z. dmweFilters :: Lens' DescribeMaintenanceWindowExecutions [MaintenanceWindowFilter]-dmweFilters = lens _dmweFilters (\ s a -> s{_dmweFilters = a}) . _Default . _Coerce;+dmweFilters = lens _dmweFilters (\ s a -> s{_dmweFilters = a}) . _Default . _Coerce  -- | The token for the next set of items to return. (You received this token from a previous call.) dmweNextToken :: Lens' DescribeMaintenanceWindowExecutions (Maybe Text)-dmweNextToken = lens _dmweNextToken (\ s a -> s{_dmweNextToken = a});+dmweNextToken = lens _dmweNextToken (\ s a -> s{_dmweNextToken = a})  -- | The maximum number of items to return for this call. The call also returns a token that you can specify in a subsequent call to get the next set of results. dmweMaxResults :: Lens' DescribeMaintenanceWindowExecutions (Maybe Natural)-dmweMaxResults = lens _dmweMaxResults (\ s a -> s{_dmweMaxResults = a}) . mapping _Nat;+dmweMaxResults = lens _dmweMaxResults (\ s a -> s{_dmweMaxResults = a}) . mapping _Nat  -- | The ID of the Maintenance Window whose executions should be retrieved. dmweWindowId :: Lens' DescribeMaintenanceWindowExecutions Text-dmweWindowId = lens _dmweWindowId (\ s a -> s{_dmweWindowId = a});+dmweWindowId = lens _dmweWindowId (\ s a -> s{_dmweWindowId = a})  instance AWSRequest            DescribeMaintenanceWindowExecutions@@ -168,23 +168,23 @@     -> DescribeMaintenanceWindowExecutionsResponse describeMaintenanceWindowExecutionsResponse pResponseStatus_ =   DescribeMaintenanceWindowExecutionsResponse'-  { _dmwersWindowExecutions = Nothing-  , _dmwersNextToken = Nothing-  , _dmwersResponseStatus = pResponseStatus_-  }+    { _dmwersWindowExecutions = Nothing+    , _dmwersNextToken = Nothing+    , _dmwersResponseStatus = pResponseStatus_+    }   -- | Information about the Maintenance Windows execution. dmwersWindowExecutions :: Lens' DescribeMaintenanceWindowExecutionsResponse [MaintenanceWindowExecution]-dmwersWindowExecutions = lens _dmwersWindowExecutions (\ s a -> s{_dmwersWindowExecutions = a}) . _Default . _Coerce;+dmwersWindowExecutions = lens _dmwersWindowExecutions (\ s a -> s{_dmwersWindowExecutions = a}) . _Default . _Coerce  -- | The token to use when requesting the next set of items. If there are no additional items to return, the string is empty. dmwersNextToken :: Lens' DescribeMaintenanceWindowExecutionsResponse (Maybe Text)-dmwersNextToken = lens _dmwersNextToken (\ s a -> s{_dmwersNextToken = a});+dmwersNextToken = lens _dmwersNextToken (\ s a -> s{_dmwersNextToken = a})  -- | -- | The response status code. dmwersResponseStatus :: Lens' DescribeMaintenanceWindowExecutionsResponse Int-dmwersResponseStatus = lens _dmwersResponseStatus (\ s a -> s{_dmwersResponseStatus = a});+dmwersResponseStatus = lens _dmwersResponseStatus (\ s a -> s{_dmwersResponseStatus = a})  instance NFData            DescribeMaintenanceWindowExecutionsResponse

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.SSM.DescribeMaintenanceWindowTargets--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -73,28 +73,28 @@     -> DescribeMaintenanceWindowTargets describeMaintenanceWindowTargets pWindowId_ =   DescribeMaintenanceWindowTargets'-  { _dmwtFilters = Nothing-  , _dmwtNextToken = Nothing-  , _dmwtMaxResults = Nothing-  , _dmwtWindowId = pWindowId_-  }+    { _dmwtFilters = Nothing+    , _dmwtNextToken = Nothing+    , _dmwtMaxResults = Nothing+    , _dmwtWindowId = pWindowId_+    }   -- | Optional filters that can be used to narrow down the scope of the returned window targets. The supported filter keys are Type, WindowTargetId and OwnerInformation. dmwtFilters :: Lens' DescribeMaintenanceWindowTargets [MaintenanceWindowFilter]-dmwtFilters = lens _dmwtFilters (\ s a -> s{_dmwtFilters = a}) . _Default . _Coerce;+dmwtFilters = lens _dmwtFilters (\ s a -> s{_dmwtFilters = a}) . _Default . _Coerce  -- | The token for the next set of items to return. (You received this token from a previous call.) dmwtNextToken :: Lens' DescribeMaintenanceWindowTargets (Maybe Text)-dmwtNextToken = lens _dmwtNextToken (\ s a -> s{_dmwtNextToken = a});+dmwtNextToken = lens _dmwtNextToken (\ s a -> s{_dmwtNextToken = a})  -- | The maximum number of items to return for this call. The call also returns a token that you can specify in a subsequent call to get the next set of results. dmwtMaxResults :: Lens' DescribeMaintenanceWindowTargets (Maybe Natural)-dmwtMaxResults = lens _dmwtMaxResults (\ s a -> s{_dmwtMaxResults = a}) . mapping _Nat;+dmwtMaxResults = lens _dmwtMaxResults (\ s a -> s{_dmwtMaxResults = a}) . mapping _Nat  -- | The ID of the Maintenance Window whose targets should be retrieved. dmwtWindowId :: Lens' DescribeMaintenanceWindowTargets Text-dmwtWindowId = lens _dmwtWindowId (\ s a -> s{_dmwtWindowId = a});+dmwtWindowId = lens _dmwtWindowId (\ s a -> s{_dmwtWindowId = a})  instance AWSRequest DescribeMaintenanceWindowTargets          where@@ -165,23 +165,23 @@     -> DescribeMaintenanceWindowTargetsResponse describeMaintenanceWindowTargetsResponse pResponseStatus_ =   DescribeMaintenanceWindowTargetsResponse'-  { _dmwtrsNextToken = Nothing-  , _dmwtrsTargets = Nothing-  , _dmwtrsResponseStatus = pResponseStatus_-  }+    { _dmwtrsNextToken = Nothing+    , _dmwtrsTargets = Nothing+    , _dmwtrsResponseStatus = pResponseStatus_+    }   -- | The token to use when requesting the next set of items. If there are no additional items to return, the string is empty. dmwtrsNextToken :: Lens' DescribeMaintenanceWindowTargetsResponse (Maybe Text)-dmwtrsNextToken = lens _dmwtrsNextToken (\ s a -> s{_dmwtrsNextToken = a});+dmwtrsNextToken = lens _dmwtrsNextToken (\ s a -> s{_dmwtrsNextToken = a})  -- | Information about the targets in the Maintenance Window. dmwtrsTargets :: Lens' DescribeMaintenanceWindowTargetsResponse [MaintenanceWindowTarget]-dmwtrsTargets = lens _dmwtrsTargets (\ s a -> s{_dmwtrsTargets = a}) . _Default . _Coerce;+dmwtrsTargets = lens _dmwtrsTargets (\ s a -> s{_dmwtrsTargets = a}) . _Default . _Coerce  -- | -- | The response status code. dmwtrsResponseStatus :: Lens' DescribeMaintenanceWindowTargetsResponse Int-dmwtrsResponseStatus = lens _dmwtrsResponseStatus (\ s a -> s{_dmwtrsResponseStatus = a});+dmwtrsResponseStatus = lens _dmwtrsResponseStatus (\ s a -> s{_dmwtrsResponseStatus = a})  instance NFData            DescribeMaintenanceWindowTargetsResponse

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.SSM.DescribeMaintenanceWindowTasks--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -73,28 +73,28 @@     -> DescribeMaintenanceWindowTasks describeMaintenanceWindowTasks pWindowId_ =   DescribeMaintenanceWindowTasks'-  { _dFilters = Nothing-  , _dNextToken = Nothing-  , _dMaxResults = Nothing-  , _dWindowId = pWindowId_-  }+    { _dFilters = Nothing+    , _dNextToken = Nothing+    , _dMaxResults = Nothing+    , _dWindowId = pWindowId_+    }   -- | Optional filters used to narrow down the scope of the returned tasks. The supported filter keys are WindowTaskId, TaskArn, Priority, and TaskType. dFilters :: Lens' DescribeMaintenanceWindowTasks [MaintenanceWindowFilter]-dFilters = lens _dFilters (\ s a -> s{_dFilters = a}) . _Default . _Coerce;+dFilters = lens _dFilters (\ s a -> s{_dFilters = a}) . _Default . _Coerce  -- | The token for the next set of items to return. (You received this token from a previous call.) dNextToken :: Lens' DescribeMaintenanceWindowTasks (Maybe Text)-dNextToken = lens _dNextToken (\ s a -> s{_dNextToken = a});+dNextToken = lens _dNextToken (\ s a -> s{_dNextToken = a})  -- | The maximum number of items to return for this call. The call also returns a token that you can specify in a subsequent call to get the next set of results. dMaxResults :: Lens' DescribeMaintenanceWindowTasks (Maybe Natural)-dMaxResults = lens _dMaxResults (\ s a -> s{_dMaxResults = a}) . mapping _Nat;+dMaxResults = lens _dMaxResults (\ s a -> s{_dMaxResults = a}) . mapping _Nat  -- | The ID of the Maintenance Window whose tasks should be retrieved. dWindowId :: Lens' DescribeMaintenanceWindowTasks Text-dWindowId = lens _dWindowId (\ s a -> s{_dWindowId = a});+dWindowId = lens _dWindowId (\ s a -> s{_dWindowId = a})  instance AWSRequest DescribeMaintenanceWindowTasks          where@@ -161,23 +161,23 @@     -> DescribeMaintenanceWindowTasksResponse describeMaintenanceWindowTasksResponse pResponseStatus_ =   DescribeMaintenanceWindowTasksResponse'-  { _dmwtsrsTasks = Nothing-  , _dmwtsrsNextToken = Nothing-  , _dmwtsrsResponseStatus = pResponseStatus_-  }+    { _dmwtsrsTasks = Nothing+    , _dmwtsrsNextToken = Nothing+    , _dmwtsrsResponseStatus = pResponseStatus_+    }   -- | Information about the tasks in the Maintenance Window. dmwtsrsTasks :: Lens' DescribeMaintenanceWindowTasksResponse [MaintenanceWindowTask]-dmwtsrsTasks = lens _dmwtsrsTasks (\ s a -> s{_dmwtsrsTasks = a}) . _Default . _Coerce;+dmwtsrsTasks = lens _dmwtsrsTasks (\ s a -> s{_dmwtsrsTasks = a}) . _Default . _Coerce  -- | The token to use when requesting the next set of items. If there are no additional items to return, the string is empty. dmwtsrsNextToken :: Lens' DescribeMaintenanceWindowTasksResponse (Maybe Text)-dmwtsrsNextToken = lens _dmwtsrsNextToken (\ s a -> s{_dmwtsrsNextToken = a});+dmwtsrsNextToken = lens _dmwtsrsNextToken (\ s a -> s{_dmwtsrsNextToken = a})  -- | -- | The response status code. dmwtsrsResponseStatus :: Lens' DescribeMaintenanceWindowTasksResponse Int-dmwtsrsResponseStatus = lens _dmwtsrsResponseStatus (\ s a -> s{_dmwtsrsResponseStatus = a});+dmwtsrsResponseStatus = lens _dmwtsrsResponseStatus (\ s a -> s{_dmwtsrsResponseStatus = a})  instance NFData            DescribeMaintenanceWindowTasksResponse

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.SSM.DescribeMaintenanceWindows--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -68,20 +68,20 @@     :: DescribeMaintenanceWindows describeMaintenanceWindows =   DescribeMaintenanceWindows'-  {_dmwFilters = Nothing, _dmwNextToken = Nothing, _dmwMaxResults = Nothing}+    {_dmwFilters = Nothing, _dmwNextToken = Nothing, _dmwMaxResults = Nothing}   -- | Optional filters used to narrow down the scope of the returned Maintenance Windows. Supported filter keys are Name and Enabled. dmwFilters :: Lens' DescribeMaintenanceWindows [MaintenanceWindowFilter]-dmwFilters = lens _dmwFilters (\ s a -> s{_dmwFilters = a}) . _Default . _Coerce;+dmwFilters = lens _dmwFilters (\ s a -> s{_dmwFilters = a}) . _Default . _Coerce  -- | The token for the next set of items to return. (You received this token from a previous call.) dmwNextToken :: Lens' DescribeMaintenanceWindows (Maybe Text)-dmwNextToken = lens _dmwNextToken (\ s a -> s{_dmwNextToken = a});+dmwNextToken = lens _dmwNextToken (\ s a -> s{_dmwNextToken = a})  -- | The maximum number of items to return for this call. The call also returns a token that you can specify in a subsequent call to get the next set of results. dmwMaxResults :: Lens' DescribeMaintenanceWindows (Maybe Natural)-dmwMaxResults = lens _dmwMaxResults (\ s a -> s{_dmwMaxResults = a}) . mapping _Nat;+dmwMaxResults = lens _dmwMaxResults (\ s a -> s{_dmwMaxResults = a}) . mapping _Nat  instance AWSRequest DescribeMaintenanceWindows where         type Rs DescribeMaintenanceWindows =@@ -145,23 +145,23 @@     -> DescribeMaintenanceWindowsResponse describeMaintenanceWindowsResponse pResponseStatus_ =   DescribeMaintenanceWindowsResponse'-  { _dmwsrsWindowIdentities = Nothing-  , _dmwsrsNextToken = Nothing-  , _dmwsrsResponseStatus = pResponseStatus_-  }+    { _dmwsrsWindowIdentities = Nothing+    , _dmwsrsNextToken = Nothing+    , _dmwsrsResponseStatus = pResponseStatus_+    }   -- | Information about the Maintenance Windows. dmwsrsWindowIdentities :: Lens' DescribeMaintenanceWindowsResponse [MaintenanceWindowIdentity]-dmwsrsWindowIdentities = lens _dmwsrsWindowIdentities (\ s a -> s{_dmwsrsWindowIdentities = a}) . _Default . _Coerce;+dmwsrsWindowIdentities = lens _dmwsrsWindowIdentities (\ s a -> s{_dmwsrsWindowIdentities = a}) . _Default . _Coerce  -- | The token to use when requesting the next set of items. If there are no additional items to return, the string is empty. dmwsrsNextToken :: Lens' DescribeMaintenanceWindowsResponse (Maybe Text)-dmwsrsNextToken = lens _dmwsrsNextToken (\ s a -> s{_dmwsrsNextToken = a});+dmwsrsNextToken = lens _dmwsrsNextToken (\ s a -> s{_dmwsrsNextToken = a})  -- | -- | The response status code. dmwsrsResponseStatus :: Lens' DescribeMaintenanceWindowsResponse Int-dmwsrsResponseStatus = lens _dmwsrsResponseStatus (\ s a -> s{_dmwsrsResponseStatus = a});+dmwsrsResponseStatus = lens _dmwsrsResponseStatus (\ s a -> s{_dmwsrsResponseStatus = a})  instance NFData DescribeMaintenanceWindowsResponse          where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.SSM.DescribeParameters--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -77,28 +77,28 @@     :: DescribeParameters describeParameters =   DescribeParameters'-  { _dpParameterFilters = Nothing-  , _dpFilters = Nothing-  , _dpNextToken = Nothing-  , _dpMaxResults = Nothing-  }+    { _dpParameterFilters = Nothing+    , _dpFilters = Nothing+    , _dpNextToken = Nothing+    , _dpMaxResults = Nothing+    }   -- | Filters to limit the request results. dpParameterFilters :: Lens' DescribeParameters [ParameterStringFilter]-dpParameterFilters = lens _dpParameterFilters (\ s a -> s{_dpParameterFilters = a}) . _Default . _Coerce;+dpParameterFilters = lens _dpParameterFilters (\ s a -> s{_dpParameterFilters = a}) . _Default . _Coerce  -- | One or more filters. Use a filter to return a more specific list of results. dpFilters :: Lens' DescribeParameters [ParametersFilter]-dpFilters = lens _dpFilters (\ s a -> s{_dpFilters = a}) . _Default . _Coerce;+dpFilters = lens _dpFilters (\ s a -> s{_dpFilters = a}) . _Default . _Coerce  -- | The token for the next set of items to return. (You received this token from a previous call.) dpNextToken :: Lens' DescribeParameters (Maybe Text)-dpNextToken = lens _dpNextToken (\ s a -> s{_dpNextToken = a});+dpNextToken = lens _dpNextToken (\ s a -> s{_dpNextToken = a})  -- | The maximum number of items to return for this call. The call also returns a token that you can specify in a subsequent call to get the next set of results. dpMaxResults :: Lens' DescribeParameters (Maybe Natural)-dpMaxResults = lens _dpMaxResults (\ s a -> s{_dpMaxResults = a}) . mapping _Nat;+dpMaxResults = lens _dpMaxResults (\ s a -> s{_dpMaxResults = a}) . mapping _Nat  instance AWSPager DescribeParameters where         page rq rs@@ -169,22 +169,22 @@     -> DescribeParametersResponse describeParametersResponse pResponseStatus_ =   DescribeParametersResponse'-  { _dprsNextToken = Nothing-  , _dprsParameters = Nothing-  , _dprsResponseStatus = pResponseStatus_-  }+    { _dprsNextToken = Nothing+    , _dprsParameters = Nothing+    , _dprsResponseStatus = pResponseStatus_+    }   -- | The token to use when requesting the next set of items. If there are no additional items to return, the string is empty. dprsNextToken :: Lens' DescribeParametersResponse (Maybe Text)-dprsNextToken = lens _dprsNextToken (\ s a -> s{_dprsNextToken = a});+dprsNextToken = lens _dprsNextToken (\ s a -> s{_dprsNextToken = a})  -- | Parameters returned by the request. dprsParameters :: Lens' DescribeParametersResponse [ParameterMetadata]-dprsParameters = lens _dprsParameters (\ s a -> s{_dprsParameters = a}) . _Default . _Coerce;+dprsParameters = lens _dprsParameters (\ s a -> s{_dprsParameters = a}) . _Default . _Coerce  -- | -- | The response status code. dprsResponseStatus :: Lens' DescribeParametersResponse Int-dprsResponseStatus = lens _dprsResponseStatus (\ s a -> s{_dprsResponseStatus = a});+dprsResponseStatus = lens _dprsResponseStatus (\ s a -> s{_dprsResponseStatus = a})  instance NFData DescribeParametersResponse where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.SSM.DescribePatchBaselines--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -68,20 +68,20 @@     :: DescribePatchBaselines describePatchBaselines =   DescribePatchBaselines'-  {_dpbFilters = Nothing, _dpbNextToken = Nothing, _dpbMaxResults = Nothing}+    {_dpbFilters = Nothing, _dpbNextToken = Nothing, _dpbMaxResults = Nothing}   -- | Each element in the array is a structure containing:  Key: (string, "NAME_PREFIX" or "OWNER") Value: (array of strings, exactly 1 entry, between 1 and 255 characters) dpbFilters :: Lens' DescribePatchBaselines [PatchOrchestratorFilter]-dpbFilters = lens _dpbFilters (\ s a -> s{_dpbFilters = a}) . _Default . _Coerce;+dpbFilters = lens _dpbFilters (\ s a -> s{_dpbFilters = a}) . _Default . _Coerce  -- | The token for the next set of items to return. (You received this token from a previous call.) dpbNextToken :: Lens' DescribePatchBaselines (Maybe Text)-dpbNextToken = lens _dpbNextToken (\ s a -> s{_dpbNextToken = a});+dpbNextToken = lens _dpbNextToken (\ s a -> s{_dpbNextToken = a})  -- | The maximum number of patch baselines to return (per page). dpbMaxResults :: Lens' DescribePatchBaselines (Maybe Natural)-dpbMaxResults = lens _dpbMaxResults (\ s a -> s{_dpbMaxResults = a}) . mapping _Nat;+dpbMaxResults = lens _dpbMaxResults (\ s a -> s{_dpbMaxResults = a}) . mapping _Nat  instance AWSRequest DescribePatchBaselines where         type Rs DescribePatchBaselines =@@ -144,22 +144,22 @@     -> DescribePatchBaselinesResponse describePatchBaselinesResponse pResponseStatus_ =   DescribePatchBaselinesResponse'-  { _dpbsrsBaselineIdentities = Nothing-  , _dpbsrsNextToken = Nothing-  , _dpbsrsResponseStatus = pResponseStatus_-  }+    { _dpbsrsBaselineIdentities = Nothing+    , _dpbsrsNextToken = Nothing+    , _dpbsrsResponseStatus = pResponseStatus_+    }   -- | An array of PatchBaselineIdentity elements. dpbsrsBaselineIdentities :: Lens' DescribePatchBaselinesResponse [PatchBaselineIdentity]-dpbsrsBaselineIdentities = lens _dpbsrsBaselineIdentities (\ s a -> s{_dpbsrsBaselineIdentities = a}) . _Default . _Coerce;+dpbsrsBaselineIdentities = lens _dpbsrsBaselineIdentities (\ s a -> s{_dpbsrsBaselineIdentities = a}) . _Default . _Coerce  -- | The token to use when requesting the next set of items. If there are no additional items to return, the string is empty. dpbsrsNextToken :: Lens' DescribePatchBaselinesResponse (Maybe Text)-dpbsrsNextToken = lens _dpbsrsNextToken (\ s a -> s{_dpbsrsNextToken = a});+dpbsrsNextToken = lens _dpbsrsNextToken (\ s a -> s{_dpbsrsNextToken = a})  -- | -- | The response status code. dpbsrsResponseStatus :: Lens' DescribePatchBaselinesResponse Int-dpbsrsResponseStatus = lens _dpbsrsResponseStatus (\ s a -> s{_dpbsrsResponseStatus = a});+dpbsrsResponseStatus = lens _dpbsrsResponseStatus (\ s a -> s{_dpbsrsResponseStatus = a})  instance NFData DescribePatchBaselinesResponse where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.SSM.DescribePatchGroupState--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -69,7 +69,7 @@  -- | The name of the patch group whose patch snapshot should be retrieved. dpgsPatchGroup :: Lens' DescribePatchGroupState Text-dpgsPatchGroup = lens _dpgsPatchGroup (\ s a -> s{_dpgsPatchGroup = a});+dpgsPatchGroup = lens _dpgsPatchGroup (\ s a -> s{_dpgsPatchGroup = a})  instance AWSRequest DescribePatchGroupState where         type Rs DescribePatchGroupState =@@ -145,42 +145,42 @@     -> DescribePatchGroupStateResponse describePatchGroupStateResponse pResponseStatus_ =   DescribePatchGroupStateResponse'-  { _dpgsrsInstancesWithMissingPatches = Nothing-  , _dpgsrsInstancesWithInstalledOtherPatches = Nothing-  , _dpgsrsInstancesWithNotApplicablePatches = Nothing-  , _dpgsrsInstancesWithInstalledPatches = Nothing-  , _dpgsrsInstances = Nothing-  , _dpgsrsInstancesWithFailedPatches = Nothing-  , _dpgsrsResponseStatus = pResponseStatus_-  }+    { _dpgsrsInstancesWithMissingPatches = Nothing+    , _dpgsrsInstancesWithInstalledOtherPatches = Nothing+    , _dpgsrsInstancesWithNotApplicablePatches = Nothing+    , _dpgsrsInstancesWithInstalledPatches = Nothing+    , _dpgsrsInstances = Nothing+    , _dpgsrsInstancesWithFailedPatches = Nothing+    , _dpgsrsResponseStatus = pResponseStatus_+    }   -- | The number of instances with missing patches from the patch baseline. dpgsrsInstancesWithMissingPatches :: Lens' DescribePatchGroupStateResponse (Maybe Int)-dpgsrsInstancesWithMissingPatches = lens _dpgsrsInstancesWithMissingPatches (\ s a -> s{_dpgsrsInstancesWithMissingPatches = a});+dpgsrsInstancesWithMissingPatches = lens _dpgsrsInstancesWithMissingPatches (\ s a -> s{_dpgsrsInstancesWithMissingPatches = a})  -- | The number of instances with patches installed that aren't defined in the patch baseline. dpgsrsInstancesWithInstalledOtherPatches :: Lens' DescribePatchGroupStateResponse (Maybe Int)-dpgsrsInstancesWithInstalledOtherPatches = lens _dpgsrsInstancesWithInstalledOtherPatches (\ s a -> s{_dpgsrsInstancesWithInstalledOtherPatches = a});+dpgsrsInstancesWithInstalledOtherPatches = lens _dpgsrsInstancesWithInstalledOtherPatches (\ s a -> s{_dpgsrsInstancesWithInstalledOtherPatches = a})  -- | The number of instances with patches that aren't applicable. dpgsrsInstancesWithNotApplicablePatches :: Lens' DescribePatchGroupStateResponse (Maybe Int)-dpgsrsInstancesWithNotApplicablePatches = lens _dpgsrsInstancesWithNotApplicablePatches (\ s a -> s{_dpgsrsInstancesWithNotApplicablePatches = a});+dpgsrsInstancesWithNotApplicablePatches = lens _dpgsrsInstancesWithNotApplicablePatches (\ s a -> s{_dpgsrsInstancesWithNotApplicablePatches = a})  -- | The number of instances with installed patches. dpgsrsInstancesWithInstalledPatches :: Lens' DescribePatchGroupStateResponse (Maybe Int)-dpgsrsInstancesWithInstalledPatches = lens _dpgsrsInstancesWithInstalledPatches (\ s a -> s{_dpgsrsInstancesWithInstalledPatches = a});+dpgsrsInstancesWithInstalledPatches = lens _dpgsrsInstancesWithInstalledPatches (\ s a -> s{_dpgsrsInstancesWithInstalledPatches = a})  -- | The number of instances in the patch group. dpgsrsInstances :: Lens' DescribePatchGroupStateResponse (Maybe Int)-dpgsrsInstances = lens _dpgsrsInstances (\ s a -> s{_dpgsrsInstances = a});+dpgsrsInstances = lens _dpgsrsInstances (\ s a -> s{_dpgsrsInstances = a})  -- | The number of instances with patches from the patch baseline that failed to install. dpgsrsInstancesWithFailedPatches :: Lens' DescribePatchGroupStateResponse (Maybe Int)-dpgsrsInstancesWithFailedPatches = lens _dpgsrsInstancesWithFailedPatches (\ s a -> s{_dpgsrsInstancesWithFailedPatches = a});+dpgsrsInstancesWithFailedPatches = lens _dpgsrsInstancesWithFailedPatches (\ s a -> s{_dpgsrsInstancesWithFailedPatches = a})  -- | -- | The response status code. dpgsrsResponseStatus :: Lens' DescribePatchGroupStateResponse Int-dpgsrsResponseStatus = lens _dpgsrsResponseStatus (\ s a -> s{_dpgsrsResponseStatus = a});+dpgsrsResponseStatus = lens _dpgsrsResponseStatus (\ s a -> s{_dpgsrsResponseStatus = a})  instance NFData DescribePatchGroupStateResponse where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.SSM.DescribePatchGroups--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -68,20 +68,20 @@     :: DescribePatchGroups describePatchGroups =   DescribePatchGroups'-  {_dpgFilters = Nothing, _dpgNextToken = Nothing, _dpgMaxResults = Nothing}+    {_dpgFilters = Nothing, _dpgNextToken = Nothing, _dpgMaxResults = Nothing}   -- | One or more filters. Use a filter to return a more specific list of results. dpgFilters :: Lens' DescribePatchGroups [PatchOrchestratorFilter]-dpgFilters = lens _dpgFilters (\ s a -> s{_dpgFilters = a}) . _Default . _Coerce;+dpgFilters = lens _dpgFilters (\ s a -> s{_dpgFilters = a}) . _Default . _Coerce  -- | The token for the next set of items to return. (You received this token from a previous call.) dpgNextToken :: Lens' DescribePatchGroups (Maybe Text)-dpgNextToken = lens _dpgNextToken (\ s a -> s{_dpgNextToken = a});+dpgNextToken = lens _dpgNextToken (\ s a -> s{_dpgNextToken = a})  -- | The maximum number of patch groups to return (per page). dpgMaxResults :: Lens' DescribePatchGroups (Maybe Natural)-dpgMaxResults = lens _dpgMaxResults (\ s a -> s{_dpgMaxResults = a}) . mapping _Nat;+dpgMaxResults = lens _dpgMaxResults (\ s a -> s{_dpgMaxResults = a}) . mapping _Nat  instance AWSRequest DescribePatchGroups where         type Rs DescribePatchGroups =@@ -143,22 +143,22 @@     -> DescribePatchGroupsResponse describePatchGroupsResponse pResponseStatus_ =   DescribePatchGroupsResponse'-  { _dpgrsMappings = Nothing-  , _dpgrsNextToken = Nothing-  , _dpgrsResponseStatus = pResponseStatus_-  }+    { _dpgrsMappings = Nothing+    , _dpgrsNextToken = Nothing+    , _dpgrsResponseStatus = pResponseStatus_+    }   -- | Each entry in the array contains: PatchGroup: string (between 1 and 256 characters, Regex: ^([\p{L}\p{Z}\p{N}_.:/=+\-@]*)$) PatchBaselineIdentity: A PatchBaselineIdentity element. dpgrsMappings :: Lens' DescribePatchGroupsResponse [PatchGroupPatchBaselineMapping]-dpgrsMappings = lens _dpgrsMappings (\ s a -> s{_dpgrsMappings = a}) . _Default . _Coerce;+dpgrsMappings = lens _dpgrsMappings (\ s a -> s{_dpgrsMappings = a}) . _Default . _Coerce  -- | The token to use when requesting the next set of items. If there are no additional items to return, the string is empty. dpgrsNextToken :: Lens' DescribePatchGroupsResponse (Maybe Text)-dpgrsNextToken = lens _dpgrsNextToken (\ s a -> s{_dpgrsNextToken = a});+dpgrsNextToken = lens _dpgrsNextToken (\ s a -> s{_dpgrsNextToken = a})  -- | -- | The response status code. dpgrsResponseStatus :: Lens' DescribePatchGroupsResponse Int-dpgrsResponseStatus = lens _dpgrsResponseStatus (\ s a -> s{_dpgrsResponseStatus = a});+dpgrsResponseStatus = lens _dpgrsResponseStatus (\ s a -> s{_dpgrsResponseStatus = a})  instance NFData DescribePatchGroupsResponse where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.SSM.GetAutomationExecution--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -64,7 +64,7 @@  -- | The unique identifier for an existing automation execution to examine. The execution ID is returned by StartAutomationExecution when the execution of an Automation document is initiated. gaeAutomationExecutionId :: Lens' GetAutomationExecution Text-gaeAutomationExecutionId = lens _gaeAutomationExecutionId (\ s a -> s{_gaeAutomationExecutionId = a});+gaeAutomationExecutionId = lens _gaeAutomationExecutionId (\ s a -> s{_gaeAutomationExecutionId = a})  instance AWSRequest GetAutomationExecution where         type Rs GetAutomationExecution =@@ -123,15 +123,17 @@     -> GetAutomationExecutionResponse getAutomationExecutionResponse pResponseStatus_ =   GetAutomationExecutionResponse'-  {_gaersAutomationExecution = Nothing, _gaersResponseStatus = pResponseStatus_}+    { _gaersAutomationExecution = Nothing+    , _gaersResponseStatus = pResponseStatus_+    }   -- | Detailed information about the current state of an automation execution. gaersAutomationExecution :: Lens' GetAutomationExecutionResponse (Maybe AutomationExecution)-gaersAutomationExecution = lens _gaersAutomationExecution (\ s a -> s{_gaersAutomationExecution = a});+gaersAutomationExecution = lens _gaersAutomationExecution (\ s a -> s{_gaersAutomationExecution = a})  -- | -- | The response status code. gaersResponseStatus :: Lens' GetAutomationExecutionResponse Int-gaersResponseStatus = lens _gaersResponseStatus (\ s a -> s{_gaersResponseStatus = a});+gaersResponseStatus = lens _gaersResponseStatus (\ s a -> s{_gaersResponseStatus = a})  instance NFData GetAutomationExecutionResponse where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.SSM.GetCommandInvocation--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -47,6 +47,7 @@     , gcirsExecutionEndDateTime     , gcirsStandardOutputURL     , gcirsCommandId+    , gcirsDocumentVersion     , gcirsStandardOutputContent     , gcirsComment     , gcirsPluginName@@ -83,23 +84,23 @@     -> GetCommandInvocation getCommandInvocation pCommandId_ pInstanceId_ =   GetCommandInvocation'-  { _gciPluginName = Nothing-  , _gciCommandId = pCommandId_-  , _gciInstanceId = pInstanceId_-  }+    { _gciPluginName = Nothing+    , _gciCommandId = pCommandId_+    , _gciInstanceId = pInstanceId_+    }   -- | (Optional) The name of the plugin for which you want detailed results. If the document contains only one plugin, the name can be omitted and the details will be returned. gciPluginName :: Lens' GetCommandInvocation (Maybe Text)-gciPluginName = lens _gciPluginName (\ s a -> s{_gciPluginName = a});+gciPluginName = lens _gciPluginName (\ s a -> s{_gciPluginName = a})  -- | (Required) The parent command ID of the invocation plugin. gciCommandId :: Lens' GetCommandInvocation Text-gciCommandId = lens _gciCommandId (\ s a -> s{_gciCommandId = a});+gciCommandId = lens _gciCommandId (\ s a -> s{_gciCommandId = a})  -- | (Required) The ID of the managed instance targeted by the command. A managed instance can be an Amazon EC2 instance or an instance in your hybrid environment that is configured for Systems Manager. gciInstanceId :: Lens' GetCommandInvocation Text-gciInstanceId = lens _gciInstanceId (\ s a -> s{_gciInstanceId = a});+gciInstanceId = lens _gciInstanceId (\ s a -> s{_gciInstanceId = a})  instance AWSRequest GetCommandInvocation where         type Rs GetCommandInvocation =@@ -120,6 +121,7 @@                      <*> (x .?> "ExecutionEndDateTime")                      <*> (x .?> "StandardOutputUrl")                      <*> (x .?> "CommandId")+                     <*> (x .?> "DocumentVersion")                      <*> (x .?> "StandardOutputContent")                      <*> (x .?> "Comment")                      <*> (x .?> "PluginName")@@ -166,6 +168,7 @@   , _gcirsExecutionEndDateTime   :: !(Maybe Text)   , _gcirsStandardOutputURL      :: !(Maybe Text)   , _gcirsCommandId              :: !(Maybe Text)+  , _gcirsDocumentVersion        :: !(Maybe Text)   , _gcirsStandardOutputContent  :: !(Maybe Text)   , _gcirsComment                :: !(Maybe Text)   , _gcirsPluginName             :: !(Maybe Text)@@ -179,7 +182,7 @@ -- -- * 'gcirsInstanceId' - The ID of the managed instance targeted by the command. A managed instance can be an Amazon EC2 instance or an instance in your hybrid environment that is configured for Systems Manager. ----- * 'gcirsStatus' - The status of the parent command for this invocation. This status can be different than StatusDetails.+-- * 'gcirsStatus' - The status of this invocation plugin. This status can be different than StatusDetails. -- -- * 'gcirsStandardErrorContent' - The first 8,000 characters written by the plugin to stderr. If the command has not finished executing, then this string is empty. --@@ -201,6 +204,8 @@ -- -- * 'gcirsCommandId' - The parent command ID of the invocation plugin. --+-- * 'gcirsDocumentVersion' - The SSM document version used in the request.+-- -- * 'gcirsStandardOutputContent' - The first 24,000 characters written by the plugin to stdout. If the command has not finished executing, if ExecutionStatus is neither Succeeded nor Failed, then this string is empty. -- -- * 'gcirsComment' - The comment text for the command.@@ -213,87 +218,92 @@     -> GetCommandInvocationResponse getCommandInvocationResponse pResponseStatus_ =   GetCommandInvocationResponse'-  { _gcirsInstanceId = Nothing-  , _gcirsStatus = Nothing-  , _gcirsStandardErrorContent = Nothing-  , _gcirsExecutionElapsedTime = Nothing-  , _gcirsDocumentName = Nothing-  , _gcirsStandardErrorURL = Nothing-  , _gcirsExecutionStartDateTime = Nothing-  , _gcirsResponseCode = Nothing-  , _gcirsStatusDetails = Nothing-  , _gcirsExecutionEndDateTime = Nothing-  , _gcirsStandardOutputURL = Nothing-  , _gcirsCommandId = Nothing-  , _gcirsStandardOutputContent = Nothing-  , _gcirsComment = Nothing-  , _gcirsPluginName = Nothing-  , _gcirsResponseStatus = pResponseStatus_-  }+    { _gcirsInstanceId = Nothing+    , _gcirsStatus = Nothing+    , _gcirsStandardErrorContent = Nothing+    , _gcirsExecutionElapsedTime = Nothing+    , _gcirsDocumentName = Nothing+    , _gcirsStandardErrorURL = Nothing+    , _gcirsExecutionStartDateTime = Nothing+    , _gcirsResponseCode = Nothing+    , _gcirsStatusDetails = Nothing+    , _gcirsExecutionEndDateTime = Nothing+    , _gcirsStandardOutputURL = Nothing+    , _gcirsCommandId = Nothing+    , _gcirsDocumentVersion = Nothing+    , _gcirsStandardOutputContent = Nothing+    , _gcirsComment = Nothing+    , _gcirsPluginName = Nothing+    , _gcirsResponseStatus = pResponseStatus_+    }   -- | The ID of the managed instance targeted by the command. A managed instance can be an Amazon EC2 instance or an instance in your hybrid environment that is configured for Systems Manager. gcirsInstanceId :: Lens' GetCommandInvocationResponse (Maybe Text)-gcirsInstanceId = lens _gcirsInstanceId (\ s a -> s{_gcirsInstanceId = a});+gcirsInstanceId = lens _gcirsInstanceId (\ s a -> s{_gcirsInstanceId = a}) --- | The status of the parent command for this invocation. This status can be different than StatusDetails.+-- | The status of this invocation plugin. This status can be different than StatusDetails. gcirsStatus :: Lens' GetCommandInvocationResponse (Maybe CommandInvocationStatus)-gcirsStatus = lens _gcirsStatus (\ s a -> s{_gcirsStatus = a});+gcirsStatus = lens _gcirsStatus (\ s a -> s{_gcirsStatus = a})  -- | The first 8,000 characters written by the plugin to stderr. If the command has not finished executing, then this string is empty. gcirsStandardErrorContent :: Lens' GetCommandInvocationResponse (Maybe Text)-gcirsStandardErrorContent = lens _gcirsStandardErrorContent (\ s a -> s{_gcirsStandardErrorContent = a});+gcirsStandardErrorContent = lens _gcirsStandardErrorContent (\ s a -> s{_gcirsStandardErrorContent = a})  -- | Duration since ExecutionStartDateTime. gcirsExecutionElapsedTime :: Lens' GetCommandInvocationResponse (Maybe Text)-gcirsExecutionElapsedTime = lens _gcirsExecutionElapsedTime (\ s a -> s{_gcirsExecutionElapsedTime = a});+gcirsExecutionElapsedTime = lens _gcirsExecutionElapsedTime (\ s a -> s{_gcirsExecutionElapsedTime = a})  -- | The name of the document that was executed. For example, AWS-RunShellScript. gcirsDocumentName :: Lens' GetCommandInvocationResponse (Maybe Text)-gcirsDocumentName = lens _gcirsDocumentName (\ s a -> s{_gcirsDocumentName = a});+gcirsDocumentName = lens _gcirsDocumentName (\ s a -> s{_gcirsDocumentName = a})  -- | The URL for the complete text written by the plugin to stderr. If the command has not finished executing, then this string is empty. gcirsStandardErrorURL :: Lens' GetCommandInvocationResponse (Maybe Text)-gcirsStandardErrorURL = lens _gcirsStandardErrorURL (\ s a -> s{_gcirsStandardErrorURL = a});+gcirsStandardErrorURL = lens _gcirsStandardErrorURL (\ s a -> s{_gcirsStandardErrorURL = a})  -- | The date and time the plugin started executing. Date and time are written in ISO 8601 format. For example, June 7, 2017 is represented as 2017-06-7. The following sample AWS CLI command uses the @InvokedBefore@ filter. @aws ssm list-commands --filters key=InvokedBefore,value=2017-06-07T00:00:00Z@  If the plugin has not started to execute, the string is empty. gcirsExecutionStartDateTime :: Lens' GetCommandInvocationResponse (Maybe Text)-gcirsExecutionStartDateTime = lens _gcirsExecutionStartDateTime (\ s a -> s{_gcirsExecutionStartDateTime = a});+gcirsExecutionStartDateTime = lens _gcirsExecutionStartDateTime (\ s a -> s{_gcirsExecutionStartDateTime = a})  -- | The error level response code for the plugin script. If the response code is -1, then the command has not started executing on the instance, or it was not received by the instance. gcirsResponseCode :: Lens' GetCommandInvocationResponse (Maybe Int)-gcirsResponseCode = lens _gcirsResponseCode (\ s a -> s{_gcirsResponseCode = a});+gcirsResponseCode = lens _gcirsResponseCode (\ s a -> s{_gcirsResponseCode = a})  -- | A detailed status of the command execution for an invocation. StatusDetails includes more information than Status because it includes states resulting from error and concurrency control parameters. StatusDetails can show different results than Status. For more information about these statuses, see <http://docs.aws.amazon.com/systems-manager/latest/userguide/monitor-about-status.html Run Command Status> . StatusDetails can be one of the following values:     * Pending: The command has not been sent to the instance.     * In Progress: The command has been sent to the instance but has not reached a terminal state.     * Delayed: The system attempted to send the command to the target, but the target was not available. The instance might not be available because of network issues, the instance was stopped, etc. The system will try to deliver the command again.     * Success: The command or plugin was executed successfully. This is a terminal state.     * Delivery Timed Out: The command was not delivered to the instance before the delivery timeout expired. Delivery timeouts do not count against the parent command's MaxErrors limit, but they do contribute to whether the parent command status is Success or Incomplete. This is a terminal state.     * Execution Timed Out: The command started to execute on the instance, but the execution was not complete before the timeout expired. Execution timeouts count against the MaxErrors limit of the parent command. This is a terminal state.     * Failed: The command wasn't executed successfully on the instance. For a plugin, this indicates that the result code was not zero. For a command invocation, this indicates that the result code for one or more plugins was not zero. Invocation failures count against the MaxErrors limit of the parent command. This is a terminal state.     * Canceled: The command was terminated before it was completed. This is a terminal state.     * Undeliverable: The command can't be delivered to the instance. The instance might not exist or might not be responding. Undeliverable invocations don't count against the parent command's MaxErrors limit and don't contribute to whether the parent command status is Success or Incomplete. This is a terminal state.     * Terminated: The parent command exceeded its MaxErrors limit and subsequent command invocations were canceled by the system. This is a terminal state. gcirsStatusDetails :: Lens' GetCommandInvocationResponse (Maybe Text)-gcirsStatusDetails = lens _gcirsStatusDetails (\ s a -> s{_gcirsStatusDetails = a});+gcirsStatusDetails = lens _gcirsStatusDetails (\ s a -> s{_gcirsStatusDetails = a})  -- | The date and time the plugin was finished executing. Date and time are written in ISO 8601 format. For example, June 7, 2017 is represented as 2017-06-7. The following sample AWS CLI command uses the @InvokedAfter@ filter. @aws ssm list-commands --filters key=InvokedAfter,value=2017-06-07T00:00:00Z@  If the plugin has not started to execute, the string is empty. gcirsExecutionEndDateTime :: Lens' GetCommandInvocationResponse (Maybe Text)-gcirsExecutionEndDateTime = lens _gcirsExecutionEndDateTime (\ s a -> s{_gcirsExecutionEndDateTime = a});+gcirsExecutionEndDateTime = lens _gcirsExecutionEndDateTime (\ s a -> s{_gcirsExecutionEndDateTime = a})  -- | The URL for the complete text written by the plugin to stdout in Amazon S3. If an Amazon S3 bucket was not specified, then this string is empty. gcirsStandardOutputURL :: Lens' GetCommandInvocationResponse (Maybe Text)-gcirsStandardOutputURL = lens _gcirsStandardOutputURL (\ s a -> s{_gcirsStandardOutputURL = a});+gcirsStandardOutputURL = lens _gcirsStandardOutputURL (\ s a -> s{_gcirsStandardOutputURL = a})  -- | The parent command ID of the invocation plugin. gcirsCommandId :: Lens' GetCommandInvocationResponse (Maybe Text)-gcirsCommandId = lens _gcirsCommandId (\ s a -> s{_gcirsCommandId = a});+gcirsCommandId = lens _gcirsCommandId (\ s a -> s{_gcirsCommandId = a}) +-- | The SSM document version used in the request.+gcirsDocumentVersion :: Lens' GetCommandInvocationResponse (Maybe Text)+gcirsDocumentVersion = lens _gcirsDocumentVersion (\ s a -> s{_gcirsDocumentVersion = a})+ -- | The first 24,000 characters written by the plugin to stdout. If the command has not finished executing, if ExecutionStatus is neither Succeeded nor Failed, then this string is empty. gcirsStandardOutputContent :: Lens' GetCommandInvocationResponse (Maybe Text)-gcirsStandardOutputContent = lens _gcirsStandardOutputContent (\ s a -> s{_gcirsStandardOutputContent = a});+gcirsStandardOutputContent = lens _gcirsStandardOutputContent (\ s a -> s{_gcirsStandardOutputContent = a})  -- | The comment text for the command. gcirsComment :: Lens' GetCommandInvocationResponse (Maybe Text)-gcirsComment = lens _gcirsComment (\ s a -> s{_gcirsComment = a});+gcirsComment = lens _gcirsComment (\ s a -> s{_gcirsComment = a})  -- | The name of the plugin for which you want detailed results. For example, aws:RunShellScript is a plugin. gcirsPluginName :: Lens' GetCommandInvocationResponse (Maybe Text)-gcirsPluginName = lens _gcirsPluginName (\ s a -> s{_gcirsPluginName = a});+gcirsPluginName = lens _gcirsPluginName (\ s a -> s{_gcirsPluginName = a})  -- | -- | The response status code. gcirsResponseStatus :: Lens' GetCommandInvocationResponse Int-gcirsResponseStatus = lens _gcirsResponseStatus (\ s a -> s{_gcirsResponseStatus = a});+gcirsResponseStatus = lens _gcirsResponseStatus (\ s a -> s{_gcirsResponseStatus = a})  instance NFData GetCommandInvocationResponse where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.SSM.GetDefaultPatchBaseline--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -21,6 +21,8 @@ -- Retrieves the default patch baseline. Note that Systems Manager supports creating multiple default patch baselines. For example, you can create a default patch baseline for each operating system. -- --+-- If you do not specify an operating system value, the default patch baseline for Windows is returned.+-- module Network.AWS.SSM.GetDefaultPatchBaseline     (     -- * Creating a Request@@ -64,7 +66,7 @@  -- | Returns the default patch baseline for the specified operating system. gdpbOperatingSystem :: Lens' GetDefaultPatchBaseline (Maybe OperatingSystem)-gdpbOperatingSystem = lens _gdpbOperatingSystem (\ s a -> s{_gdpbOperatingSystem = a});+gdpbOperatingSystem = lens _gdpbOperatingSystem (\ s a -> s{_gdpbOperatingSystem = a})  instance AWSRequest GetDefaultPatchBaseline where         type Rs GetDefaultPatchBaseline =@@ -124,22 +126,22 @@     -> GetDefaultPatchBaselineResponse getDefaultPatchBaselineResponse pResponseStatus_ =   GetDefaultPatchBaselineResponse'-  { _gdpbrsOperatingSystem = Nothing-  , _gdpbrsBaselineId = Nothing-  , _gdpbrsResponseStatus = pResponseStatus_-  }+    { _gdpbrsOperatingSystem = Nothing+    , _gdpbrsBaselineId = Nothing+    , _gdpbrsResponseStatus = pResponseStatus_+    }   -- | The operating system for the returned patch baseline. gdpbrsOperatingSystem :: Lens' GetDefaultPatchBaselineResponse (Maybe OperatingSystem)-gdpbrsOperatingSystem = lens _gdpbrsOperatingSystem (\ s a -> s{_gdpbrsOperatingSystem = a});+gdpbrsOperatingSystem = lens _gdpbrsOperatingSystem (\ s a -> s{_gdpbrsOperatingSystem = a})  -- | The ID of the default patch baseline. gdpbrsBaselineId :: Lens' GetDefaultPatchBaselineResponse (Maybe Text)-gdpbrsBaselineId = lens _gdpbrsBaselineId (\ s a -> s{_gdpbrsBaselineId = a});+gdpbrsBaselineId = lens _gdpbrsBaselineId (\ s a -> s{_gdpbrsBaselineId = a})  -- | -- | The response status code. gdpbrsResponseStatus :: Lens' GetDefaultPatchBaselineResponse Int-gdpbrsResponseStatus = lens _gdpbrsResponseStatus (\ s a -> s{_gdpbrsResponseStatus = a});+gdpbrsResponseStatus = lens _gdpbrsResponseStatus (\ s a -> s{_gdpbrsResponseStatus = a})  instance NFData GetDefaultPatchBaselineResponse where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.SSM.GetDeployablePatchSnapshotForInstance--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -68,16 +68,16 @@     -> GetDeployablePatchSnapshotForInstance getDeployablePatchSnapshotForInstance pInstanceId_ pSnapshotId_ =   GetDeployablePatchSnapshotForInstance'-  {_gdpsfiInstanceId = pInstanceId_, _gdpsfiSnapshotId = pSnapshotId_}+    {_gdpsfiInstanceId = pInstanceId_, _gdpsfiSnapshotId = pSnapshotId_}   -- | The ID of the instance for which the appropriate patch snapshot should be retrieved. gdpsfiInstanceId :: Lens' GetDeployablePatchSnapshotForInstance Text-gdpsfiInstanceId = lens _gdpsfiInstanceId (\ s a -> s{_gdpsfiInstanceId = a});+gdpsfiInstanceId = lens _gdpsfiInstanceId (\ s a -> s{_gdpsfiInstanceId = a})  -- | The user-defined snapshot ID. gdpsfiSnapshotId :: Lens' GetDeployablePatchSnapshotForInstance Text-gdpsfiSnapshotId = lens _gdpsfiSnapshotId (\ s a -> s{_gdpsfiSnapshotId = a});+gdpsfiSnapshotId = lens _gdpsfiSnapshotId (\ s a -> s{_gdpsfiSnapshotId = a})  instance AWSRequest            GetDeployablePatchSnapshotForInstance@@ -158,33 +158,33 @@     -> GetDeployablePatchSnapshotForInstanceResponse getDeployablePatchSnapshotForInstanceResponse pResponseStatus_ =   GetDeployablePatchSnapshotForInstanceResponse'-  { _gdpsfirsInstanceId = Nothing-  , _gdpsfirsProduct = Nothing-  , _gdpsfirsSnapshotDownloadURL = Nothing-  , _gdpsfirsSnapshotId = Nothing-  , _gdpsfirsResponseStatus = pResponseStatus_-  }+    { _gdpsfirsInstanceId = Nothing+    , _gdpsfirsProduct = Nothing+    , _gdpsfirsSnapshotDownloadURL = Nothing+    , _gdpsfirsSnapshotId = Nothing+    , _gdpsfirsResponseStatus = pResponseStatus_+    }   -- | The ID of the instance. gdpsfirsInstanceId :: Lens' GetDeployablePatchSnapshotForInstanceResponse (Maybe Text)-gdpsfirsInstanceId = lens _gdpsfirsInstanceId (\ s a -> s{_gdpsfirsInstanceId = a});+gdpsfirsInstanceId = lens _gdpsfirsInstanceId (\ s a -> s{_gdpsfirsInstanceId = a})  -- | Returns the specific operating system (for example Windows Server 2012 or Amazon Linux 2015.09) on the instance for the specified patch snapshot. gdpsfirsProduct :: Lens' GetDeployablePatchSnapshotForInstanceResponse (Maybe Text)-gdpsfirsProduct = lens _gdpsfirsProduct (\ s a -> s{_gdpsfirsProduct = a});+gdpsfirsProduct = lens _gdpsfirsProduct (\ s a -> s{_gdpsfirsProduct = a})  -- | A pre-signed Amazon S3 URL that can be used to download the patch snapshot. gdpsfirsSnapshotDownloadURL :: Lens' GetDeployablePatchSnapshotForInstanceResponse (Maybe Text)-gdpsfirsSnapshotDownloadURL = lens _gdpsfirsSnapshotDownloadURL (\ s a -> s{_gdpsfirsSnapshotDownloadURL = a});+gdpsfirsSnapshotDownloadURL = lens _gdpsfirsSnapshotDownloadURL (\ s a -> s{_gdpsfirsSnapshotDownloadURL = a})  -- | The user-defined snapshot ID. gdpsfirsSnapshotId :: Lens' GetDeployablePatchSnapshotForInstanceResponse (Maybe Text)-gdpsfirsSnapshotId = lens _gdpsfirsSnapshotId (\ s a -> s{_gdpsfirsSnapshotId = a});+gdpsfirsSnapshotId = lens _gdpsfirsSnapshotId (\ s a -> s{_gdpsfirsSnapshotId = a})  -- | -- | The response status code. gdpsfirsResponseStatus :: Lens' GetDeployablePatchSnapshotForInstanceResponse Int-gdpsfirsResponseStatus = lens _gdpsfirsResponseStatus (\ s a -> s{_gdpsfirsResponseStatus = a});+gdpsfirsResponseStatus = lens _gdpsfirsResponseStatus (\ s a -> s{_gdpsfirsResponseStatus = a})  instance NFData            GetDeployablePatchSnapshotForInstanceResponse

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.SSM.GetDocument--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -27,6 +27,7 @@       getDocument     , GetDocument     -- * Request Lenses+    , gdDocumentFormat     , gdDocumentVersion     , gdName @@ -36,6 +37,7 @@     -- * Response Lenses     , gdrsDocumentType     , gdrsContent+    , gdrsDocumentFormat     , gdrsName     , gdrsDocumentVersion     , gdrsResponseStatus@@ -50,7 +52,8 @@  -- | /See:/ 'getDocument' smart constructor. data GetDocument = GetDocument'-  { _gdDocumentVersion :: !(Maybe Text)+  { _gdDocumentFormat  :: !(Maybe DocumentFormat)+  , _gdDocumentVersion :: !(Maybe Text)   , _gdName            :: !Text   } deriving (Eq, Read, Show, Data, Typeable, Generic) @@ -59,6 +62,8 @@ -- -- Use one of the following lenses to modify other fields as desired: --+-- * 'gdDocumentFormat' - Returns the document in the specified format. The document format can be either JSON or YAML. JSON is the default format.+-- -- * 'gdDocumentVersion' - The document version for which you want information. -- -- * 'gdName' - The name of the Systems Manager document.@@ -66,16 +71,24 @@     :: Text -- ^ 'gdName'     -> GetDocument getDocument pName_ =-  GetDocument' {_gdDocumentVersion = Nothing, _gdName = pName_}+  GetDocument'+    { _gdDocumentFormat = Nothing+    , _gdDocumentVersion = Nothing+    , _gdName = pName_+    }  +-- | Returns the document in the specified format. The document format can be either JSON or YAML. JSON is the default format.+gdDocumentFormat :: Lens' GetDocument (Maybe DocumentFormat)+gdDocumentFormat = lens _gdDocumentFormat (\ s a -> s{_gdDocumentFormat = a})+ -- | The document version for which you want information. gdDocumentVersion :: Lens' GetDocument (Maybe Text)-gdDocumentVersion = lens _gdDocumentVersion (\ s a -> s{_gdDocumentVersion = a});+gdDocumentVersion = lens _gdDocumentVersion (\ s a -> s{_gdDocumentVersion = a})  -- | The name of the Systems Manager document. gdName :: Lens' GetDocument Text-gdName = lens _gdName (\ s a -> s{_gdName = a});+gdName = lens _gdName (\ s a -> s{_gdName = a})  instance AWSRequest GetDocument where         type Rs GetDocument = GetDocumentResponse@@ -85,7 +98,8 @@               (\ s h x ->                  GetDocumentResponse' <$>                    (x .?> "DocumentType") <*> (x .?> "Content") <*>-                     (x .?> "Name")+                     (x .?> "DocumentFormat")+                     <*> (x .?> "Name")                      <*> (x .?> "DocumentVersion")                      <*> (pure (fromEnum s))) @@ -106,7 +120,8 @@         toJSON GetDocument'{..}           = object               (catMaybes-                 [("DocumentVersion" .=) <$> _gdDocumentVersion,+                 [("DocumentFormat" .=) <$> _gdDocumentFormat,+                  ("DocumentVersion" .=) <$> _gdDocumentVersion,                   Just ("Name" .= _gdName)])  instance ToPath GetDocument where@@ -119,6 +134,7 @@ data GetDocumentResponse = GetDocumentResponse'   { _gdrsDocumentType    :: !(Maybe DocumentType)   , _gdrsContent         :: !(Maybe Text)+  , _gdrsDocumentFormat  :: !(Maybe DocumentFormat)   , _gdrsName            :: !(Maybe Text)   , _gdrsDocumentVersion :: !(Maybe Text)   , _gdrsResponseStatus  :: !Int@@ -133,6 +149,8 @@ -- -- * 'gdrsContent' - The contents of the Systems Manager document. --+-- * 'gdrsDocumentFormat' - The document format, either JSON or YAML.+-- -- * 'gdrsName' - The name of the Systems Manager document. -- -- * 'gdrsDocumentVersion' - The document version.@@ -143,32 +161,37 @@     -> GetDocumentResponse getDocumentResponse pResponseStatus_ =   GetDocumentResponse'-  { _gdrsDocumentType = Nothing-  , _gdrsContent = Nothing-  , _gdrsName = Nothing-  , _gdrsDocumentVersion = Nothing-  , _gdrsResponseStatus = pResponseStatus_-  }+    { _gdrsDocumentType = Nothing+    , _gdrsContent = Nothing+    , _gdrsDocumentFormat = Nothing+    , _gdrsName = Nothing+    , _gdrsDocumentVersion = Nothing+    , _gdrsResponseStatus = pResponseStatus_+    }   -- | The document type. gdrsDocumentType :: Lens' GetDocumentResponse (Maybe DocumentType)-gdrsDocumentType = lens _gdrsDocumentType (\ s a -> s{_gdrsDocumentType = a});+gdrsDocumentType = lens _gdrsDocumentType (\ s a -> s{_gdrsDocumentType = a})  -- | The contents of the Systems Manager document. gdrsContent :: Lens' GetDocumentResponse (Maybe Text)-gdrsContent = lens _gdrsContent (\ s a -> s{_gdrsContent = a});+gdrsContent = lens _gdrsContent (\ s a -> s{_gdrsContent = a}) +-- | The document format, either JSON or YAML.+gdrsDocumentFormat :: Lens' GetDocumentResponse (Maybe DocumentFormat)+gdrsDocumentFormat = lens _gdrsDocumentFormat (\ s a -> s{_gdrsDocumentFormat = a})+ -- | The name of the Systems Manager document. gdrsName :: Lens' GetDocumentResponse (Maybe Text)-gdrsName = lens _gdrsName (\ s a -> s{_gdrsName = a});+gdrsName = lens _gdrsName (\ s a -> s{_gdrsName = a})  -- | The document version. gdrsDocumentVersion :: Lens' GetDocumentResponse (Maybe Text)-gdrsDocumentVersion = lens _gdrsDocumentVersion (\ s a -> s{_gdrsDocumentVersion = a});+gdrsDocumentVersion = lens _gdrsDocumentVersion (\ s a -> s{_gdrsDocumentVersion = a})  -- | -- | The response status code. gdrsResponseStatus :: Lens' GetDocumentResponse Int-gdrsResponseStatus = lens _gdrsResponseStatus (\ s a -> s{_gdrsResponseStatus = a});+gdrsResponseStatus = lens _gdrsResponseStatus (\ s a -> s{_gdrsResponseStatus = a})  instance NFData GetDocumentResponse where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.SSM.GetInventory--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -27,6 +27,7 @@       getInventory     , GetInventory     -- * Request Lenses+    , giAggregators     , giFilters     , giResultAttributes     , giNextToken@@ -50,7 +51,8 @@  -- | /See:/ 'getInventory' smart constructor. data GetInventory = GetInventory'-  { _giFilters          :: !(Maybe (List1 InventoryFilter))+  { _giAggregators      :: !(Maybe (List1 InventoryAggregator))+  , _giFilters          :: !(Maybe (List1 InventoryFilter))   , _giResultAttributes :: !(Maybe (List1 ResultAttribute))   , _giNextToken        :: !(Maybe Text)   , _giMaxResults       :: !(Maybe Nat)@@ -61,6 +63,8 @@ -- -- Use one of the following lenses to modify other fields as desired: --+-- * 'giAggregators' - Returns counts of inventory types based on one or more expressions. For example, if you aggregate by using an expression that uses the @AWS:InstanceInformation.PlatformType@ type, you can see a count of how many Windows and Linux instances exist in your inventoried fleet.+-- -- * 'giFilters' - One or more filters. Use a filter to return a more specific list of results. -- -- * 'giResultAttributes' - The list of inventory item types to return.@@ -72,28 +76,33 @@     :: GetInventory getInventory =   GetInventory'-  { _giFilters = Nothing-  , _giResultAttributes = Nothing-  , _giNextToken = Nothing-  , _giMaxResults = Nothing-  }+    { _giAggregators = Nothing+    , _giFilters = Nothing+    , _giResultAttributes = Nothing+    , _giNextToken = Nothing+    , _giMaxResults = Nothing+    }  +-- | Returns counts of inventory types based on one or more expressions. For example, if you aggregate by using an expression that uses the @AWS:InstanceInformation.PlatformType@ type, you can see a count of how many Windows and Linux instances exist in your inventoried fleet.+giAggregators :: Lens' GetInventory (Maybe (NonEmpty InventoryAggregator))+giAggregators = lens _giAggregators (\ s a -> s{_giAggregators = a}) . mapping _List1+ -- | One or more filters. Use a filter to return a more specific list of results. giFilters :: Lens' GetInventory (Maybe (NonEmpty InventoryFilter))-giFilters = lens _giFilters (\ s a -> s{_giFilters = a}) . mapping _List1;+giFilters = lens _giFilters (\ s a -> s{_giFilters = a}) . mapping _List1  -- | The list of inventory item types to return. giResultAttributes :: Lens' GetInventory (Maybe (NonEmpty ResultAttribute))-giResultAttributes = lens _giResultAttributes (\ s a -> s{_giResultAttributes = a}) . mapping _List1;+giResultAttributes = lens _giResultAttributes (\ s a -> s{_giResultAttributes = a}) . mapping _List1  -- | The token for the next set of items to return. (You received this token from a previous call.) giNextToken :: Lens' GetInventory (Maybe Text)-giNextToken = lens _giNextToken (\ s a -> s{_giNextToken = a});+giNextToken = lens _giNextToken (\ s a -> s{_giNextToken = a})  -- | The maximum number of items to return for this call. The call also returns a token that you can specify in a subsequent call to get the next set of results. giMaxResults :: Lens' GetInventory (Maybe Natural)-giMaxResults = lens _giMaxResults (\ s a -> s{_giMaxResults = a}) . mapping _Nat;+giMaxResults = lens _giMaxResults (\ s a -> s{_giMaxResults = a}) . mapping _Nat  instance AWSRequest GetInventory where         type Rs GetInventory = GetInventoryResponse@@ -122,7 +131,8 @@         toJSON GetInventory'{..}           = object               (catMaybes-                 [("Filters" .=) <$> _giFilters,+                 [("Aggregators" .=) <$> _giAggregators,+                  ("Filters" .=) <$> _giFilters,                   ("ResultAttributes" .=) <$> _giResultAttributes,                   ("NextToken" .=) <$> _giNextToken,                   ("MaxResults" .=) <$> _giMaxResults])@@ -155,22 +165,22 @@     -> GetInventoryResponse getInventoryResponse pResponseStatus_ =   GetInventoryResponse'-  { _girsEntities = Nothing-  , _girsNextToken = Nothing-  , _girsResponseStatus = pResponseStatus_-  }+    { _girsEntities = Nothing+    , _girsNextToken = Nothing+    , _girsResponseStatus = pResponseStatus_+    }   -- | Collection of inventory entities such as a collection of instance inventory. girsEntities :: Lens' GetInventoryResponse [InventoryResultEntity]-girsEntities = lens _girsEntities (\ s a -> s{_girsEntities = a}) . _Default . _Coerce;+girsEntities = lens _girsEntities (\ s a -> s{_girsEntities = a}) . _Default . _Coerce  -- | The token to use when requesting the next set of items. If there are no additional items to return, the string is empty. girsNextToken :: Lens' GetInventoryResponse (Maybe Text)-girsNextToken = lens _girsNextToken (\ s a -> s{_girsNextToken = a});+girsNextToken = lens _girsNextToken (\ s a -> s{_girsNextToken = a})  -- | -- | The response status code. girsResponseStatus :: Lens' GetInventoryResponse Int-girsResponseStatus = lens _girsResponseStatus (\ s a -> s{_girsResponseStatus = a});+girsResponseStatus = lens _girsResponseStatus (\ s a -> s{_girsResponseStatus = a})  instance NFData GetInventoryResponse where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.SSM.GetInventorySchema--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -28,6 +28,7 @@     , GetInventorySchema     -- * Request Lenses     , gisTypeName+    , gisAggregator     , gisNextToken     , gisSubType     , gisMaxResults@@ -51,6 +52,7 @@ -- | /See:/ 'getInventorySchema' smart constructor. data GetInventorySchema = GetInventorySchema'   { _gisTypeName   :: !(Maybe Text)+  , _gisAggregator :: !(Maybe Bool)   , _gisNextToken  :: !(Maybe Text)   , _gisSubType    :: !(Maybe Bool)   , _gisMaxResults :: !(Maybe Nat)@@ -63,6 +65,8 @@ -- -- * 'gisTypeName' - The type of inventory item to return. --+-- * 'gisAggregator' - Returns inventory schemas that support aggregation. For example, this call returns the @AWS:InstanceInformation@ type, because it supports aggregation based on the @PlatformName@ , @PlatformType@ , and @PlatformVersion@ attributes.+-- -- * 'gisNextToken' - The token for the next set of items to return. (You received this token from a previous call.) -- -- * 'gisSubType' - Returns the sub-type schema for a specified inventory type.@@ -72,28 +76,33 @@     :: GetInventorySchema getInventorySchema =   GetInventorySchema'-  { _gisTypeName = Nothing-  , _gisNextToken = Nothing-  , _gisSubType = Nothing-  , _gisMaxResults = Nothing-  }+    { _gisTypeName = Nothing+    , _gisAggregator = Nothing+    , _gisNextToken = Nothing+    , _gisSubType = Nothing+    , _gisMaxResults = Nothing+    }   -- | The type of inventory item to return. gisTypeName :: Lens' GetInventorySchema (Maybe Text)-gisTypeName = lens _gisTypeName (\ s a -> s{_gisTypeName = a});+gisTypeName = lens _gisTypeName (\ s a -> s{_gisTypeName = a}) +-- | Returns inventory schemas that support aggregation. For example, this call returns the @AWS:InstanceInformation@ type, because it supports aggregation based on the @PlatformName@ , @PlatformType@ , and @PlatformVersion@ attributes.+gisAggregator :: Lens' GetInventorySchema (Maybe Bool)+gisAggregator = lens _gisAggregator (\ s a -> s{_gisAggregator = a})+ -- | The token for the next set of items to return. (You received this token from a previous call.) gisNextToken :: Lens' GetInventorySchema (Maybe Text)-gisNextToken = lens _gisNextToken (\ s a -> s{_gisNextToken = a});+gisNextToken = lens _gisNextToken (\ s a -> s{_gisNextToken = a})  -- | Returns the sub-type schema for a specified inventory type. gisSubType :: Lens' GetInventorySchema (Maybe Bool)-gisSubType = lens _gisSubType (\ s a -> s{_gisSubType = a});+gisSubType = lens _gisSubType (\ s a -> s{_gisSubType = a})  -- | The maximum number of items to return for this call. The call also returns a token that you can specify in a subsequent call to get the next set of results. gisMaxResults :: Lens' GetInventorySchema (Maybe Natural)-gisMaxResults = lens _gisMaxResults (\ s a -> s{_gisMaxResults = a}) . mapping _Nat;+gisMaxResults = lens _gisMaxResults (\ s a -> s{_gisMaxResults = a}) . mapping _Nat  instance AWSRequest GetInventorySchema where         type Rs GetInventorySchema =@@ -124,6 +133,7 @@           = object               (catMaybes                  [("TypeName" .=) <$> _gisTypeName,+                  ("Aggregator" .=) <$> _gisAggregator,                   ("NextToken" .=) <$> _gisNextToken,                   ("SubType" .=) <$> _gisSubType,                   ("MaxResults" .=) <$> _gisMaxResults])@@ -156,22 +166,22 @@     -> GetInventorySchemaResponse getInventorySchemaResponse pResponseStatus_ =   GetInventorySchemaResponse'-  { _gisrsSchemas = Nothing-  , _gisrsNextToken = Nothing-  , _gisrsResponseStatus = pResponseStatus_-  }+    { _gisrsSchemas = Nothing+    , _gisrsNextToken = Nothing+    , _gisrsResponseStatus = pResponseStatus_+    }   -- | Inventory schemas returned by the request. gisrsSchemas :: Lens' GetInventorySchemaResponse [InventoryItemSchema]-gisrsSchemas = lens _gisrsSchemas (\ s a -> s{_gisrsSchemas = a}) . _Default . _Coerce;+gisrsSchemas = lens _gisrsSchemas (\ s a -> s{_gisrsSchemas = a}) . _Default . _Coerce  -- | The token to use when requesting the next set of items. If there are no additional items to return, the string is empty. gisrsNextToken :: Lens' GetInventorySchemaResponse (Maybe Text)-gisrsNextToken = lens _gisrsNextToken (\ s a -> s{_gisrsNextToken = a});+gisrsNextToken = lens _gisrsNextToken (\ s a -> s{_gisrsNextToken = a})  -- | -- | The response status code. gisrsResponseStatus :: Lens' GetInventorySchemaResponse Int-gisrsResponseStatus = lens _gisrsResponseStatus (\ s a -> s{_gisrsResponseStatus = a});+gisrsResponseStatus = lens _gisrsResponseStatus (\ s a -> s{_gisrsResponseStatus = a})  instance NFData GetInventorySchemaResponse where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.SSM.GetMaintenanceWindow--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -73,7 +73,7 @@  -- | The ID of the desired Maintenance Window. gmwWindowId :: Lens' GetMaintenanceWindow Text-gmwWindowId = lens _gmwWindowId (\ s a -> s{_gmwWindowId = a});+gmwWindowId = lens _gmwWindowId (\ s a -> s{_gmwWindowId = a})  instance AWSRequest GetMaintenanceWindow where         type Rs GetMaintenanceWindow =@@ -164,62 +164,62 @@     -> GetMaintenanceWindowResponse getMaintenanceWindowResponse pResponseStatus_ =   GetMaintenanceWindowResponse'-  { _gmwrsEnabled = Nothing-  , _gmwrsSchedule = Nothing-  , _gmwrsCreatedDate = Nothing-  , _gmwrsName = Nothing-  , _gmwrsModifiedDate = Nothing-  , _gmwrsCutoff = Nothing-  , _gmwrsAllowUnassociatedTargets = Nothing-  , _gmwrsDescription = Nothing-  , _gmwrsDuration = Nothing-  , _gmwrsWindowId = Nothing-  , _gmwrsResponseStatus = pResponseStatus_-  }+    { _gmwrsEnabled = Nothing+    , _gmwrsSchedule = Nothing+    , _gmwrsCreatedDate = Nothing+    , _gmwrsName = Nothing+    , _gmwrsModifiedDate = Nothing+    , _gmwrsCutoff = Nothing+    , _gmwrsAllowUnassociatedTargets = Nothing+    , _gmwrsDescription = Nothing+    , _gmwrsDuration = Nothing+    , _gmwrsWindowId = Nothing+    , _gmwrsResponseStatus = pResponseStatus_+    }   -- | Whether the Maintenance Windows is enabled. gmwrsEnabled :: Lens' GetMaintenanceWindowResponse (Maybe Bool)-gmwrsEnabled = lens _gmwrsEnabled (\ s a -> s{_gmwrsEnabled = a});+gmwrsEnabled = lens _gmwrsEnabled (\ s a -> s{_gmwrsEnabled = a})  -- | The schedule of the Maintenance Window in the form of a cron or rate expression. gmwrsSchedule :: Lens' GetMaintenanceWindowResponse (Maybe Text)-gmwrsSchedule = lens _gmwrsSchedule (\ s a -> s{_gmwrsSchedule = a});+gmwrsSchedule = lens _gmwrsSchedule (\ s a -> s{_gmwrsSchedule = a})  -- | The date the Maintenance Window was created. gmwrsCreatedDate :: Lens' GetMaintenanceWindowResponse (Maybe UTCTime)-gmwrsCreatedDate = lens _gmwrsCreatedDate (\ s a -> s{_gmwrsCreatedDate = a}) . mapping _Time;+gmwrsCreatedDate = lens _gmwrsCreatedDate (\ s a -> s{_gmwrsCreatedDate = a}) . mapping _Time  -- | The name of the Maintenance Window. gmwrsName :: Lens' GetMaintenanceWindowResponse (Maybe Text)-gmwrsName = lens _gmwrsName (\ s a -> s{_gmwrsName = a});+gmwrsName = lens _gmwrsName (\ s a -> s{_gmwrsName = a})  -- | The date the Maintenance Window was last modified. gmwrsModifiedDate :: Lens' GetMaintenanceWindowResponse (Maybe UTCTime)-gmwrsModifiedDate = lens _gmwrsModifiedDate (\ s a -> s{_gmwrsModifiedDate = a}) . mapping _Time;+gmwrsModifiedDate = lens _gmwrsModifiedDate (\ s a -> s{_gmwrsModifiedDate = a}) . mapping _Time  -- | The number of hours before the end of the Maintenance Window that Systems Manager stops scheduling new tasks for execution. gmwrsCutoff :: Lens' GetMaintenanceWindowResponse (Maybe Natural)-gmwrsCutoff = lens _gmwrsCutoff (\ s a -> s{_gmwrsCutoff = a}) . mapping _Nat;+gmwrsCutoff = lens _gmwrsCutoff (\ s a -> s{_gmwrsCutoff = a}) . mapping _Nat  -- | Whether targets must be registered with the Maintenance Window before tasks can be defined for those targets. gmwrsAllowUnassociatedTargets :: Lens' GetMaintenanceWindowResponse (Maybe Bool)-gmwrsAllowUnassociatedTargets = lens _gmwrsAllowUnassociatedTargets (\ s a -> s{_gmwrsAllowUnassociatedTargets = a});+gmwrsAllowUnassociatedTargets = lens _gmwrsAllowUnassociatedTargets (\ s a -> s{_gmwrsAllowUnassociatedTargets = a})  -- | The description of the Maintenance Window. gmwrsDescription :: Lens' GetMaintenanceWindowResponse (Maybe Text)-gmwrsDescription = lens _gmwrsDescription (\ s a -> s{_gmwrsDescription = a}) . mapping _Sensitive;+gmwrsDescription = lens _gmwrsDescription (\ s a -> s{_gmwrsDescription = a}) . mapping _Sensitive  -- | The duration of the Maintenance Window in hours. gmwrsDuration :: Lens' GetMaintenanceWindowResponse (Maybe Natural)-gmwrsDuration = lens _gmwrsDuration (\ s a -> s{_gmwrsDuration = a}) . mapping _Nat;+gmwrsDuration = lens _gmwrsDuration (\ s a -> s{_gmwrsDuration = a}) . mapping _Nat  -- | The ID of the created Maintenance Window. gmwrsWindowId :: Lens' GetMaintenanceWindowResponse (Maybe Text)-gmwrsWindowId = lens _gmwrsWindowId (\ s a -> s{_gmwrsWindowId = a});+gmwrsWindowId = lens _gmwrsWindowId (\ s a -> s{_gmwrsWindowId = a})  -- | -- | The response status code. gmwrsResponseStatus :: Lens' GetMaintenanceWindowResponse Int-gmwrsResponseStatus = lens _gmwrsResponseStatus (\ s a -> s{_gmwrsResponseStatus = a});+gmwrsResponseStatus = lens _gmwrsResponseStatus (\ s a -> s{_gmwrsResponseStatus = a})  instance NFData GetMaintenanceWindowResponse where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.SSM.GetMaintenanceWindowExecution--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -69,7 +69,7 @@  -- | The ID of the Maintenance Window execution that includes the task. gmweWindowExecutionId :: Lens' GetMaintenanceWindowExecution Text-gmweWindowExecutionId = lens _gmweWindowExecutionId (\ s a -> s{_gmweWindowExecutionId = a});+gmweWindowExecutionId = lens _gmweWindowExecutionId (\ s a -> s{_gmweWindowExecutionId = a})  instance AWSRequest GetMaintenanceWindowExecution          where@@ -149,43 +149,43 @@     -> GetMaintenanceWindowExecutionResponse getMaintenanceWindowExecutionResponse pResponseStatus_ =   GetMaintenanceWindowExecutionResponse'-  { _gmwersStatus = Nothing-  , _gmwersStartTime = Nothing-  , _gmwersWindowExecutionId = Nothing-  , _gmwersStatusDetails = Nothing-  , _gmwersEndTime = Nothing-  , _gmwersTaskIds = Nothing-  , _gmwersResponseStatus = pResponseStatus_-  }+    { _gmwersStatus = Nothing+    , _gmwersStartTime = Nothing+    , _gmwersWindowExecutionId = Nothing+    , _gmwersStatusDetails = Nothing+    , _gmwersEndTime = Nothing+    , _gmwersTaskIds = Nothing+    , _gmwersResponseStatus = pResponseStatus_+    }   -- | The status of the Maintenance Window execution. gmwersStatus :: Lens' GetMaintenanceWindowExecutionResponse (Maybe MaintenanceWindowExecutionStatus)-gmwersStatus = lens _gmwersStatus (\ s a -> s{_gmwersStatus = a});+gmwersStatus = lens _gmwersStatus (\ s a -> s{_gmwersStatus = a})  -- | The time the Maintenance Window started executing. gmwersStartTime :: Lens' GetMaintenanceWindowExecutionResponse (Maybe UTCTime)-gmwersStartTime = lens _gmwersStartTime (\ s a -> s{_gmwersStartTime = a}) . mapping _Time;+gmwersStartTime = lens _gmwersStartTime (\ s a -> s{_gmwersStartTime = a}) . mapping _Time  -- | The ID of the Maintenance Window execution. gmwersWindowExecutionId :: Lens' GetMaintenanceWindowExecutionResponse (Maybe Text)-gmwersWindowExecutionId = lens _gmwersWindowExecutionId (\ s a -> s{_gmwersWindowExecutionId = a});+gmwersWindowExecutionId = lens _gmwersWindowExecutionId (\ s a -> s{_gmwersWindowExecutionId = a})  -- | The details explaining the Status. Only available for certain status values. gmwersStatusDetails :: Lens' GetMaintenanceWindowExecutionResponse (Maybe Text)-gmwersStatusDetails = lens _gmwersStatusDetails (\ s a -> s{_gmwersStatusDetails = a});+gmwersStatusDetails = lens _gmwersStatusDetails (\ s a -> s{_gmwersStatusDetails = a})  -- | The time the Maintenance Window finished executing. gmwersEndTime :: Lens' GetMaintenanceWindowExecutionResponse (Maybe UTCTime)-gmwersEndTime = lens _gmwersEndTime (\ s a -> s{_gmwersEndTime = a}) . mapping _Time;+gmwersEndTime = lens _gmwersEndTime (\ s a -> s{_gmwersEndTime = a}) . mapping _Time  -- | The ID of the task executions from the Maintenance Window execution. gmwersTaskIds :: Lens' GetMaintenanceWindowExecutionResponse [Text]-gmwersTaskIds = lens _gmwersTaskIds (\ s a -> s{_gmwersTaskIds = a}) . _Default . _Coerce;+gmwersTaskIds = lens _gmwersTaskIds (\ s a -> s{_gmwersTaskIds = a}) . _Default . _Coerce  -- | -- | The response status code. gmwersResponseStatus :: Lens' GetMaintenanceWindowExecutionResponse Int-gmwersResponseStatus = lens _gmwersResponseStatus (\ s a -> s{_gmwersResponseStatus = a});+gmwersResponseStatus = lens _gmwersResponseStatus (\ s a -> s{_gmwersResponseStatus = a})  instance NFData GetMaintenanceWindowExecutionResponse          where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.SSM.GetMaintenanceWindowExecutionTask--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -77,16 +77,16 @@     -> GetMaintenanceWindowExecutionTask getMaintenanceWindowExecutionTask pWindowExecutionId_ pTaskId_ =   GetMaintenanceWindowExecutionTask'-  {_gmwetWindowExecutionId = pWindowExecutionId_, _gmwetTaskId = pTaskId_}+    {_gmwetWindowExecutionId = pWindowExecutionId_, _gmwetTaskId = pTaskId_}   -- | The ID of the Maintenance Window execution that includes the task. gmwetWindowExecutionId :: Lens' GetMaintenanceWindowExecutionTask Text-gmwetWindowExecutionId = lens _gmwetWindowExecutionId (\ s a -> s{_gmwetWindowExecutionId = a});+gmwetWindowExecutionId = lens _gmwetWindowExecutionId (\ s a -> s{_gmwetWindowExecutionId = a})  -- | The ID of the specific task execution in the Maintenance Window task that should be retrieved. gmwetTaskId :: Lens' GetMaintenanceWindowExecutionTask Text-gmwetTaskId = lens _gmwetTaskId (\ s a -> s{_gmwetTaskId = a});+gmwetTaskId = lens _gmwetTaskId (\ s a -> s{_gmwetTaskId = a})  instance AWSRequest GetMaintenanceWindowExecutionTask          where@@ -201,78 +201,78 @@     -> GetMaintenanceWindowExecutionTaskResponse getMaintenanceWindowExecutionTaskResponse pResponseStatus_ =   GetMaintenanceWindowExecutionTaskResponse'-  { _gmwetrsStatus = Nothing-  , _gmwetrsTaskParameters = Nothing-  , _gmwetrsTaskExecutionId = Nothing-  , _gmwetrsPriority = Nothing-  , _gmwetrsStartTime = Nothing-  , _gmwetrsTaskARN = Nothing-  , _gmwetrsWindowExecutionId = Nothing-  , _gmwetrsStatusDetails = Nothing-  , _gmwetrsMaxErrors = Nothing-  , _gmwetrsEndTime = Nothing-  , _gmwetrsType = Nothing-  , _gmwetrsMaxConcurrency = Nothing-  , _gmwetrsServiceRole = Nothing-  , _gmwetrsResponseStatus = pResponseStatus_-  }+    { _gmwetrsStatus = Nothing+    , _gmwetrsTaskParameters = Nothing+    , _gmwetrsTaskExecutionId = Nothing+    , _gmwetrsPriority = Nothing+    , _gmwetrsStartTime = Nothing+    , _gmwetrsTaskARN = Nothing+    , _gmwetrsWindowExecutionId = Nothing+    , _gmwetrsStatusDetails = Nothing+    , _gmwetrsMaxErrors = Nothing+    , _gmwetrsEndTime = Nothing+    , _gmwetrsType = Nothing+    , _gmwetrsMaxConcurrency = Nothing+    , _gmwetrsServiceRole = Nothing+    , _gmwetrsResponseStatus = pResponseStatus_+    }   -- | The status of the task. gmwetrsStatus :: Lens' GetMaintenanceWindowExecutionTaskResponse (Maybe MaintenanceWindowExecutionStatus)-gmwetrsStatus = lens _gmwetrsStatus (\ s a -> s{_gmwetrsStatus = a});+gmwetrsStatus = lens _gmwetrsStatus (\ s a -> s{_gmwetrsStatus = a})  -- | The parameters passed to the task when it was executed. The map has the following format: Key: string, between 1 and 255 characters Value: an array of strings, each string is between 1 and 255 characters gmwetrsTaskParameters :: Lens' GetMaintenanceWindowExecutionTaskResponse (Maybe [HashMap Text MaintenanceWindowTaskParameterValueExpression])-gmwetrsTaskParameters = lens _gmwetrsTaskParameters (\ s a -> s{_gmwetrsTaskParameters = a}) . mapping (_Sensitive . _Coerce);+gmwetrsTaskParameters = lens _gmwetrsTaskParameters (\ s a -> s{_gmwetrsTaskParameters = a}) . mapping (_Sensitive . _Coerce)  -- | The ID of the specific task execution in the Maintenance Window task that was retrieved. gmwetrsTaskExecutionId :: Lens' GetMaintenanceWindowExecutionTaskResponse (Maybe Text)-gmwetrsTaskExecutionId = lens _gmwetrsTaskExecutionId (\ s a -> s{_gmwetrsTaskExecutionId = a});+gmwetrsTaskExecutionId = lens _gmwetrsTaskExecutionId (\ s a -> s{_gmwetrsTaskExecutionId = a})  -- | The priority of the task. gmwetrsPriority :: Lens' GetMaintenanceWindowExecutionTaskResponse (Maybe Natural)-gmwetrsPriority = lens _gmwetrsPriority (\ s a -> s{_gmwetrsPriority = a}) . mapping _Nat;+gmwetrsPriority = lens _gmwetrsPriority (\ s a -> s{_gmwetrsPriority = a}) . mapping _Nat  -- | The time the task execution started. gmwetrsStartTime :: Lens' GetMaintenanceWindowExecutionTaskResponse (Maybe UTCTime)-gmwetrsStartTime = lens _gmwetrsStartTime (\ s a -> s{_gmwetrsStartTime = a}) . mapping _Time;+gmwetrsStartTime = lens _gmwetrsStartTime (\ s a -> s{_gmwetrsStartTime = a}) . mapping _Time  -- | The ARN of the executed task. gmwetrsTaskARN :: Lens' GetMaintenanceWindowExecutionTaskResponse (Maybe Text)-gmwetrsTaskARN = lens _gmwetrsTaskARN (\ s a -> s{_gmwetrsTaskARN = a});+gmwetrsTaskARN = lens _gmwetrsTaskARN (\ s a -> s{_gmwetrsTaskARN = a})  -- | The ID of the Maintenance Window execution that includes the task. gmwetrsWindowExecutionId :: Lens' GetMaintenanceWindowExecutionTaskResponse (Maybe Text)-gmwetrsWindowExecutionId = lens _gmwetrsWindowExecutionId (\ s a -> s{_gmwetrsWindowExecutionId = a});+gmwetrsWindowExecutionId = lens _gmwetrsWindowExecutionId (\ s a -> s{_gmwetrsWindowExecutionId = a})  -- | The details explaining the Status. Only available for certain status values. gmwetrsStatusDetails :: Lens' GetMaintenanceWindowExecutionTaskResponse (Maybe Text)-gmwetrsStatusDetails = lens _gmwetrsStatusDetails (\ s a -> s{_gmwetrsStatusDetails = a});+gmwetrsStatusDetails = lens _gmwetrsStatusDetails (\ s a -> s{_gmwetrsStatusDetails = a})  -- | The defined maximum number of task execution errors allowed before scheduling of the task execution would have been stopped. gmwetrsMaxErrors :: Lens' GetMaintenanceWindowExecutionTaskResponse (Maybe Text)-gmwetrsMaxErrors = lens _gmwetrsMaxErrors (\ s a -> s{_gmwetrsMaxErrors = a});+gmwetrsMaxErrors = lens _gmwetrsMaxErrors (\ s a -> s{_gmwetrsMaxErrors = a})  -- | The time the task execution completed. gmwetrsEndTime :: Lens' GetMaintenanceWindowExecutionTaskResponse (Maybe UTCTime)-gmwetrsEndTime = lens _gmwetrsEndTime (\ s a -> s{_gmwetrsEndTime = a}) . mapping _Time;+gmwetrsEndTime = lens _gmwetrsEndTime (\ s a -> s{_gmwetrsEndTime = a}) . mapping _Time  -- | The type of task executed. gmwetrsType :: Lens' GetMaintenanceWindowExecutionTaskResponse (Maybe MaintenanceWindowTaskType)-gmwetrsType = lens _gmwetrsType (\ s a -> s{_gmwetrsType = a});+gmwetrsType = lens _gmwetrsType (\ s a -> s{_gmwetrsType = a})  -- | The defined maximum number of task executions that could be run in parallel. gmwetrsMaxConcurrency :: Lens' GetMaintenanceWindowExecutionTaskResponse (Maybe Text)-gmwetrsMaxConcurrency = lens _gmwetrsMaxConcurrency (\ s a -> s{_gmwetrsMaxConcurrency = a});+gmwetrsMaxConcurrency = lens _gmwetrsMaxConcurrency (\ s a -> s{_gmwetrsMaxConcurrency = a})  -- | The role that was assumed when executing the task. gmwetrsServiceRole :: Lens' GetMaintenanceWindowExecutionTaskResponse (Maybe Text)-gmwetrsServiceRole = lens _gmwetrsServiceRole (\ s a -> s{_gmwetrsServiceRole = a});+gmwetrsServiceRole = lens _gmwetrsServiceRole (\ s a -> s{_gmwetrsServiceRole = a})  -- | -- | The response status code. gmwetrsResponseStatus :: Lens' GetMaintenanceWindowExecutionTaskResponse Int-gmwetrsResponseStatus = lens _gmwetrsResponseStatus (\ s a -> s{_gmwetrsResponseStatus = a});+gmwetrsResponseStatus = lens _gmwetrsResponseStatus (\ s a -> s{_gmwetrsResponseStatus = a})  instance NFData            GetMaintenanceWindowExecutionTaskResponse

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.SSM.GetMaintenanceWindowExecutionTaskInvocation--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -81,23 +81,23 @@     -> GetMaintenanceWindowExecutionTaskInvocation getMaintenanceWindowExecutionTaskInvocation pWindowExecutionId_ pTaskId_ pInvocationId_ =   GetMaintenanceWindowExecutionTaskInvocation'-  { _gmwetiWindowExecutionId = pWindowExecutionId_-  , _gmwetiTaskId = pTaskId_-  , _gmwetiInvocationId = pInvocationId_-  }+    { _gmwetiWindowExecutionId = pWindowExecutionId_+    , _gmwetiTaskId = pTaskId_+    , _gmwetiInvocationId = pInvocationId_+    }   -- | The ID of the Maintenance Window execution for which the task is a part. gmwetiWindowExecutionId :: Lens' GetMaintenanceWindowExecutionTaskInvocation Text-gmwetiWindowExecutionId = lens _gmwetiWindowExecutionId (\ s a -> s{_gmwetiWindowExecutionId = a});+gmwetiWindowExecutionId = lens _gmwetiWindowExecutionId (\ s a -> s{_gmwetiWindowExecutionId = a})  -- | The ID of the specific task in the Maintenance Window task that should be retrieved. gmwetiTaskId :: Lens' GetMaintenanceWindowExecutionTaskInvocation Text-gmwetiTaskId = lens _gmwetiTaskId (\ s a -> s{_gmwetiTaskId = a});+gmwetiTaskId = lens _gmwetiTaskId (\ s a -> s{_gmwetiTaskId = a})  -- | The invocation ID to retrieve. gmwetiInvocationId :: Lens' GetMaintenanceWindowExecutionTaskInvocation Text-gmwetiInvocationId = lens _gmwetiInvocationId (\ s a -> s{_gmwetiInvocationId = a});+gmwetiInvocationId = lens _gmwetiInvocationId (\ s a -> s{_gmwetiInvocationId = a})  instance AWSRequest            GetMaintenanceWindowExecutionTaskInvocation@@ -217,73 +217,73 @@     -> GetMaintenanceWindowExecutionTaskInvocationResponse getMaintenanceWindowExecutionTaskInvocationResponse pResponseStatus_ =   GetMaintenanceWindowExecutionTaskInvocationResponse'-  { _gmwetirsStatus = Nothing-  , _gmwetirsExecutionId = Nothing-  , _gmwetirsTaskExecutionId = Nothing-  , _gmwetirsStartTime = Nothing-  , _gmwetirsInvocationId = Nothing-  , _gmwetirsOwnerInformation = Nothing-  , _gmwetirsTaskType = Nothing-  , _gmwetirsWindowTargetId = Nothing-  , _gmwetirsWindowExecutionId = Nothing-  , _gmwetirsStatusDetails = Nothing-  , _gmwetirsEndTime = Nothing-  , _gmwetirsParameters = Nothing-  , _gmwetirsResponseStatus = pResponseStatus_-  }+    { _gmwetirsStatus = Nothing+    , _gmwetirsExecutionId = Nothing+    , _gmwetirsTaskExecutionId = Nothing+    , _gmwetirsStartTime = Nothing+    , _gmwetirsInvocationId = Nothing+    , _gmwetirsOwnerInformation = Nothing+    , _gmwetirsTaskType = Nothing+    , _gmwetirsWindowTargetId = Nothing+    , _gmwetirsWindowExecutionId = Nothing+    , _gmwetirsStatusDetails = Nothing+    , _gmwetirsEndTime = Nothing+    , _gmwetirsParameters = Nothing+    , _gmwetirsResponseStatus = pResponseStatus_+    }   -- | The task status for an invocation. gmwetirsStatus :: Lens' GetMaintenanceWindowExecutionTaskInvocationResponse (Maybe MaintenanceWindowExecutionStatus)-gmwetirsStatus = lens _gmwetirsStatus (\ s a -> s{_gmwetirsStatus = a});+gmwetirsStatus = lens _gmwetirsStatus (\ s a -> s{_gmwetirsStatus = a})  -- | The execution ID. gmwetirsExecutionId :: Lens' GetMaintenanceWindowExecutionTaskInvocationResponse (Maybe Text)-gmwetirsExecutionId = lens _gmwetirsExecutionId (\ s a -> s{_gmwetirsExecutionId = a});+gmwetirsExecutionId = lens _gmwetirsExecutionId (\ s a -> s{_gmwetirsExecutionId = a})  -- | The task execution ID. gmwetirsTaskExecutionId :: Lens' GetMaintenanceWindowExecutionTaskInvocationResponse (Maybe Text)-gmwetirsTaskExecutionId = lens _gmwetirsTaskExecutionId (\ s a -> s{_gmwetirsTaskExecutionId = a});+gmwetirsTaskExecutionId = lens _gmwetirsTaskExecutionId (\ s a -> s{_gmwetirsTaskExecutionId = a})  -- | The time that the task started executing on the target. gmwetirsStartTime :: Lens' GetMaintenanceWindowExecutionTaskInvocationResponse (Maybe UTCTime)-gmwetirsStartTime = lens _gmwetirsStartTime (\ s a -> s{_gmwetirsStartTime = a}) . mapping _Time;+gmwetirsStartTime = lens _gmwetirsStartTime (\ s a -> s{_gmwetirsStartTime = a}) . mapping _Time  -- | The invocation ID. gmwetirsInvocationId :: Lens' GetMaintenanceWindowExecutionTaskInvocationResponse (Maybe Text)-gmwetirsInvocationId = lens _gmwetirsInvocationId (\ s a -> s{_gmwetirsInvocationId = a});+gmwetirsInvocationId = lens _gmwetirsInvocationId (\ s a -> s{_gmwetirsInvocationId = a})  -- | User-provided value to be included in any CloudWatch events raised while running tasks for these targets in this Maintenance Window. gmwetirsOwnerInformation :: Lens' GetMaintenanceWindowExecutionTaskInvocationResponse (Maybe Text)-gmwetirsOwnerInformation = lens _gmwetirsOwnerInformation (\ s a -> s{_gmwetirsOwnerInformation = a}) . mapping _Sensitive;+gmwetirsOwnerInformation = lens _gmwetirsOwnerInformation (\ s a -> s{_gmwetirsOwnerInformation = a}) . mapping _Sensitive  -- | Retrieves the task type for a Maintenance Window. Task types include the following: LAMBDA, STEP_FUNCTION, AUTOMATION, RUN_COMMAND. gmwetirsTaskType :: Lens' GetMaintenanceWindowExecutionTaskInvocationResponse (Maybe MaintenanceWindowTaskType)-gmwetirsTaskType = lens _gmwetirsTaskType (\ s a -> s{_gmwetirsTaskType = a});+gmwetirsTaskType = lens _gmwetirsTaskType (\ s a -> s{_gmwetirsTaskType = a})  -- | The Maintenance Window target ID. gmwetirsWindowTargetId :: Lens' GetMaintenanceWindowExecutionTaskInvocationResponse (Maybe Text)-gmwetirsWindowTargetId = lens _gmwetirsWindowTargetId (\ s a -> s{_gmwetirsWindowTargetId = a});+gmwetirsWindowTargetId = lens _gmwetirsWindowTargetId (\ s a -> s{_gmwetirsWindowTargetId = a})  -- | The Maintenance Window execution ID. gmwetirsWindowExecutionId :: Lens' GetMaintenanceWindowExecutionTaskInvocationResponse (Maybe Text)-gmwetirsWindowExecutionId = lens _gmwetirsWindowExecutionId (\ s a -> s{_gmwetirsWindowExecutionId = a});+gmwetirsWindowExecutionId = lens _gmwetirsWindowExecutionId (\ s a -> s{_gmwetirsWindowExecutionId = a})  -- | The details explaining the status. Details are only available for certain status values. gmwetirsStatusDetails :: Lens' GetMaintenanceWindowExecutionTaskInvocationResponse (Maybe Text)-gmwetirsStatusDetails = lens _gmwetirsStatusDetails (\ s a -> s{_gmwetirsStatusDetails = a});+gmwetirsStatusDetails = lens _gmwetirsStatusDetails (\ s a -> s{_gmwetirsStatusDetails = a})  -- | The time that the task finished executing on the target. gmwetirsEndTime :: Lens' GetMaintenanceWindowExecutionTaskInvocationResponse (Maybe UTCTime)-gmwetirsEndTime = lens _gmwetirsEndTime (\ s a -> s{_gmwetirsEndTime = a}) . mapping _Time;+gmwetirsEndTime = lens _gmwetirsEndTime (\ s a -> s{_gmwetirsEndTime = a}) . mapping _Time  -- | The parameters used at the time that the task executed. gmwetirsParameters :: Lens' GetMaintenanceWindowExecutionTaskInvocationResponse (Maybe Text)-gmwetirsParameters = lens _gmwetirsParameters (\ s a -> s{_gmwetirsParameters = a}) . mapping _Sensitive;+gmwetirsParameters = lens _gmwetirsParameters (\ s a -> s{_gmwetirsParameters = a}) . mapping _Sensitive  -- | -- | The response status code. gmwetirsResponseStatus :: Lens' GetMaintenanceWindowExecutionTaskInvocationResponse Int-gmwetirsResponseStatus = lens _gmwetirsResponseStatus (\ s a -> s{_gmwetirsResponseStatus = a});+gmwetirsResponseStatus = lens _gmwetirsResponseStatus (\ s a -> s{_gmwetirsResponseStatus = a})  instance NFData            GetMaintenanceWindowExecutionTaskInvocationResponse

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.SSM.GetMaintenanceWindowTask--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -78,16 +78,16 @@     -> GetMaintenanceWindowTask getMaintenanceWindowTask pWindowId_ pWindowTaskId_ =   GetMaintenanceWindowTask'-  {_gmwtWindowId = pWindowId_, _gmwtWindowTaskId = pWindowTaskId_}+    {_gmwtWindowId = pWindowId_, _gmwtWindowTaskId = pWindowTaskId_}   -- | The Maintenance Window ID that includes the task to retrieve. gmwtWindowId :: Lens' GetMaintenanceWindowTask Text-gmwtWindowId = lens _gmwtWindowId (\ s a -> s{_gmwtWindowId = a});+gmwtWindowId = lens _gmwtWindowId (\ s a -> s{_gmwtWindowId = a})  -- | The Maintenance Window task ID to retrieve. gmwtWindowTaskId :: Lens' GetMaintenanceWindowTask Text-gmwtWindowTaskId = lens _gmwtWindowTaskId (\ s a -> s{_gmwtWindowTaskId = a});+gmwtWindowTaskId = lens _gmwtWindowTaskId (\ s a -> s{_gmwtWindowTaskId = a})  instance AWSRequest GetMaintenanceWindowTask where         type Rs GetMaintenanceWindowTask =@@ -196,83 +196,83 @@     -> GetMaintenanceWindowTaskResponse getMaintenanceWindowTaskResponse pResponseStatus_ =   GetMaintenanceWindowTaskResponse'-  { _gmwtrsServiceRoleARN = Nothing-  , _gmwtrsWindowTaskId = Nothing-  , _gmwtrsTaskParameters = Nothing-  , _gmwtrsPriority = Nothing-  , _gmwtrsTaskType = Nothing-  , _gmwtrsTaskARN = Nothing-  , _gmwtrsMaxErrors = Nothing-  , _gmwtrsTaskInvocationParameters = Nothing-  , _gmwtrsName = Nothing-  , _gmwtrsTargets = Nothing-  , _gmwtrsLoggingInfo = Nothing-  , _gmwtrsDescription = Nothing-  , _gmwtrsMaxConcurrency = Nothing-  , _gmwtrsWindowId = Nothing-  , _gmwtrsResponseStatus = pResponseStatus_-  }+    { _gmwtrsServiceRoleARN = Nothing+    , _gmwtrsWindowTaskId = Nothing+    , _gmwtrsTaskParameters = Nothing+    , _gmwtrsPriority = Nothing+    , _gmwtrsTaskType = Nothing+    , _gmwtrsTaskARN = Nothing+    , _gmwtrsMaxErrors = Nothing+    , _gmwtrsTaskInvocationParameters = Nothing+    , _gmwtrsName = Nothing+    , _gmwtrsTargets = Nothing+    , _gmwtrsLoggingInfo = Nothing+    , _gmwtrsDescription = Nothing+    , _gmwtrsMaxConcurrency = Nothing+    , _gmwtrsWindowId = Nothing+    , _gmwtrsResponseStatus = pResponseStatus_+    }   -- | The IAM service role to assume during task execution. gmwtrsServiceRoleARN :: Lens' GetMaintenanceWindowTaskResponse (Maybe Text)-gmwtrsServiceRoleARN = lens _gmwtrsServiceRoleARN (\ s a -> s{_gmwtrsServiceRoleARN = a});+gmwtrsServiceRoleARN = lens _gmwtrsServiceRoleARN (\ s a -> s{_gmwtrsServiceRoleARN = a})  -- | The retrieved Maintenance Window task ID. gmwtrsWindowTaskId :: Lens' GetMaintenanceWindowTaskResponse (Maybe Text)-gmwtrsWindowTaskId = lens _gmwtrsWindowTaskId (\ s a -> s{_gmwtrsWindowTaskId = a});+gmwtrsWindowTaskId = lens _gmwtrsWindowTaskId (\ s a -> s{_gmwtrsWindowTaskId = a})  -- | The parameters to pass to the task when it executes. gmwtrsTaskParameters :: Lens' GetMaintenanceWindowTaskResponse (Maybe (HashMap Text MaintenanceWindowTaskParameterValueExpression))-gmwtrsTaskParameters = lens _gmwtrsTaskParameters (\ s a -> s{_gmwtrsTaskParameters = a}) . mapping (_Sensitive . _Map);+gmwtrsTaskParameters = lens _gmwtrsTaskParameters (\ s a -> s{_gmwtrsTaskParameters = a}) . mapping (_Sensitive . _Map)  -- | The priority of the task when it executes. The lower the number, the higher the priority. Tasks that have the same priority are scheduled in parallel. gmwtrsPriority :: Lens' GetMaintenanceWindowTaskResponse (Maybe Natural)-gmwtrsPriority = lens _gmwtrsPriority (\ s a -> s{_gmwtrsPriority = a}) . mapping _Nat;+gmwtrsPriority = lens _gmwtrsPriority (\ s a -> s{_gmwtrsPriority = a}) . mapping _Nat  -- | The type of task to execute. gmwtrsTaskType :: Lens' GetMaintenanceWindowTaskResponse (Maybe MaintenanceWindowTaskType)-gmwtrsTaskType = lens _gmwtrsTaskType (\ s a -> s{_gmwtrsTaskType = a});+gmwtrsTaskType = lens _gmwtrsTaskType (\ s a -> s{_gmwtrsTaskType = a})  -- | The resource that the task used during execution. For RUN_COMMAND and AUTOMATION task types, the TaskArn is the Systems Manager Document name/ARN. For LAMBDA tasks, the value is the function name/ARN. For STEP_FUNCTION tasks, the value is the state machine ARN. gmwtrsTaskARN :: Lens' GetMaintenanceWindowTaskResponse (Maybe Text)-gmwtrsTaskARN = lens _gmwtrsTaskARN (\ s a -> s{_gmwtrsTaskARN = a});+gmwtrsTaskARN = lens _gmwtrsTaskARN (\ s a -> s{_gmwtrsTaskARN = a})  -- | The maximum number of errors allowed before the task stops being scheduled. gmwtrsMaxErrors :: Lens' GetMaintenanceWindowTaskResponse (Maybe Text)-gmwtrsMaxErrors = lens _gmwtrsMaxErrors (\ s a -> s{_gmwtrsMaxErrors = a});+gmwtrsMaxErrors = lens _gmwtrsMaxErrors (\ s a -> s{_gmwtrsMaxErrors = a})  -- | The parameters to pass to the task when it executes. gmwtrsTaskInvocationParameters :: Lens' GetMaintenanceWindowTaskResponse (Maybe MaintenanceWindowTaskInvocationParameters)-gmwtrsTaskInvocationParameters = lens _gmwtrsTaskInvocationParameters (\ s a -> s{_gmwtrsTaskInvocationParameters = a});+gmwtrsTaskInvocationParameters = lens _gmwtrsTaskInvocationParameters (\ s a -> s{_gmwtrsTaskInvocationParameters = a})  -- | The retrieved task name. gmwtrsName :: Lens' GetMaintenanceWindowTaskResponse (Maybe Text)-gmwtrsName = lens _gmwtrsName (\ s a -> s{_gmwtrsName = a});+gmwtrsName = lens _gmwtrsName (\ s a -> s{_gmwtrsName = a})  -- | The targets where the task should execute. gmwtrsTargets :: Lens' GetMaintenanceWindowTaskResponse [Target]-gmwtrsTargets = lens _gmwtrsTargets (\ s a -> s{_gmwtrsTargets = a}) . _Default . _Coerce;+gmwtrsTargets = lens _gmwtrsTargets (\ s a -> s{_gmwtrsTargets = a}) . _Default . _Coerce  -- | The location in Amazon S3 where the task results are logged. gmwtrsLoggingInfo :: Lens' GetMaintenanceWindowTaskResponse (Maybe LoggingInfo)-gmwtrsLoggingInfo = lens _gmwtrsLoggingInfo (\ s a -> s{_gmwtrsLoggingInfo = a});+gmwtrsLoggingInfo = lens _gmwtrsLoggingInfo (\ s a -> s{_gmwtrsLoggingInfo = a})  -- | The retrieved task description. gmwtrsDescription :: Lens' GetMaintenanceWindowTaskResponse (Maybe Text)-gmwtrsDescription = lens _gmwtrsDescription (\ s a -> s{_gmwtrsDescription = a}) . mapping _Sensitive;+gmwtrsDescription = lens _gmwtrsDescription (\ s a -> s{_gmwtrsDescription = a}) . mapping _Sensitive  -- | The maximum number of targets allowed to run this task in parallel. gmwtrsMaxConcurrency :: Lens' GetMaintenanceWindowTaskResponse (Maybe Text)-gmwtrsMaxConcurrency = lens _gmwtrsMaxConcurrency (\ s a -> s{_gmwtrsMaxConcurrency = a});+gmwtrsMaxConcurrency = lens _gmwtrsMaxConcurrency (\ s a -> s{_gmwtrsMaxConcurrency = a})  -- | The retrieved Maintenance Window ID. gmwtrsWindowId :: Lens' GetMaintenanceWindowTaskResponse (Maybe Text)-gmwtrsWindowId = lens _gmwtrsWindowId (\ s a -> s{_gmwtrsWindowId = a});+gmwtrsWindowId = lens _gmwtrsWindowId (\ s a -> s{_gmwtrsWindowId = a})  -- | -- | The response status code. gmwtrsResponseStatus :: Lens' GetMaintenanceWindowTaskResponse Int-gmwtrsResponseStatus = lens _gmwtrsResponseStatus (\ s a -> s{_gmwtrsResponseStatus = a});+gmwtrsResponseStatus = lens _gmwtrsResponseStatus (\ s a -> s{_gmwtrsResponseStatus = a})  instance NFData GetMaintenanceWindowTaskResponse          where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.SSM.GetParameter--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -68,11 +68,11 @@  -- | Return decrypted values for secure string parameters. This flag is ignored for String and StringList parameter types. gWithDecryption :: Lens' GetParameter (Maybe Bool)-gWithDecryption = lens _gWithDecryption (\ s a -> s{_gWithDecryption = a});+gWithDecryption = lens _gWithDecryption (\ s a -> s{_gWithDecryption = a})  -- | The name of the parameter you want to query. gName :: Lens' GetParameter Text-gName = lens _gName (\ s a -> s{_gName = a});+gName = lens _gName (\ s a -> s{_gName = a})  instance AWSRequest GetParameter where         type Rs GetParameter = GetParameterResponse@@ -128,15 +128,15 @@     -> GetParameterResponse getParameterResponse pResponseStatus_ =   GetParameterResponse'-  {_gprsParameter = Nothing, _gprsResponseStatus = pResponseStatus_}+    {_gprsParameter = Nothing, _gprsResponseStatus = pResponseStatus_}   -- | Information about a parameter. gprsParameter :: Lens' GetParameterResponse (Maybe Parameter)-gprsParameter = lens _gprsParameter (\ s a -> s{_gprsParameter = a});+gprsParameter = lens _gprsParameter (\ s a -> s{_gprsParameter = a})  -- | -- | The response status code. gprsResponseStatus :: Lens' GetParameterResponse Int-gprsResponseStatus = lens _gprsResponseStatus (\ s a -> s{_gprsResponseStatus = a});+gprsResponseStatus = lens _gprsResponseStatus (\ s a -> s{_gprsResponseStatus = a})  instance NFData GetParameterResponse where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.SSM.GetParameterHistory--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -21,6 +21,8 @@ -- Query a list of all parameters used by the AWS account. -- --+--+-- This operation returns paginated results. module Network.AWS.SSM.GetParameterHistory     (     -- * Creating a Request@@ -42,6 +44,7 @@     ) where  import Network.AWS.Lens+import Network.AWS.Pager import Network.AWS.Prelude import Network.AWS.Request import Network.AWS.Response@@ -73,29 +76,36 @@     -> GetParameterHistory getParameterHistory pName_ =   GetParameterHistory'-  { _gphWithDecryption = Nothing-  , _gphNextToken = Nothing-  , _gphMaxResults = Nothing-  , _gphName = pName_-  }+    { _gphWithDecryption = Nothing+    , _gphNextToken = Nothing+    , _gphMaxResults = Nothing+    , _gphName = pName_+    }   -- | Return decrypted values for secure string parameters. This flag is ignored for String and StringList parameter types. gphWithDecryption :: Lens' GetParameterHistory (Maybe Bool)-gphWithDecryption = lens _gphWithDecryption (\ s a -> s{_gphWithDecryption = a});+gphWithDecryption = lens _gphWithDecryption (\ s a -> s{_gphWithDecryption = a})  -- | The token for the next set of items to return. (You received this token from a previous call.) gphNextToken :: Lens' GetParameterHistory (Maybe Text)-gphNextToken = lens _gphNextToken (\ s a -> s{_gphNextToken = a});+gphNextToken = lens _gphNextToken (\ s a -> s{_gphNextToken = a})  -- | The maximum number of items to return for this call. The call also returns a token that you can specify in a subsequent call to get the next set of results. gphMaxResults :: Lens' GetParameterHistory (Maybe Natural)-gphMaxResults = lens _gphMaxResults (\ s a -> s{_gphMaxResults = a}) . mapping _Nat;+gphMaxResults = lens _gphMaxResults (\ s a -> s{_gphMaxResults = a}) . mapping _Nat  -- | The name of a parameter you want to query. gphName :: Lens' GetParameterHistory Text-gphName = lens _gphName (\ s a -> s{_gphName = a});+gphName = lens _gphName (\ s a -> s{_gphName = a}) +instance AWSPager GetParameterHistory where+        page rq rs+          | stop (rs ^. gphrsNextToken) = Nothing+          | stop (rs ^. gphrsParameters) = Nothing+          | otherwise =+            Just $ rq & gphNextToken .~ rs ^. gphrsNextToken+ instance AWSRequest GetParameterHistory where         type Rs GetParameterHistory =              GetParameterHistoryResponse@@ -158,22 +168,22 @@     -> GetParameterHistoryResponse getParameterHistoryResponse pResponseStatus_ =   GetParameterHistoryResponse'-  { _gphrsNextToken = Nothing-  , _gphrsParameters = Nothing-  , _gphrsResponseStatus = pResponseStatus_-  }+    { _gphrsNextToken = Nothing+    , _gphrsParameters = Nothing+    , _gphrsResponseStatus = pResponseStatus_+    }   -- | The token to use when requesting the next set of items. If there are no additional items to return, the string is empty. gphrsNextToken :: Lens' GetParameterHistoryResponse (Maybe Text)-gphrsNextToken = lens _gphrsNextToken (\ s a -> s{_gphrsNextToken = a});+gphrsNextToken = lens _gphrsNextToken (\ s a -> s{_gphrsNextToken = a})  -- | A list of parameters returned by the request. gphrsParameters :: Lens' GetParameterHistoryResponse [ParameterHistory]-gphrsParameters = lens _gphrsParameters (\ s a -> s{_gphrsParameters = a}) . _Default . _Coerce;+gphrsParameters = lens _gphrsParameters (\ s a -> s{_gphrsParameters = a}) . _Default . _Coerce  -- | -- | The response status code. gphrsResponseStatus :: Lens' GetParameterHistoryResponse Int-gphrsResponseStatus = lens _gphrsResponseStatus (\ s a -> s{_gphrsResponseStatus = a});+gphrsResponseStatus = lens _gphrsResponseStatus (\ s a -> s{_gphrsResponseStatus = a})  instance NFData GetParameterHistoryResponse where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.SSM.GetParameters--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -69,11 +69,11 @@  -- | Return decrypted secure string value. Return decrypted values for secure string parameters. This flag is ignored for String and StringList parameter types. gpWithDecryption :: Lens' GetParameters (Maybe Bool)-gpWithDecryption = lens _gpWithDecryption (\ s a -> s{_gpWithDecryption = a});+gpWithDecryption = lens _gpWithDecryption (\ s a -> s{_gpWithDecryption = a})  -- | Names of the parameters for which you want to query information. gpNames :: Lens' GetParameters (NonEmpty Text)-gpNames = lens _gpNames (\ s a -> s{_gpNames = a}) . _List1;+gpNames = lens _gpNames (\ s a -> s{_gpNames = a}) . _List1  instance AWSRequest GetParameters where         type Rs GetParameters = GetParametersResponse@@ -134,22 +134,22 @@     -> GetParametersResponse getParametersResponse pResponseStatus_ =   GetParametersResponse'-  { _grsParameters = Nothing-  , _grsInvalidParameters = Nothing-  , _grsResponseStatus = pResponseStatus_-  }+    { _grsParameters = Nothing+    , _grsInvalidParameters = Nothing+    , _grsResponseStatus = pResponseStatus_+    }   -- | A list of details for a parameter. grsParameters :: Lens' GetParametersResponse [Parameter]-grsParameters = lens _grsParameters (\ s a -> s{_grsParameters = a}) . _Default . _Coerce;+grsParameters = lens _grsParameters (\ s a -> s{_grsParameters = a}) . _Default . _Coerce  -- | A list of parameters that are not formatted correctly or do not run when executed. grsInvalidParameters :: Lens' GetParametersResponse [Text]-grsInvalidParameters = lens _grsInvalidParameters (\ s a -> s{_grsInvalidParameters = a}) . _Default . _Coerce;+grsInvalidParameters = lens _grsInvalidParameters (\ s a -> s{_grsInvalidParameters = a}) . _Default . _Coerce  -- | -- | The response status code. grsResponseStatus :: Lens' GetParametersResponse Int-grsResponseStatus = lens _grsResponseStatus (\ s a -> s{_grsResponseStatus = a});+grsResponseStatus = lens _grsResponseStatus (\ s a -> s{_grsResponseStatus = a})  instance NFData GetParametersResponse where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.SSM.GetParametersByPath--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -23,6 +23,8 @@ -- -- Request results are returned on a best-effort basis. If you specify @MaxResults@ in the request, the response includes information up to the limit specified. The number of items returned, however, can be between zero and the value of @MaxResults@ . If the service reaches an internal limit while processing the results, it stops the operation and returns the matching values up to that point and a @NextToken@ . You can specify the @NextToken@ in a subsequent call to get the next set of results. --+--+-- This operation returns paginated results. module Network.AWS.SSM.GetParametersByPath     (     -- * Creating a Request@@ -46,6 +48,7 @@     ) where  import Network.AWS.Lens+import Network.AWS.Pager import Network.AWS.Prelude import Network.AWS.Request import Network.AWS.Response@@ -73,49 +76,56 @@ -- -- * 'gpbpNextToken' - A token to start the list. Use this token to get the next set of results. ----- * 'gpbpRecursive' - Retrieve all parameters within a hierarchy.+-- * 'gpbpRecursive' - Retrieve all parameters within a hierarchy. /Important:/ If a user has access to a path, then the user can access all levels of that path. For example, if a user has permission to access path /a, then the user can also access /a/b. Even if a user has explicitly been denied access in IAM for parameter /a, they can still call the GetParametersByPath API action recursively and view /a/b. -- -- * 'gpbpMaxResults' - The maximum number of items to return for this call. The call also returns a token that you can specify in a subsequent call to get the next set of results. ----- * 'gpbpPath' - The hierarchy for the parameter. Hierarchies start with a forward slash (/) and end with the parameter name. A hierarchy can have a maximum of five levels. Examples: /Environment/Test/DBString003 /Finance/Prod/IAD/OS/WinServ2016/license15+-- * 'gpbpPath' - The hierarchy for the parameter. Hierarchies start with a forward slash (/) and end with the parameter name. A hierarchy can have a maximum of 15 levels. Here is an example of a hierarchy: @/Finance/Prod/IAD/WinServ2016/license33@ getParametersByPath     :: Text -- ^ 'gpbpPath'     -> GetParametersByPath getParametersByPath pPath_ =   GetParametersByPath'-  { _gpbpWithDecryption = Nothing-  , _gpbpParameterFilters = Nothing-  , _gpbpNextToken = Nothing-  , _gpbpRecursive = Nothing-  , _gpbpMaxResults = Nothing-  , _gpbpPath = pPath_-  }+    { _gpbpWithDecryption = Nothing+    , _gpbpParameterFilters = Nothing+    , _gpbpNextToken = Nothing+    , _gpbpRecursive = Nothing+    , _gpbpMaxResults = Nothing+    , _gpbpPath = pPath_+    }   -- | Retrieve all parameters in a hierarchy with their value decrypted. gpbpWithDecryption :: Lens' GetParametersByPath (Maybe Bool)-gpbpWithDecryption = lens _gpbpWithDecryption (\ s a -> s{_gpbpWithDecryption = a});+gpbpWithDecryption = lens _gpbpWithDecryption (\ s a -> s{_gpbpWithDecryption = a})  -- | Filters to limit the request results. gpbpParameterFilters :: Lens' GetParametersByPath [ParameterStringFilter]-gpbpParameterFilters = lens _gpbpParameterFilters (\ s a -> s{_gpbpParameterFilters = a}) . _Default . _Coerce;+gpbpParameterFilters = lens _gpbpParameterFilters (\ s a -> s{_gpbpParameterFilters = a}) . _Default . _Coerce  -- | A token to start the list. Use this token to get the next set of results. gpbpNextToken :: Lens' GetParametersByPath (Maybe Text)-gpbpNextToken = lens _gpbpNextToken (\ s a -> s{_gpbpNextToken = a});+gpbpNextToken = lens _gpbpNextToken (\ s a -> s{_gpbpNextToken = a}) --- | Retrieve all parameters within a hierarchy.+-- | Retrieve all parameters within a hierarchy. /Important:/ If a user has access to a path, then the user can access all levels of that path. For example, if a user has permission to access path /a, then the user can also access /a/b. Even if a user has explicitly been denied access in IAM for parameter /a, they can still call the GetParametersByPath API action recursively and view /a/b. gpbpRecursive :: Lens' GetParametersByPath (Maybe Bool)-gpbpRecursive = lens _gpbpRecursive (\ s a -> s{_gpbpRecursive = a});+gpbpRecursive = lens _gpbpRecursive (\ s a -> s{_gpbpRecursive = a})  -- | The maximum number of items to return for this call. The call also returns a token that you can specify in a subsequent call to get the next set of results. gpbpMaxResults :: Lens' GetParametersByPath (Maybe Natural)-gpbpMaxResults = lens _gpbpMaxResults (\ s a -> s{_gpbpMaxResults = a}) . mapping _Nat;+gpbpMaxResults = lens _gpbpMaxResults (\ s a -> s{_gpbpMaxResults = a}) . mapping _Nat --- | The hierarchy for the parameter. Hierarchies start with a forward slash (/) and end with the parameter name. A hierarchy can have a maximum of five levels. Examples: /Environment/Test/DBString003 /Finance/Prod/IAD/OS/WinServ2016/license15+-- | The hierarchy for the parameter. Hierarchies start with a forward slash (/) and end with the parameter name. A hierarchy can have a maximum of 15 levels. Here is an example of a hierarchy: @/Finance/Prod/IAD/WinServ2016/license33@ gpbpPath :: Lens' GetParametersByPath Text-gpbpPath = lens _gpbpPath (\ s a -> s{_gpbpPath = a});+gpbpPath = lens _gpbpPath (\ s a -> s{_gpbpPath = a}) +instance AWSPager GetParametersByPath where+        page rq rs+          | stop (rs ^. gpbprsNextToken) = Nothing+          | stop (rs ^. gpbprsParameters) = Nothing+          | otherwise =+            Just $ rq & gpbpNextToken .~ rs ^. gpbprsNextToken+ instance AWSRequest GetParametersByPath where         type Rs GetParametersByPath =              GetParametersByPathResponse@@ -180,22 +190,22 @@     -> GetParametersByPathResponse getParametersByPathResponse pResponseStatus_ =   GetParametersByPathResponse'-  { _gpbprsNextToken = Nothing-  , _gpbprsParameters = Nothing-  , _gpbprsResponseStatus = pResponseStatus_-  }+    { _gpbprsNextToken = Nothing+    , _gpbprsParameters = Nothing+    , _gpbprsResponseStatus = pResponseStatus_+    }   -- | The token for the next set of items to return. Use this token to get the next set of results. gpbprsNextToken :: Lens' GetParametersByPathResponse (Maybe Text)-gpbprsNextToken = lens _gpbprsNextToken (\ s a -> s{_gpbprsNextToken = a});+gpbprsNextToken = lens _gpbprsNextToken (\ s a -> s{_gpbprsNextToken = a})  -- | A list of parameters found in the specified hierarchy. gpbprsParameters :: Lens' GetParametersByPathResponse [Parameter]-gpbprsParameters = lens _gpbprsParameters (\ s a -> s{_gpbprsParameters = a}) . _Default . _Coerce;+gpbprsParameters = lens _gpbprsParameters (\ s a -> s{_gpbprsParameters = a}) . _Default . _Coerce  -- | -- | The response status code. gpbprsResponseStatus :: Lens' GetParametersByPathResponse Int-gpbprsResponseStatus = lens _gpbprsResponseStatus (\ s a -> s{_gpbprsResponseStatus = a});+gpbprsResponseStatus = lens _gpbprsResponseStatus (\ s a -> s{_gpbprsResponseStatus = a})  instance NFData GetParametersByPathResponse where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.SSM.GetPatchBaseline--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -38,7 +38,9 @@     , gpbrsGlobalFilters     , gpbrsApprovedPatchesComplianceLevel     , gpbrsApprovedPatches+    , gpbrsApprovedPatchesEnableNonSecurity     , gpbrsRejectedPatches+    , gpbrsSources     , gpbrsCreatedDate     , gpbrsName     , gpbrsPatchGroups@@ -75,7 +77,7 @@  -- | The ID of the patch baseline to retrieve. gpbBaselineId :: Lens' GetPatchBaseline Text-gpbBaselineId = lens _gpbBaselineId (\ s a -> s{_gpbBaselineId = a});+gpbBaselineId = lens _gpbBaselineId (\ s a -> s{_gpbBaselineId = a})  instance AWSRequest GetPatchBaseline where         type Rs GetPatchBaseline = GetPatchBaselineResponse@@ -88,7 +90,9 @@                      <*> (x .?> "GlobalFilters")                      <*> (x .?> "ApprovedPatchesComplianceLevel")                      <*> (x .?> "ApprovedPatches" .!@ mempty)+                     <*> (x .?> "ApprovedPatchesEnableNonSecurity")                      <*> (x .?> "RejectedPatches" .!@ mempty)+                     <*> (x .?> "Sources" .!@ mempty)                      <*> (x .?> "CreatedDate")                      <*> (x .?> "Name")                      <*> (x .?> "PatchGroups" .!@ mempty)@@ -123,20 +127,22 @@  -- | /See:/ 'getPatchBaselineResponse' smart constructor. data GetPatchBaselineResponse = GetPatchBaselineResponse'-  { _gpbrsApprovalRules                  :: !(Maybe PatchRuleGroup)-  , _gpbrsOperatingSystem                :: !(Maybe OperatingSystem)-  , _gpbrsGlobalFilters                  :: !(Maybe PatchFilterGroup)-  , _gpbrsApprovedPatchesComplianceLevel :: !(Maybe PatchComplianceLevel)-  , _gpbrsApprovedPatches                :: !(Maybe [Text])-  , _gpbrsRejectedPatches                :: !(Maybe [Text])-  , _gpbrsCreatedDate                    :: !(Maybe POSIX)-  , _gpbrsName                           :: !(Maybe Text)-  , _gpbrsPatchGroups                    :: !(Maybe [Text])-  , _gpbrsModifiedDate                   :: !(Maybe POSIX)-  , _gpbrsDescription                    :: !(Maybe Text)-  , _gpbrsBaselineId                     :: !(Maybe Text)-  , _gpbrsResponseStatus                 :: !Int-  } deriving (Eq, Read, Show, Data, Typeable, Generic)+  { _gpbrsApprovalRules                    :: !(Maybe PatchRuleGroup)+  , _gpbrsOperatingSystem                  :: !(Maybe OperatingSystem)+  , _gpbrsGlobalFilters                    :: !(Maybe PatchFilterGroup)+  , _gpbrsApprovedPatchesComplianceLevel   :: !(Maybe PatchComplianceLevel)+  , _gpbrsApprovedPatches                  :: !(Maybe [Text])+  , _gpbrsApprovedPatchesEnableNonSecurity :: !(Maybe Bool)+  , _gpbrsRejectedPatches                  :: !(Maybe [Text])+  , _gpbrsSources                          :: !(Maybe [PatchSource])+  , _gpbrsCreatedDate                      :: !(Maybe POSIX)+  , _gpbrsName                             :: !(Maybe Text)+  , _gpbrsPatchGroups                      :: !(Maybe [Text])+  , _gpbrsModifiedDate                     :: !(Maybe POSIX)+  , _gpbrsDescription                      :: !(Maybe Text)+  , _gpbrsBaselineId                       :: !(Maybe Text)+  , _gpbrsResponseStatus                   :: !Int+  } deriving (Eq, Show, Data, Typeable, Generic)   -- | Creates a value of 'GetPatchBaselineResponse' with the minimum fields required to make a request.@@ -153,8 +159,12 @@ -- -- * 'gpbrsApprovedPatches' - A list of explicitly approved patches for the baseline. --+-- * 'gpbrsApprovedPatchesEnableNonSecurity' - Indicates whether the list of approved patches includes non-security updates that should be applied to the instances. The default value is 'false'. Applies to Linux instances only.+-- -- * 'gpbrsRejectedPatches' - A list of explicitly rejected patches for the baseline. --+-- * 'gpbrsSources' - Information about the patches to use to update the instances, including target operating systems and source repositories. Applies to Linux instances only.+-- -- * 'gpbrsCreatedDate' - The date the patch baseline was created. -- -- * 'gpbrsName' - The name of the patch baseline.@@ -173,72 +183,82 @@     -> GetPatchBaselineResponse getPatchBaselineResponse pResponseStatus_ =   GetPatchBaselineResponse'-  { _gpbrsApprovalRules = Nothing-  , _gpbrsOperatingSystem = Nothing-  , _gpbrsGlobalFilters = Nothing-  , _gpbrsApprovedPatchesComplianceLevel = Nothing-  , _gpbrsApprovedPatches = Nothing-  , _gpbrsRejectedPatches = Nothing-  , _gpbrsCreatedDate = Nothing-  , _gpbrsName = Nothing-  , _gpbrsPatchGroups = Nothing-  , _gpbrsModifiedDate = Nothing-  , _gpbrsDescription = Nothing-  , _gpbrsBaselineId = Nothing-  , _gpbrsResponseStatus = pResponseStatus_-  }+    { _gpbrsApprovalRules = Nothing+    , _gpbrsOperatingSystem = Nothing+    , _gpbrsGlobalFilters = Nothing+    , _gpbrsApprovedPatchesComplianceLevel = Nothing+    , _gpbrsApprovedPatches = Nothing+    , _gpbrsApprovedPatchesEnableNonSecurity = Nothing+    , _gpbrsRejectedPatches = Nothing+    , _gpbrsSources = Nothing+    , _gpbrsCreatedDate = Nothing+    , _gpbrsName = Nothing+    , _gpbrsPatchGroups = Nothing+    , _gpbrsModifiedDate = Nothing+    , _gpbrsDescription = Nothing+    , _gpbrsBaselineId = Nothing+    , _gpbrsResponseStatus = pResponseStatus_+    }   -- | A set of rules used to include patches in the baseline. gpbrsApprovalRules :: Lens' GetPatchBaselineResponse (Maybe PatchRuleGroup)-gpbrsApprovalRules = lens _gpbrsApprovalRules (\ s a -> s{_gpbrsApprovalRules = a});+gpbrsApprovalRules = lens _gpbrsApprovalRules (\ s a -> s{_gpbrsApprovalRules = a})  -- | Returns the operating system specified for the patch baseline. gpbrsOperatingSystem :: Lens' GetPatchBaselineResponse (Maybe OperatingSystem)-gpbrsOperatingSystem = lens _gpbrsOperatingSystem (\ s a -> s{_gpbrsOperatingSystem = a});+gpbrsOperatingSystem = lens _gpbrsOperatingSystem (\ s a -> s{_gpbrsOperatingSystem = a})  -- | A set of global filters used to exclude patches from the baseline. gpbrsGlobalFilters :: Lens' GetPatchBaselineResponse (Maybe PatchFilterGroup)-gpbrsGlobalFilters = lens _gpbrsGlobalFilters (\ s a -> s{_gpbrsGlobalFilters = a});+gpbrsGlobalFilters = lens _gpbrsGlobalFilters (\ s a -> s{_gpbrsGlobalFilters = a})  -- | Returns the specified compliance severity level for approved patches in the patch baseline. gpbrsApprovedPatchesComplianceLevel :: Lens' GetPatchBaselineResponse (Maybe PatchComplianceLevel)-gpbrsApprovedPatchesComplianceLevel = lens _gpbrsApprovedPatchesComplianceLevel (\ s a -> s{_gpbrsApprovedPatchesComplianceLevel = a});+gpbrsApprovedPatchesComplianceLevel = lens _gpbrsApprovedPatchesComplianceLevel (\ s a -> s{_gpbrsApprovedPatchesComplianceLevel = a})  -- | A list of explicitly approved patches for the baseline. gpbrsApprovedPatches :: Lens' GetPatchBaselineResponse [Text]-gpbrsApprovedPatches = lens _gpbrsApprovedPatches (\ s a -> s{_gpbrsApprovedPatches = a}) . _Default . _Coerce;+gpbrsApprovedPatches = lens _gpbrsApprovedPatches (\ s a -> s{_gpbrsApprovedPatches = a}) . _Default . _Coerce +-- | Indicates whether the list of approved patches includes non-security updates that should be applied to the instances. The default value is 'false'. Applies to Linux instances only.+gpbrsApprovedPatchesEnableNonSecurity :: Lens' GetPatchBaselineResponse (Maybe Bool)+gpbrsApprovedPatchesEnableNonSecurity = lens _gpbrsApprovedPatchesEnableNonSecurity (\ s a -> s{_gpbrsApprovedPatchesEnableNonSecurity = a})+ -- | A list of explicitly rejected patches for the baseline. gpbrsRejectedPatches :: Lens' GetPatchBaselineResponse [Text]-gpbrsRejectedPatches = lens _gpbrsRejectedPatches (\ s a -> s{_gpbrsRejectedPatches = a}) . _Default . _Coerce;+gpbrsRejectedPatches = lens _gpbrsRejectedPatches (\ s a -> s{_gpbrsRejectedPatches = a}) . _Default . _Coerce +-- | Information about the patches to use to update the instances, including target operating systems and source repositories. Applies to Linux instances only.+gpbrsSources :: Lens' GetPatchBaselineResponse [PatchSource]+gpbrsSources = lens _gpbrsSources (\ s a -> s{_gpbrsSources = a}) . _Default . _Coerce+ -- | The date the patch baseline was created. gpbrsCreatedDate :: Lens' GetPatchBaselineResponse (Maybe UTCTime)-gpbrsCreatedDate = lens _gpbrsCreatedDate (\ s a -> s{_gpbrsCreatedDate = a}) . mapping _Time;+gpbrsCreatedDate = lens _gpbrsCreatedDate (\ s a -> s{_gpbrsCreatedDate = a}) . mapping _Time  -- | The name of the patch baseline. gpbrsName :: Lens' GetPatchBaselineResponse (Maybe Text)-gpbrsName = lens _gpbrsName (\ s a -> s{_gpbrsName = a});+gpbrsName = lens _gpbrsName (\ s a -> s{_gpbrsName = a})  -- | Patch groups included in the patch baseline. gpbrsPatchGroups :: Lens' GetPatchBaselineResponse [Text]-gpbrsPatchGroups = lens _gpbrsPatchGroups (\ s a -> s{_gpbrsPatchGroups = a}) . _Default . _Coerce;+gpbrsPatchGroups = lens _gpbrsPatchGroups (\ s a -> s{_gpbrsPatchGroups = a}) . _Default . _Coerce  -- | The date the patch baseline was last modified. gpbrsModifiedDate :: Lens' GetPatchBaselineResponse (Maybe UTCTime)-gpbrsModifiedDate = lens _gpbrsModifiedDate (\ s a -> s{_gpbrsModifiedDate = a}) . mapping _Time;+gpbrsModifiedDate = lens _gpbrsModifiedDate (\ s a -> s{_gpbrsModifiedDate = a}) . mapping _Time  -- | A description of the patch baseline. gpbrsDescription :: Lens' GetPatchBaselineResponse (Maybe Text)-gpbrsDescription = lens _gpbrsDescription (\ s a -> s{_gpbrsDescription = a});+gpbrsDescription = lens _gpbrsDescription (\ s a -> s{_gpbrsDescription = a})  -- | The ID of the retrieved patch baseline. gpbrsBaselineId :: Lens' GetPatchBaselineResponse (Maybe Text)-gpbrsBaselineId = lens _gpbrsBaselineId (\ s a -> s{_gpbrsBaselineId = a});+gpbrsBaselineId = lens _gpbrsBaselineId (\ s a -> s{_gpbrsBaselineId = a})  -- | -- | The response status code. gpbrsResponseStatus :: Lens' GetPatchBaselineResponse Int-gpbrsResponseStatus = lens _gpbrsResponseStatus (\ s a -> s{_gpbrsResponseStatus = a});+gpbrsResponseStatus = lens _gpbrsResponseStatus (\ s a -> s{_gpbrsResponseStatus = a})  instance NFData GetPatchBaselineResponse where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.SSM.GetPatchBaselineForPatchGroup--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -66,16 +66,16 @@     -> GetPatchBaselineForPatchGroup getPatchBaselineForPatchGroup pPatchGroup_ =   GetPatchBaselineForPatchGroup'-  {_gpbfpgOperatingSystem = Nothing, _gpbfpgPatchGroup = pPatchGroup_}+    {_gpbfpgOperatingSystem = Nothing, _gpbfpgPatchGroup = pPatchGroup_}   -- | Returns he operating system rule specified for patch groups using the patch baseline. gpbfpgOperatingSystem :: Lens' GetPatchBaselineForPatchGroup (Maybe OperatingSystem)-gpbfpgOperatingSystem = lens _gpbfpgOperatingSystem (\ s a -> s{_gpbfpgOperatingSystem = a});+gpbfpgOperatingSystem = lens _gpbfpgOperatingSystem (\ s a -> s{_gpbfpgOperatingSystem = a})  -- | The name of the patch group whose patch baseline should be retrieved. gpbfpgPatchGroup :: Lens' GetPatchBaselineForPatchGroup Text-gpbfpgPatchGroup = lens _gpbfpgPatchGroup (\ s a -> s{_gpbfpgPatchGroup = a});+gpbfpgPatchGroup = lens _gpbfpgPatchGroup (\ s a -> s{_gpbfpgPatchGroup = a})  instance AWSRequest GetPatchBaselineForPatchGroup          where@@ -143,28 +143,28 @@     -> GetPatchBaselineForPatchGroupResponse getPatchBaselineForPatchGroupResponse pResponseStatus_ =   GetPatchBaselineForPatchGroupResponse'-  { _gpbfpgrsOperatingSystem = Nothing-  , _gpbfpgrsBaselineId = Nothing-  , _gpbfpgrsPatchGroup = Nothing-  , _gpbfpgrsResponseStatus = pResponseStatus_-  }+    { _gpbfpgrsOperatingSystem = Nothing+    , _gpbfpgrsBaselineId = Nothing+    , _gpbfpgrsPatchGroup = Nothing+    , _gpbfpgrsResponseStatus = pResponseStatus_+    }   -- | The operating system rule specified for patch groups using the patch baseline. gpbfpgrsOperatingSystem :: Lens' GetPatchBaselineForPatchGroupResponse (Maybe OperatingSystem)-gpbfpgrsOperatingSystem = lens _gpbfpgrsOperatingSystem (\ s a -> s{_gpbfpgrsOperatingSystem = a});+gpbfpgrsOperatingSystem = lens _gpbfpgrsOperatingSystem (\ s a -> s{_gpbfpgrsOperatingSystem = a})  -- | The ID of the patch baseline that should be used for the patch group. gpbfpgrsBaselineId :: Lens' GetPatchBaselineForPatchGroupResponse (Maybe Text)-gpbfpgrsBaselineId = lens _gpbfpgrsBaselineId (\ s a -> s{_gpbfpgrsBaselineId = a});+gpbfpgrsBaselineId = lens _gpbfpgrsBaselineId (\ s a -> s{_gpbfpgrsBaselineId = a})  -- | The name of the patch group. gpbfpgrsPatchGroup :: Lens' GetPatchBaselineForPatchGroupResponse (Maybe Text)-gpbfpgrsPatchGroup = lens _gpbfpgrsPatchGroup (\ s a -> s{_gpbfpgrsPatchGroup = a});+gpbfpgrsPatchGroup = lens _gpbfpgrsPatchGroup (\ s a -> s{_gpbfpgrsPatchGroup = a})  -- | -- | The response status code. gpbfpgrsResponseStatus :: Lens' GetPatchBaselineForPatchGroupResponse Int-gpbfpgrsResponseStatus = lens _gpbfpgrsResponseStatus (\ s a -> s{_gpbfpgrsResponseStatus = a});+gpbfpgrsResponseStatus = lens _gpbfpgrsResponseStatus (\ s a -> s{_gpbfpgrsResponseStatus = a})  instance NFData GetPatchBaselineForPatchGroupResponse          where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.SSM.ListAssociationVersions--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -69,23 +69,23 @@     -> ListAssociationVersions listAssociationVersions pAssociationId_ =   ListAssociationVersions'-  { _lavNextToken = Nothing-  , _lavMaxResults = Nothing-  , _lavAssociationId = pAssociationId_-  }+    { _lavNextToken = Nothing+    , _lavMaxResults = Nothing+    , _lavAssociationId = pAssociationId_+    }   -- | A token to start the list. Use this token to get the next set of results. lavNextToken :: Lens' ListAssociationVersions (Maybe Text)-lavNextToken = lens _lavNextToken (\ s a -> s{_lavNextToken = a});+lavNextToken = lens _lavNextToken (\ s a -> s{_lavNextToken = a})  -- | The maximum number of items to return for this call. The call also returns a token that you can specify in a subsequent call to get the next set of results. lavMaxResults :: Lens' ListAssociationVersions (Maybe Natural)-lavMaxResults = lens _lavMaxResults (\ s a -> s{_lavMaxResults = a}) . mapping _Nat;+lavMaxResults = lens _lavMaxResults (\ s a -> s{_lavMaxResults = a}) . mapping _Nat  -- | The association ID for which you want to view all versions. lavAssociationId :: Lens' ListAssociationVersions Text-lavAssociationId = lens _lavAssociationId (\ s a -> s{_lavAssociationId = a});+lavAssociationId = lens _lavAssociationId (\ s a -> s{_lavAssociationId = a})  instance AWSRequest ListAssociationVersions where         type Rs ListAssociationVersions =@@ -147,22 +147,22 @@     -> ListAssociationVersionsResponse listAssociationVersionsResponse pResponseStatus_ =   ListAssociationVersionsResponse'-  { _lavrsNextToken = Nothing-  , _lavrsAssociationVersions = Nothing-  , _lavrsResponseStatus = pResponseStatus_-  }+    { _lavrsNextToken = Nothing+    , _lavrsAssociationVersions = Nothing+    , _lavrsResponseStatus = pResponseStatus_+    }   -- | The token for the next set of items to return. Use this token to get the next set of results. lavrsNextToken :: Lens' ListAssociationVersionsResponse (Maybe Text)-lavrsNextToken = lens _lavrsNextToken (\ s a -> s{_lavrsNextToken = a});+lavrsNextToken = lens _lavrsNextToken (\ s a -> s{_lavrsNextToken = a})  -- | Information about all versions of the association for the specified association ID. lavrsAssociationVersions :: Lens' ListAssociationVersionsResponse (Maybe (NonEmpty AssociationVersionInfo))-lavrsAssociationVersions = lens _lavrsAssociationVersions (\ s a -> s{_lavrsAssociationVersions = a}) . mapping _List1;+lavrsAssociationVersions = lens _lavrsAssociationVersions (\ s a -> s{_lavrsAssociationVersions = a}) . mapping _List1  -- | -- | The response status code. lavrsResponseStatus :: Lens' ListAssociationVersionsResponse Int-lavrsResponseStatus = lens _lavrsResponseStatus (\ s a -> s{_lavrsResponseStatus = a});+lavrsResponseStatus = lens _lavrsResponseStatus (\ s a -> s{_lavrsResponseStatus = a})  instance NFData ListAssociationVersionsResponse where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.SSM.ListAssociations--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -71,23 +71,23 @@     :: ListAssociations listAssociations =   ListAssociations'-  { _laAssociationFilterList = Nothing-  , _laNextToken = Nothing-  , _laMaxResults = Nothing-  }+    { _laAssociationFilterList = Nothing+    , _laNextToken = Nothing+    , _laMaxResults = Nothing+    }   -- | One or more filters. Use a filter to return a more specific list of results. laAssociationFilterList :: Lens' ListAssociations (Maybe (NonEmpty AssociationFilter))-laAssociationFilterList = lens _laAssociationFilterList (\ s a -> s{_laAssociationFilterList = a}) . mapping _List1;+laAssociationFilterList = lens _laAssociationFilterList (\ s a -> s{_laAssociationFilterList = a}) . mapping _List1  -- | The token for the next set of items to return. (You received this token from a previous call.) laNextToken :: Lens' ListAssociations (Maybe Text)-laNextToken = lens _laNextToken (\ s a -> s{_laNextToken = a});+laNextToken = lens _laNextToken (\ s a -> s{_laNextToken = a})  -- | The maximum number of items to return for this call. The call also returns a token that you can specify in a subsequent call to get the next set of results. laMaxResults :: Lens' ListAssociations (Maybe Natural)-laMaxResults = lens _laMaxResults (\ s a -> s{_laMaxResults = a}) . mapping _Nat;+laMaxResults = lens _laMaxResults (\ s a -> s{_laMaxResults = a}) . mapping _Nat  instance AWSPager ListAssociations where         page rq rs@@ -157,22 +157,22 @@     -> ListAssociationsResponse listAssociationsResponse pResponseStatus_ =   ListAssociationsResponse'-  { _larsNextToken = Nothing-  , _larsAssociations = Nothing-  , _larsResponseStatus = pResponseStatus_-  }+    { _larsNextToken = Nothing+    , _larsAssociations = Nothing+    , _larsResponseStatus = pResponseStatus_+    }   -- | The token to use when requesting the next set of items. If there are no additional items to return, the string is empty. larsNextToken :: Lens' ListAssociationsResponse (Maybe Text)-larsNextToken = lens _larsNextToken (\ s a -> s{_larsNextToken = a});+larsNextToken = lens _larsNextToken (\ s a -> s{_larsNextToken = a})  -- | The associations. larsAssociations :: Lens' ListAssociationsResponse [Association]-larsAssociations = lens _larsAssociations (\ s a -> s{_larsAssociations = a}) . _Default . _Coerce;+larsAssociations = lens _larsAssociations (\ s a -> s{_larsAssociations = a}) . _Default . _Coerce  -- | -- | The response status code. larsResponseStatus :: Lens' ListAssociationsResponse Int-larsResponseStatus = lens _larsResponseStatus (\ s a -> s{_larsResponseStatus = a});+larsResponseStatus = lens _larsResponseStatus (\ s a -> s{_larsResponseStatus = a})  instance NFData ListAssociationsResponse where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.SSM.ListCommandInvocations--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -83,38 +83,38 @@     :: ListCommandInvocations listCommandInvocations =   ListCommandInvocations'-  { _lciInstanceId = Nothing-  , _lciFilters = Nothing-  , _lciNextToken = Nothing-  , _lciCommandId = Nothing-  , _lciDetails = Nothing-  , _lciMaxResults = Nothing-  }+    { _lciInstanceId = Nothing+    , _lciFilters = Nothing+    , _lciNextToken = Nothing+    , _lciCommandId = Nothing+    , _lciDetails = Nothing+    , _lciMaxResults = Nothing+    }   -- | (Optional) The command execution details for a specific instance ID. lciInstanceId :: Lens' ListCommandInvocations (Maybe Text)-lciInstanceId = lens _lciInstanceId (\ s a -> s{_lciInstanceId = a});+lciInstanceId = lens _lciInstanceId (\ s a -> s{_lciInstanceId = a})  -- | (Optional) One or more filters. Use a filter to return a more specific list of results. lciFilters :: Lens' ListCommandInvocations (Maybe (NonEmpty CommandFilter))-lciFilters = lens _lciFilters (\ s a -> s{_lciFilters = a}) . mapping _List1;+lciFilters = lens _lciFilters (\ s a -> s{_lciFilters = a}) . mapping _List1  -- | (Optional) The token for the next set of items to return. (You received this token from a previous call.) lciNextToken :: Lens' ListCommandInvocations (Maybe Text)-lciNextToken = lens _lciNextToken (\ s a -> s{_lciNextToken = a});+lciNextToken = lens _lciNextToken (\ s a -> s{_lciNextToken = a})  -- | (Optional) The invocations for a specific command ID. lciCommandId :: Lens' ListCommandInvocations (Maybe Text)-lciCommandId = lens _lciCommandId (\ s a -> s{_lciCommandId = a});+lciCommandId = lens _lciCommandId (\ s a -> s{_lciCommandId = a})  -- | (Optional) If set this returns the response of the command executions and any command output. By default this is set to False. lciDetails :: Lens' ListCommandInvocations (Maybe Bool)-lciDetails = lens _lciDetails (\ s a -> s{_lciDetails = a});+lciDetails = lens _lciDetails (\ s a -> s{_lciDetails = a})  -- | (Optional) The maximum number of items to return for this call. The call also returns a token that you can specify in a subsequent call to get the next set of results. lciMaxResults :: Lens' ListCommandInvocations (Maybe Natural)-lciMaxResults = lens _lciMaxResults (\ s a -> s{_lciMaxResults = a}) . mapping _Nat;+lciMaxResults = lens _lciMaxResults (\ s a -> s{_lciMaxResults = a}) . mapping _Nat  instance AWSPager ListCommandInvocations where         page rq rs@@ -187,22 +187,22 @@     -> ListCommandInvocationsResponse listCommandInvocationsResponse pResponseStatus_ =   ListCommandInvocationsResponse'-  { _lrsNextToken = Nothing-  , _lrsCommandInvocations = Nothing-  , _lrsResponseStatus = pResponseStatus_-  }+    { _lrsNextToken = Nothing+    , _lrsCommandInvocations = Nothing+    , _lrsResponseStatus = pResponseStatus_+    }   -- | (Optional) The token for the next set of items to return. (You received this token from a previous call.) lrsNextToken :: Lens' ListCommandInvocationsResponse (Maybe Text)-lrsNextToken = lens _lrsNextToken (\ s a -> s{_lrsNextToken = a});+lrsNextToken = lens _lrsNextToken (\ s a -> s{_lrsNextToken = a})  -- | (Optional) A list of all invocations. lrsCommandInvocations :: Lens' ListCommandInvocationsResponse [CommandInvocation]-lrsCommandInvocations = lens _lrsCommandInvocations (\ s a -> s{_lrsCommandInvocations = a}) . _Default . _Coerce;+lrsCommandInvocations = lens _lrsCommandInvocations (\ s a -> s{_lrsCommandInvocations = a}) . _Default . _Coerce  -- | -- | The response status code. lrsResponseStatus :: Lens' ListCommandInvocationsResponse Int-lrsResponseStatus = lens _lrsResponseStatus (\ s a -> s{_lrsResponseStatus = a});+lrsResponseStatus = lens _lrsResponseStatus (\ s a -> s{_lrsResponseStatus = a})  instance NFData ListCommandInvocationsResponse where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.SSM.ListCommands--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -79,33 +79,33 @@     :: ListCommands listCommands =   ListCommands'-  { _lcInstanceId = Nothing-  , _lcFilters = Nothing-  , _lcNextToken = Nothing-  , _lcCommandId = Nothing-  , _lcMaxResults = Nothing-  }+    { _lcInstanceId = Nothing+    , _lcFilters = Nothing+    , _lcNextToken = Nothing+    , _lcCommandId = Nothing+    , _lcMaxResults = Nothing+    }   -- | (Optional) Lists commands issued against this instance ID. lcInstanceId :: Lens' ListCommands (Maybe Text)-lcInstanceId = lens _lcInstanceId (\ s a -> s{_lcInstanceId = a});+lcInstanceId = lens _lcInstanceId (\ s a -> s{_lcInstanceId = a})  -- | (Optional) One or more filters. Use a filter to return a more specific list of results. lcFilters :: Lens' ListCommands (Maybe (NonEmpty CommandFilter))-lcFilters = lens _lcFilters (\ s a -> s{_lcFilters = a}) . mapping _List1;+lcFilters = lens _lcFilters (\ s a -> s{_lcFilters = a}) . mapping _List1  -- | (Optional) The token for the next set of items to return. (You received this token from a previous call.) lcNextToken :: Lens' ListCommands (Maybe Text)-lcNextToken = lens _lcNextToken (\ s a -> s{_lcNextToken = a});+lcNextToken = lens _lcNextToken (\ s a -> s{_lcNextToken = a})  -- | (Optional) If provided, lists only the specified command. lcCommandId :: Lens' ListCommands (Maybe Text)-lcCommandId = lens _lcCommandId (\ s a -> s{_lcCommandId = a});+lcCommandId = lens _lcCommandId (\ s a -> s{_lcCommandId = a})  -- | (Optional) The maximum number of items to return for this call. The call also returns a token that you can specify in a subsequent call to get the next set of results. lcMaxResults :: Lens' ListCommands (Maybe Natural)-lcMaxResults = lens _lcMaxResults (\ s a -> s{_lcMaxResults = a}) . mapping _Nat;+lcMaxResults = lens _lcMaxResults (\ s a -> s{_lcMaxResults = a}) . mapping _Nat  instance AWSPager ListCommands where         page rq rs@@ -175,22 +175,22 @@     -> ListCommandsResponse listCommandsResponse pResponseStatus_ =   ListCommandsResponse'-  { _lcrsCommands = Nothing-  , _lcrsNextToken = Nothing-  , _lcrsResponseStatus = pResponseStatus_-  }+    { _lcrsCommands = Nothing+    , _lcrsNextToken = Nothing+    , _lcrsResponseStatus = pResponseStatus_+    }   -- | (Optional) The list of commands requested by the user. lcrsCommands :: Lens' ListCommandsResponse [Command]-lcrsCommands = lens _lcrsCommands (\ s a -> s{_lcrsCommands = a}) . _Default . _Coerce;+lcrsCommands = lens _lcrsCommands (\ s a -> s{_lcrsCommands = a}) . _Default . _Coerce  -- | (Optional) The token for the next set of items to return. (You received this token from a previous call.) lcrsNextToken :: Lens' ListCommandsResponse (Maybe Text)-lcrsNextToken = lens _lcrsNextToken (\ s a -> s{_lcrsNextToken = a});+lcrsNextToken = lens _lcrsNextToken (\ s a -> s{_lcrsNextToken = a})  -- | -- | The response status code. lcrsResponseStatus :: Lens' ListCommandsResponse Int-lcrsResponseStatus = lens _lcrsResponseStatus (\ s a -> s{_lcrsResponseStatus = a});+lcrsResponseStatus = lens _lcrsResponseStatus (\ s a -> s{_lcrsResponseStatus = a})  instance NFData ListCommandsResponse where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.SSM.ListComplianceItems--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -76,33 +76,33 @@     :: ListComplianceItems listComplianceItems =   ListComplianceItems'-  { _lResourceIds = Nothing-  , _lFilters = Nothing-  , _lNextToken = Nothing-  , _lMaxResults = Nothing-  , _lResourceTypes = Nothing-  }+    { _lResourceIds = Nothing+    , _lFilters = Nothing+    , _lNextToken = Nothing+    , _lMaxResults = Nothing+    , _lResourceTypes = Nothing+    }   -- | The ID for the resources from which to get compliance information. Currently, you can only specify one resource ID. lResourceIds :: Lens' ListComplianceItems (Maybe (NonEmpty Text))-lResourceIds = lens _lResourceIds (\ s a -> s{_lResourceIds = a}) . mapping _List1;+lResourceIds = lens _lResourceIds (\ s a -> s{_lResourceIds = a}) . mapping _List1  -- | One or more compliance filters. Use a filter to return a more specific list of results. lFilters :: Lens' ListComplianceItems [ComplianceStringFilter]-lFilters = lens _lFilters (\ s a -> s{_lFilters = a}) . _Default . _Coerce;+lFilters = lens _lFilters (\ s a -> s{_lFilters = a}) . _Default . _Coerce  -- | A token to start the list. Use this token to get the next set of results. lNextToken :: Lens' ListComplianceItems (Maybe Text)-lNextToken = lens _lNextToken (\ s a -> s{_lNextToken = a});+lNextToken = lens _lNextToken (\ s a -> s{_lNextToken = a})  -- | The maximum number of items to return for this call. The call also returns a token that you can specify in a subsequent call to get the next set of results. lMaxResults :: Lens' ListComplianceItems (Maybe Natural)-lMaxResults = lens _lMaxResults (\ s a -> s{_lMaxResults = a}) . mapping _Nat;+lMaxResults = lens _lMaxResults (\ s a -> s{_lMaxResults = a}) . mapping _Nat  -- | The type of resource from which to get compliance information. Currently, the only supported resource type is @ManagedInstance@ . lResourceTypes :: Lens' ListComplianceItems (Maybe (NonEmpty Text))-lResourceTypes = lens _lResourceTypes (\ s a -> s{_lResourceTypes = a}) . mapping _List1;+lResourceTypes = lens _lResourceTypes (\ s a -> s{_lResourceTypes = a}) . mapping _List1  instance AWSRequest ListComplianceItems where         type Rs ListComplianceItems =@@ -167,22 +167,22 @@     -> ListComplianceItemsResponse listComplianceItemsResponse pResponseStatus_ =   ListComplianceItemsResponse'-  { _lcirsComplianceItems = Nothing-  , _lcirsNextToken = Nothing-  , _lcirsResponseStatus = pResponseStatus_-  }+    { _lcirsComplianceItems = Nothing+    , _lcirsNextToken = Nothing+    , _lcirsResponseStatus = pResponseStatus_+    }   -- | A list of compliance information for the specified resource ID. lcirsComplianceItems :: Lens' ListComplianceItemsResponse [ComplianceItem]-lcirsComplianceItems = lens _lcirsComplianceItems (\ s a -> s{_lcirsComplianceItems = a}) . _Default . _Coerce;+lcirsComplianceItems = lens _lcirsComplianceItems (\ s a -> s{_lcirsComplianceItems = a}) . _Default . _Coerce  -- | The token for the next set of items to return. Use this token to get the next set of results. lcirsNextToken :: Lens' ListComplianceItemsResponse (Maybe Text)-lcirsNextToken = lens _lcirsNextToken (\ s a -> s{_lcirsNextToken = a});+lcirsNextToken = lens _lcirsNextToken (\ s a -> s{_lcirsNextToken = a})  -- | -- | The response status code. lcirsResponseStatus :: Lens' ListComplianceItemsResponse Int-lcirsResponseStatus = lens _lcirsResponseStatus (\ s a -> s{_lcirsResponseStatus = a});+lcirsResponseStatus = lens _lcirsResponseStatus (\ s a -> s{_lcirsResponseStatus = a})  instance NFData ListComplianceItemsResponse where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.SSM.ListComplianceSummaries--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -68,20 +68,20 @@     :: ListComplianceSummaries listComplianceSummaries =   ListComplianceSummaries'-  {_lcsFilters = Nothing, _lcsNextToken = Nothing, _lcsMaxResults = Nothing}+    {_lcsFilters = Nothing, _lcsNextToken = Nothing, _lcsMaxResults = Nothing}   -- | One or more compliance or inventory filters. Use a filter to return a more specific list of results. lcsFilters :: Lens' ListComplianceSummaries [ComplianceStringFilter]-lcsFilters = lens _lcsFilters (\ s a -> s{_lcsFilters = a}) . _Default . _Coerce;+lcsFilters = lens _lcsFilters (\ s a -> s{_lcsFilters = a}) . _Default . _Coerce  -- | A token to start the list. Use this token to get the next set of results. lcsNextToken :: Lens' ListComplianceSummaries (Maybe Text)-lcsNextToken = lens _lcsNextToken (\ s a -> s{_lcsNextToken = a});+lcsNextToken = lens _lcsNextToken (\ s a -> s{_lcsNextToken = a})  -- | The maximum number of items to return for this call. Currently, you can specify null or 50. The call also returns a token that you can specify in a subsequent call to get the next set of results. lcsMaxResults :: Lens' ListComplianceSummaries (Maybe Natural)-lcsMaxResults = lens _lcsMaxResults (\ s a -> s{_lcsMaxResults = a}) . mapping _Nat;+lcsMaxResults = lens _lcsMaxResults (\ s a -> s{_lcsMaxResults = a}) . mapping _Nat  instance AWSRequest ListComplianceSummaries where         type Rs ListComplianceSummaries =@@ -144,22 +144,22 @@     -> ListComplianceSummariesResponse listComplianceSummariesResponse pResponseStatus_ =   ListComplianceSummariesResponse'-  { _lcsrsNextToken = Nothing-  , _lcsrsComplianceSummaryItems = Nothing-  , _lcsrsResponseStatus = pResponseStatus_-  }+    { _lcsrsNextToken = Nothing+    , _lcsrsComplianceSummaryItems = Nothing+    , _lcsrsResponseStatus = pResponseStatus_+    }   -- | The token for the next set of items to return. Use this token to get the next set of results. lcsrsNextToken :: Lens' ListComplianceSummariesResponse (Maybe Text)-lcsrsNextToken = lens _lcsrsNextToken (\ s a -> s{_lcsrsNextToken = a});+lcsrsNextToken = lens _lcsrsNextToken (\ s a -> s{_lcsrsNextToken = a})  -- | A list of compliant and non-compliant summary counts based on compliance types. For example, this call returns State Manager associations, patches, or custom compliance types according to the filter criteria that you specified. lcsrsComplianceSummaryItems :: Lens' ListComplianceSummariesResponse [ComplianceSummaryItem]-lcsrsComplianceSummaryItems = lens _lcsrsComplianceSummaryItems (\ s a -> s{_lcsrsComplianceSummaryItems = a}) . _Default . _Coerce;+lcsrsComplianceSummaryItems = lens _lcsrsComplianceSummaryItems (\ s a -> s{_lcsrsComplianceSummaryItems = a}) . _Default . _Coerce  -- | -- | The response status code. lcsrsResponseStatus :: Lens' ListComplianceSummariesResponse Int-lcsrsResponseStatus = lens _lcsrsResponseStatus (\ s a -> s{_lcsrsResponseStatus = a});+lcsrsResponseStatus = lens _lcsrsResponseStatus (\ s a -> s{_lcsrsResponseStatus = a})  instance NFData ListComplianceSummariesResponse where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.SSM.ListDocumentVersions--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -69,20 +69,20 @@     -> ListDocumentVersions listDocumentVersions pName_ =   ListDocumentVersions'-  {_ldvNextToken = Nothing, _ldvMaxResults = Nothing, _ldvName = pName_}+    {_ldvNextToken = Nothing, _ldvMaxResults = Nothing, _ldvName = pName_}   -- | The token for the next set of items to return. (You received this token from a previous call.) ldvNextToken :: Lens' ListDocumentVersions (Maybe Text)-ldvNextToken = lens _ldvNextToken (\ s a -> s{_ldvNextToken = a});+ldvNextToken = lens _ldvNextToken (\ s a -> s{_ldvNextToken = a})  -- | The maximum number of items to return for this call. The call also returns a token that you can specify in a subsequent call to get the next set of results. ldvMaxResults :: Lens' ListDocumentVersions (Maybe Natural)-ldvMaxResults = lens _ldvMaxResults (\ s a -> s{_ldvMaxResults = a}) . mapping _Nat;+ldvMaxResults = lens _ldvMaxResults (\ s a -> s{_ldvMaxResults = a}) . mapping _Nat  -- | The name of the document about which you want version information. ldvName :: Lens' ListDocumentVersions Text-ldvName = lens _ldvName (\ s a -> s{_ldvName = a});+ldvName = lens _ldvName (\ s a -> s{_ldvName = a})  instance AWSRequest ListDocumentVersions where         type Rs ListDocumentVersions =@@ -144,22 +144,22 @@     -> ListDocumentVersionsResponse listDocumentVersionsResponse pResponseStatus_ =   ListDocumentVersionsResponse'-  { _ldvrsDocumentVersions = Nothing-  , _ldvrsNextToken = Nothing-  , _ldvrsResponseStatus = pResponseStatus_-  }+    { _ldvrsDocumentVersions = Nothing+    , _ldvrsNextToken = Nothing+    , _ldvrsResponseStatus = pResponseStatus_+    }   -- | The document versions. ldvrsDocumentVersions :: Lens' ListDocumentVersionsResponse (Maybe (NonEmpty DocumentVersionInfo))-ldvrsDocumentVersions = lens _ldvrsDocumentVersions (\ s a -> s{_ldvrsDocumentVersions = a}) . mapping _List1;+ldvrsDocumentVersions = lens _ldvrsDocumentVersions (\ s a -> s{_ldvrsDocumentVersions = a}) . mapping _List1  -- | The token to use when requesting the next set of items. If there are no additional items to return, the string is empty. ldvrsNextToken :: Lens' ListDocumentVersionsResponse (Maybe Text)-ldvrsNextToken = lens _ldvrsNextToken (\ s a -> s{_ldvrsNextToken = a});+ldvrsNextToken = lens _ldvrsNextToken (\ s a -> s{_ldvrsNextToken = a})  -- | -- | The response status code. ldvrsResponseStatus :: Lens' ListDocumentVersionsResponse Int-ldvrsResponseStatus = lens _ldvrsResponseStatus (\ s a -> s{_ldvrsResponseStatus = a});+ldvrsResponseStatus = lens _ldvrsResponseStatus (\ s a -> s{_ldvrsResponseStatus = a})  instance NFData ListDocumentVersionsResponse where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.SSM.ListDocuments--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -75,28 +75,28 @@     :: ListDocuments listDocuments =   ListDocuments'-  { _ldDocumentFilterList = Nothing-  , _ldFilters = Nothing-  , _ldNextToken = Nothing-  , _ldMaxResults = Nothing-  }+    { _ldDocumentFilterList = Nothing+    , _ldFilters = Nothing+    , _ldNextToken = Nothing+    , _ldMaxResults = Nothing+    }   -- | One or more filters. Use a filter to return a more specific list of results. ldDocumentFilterList :: Lens' ListDocuments (Maybe (NonEmpty DocumentFilter))-ldDocumentFilterList = lens _ldDocumentFilterList (\ s a -> s{_ldDocumentFilterList = a}) . mapping _List1;+ldDocumentFilterList = lens _ldDocumentFilterList (\ s a -> s{_ldDocumentFilterList = a}) . mapping _List1  -- | One or more filters. Use a filter to return a more specific list of results. ldFilters :: Lens' ListDocuments [DocumentKeyValuesFilter]-ldFilters = lens _ldFilters (\ s a -> s{_ldFilters = a}) . _Default . _Coerce;+ldFilters = lens _ldFilters (\ s a -> s{_ldFilters = a}) . _Default . _Coerce  -- | The token for the next set of items to return. (You received this token from a previous call.) ldNextToken :: Lens' ListDocuments (Maybe Text)-ldNextToken = lens _ldNextToken (\ s a -> s{_ldNextToken = a});+ldNextToken = lens _ldNextToken (\ s a -> s{_ldNextToken = a})  -- | The maximum number of items to return for this call. The call also returns a token that you can specify in a subsequent call to get the next set of results. ldMaxResults :: Lens' ListDocuments (Maybe Natural)-ldMaxResults = lens _ldMaxResults (\ s a -> s{_ldMaxResults = a}) . mapping _Nat;+ldMaxResults = lens _ldMaxResults (\ s a -> s{_ldMaxResults = a}) . mapping _Nat  instance AWSPager ListDocuments where         page rq rs@@ -166,22 +166,22 @@     -> ListDocumentsResponse listDocumentsResponse pResponseStatus_ =   ListDocumentsResponse'-  { _ldrsDocumentIdentifiers = Nothing-  , _ldrsNextToken = Nothing-  , _ldrsResponseStatus = pResponseStatus_-  }+    { _ldrsDocumentIdentifiers = Nothing+    , _ldrsNextToken = Nothing+    , _ldrsResponseStatus = pResponseStatus_+    }   -- | The names of the Systems Manager documents. ldrsDocumentIdentifiers :: Lens' ListDocumentsResponse [DocumentIdentifier]-ldrsDocumentIdentifiers = lens _ldrsDocumentIdentifiers (\ s a -> s{_ldrsDocumentIdentifiers = a}) . _Default . _Coerce;+ldrsDocumentIdentifiers = lens _ldrsDocumentIdentifiers (\ s a -> s{_ldrsDocumentIdentifiers = a}) . _Default . _Coerce  -- | The token to use when requesting the next set of items. If there are no additional items to return, the string is empty. ldrsNextToken :: Lens' ListDocumentsResponse (Maybe Text)-ldrsNextToken = lens _ldrsNextToken (\ s a -> s{_ldrsNextToken = a});+ldrsNextToken = lens _ldrsNextToken (\ s a -> s{_ldrsNextToken = a})  -- | -- | The response status code. ldrsResponseStatus :: Lens' ListDocumentsResponse Int-ldrsResponseStatus = lens _ldrsResponseStatus (\ s a -> s{_ldrsResponseStatus = a});+ldrsResponseStatus = lens _ldrsResponseStatus (\ s a -> s{_ldrsResponseStatus = a})  instance NFData ListDocumentsResponse where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.SSM.ListInventoryEntries--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -82,33 +82,33 @@     -> ListInventoryEntries listInventoryEntries pInstanceId_ pTypeName_ =   ListInventoryEntries'-  { _lieFilters = Nothing-  , _lieNextToken = Nothing-  , _lieMaxResults = Nothing-  , _lieInstanceId = pInstanceId_-  , _lieTypeName = pTypeName_-  }+    { _lieFilters = Nothing+    , _lieNextToken = Nothing+    , _lieMaxResults = Nothing+    , _lieInstanceId = pInstanceId_+    , _lieTypeName = pTypeName_+    }   -- | One or more filters. Use a filter to return a more specific list of results. lieFilters :: Lens' ListInventoryEntries (Maybe (NonEmpty InventoryFilter))-lieFilters = lens _lieFilters (\ s a -> s{_lieFilters = a}) . mapping _List1;+lieFilters = lens _lieFilters (\ s a -> s{_lieFilters = a}) . mapping _List1  -- | The token for the next set of items to return. (You received this token from a previous call.) lieNextToken :: Lens' ListInventoryEntries (Maybe Text)-lieNextToken = lens _lieNextToken (\ s a -> s{_lieNextToken = a});+lieNextToken = lens _lieNextToken (\ s a -> s{_lieNextToken = a})  -- | The maximum number of items to return for this call. The call also returns a token that you can specify in a subsequent call to get the next set of results. lieMaxResults :: Lens' ListInventoryEntries (Maybe Natural)-lieMaxResults = lens _lieMaxResults (\ s a -> s{_lieMaxResults = a}) . mapping _Nat;+lieMaxResults = lens _lieMaxResults (\ s a -> s{_lieMaxResults = a}) . mapping _Nat  -- | The instance ID for which you want inventory information. lieInstanceId :: Lens' ListInventoryEntries Text-lieInstanceId = lens _lieInstanceId (\ s a -> s{_lieInstanceId = a});+lieInstanceId = lens _lieInstanceId (\ s a -> s{_lieInstanceId = a})  -- | The type of inventory item for which you want information. lieTypeName :: Lens' ListInventoryEntries Text-lieTypeName = lens _lieTypeName (\ s a -> s{_lieTypeName = a});+lieTypeName = lens _lieTypeName (\ s a -> s{_lieTypeName = a})  instance AWSRequest ListInventoryEntries where         type Rs ListInventoryEntries =@@ -188,42 +188,42 @@     -> ListInventoryEntriesResponse listInventoryEntriesResponse pResponseStatus_ =   ListInventoryEntriesResponse'-  { _liersInstanceId = Nothing-  , _liersTypeName = Nothing-  , _liersEntries = Nothing-  , _liersSchemaVersion = Nothing-  , _liersCaptureTime = Nothing-  , _liersNextToken = Nothing-  , _liersResponseStatus = pResponseStatus_-  }+    { _liersInstanceId = Nothing+    , _liersTypeName = Nothing+    , _liersEntries = Nothing+    , _liersSchemaVersion = Nothing+    , _liersCaptureTime = Nothing+    , _liersNextToken = Nothing+    , _liersResponseStatus = pResponseStatus_+    }   -- | The instance ID targeted by the request to query inventory information. liersInstanceId :: Lens' ListInventoryEntriesResponse (Maybe Text)-liersInstanceId = lens _liersInstanceId (\ s a -> s{_liersInstanceId = a});+liersInstanceId = lens _liersInstanceId (\ s a -> s{_liersInstanceId = a})  -- | The type of inventory item returned by the request. liersTypeName :: Lens' ListInventoryEntriesResponse (Maybe Text)-liersTypeName = lens _liersTypeName (\ s a -> s{_liersTypeName = a});+liersTypeName = lens _liersTypeName (\ s a -> s{_liersTypeName = a})  -- | A list of inventory items on the instance(s). liersEntries :: Lens' ListInventoryEntriesResponse [HashMap Text Text]-liersEntries = lens _liersEntries (\ s a -> s{_liersEntries = a}) . _Default . _Coerce;+liersEntries = lens _liersEntries (\ s a -> s{_liersEntries = a}) . _Default . _Coerce  -- | The inventory schema version used by the instance(s). liersSchemaVersion :: Lens' ListInventoryEntriesResponse (Maybe Text)-liersSchemaVersion = lens _liersSchemaVersion (\ s a -> s{_liersSchemaVersion = a});+liersSchemaVersion = lens _liersSchemaVersion (\ s a -> s{_liersSchemaVersion = a})  -- | The time that inventory information was collected for the instance(s). liersCaptureTime :: Lens' ListInventoryEntriesResponse (Maybe Text)-liersCaptureTime = lens _liersCaptureTime (\ s a -> s{_liersCaptureTime = a});+liersCaptureTime = lens _liersCaptureTime (\ s a -> s{_liersCaptureTime = a})  -- | The token to use when requesting the next set of items. If there are no additional items to return, the string is empty. liersNextToken :: Lens' ListInventoryEntriesResponse (Maybe Text)-liersNextToken = lens _liersNextToken (\ s a -> s{_liersNextToken = a});+liersNextToken = lens _liersNextToken (\ s a -> s{_liersNextToken = a})  -- | -- | The response status code. liersResponseStatus :: Lens' ListInventoryEntriesResponse Int-liersResponseStatus = lens _liersResponseStatus (\ s a -> s{_liersResponseStatus = a});+liersResponseStatus = lens _liersResponseStatus (\ s a -> s{_liersResponseStatus = a})  instance NFData ListInventoryEntriesResponse where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.SSM.ListResourceComplianceSummaries--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -68,20 +68,23 @@     :: ListResourceComplianceSummaries listResourceComplianceSummaries =   ListResourceComplianceSummaries'-  {_lrcsFilters = Nothing, _lrcsNextToken = Nothing, _lrcsMaxResults = Nothing}+    { _lrcsFilters = Nothing+    , _lrcsNextToken = Nothing+    , _lrcsMaxResults = Nothing+    }   -- | One or more filters. Use a filter to return a more specific list of results. lrcsFilters :: Lens' ListResourceComplianceSummaries [ComplianceStringFilter]-lrcsFilters = lens _lrcsFilters (\ s a -> s{_lrcsFilters = a}) . _Default . _Coerce;+lrcsFilters = lens _lrcsFilters (\ s a -> s{_lrcsFilters = a}) . _Default . _Coerce  -- | A token to start the list. Use this token to get the next set of results. lrcsNextToken :: Lens' ListResourceComplianceSummaries (Maybe Text)-lrcsNextToken = lens _lrcsNextToken (\ s a -> s{_lrcsNextToken = a});+lrcsNextToken = lens _lrcsNextToken (\ s a -> s{_lrcsNextToken = a})  -- | The maximum number of items to return for this call. The call also returns a token that you can specify in a subsequent call to get the next set of results. lrcsMaxResults :: Lens' ListResourceComplianceSummaries (Maybe Natural)-lrcsMaxResults = lens _lrcsMaxResults (\ s a -> s{_lrcsMaxResults = a}) . mapping _Nat;+lrcsMaxResults = lens _lrcsMaxResults (\ s a -> s{_lrcsMaxResults = a}) . mapping _Nat  instance AWSRequest ListResourceComplianceSummaries          where@@ -149,23 +152,23 @@     -> ListResourceComplianceSummariesResponse listResourceComplianceSummariesResponse pResponseStatus_ =   ListResourceComplianceSummariesResponse'-  { _lrcsrsResourceComplianceSummaryItems = Nothing-  , _lrcsrsNextToken = Nothing-  , _lrcsrsResponseStatus = pResponseStatus_-  }+    { _lrcsrsResourceComplianceSummaryItems = Nothing+    , _lrcsrsNextToken = Nothing+    , _lrcsrsResponseStatus = pResponseStatus_+    }   -- | A summary count for specified or targeted managed instances. Summary count includes information about compliant and non-compliant State Manager associations, patch status, or custom items according to the filter criteria that you specify. lrcsrsResourceComplianceSummaryItems :: Lens' ListResourceComplianceSummariesResponse [ResourceComplianceSummaryItem]-lrcsrsResourceComplianceSummaryItems = lens _lrcsrsResourceComplianceSummaryItems (\ s a -> s{_lrcsrsResourceComplianceSummaryItems = a}) . _Default . _Coerce;+lrcsrsResourceComplianceSummaryItems = lens _lrcsrsResourceComplianceSummaryItems (\ s a -> s{_lrcsrsResourceComplianceSummaryItems = a}) . _Default . _Coerce  -- | The token for the next set of items to return. Use this token to get the next set of results. lrcsrsNextToken :: Lens' ListResourceComplianceSummariesResponse (Maybe Text)-lrcsrsNextToken = lens _lrcsrsNextToken (\ s a -> s{_lrcsrsNextToken = a});+lrcsrsNextToken = lens _lrcsrsNextToken (\ s a -> s{_lrcsrsNextToken = a})  -- | -- | The response status code. lrcsrsResponseStatus :: Lens' ListResourceComplianceSummariesResponse Int-lrcsrsResponseStatus = lens _lrcsrsResponseStatus (\ s a -> s{_lrcsrsResponseStatus = a});+lrcsrsResponseStatus = lens _lrcsrsResponseStatus (\ s a -> s{_lrcsrsResponseStatus = a})  instance NFData            ListResourceComplianceSummariesResponse

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.SSM.ListResourceDataSync--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -70,11 +70,11 @@  -- | A token to start the list. Use this token to get the next set of results. lrdsNextToken :: Lens' ListResourceDataSync (Maybe Text)-lrdsNextToken = lens _lrdsNextToken (\ s a -> s{_lrdsNextToken = a});+lrdsNextToken = lens _lrdsNextToken (\ s a -> s{_lrdsNextToken = a})  -- | The maximum number of items to return for this call. The call also returns a token that you can specify in a subsequent call to get the next set of results. lrdsMaxResults :: Lens' ListResourceDataSync (Maybe Natural)-lrdsMaxResults = lens _lrdsMaxResults (\ s a -> s{_lrdsMaxResults = a}) . mapping _Nat;+lrdsMaxResults = lens _lrdsMaxResults (\ s a -> s{_lrdsMaxResults = a}) . mapping _Nat  instance AWSRequest ListResourceDataSync where         type Rs ListResourceDataSync =@@ -136,22 +136,22 @@     -> ListResourceDataSyncResponse listResourceDataSyncResponse pResponseStatus_ =   ListResourceDataSyncResponse'-  { _lrdsrsResourceDataSyncItems = Nothing-  , _lrdsrsNextToken = Nothing-  , _lrdsrsResponseStatus = pResponseStatus_-  }+    { _lrdsrsResourceDataSyncItems = Nothing+    , _lrdsrsNextToken = Nothing+    , _lrdsrsResponseStatus = pResponseStatus_+    }   -- | A list of your current Resource Data Sync configurations and their statuses. lrdsrsResourceDataSyncItems :: Lens' ListResourceDataSyncResponse [ResourceDataSyncItem]-lrdsrsResourceDataSyncItems = lens _lrdsrsResourceDataSyncItems (\ s a -> s{_lrdsrsResourceDataSyncItems = a}) . _Default . _Coerce;+lrdsrsResourceDataSyncItems = lens _lrdsrsResourceDataSyncItems (\ s a -> s{_lrdsrsResourceDataSyncItems = a}) . _Default . _Coerce  -- | The token for the next set of items to return. Use this token to get the next set of results. lrdsrsNextToken :: Lens' ListResourceDataSyncResponse (Maybe Text)-lrdsrsNextToken = lens _lrdsrsNextToken (\ s a -> s{_lrdsrsNextToken = a});+lrdsrsNextToken = lens _lrdsrsNextToken (\ s a -> s{_lrdsrsNextToken = a})  -- | -- | The response status code. lrdsrsResponseStatus :: Lens' ListResourceDataSyncResponse Int-lrdsrsResponseStatus = lens _lrdsrsResponseStatus (\ s a -> s{_lrdsrsResponseStatus = a});+lrdsrsResponseStatus = lens _lrdsrsResponseStatus (\ s a -> s{_lrdsrsResponseStatus = a})  instance NFData ListResourceDataSyncResponse where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.SSM.ListTagsForResource--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -65,16 +65,16 @@     -> ListTagsForResource listTagsForResource pResourceType_ pResourceId_ =   ListTagsForResource'-  {_ltfrResourceType = pResourceType_, _ltfrResourceId = pResourceId_}+    {_ltfrResourceType = pResourceType_, _ltfrResourceId = pResourceId_}   -- | Returns a list of tags for a specific resource type. ltfrResourceType :: Lens' ListTagsForResource ResourceTypeForTagging-ltfrResourceType = lens _ltfrResourceType (\ s a -> s{_ltfrResourceType = a});+ltfrResourceType = lens _ltfrResourceType (\ s a -> s{_ltfrResourceType = a})  -- | The resource ID for which you want to see a list of tags. ltfrResourceId :: Lens' ListTagsForResource Text-ltfrResourceId = lens _ltfrResourceId (\ s a -> s{_ltfrResourceId = a});+ltfrResourceId = lens _ltfrResourceId (\ s a -> s{_ltfrResourceId = a})  instance AWSRequest ListTagsForResource where         type Rs ListTagsForResource =@@ -131,15 +131,15 @@     -> ListTagsForResourceResponse listTagsForResourceResponse pResponseStatus_ =   ListTagsForResourceResponse'-  {_ltfrrsTagList = Nothing, _ltfrrsResponseStatus = pResponseStatus_}+    {_ltfrrsTagList = Nothing, _ltfrrsResponseStatus = pResponseStatus_}   -- | A list of tags. ltfrrsTagList :: Lens' ListTagsForResourceResponse [Tag]-ltfrrsTagList = lens _ltfrrsTagList (\ s a -> s{_ltfrrsTagList = a}) . _Default . _Coerce;+ltfrrsTagList = lens _ltfrrsTagList (\ s a -> s{_ltfrrsTagList = a}) . _Default . _Coerce  -- | -- | The response status code. ltfrrsResponseStatus :: Lens' ListTagsForResourceResponse Int-ltfrrsResponseStatus = lens _ltfrrsResponseStatus (\ s a -> s{_ltfrrsResponseStatus = a});+ltfrrsResponseStatus = lens _ltfrrsResponseStatus (\ s a -> s{_ltfrrsResponseStatus = a})  instance NFData ListTagsForResourceResponse where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.SSM.ModifyDocumentPermission--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -72,28 +72,28 @@     -> ModifyDocumentPermission modifyDocumentPermission pName_ pPermissionType_ =   ModifyDocumentPermission'-  { _mdpAccountIdsToAdd = Nothing-  , _mdpAccountIdsToRemove = Nothing-  , _mdpName = pName_-  , _mdpPermissionType = pPermissionType_-  }+    { _mdpAccountIdsToAdd = Nothing+    , _mdpAccountIdsToRemove = Nothing+    , _mdpName = pName_+    , _mdpPermissionType = pPermissionType_+    }   -- | The AWS user accounts that should have access to the document. The account IDs can either be a group of account IDs or /All/ . mdpAccountIdsToAdd :: Lens' ModifyDocumentPermission [Text]-mdpAccountIdsToAdd = lens _mdpAccountIdsToAdd (\ s a -> s{_mdpAccountIdsToAdd = a}) . _Default . _Coerce;+mdpAccountIdsToAdd = lens _mdpAccountIdsToAdd (\ s a -> s{_mdpAccountIdsToAdd = a}) . _Default . _Coerce  -- | The AWS user accounts that should no longer have access to the document. The AWS user account can either be a group of account IDs or /All/ . This action has a higher priority than /AccountIdsToAdd/ . If you specify an account ID to add and the same ID to remove, the system removes access to the document. mdpAccountIdsToRemove :: Lens' ModifyDocumentPermission [Text]-mdpAccountIdsToRemove = lens _mdpAccountIdsToRemove (\ s a -> s{_mdpAccountIdsToRemove = a}) . _Default . _Coerce;+mdpAccountIdsToRemove = lens _mdpAccountIdsToRemove (\ s a -> s{_mdpAccountIdsToRemove = a}) . _Default . _Coerce  -- | The name of the document that you want to share. mdpName :: Lens' ModifyDocumentPermission Text-mdpName = lens _mdpName (\ s a -> s{_mdpName = a});+mdpName = lens _mdpName (\ s a -> s{_mdpName = a})  -- | The permission type for the document. The permission type can be /Share/ . mdpPermissionType :: Lens' ModifyDocumentPermission DocumentPermissionType-mdpPermissionType = lens _mdpPermissionType (\ s a -> s{_mdpPermissionType = a});+mdpPermissionType = lens _mdpPermissionType (\ s a -> s{_mdpPermissionType = a})  instance AWSRequest ModifyDocumentPermission where         type Rs ModifyDocumentPermission =@@ -153,7 +153,7 @@  -- | -- | The response status code. mdprsResponseStatus :: Lens' ModifyDocumentPermissionResponse Int-mdprsResponseStatus = lens _mdprsResponseStatus (\ s a -> s{_mdprsResponseStatus = a});+mdprsResponseStatus = lens _mdprsResponseStatus (\ s a -> s{_mdprsResponseStatus = a})  instance NFData ModifyDocumentPermissionResponse          where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.SSM.PutComplianceItems--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -21,6 +21,40 @@ -- Registers a compliance type and other compliance details on a designated resource. This action lets you register custom compliance details with a resource. This call overwrites existing compliance information on the resource, so you must provide a full list of compliance items each time that you send the request. -- --+-- ComplianceType can be one of the following:+--+--     * ExecutionId: The execution ID when the patch, association, or custom compliance item was applied.+--+--     * ExecutionType: Specify patch, association, or Custom:@string@ .+--+--     * ExecutionTime. The time the patch, association, or custom compliance item was applied to the instance.+--+--     * Id: The patch, association, or custom compliance ID.+--+--     * Title: A title.+--+--     * Status: The status of the compliance item. For example, @approved@ for patches, or @Failed@ for associations.+--+--     * Severity: A patch severity. For example, @critical@ .+--+--     * DocumentName: A SSM document name. For example, AWS-RunPatchBaseline.+--+--     * DocumentVersion: An SSM document version number. For example, 4.+--+--     * Classification: A patch classification. For example, @security updates@ .+--+--     * PatchBaselineId: A patch baseline ID.+--+--     * PatchSeverity: A patch severity. For example, @Critical@ .+--+--     * PatchState: A patch state. For example, @InstancesWithFailedPatches@ .+--+--     * PatchGroup: The name of a patch group.+--+--     * InstalledTime: The time the association, patch, or custom compliance item was applied to the resource. Specify the time by using the following format: yyyy-MM-dd'T'HH:mm:ss'Z'+--+--+-- module Network.AWS.SSM.PutComplianceItems     (     -- * Creating a Request@@ -82,38 +116,38 @@     -> PutComplianceItems putComplianceItems pResourceId_ pResourceType_ pComplianceType_ pExecutionSummary_ =   PutComplianceItems'-  { _pciItemContentHash = Nothing-  , _pciResourceId = pResourceId_-  , _pciResourceType = pResourceType_-  , _pciComplianceType = pComplianceType_-  , _pciExecutionSummary = pExecutionSummary_-  , _pciItems = mempty-  }+    { _pciItemContentHash = Nothing+    , _pciResourceId = pResourceId_+    , _pciResourceType = pResourceType_+    , _pciComplianceType = pComplianceType_+    , _pciExecutionSummary = pExecutionSummary_+    , _pciItems = mempty+    }   -- | MD5 or SHA-256 content hash. The content hash is used to determine if existing information should be overwritten or ignored. If the content hashes match, the request to put compliance information is ignored. pciItemContentHash :: Lens' PutComplianceItems (Maybe Text)-pciItemContentHash = lens _pciItemContentHash (\ s a -> s{_pciItemContentHash = a});+pciItemContentHash = lens _pciItemContentHash (\ s a -> s{_pciItemContentHash = a})  -- | Specify an ID for this resource. For a managed instance, this is the instance ID. pciResourceId :: Lens' PutComplianceItems Text-pciResourceId = lens _pciResourceId (\ s a -> s{_pciResourceId = a});+pciResourceId = lens _pciResourceId (\ s a -> s{_pciResourceId = a})  -- | Specify the type of resource. @ManagedInstance@ is currently the only supported resource type. pciResourceType :: Lens' PutComplianceItems Text-pciResourceType = lens _pciResourceType (\ s a -> s{_pciResourceType = a});+pciResourceType = lens _pciResourceType (\ s a -> s{_pciResourceType = a})  -- | Specify the compliance type. For example, specify Association (for a State Manager association), Patch, or Custom:@string@ . pciComplianceType :: Lens' PutComplianceItems Text-pciComplianceType = lens _pciComplianceType (\ s a -> s{_pciComplianceType = a});+pciComplianceType = lens _pciComplianceType (\ s a -> s{_pciComplianceType = a})  -- | A summary of the call execution that includes an execution ID, the type of execution (for example, @Command@ ), and the date/time of the execution using a datetime object that is saved in the following format: yyyy-MM-dd'T'HH:mm:ss'Z'. pciExecutionSummary :: Lens' PutComplianceItems ComplianceExecutionSummary-pciExecutionSummary = lens _pciExecutionSummary (\ s a -> s{_pciExecutionSummary = a});+pciExecutionSummary = lens _pciExecutionSummary (\ s a -> s{_pciExecutionSummary = a})  -- | Information about the compliance as defined by the resource type. For example, for a patch compliance type, @Items@ includes information about the PatchSeverity, Classification, etc. pciItems :: Lens' PutComplianceItems [ComplianceItemEntry]-pciItems = lens _pciItems (\ s a -> s{_pciItems = a}) . _Coerce;+pciItems = lens _pciItems (\ s a -> s{_pciItems = a}) . _Coerce  instance AWSRequest PutComplianceItems where         type Rs PutComplianceItems =@@ -174,6 +208,6 @@  -- | -- | The response status code. pcirsResponseStatus :: Lens' PutComplianceItemsResponse Int-pcirsResponseStatus = lens _pcirsResponseStatus (\ s a -> s{_pcirsResponseStatus = a});+pcirsResponseStatus = lens _pcirsResponseStatus (\ s a -> s{_pcirsResponseStatus = a})  instance NFData PutComplianceItemsResponse where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.SSM.PutInventory--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -34,6 +34,7 @@     , putInventoryResponse     , PutInventoryResponse     -- * Response Lenses+    , pirsMessage     , pirsResponseStatus     ) where @@ -68,19 +69,20 @@  -- | One or more instance IDs where you want to add or update inventory items. piInstanceId :: Lens' PutInventory Text-piInstanceId = lens _piInstanceId (\ s a -> s{_piInstanceId = a});+piInstanceId = lens _piInstanceId (\ s a -> s{_piInstanceId = a})  -- | The inventory items that you want to add or update on instances. piItems :: Lens' PutInventory (NonEmpty InventoryItem)-piItems = lens _piItems (\ s a -> s{_piItems = a}) . _List1;+piItems = lens _piItems (\ s a -> s{_piItems = a}) . _List1  instance AWSRequest PutInventory where         type Rs PutInventory = PutInventoryResponse         request = postJSON ssm         response-          = receiveEmpty+          = receiveJSON               (\ s h x ->-                 PutInventoryResponse' <$> (pure (fromEnum s)))+                 PutInventoryResponse' <$>+                   (x .?> "Message") <*> (pure (fromEnum s)))  instance Hashable PutInventory where @@ -109,8 +111,9 @@         toQuery = const mempty  -- | /See:/ 'putInventoryResponse' smart constructor.-newtype PutInventoryResponse = PutInventoryResponse'-  { _pirsResponseStatus :: Int+data PutInventoryResponse = PutInventoryResponse'+  { _pirsMessage        :: !(Maybe Text)+  , _pirsResponseStatus :: !Int   } deriving (Eq, Read, Show, Data, Typeable, Generic)  @@ -118,16 +121,23 @@ -- -- Use one of the following lenses to modify other fields as desired: --+-- * 'pirsMessage' - Information about the request.+-- -- * 'pirsResponseStatus' - -- | The response status code. putInventoryResponse     :: Int -- ^ 'pirsResponseStatus'     -> PutInventoryResponse putInventoryResponse pResponseStatus_ =-  PutInventoryResponse' {_pirsResponseStatus = pResponseStatus_}+  PutInventoryResponse'+    {_pirsMessage = Nothing, _pirsResponseStatus = pResponseStatus_}  +-- | Information about the request.+pirsMessage :: Lens' PutInventoryResponse (Maybe Text)+pirsMessage = lens _pirsMessage (\ s a -> s{_pirsMessage = a})+ -- | -- | The response status code. pirsResponseStatus :: Lens' PutInventoryResponse Int-pirsResponseStatus = lens _pirsResponseStatus (\ s a -> s{_pirsResponseStatus = a});+pirsResponseStatus = lens _pirsResponseStatus (\ s a -> s{_pirsResponseStatus = a})  instance NFData PutInventoryResponse where