diff --git a/README.md b/README.md --- a/README.md +++ b/README.md @@ -8,7 +8,7 @@ ## Version -`1.4.0` +`1.4.1` ## Description diff --git a/amazonka-opsworks.cabal b/amazonka-opsworks.cabal --- a/amazonka-opsworks.cabal +++ b/amazonka-opsworks.cabal @@ -1,5 +1,5 @@ name: amazonka-opsworks -version: 1.4.0 +version: 1.4.1 synopsis: Amazon OpsWorks SDK. homepage: https://github.com/brendanhay/amazonka bug-reports: https://github.com/brendanhay/amazonka/issues @@ -163,7 +163,7 @@ , Network.AWS.OpsWorks.Types.Sum build-depends: - amazonka-core == 1.4.0.* + amazonka-core == 1.4.1.* , base >= 4.7 && < 5 test-suite amazonka-opsworks-test @@ -183,9 +183,9 @@ , Test.AWS.OpsWorks.Internal build-depends: - amazonka-core == 1.4.0.* - , amazonka-test == 1.4.0.* - , amazonka-opsworks == 1.4.0.* + amazonka-core == 1.4.1.* + , amazonka-test == 1.4.1.* + , amazonka-opsworks == 1.4.1.* , base , bytestring , tasty diff --git a/gen/Network/AWS/OpsWorks.hs b/gen/Network/AWS/OpsWorks.hs --- a/gen/Network/AWS/OpsWorks.hs +++ b/gen/Network/AWS/OpsWorks.hs @@ -88,6 +88,9 @@ -- ** AppExists , appExists + -- ** InstanceRegistered + , instanceRegistered + -- * Operations -- $operations @@ -507,6 +510,7 @@ , iOS , iAvailabilityZone , iLastServiceErrorId + , iTenancy , iAutoScalingType , iLayerIds , iArchitecture diff --git a/gen/Network/AWS/OpsWorks/AssignInstance.hs b/gen/Network/AWS/OpsWorks/AssignInstance.hs --- a/gen/Network/AWS/OpsWorks/AssignInstance.hs +++ b/gen/Network/AWS/OpsWorks/AssignInstance.hs @@ -90,6 +90,8 @@ instance Hashable AssignInstance +instance NFData AssignInstance + instance ToHeaders AssignInstance where toHeaders = const @@ -122,3 +124,5 @@ assignInstanceResponse :: AssignInstanceResponse assignInstanceResponse = AssignInstanceResponse' + +instance NFData AssignInstanceResponse diff --git a/gen/Network/AWS/OpsWorks/AssignVolume.hs b/gen/Network/AWS/OpsWorks/AssignVolume.hs --- a/gen/Network/AWS/OpsWorks/AssignVolume.hs +++ b/gen/Network/AWS/OpsWorks/AssignVolume.hs @@ -88,6 +88,8 @@ instance Hashable AssignVolume +instance NFData AssignVolume + instance ToHeaders AssignVolume where toHeaders = const @@ -120,3 +122,5 @@ assignVolumeResponse :: AssignVolumeResponse assignVolumeResponse = AssignVolumeResponse' + +instance NFData AssignVolumeResponse diff --git a/gen/Network/AWS/OpsWorks/AssociateElasticIP.hs b/gen/Network/AWS/OpsWorks/AssociateElasticIP.hs --- a/gen/Network/AWS/OpsWorks/AssociateElasticIP.hs +++ b/gen/Network/AWS/OpsWorks/AssociateElasticIP.hs @@ -87,6 +87,8 @@ instance Hashable AssociateElasticIP +instance NFData AssociateElasticIP + instance ToHeaders AssociateElasticIP where toHeaders = const @@ -120,3 +122,5 @@ associateElasticIPResponse :: AssociateElasticIPResponse associateElasticIPResponse = AssociateElasticIPResponse' + +instance NFData AssociateElasticIPResponse diff --git a/gen/Network/AWS/OpsWorks/AttachElasticLoadBalancer.hs b/gen/Network/AWS/OpsWorks/AttachElasticLoadBalancer.hs --- a/gen/Network/AWS/OpsWorks/AttachElasticLoadBalancer.hs +++ b/gen/Network/AWS/OpsWorks/AttachElasticLoadBalancer.hs @@ -94,6 +94,8 @@ instance Hashable AttachElasticLoadBalancer +instance NFData AttachElasticLoadBalancer + instance ToHeaders AttachElasticLoadBalancer where toHeaders = const @@ -129,3 +131,5 @@ attachElasticLoadBalancerResponse :: AttachElasticLoadBalancerResponse attachElasticLoadBalancerResponse = AttachElasticLoadBalancerResponse' + +instance NFData AttachElasticLoadBalancerResponse diff --git a/gen/Network/AWS/OpsWorks/CloneStack.hs b/gen/Network/AWS/OpsWorks/CloneStack.hs --- a/gen/Network/AWS/OpsWorks/CloneStack.hs +++ b/gen/Network/AWS/OpsWorks/CloneStack.hs @@ -423,6 +423,8 @@ instance Hashable CloneStack +instance NFData CloneStack + instance ToHeaders CloneStack where toHeaders = const @@ -502,3 +504,5 @@ -- | The response status code. csrsResponseStatus :: Lens' CloneStackResponse Int csrsResponseStatus = lens _csrsResponseStatus (\ s a -> s{_csrsResponseStatus = a}); + +instance NFData CloneStackResponse diff --git a/gen/Network/AWS/OpsWorks/CreateApp.hs b/gen/Network/AWS/OpsWorks/CreateApp.hs --- a/gen/Network/AWS/OpsWorks/CreateApp.hs +++ b/gen/Network/AWS/OpsWorks/CreateApp.hs @@ -204,6 +204,8 @@ instance Hashable CreateApp +instance NFData CreateApp + instance ToHeaders CreateApp where toHeaders = const @@ -266,3 +268,5 @@ -- | The response status code. carsResponseStatus :: Lens' CreateAppResponse Int carsResponseStatus = lens _carsResponseStatus (\ s a -> s{_carsResponseStatus = a}); + +instance NFData CreateAppResponse diff --git a/gen/Network/AWS/OpsWorks/CreateDeployment.hs b/gen/Network/AWS/OpsWorks/CreateDeployment.hs --- a/gen/Network/AWS/OpsWorks/CreateDeployment.hs +++ b/gen/Network/AWS/OpsWorks/CreateDeployment.hs @@ -37,6 +37,7 @@ , cdCustomJSON , cdAppId , cdInstanceIds + , cdLayerIds , cdComment , cdStackId , cdCommand @@ -61,6 +62,7 @@ { _cdCustomJSON :: !(Maybe Text) , _cdAppId :: !(Maybe Text) , _cdInstanceIds :: !(Maybe [Text]) + , _cdLayerIds :: !(Maybe [Text]) , _cdComment :: !(Maybe Text) , _cdStackId :: !Text , _cdCommand :: !DeploymentCommand @@ -76,6 +78,8 @@ -- -- * 'cdInstanceIds' -- +-- * 'cdLayerIds' +-- -- * 'cdComment' -- -- * 'cdStackId' @@ -90,6 +94,7 @@ { _cdCustomJSON = Nothing , _cdAppId = Nothing , _cdInstanceIds = Nothing + , _cdLayerIds = Nothing , _cdComment = Nothing , _cdStackId = pStackId_ , _cdCommand = pCommand_ @@ -116,6 +121,10 @@ cdInstanceIds :: Lens' CreateDeployment [Text] cdInstanceIds = lens _cdInstanceIds (\ s a -> s{_cdInstanceIds = a}) . _Default . _Coerce; +-- | The layer IDs for the deployment targets. +cdLayerIds :: Lens' CreateDeployment [Text] +cdLayerIds = lens _cdLayerIds (\ s a -> s{_cdLayerIds = a}) . _Default . _Coerce; + -- | A user-defined comment. cdComment :: Lens' CreateDeployment (Maybe Text) cdComment = lens _cdComment (\ s a -> s{_cdComment = a}); @@ -140,6 +149,8 @@ instance Hashable CreateDeployment +instance NFData CreateDeployment + instance ToHeaders CreateDeployment where toHeaders = const @@ -156,6 +167,7 @@ [("CustomJson" .=) <$> _cdCustomJSON, ("AppId" .=) <$> _cdAppId, ("InstanceIds" .=) <$> _cdInstanceIds, + ("LayerIds" .=) <$> _cdLayerIds, ("Comment" .=) <$> _cdComment, Just ("StackId" .= _cdStackId), Just ("Command" .= _cdCommand)]) @@ -198,3 +210,5 @@ -- | The response status code. cdrsResponseStatus :: Lens' CreateDeploymentResponse Int cdrsResponseStatus = lens _cdrsResponseStatus (\ s a -> s{_cdrsResponseStatus = a}); + +instance NFData CreateDeploymentResponse diff --git a/gen/Network/AWS/OpsWorks/CreateInstance.hs b/gen/Network/AWS/OpsWorks/CreateInstance.hs --- a/gen/Network/AWS/OpsWorks/CreateInstance.hs +++ b/gen/Network/AWS/OpsWorks/CreateInstance.hs @@ -41,6 +41,7 @@ , ciEBSOptimized , ciOS , ciAvailabilityZone + , ciTenancy , ciAutoScalingType , ciArchitecture , ciAMIId @@ -76,6 +77,7 @@ , _ciEBSOptimized :: !(Maybe Bool) , _ciOS :: !(Maybe Text) , _ciAvailabilityZone :: !(Maybe Text) + , _ciTenancy :: !(Maybe Text) , _ciAutoScalingType :: !(Maybe AutoScalingType) , _ciArchitecture :: !(Maybe Architecture) , _ciAMIId :: !(Maybe Text) @@ -108,6 +110,8 @@ -- -- * 'ciAvailabilityZone' -- +-- * 'ciTenancy' +-- -- * 'ciAutoScalingType' -- -- * 'ciArchitecture' @@ -138,6 +142,7 @@ , _ciEBSOptimized = Nothing , _ciOS = Nothing , _ciAvailabilityZone = Nothing + , _ciTenancy = Nothing , _ciAutoScalingType = Nothing , _ciArchitecture = Nothing , _ciAMIId = Nothing @@ -225,6 +230,23 @@ ciAvailabilityZone :: Lens' CreateInstance (Maybe Text) ciAvailabilityZone = lens _ciAvailabilityZone (\ s a -> s{_ciAvailabilityZone = a}); +-- | The instance\'s tenancy option. The default option is no tenancy, or if +-- the instance is running in a VPC, inherit tenancy settings from the VPC. +-- The following are valid values for this parameter: 'dedicated', +-- 'default', or 'host'. Because there are costs associated with changes in +-- tenancy options, we recommend that you research tenancy options before +-- choosing them for your instances. For more information about dedicated +-- hosts, see +-- +-- and +-- . +-- For more information about dedicated instances, see +-- +-- and +-- . +ciTenancy :: Lens' CreateInstance (Maybe Text) +ciTenancy = lens _ciTenancy (\ s a -> s{_ciTenancy = a}); + -- | For load-based or time-based instances, the type. Windows stacks can use -- only time-based instances. ciAutoScalingType :: Lens' CreateInstance (Maybe AutoScalingType) @@ -287,6 +309,8 @@ instance Hashable CreateInstance +instance NFData CreateInstance + instance ToHeaders CreateInstance where toHeaders = const @@ -310,6 +334,7 @@ ("EbsOptimized" .=) <$> _ciEBSOptimized, ("Os" .=) <$> _ciOS, ("AvailabilityZone" .=) <$> _ciAvailabilityZone, + ("Tenancy" .=) <$> _ciTenancy, ("AutoScalingType" .=) <$> _ciAutoScalingType, ("Architecture" .=) <$> _ciArchitecture, ("AmiId" .=) <$> _ciAMIId, @@ -357,3 +382,5 @@ -- | The response status code. cirsResponseStatus :: Lens' CreateInstanceResponse Int cirsResponseStatus = lens _cirsResponseStatus (\ s a -> s{_cirsResponseStatus = a}); + +instance NFData CreateInstanceResponse diff --git a/gen/Network/AWS/OpsWorks/CreateLayer.hs b/gen/Network/AWS/OpsWorks/CreateLayer.hs --- a/gen/Network/AWS/OpsWorks/CreateLayer.hs +++ b/gen/Network/AWS/OpsWorks/CreateLayer.hs @@ -271,6 +271,8 @@ instance Hashable CreateLayer +instance NFData CreateLayer + instance ToHeaders CreateLayer where toHeaders = const @@ -346,3 +348,5 @@ -- | The response status code. clrsResponseStatus :: Lens' CreateLayerResponse Int clrsResponseStatus = lens _clrsResponseStatus (\ s a -> s{_clrsResponseStatus = a}); + +instance NFData CreateLayerResponse diff --git a/gen/Network/AWS/OpsWorks/CreateStack.hs b/gen/Network/AWS/OpsWorks/CreateStack.hs --- a/gen/Network/AWS/OpsWorks/CreateStack.hs +++ b/gen/Network/AWS/OpsWorks/CreateStack.hs @@ -386,6 +386,8 @@ instance Hashable CreateStack +instance NFData CreateStack + instance ToHeaders CreateStack where toHeaders = const @@ -464,3 +466,5 @@ -- | The response status code. crsResponseStatus :: Lens' CreateStackResponse Int crsResponseStatus = lens _crsResponseStatus (\ s a -> s{_crsResponseStatus = a}); + +instance NFData CreateStackResponse diff --git a/gen/Network/AWS/OpsWorks/CreateUserProfile.hs b/gen/Network/AWS/OpsWorks/CreateUserProfile.hs --- a/gen/Network/AWS/OpsWorks/CreateUserProfile.hs +++ b/gen/Network/AWS/OpsWorks/CreateUserProfile.hs @@ -113,6 +113,8 @@ instance Hashable CreateUserProfile +instance NFData CreateUserProfile + instance ToHeaders CreateUserProfile where toHeaders = const @@ -170,3 +172,5 @@ -- | The response status code. cuprsResponseStatus :: Lens' CreateUserProfileResponse Int cuprsResponseStatus = lens _cuprsResponseStatus (\ s a -> s{_cuprsResponseStatus = a}); + +instance NFData CreateUserProfileResponse diff --git a/gen/Network/AWS/OpsWorks/DeleteApp.hs b/gen/Network/AWS/OpsWorks/DeleteApp.hs --- a/gen/Network/AWS/OpsWorks/DeleteApp.hs +++ b/gen/Network/AWS/OpsWorks/DeleteApp.hs @@ -74,6 +74,8 @@ instance Hashable DeleteApp +instance NFData DeleteApp + instance ToHeaders DeleteApp where toHeaders = const @@ -103,3 +105,5 @@ deleteAppResponse :: DeleteAppResponse deleteAppResponse = DeleteAppResponse' + +instance NFData DeleteAppResponse diff --git a/gen/Network/AWS/OpsWorks/DeleteInstance.hs b/gen/Network/AWS/OpsWorks/DeleteInstance.hs --- a/gen/Network/AWS/OpsWorks/DeleteInstance.hs +++ b/gen/Network/AWS/OpsWorks/DeleteInstance.hs @@ -96,6 +96,8 @@ instance Hashable DeleteInstance +instance NFData DeleteInstance + instance ToHeaders DeleteInstance where toHeaders = const @@ -129,3 +131,5 @@ deleteInstanceResponse :: DeleteInstanceResponse deleteInstanceResponse = DeleteInstanceResponse' + +instance NFData DeleteInstanceResponse diff --git a/gen/Network/AWS/OpsWorks/DeleteLayer.hs b/gen/Network/AWS/OpsWorks/DeleteLayer.hs --- a/gen/Network/AWS/OpsWorks/DeleteLayer.hs +++ b/gen/Network/AWS/OpsWorks/DeleteLayer.hs @@ -77,6 +77,8 @@ instance Hashable DeleteLayer +instance NFData DeleteLayer + instance ToHeaders DeleteLayer where toHeaders = const @@ -106,3 +108,5 @@ deleteLayerResponse :: DeleteLayerResponse deleteLayerResponse = DeleteLayerResponse' + +instance NFData DeleteLayerResponse diff --git a/gen/Network/AWS/OpsWorks/DeleteStack.hs b/gen/Network/AWS/OpsWorks/DeleteStack.hs --- a/gen/Network/AWS/OpsWorks/DeleteStack.hs +++ b/gen/Network/AWS/OpsWorks/DeleteStack.hs @@ -76,6 +76,8 @@ instance Hashable DeleteStack +instance NFData DeleteStack + instance ToHeaders DeleteStack where toHeaders = const @@ -105,3 +107,5 @@ deleteStackResponse :: DeleteStackResponse deleteStackResponse = DeleteStackResponse' + +instance NFData DeleteStackResponse diff --git a/gen/Network/AWS/OpsWorks/DeleteUserProfile.hs b/gen/Network/AWS/OpsWorks/DeleteUserProfile.hs --- a/gen/Network/AWS/OpsWorks/DeleteUserProfile.hs +++ b/gen/Network/AWS/OpsWorks/DeleteUserProfile.hs @@ -73,6 +73,8 @@ instance Hashable DeleteUserProfile +instance NFData DeleteUserProfile + instance ToHeaders DeleteUserProfile where toHeaders = const @@ -104,3 +106,5 @@ deleteUserProfileResponse :: DeleteUserProfileResponse deleteUserProfileResponse = DeleteUserProfileResponse' + +instance NFData DeleteUserProfileResponse diff --git a/gen/Network/AWS/OpsWorks/DeregisterEcsCluster.hs b/gen/Network/AWS/OpsWorks/DeregisterEcsCluster.hs --- a/gen/Network/AWS/OpsWorks/DeregisterEcsCluster.hs +++ b/gen/Network/AWS/OpsWorks/DeregisterEcsCluster.hs @@ -77,6 +77,8 @@ instance Hashable DeregisterEcsCluster +instance NFData DeregisterEcsCluster + instance ToHeaders DeregisterEcsCluster where toHeaders = const @@ -109,3 +111,5 @@ deregisterEcsClusterResponse :: DeregisterEcsClusterResponse deregisterEcsClusterResponse = DeregisterEcsClusterResponse' + +instance NFData DeregisterEcsClusterResponse diff --git a/gen/Network/AWS/OpsWorks/DeregisterElasticIP.hs b/gen/Network/AWS/OpsWorks/DeregisterElasticIP.hs --- a/gen/Network/AWS/OpsWorks/DeregisterElasticIP.hs +++ b/gen/Network/AWS/OpsWorks/DeregisterElasticIP.hs @@ -77,6 +77,8 @@ instance Hashable DeregisterElasticIP +instance NFData DeregisterElasticIP + instance ToHeaders DeregisterElasticIP where toHeaders = const @@ -108,3 +110,5 @@ deregisterElasticIPResponse :: DeregisterElasticIPResponse deregisterElasticIPResponse = DeregisterElasticIPResponse' + +instance NFData DeregisterElasticIPResponse diff --git a/gen/Network/AWS/OpsWorks/DeregisterInstance.hs b/gen/Network/AWS/OpsWorks/DeregisterInstance.hs --- a/gen/Network/AWS/OpsWorks/DeregisterInstance.hs +++ b/gen/Network/AWS/OpsWorks/DeregisterInstance.hs @@ -78,6 +78,8 @@ instance Hashable DeregisterInstance +instance NFData DeregisterInstance + instance ToHeaders DeregisterInstance where toHeaders = const @@ -109,3 +111,5 @@ deregisterInstanceResponse :: DeregisterInstanceResponse deregisterInstanceResponse = DeregisterInstanceResponse' + +instance NFData DeregisterInstanceResponse diff --git a/gen/Network/AWS/OpsWorks/DeregisterRDSDBInstance.hs b/gen/Network/AWS/OpsWorks/DeregisterRDSDBInstance.hs --- a/gen/Network/AWS/OpsWorks/DeregisterRDSDBInstance.hs +++ b/gen/Network/AWS/OpsWorks/DeregisterRDSDBInstance.hs @@ -76,6 +76,8 @@ instance Hashable DeregisterRDSDBInstance +instance NFData DeregisterRDSDBInstance + instance ToHeaders DeregisterRDSDBInstance where toHeaders = const @@ -108,3 +110,5 @@ deregisterRDSDBInstanceResponse :: DeregisterRDSDBInstanceResponse deregisterRDSDBInstanceResponse = DeregisterRDSDBInstanceResponse' + +instance NFData DeregisterRDSDBInstanceResponse diff --git a/gen/Network/AWS/OpsWorks/DeregisterVolume.hs b/gen/Network/AWS/OpsWorks/DeregisterVolume.hs --- a/gen/Network/AWS/OpsWorks/DeregisterVolume.hs +++ b/gen/Network/AWS/OpsWorks/DeregisterVolume.hs @@ -78,6 +78,8 @@ instance Hashable DeregisterVolume +instance NFData DeregisterVolume + instance ToHeaders DeregisterVolume where toHeaders = const @@ -108,3 +110,5 @@ deregisterVolumeResponse :: DeregisterVolumeResponse deregisterVolumeResponse = DeregisterVolumeResponse' + +instance NFData DeregisterVolumeResponse diff --git a/gen/Network/AWS/OpsWorks/DescribeAgentVersions.hs b/gen/Network/AWS/OpsWorks/DescribeAgentVersions.hs --- a/gen/Network/AWS/OpsWorks/DescribeAgentVersions.hs +++ b/gen/Network/AWS/OpsWorks/DescribeAgentVersions.hs @@ -88,6 +88,8 @@ instance Hashable DescribeAgentVersions +instance NFData DescribeAgentVersions + instance ToHeaders DescribeAgentVersions where toHeaders = const @@ -145,3 +147,5 @@ -- | The response status code. davrsResponseStatus :: Lens' DescribeAgentVersionsResponse Int davrsResponseStatus = lens _davrsResponseStatus (\ s a -> s{_davrsResponseStatus = a}); + +instance NFData DescribeAgentVersionsResponse diff --git a/gen/Network/AWS/OpsWorks/DescribeApps.hs b/gen/Network/AWS/OpsWorks/DescribeApps.hs --- a/gen/Network/AWS/OpsWorks/DescribeApps.hs +++ b/gen/Network/AWS/OpsWorks/DescribeApps.hs @@ -94,6 +94,8 @@ instance Hashable DescribeApps +instance NFData DescribeApps + instance ToHeaders DescribeApps where toHeaders = const @@ -147,3 +149,5 @@ -- | The response status code. darsResponseStatus :: Lens' DescribeAppsResponse Int darsResponseStatus = lens _darsResponseStatus (\ s a -> s{_darsResponseStatus = a}); + +instance NFData DescribeAppsResponse diff --git a/gen/Network/AWS/OpsWorks/DescribeCommands.hs b/gen/Network/AWS/OpsWorks/DescribeCommands.hs --- a/gen/Network/AWS/OpsWorks/DescribeCommands.hs +++ b/gen/Network/AWS/OpsWorks/DescribeCommands.hs @@ -107,6 +107,8 @@ instance Hashable DescribeCommands +instance NFData DescribeCommands + instance ToHeaders DescribeCommands where toHeaders = const @@ -162,3 +164,5 @@ -- | The response status code. dcrsResponseStatus :: Lens' DescribeCommandsResponse Int dcrsResponseStatus = lens _dcrsResponseStatus (\ s a -> s{_dcrsResponseStatus = a}); + +instance NFData DescribeCommandsResponse diff --git a/gen/Network/AWS/OpsWorks/DescribeDeployments.hs b/gen/Network/AWS/OpsWorks/DescribeDeployments.hs --- a/gen/Network/AWS/OpsWorks/DescribeDeployments.hs +++ b/gen/Network/AWS/OpsWorks/DescribeDeployments.hs @@ -107,6 +107,8 @@ instance Hashable DescribeDeployments +instance NFData DescribeDeployments + instance ToHeaders DescribeDeployments where toHeaders = const @@ -162,3 +164,5 @@ -- | The response status code. ddrsResponseStatus :: Lens' DescribeDeploymentsResponse Int ddrsResponseStatus = lens _ddrsResponseStatus (\ s a -> s{_ddrsResponseStatus = a}); + +instance NFData DescribeDeploymentsResponse diff --git a/gen/Network/AWS/OpsWorks/DescribeEcsClusters.hs b/gen/Network/AWS/OpsWorks/DescribeEcsClusters.hs --- a/gen/Network/AWS/OpsWorks/DescribeEcsClusters.hs +++ b/gen/Network/AWS/OpsWorks/DescribeEcsClusters.hs @@ -125,6 +125,8 @@ instance Hashable DescribeEcsClusters +instance NFData DescribeEcsClusters + instance ToHeaders DescribeEcsClusters where toHeaders = const @@ -193,3 +195,5 @@ -- | The response status code. decrsResponseStatus :: Lens' DescribeEcsClustersResponse Int decrsResponseStatus = lens _decrsResponseStatus (\ s a -> s{_decrsResponseStatus = a}); + +instance NFData DescribeEcsClustersResponse diff --git a/gen/Network/AWS/OpsWorks/DescribeElasticIPs.hs b/gen/Network/AWS/OpsWorks/DescribeElasticIPs.hs --- a/gen/Network/AWS/OpsWorks/DescribeElasticIPs.hs +++ b/gen/Network/AWS/OpsWorks/DescribeElasticIPs.hs @@ -110,6 +110,8 @@ instance Hashable DescribeElasticIPs +instance NFData DescribeElasticIPs + instance ToHeaders DescribeElasticIPs where toHeaders = const @@ -166,3 +168,5 @@ -- | The response status code. deirsResponseStatus :: Lens' DescribeElasticIPsResponse Int deirsResponseStatus = lens _deirsResponseStatus (\ s a -> s{_deirsResponseStatus = a}); + +instance NFData DescribeElasticIPsResponse diff --git a/gen/Network/AWS/OpsWorks/DescribeElasticLoadBalancers.hs b/gen/Network/AWS/OpsWorks/DescribeElasticLoadBalancers.hs --- a/gen/Network/AWS/OpsWorks/DescribeElasticLoadBalancers.hs +++ b/gen/Network/AWS/OpsWorks/DescribeElasticLoadBalancers.hs @@ -96,6 +96,8 @@ instance Hashable DescribeElasticLoadBalancers +instance NFData DescribeElasticLoadBalancers + instance ToHeaders DescribeElasticLoadBalancers where toHeaders = const @@ -151,3 +153,5 @@ -- | The response status code. delbrsResponseStatus :: Lens' DescribeElasticLoadBalancersResponse Int delbrsResponseStatus = lens _delbrsResponseStatus (\ s a -> s{_delbrsResponseStatus = a}); + +instance NFData DescribeElasticLoadBalancersResponse diff --git a/gen/Network/AWS/OpsWorks/DescribeInstances.hs b/gen/Network/AWS/OpsWorks/DescribeInstances.hs --- a/gen/Network/AWS/OpsWorks/DescribeInstances.hs +++ b/gen/Network/AWS/OpsWorks/DescribeInstances.hs @@ -105,6 +105,8 @@ instance Hashable DescribeInstances +instance NFData DescribeInstances + instance ToHeaders DescribeInstances where toHeaders = const @@ -160,3 +162,5 @@ -- | The response status code. dirsResponseStatus :: Lens' DescribeInstancesResponse Int dirsResponseStatus = lens _dirsResponseStatus (\ s a -> s{_dirsResponseStatus = a}); + +instance NFData DescribeInstancesResponse diff --git a/gen/Network/AWS/OpsWorks/DescribeLayers.hs b/gen/Network/AWS/OpsWorks/DescribeLayers.hs --- a/gen/Network/AWS/OpsWorks/DescribeLayers.hs +++ b/gen/Network/AWS/OpsWorks/DescribeLayers.hs @@ -93,6 +93,8 @@ instance Hashable DescribeLayers +instance NFData DescribeLayers + instance ToHeaders DescribeLayers where toHeaders = const @@ -146,3 +148,5 @@ -- | The response status code. dlrsResponseStatus :: Lens' DescribeLayersResponse Int dlrsResponseStatus = lens _dlrsResponseStatus (\ s a -> s{_dlrsResponseStatus = a}); + +instance NFData DescribeLayersResponse diff --git a/gen/Network/AWS/OpsWorks/DescribeLoadBasedAutoScaling.hs b/gen/Network/AWS/OpsWorks/DescribeLoadBasedAutoScaling.hs --- a/gen/Network/AWS/OpsWorks/DescribeLoadBasedAutoScaling.hs +++ b/gen/Network/AWS/OpsWorks/DescribeLoadBasedAutoScaling.hs @@ -86,6 +86,8 @@ instance Hashable DescribeLoadBasedAutoScaling +instance NFData DescribeLoadBasedAutoScaling + instance ToHeaders DescribeLoadBasedAutoScaling where toHeaders = const @@ -139,3 +141,5 @@ -- | The response status code. dlbasrsResponseStatus :: Lens' DescribeLoadBasedAutoScalingResponse Int dlbasrsResponseStatus = lens _dlbasrsResponseStatus (\ s a -> s{_dlbasrsResponseStatus = a}); + +instance NFData DescribeLoadBasedAutoScalingResponse diff --git a/gen/Network/AWS/OpsWorks/DescribeMyUserProfile.hs b/gen/Network/AWS/OpsWorks/DescribeMyUserProfile.hs --- a/gen/Network/AWS/OpsWorks/DescribeMyUserProfile.hs +++ b/gen/Network/AWS/OpsWorks/DescribeMyUserProfile.hs @@ -68,6 +68,8 @@ instance Hashable DescribeMyUserProfile +instance NFData DescribeMyUserProfile + instance ToHeaders DescribeMyUserProfile where toHeaders = const @@ -118,3 +120,5 @@ -- | The response status code. dmuprsResponseStatus :: Lens' DescribeMyUserProfileResponse Int dmuprsResponseStatus = lens _dmuprsResponseStatus (\ s a -> s{_dmuprsResponseStatus = a}); + +instance NFData DescribeMyUserProfileResponse diff --git a/gen/Network/AWS/OpsWorks/DescribePermissions.hs b/gen/Network/AWS/OpsWorks/DescribePermissions.hs --- a/gen/Network/AWS/OpsWorks/DescribePermissions.hs +++ b/gen/Network/AWS/OpsWorks/DescribePermissions.hs @@ -92,6 +92,8 @@ instance Hashable DescribePermissions +instance NFData DescribePermissions + instance ToHeaders DescribePermissions where toHeaders = const @@ -155,3 +157,5 @@ -- | The response status code. dprsResponseStatus :: Lens' DescribePermissionsResponse Int dprsResponseStatus = lens _dprsResponseStatus (\ s a -> s{_dprsResponseStatus = a}); + +instance NFData DescribePermissionsResponse diff --git a/gen/Network/AWS/OpsWorks/DescribeRAIdArrays.hs b/gen/Network/AWS/OpsWorks/DescribeRAIdArrays.hs --- a/gen/Network/AWS/OpsWorks/DescribeRAIdArrays.hs +++ b/gen/Network/AWS/OpsWorks/DescribeRAIdArrays.hs @@ -105,6 +105,8 @@ instance Hashable DescribeRAIdArrays +instance NFData DescribeRAIdArrays + instance ToHeaders DescribeRAIdArrays where toHeaders = const @@ -160,3 +162,5 @@ -- | The response status code. draiarsResponseStatus :: Lens' DescribeRAIdArraysResponse Int draiarsResponseStatus = lens _draiarsResponseStatus (\ s a -> s{_draiarsResponseStatus = a}); + +instance NFData DescribeRAIdArraysResponse diff --git a/gen/Network/AWS/OpsWorks/DescribeRDSDBInstances.hs b/gen/Network/AWS/OpsWorks/DescribeRDSDBInstances.hs --- a/gen/Network/AWS/OpsWorks/DescribeRDSDBInstances.hs +++ b/gen/Network/AWS/OpsWorks/DescribeRDSDBInstances.hs @@ -93,6 +93,8 @@ instance Hashable DescribeRDSDBInstances +instance NFData DescribeRDSDBInstances + instance ToHeaders DescribeRDSDBInstances where toHeaders = const @@ -147,3 +149,5 @@ -- | The response status code. drdirsResponseStatus :: Lens' DescribeRDSDBInstancesResponse Int drdirsResponseStatus = lens _drdirsResponseStatus (\ s a -> s{_drdirsResponseStatus = a}); + +instance NFData DescribeRDSDBInstancesResponse diff --git a/gen/Network/AWS/OpsWorks/DescribeServiceErrors.hs b/gen/Network/AWS/OpsWorks/DescribeServiceErrors.hs --- a/gen/Network/AWS/OpsWorks/DescribeServiceErrors.hs +++ b/gen/Network/AWS/OpsWorks/DescribeServiceErrors.hs @@ -105,6 +105,8 @@ instance Hashable DescribeServiceErrors +instance NFData DescribeServiceErrors + instance ToHeaders DescribeServiceErrors where toHeaders = const @@ -161,3 +163,5 @@ -- | The response status code. dsersResponseStatus :: Lens' DescribeServiceErrorsResponse Int dsersResponseStatus = lens _dsersResponseStatus (\ s a -> s{_dsersResponseStatus = a}); + +instance NFData DescribeServiceErrorsResponse diff --git a/gen/Network/AWS/OpsWorks/DescribeStackProvisioningParameters.hs b/gen/Network/AWS/OpsWorks/DescribeStackProvisioningParameters.hs --- a/gen/Network/AWS/OpsWorks/DescribeStackProvisioningParameters.hs +++ b/gen/Network/AWS/OpsWorks/DescribeStackProvisioningParameters.hs @@ -86,6 +86,8 @@ instance Hashable DescribeStackProvisioningParameters +instance NFData DescribeStackProvisioningParameters + instance ToHeaders DescribeStackProvisioningParameters where toHeaders @@ -151,3 +153,6 @@ -- | The response status code. dspprsResponseStatus :: Lens' DescribeStackProvisioningParametersResponse Int dspprsResponseStatus = lens _dspprsResponseStatus (\ s a -> s{_dspprsResponseStatus = a}); + +instance NFData + DescribeStackProvisioningParametersResponse diff --git a/gen/Network/AWS/OpsWorks/DescribeStackSummary.hs b/gen/Network/AWS/OpsWorks/DescribeStackSummary.hs --- a/gen/Network/AWS/OpsWorks/DescribeStackSummary.hs +++ b/gen/Network/AWS/OpsWorks/DescribeStackSummary.hs @@ -83,6 +83,8 @@ instance Hashable DescribeStackSummary +instance NFData DescribeStackSummary + instance ToHeaders DescribeStackSummary where toHeaders = const @@ -135,3 +137,5 @@ -- | The response status code. dssrsResponseStatus :: Lens' DescribeStackSummaryResponse Int dssrsResponseStatus = lens _dssrsResponseStatus (\ s a -> s{_dssrsResponseStatus = a}); + +instance NFData DescribeStackSummaryResponse diff --git a/gen/Network/AWS/OpsWorks/DescribeStacks.hs b/gen/Network/AWS/OpsWorks/DescribeStacks.hs --- a/gen/Network/AWS/OpsWorks/DescribeStacks.hs +++ b/gen/Network/AWS/OpsWorks/DescribeStacks.hs @@ -82,6 +82,8 @@ instance Hashable DescribeStacks +instance NFData DescribeStacks + instance ToHeaders DescribeStacks where toHeaders = const @@ -133,3 +135,5 @@ -- | The response status code. dsrsResponseStatus :: Lens' DescribeStacksResponse Int dsrsResponseStatus = lens _dsrsResponseStatus (\ s a -> s{_dsrsResponseStatus = a}); + +instance NFData DescribeStacksResponse diff --git a/gen/Network/AWS/OpsWorks/DescribeTimeBasedAutoScaling.hs b/gen/Network/AWS/OpsWorks/DescribeTimeBasedAutoScaling.hs --- a/gen/Network/AWS/OpsWorks/DescribeTimeBasedAutoScaling.hs +++ b/gen/Network/AWS/OpsWorks/DescribeTimeBasedAutoScaling.hs @@ -87,6 +87,8 @@ instance Hashable DescribeTimeBasedAutoScaling +instance NFData DescribeTimeBasedAutoScaling + instance ToHeaders DescribeTimeBasedAutoScaling where toHeaders = const @@ -141,3 +143,5 @@ -- | The response status code. dtbasrsResponseStatus :: Lens' DescribeTimeBasedAutoScalingResponse Int dtbasrsResponseStatus = lens _dtbasrsResponseStatus (\ s a -> s{_dtbasrsResponseStatus = a}); + +instance NFData DescribeTimeBasedAutoScalingResponse diff --git a/gen/Network/AWS/OpsWorks/DescribeUserProfiles.hs b/gen/Network/AWS/OpsWorks/DescribeUserProfiles.hs --- a/gen/Network/AWS/OpsWorks/DescribeUserProfiles.hs +++ b/gen/Network/AWS/OpsWorks/DescribeUserProfiles.hs @@ -81,6 +81,8 @@ instance Hashable DescribeUserProfiles +instance NFData DescribeUserProfiles + instance ToHeaders DescribeUserProfiles where toHeaders = const @@ -133,3 +135,5 @@ -- | The response status code. duprsResponseStatus :: Lens' DescribeUserProfilesResponse Int duprsResponseStatus = lens _duprsResponseStatus (\ s a -> s{_duprsResponseStatus = a}); + +instance NFData DescribeUserProfilesResponse diff --git a/gen/Network/AWS/OpsWorks/DescribeVolumes.hs b/gen/Network/AWS/OpsWorks/DescribeVolumes.hs --- a/gen/Network/AWS/OpsWorks/DescribeVolumes.hs +++ b/gen/Network/AWS/OpsWorks/DescribeVolumes.hs @@ -114,6 +114,8 @@ instance Hashable DescribeVolumes +instance NFData DescribeVolumes + instance ToHeaders DescribeVolumes where toHeaders = const @@ -169,3 +171,5 @@ -- | The response status code. dvrsResponseStatus :: Lens' DescribeVolumesResponse Int dvrsResponseStatus = lens _dvrsResponseStatus (\ s a -> s{_dvrsResponseStatus = a}); + +instance NFData DescribeVolumesResponse diff --git a/gen/Network/AWS/OpsWorks/DetachElasticLoadBalancer.hs b/gen/Network/AWS/OpsWorks/DetachElasticLoadBalancer.hs --- a/gen/Network/AWS/OpsWorks/DetachElasticLoadBalancer.hs +++ b/gen/Network/AWS/OpsWorks/DetachElasticLoadBalancer.hs @@ -87,6 +87,8 @@ instance Hashable DetachElasticLoadBalancer +instance NFData DetachElasticLoadBalancer + instance ToHeaders DetachElasticLoadBalancer where toHeaders = const @@ -122,3 +124,5 @@ detachElasticLoadBalancerResponse :: DetachElasticLoadBalancerResponse detachElasticLoadBalancerResponse = DetachElasticLoadBalancerResponse' + +instance NFData DetachElasticLoadBalancerResponse diff --git a/gen/Network/AWS/OpsWorks/DisassociateElasticIP.hs b/gen/Network/AWS/OpsWorks/DisassociateElasticIP.hs --- a/gen/Network/AWS/OpsWorks/DisassociateElasticIP.hs +++ b/gen/Network/AWS/OpsWorks/DisassociateElasticIP.hs @@ -77,6 +77,8 @@ instance Hashable DisassociateElasticIP +instance NFData DisassociateElasticIP + instance ToHeaders DisassociateElasticIP where toHeaders = const @@ -108,3 +110,5 @@ disassociateElasticIPResponse :: DisassociateElasticIPResponse disassociateElasticIPResponse = DisassociateElasticIPResponse' + +instance NFData DisassociateElasticIPResponse diff --git a/gen/Network/AWS/OpsWorks/GetHostnameSuggestion.hs b/gen/Network/AWS/OpsWorks/GetHostnameSuggestion.hs --- a/gen/Network/AWS/OpsWorks/GetHostnameSuggestion.hs +++ b/gen/Network/AWS/OpsWorks/GetHostnameSuggestion.hs @@ -85,6 +85,8 @@ instance Hashable GetHostnameSuggestion +instance NFData GetHostnameSuggestion + instance ToHeaders GetHostnameSuggestion where toHeaders = const @@ -145,3 +147,5 @@ -- | The response status code. ghsrsResponseStatus :: Lens' GetHostnameSuggestionResponse Int ghsrsResponseStatus = lens _ghsrsResponseStatus (\ s a -> s{_ghsrsResponseStatus = a}); + +instance NFData GetHostnameSuggestionResponse diff --git a/gen/Network/AWS/OpsWorks/GrantAccess.hs b/gen/Network/AWS/OpsWorks/GrantAccess.hs --- a/gen/Network/AWS/OpsWorks/GrantAccess.hs +++ b/gen/Network/AWS/OpsWorks/GrantAccess.hs @@ -90,6 +90,8 @@ instance Hashable GrantAccess +instance NFData GrantAccess + instance ToHeaders GrantAccess where toHeaders = const @@ -145,3 +147,5 @@ -- | The response status code. garsResponseStatus :: Lens' GrantAccessResponse Int garsResponseStatus = lens _garsResponseStatus (\ s a -> s{_garsResponseStatus = a}); + +instance NFData GrantAccessResponse diff --git a/gen/Network/AWS/OpsWorks/RebootInstance.hs b/gen/Network/AWS/OpsWorks/RebootInstance.hs --- a/gen/Network/AWS/OpsWorks/RebootInstance.hs +++ b/gen/Network/AWS/OpsWorks/RebootInstance.hs @@ -75,6 +75,8 @@ instance Hashable RebootInstance +instance NFData RebootInstance + instance ToHeaders RebootInstance where toHeaders = const @@ -105,3 +107,5 @@ rebootInstanceResponse :: RebootInstanceResponse rebootInstanceResponse = RebootInstanceResponse' + +instance NFData RebootInstanceResponse diff --git a/gen/Network/AWS/OpsWorks/RegisterEcsCluster.hs b/gen/Network/AWS/OpsWorks/RegisterEcsCluster.hs --- a/gen/Network/AWS/OpsWorks/RegisterEcsCluster.hs +++ b/gen/Network/AWS/OpsWorks/RegisterEcsCluster.hs @@ -95,6 +95,8 @@ instance Hashable RegisterEcsCluster +instance NFData RegisterEcsCluster + instance ToHeaders RegisterEcsCluster where toHeaders = const @@ -149,3 +151,5 @@ -- | The response status code. recrsResponseStatus :: Lens' RegisterEcsClusterResponse Int recrsResponseStatus = lens _recrsResponseStatus (\ s a -> s{_recrsResponseStatus = a}); + +instance NFData RegisterEcsClusterResponse diff --git a/gen/Network/AWS/OpsWorks/RegisterElasticIP.hs b/gen/Network/AWS/OpsWorks/RegisterElasticIP.hs --- a/gen/Network/AWS/OpsWorks/RegisterElasticIP.hs +++ b/gen/Network/AWS/OpsWorks/RegisterElasticIP.hs @@ -95,6 +95,8 @@ instance Hashable RegisterElasticIP +instance NFData RegisterElasticIP + instance ToHeaders RegisterElasticIP where toHeaders = const @@ -149,3 +151,5 @@ -- | The response status code. reirsResponseStatus :: Lens' RegisterElasticIPResponse Int reirsResponseStatus = lens _reirsResponseStatus (\ s a -> s{_reirsResponseStatus = a}); + +instance NFData RegisterElasticIPResponse diff --git a/gen/Network/AWS/OpsWorks/RegisterInstance.hs b/gen/Network/AWS/OpsWorks/RegisterInstance.hs --- a/gen/Network/AWS/OpsWorks/RegisterInstance.hs +++ b/gen/Network/AWS/OpsWorks/RegisterInstance.hs @@ -145,6 +145,8 @@ instance Hashable RegisterInstance +instance NFData RegisterInstance + instance ToHeaders RegisterInstance where toHeaders = const @@ -204,3 +206,5 @@ -- | The response status code. rirsResponseStatus :: Lens' RegisterInstanceResponse Int rirsResponseStatus = lens _rirsResponseStatus (\ s a -> s{_rirsResponseStatus = a}); + +instance NFData RegisterInstanceResponse diff --git a/gen/Network/AWS/OpsWorks/RegisterRDSDBInstance.hs b/gen/Network/AWS/OpsWorks/RegisterRDSDBInstance.hs --- a/gen/Network/AWS/OpsWorks/RegisterRDSDBInstance.hs +++ b/gen/Network/AWS/OpsWorks/RegisterRDSDBInstance.hs @@ -105,6 +105,8 @@ instance Hashable RegisterRDSDBInstance +instance NFData RegisterRDSDBInstance + instance ToHeaders RegisterRDSDBInstance where toHeaders = const @@ -140,3 +142,5 @@ registerRDSDBInstanceResponse :: RegisterRDSDBInstanceResponse registerRDSDBInstanceResponse = RegisterRDSDBInstanceResponse' + +instance NFData RegisterRDSDBInstanceResponse diff --git a/gen/Network/AWS/OpsWorks/RegisterVolume.hs b/gen/Network/AWS/OpsWorks/RegisterVolume.hs --- a/gen/Network/AWS/OpsWorks/RegisterVolume.hs +++ b/gen/Network/AWS/OpsWorks/RegisterVolume.hs @@ -94,6 +94,8 @@ instance Hashable RegisterVolume +instance NFData RegisterVolume + instance ToHeaders RegisterVolume where toHeaders = const @@ -147,3 +149,5 @@ -- | The response status code. rvrsResponseStatus :: Lens' RegisterVolumeResponse Int rvrsResponseStatus = lens _rvrsResponseStatus (\ s a -> s{_rvrsResponseStatus = a}); + +instance NFData RegisterVolumeResponse diff --git a/gen/Network/AWS/OpsWorks/SetLoadBasedAutoScaling.hs b/gen/Network/AWS/OpsWorks/SetLoadBasedAutoScaling.hs --- a/gen/Network/AWS/OpsWorks/SetLoadBasedAutoScaling.hs +++ b/gen/Network/AWS/OpsWorks/SetLoadBasedAutoScaling.hs @@ -114,6 +114,8 @@ instance Hashable SetLoadBasedAutoScaling +instance NFData SetLoadBasedAutoScaling + instance ToHeaders SetLoadBasedAutoScaling where toHeaders = const @@ -149,3 +151,5 @@ setLoadBasedAutoScalingResponse :: SetLoadBasedAutoScalingResponse setLoadBasedAutoScalingResponse = SetLoadBasedAutoScalingResponse' + +instance NFData SetLoadBasedAutoScalingResponse diff --git a/gen/Network/AWS/OpsWorks/SetPermission.hs b/gen/Network/AWS/OpsWorks/SetPermission.hs --- a/gen/Network/AWS/OpsWorks/SetPermission.hs +++ b/gen/Network/AWS/OpsWorks/SetPermission.hs @@ -123,6 +123,8 @@ instance Hashable SetPermission +instance NFData SetPermission + instance ToHeaders SetPermission where toHeaders = const @@ -158,3 +160,5 @@ setPermissionResponse :: SetPermissionResponse setPermissionResponse = SetPermissionResponse' + +instance NFData SetPermissionResponse diff --git a/gen/Network/AWS/OpsWorks/SetTimeBasedAutoScaling.hs b/gen/Network/AWS/OpsWorks/SetTimeBasedAutoScaling.hs --- a/gen/Network/AWS/OpsWorks/SetTimeBasedAutoScaling.hs +++ b/gen/Network/AWS/OpsWorks/SetTimeBasedAutoScaling.hs @@ -87,6 +87,8 @@ instance Hashable SetTimeBasedAutoScaling +instance NFData SetTimeBasedAutoScaling + instance ToHeaders SetTimeBasedAutoScaling where toHeaders = const @@ -121,3 +123,5 @@ setTimeBasedAutoScalingResponse :: SetTimeBasedAutoScalingResponse setTimeBasedAutoScalingResponse = SetTimeBasedAutoScalingResponse' + +instance NFData SetTimeBasedAutoScalingResponse diff --git a/gen/Network/AWS/OpsWorks/StartInstance.hs b/gen/Network/AWS/OpsWorks/StartInstance.hs --- a/gen/Network/AWS/OpsWorks/StartInstance.hs +++ b/gen/Network/AWS/OpsWorks/StartInstance.hs @@ -75,6 +75,8 @@ instance Hashable StartInstance +instance NFData StartInstance + instance ToHeaders StartInstance where toHeaders = const @@ -105,3 +107,5 @@ startInstanceResponse :: StartInstanceResponse startInstanceResponse = StartInstanceResponse' + +instance NFData StartInstanceResponse diff --git a/gen/Network/AWS/OpsWorks/StartStack.hs b/gen/Network/AWS/OpsWorks/StartStack.hs --- a/gen/Network/AWS/OpsWorks/StartStack.hs +++ b/gen/Network/AWS/OpsWorks/StartStack.hs @@ -74,6 +74,8 @@ instance Hashable StartStack +instance NFData StartStack + instance ToHeaders StartStack where toHeaders = const @@ -104,3 +106,5 @@ startStackResponse :: StartStackResponse startStackResponse = StartStackResponse' + +instance NFData StartStackResponse diff --git a/gen/Network/AWS/OpsWorks/StopInstance.hs b/gen/Network/AWS/OpsWorks/StopInstance.hs --- a/gen/Network/AWS/OpsWorks/StopInstance.hs +++ b/gen/Network/AWS/OpsWorks/StopInstance.hs @@ -78,6 +78,8 @@ instance Hashable StopInstance +instance NFData StopInstance + instance ToHeaders StopInstance where toHeaders = const @@ -108,3 +110,5 @@ stopInstanceResponse :: StopInstanceResponse stopInstanceResponse = StopInstanceResponse' + +instance NFData StopInstanceResponse diff --git a/gen/Network/AWS/OpsWorks/StopStack.hs b/gen/Network/AWS/OpsWorks/StopStack.hs --- a/gen/Network/AWS/OpsWorks/StopStack.hs +++ b/gen/Network/AWS/OpsWorks/StopStack.hs @@ -74,6 +74,8 @@ instance Hashable StopStack +instance NFData StopStack + instance ToHeaders StopStack where toHeaders = const @@ -104,3 +106,5 @@ stopStackResponse :: StopStackResponse stopStackResponse = StopStackResponse' + +instance NFData StopStackResponse diff --git a/gen/Network/AWS/OpsWorks/Types.hs b/gen/Network/AWS/OpsWorks/Types.hs --- a/gen/Network/AWS/OpsWorks/Types.hs +++ b/gen/Network/AWS/OpsWorks/Types.hs @@ -223,6 +223,7 @@ , iOS , iAvailabilityZone , iLastServiceErrorId + , iTenancy , iAutoScalingType , iLayerIds , iArchitecture @@ -536,6 +537,8 @@ | has (hasCode "ThrottlingException" . hasStatus 400) e = Just "throttling_exception" | has (hasCode "Throttling" . hasStatus 400) e = Just "throttling" + | has (hasStatus 504) e = Just "gateway_timeout" + | has (hasStatus 502) e = Just "bad_gateway" | has (hasStatus 503) e = Just "service_unavailable" | has (hasStatus 500) e = Just "general_server_error" | has (hasStatus 509) e = Just "limit_exceeded" diff --git a/gen/Network/AWS/OpsWorks/Types/Product.hs b/gen/Network/AWS/OpsWorks/Types/Product.hs --- a/gen/Network/AWS/OpsWorks/Types/Product.hs +++ b/gen/Network/AWS/OpsWorks/Types/Product.hs @@ -61,6 +61,8 @@ instance Hashable AgentVersion +instance NFData AgentVersion + -- | A description of the app. -- -- /See:/ 'app' smart constructor. @@ -222,6 +224,8 @@ instance Hashable App +instance NFData App + -- | Describes a load-based auto scaling upscaling or downscaling threshold -- configuration, which specifies when AWS OpsWorks starts or stops -- load-based instances. @@ -331,6 +335,8 @@ instance Hashable AutoScalingThresholds +instance NFData AutoScalingThresholds + instance ToJSON AutoScalingThresholds where toJSON AutoScalingThresholds'{..} = object @@ -410,6 +416,8 @@ instance Hashable BlockDeviceMapping +instance NFData BlockDeviceMapping + instance ToJSON BlockDeviceMapping where toJSON BlockDeviceMapping'{..} = object @@ -460,6 +468,8 @@ instance Hashable ChefConfiguration +instance NFData ChefConfiguration + instance ToJSON ChefConfiguration where toJSON ChefConfiguration'{..} = object @@ -595,6 +605,8 @@ instance Hashable Command +instance NFData Command + -- | Describes an app\'s data source. -- -- /See:/ 'dataSource' smart constructor. @@ -645,6 +657,8 @@ instance Hashable DataSource +instance NFData DataSource + instance ToJSON DataSource where toJSON DataSource'{..} = object @@ -795,6 +809,8 @@ instance Hashable Deployment +instance NFData Deployment + -- | Used to specify a stack or deployment command. -- -- /See:/ 'deploymentCommand' smart constructor. @@ -884,6 +900,8 @@ instance Hashable DeploymentCommand +instance NFData DeploymentCommand + instance ToJSON DeploymentCommand where toJSON DeploymentCommand'{..} = object @@ -965,6 +983,8 @@ instance Hashable EBSBlockDevice +instance NFData EBSBlockDevice + instance ToJSON EBSBlockDevice where toJSON EBSBlockDevice'{..} = object @@ -1034,6 +1054,8 @@ instance Hashable EcsCluster +instance NFData EcsCluster + -- | Describes an Elastic IP address. -- -- /See:/ 'elasticIP' smart constructor. @@ -1102,6 +1124,8 @@ instance Hashable ElasticIP +instance NFData ElasticIP + -- | Describes an Elastic Load Balancing instance. -- -- /See:/ 'elasticLoadBalancer' smart constructor. @@ -1206,6 +1230,8 @@ instance Hashable ElasticLoadBalancer +instance NFData ElasticLoadBalancer + -- | Represents an app\'s environment variable. -- -- /See:/ 'environmentVariable' smart constructor. @@ -1264,6 +1290,8 @@ instance Hashable EnvironmentVariable +instance NFData EnvironmentVariable + instance ToJSON EnvironmentVariable where toJSON EnvironmentVariable'{..} = object @@ -1302,6 +1330,7 @@ , _iOS :: !(Maybe Text) , _iAvailabilityZone :: !(Maybe Text) , _iLastServiceErrorId :: !(Maybe Text) + , _iTenancy :: !(Maybe Text) , _iAutoScalingType :: !(Maybe AutoScalingType) , _iLayerIds :: !(Maybe [Text]) , _iArchitecture :: !(Maybe Architecture) @@ -1374,6 +1403,8 @@ -- -- * 'iLastServiceErrorId' -- +-- * 'iTenancy' +-- -- * 'iAutoScalingType' -- -- * 'iLayerIds' @@ -1428,6 +1459,7 @@ , _iOS = Nothing , _iAvailabilityZone = Nothing , _iLastServiceErrorId = Nothing + , _iTenancy = Nothing , _iAutoScalingType = Nothing , _iLayerIds = Nothing , _iArchitecture = Nothing @@ -1582,6 +1614,10 @@ iLastServiceErrorId :: Lens' Instance (Maybe Text) iLastServiceErrorId = lens _iLastServiceErrorId (\ s a -> s{_iLastServiceErrorId = a}); +-- | The instance\'s tenancy option, such as 'dedicated' or 'host'. +iTenancy :: Lens' Instance (Maybe Text) +iTenancy = lens _iTenancy (\ s a -> s{_iTenancy = a}); + -- | For load-based or time-based instances, the type. iAutoScalingType :: Lens' Instance (Maybe AutoScalingType) iAutoScalingType = lens _iAutoScalingType (\ s a -> s{_iAutoScalingType = a}); @@ -1666,6 +1702,7 @@ <*> (x .:? "Os") <*> (x .:? "AvailabilityZone") <*> (x .:? "LastServiceErrorId") + <*> (x .:? "Tenancy") <*> (x .:? "AutoScalingType") <*> (x .:? "LayerIds" .!= mempty) <*> (x .:? "Architecture") @@ -1681,6 +1718,8 @@ instance Hashable Instance +instance NFData Instance + -- | Contains a description of an Amazon EC2 instance from the Amazon EC2 -- metadata service. For more information, see -- . @@ -1717,6 +1756,8 @@ instance Hashable InstanceIdentity +instance NFData InstanceIdentity + instance ToJSON InstanceIdentity where toJSON InstanceIdentity'{..} = object @@ -1917,6 +1958,8 @@ instance Hashable InstancesCount +instance NFData InstancesCount + -- | Describes a layer. -- -- /See:/ 'layer' smart constructor. @@ -2155,6 +2198,8 @@ instance Hashable Layer +instance NFData Layer + -- | Specifies the lifecycle event configuration -- -- /See:/ 'lifecycleEventConfiguration' smart constructor. @@ -2187,6 +2232,8 @@ instance Hashable LifecycleEventConfiguration +instance NFData LifecycleEventConfiguration + instance ToJSON LifecycleEventConfiguration where toJSON LifecycleEventConfiguration'{..} = object @@ -2255,6 +2302,8 @@ instance Hashable LoadBasedAutoScalingConfiguration +instance NFData LoadBasedAutoScalingConfiguration + -- | Describes stack or user permissions. -- -- /See:/ 'permission' smart constructor. @@ -2334,6 +2383,8 @@ instance Hashable Permission +instance NFData Permission + -- | Describes an instance\'s RAID array. -- -- /See:/ 'rAIdArray' smart constructor. @@ -2474,6 +2525,8 @@ instance Hashable RAIdArray +instance NFData RAIdArray + -- | Describes an Amazon RDS instance. -- -- /See:/ 'rdsDBInstance' smart constructor. @@ -2580,6 +2633,8 @@ instance Hashable RDSDBInstance +instance NFData RDSDBInstance + -- | AWS OpsWorks supports five lifecycle events: __setup__, -- __configuration__, __deploy__, __undeploy__, and __shutdown__. For each -- layer, AWS OpsWorks runs a set of standard recipes for each event. In @@ -2660,6 +2715,8 @@ instance Hashable Recipes +instance NFData Recipes + instance ToJSON Recipes where toJSON Recipes'{..} = object @@ -2719,6 +2776,8 @@ instance Hashable ReportedOS +instance NFData ReportedOS + -- | Describes an app\'s SSL configuration. -- -- /See:/ 'sslConfiguration' smart constructor. @@ -2771,6 +2830,8 @@ instance Hashable SSLConfiguration +instance NFData SSLConfiguration + instance ToJSON SSLConfiguration where toJSON SSLConfiguration'{..} = object @@ -2837,6 +2898,8 @@ instance Hashable SelfUserProfile +instance NFData SelfUserProfile + -- | Describes an AWS OpsWorks service error. -- -- /See:/ 'serviceError'' smart constructor. @@ -2913,6 +2976,8 @@ instance Hashable ServiceError' +instance NFData ServiceError' + -- | The Shutdown event configuration. -- -- /See:/ 'shutdownEventConfiguration' smart constructor. @@ -2957,6 +3022,8 @@ instance Hashable ShutdownEventConfiguration +instance NFData ShutdownEventConfiguration + instance ToJSON ShutdownEventConfiguration where toJSON ShutdownEventConfiguration'{..} = object @@ -3068,6 +3135,8 @@ instance Hashable Source +instance NFData Source + instance ToJSON Source where toJSON Source'{..} = object @@ -3322,6 +3391,8 @@ instance Hashable Stack +instance NFData Stack + -- | Describes the configuration manager. -- -- /See:/ 'stackConfigurationManager' smart constructor. @@ -3364,6 +3435,8 @@ instance Hashable StackConfigurationManager +instance NFData StackConfigurationManager + instance ToJSON StackConfigurationManager where toJSON StackConfigurationManager'{..} = object @@ -3447,6 +3520,8 @@ instance Hashable StackSummary +instance NFData StackSummary + -- | Contains the data needed by RDP clients such as the Microsoft Remote -- Desktop Connection to log in to the instance. -- @@ -3509,6 +3584,8 @@ instance Hashable TemporaryCredential +instance NFData TemporaryCredential + -- | Describes an instance\'s time-based auto scaling configuration. -- -- /See:/ 'timeBasedAutoScalingConfiguration' smart constructor. @@ -3551,6 +3628,8 @@ instance Hashable TimeBasedAutoScalingConfiguration +instance NFData TimeBasedAutoScalingConfiguration + -- | Describes a user\'s SSH information. -- -- /See:/ 'userProfile' smart constructor. @@ -3621,6 +3700,8 @@ instance Hashable UserProfile +instance NFData UserProfile + -- | Describes an instance\'s Amazon EBS volume. -- -- /See:/ 'volume' smart constructor. @@ -3739,7 +3820,7 @@ vEC2VolumeId :: Lens' Volume (Maybe Text) vEC2VolumeId = lens _vEC2VolumeId (\ s a -> s{_vEC2VolumeId = a}); --- | The volume mount point. For example \"\/dev\/sdh\". +-- | The volume mount point. For example, \"\/mnt\/disk1\". vMountPoint :: Lens' Volume (Maybe Text) vMountPoint = lens _vMountPoint (\ s a -> s{_vMountPoint = a}); @@ -3763,6 +3844,8 @@ instance Hashable Volume +instance NFData Volume + -- | Describes an Amazon EBS volume configuration. -- -- /See:/ 'volumeConfiguration' smart constructor. @@ -3847,6 +3930,8 @@ instance Hashable VolumeConfiguration +instance NFData VolumeConfiguration + instance ToJSON VolumeConfiguration where toJSON VolumeConfiguration'{..} = object @@ -3960,6 +4045,8 @@ <*> (x .:? "Tuesday" .!= mempty)) instance Hashable WeeklyAutoScalingSchedule + +instance NFData WeeklyAutoScalingSchedule instance ToJSON WeeklyAutoScalingSchedule where toJSON WeeklyAutoScalingSchedule'{..} diff --git a/gen/Network/AWS/OpsWorks/Types/Sum.hs b/gen/Network/AWS/OpsWorks/Types/Sum.hs --- a/gen/Network/AWS/OpsWorks/Types/Sum.hs +++ b/gen/Network/AWS/OpsWorks/Types/Sum.hs @@ -43,6 +43,7 @@ RailsEnv -> "RailsEnv" instance Hashable AppAttributesKeys +instance NFData AppAttributesKeys instance ToByteString AppAttributesKeys instance ToQuery AppAttributesKeys instance ToHeader AppAttributesKeys @@ -86,6 +87,7 @@ ATStatic -> "static" instance Hashable AppType +instance NFData AppType instance ToByteString AppType instance ToQuery AppType instance ToHeader AppType @@ -114,6 +116,7 @@ X86_64 -> "x86_64" instance Hashable Architecture +instance NFData Architecture instance ToByteString Architecture instance ToQuery Architecture instance ToHeader Architecture @@ -142,6 +145,7 @@ Timer -> "timer" instance Hashable AutoScalingType +instance NFData AutoScalingType instance ToByteString AutoScalingType instance ToQuery AutoScalingType instance ToHeader AutoScalingType @@ -200,6 +204,7 @@ UpdateDependencies -> "update_dependencies" instance Hashable DeploymentCommandName +instance NFData DeploymentCommandName instance ToByteString DeploymentCommandName instance ToQuery DeploymentCommandName instance ToHeader DeploymentCommandName @@ -297,6 +302,7 @@ RubygemsVersion -> "RubygemsVersion" instance Hashable LayerAttributesKeys +instance NFData LayerAttributesKeys instance ToByteString LayerAttributesKeys instance ToQuery LayerAttributesKeys instance ToHeader LayerAttributesKeys @@ -355,6 +361,7 @@ Web -> "web" instance Hashable LayerType +instance NFData LayerType instance ToByteString LayerType instance ToQuery LayerType instance ToHeader LayerType @@ -383,6 +390,7 @@ InstanceStore -> "instance-store" instance Hashable RootDeviceType +instance NFData RootDeviceType instance ToByteString RootDeviceType instance ToQuery RootDeviceType instance ToHeader RootDeviceType @@ -417,6 +425,7 @@ SVN -> "svn" instance Hashable SourceType +instance NFData SourceType instance ToByteString SourceType instance ToQuery SourceType instance ToHeader SourceType @@ -442,6 +451,7 @@ Color -> "Color" instance Hashable StackAttributesKeys +instance NFData StackAttributesKeys instance ToByteString StackAttributesKeys instance ToQuery StackAttributesKeys instance ToHeader StackAttributesKeys @@ -470,6 +480,7 @@ Paravirtual -> "paravirtual" instance Hashable VirtualizationType +instance NFData VirtualizationType instance ToByteString VirtualizationType instance ToQuery VirtualizationType instance ToHeader VirtualizationType @@ -498,6 +509,7 @@ Standard -> "standard" instance Hashable VolumeType +instance NFData VolumeType instance ToByteString VolumeType instance ToQuery VolumeType instance ToHeader VolumeType diff --git a/gen/Network/AWS/OpsWorks/UnassignInstance.hs b/gen/Network/AWS/OpsWorks/UnassignInstance.hs --- a/gen/Network/AWS/OpsWorks/UnassignInstance.hs +++ b/gen/Network/AWS/OpsWorks/UnassignInstance.hs @@ -77,6 +77,8 @@ instance Hashable UnassignInstance +instance NFData UnassignInstance + instance ToHeaders UnassignInstance where toHeaders = const @@ -107,3 +109,5 @@ unassignInstanceResponse :: UnassignInstanceResponse unassignInstanceResponse = UnassignInstanceResponse' + +instance NFData UnassignInstanceResponse diff --git a/gen/Network/AWS/OpsWorks/UnassignVolume.hs b/gen/Network/AWS/OpsWorks/UnassignVolume.hs --- a/gen/Network/AWS/OpsWorks/UnassignVolume.hs +++ b/gen/Network/AWS/OpsWorks/UnassignVolume.hs @@ -76,6 +76,8 @@ instance Hashable UnassignVolume +instance NFData UnassignVolume + instance ToHeaders UnassignVolume where toHeaders = const @@ -106,3 +108,5 @@ unassignVolumeResponse :: UnassignVolumeResponse unassignVolumeResponse = UnassignVolumeResponse' + +instance NFData UnassignVolumeResponse diff --git a/gen/Network/AWS/OpsWorks/UpdateApp.hs b/gen/Network/AWS/OpsWorks/UpdateApp.hs --- a/gen/Network/AWS/OpsWorks/UpdateApp.hs +++ b/gen/Network/AWS/OpsWorks/UpdateApp.hs @@ -181,6 +181,8 @@ instance Hashable UpdateApp +instance NFData UpdateApp + instance ToHeaders UpdateApp where toHeaders = const @@ -221,3 +223,5 @@ updateAppResponse :: UpdateAppResponse updateAppResponse = UpdateAppResponse' + +instance NFData UpdateAppResponse diff --git a/gen/Network/AWS/OpsWorks/UpdateElasticIP.hs b/gen/Network/AWS/OpsWorks/UpdateElasticIP.hs --- a/gen/Network/AWS/OpsWorks/UpdateElasticIP.hs +++ b/gen/Network/AWS/OpsWorks/UpdateElasticIP.hs @@ -85,6 +85,8 @@ instance Hashable UpdateElasticIP +instance NFData UpdateElasticIP + instance ToHeaders UpdateElasticIP where toHeaders = const @@ -117,3 +119,5 @@ updateElasticIPResponse :: UpdateElasticIPResponse updateElasticIPResponse = UpdateElasticIPResponse' + +instance NFData UpdateElasticIPResponse diff --git a/gen/Network/AWS/OpsWorks/UpdateInstance.hs b/gen/Network/AWS/OpsWorks/UpdateInstance.hs --- a/gen/Network/AWS/OpsWorks/UpdateInstance.hs +++ b/gen/Network/AWS/OpsWorks/UpdateInstance.hs @@ -228,6 +228,8 @@ instance Hashable UpdateInstance +instance NFData UpdateInstance + instance ToHeaders UpdateInstance where toHeaders = const @@ -271,3 +273,5 @@ updateInstanceResponse :: UpdateInstanceResponse updateInstanceResponse = UpdateInstanceResponse' + +instance NFData UpdateInstanceResponse diff --git a/gen/Network/AWS/OpsWorks/UpdateLayer.hs b/gen/Network/AWS/OpsWorks/UpdateLayer.hs --- a/gen/Network/AWS/OpsWorks/UpdateLayer.hs +++ b/gen/Network/AWS/OpsWorks/UpdateLayer.hs @@ -238,6 +238,8 @@ instance Hashable UpdateLayer +instance NFData UpdateLayer + instance ToHeaders UpdateLayer where toHeaders = const @@ -292,3 +294,5 @@ updateLayerResponse :: UpdateLayerResponse updateLayerResponse = UpdateLayerResponse' + +instance NFData UpdateLayerResponse diff --git a/gen/Network/AWS/OpsWorks/UpdateMyUserProfile.hs b/gen/Network/AWS/OpsWorks/UpdateMyUserProfile.hs --- a/gen/Network/AWS/OpsWorks/UpdateMyUserProfile.hs +++ b/gen/Network/AWS/OpsWorks/UpdateMyUserProfile.hs @@ -73,6 +73,8 @@ instance Hashable UpdateMyUserProfile +instance NFData UpdateMyUserProfile + instance ToHeaders UpdateMyUserProfile where toHeaders = const @@ -105,3 +107,5 @@ updateMyUserProfileResponse :: UpdateMyUserProfileResponse updateMyUserProfileResponse = UpdateMyUserProfileResponse' + +instance NFData UpdateMyUserProfileResponse diff --git a/gen/Network/AWS/OpsWorks/UpdateRDSDBInstance.hs b/gen/Network/AWS/OpsWorks/UpdateRDSDBInstance.hs --- a/gen/Network/AWS/OpsWorks/UpdateRDSDBInstance.hs +++ b/gen/Network/AWS/OpsWorks/UpdateRDSDBInstance.hs @@ -93,6 +93,8 @@ instance Hashable UpdateRDSDBInstance +instance NFData UpdateRDSDBInstance + instance ToHeaders UpdateRDSDBInstance where toHeaders = const @@ -127,3 +129,5 @@ updateRDSDBInstanceResponse :: UpdateRDSDBInstanceResponse updateRDSDBInstanceResponse = UpdateRDSDBInstanceResponse' + +instance NFData UpdateRDSDBInstanceResponse diff --git a/gen/Network/AWS/OpsWorks/UpdateStack.hs b/gen/Network/AWS/OpsWorks/UpdateStack.hs --- a/gen/Network/AWS/OpsWorks/UpdateStack.hs +++ b/gen/Network/AWS/OpsWorks/UpdateStack.hs @@ -335,6 +335,8 @@ instance Hashable UpdateStack +instance NFData UpdateStack + instance ToHeaders UpdateStack where toHeaders = const @@ -389,3 +391,5 @@ updateStackResponse :: UpdateStackResponse updateStackResponse = UpdateStackResponse' + +instance NFData UpdateStackResponse diff --git a/gen/Network/AWS/OpsWorks/UpdateUserProfile.hs b/gen/Network/AWS/OpsWorks/UpdateUserProfile.hs --- a/gen/Network/AWS/OpsWorks/UpdateUserProfile.hs +++ b/gen/Network/AWS/OpsWorks/UpdateUserProfile.hs @@ -106,6 +106,8 @@ instance Hashable UpdateUserProfile +instance NFData UpdateUserProfile + instance ToHeaders UpdateUserProfile where toHeaders = const @@ -142,3 +144,5 @@ updateUserProfileResponse :: UpdateUserProfileResponse updateUserProfileResponse = UpdateUserProfileResponse' + +instance NFData UpdateUserProfileResponse diff --git a/gen/Network/AWS/OpsWorks/UpdateVolume.hs b/gen/Network/AWS/OpsWorks/UpdateVolume.hs --- a/gen/Network/AWS/OpsWorks/UpdateVolume.hs +++ b/gen/Network/AWS/OpsWorks/UpdateVolume.hs @@ -94,6 +94,8 @@ instance Hashable UpdateVolume +instance NFData UpdateVolume + instance ToHeaders UpdateVolume where toHeaders = const @@ -127,3 +129,5 @@ updateVolumeResponse :: UpdateVolumeResponse updateVolumeResponse = UpdateVolumeResponse' + +instance NFData UpdateVolumeResponse diff --git a/gen/Network/AWS/OpsWorks/Waiters.hs b/gen/Network/AWS/OpsWorks/Waiters.hs --- a/gen/Network/AWS/OpsWorks/Waiters.hs +++ b/gen/Network/AWS/OpsWorks/Waiters.hs @@ -21,6 +21,7 @@ import Network.AWS.OpsWorks.DescribeInstances import Network.AWS.OpsWorks.DescribeInstances import Network.AWS.OpsWorks.DescribeInstances +import Network.AWS.OpsWorks.DescribeInstances import Network.AWS.OpsWorks.Types import Network.AWS.Prelude import Network.AWS.Waiter @@ -226,4 +227,54 @@ , _waitDelay = 1 , _waitAcceptors = [ matchStatus 200 AcceptSuccess , matchStatus 400 AcceptFailure] + } + +-- | Polls 'Network.AWS.OpsWorks.DescribeInstances' every 15 seconds until a +-- successful state is reached. An error is returned after 40 failed checks. +instanceRegistered :: Wait DescribeInstances +instanceRegistered = + Wait + { _waitName = "InstanceRegistered" + , _waitAttempts = 40 + , _waitDelay = 15 + , _waitAcceptors = [ matchAll + "registered" + AcceptSuccess + (folding (concatOf dirsInstances) . + iStatus . _Just . to toTextCI) + , matchAny + "setup_failed" + AcceptFailure + (folding (concatOf dirsInstances) . + iStatus . _Just . to toTextCI) + , matchAny + "shutting_down" + AcceptFailure + (folding (concatOf dirsInstances) . + iStatus . _Just . to toTextCI) + , matchAny + "stopped" + AcceptFailure + (folding (concatOf dirsInstances) . + iStatus . _Just . to toTextCI) + , matchAny + "stopping" + AcceptFailure + (folding (concatOf dirsInstances) . + iStatus . _Just . to toTextCI) + , matchAny + "terminating" + AcceptFailure + (folding (concatOf dirsInstances) . + iStatus . _Just . to toTextCI) + , matchAny + "terminated" + AcceptFailure + (folding (concatOf dirsInstances) . + iStatus . _Just . to toTextCI) + , matchAny + "stop_failed" + AcceptFailure + (folding (concatOf dirsInstances) . + iStatus . _Just . to toTextCI)] }