amazonka-datapipeline 1.5.0 → 1.6.0
raw patch · 30 files changed
+282/−280 lines, 30 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-datapipeline.cabal +5/−5
- gen/Network/AWS/DataPipeline.hs +1/−1
- gen/Network/AWS/DataPipeline/ActivatePipeline.hs +9/−9
- gen/Network/AWS/DataPipeline/AddTags.hs +4/−4
- gen/Network/AWS/DataPipeline/CreatePipeline.hs +13/−13
- gen/Network/AWS/DataPipeline/DeactivatePipeline.hs +4/−4
- gen/Network/AWS/DataPipeline/DeletePipeline.hs +2/−2
- gen/Network/AWS/DataPipeline/DescribeObjects.hs +19/−19
- gen/Network/AWS/DataPipeline/DescribePipelines.hs +7/−7
- gen/Network/AWS/DataPipeline/EvaluateExpression.hs +13/−13
- gen/Network/AWS/DataPipeline/GetPipelineDefinition.hs +12/−12
- gen/Network/AWS/DataPipeline/ListPipelines.hs +11/−11
- gen/Network/AWS/DataPipeline/PollForTask.hs +11/−11
- gen/Network/AWS/DataPipeline/PutPipelineDefinition.hs +19/−19
- gen/Network/AWS/DataPipeline/QueryObjects.hs +21/−21
- gen/Network/AWS/DataPipeline/RemoveTags.hs +4/−4
- gen/Network/AWS/DataPipeline/ReportTaskProgress.hs +6/−6
- gen/Network/AWS/DataPipeline/ReportTaskRunnerHeartbeat.hs +11/−11
- gen/Network/AWS/DataPipeline/SetStatus.hs +5/−5
- gen/Network/AWS/DataPipeline/SetTaskStatus.hs +13/−13
- gen/Network/AWS/DataPipeline/Types.hs +18/−16
- gen/Network/AWS/DataPipeline/Types/Product.hs +48/−48
- gen/Network/AWS/DataPipeline/Types/Sum.hs +1/−1
- gen/Network/AWS/DataPipeline/ValidatePipelineDefinition.hs +19/−19
- gen/Network/AWS/DataPipeline/Waiters.hs +1/−1
- test/Main.hs +1/−1
- test/Test/AWS/DataPipeline.hs +1/−1
- test/Test/AWS/DataPipeline/Internal.hs +1/−1
- test/Test/AWS/Gen/DataPipeline.hs +1/−1
README.md view
@@ -8,7 +8,7 @@ ## Version -`1.5.0`+`1.6.0` ## Description
amazonka-datapipeline.cabal view
@@ -1,5 +1,5 @@ name: amazonka-datapipeline-version: 1.5.0+version: 1.6.0 synopsis: Amazon Data Pipeline 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@@ -72,7 +72,7 @@ , Network.AWS.DataPipeline.Types.Sum build-depends:- amazonka-core == 1.5.0.*+ amazonka-core == 1.6.0.* , base >= 4.7 && < 5 test-suite amazonka-datapipeline-test@@ -92,8 +92,8 @@ , Test.AWS.DataPipeline.Internal build-depends:- amazonka-core == 1.5.0.*- , amazonka-test == 1.5.0.*+ amazonka-core == 1.6.0.*+ , amazonka-test == 1.6.0.* , amazonka-datapipeline , base , bytestring
gen/Network/AWS/DataPipeline.hs view
@@ -5,7 +5,7 @@ -- | -- Module : Network.AWS.DataPipeline--- 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
gen/Network/AWS/DataPipeline/ActivatePipeline.hs view
@@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.DataPipeline.ActivatePipeline--- 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,23 +75,23 @@ -> ActivatePipeline activatePipeline pPipelineId_ = ActivatePipeline'- { _apStartTimestamp = Nothing- , _apParameterValues = Nothing- , _apPipelineId = pPipelineId_- }+ { _apStartTimestamp = Nothing+ , _apParameterValues = Nothing+ , _apPipelineId = pPipelineId_+ } -- | The date and time to resume the pipeline. By default, the pipeline resumes from the last completed execution. apStartTimestamp :: Lens' ActivatePipeline (Maybe UTCTime)-apStartTimestamp = lens _apStartTimestamp (\ s a -> s{_apStartTimestamp = a}) . mapping _Time;+apStartTimestamp = lens _apStartTimestamp (\ s a -> s{_apStartTimestamp = a}) . mapping _Time -- | A list of parameter values to pass to the pipeline at activation. apParameterValues :: Lens' ActivatePipeline [ParameterValue]-apParameterValues = lens _apParameterValues (\ s a -> s{_apParameterValues = a}) . _Default . _Coerce;+apParameterValues = lens _apParameterValues (\ s a -> s{_apParameterValues = a}) . _Default . _Coerce -- | The ID of the pipeline. apPipelineId :: Lens' ActivatePipeline Text-apPipelineId = lens _apPipelineId (\ s a -> s{_apPipelineId = a});+apPipelineId = lens _apPipelineId (\ s a -> s{_apPipelineId = a}) instance AWSRequest ActivatePipeline where type Rs ActivatePipeline = ActivatePipelineResponse@@ -152,6 +152,6 @@ -- | -- | The response status code. aprsResponseStatus :: Lens' ActivatePipelineResponse Int-aprsResponseStatus = lens _aprsResponseStatus (\ s a -> s{_aprsResponseStatus = a});+aprsResponseStatus = lens _aprsResponseStatus (\ s a -> s{_aprsResponseStatus = a}) instance NFData ActivatePipelineResponse where
gen/Network/AWS/DataPipeline/AddTags.hs view
@@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.DataPipeline.AddTags--- 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 @@ -- | The ID of the pipeline. atPipelineId :: Lens' AddTags Text-atPipelineId = lens _atPipelineId (\ s a -> s{_atPipelineId = a});+atPipelineId = lens _atPipelineId (\ s a -> s{_atPipelineId = a}) -- | The tags to add, as key/value pairs. atTags :: Lens' AddTags [Tag]-atTags = lens _atTags (\ s a -> s{_atTags = a}) . _Coerce;+atTags = lens _atTags (\ s a -> s{_atTags = a}) . _Coerce instance AWSRequest AddTags where type Rs AddTags = AddTagsResponse@@ -133,6 +133,6 @@ -- | -- | The response status code. atrsResponseStatus :: Lens' AddTagsResponse Int-atrsResponseStatus = lens _atrsResponseStatus (\ s a -> s{_atrsResponseStatus = a});+atrsResponseStatus = lens _atrsResponseStatus (\ s a -> s{_atrsResponseStatus = a}) instance NFData AddTagsResponse where
gen/Network/AWS/DataPipeline/CreatePipeline.hs view
@@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.DataPipeline.CreatePipeline--- 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 @@ -> CreatePipeline createPipeline pName_ pUniqueId_ = CreatePipeline'- { _cpDescription = Nothing- , _cpTags = Nothing- , _cpName = pName_- , _cpUniqueId = pUniqueId_- }+ { _cpDescription = Nothing+ , _cpTags = Nothing+ , _cpName = pName_+ , _cpUniqueId = pUniqueId_+ } -- | The description for the pipeline. cpDescription :: Lens' CreatePipeline (Maybe Text)-cpDescription = lens _cpDescription (\ s a -> s{_cpDescription = a});+cpDescription = lens _cpDescription (\ s a -> s{_cpDescription = a}) -- | A list of tags to associate with the pipeline at creation. Tags let you control access to pipelines. For more information, see <http://docs.aws.amazon.com/datapipeline/latest/DeveloperGuide/dp-control-access.html Controlling User Access to Pipelines> in the /AWS Data Pipeline Developer Guide/ . cpTags :: Lens' CreatePipeline [Tag]-cpTags = lens _cpTags (\ s a -> s{_cpTags = a}) . _Default . _Coerce;+cpTags = lens _cpTags (\ s a -> s{_cpTags = a}) . _Default . _Coerce -- | The name for the pipeline. You can use the same name for multiple pipelines associated with your AWS account, because AWS Data Pipeline assigns each pipeline a unique pipeline identifier. cpName :: Lens' CreatePipeline Text-cpName = lens _cpName (\ s a -> s{_cpName = a});+cpName = lens _cpName (\ s a -> s{_cpName = a}) -- | A unique identifier. This identifier is not the same as the pipeline identifier assigned by AWS Data Pipeline. You are responsible for defining the format and ensuring the uniqueness of this identifier. You use this parameter to ensure idempotency during repeated calls to @CreatePipeline@ . For example, if the first call to @CreatePipeline@ does not succeed, you can pass in the same unique identifier and pipeline name combination on a subsequent call to @CreatePipeline@ . @CreatePipeline@ ensures that if a pipeline already exists with the same name and unique identifier, a new pipeline is not created. Instead, you'll receive the pipeline identifier from the previous attempt. The uniqueness of the name and unique identifier combination is scoped to the AWS account or IAM user credentials. cpUniqueId :: Lens' CreatePipeline Text-cpUniqueId = lens _cpUniqueId (\ s a -> s{_cpUniqueId = a});+cpUniqueId = lens _cpUniqueId (\ s a -> s{_cpUniqueId = a}) instance AWSRequest CreatePipeline where type Rs CreatePipeline = CreatePipelineResponse@@ -160,15 +160,15 @@ -> CreatePipelineResponse createPipelineResponse pResponseStatus_ pPipelineId_ = CreatePipelineResponse'- {_cprsResponseStatus = pResponseStatus_, _cprsPipelineId = pPipelineId_}+ {_cprsResponseStatus = pResponseStatus_, _cprsPipelineId = pPipelineId_} -- | -- | The response status code. cprsResponseStatus :: Lens' CreatePipelineResponse Int-cprsResponseStatus = lens _cprsResponseStatus (\ s a -> s{_cprsResponseStatus = a});+cprsResponseStatus = lens _cprsResponseStatus (\ s a -> s{_cprsResponseStatus = a}) -- | The ID that AWS Data Pipeline assigns the newly created pipeline. For example, @df-06372391ZG65EXAMPLE@ . cprsPipelineId :: Lens' CreatePipelineResponse Text-cprsPipelineId = lens _cprsPipelineId (\ s a -> s{_cprsPipelineId = a});+cprsPipelineId = lens _cprsPipelineId (\ s a -> s{_cprsPipelineId = a}) instance NFData CreatePipelineResponse where
gen/Network/AWS/DataPipeline/DeactivatePipeline.hs view
@@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.DataPipeline.DeactivatePipeline--- 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,11 +73,11 @@ -- | Indicates whether to cancel any running objects. The default is true, which sets the state of any running objects to @CANCELED@ . If this value is false, the pipeline is deactivated after all running objects finish. dCancelActive :: Lens' DeactivatePipeline (Maybe Bool)-dCancelActive = lens _dCancelActive (\ s a -> s{_dCancelActive = a});+dCancelActive = lens _dCancelActive (\ s a -> s{_dCancelActive = a}) -- | The ID of the pipeline. dPipelineId :: Lens' DeactivatePipeline Text-dPipelineId = lens _dPipelineId (\ s a -> s{_dPipelineId = a});+dPipelineId = lens _dPipelineId (\ s a -> s{_dPipelineId = a}) instance AWSRequest DeactivatePipeline where type Rs DeactivatePipeline =@@ -138,6 +138,6 @@ -- | -- | The response status code. drsResponseStatus :: Lens' DeactivatePipelineResponse Int-drsResponseStatus = lens _drsResponseStatus (\ s a -> s{_drsResponseStatus = a});+drsResponseStatus = lens _drsResponseStatus (\ s a -> s{_drsResponseStatus = a}) instance NFData DeactivatePipelineResponse where
gen/Network/AWS/DataPipeline/DeletePipeline.hs view
@@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.DataPipeline.DeletePipeline--- 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,7 +66,7 @@ -- | The ID of the pipeline. dpPipelineId :: Lens' DeletePipeline Text-dpPipelineId = lens _dpPipelineId (\ s a -> s{_dpPipelineId = a});+dpPipelineId = lens _dpPipelineId (\ s a -> s{_dpPipelineId = a}) instance AWSRequest DeletePipeline where type Rs DeletePipeline = DeletePipelineResponse
gen/Network/AWS/DataPipeline/DescribeObjects.hs view
@@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.DataPipeline.DescribeObjects--- 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,28 +81,28 @@ -> DescribeObjects describeObjects pPipelineId_ = DescribeObjects'- { _doEvaluateExpressions = Nothing- , _doMarker = Nothing- , _doPipelineId = pPipelineId_- , _doObjectIds = mempty- }+ { _doEvaluateExpressions = Nothing+ , _doMarker = Nothing+ , _doPipelineId = pPipelineId_+ , _doObjectIds = mempty+ } -- | Indicates whether any expressions in the object should be evaluated when the object descriptions are returned. doEvaluateExpressions :: Lens' DescribeObjects (Maybe Bool)-doEvaluateExpressions = lens _doEvaluateExpressions (\ s a -> s{_doEvaluateExpressions = a});+doEvaluateExpressions = lens _doEvaluateExpressions (\ s a -> s{_doEvaluateExpressions = a}) -- | The starting point for the results to be returned. For the first call, this value should be empty. As long as there are more results, continue to call @DescribeObjects@ with the marker value from the previous call to retrieve the next set of results. doMarker :: Lens' DescribeObjects (Maybe Text)-doMarker = lens _doMarker (\ s a -> s{_doMarker = a});+doMarker = lens _doMarker (\ s a -> s{_doMarker = a}) -- | The ID of the pipeline that contains the object definitions. doPipelineId :: Lens' DescribeObjects Text-doPipelineId = lens _doPipelineId (\ s a -> s{_doPipelineId = a});+doPipelineId = lens _doPipelineId (\ s a -> s{_doPipelineId = a}) -- | The IDs of the pipeline objects that contain the definitions to be described. You can pass as many as 25 identifiers in a single call to @DescribeObjects@ . doObjectIds :: Lens' DescribeObjects [Text]-doObjectIds = lens _doObjectIds (\ s a -> s{_doObjectIds = a}) . _Coerce;+doObjectIds = lens _doObjectIds (\ s a -> s{_doObjectIds = a}) . _Coerce instance AWSPager DescribeObjects where page rq rs@@ -180,27 +180,27 @@ -> DescribeObjectsResponse describeObjectsResponse pResponseStatus_ = DescribeObjectsResponse'- { _dorsHasMoreResults = Nothing- , _dorsMarker = Nothing- , _dorsResponseStatus = pResponseStatus_- , _dorsPipelineObjects = mempty- }+ { _dorsHasMoreResults = Nothing+ , _dorsMarker = Nothing+ , _dorsResponseStatus = pResponseStatus_+ , _dorsPipelineObjects = mempty+ } -- | Indicates whether there are more results to return. dorsHasMoreResults :: Lens' DescribeObjectsResponse (Maybe Bool)-dorsHasMoreResults = lens _dorsHasMoreResults (\ s a -> s{_dorsHasMoreResults = a});+dorsHasMoreResults = lens _dorsHasMoreResults (\ s a -> s{_dorsHasMoreResults = a}) -- | The starting point for the next page of results. To view the next page of results, call @DescribeObjects@ again with this marker value. If the value is null, there are no more results. dorsMarker :: Lens' DescribeObjectsResponse (Maybe Text)-dorsMarker = lens _dorsMarker (\ s a -> s{_dorsMarker = a});+dorsMarker = lens _dorsMarker (\ s a -> s{_dorsMarker = a}) -- | -- | The response status code. dorsResponseStatus :: Lens' DescribeObjectsResponse Int-dorsResponseStatus = lens _dorsResponseStatus (\ s a -> s{_dorsResponseStatus = a});+dorsResponseStatus = lens _dorsResponseStatus (\ s a -> s{_dorsResponseStatus = a}) -- | An array of object definitions. dorsPipelineObjects :: Lens' DescribeObjectsResponse [PipelineObject]-dorsPipelineObjects = lens _dorsPipelineObjects (\ s a -> s{_dorsPipelineObjects = a}) . _Coerce;+dorsPipelineObjects = lens _dorsPipelineObjects (\ s a -> s{_dorsPipelineObjects = a}) . _Coerce instance NFData DescribeObjectsResponse where
gen/Network/AWS/DataPipeline/DescribePipelines.hs view
@@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.DataPipeline.DescribePipelines--- 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,7 +68,7 @@ -- | The IDs of the pipelines to describe. You can pass as many as 25 identifiers in a single call. To obtain pipeline IDs, call 'ListPipelines' . dpPipelineIds :: Lens' DescribePipelines [Text]-dpPipelineIds = lens _dpPipelineIds (\ s a -> s{_dpPipelineIds = a}) . _Coerce;+dpPipelineIds = lens _dpPipelineIds (\ s a -> s{_dpPipelineIds = a}) . _Coerce instance AWSRequest DescribePipelines where type Rs DescribePipelines = DescribePipelinesResponse@@ -127,17 +127,17 @@ -> DescribePipelinesResponse describePipelinesResponse pResponseStatus_ = DescribePipelinesResponse'- { _dprsResponseStatus = pResponseStatus_- , _dprsPipelineDescriptionList = mempty- }+ { _dprsResponseStatus = pResponseStatus_+ , _dprsPipelineDescriptionList = mempty+ } -- | -- | The response status code. dprsResponseStatus :: Lens' DescribePipelinesResponse Int-dprsResponseStatus = lens _dprsResponseStatus (\ s a -> s{_dprsResponseStatus = a});+dprsResponseStatus = lens _dprsResponseStatus (\ s a -> s{_dprsResponseStatus = a}) -- | An array of descriptions for the specified pipelines. dprsPipelineDescriptionList :: Lens' DescribePipelinesResponse [PipelineDescription]-dprsPipelineDescriptionList = lens _dprsPipelineDescriptionList (\ s a -> s{_dprsPipelineDescriptionList = a}) . _Coerce;+dprsPipelineDescriptionList = lens _dprsPipelineDescriptionList (\ s a -> s{_dprsPipelineDescriptionList = a}) . _Coerce instance NFData DescribePipelinesResponse where
gen/Network/AWS/DataPipeline/EvaluateExpression.hs view
@@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.DataPipeline.EvaluateExpression--- 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@@ -74,23 +74,23 @@ -> EvaluateExpression evaluateExpression pPipelineId_ pObjectId_ pExpression_ = EvaluateExpression'- { _eePipelineId = pPipelineId_- , _eeObjectId = pObjectId_- , _eeExpression = pExpression_- }+ { _eePipelineId = pPipelineId_+ , _eeObjectId = pObjectId_+ , _eeExpression = pExpression_+ } -- | The ID of the pipeline. eePipelineId :: Lens' EvaluateExpression Text-eePipelineId = lens _eePipelineId (\ s a -> s{_eePipelineId = a});+eePipelineId = lens _eePipelineId (\ s a -> s{_eePipelineId = a}) -- | The ID of the object. eeObjectId :: Lens' EvaluateExpression Text-eeObjectId = lens _eeObjectId (\ s a -> s{_eeObjectId = a});+eeObjectId = lens _eeObjectId (\ s a -> s{_eeObjectId = a}) -- | The expression to evaluate. eeExpression :: Lens' EvaluateExpression Text-eeExpression = lens _eeExpression (\ s a -> s{_eeExpression = a});+eeExpression = lens _eeExpression (\ s a -> s{_eeExpression = a}) instance AWSRequest EvaluateExpression where type Rs EvaluateExpression =@@ -154,17 +154,17 @@ -> EvaluateExpressionResponse evaluateExpressionResponse pResponseStatus_ pEvaluatedExpression_ = EvaluateExpressionResponse'- { _eersResponseStatus = pResponseStatus_- , _eersEvaluatedExpression = pEvaluatedExpression_- }+ { _eersResponseStatus = pResponseStatus_+ , _eersEvaluatedExpression = pEvaluatedExpression_+ } -- | -- | The response status code. eersResponseStatus :: Lens' EvaluateExpressionResponse Int-eersResponseStatus = lens _eersResponseStatus (\ s a -> s{_eersResponseStatus = a});+eersResponseStatus = lens _eersResponseStatus (\ s a -> s{_eersResponseStatus = a}) -- | The evaluated expression. eersEvaluatedExpression :: Lens' EvaluateExpressionResponse Text-eersEvaluatedExpression = lens _eersEvaluatedExpression (\ s a -> s{_eersEvaluatedExpression = a});+eersEvaluatedExpression = lens _eersEvaluatedExpression (\ s a -> s{_eersEvaluatedExpression = a}) instance NFData EvaluateExpressionResponse where
gen/Network/AWS/DataPipeline/GetPipelineDefinition.hs view
@@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.DataPipeline.GetPipelineDefinition--- 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@@ -74,11 +74,11 @@ -- | The version of the pipeline definition to retrieve. Set this parameter to @latest@ (default) to use the last definition saved to the pipeline or @active@ to use the last definition that was activated. gpdVersion :: Lens' GetPipelineDefinition (Maybe Text)-gpdVersion = lens _gpdVersion (\ s a -> s{_gpdVersion = a});+gpdVersion = lens _gpdVersion (\ s a -> s{_gpdVersion = a}) -- | The ID of the pipeline. gpdPipelineId :: Lens' GetPipelineDefinition Text-gpdPipelineId = lens _gpdPipelineId (\ s a -> s{_gpdPipelineId = a});+gpdPipelineId = lens _gpdPipelineId (\ s a -> s{_gpdPipelineId = a}) instance AWSRequest GetPipelineDefinition where type Rs GetPipelineDefinition =@@ -148,27 +148,27 @@ -> GetPipelineDefinitionResponse getPipelineDefinitionResponse pResponseStatus_ = GetPipelineDefinitionResponse'- { _gpdrsPipelineObjects = Nothing- , _gpdrsParameterObjects = Nothing- , _gpdrsParameterValues = Nothing- , _gpdrsResponseStatus = pResponseStatus_- }+ { _gpdrsPipelineObjects = Nothing+ , _gpdrsParameterObjects = Nothing+ , _gpdrsParameterValues = Nothing+ , _gpdrsResponseStatus = pResponseStatus_+ } -- | The objects defined in the pipeline. gpdrsPipelineObjects :: Lens' GetPipelineDefinitionResponse [PipelineObject]-gpdrsPipelineObjects = lens _gpdrsPipelineObjects (\ s a -> s{_gpdrsPipelineObjects = a}) . _Default . _Coerce;+gpdrsPipelineObjects = lens _gpdrsPipelineObjects (\ s a -> s{_gpdrsPipelineObjects = a}) . _Default . _Coerce -- | The parameter objects used in the pipeline definition. gpdrsParameterObjects :: Lens' GetPipelineDefinitionResponse [ParameterObject]-gpdrsParameterObjects = lens _gpdrsParameterObjects (\ s a -> s{_gpdrsParameterObjects = a}) . _Default . _Coerce;+gpdrsParameterObjects = lens _gpdrsParameterObjects (\ s a -> s{_gpdrsParameterObjects = a}) . _Default . _Coerce -- | The parameter values used in the pipeline definition. gpdrsParameterValues :: Lens' GetPipelineDefinitionResponse [ParameterValue]-gpdrsParameterValues = lens _gpdrsParameterValues (\ s a -> s{_gpdrsParameterValues = a}) . _Default . _Coerce;+gpdrsParameterValues = lens _gpdrsParameterValues (\ s a -> s{_gpdrsParameterValues = a}) . _Default . _Coerce -- | -- | The response status code. gpdrsResponseStatus :: Lens' GetPipelineDefinitionResponse Int-gpdrsResponseStatus = lens _gpdrsResponseStatus (\ s a -> s{_gpdrsResponseStatus = a});+gpdrsResponseStatus = lens _gpdrsResponseStatus (\ s a -> s{_gpdrsResponseStatus = a}) instance NFData GetPipelineDefinitionResponse where
gen/Network/AWS/DataPipeline/ListPipelines.hs view
@@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.DataPipeline.ListPipelines--- 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,7 +71,7 @@ -- | The starting point for the results to be returned. For the first call, this value should be empty. As long as there are more results, continue to call @ListPipelines@ with the marker value from the previous call to retrieve the next set of results. lpMarker :: Lens' ListPipelines (Maybe Text)-lpMarker = lens _lpMarker (\ s a -> s{_lpMarker = a});+lpMarker = lens _lpMarker (\ s a -> s{_lpMarker = a}) instance AWSPager ListPipelines where page rq rs@@ -143,27 +143,27 @@ -> ListPipelinesResponse listPipelinesResponse pResponseStatus_ = ListPipelinesResponse'- { _lprsHasMoreResults = Nothing- , _lprsMarker = Nothing- , _lprsResponseStatus = pResponseStatus_- , _lprsPipelineIdList = mempty- }+ { _lprsHasMoreResults = Nothing+ , _lprsMarker = Nothing+ , _lprsResponseStatus = pResponseStatus_+ , _lprsPipelineIdList = mempty+ } -- | Indicates whether there are more results that can be obtained by a subsequent call. lprsHasMoreResults :: Lens' ListPipelinesResponse (Maybe Bool)-lprsHasMoreResults = lens _lprsHasMoreResults (\ s a -> s{_lprsHasMoreResults = a});+lprsHasMoreResults = lens _lprsHasMoreResults (\ s a -> s{_lprsHasMoreResults = a}) -- | The starting point for the next page of results. To view the next page of results, call @ListPipelinesOutput@ again with this marker value. If the value is null, there are no more results. lprsMarker :: Lens' ListPipelinesResponse (Maybe Text)-lprsMarker = lens _lprsMarker (\ s a -> s{_lprsMarker = a});+lprsMarker = lens _lprsMarker (\ s a -> s{_lprsMarker = a}) -- | -- | The response status code. lprsResponseStatus :: Lens' ListPipelinesResponse Int-lprsResponseStatus = lens _lprsResponseStatus (\ s a -> s{_lprsResponseStatus = a});+lprsResponseStatus = lens _lprsResponseStatus (\ s a -> s{_lprsResponseStatus = a}) -- | The pipeline identifiers. If you require additional information about the pipelines, you can use these identifiers to call 'DescribePipelines' and 'GetPipelineDefinition' . lprsPipelineIdList :: Lens' ListPipelinesResponse [PipelineIdName]-lprsPipelineIdList = lens _lprsPipelineIdList (\ s a -> s{_lprsPipelineIdList = a}) . _Coerce;+lprsPipelineIdList = lens _lprsPipelineIdList (\ s a -> s{_lprsPipelineIdList = a}) . _Coerce instance NFData ListPipelinesResponse where
gen/Network/AWS/DataPipeline/PollForTask.hs view
@@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.DataPipeline.PollForTask--- 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@@ -74,23 +74,23 @@ -> PollForTask pollForTask pWorkerGroup_ = PollForTask'- { _pftHostname = Nothing- , _pftInstanceIdentity = Nothing- , _pftWorkerGroup = pWorkerGroup_- }+ { _pftHostname = Nothing+ , _pftInstanceIdentity = Nothing+ , _pftWorkerGroup = pWorkerGroup_+ } -- | The public DNS name of the calling task runner. pftHostname :: Lens' PollForTask (Maybe Text)-pftHostname = lens _pftHostname (\ s a -> s{_pftHostname = a});+pftHostname = lens _pftHostname (\ s a -> s{_pftHostname = a}) -- | Identity information for the EC2 instance that is hosting the task runner. You can get this value from the instance using @http://169.254.169.254/latest/meta-data/instance-id@ . For more information, see <http://docs.aws.amazon.com/AWSEC2/latest/UserGuide/AESDG-chapter-instancedata.html Instance Metadata> in the /Amazon Elastic Compute Cloud User Guide./ Passing in this value proves that your task runner is running on an EC2 instance, and ensures the proper AWS Data Pipeline service charges are applied to your pipeline. pftInstanceIdentity :: Lens' PollForTask (Maybe InstanceIdentity)-pftInstanceIdentity = lens _pftInstanceIdentity (\ s a -> s{_pftInstanceIdentity = a});+pftInstanceIdentity = lens _pftInstanceIdentity (\ s a -> s{_pftInstanceIdentity = a}) -- | The type of task the task runner is configured to accept and process. The worker group is set as a field on objects in the pipeline when they are created. You can only specify a single value for @workerGroup@ in the call to @PollForTask@ . There are no wildcard values permitted in @workerGroup@ ; the string must be an exact, case-sensitive, match. pftWorkerGroup :: Lens' PollForTask Text-pftWorkerGroup = lens _pftWorkerGroup (\ s a -> s{_pftWorkerGroup = a});+pftWorkerGroup = lens _pftWorkerGroup (\ s a -> s{_pftWorkerGroup = a}) instance AWSRequest PollForTask where type Rs PollForTask = PollForTaskResponse@@ -151,15 +151,15 @@ -> PollForTaskResponse pollForTaskResponse pResponseStatus_ = PollForTaskResponse'- {_pftrsTaskObject = Nothing, _pftrsResponseStatus = pResponseStatus_}+ {_pftrsTaskObject = Nothing, _pftrsResponseStatus = pResponseStatus_} -- | The information needed to complete the task that is being assigned to the task runner. One of the fields returned in this object is @taskId@ , which contains an identifier for the task being assigned. The calling task runner uses @taskId@ in subsequent calls to 'ReportTaskProgress' and 'SetTaskStatus' . pftrsTaskObject :: Lens' PollForTaskResponse (Maybe TaskObject)-pftrsTaskObject = lens _pftrsTaskObject (\ s a -> s{_pftrsTaskObject = a});+pftrsTaskObject = lens _pftrsTaskObject (\ s a -> s{_pftrsTaskObject = a}) -- | -- | The response status code. pftrsResponseStatus :: Lens' PollForTaskResponse Int-pftrsResponseStatus = lens _pftrsResponseStatus (\ s a -> s{_pftrsResponseStatus = a});+pftrsResponseStatus = lens _pftrsResponseStatus (\ s a -> s{_pftrsResponseStatus = a}) instance NFData PollForTaskResponse where
gen/Network/AWS/DataPipeline/PutPipelineDefinition.hs view
@@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.DataPipeline.PutPipelineDefinition--- 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@@ -84,28 +84,28 @@ -> PutPipelineDefinition putPipelineDefinition pPipelineId_ = PutPipelineDefinition'- { _ppdParameterObjects = Nothing- , _ppdParameterValues = Nothing- , _ppdPipelineId = pPipelineId_- , _ppdPipelineObjects = mempty- }+ { _ppdParameterObjects = Nothing+ , _ppdParameterValues = Nothing+ , _ppdPipelineId = pPipelineId_+ , _ppdPipelineObjects = mempty+ } -- | The parameter objects used with the pipeline. ppdParameterObjects :: Lens' PutPipelineDefinition [ParameterObject]-ppdParameterObjects = lens _ppdParameterObjects (\ s a -> s{_ppdParameterObjects = a}) . _Default . _Coerce;+ppdParameterObjects = lens _ppdParameterObjects (\ s a -> s{_ppdParameterObjects = a}) . _Default . _Coerce -- | The parameter values used with the pipeline. ppdParameterValues :: Lens' PutPipelineDefinition [ParameterValue]-ppdParameterValues = lens _ppdParameterValues (\ s a -> s{_ppdParameterValues = a}) . _Default . _Coerce;+ppdParameterValues = lens _ppdParameterValues (\ s a -> s{_ppdParameterValues = a}) . _Default . _Coerce -- | The ID of the pipeline. ppdPipelineId :: Lens' PutPipelineDefinition Text-ppdPipelineId = lens _ppdPipelineId (\ s a -> s{_ppdPipelineId = a});+ppdPipelineId = lens _ppdPipelineId (\ s a -> s{_ppdPipelineId = a}) -- | The objects that define the pipeline. These objects overwrite the existing pipeline definition. ppdPipelineObjects :: Lens' PutPipelineDefinition [PipelineObject]-ppdPipelineObjects = lens _ppdPipelineObjects (\ s a -> s{_ppdPipelineObjects = a}) . _Coerce;+ppdPipelineObjects = lens _ppdPipelineObjects (\ s a -> s{_ppdPipelineObjects = a}) . _Coerce instance AWSRequest PutPipelineDefinition where type Rs PutPipelineDefinition =@@ -178,27 +178,27 @@ -> PutPipelineDefinitionResponse putPipelineDefinitionResponse pResponseStatus_ pErrored_ = PutPipelineDefinitionResponse'- { _ppdrsValidationErrors = Nothing- , _ppdrsValidationWarnings = Nothing- , _ppdrsResponseStatus = pResponseStatus_- , _ppdrsErrored = pErrored_- }+ { _ppdrsValidationErrors = Nothing+ , _ppdrsValidationWarnings = Nothing+ , _ppdrsResponseStatus = pResponseStatus_+ , _ppdrsErrored = pErrored_+ } -- | The validation errors that are associated with the objects defined in @pipelineObjects@ . ppdrsValidationErrors :: Lens' PutPipelineDefinitionResponse [ValidationError]-ppdrsValidationErrors = lens _ppdrsValidationErrors (\ s a -> s{_ppdrsValidationErrors = a}) . _Default . _Coerce;+ppdrsValidationErrors = lens _ppdrsValidationErrors (\ s a -> s{_ppdrsValidationErrors = a}) . _Default . _Coerce -- | The validation warnings that are associated with the objects defined in @pipelineObjects@ . ppdrsValidationWarnings :: Lens' PutPipelineDefinitionResponse [ValidationWarning]-ppdrsValidationWarnings = lens _ppdrsValidationWarnings (\ s a -> s{_ppdrsValidationWarnings = a}) . _Default . _Coerce;+ppdrsValidationWarnings = lens _ppdrsValidationWarnings (\ s a -> s{_ppdrsValidationWarnings = a}) . _Default . _Coerce -- | -- | The response status code. ppdrsResponseStatus :: Lens' PutPipelineDefinitionResponse Int-ppdrsResponseStatus = lens _ppdrsResponseStatus (\ s a -> s{_ppdrsResponseStatus = a});+ppdrsResponseStatus = lens _ppdrsResponseStatus (\ s a -> s{_ppdrsResponseStatus = a}) -- | Indicates whether there were validation errors, and the pipeline definition is stored but cannot be activated until you correct the pipeline and call @PutPipelineDefinition@ to commit the corrected pipeline. ppdrsErrored :: Lens' PutPipelineDefinitionResponse Bool-ppdrsErrored = lens _ppdrsErrored (\ s a -> s{_ppdrsErrored = a});+ppdrsErrored = lens _ppdrsErrored (\ s a -> s{_ppdrsErrored = a}) instance NFData PutPipelineDefinitionResponse where
gen/Network/AWS/DataPipeline/QueryObjects.hs view
@@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.DataPipeline.QueryObjects--- 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@@ -86,33 +86,33 @@ -> QueryObjects queryObjects pPipelineId_ pSphere_ = QueryObjects'- { _qoQuery = Nothing- , _qoMarker = Nothing- , _qoLimit = Nothing- , _qoPipelineId = pPipelineId_- , _qoSphere = pSphere_- }+ { _qoQuery = Nothing+ , _qoMarker = Nothing+ , _qoLimit = Nothing+ , _qoPipelineId = pPipelineId_+ , _qoSphere = pSphere_+ } -- | The query that defines the objects to be returned. The @Query@ object can contain a maximum of ten selectors. The conditions in the query are limited to top-level String fields in the object. These filters can be applied to components, instances, and attempts. qoQuery :: Lens' QueryObjects (Maybe Query)-qoQuery = lens _qoQuery (\ s a -> s{_qoQuery = a});+qoQuery = lens _qoQuery (\ s a -> s{_qoQuery = a}) -- | The starting point for the results to be returned. For the first call, this value should be empty. As long as there are more results, continue to call @QueryObjects@ with the marker value from the previous call to retrieve the next set of results. qoMarker :: Lens' QueryObjects (Maybe Text)-qoMarker = lens _qoMarker (\ s a -> s{_qoMarker = a});+qoMarker = lens _qoMarker (\ s a -> s{_qoMarker = a}) -- | The maximum number of object names that @QueryObjects@ will return in a single call. The default value is 100. qoLimit :: Lens' QueryObjects (Maybe Int)-qoLimit = lens _qoLimit (\ s a -> s{_qoLimit = a});+qoLimit = lens _qoLimit (\ s a -> s{_qoLimit = a}) -- | The ID of the pipeline. qoPipelineId :: Lens' QueryObjects Text-qoPipelineId = lens _qoPipelineId (\ s a -> s{_qoPipelineId = a});+qoPipelineId = lens _qoPipelineId (\ s a -> s{_qoPipelineId = a}) -- | Indicates whether the query applies to components or instances. The possible values are: @COMPONENT@ , @INSTANCE@ , and @ATTEMPT@ . qoSphere :: Lens' QueryObjects Text-qoSphere = lens _qoSphere (\ s a -> s{_qoSphere = a});+qoSphere = lens _qoSphere (\ s a -> s{_qoSphere = a}) instance AWSPager QueryObjects where page rq rs@@ -190,27 +190,27 @@ -> QueryObjectsResponse queryObjectsResponse pResponseStatus_ = QueryObjectsResponse'- { _qorsHasMoreResults = Nothing- , _qorsIds = Nothing- , _qorsMarker = Nothing- , _qorsResponseStatus = pResponseStatus_- }+ { _qorsHasMoreResults = Nothing+ , _qorsIds = Nothing+ , _qorsMarker = Nothing+ , _qorsResponseStatus = pResponseStatus_+ } -- | Indicates whether there are more results that can be obtained by a subsequent call. qorsHasMoreResults :: Lens' QueryObjectsResponse (Maybe Bool)-qorsHasMoreResults = lens _qorsHasMoreResults (\ s a -> s{_qorsHasMoreResults = a});+qorsHasMoreResults = lens _qorsHasMoreResults (\ s a -> s{_qorsHasMoreResults = a}) -- | The identifiers that match the query selectors. qorsIds :: Lens' QueryObjectsResponse [Text]-qorsIds = lens _qorsIds (\ s a -> s{_qorsIds = a}) . _Default . _Coerce;+qorsIds = lens _qorsIds (\ s a -> s{_qorsIds = a}) . _Default . _Coerce -- | The starting point for the next page of results. To view the next page of results, call @QueryObjects@ again with this marker value. If the value is null, there are no more results. qorsMarker :: Lens' QueryObjectsResponse (Maybe Text)-qorsMarker = lens _qorsMarker (\ s a -> s{_qorsMarker = a});+qorsMarker = lens _qorsMarker (\ s a -> s{_qorsMarker = a}) -- | -- | The response status code. qorsResponseStatus :: Lens' QueryObjectsResponse Int-qorsResponseStatus = lens _qorsResponseStatus (\ s a -> s{_qorsResponseStatus = a});+qorsResponseStatus = lens _qorsResponseStatus (\ s a -> s{_qorsResponseStatus = a}) instance NFData QueryObjectsResponse where
gen/Network/AWS/DataPipeline/RemoveTags.hs view
@@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.DataPipeline.RemoveTags--- 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 @@ -- | The ID of the pipeline. rtPipelineId :: Lens' RemoveTags Text-rtPipelineId = lens _rtPipelineId (\ s a -> s{_rtPipelineId = a});+rtPipelineId = lens _rtPipelineId (\ s a -> s{_rtPipelineId = a}) -- | The keys of the tags to remove. rtTagKeys :: Lens' RemoveTags [Text]-rtTagKeys = lens _rtTagKeys (\ s a -> s{_rtTagKeys = a}) . _Coerce;+rtTagKeys = lens _rtTagKeys (\ s a -> s{_rtTagKeys = a}) . _Coerce instance AWSRequest RemoveTags where type Rs RemoveTags = RemoveTagsResponse@@ -135,6 +135,6 @@ -- | -- | The response status code. rtrsResponseStatus :: Lens' RemoveTagsResponse Int-rtrsResponseStatus = lens _rtrsResponseStatus (\ s a -> s{_rtrsResponseStatus = a});+rtrsResponseStatus = lens _rtrsResponseStatus (\ s a -> s{_rtrsResponseStatus = a}) instance NFData RemoveTagsResponse where
gen/Network/AWS/DataPipeline/ReportTaskProgress.hs view
@@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.DataPipeline.ReportTaskProgress--- 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@@ -74,11 +74,11 @@ -- | Key-value pairs that define the properties of the ReportTaskProgressInput object. rtpFields :: Lens' ReportTaskProgress [Field]-rtpFields = lens _rtpFields (\ s a -> s{_rtpFields = a}) . _Default . _Coerce;+rtpFields = lens _rtpFields (\ s a -> s{_rtpFields = a}) . _Default . _Coerce -- | The ID of the task assigned to the task runner. This value is provided in the response for 'PollForTask' . rtpTaskId :: Lens' ReportTaskProgress Text-rtpTaskId = lens _rtpTaskId (\ s a -> s{_rtpTaskId = a});+rtpTaskId = lens _rtpTaskId (\ s a -> s{_rtpTaskId = a}) instance AWSRequest ReportTaskProgress where type Rs ReportTaskProgress =@@ -140,15 +140,15 @@ -> ReportTaskProgressResponse reportTaskProgressResponse pResponseStatus_ pCanceled_ = ReportTaskProgressResponse'- {_rtprsResponseStatus = pResponseStatus_, _rtprsCanceled = pCanceled_}+ {_rtprsResponseStatus = pResponseStatus_, _rtprsCanceled = pCanceled_} -- | -- | The response status code. rtprsResponseStatus :: Lens' ReportTaskProgressResponse Int-rtprsResponseStatus = lens _rtprsResponseStatus (\ s a -> s{_rtprsResponseStatus = a});+rtprsResponseStatus = lens _rtprsResponseStatus (\ s a -> s{_rtprsResponseStatus = a}) -- | If true, the calling task runner should cancel processing of the task. The task runner does not need to call 'SetTaskStatus' for canceled tasks. rtprsCanceled :: Lens' ReportTaskProgressResponse Bool-rtprsCanceled = lens _rtprsCanceled (\ s a -> s{_rtprsCanceled = a});+rtprsCanceled = lens _rtprsCanceled (\ s a -> s{_rtprsCanceled = a}) instance NFData ReportTaskProgressResponse where
gen/Network/AWS/DataPipeline/ReportTaskRunnerHeartbeat.hs view
@@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.DataPipeline.ReportTaskRunnerHeartbeat--- 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,23 +72,23 @@ -> ReportTaskRunnerHeartbeat reportTaskRunnerHeartbeat pTaskrunnerId_ = ReportTaskRunnerHeartbeat'- { _rtrhHostname = Nothing- , _rtrhWorkerGroup = Nothing- , _rtrhTaskrunnerId = pTaskrunnerId_- }+ { _rtrhHostname = Nothing+ , _rtrhWorkerGroup = Nothing+ , _rtrhTaskrunnerId = pTaskrunnerId_+ } -- | The public DNS name of the task runner. rtrhHostname :: Lens' ReportTaskRunnerHeartbeat (Maybe Text)-rtrhHostname = lens _rtrhHostname (\ s a -> s{_rtrhHostname = a});+rtrhHostname = lens _rtrhHostname (\ s a -> s{_rtrhHostname = a}) -- | The type of task the task runner is configured to accept and process. The worker group is set as a field on objects in the pipeline when they are created. You can only specify a single value for @workerGroup@ . There are no wildcard values permitted in @workerGroup@ ; the string must be an exact, case-sensitive, match. rtrhWorkerGroup :: Lens' ReportTaskRunnerHeartbeat (Maybe Text)-rtrhWorkerGroup = lens _rtrhWorkerGroup (\ s a -> s{_rtrhWorkerGroup = a});+rtrhWorkerGroup = lens _rtrhWorkerGroup (\ s a -> s{_rtrhWorkerGroup = a}) -- | The ID of the task runner. This value should be unique across your AWS account. In the case of AWS Data Pipeline Task Runner launched on a resource managed by AWS Data Pipeline, the web service provides a unique identifier when it launches the application. If you have written a custom task runner, you should assign a unique identifier for the task runner. rtrhTaskrunnerId :: Lens' ReportTaskRunnerHeartbeat Text-rtrhTaskrunnerId = lens _rtrhTaskrunnerId (\ s a -> s{_rtrhTaskrunnerId = a});+rtrhTaskrunnerId = lens _rtrhTaskrunnerId (\ s a -> s{_rtrhTaskrunnerId = a}) instance AWSRequest ReportTaskRunnerHeartbeat where type Rs ReportTaskRunnerHeartbeat =@@ -152,16 +152,16 @@ -> ReportTaskRunnerHeartbeatResponse reportTaskRunnerHeartbeatResponse pResponseStatus_ pTerminate_ = ReportTaskRunnerHeartbeatResponse'- {_rtrhrsResponseStatus = pResponseStatus_, _rtrhrsTerminate = pTerminate_}+ {_rtrhrsResponseStatus = pResponseStatus_, _rtrhrsTerminate = pTerminate_} -- | -- | The response status code. rtrhrsResponseStatus :: Lens' ReportTaskRunnerHeartbeatResponse Int-rtrhrsResponseStatus = lens _rtrhrsResponseStatus (\ s a -> s{_rtrhrsResponseStatus = a});+rtrhrsResponseStatus = lens _rtrhrsResponseStatus (\ s a -> s{_rtrhrsResponseStatus = a}) -- | Indicates whether the calling task runner should terminate. rtrhrsTerminate :: Lens' ReportTaskRunnerHeartbeatResponse Bool-rtrhrsTerminate = lens _rtrhrsTerminate (\ s a -> s{_rtrhrsTerminate = a});+rtrhrsTerminate = lens _rtrhrsTerminate (\ s a -> s{_rtrhrsTerminate = a}) instance NFData ReportTaskRunnerHeartbeatResponse where
gen/Network/AWS/DataPipeline/SetStatus.hs view
@@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.DataPipeline.SetStatus--- 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,20 +70,20 @@ -> SetStatus setStatus pPipelineId_ pStatus_ = SetStatus'- {_ssPipelineId = pPipelineId_, _ssObjectIds = mempty, _ssStatus = pStatus_}+ {_ssPipelineId = pPipelineId_, _ssObjectIds = mempty, _ssStatus = pStatus_} -- | The ID of the pipeline that contains the objects. ssPipelineId :: Lens' SetStatus Text-ssPipelineId = lens _ssPipelineId (\ s a -> s{_ssPipelineId = a});+ssPipelineId = lens _ssPipelineId (\ s a -> s{_ssPipelineId = a}) -- | The IDs of the objects. The corresponding objects can be either physical or components, but not a mix of both types. ssObjectIds :: Lens' SetStatus [Text]-ssObjectIds = lens _ssObjectIds (\ s a -> s{_ssObjectIds = a}) . _Coerce;+ssObjectIds = lens _ssObjectIds (\ s a -> s{_ssObjectIds = a}) . _Coerce -- | The status to be set on all the objects specified in @objectIds@ . For components, use @PAUSE@ or @RESUME@ . For instances, use @TRY_CANCEL@ , @RERUN@ , or @MARK_FINISHED@ . ssStatus :: Lens' SetStatus Text-ssStatus = lens _ssStatus (\ s a -> s{_ssStatus = a});+ssStatus = lens _ssStatus (\ s a -> s{_ssStatus = a}) instance AWSRequest SetStatus where type Rs SetStatus = SetStatusResponse
gen/Network/AWS/DataPipeline/SetTaskStatus.hs view
@@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.DataPipeline.SetTaskStatus--- 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@@ -80,33 +80,33 @@ -> SetTaskStatus setTaskStatus pTaskId_ pTaskStatus_ = SetTaskStatus'- { _stsErrorStackTrace = Nothing- , _stsErrorId = Nothing- , _stsErrorMessage = Nothing- , _stsTaskId = pTaskId_- , _stsTaskStatus = pTaskStatus_- }+ { _stsErrorStackTrace = Nothing+ , _stsErrorId = Nothing+ , _stsErrorMessage = Nothing+ , _stsTaskId = pTaskId_+ , _stsTaskStatus = pTaskStatus_+ } -- | If an error occurred during the task, this value specifies the stack trace associated with the error. This value is set on the physical attempt object. It is used to display error information to the user. The web service does not parse this value. stsErrorStackTrace :: Lens' SetTaskStatus (Maybe Text)-stsErrorStackTrace = lens _stsErrorStackTrace (\ s a -> s{_stsErrorStackTrace = a});+stsErrorStackTrace = lens _stsErrorStackTrace (\ s a -> s{_stsErrorStackTrace = a}) -- | If an error occurred during the task, this value specifies the error code. This value is set on the physical attempt object. It is used to display error information to the user. It should not start with string "Service_" which is reserved by the system. stsErrorId :: Lens' SetTaskStatus (Maybe Text)-stsErrorId = lens _stsErrorId (\ s a -> s{_stsErrorId = a});+stsErrorId = lens _stsErrorId (\ s a -> s{_stsErrorId = a}) -- | If an error occurred during the task, this value specifies a text description of the error. This value is set on the physical attempt object. It is used to display error information to the user. The web service does not parse this value. stsErrorMessage :: Lens' SetTaskStatus (Maybe Text)-stsErrorMessage = lens _stsErrorMessage (\ s a -> s{_stsErrorMessage = a});+stsErrorMessage = lens _stsErrorMessage (\ s a -> s{_stsErrorMessage = a}) -- | The ID of the task assigned to the task runner. This value is provided in the response for 'PollForTask' . stsTaskId :: Lens' SetTaskStatus Text-stsTaskId = lens _stsTaskId (\ s a -> s{_stsTaskId = a});+stsTaskId = lens _stsTaskId (\ s a -> s{_stsTaskId = a}) -- | If @FINISHED@ , the task successfully completed. If @FAILED@ , the task ended unsuccessfully. Preconditions use false. stsTaskStatus :: Lens' SetTaskStatus TaskStatus-stsTaskStatus = lens _stsTaskStatus (\ s a -> s{_stsTaskStatus = a});+stsTaskStatus = lens _stsTaskStatus (\ s a -> s{_stsTaskStatus = a}) instance AWSRequest SetTaskStatus where type Rs SetTaskStatus = SetTaskStatusResponse@@ -169,6 +169,6 @@ -- | -- | The response status code. stsrsResponseStatus :: Lens' SetTaskStatusResponse Int-stsrsResponseStatus = lens _stsrsResponseStatus (\ s a -> s{_stsrsResponseStatus = a});+stsrsResponseStatus = lens _stsrsResponseStatus (\ s a -> s{_stsrsResponseStatus = a}) instance NFData SetTaskStatusResponse where
gen/Network/AWS/DataPipeline/Types.hs view
@@ -4,7 +4,7 @@ -- | -- Module : Network.AWS.DataPipeline.Types--- Copyright : (c) 2013-2017 Brendan Hay+-- Copyright : (c) 2013-2018 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability : auto-generated@@ -135,24 +135,24 @@ dataPipeline :: Service dataPipeline = Service- { _svcAbbrev = "DataPipeline"- , _svcSigner = v4- , _svcPrefix = "datapipeline"- , _svcVersion = "2012-10-29"- , _svcEndpoint = defaultEndpoint dataPipeline- , _svcTimeout = Just 70- , _svcCheck = statusSuccess- , _svcError = parseJSONError "DataPipeline"- , _svcRetry = retry- }+ { _svcAbbrev = "DataPipeline"+ , _svcSigner = v4+ , _svcPrefix = "datapipeline"+ , _svcVersion = "2012-10-29"+ , _svcEndpoint = defaultEndpoint dataPipeline+ , _svcTimeout = Just 70+ , _svcCheck = statusSuccess+ , _svcError = parseJSONError "DataPipeline"+ , _svcRetry = retry+ } where retry = Exponential- { _retryBase = 5.0e-2- , _retryGrowth = 2- , _retryAttempts = 5- , _retryCheck = check- }+ { _retryBase = 5.0e-2+ , _retryGrowth = 2+ , _retryAttempts = 5+ , _retryCheck = check+ } check e | has (hasCode "ThrottledException" . hasStatus 400) e = Just "throttled_exception"@@ -161,6 +161,8 @@ Just "throttling_exception" | has (hasCode "Throttling" . hasStatus 400) e = Just "throttling" | has (hasStatus 504) e = Just "gateway_timeout"+ | has (hasCode "RequestThrottledException" . hasStatus 400) e =+ Just "request_throttled_exception" | has (hasStatus 502) e = Just "bad_gateway" | has (hasStatus 503) e = Just "service_unavailable" | has (hasStatus 500) e = Just "general_server_error"
gen/Network/AWS/DataPipeline/Types/Product.hs view
@@ -9,7 +9,7 @@ -- | -- Module : Network.AWS.DataPipeline.Types.Product--- Copyright : (c) 2013-2017 Brendan Hay+-- Copyright : (c) 2013-2018 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability : auto-generated@@ -51,15 +51,15 @@ -- | The field value, expressed as the identifier of another object. fRefValue :: Lens' Field (Maybe Text)-fRefValue = lens _fRefValue (\ s a -> s{_fRefValue = a});+fRefValue = lens _fRefValue (\ s a -> s{_fRefValue = a}) -- | The field value, expressed as a String. fStringValue :: Lens' Field (Maybe Text)-fStringValue = lens _fStringValue (\ s a -> s{_fStringValue = a});+fStringValue = lens _fStringValue (\ s a -> s{_fStringValue = a}) -- | The field identifier. fKey :: Lens' Field Text-fKey = lens _fKey (\ s a -> s{_fKey = a});+fKey = lens _fKey (\ s a -> s{_fKey = a}) instance FromJSON Field where parseJSON@@ -109,11 +109,11 @@ -- | A signature which can be used to verify the accuracy and authenticity of the information provided in the instance identity document. iiSignature :: Lens' InstanceIdentity (Maybe Text)-iiSignature = lens _iiSignature (\ s a -> s{_iiSignature = a});+iiSignature = lens _iiSignature (\ s a -> s{_iiSignature = a}) -- | A description of an EC2 instance that is generated when the instance is launched and exposed to the instance via the instance metadata service in the form of a JSON representation of an object. iiDocument :: Lens' InstanceIdentity (Maybe Text)-iiDocument = lens _iiDocument (\ s a -> s{_iiDocument = a});+iiDocument = lens _iiDocument (\ s a -> s{_iiDocument = a}) instance Hashable InstanceIdentity where @@ -151,11 +151,11 @@ -- | The value that the actual field value will be compared with. oValues :: Lens' Operator [Text]-oValues = lens _oValues (\ s a -> s{_oValues = a}) . _Default . _Coerce;+oValues = lens _oValues (\ s a -> s{_oValues = a}) . _Default . _Coerce -- | The logical operation to be performed: equal (@EQ@ ), equal reference (@REF_EQ@ ), less than or equal (@LE@ ), greater than or equal (@GE@ ), or between (@BETWEEN@ ). Equal reference (@REF_EQ@ ) can be used only with reference fields. The other comparison types can be used only with String fields. The comparison types you can use apply only to certain object fields, as detailed below. The comparison operators EQ and REF_EQ act on the following fields: * name * @sphere * parent * @componentParent * @instanceParent * @status * @scheduledStartTime * @scheduledEndTime * @actualStartTime * @actualEndTime The comparison operators @GE@ , @LE@ , and @BETWEEN@ act on the following fields: * @scheduledStartTime * @scheduledEndTime * @actualStartTime * @actualEndTime Note that fields beginning with the at sign (@) are read-only and set by the web service. When you name fields, you should choose names containing only alpha-numeric values, as symbols may be reserved by AWS Data Pipeline. User-defined fields that you add to a pipeline should prefix their name with the string "my". oType :: Lens' Operator (Maybe OperatorType)-oType = lens _oType (\ s a -> s{_oType = a});+oType = lens _oType (\ s a -> s{_oType = a}) instance Hashable Operator where @@ -195,11 +195,11 @@ -- | The field identifier. paKey :: Lens' ParameterAttribute Text-paKey = lens _paKey (\ s a -> s{_paKey = a});+paKey = lens _paKey (\ s a -> s{_paKey = a}) -- | The field value, expressed as a String. paStringValue :: Lens' ParameterAttribute Text-paStringValue = lens _paStringValue (\ s a -> s{_paStringValue = a});+paStringValue = lens _paStringValue (\ s a -> s{_paStringValue = a}) instance FromJSON ParameterAttribute where parseJSON@@ -245,11 +245,11 @@ -- | The ID of the parameter object. poId :: Lens' ParameterObject Text-poId = lens _poId (\ s a -> s{_poId = a});+poId = lens _poId (\ s a -> s{_poId = a}) -- | The attributes of the parameter object. poAttributes :: Lens' ParameterObject [ParameterAttribute]-poAttributes = lens _poAttributes (\ s a -> s{_poAttributes = a}) . _Coerce;+poAttributes = lens _poAttributes (\ s a -> s{_poAttributes = a}) . _Coerce instance FromJSON ParameterObject where parseJSON@@ -297,11 +297,11 @@ -- | The ID of the parameter value. pvId :: Lens' ParameterValue Text-pvId = lens _pvId (\ s a -> s{_pvId = a});+pvId = lens _pvId (\ s a -> s{_pvId = a}) -- | The field value, expressed as a String. pvStringValue :: Lens' ParameterValue Text-pvStringValue = lens _pvStringValue (\ s a -> s{_pvStringValue = a});+pvStringValue = lens _pvStringValue (\ s a -> s{_pvStringValue = a}) instance FromJSON ParameterValue where parseJSON@@ -354,33 +354,33 @@ -> PipelineDescription pipelineDescription pPipelineId_ pName_ = PipelineDescription'- { _pdDescription = Nothing- , _pdTags = Nothing- , _pdPipelineId = pPipelineId_- , _pdName = pName_- , _pdFields = mempty- }+ { _pdDescription = Nothing+ , _pdTags = Nothing+ , _pdPipelineId = pPipelineId_+ , _pdName = pName_+ , _pdFields = mempty+ } -- | Description of the pipeline. pdDescription :: Lens' PipelineDescription (Maybe Text)-pdDescription = lens _pdDescription (\ s a -> s{_pdDescription = a});+pdDescription = lens _pdDescription (\ s a -> s{_pdDescription = a}) -- | A list of tags to associated with a pipeline. Tags let you control access to pipelines. For more information, see <http://docs.aws.amazon.com/datapipeline/latest/DeveloperGuide/dp-control-access.html Controlling User Access to Pipelines> in the /AWS Data Pipeline Developer Guide/ . pdTags :: Lens' PipelineDescription [Tag]-pdTags = lens _pdTags (\ s a -> s{_pdTags = a}) . _Default . _Coerce;+pdTags = lens _pdTags (\ s a -> s{_pdTags = a}) . _Default . _Coerce -- | The pipeline identifier that was assigned by AWS Data Pipeline. This is a string of the form @df-297EG78HU43EEXAMPLE@ . pdPipelineId :: Lens' PipelineDescription Text-pdPipelineId = lens _pdPipelineId (\ s a -> s{_pdPipelineId = a});+pdPipelineId = lens _pdPipelineId (\ s a -> s{_pdPipelineId = a}) -- | The name of the pipeline. pdName :: Lens' PipelineDescription Text-pdName = lens _pdName (\ s a -> s{_pdName = a});+pdName = lens _pdName (\ s a -> s{_pdName = a}) -- | A list of read-only fields that contain metadata about the pipeline: @userId, @accountId, and @pipelineState. pdFields :: Lens' PipelineDescription [Field]-pdFields = lens _pdFields (\ s a -> s{_pdFields = a}) . _Coerce;+pdFields = lens _pdFields (\ s a -> s{_pdFields = a}) . _Coerce instance FromJSON PipelineDescription where parseJSON@@ -421,11 +421,11 @@ -- | The name of the pipeline. pinName :: Lens' PipelineIdName (Maybe Text)-pinName = lens _pinName (\ s a -> s{_pinName = a});+pinName = lens _pinName (\ s a -> s{_pinName = a}) -- | The ID of the pipeline that was assigned by AWS Data Pipeline. This is a string of the form @df-297EG78HU43EEXAMPLE@ . pinId :: Lens' PipelineIdName (Maybe Text)-pinId = lens _pinId (\ s a -> s{_pinId = a});+pinId = lens _pinId (\ s a -> s{_pinId = a}) instance FromJSON PipelineIdName where parseJSON@@ -468,15 +468,15 @@ -- | The ID of the object. pId :: Lens' PipelineObject Text-pId = lens _pId (\ s a -> s{_pId = a});+pId = lens _pId (\ s a -> s{_pId = a}) -- | The name of the object. pName :: Lens' PipelineObject Text-pName = lens _pName (\ s a -> s{_pName = a});+pName = lens _pName (\ s a -> s{_pName = a}) -- | Key-value pairs that define the properties of the object. pFields :: Lens' PipelineObject [Field]-pFields = lens _pFields (\ s a -> s{_pFields = a}) . _Coerce;+pFields = lens _pFields (\ s a -> s{_pFields = a}) . _Coerce instance FromJSON PipelineObject where parseJSON@@ -519,7 +519,7 @@ -- | List of selectors that define the query. An object must satisfy all of the selectors to match the query. qSelectors :: Lens' Query [Selector]-qSelectors = lens _qSelectors (\ s a -> s{_qSelectors = a}) . _Default . _Coerce;+qSelectors = lens _qSelectors (\ s a -> s{_qSelectors = a}) . _Default . _Coerce instance Hashable Query where @@ -555,11 +555,11 @@ -- | Undocumented member. sOperator :: Lens' Selector (Maybe Operator)-sOperator = lens _sOperator (\ s a -> s{_sOperator = a});+sOperator = lens _sOperator (\ s a -> s{_sOperator = a}) -- | The name of the field that the operator will be applied to. The field name is the "key" portion of the field definition in the pipeline definition syntax that is used by the AWS Data Pipeline API. If the field is not set on the object, the condition fails. sFieldName :: Lens' Selector (Maybe Text)-sFieldName = lens _sFieldName (\ s a -> s{_sFieldName = a});+sFieldName = lens _sFieldName (\ s a -> s{_sFieldName = a}) instance Hashable Selector where @@ -599,11 +599,11 @@ -- | The key name of a tag defined by a user. For more information, see <http://docs.aws.amazon.com/datapipeline/latest/DeveloperGuide/dp-control-access.html Controlling User Access to Pipelines> in the /AWS Data Pipeline Developer Guide/ . tagKey :: Lens' Tag Text-tagKey = lens _tagKey (\ s a -> s{_tagKey = a});+tagKey = lens _tagKey (\ s a -> s{_tagKey = a}) -- | The optional value portion of a tag defined by a user. For more information, see <http://docs.aws.amazon.com/datapipeline/latest/DeveloperGuide/dp-control-access.html Controlling User Access to Pipelines> in the /AWS Data Pipeline Developer Guide/ . tagValue :: Lens' Tag Text-tagValue = lens _tagValue (\ s a -> s{_tagValue = a});+tagValue = lens _tagValue (\ s a -> s{_tagValue = a}) instance FromJSON Tag where parseJSON@@ -649,28 +649,28 @@ :: TaskObject taskObject = TaskObject'- { _toPipelineId = Nothing- , _toAttemptId = Nothing- , _toTaskId = Nothing- , _toObjects = Nothing- }+ { _toPipelineId = Nothing+ , _toAttemptId = Nothing+ , _toTaskId = Nothing+ , _toObjects = Nothing+ } -- | The ID of the pipeline that provided the task. toPipelineId :: Lens' TaskObject (Maybe Text)-toPipelineId = lens _toPipelineId (\ s a -> s{_toPipelineId = a});+toPipelineId = lens _toPipelineId (\ s a -> s{_toPipelineId = a}) -- | The ID of the pipeline task attempt object. AWS Data Pipeline uses this value to track how many times a task is attempted. toAttemptId :: Lens' TaskObject (Maybe Text)-toAttemptId = lens _toAttemptId (\ s a -> s{_toAttemptId = a});+toAttemptId = lens _toAttemptId (\ s a -> s{_toAttemptId = a}) -- | An internal identifier for the task. This ID is passed to the 'SetTaskStatus' and 'ReportTaskProgress' actions. toTaskId :: Lens' TaskObject (Maybe Text)-toTaskId = lens _toTaskId (\ s a -> s{_toTaskId = a});+toTaskId = lens _toTaskId (\ s a -> s{_toTaskId = a}) -- | Connection information for the location where the task runner will publish the output of the task. toObjects :: Lens' TaskObject (HashMap Text PipelineObject)-toObjects = lens _toObjects (\ s a -> s{_toObjects = a}) . _Default . _Map;+toObjects = lens _toObjects (\ s a -> s{_toObjects = a}) . _Default . _Map instance FromJSON TaskObject where parseJSON@@ -710,11 +710,11 @@ -- | The identifier of the object that contains the validation error. veId :: Lens' ValidationError (Maybe Text)-veId = lens _veId (\ s a -> s{_veId = a});+veId = lens _veId (\ s a -> s{_veId = a}) -- | A description of the validation error. veErrors :: Lens' ValidationError [Text]-veErrors = lens _veErrors (\ s a -> s{_veErrors = a}) . _Default . _Coerce;+veErrors = lens _veErrors (\ s a -> s{_veErrors = a}) . _Default . _Coerce instance FromJSON ValidationError where parseJSON@@ -752,11 +752,11 @@ -- | A description of the validation warning. vwWarnings :: Lens' ValidationWarning [Text]-vwWarnings = lens _vwWarnings (\ s a -> s{_vwWarnings = a}) . _Default . _Coerce;+vwWarnings = lens _vwWarnings (\ s a -> s{_vwWarnings = a}) . _Default . _Coerce -- | The identifier of the object that contains the validation warning. vwId :: Lens' ValidationWarning (Maybe Text)-vwId = lens _vwId (\ s a -> s{_vwId = a});+vwId = lens _vwId (\ s a -> s{_vwId = a}) instance FromJSON ValidationWarning where parseJSON
gen/Network/AWS/DataPipeline/Types/Sum.hs view
@@ -9,7 +9,7 @@ -- | -- Module : Network.AWS.DataPipeline.Types.Sum--- Copyright : (c) 2013-2017 Brendan Hay+-- Copyright : (c) 2013-2018 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability : auto-generated
gen/Network/AWS/DataPipeline/ValidatePipelineDefinition.hs view
@@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.DataPipeline.ValidatePipelineDefinition--- 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,28 +78,28 @@ -> ValidatePipelineDefinition validatePipelineDefinition pPipelineId_ = ValidatePipelineDefinition'- { _vpdParameterObjects = Nothing- , _vpdParameterValues = Nothing- , _vpdPipelineId = pPipelineId_- , _vpdPipelineObjects = mempty- }+ { _vpdParameterObjects = Nothing+ , _vpdParameterValues = Nothing+ , _vpdPipelineId = pPipelineId_+ , _vpdPipelineObjects = mempty+ } -- | The parameter objects used with the pipeline. vpdParameterObjects :: Lens' ValidatePipelineDefinition [ParameterObject]-vpdParameterObjects = lens _vpdParameterObjects (\ s a -> s{_vpdParameterObjects = a}) . _Default . _Coerce;+vpdParameterObjects = lens _vpdParameterObjects (\ s a -> s{_vpdParameterObjects = a}) . _Default . _Coerce -- | The parameter values used with the pipeline. vpdParameterValues :: Lens' ValidatePipelineDefinition [ParameterValue]-vpdParameterValues = lens _vpdParameterValues (\ s a -> s{_vpdParameterValues = a}) . _Default . _Coerce;+vpdParameterValues = lens _vpdParameterValues (\ s a -> s{_vpdParameterValues = a}) . _Default . _Coerce -- | The ID of the pipeline. vpdPipelineId :: Lens' ValidatePipelineDefinition Text-vpdPipelineId = lens _vpdPipelineId (\ s a -> s{_vpdPipelineId = a});+vpdPipelineId = lens _vpdPipelineId (\ s a -> s{_vpdPipelineId = a}) -- | The objects that define the pipeline changes to validate against the pipeline. vpdPipelineObjects :: Lens' ValidatePipelineDefinition [PipelineObject]-vpdPipelineObjects = lens _vpdPipelineObjects (\ s a -> s{_vpdPipelineObjects = a}) . _Coerce;+vpdPipelineObjects = lens _vpdPipelineObjects (\ s a -> s{_vpdPipelineObjects = a}) . _Coerce instance AWSRequest ValidatePipelineDefinition where type Rs ValidatePipelineDefinition =@@ -173,28 +173,28 @@ -> ValidatePipelineDefinitionResponse validatePipelineDefinitionResponse pResponseStatus_ pErrored_ = ValidatePipelineDefinitionResponse'- { _vpdrsValidationErrors = Nothing- , _vpdrsValidationWarnings = Nothing- , _vpdrsResponseStatus = pResponseStatus_- , _vpdrsErrored = pErrored_- }+ { _vpdrsValidationErrors = Nothing+ , _vpdrsValidationWarnings = Nothing+ , _vpdrsResponseStatus = pResponseStatus_+ , _vpdrsErrored = pErrored_+ } -- | Any validation errors that were found. vpdrsValidationErrors :: Lens' ValidatePipelineDefinitionResponse [ValidationError]-vpdrsValidationErrors = lens _vpdrsValidationErrors (\ s a -> s{_vpdrsValidationErrors = a}) . _Default . _Coerce;+vpdrsValidationErrors = lens _vpdrsValidationErrors (\ s a -> s{_vpdrsValidationErrors = a}) . _Default . _Coerce -- | Any validation warnings that were found. vpdrsValidationWarnings :: Lens' ValidatePipelineDefinitionResponse [ValidationWarning]-vpdrsValidationWarnings = lens _vpdrsValidationWarnings (\ s a -> s{_vpdrsValidationWarnings = a}) . _Default . _Coerce;+vpdrsValidationWarnings = lens _vpdrsValidationWarnings (\ s a -> s{_vpdrsValidationWarnings = a}) . _Default . _Coerce -- | -- | The response status code. vpdrsResponseStatus :: Lens' ValidatePipelineDefinitionResponse Int-vpdrsResponseStatus = lens _vpdrsResponseStatus (\ s a -> s{_vpdrsResponseStatus = a});+vpdrsResponseStatus = lens _vpdrsResponseStatus (\ s a -> s{_vpdrsResponseStatus = a}) -- | Indicates whether there were validation errors. vpdrsErrored :: Lens' ValidatePipelineDefinitionResponse Bool-vpdrsErrored = lens _vpdrsErrored (\ s a -> s{_vpdrsErrored = a});+vpdrsErrored = lens _vpdrsErrored (\ s a -> s{_vpdrsErrored = a}) instance NFData ValidatePipelineDefinitionResponse where
gen/Network/AWS/DataPipeline/Waiters.hs view
@@ -7,7 +7,7 @@ -- | -- Module : Network.AWS.DataPipeline.Waiters--- Copyright : (c) 2013-2017 Brendan Hay+-- Copyright : (c) 2013-2018 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability : auto-generated
test/Main.hs view
@@ -2,7 +2,7 @@ -- | -- Module : Main--- Copyright : (c) 2013-2017 Brendan Hay+-- Copyright : (c) 2013-2018 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability : auto-generated
test/Test/AWS/DataPipeline.hs view
@@ -1,7 +1,7 @@ {-# LANGUAGE OverloadedStrings #-} -- Module : Test.AWS.DataPipeline--- Copyright : (c) 2013-2016 Brendan Hay+-- Copyright : (c) 2013-2018 Brendan Hay -- License : This Source Code Form is subject to the terms of -- the Mozilla Public License, v. 2.0. -- A copy of the MPL can be found in the LICENSE file or
test/Test/AWS/DataPipeline/Internal.hs view
@@ -2,7 +2,7 @@ {-# OPTIONS_GHC -fno-warn-unused-imports #-} -- Module : Test.AWS.DataPipeline.Internal--- Copyright : (c) 2013-2016 Brendan Hay+-- Copyright : (c) 2013-2018 Brendan Hay -- License : This Source Code Form is subject to the terms of -- the Mozilla Public License, v. 2.0. -- A copy of the MPL can be found in the LICENSE file or
test/Test/AWS/Gen/DataPipeline.hs view
@@ -5,7 +5,7 @@ -- | -- Module : Test.AWS.Gen.DataPipeline--- 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