amazonka-datapipeline 1.4.5 → 1.5.0
raw patch · 28 files changed
+797/−766 lines, 28 filesdep ~amazonka-coredep ~amazonka-datapipelinedep ~amazonka-testPVP ok
version bump matches the API change (PVP)
Dependency ranges changed: amazonka-core, amazonka-datapipeline, amazonka-test
API changes (from Hackage documentation)
Files
- README.md +1/−1
- amazonka-datapipeline.cabal +16/−11
- gen/Network/AWS/DataPipeline.hs +23/−23
- gen/Network/AWS/DataPipeline/ActivatePipeline.hs +27/−25
- gen/Network/AWS/DataPipeline/AddTags.hs +22/−24
- gen/Network/AWS/DataPipeline/CreatePipeline.hs +31/−29
- gen/Network/AWS/DataPipeline/DeactivatePipeline.hs +22/−23
- gen/Network/AWS/DataPipeline/DeletePipeline.hs +20/−19
- gen/Network/AWS/DataPipeline/DescribeObjects.hs +38/−34
- gen/Network/AWS/DataPipeline/DescribePipelines.hs +25/−24
- gen/Network/AWS/DataPipeline/EvaluateExpression.hs +31/−27
- gen/Network/AWS/DataPipeline/GetPipelineDefinition.hs +30/−29
- gen/Network/AWS/DataPipeline/ListPipelines.hs +30/−29
- gen/Network/AWS/DataPipeline/PollForTask.hs +29/−27
- gen/Network/AWS/DataPipeline/PutPipelineDefinition.hs +37/−33
- gen/Network/AWS/DataPipeline/QueryObjects.hs +40/−36
- gen/Network/AWS/DataPipeline/RemoveTags.hs +22/−23
- gen/Network/AWS/DataPipeline/ReportTaskProgress.hs +24/−25
- gen/Network/AWS/DataPipeline/ReportTaskRunnerHeartbeat.hs +29/−26
- gen/Network/AWS/DataPipeline/SetStatus.hs +23/−22
- gen/Network/AWS/DataPipeline/SetTaskStatus.hs +31/−29
- gen/Network/AWS/DataPipeline/Types.hs +40/−30
- gen/Network/AWS/DataPipeline/Types/Product.hs +142/−160
- gen/Network/AWS/DataPipeline/Types/Sum.hs +15/−13
- gen/Network/AWS/DataPipeline/ValidatePipelineDefinition.hs +37/−32
- gen/Network/AWS/DataPipeline/Waiters.hs +6/−6
- test/Main.hs +2/−2
- test/Test/AWS/Gen/DataPipeline.hs +4/−4
README.md view
@@ -8,7 +8,7 @@ ## Version -`1.4.5`+`1.5.0` ## Description
amazonka-datapipeline.cabal view
@@ -1,13 +1,13 @@ name: amazonka-datapipeline-version: 1.4.5+version: 1.5.0 synopsis: Amazon Data Pipeline SDK. homepage: https://github.com/brendanhay/amazonka bug-reports: https://github.com/brendanhay/amazonka/issues-license: OtherLicense+license: MPL-2.0 license-file: LICENSE author: Brendan Hay-maintainer: Brendan Hay <brendan.g.hay@gmail.com>-copyright: Copyright (c) 2013-2016 Brendan Hay+maintainer: Brendan Hay <brendan.g.hay+amazonka@gmail.com>+copyright: Copyright (c) 2013-2017 Brendan Hay category: Network, AWS, Cloud, Distributed Computing build-type: Simple cabal-version: >= 1.10@@ -29,14 +29,19 @@ to get started. source-repository head- type: git- location: git://github.com/brendanhay/amazonka.git+ type: git+ location: git://github.com/brendanhay/amazonka.git+ subdir: amazonka-datapipeline library default-language: Haskell2010 hs-source-dirs: src gen - ghc-options: -Wall+ ghc-options:+ -Wall+ -fwarn-incomplete-uni-patterns+ -fwarn-incomplete-record-updates+ -funbox-strict-fields exposed-modules: Network.AWS.DataPipeline@@ -67,7 +72,7 @@ , Network.AWS.DataPipeline.Types.Sum build-depends:- amazonka-core == 1.4.5.*+ amazonka-core == 1.5.0.* , base >= 4.7 && < 5 test-suite amazonka-datapipeline-test@@ -87,9 +92,9 @@ , Test.AWS.DataPipeline.Internal build-depends:- amazonka-core == 1.4.5.*- , amazonka-test == 1.4.5.*- , amazonka-datapipeline == 1.4.5.*+ amazonka-core == 1.5.0.*+ , amazonka-test == 1.5.0.*+ , amazonka-datapipeline , base , bytestring , tasty
gen/Network/AWS/DataPipeline.hs view
@@ -5,9 +5,9 @@ -- | -- Module : Network.AWS.DataPipeline--- Copyright : (c) 2013-2016 Brendan Hay+-- Copyright : (c) 2013-2017 Brendan Hay -- License : Mozilla Public License, v. 2.0.--- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability : auto-generated -- Portability : non-portable (GHC extensions) --@@ -209,27 +209,27 @@ , vwId ) where -import Network.AWS.DataPipeline.ActivatePipeline-import Network.AWS.DataPipeline.AddTags-import Network.AWS.DataPipeline.CreatePipeline-import Network.AWS.DataPipeline.DeactivatePipeline-import Network.AWS.DataPipeline.DeletePipeline-import Network.AWS.DataPipeline.DescribeObjects-import Network.AWS.DataPipeline.DescribePipelines-import Network.AWS.DataPipeline.EvaluateExpression-import Network.AWS.DataPipeline.GetPipelineDefinition-import Network.AWS.DataPipeline.ListPipelines-import Network.AWS.DataPipeline.PollForTask-import Network.AWS.DataPipeline.PutPipelineDefinition-import Network.AWS.DataPipeline.QueryObjects-import Network.AWS.DataPipeline.RemoveTags-import Network.AWS.DataPipeline.ReportTaskProgress-import Network.AWS.DataPipeline.ReportTaskRunnerHeartbeat-import Network.AWS.DataPipeline.SetStatus-import Network.AWS.DataPipeline.SetTaskStatus-import Network.AWS.DataPipeline.Types-import Network.AWS.DataPipeline.ValidatePipelineDefinition-import Network.AWS.DataPipeline.Waiters+import Network.AWS.DataPipeline.ActivatePipeline+import Network.AWS.DataPipeline.AddTags+import Network.AWS.DataPipeline.CreatePipeline+import Network.AWS.DataPipeline.DeactivatePipeline+import Network.AWS.DataPipeline.DeletePipeline+import Network.AWS.DataPipeline.DescribeObjects+import Network.AWS.DataPipeline.DescribePipelines+import Network.AWS.DataPipeline.EvaluateExpression+import Network.AWS.DataPipeline.GetPipelineDefinition+import Network.AWS.DataPipeline.ListPipelines+import Network.AWS.DataPipeline.PollForTask+import Network.AWS.DataPipeline.PutPipelineDefinition+import Network.AWS.DataPipeline.QueryObjects+import Network.AWS.DataPipeline.RemoveTags+import Network.AWS.DataPipeline.ReportTaskProgress+import Network.AWS.DataPipeline.ReportTaskRunnerHeartbeat+import Network.AWS.DataPipeline.SetStatus+import Network.AWS.DataPipeline.SetTaskStatus+import Network.AWS.DataPipeline.Types+import Network.AWS.DataPipeline.ValidatePipelineDefinition+import Network.AWS.DataPipeline.Waiters {- $errors Error matchers are designed for use with the functions provided by
gen/Network/AWS/DataPipeline/ActivatePipeline.hs view
@@ -12,9 +12,9 @@ -- | -- Module : Network.AWS.DataPipeline.ActivatePipeline--- Copyright : (c) 2013-2016 Brendan Hay+-- Copyright : (c) 2013-2017 Brendan Hay -- License : Mozilla Public License, v. 2.0.--- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability : auto-generated -- Portability : non-portable (GHC extensions) --@@ -42,12 +42,12 @@ , aprsResponseStatus ) where -import Network.AWS.DataPipeline.Types-import Network.AWS.DataPipeline.Types.Product-import Network.AWS.Lens-import Network.AWS.Prelude-import Network.AWS.Request-import Network.AWS.Response+import Network.AWS.DataPipeline.Types+import Network.AWS.DataPipeline.Types.Product+import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response -- | Contains the parameters for ActivatePipeline. --@@ -55,11 +55,12 @@ -- -- /See:/ 'activatePipeline' smart constructor. data ActivatePipeline = ActivatePipeline'- { _apStartTimestamp :: !(Maybe POSIX)- , _apParameterValues :: !(Maybe [ParameterValue])- , _apPipelineId :: !Text- } deriving (Eq,Read,Show,Data,Typeable,Generic)+ { _apStartTimestamp :: !(Maybe POSIX)+ , _apParameterValues :: !(Maybe [ParameterValue])+ , _apPipelineId :: !Text+ } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'ActivatePipeline' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -73,12 +74,13 @@ :: Text -- ^ 'apPipelineId' -> ActivatePipeline activatePipeline pPipelineId_ =- ActivatePipeline'- { _apStartTimestamp = Nothing- , _apParameterValues = Nothing- , _apPipelineId = pPipelineId_- }+ ActivatePipeline'+ { _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;@@ -99,9 +101,9 @@ (\ s h x -> ActivatePipelineResponse' <$> (pure (fromEnum s))) -instance Hashable ActivatePipeline+instance Hashable ActivatePipeline where -instance NFData ActivatePipeline+instance NFData ActivatePipeline where instance ToHeaders ActivatePipeline where toHeaders@@ -132,9 +134,10 @@ -- -- /See:/ 'activatePipelineResponse' smart constructor. newtype ActivatePipelineResponse = ActivatePipelineResponse'- { _aprsResponseStatus :: Int- } deriving (Eq,Read,Show,Data,Typeable,Generic)+ { _aprsResponseStatus :: Int+ } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'ActivatePipelineResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -144,12 +147,11 @@ :: Int -- ^ 'aprsResponseStatus' -> ActivatePipelineResponse activatePipelineResponse pResponseStatus_ =- ActivatePipelineResponse'- { _aprsResponseStatus = pResponseStatus_- }+ ActivatePipelineResponse' {_aprsResponseStatus = pResponseStatus_} + -- | -- | The response status code. aprsResponseStatus :: Lens' ActivatePipelineResponse Int aprsResponseStatus = lens _aprsResponseStatus (\ s a -> s{_aprsResponseStatus = a}); -instance NFData ActivatePipelineResponse+instance NFData ActivatePipelineResponse where
gen/Network/AWS/DataPipeline/AddTags.hs view
@@ -12,9 +12,9 @@ -- | -- Module : Network.AWS.DataPipeline.AddTags--- Copyright : (c) 2013-2016 Brendan Hay+-- Copyright : (c) 2013-2017 Brendan Hay -- License : Mozilla Public License, v. 2.0.--- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability : auto-generated -- Portability : non-portable (GHC extensions) --@@ -37,12 +37,12 @@ , atrsResponseStatus ) where -import Network.AWS.DataPipeline.Types-import Network.AWS.DataPipeline.Types.Product-import Network.AWS.Lens-import Network.AWS.Prelude-import Network.AWS.Request-import Network.AWS.Response+import Network.AWS.DataPipeline.Types+import Network.AWS.DataPipeline.Types.Product+import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response -- | Contains the parameters for AddTags. --@@ -50,10 +50,11 @@ -- -- /See:/ 'addTags' smart constructor. data AddTags = AddTags'- { _atPipelineId :: !Text- , _atTags :: ![Tag]- } deriving (Eq,Read,Show,Data,Typeable,Generic)+ { _atPipelineId :: !Text+ , _atTags :: ![Tag]+ } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'AddTags' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -64,12 +65,9 @@ addTags :: Text -- ^ 'atPipelineId' -> AddTags-addTags pPipelineId_ =- AddTags'- { _atPipelineId = pPipelineId_- , _atTags = mempty- }+addTags pPipelineId_ = AddTags' {_atPipelineId = pPipelineId_, _atTags = mempty} + -- | The ID of the pipeline. atPipelineId :: Lens' AddTags Text atPipelineId = lens _atPipelineId (\ s a -> s{_atPipelineId = a});@@ -85,9 +83,9 @@ = receiveEmpty (\ s h x -> AddTagsResponse' <$> (pure (fromEnum s))) -instance Hashable AddTags+instance Hashable AddTags where -instance NFData AddTags+instance NFData AddTags where instance ToHeaders AddTags where toHeaders@@ -117,9 +115,10 @@ -- -- /See:/ 'addTagsResponse' smart constructor. newtype AddTagsResponse = AddTagsResponse'- { _atrsResponseStatus :: Int- } deriving (Eq,Read,Show,Data,Typeable,Generic)+ { _atrsResponseStatus :: Int+ } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'AddTagsResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -129,12 +128,11 @@ :: Int -- ^ 'atrsResponseStatus' -> AddTagsResponse addTagsResponse pResponseStatus_ =- AddTagsResponse'- { _atrsResponseStatus = pResponseStatus_- }+ AddTagsResponse' {_atrsResponseStatus = pResponseStatus_} + -- | -- | The response status code. atrsResponseStatus :: Lens' AddTagsResponse Int atrsResponseStatus = lens _atrsResponseStatus (\ s a -> s{_atrsResponseStatus = a}); -instance NFData AddTagsResponse+instance NFData AddTagsResponse where
gen/Network/AWS/DataPipeline/CreatePipeline.hs view
@@ -12,9 +12,9 @@ -- | -- Module : Network.AWS.DataPipeline.CreatePipeline--- Copyright : (c) 2013-2016 Brendan Hay+-- Copyright : (c) 2013-2017 Brendan Hay -- License : Mozilla Public License, v. 2.0.--- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability : auto-generated -- Portability : non-portable (GHC extensions) --@@ -40,12 +40,12 @@ , cprsPipelineId ) where -import Network.AWS.DataPipeline.Types-import Network.AWS.DataPipeline.Types.Product-import Network.AWS.Lens-import Network.AWS.Prelude-import Network.AWS.Request-import Network.AWS.Response+import Network.AWS.DataPipeline.Types+import Network.AWS.DataPipeline.Types.Product+import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response -- | Contains the parameters for CreatePipeline. --@@ -53,12 +53,13 @@ -- -- /See:/ 'createPipeline' smart constructor. data CreatePipeline = CreatePipeline'- { _cpDescription :: !(Maybe Text)- , _cpTags :: !(Maybe [Tag])- , _cpName :: !Text- , _cpUniqueId :: !Text- } deriving (Eq,Read,Show,Data,Typeable,Generic)+ { _cpDescription :: !(Maybe Text)+ , _cpTags :: !(Maybe [Tag])+ , _cpName :: !Text+ , _cpUniqueId :: !Text+ } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'CreatePipeline' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -75,13 +76,14 @@ -> Text -- ^ 'cpUniqueId' -> CreatePipeline createPipeline pName_ pUniqueId_ =- CreatePipeline'- { _cpDescription = Nothing- , _cpTags = Nothing- , _cpName = pName_- , _cpUniqueId = pUniqueId_- }+ CreatePipeline'+ { _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});@@ -107,9 +109,9 @@ CreatePipelineResponse' <$> (pure (fromEnum s)) <*> (x .:> "pipelineId")) -instance Hashable CreatePipeline+instance Hashable CreatePipeline where -instance NFData CreatePipeline+instance NFData CreatePipeline where instance ToHeaders CreatePipeline where toHeaders@@ -140,10 +142,11 @@ -- -- /See:/ 'createPipelineResponse' smart constructor. data CreatePipelineResponse = CreatePipelineResponse'- { _cprsResponseStatus :: !Int- , _cprsPipelineId :: !Text- } deriving (Eq,Read,Show,Data,Typeable,Generic)+ { _cprsResponseStatus :: !Int+ , _cprsPipelineId :: !Text+ } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'CreatePipelineResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -156,11 +159,10 @@ -> Text -- ^ 'cprsPipelineId' -> CreatePipelineResponse createPipelineResponse pResponseStatus_ pPipelineId_ =- CreatePipelineResponse'- { _cprsResponseStatus = pResponseStatus_- , _cprsPipelineId = pPipelineId_- }+ CreatePipelineResponse'+ {_cprsResponseStatus = pResponseStatus_, _cprsPipelineId = pPipelineId_} + -- | -- | The response status code. cprsResponseStatus :: Lens' CreatePipelineResponse Int cprsResponseStatus = lens _cprsResponseStatus (\ s a -> s{_cprsResponseStatus = a});@@ -169,4 +171,4 @@ cprsPipelineId :: Lens' CreatePipelineResponse Text cprsPipelineId = lens _cprsPipelineId (\ s a -> s{_cprsPipelineId = a}); -instance NFData CreatePipelineResponse+instance NFData CreatePipelineResponse where
gen/Network/AWS/DataPipeline/DeactivatePipeline.hs view
@@ -12,9 +12,9 @@ -- | -- Module : Network.AWS.DataPipeline.DeactivatePipeline--- Copyright : (c) 2013-2016 Brendan Hay+-- Copyright : (c) 2013-2017 Brendan Hay -- License : Mozilla Public License, v. 2.0.--- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability : auto-generated -- Portability : non-portable (GHC extensions) --@@ -39,12 +39,12 @@ , drsResponseStatus ) where -import Network.AWS.DataPipeline.Types-import Network.AWS.DataPipeline.Types.Product-import Network.AWS.Lens-import Network.AWS.Prelude-import Network.AWS.Request-import Network.AWS.Response+import Network.AWS.DataPipeline.Types+import Network.AWS.DataPipeline.Types.Product+import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response -- | Contains the parameters for DeactivatePipeline. --@@ -52,10 +52,11 @@ -- -- /See:/ 'deactivatePipeline' smart constructor. data DeactivatePipeline = DeactivatePipeline'- { _dCancelActive :: !(Maybe Bool)- , _dPipelineId :: !Text- } deriving (Eq,Read,Show,Data,Typeable,Generic)+ { _dCancelActive :: !(Maybe Bool)+ , _dPipelineId :: !Text+ } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DeactivatePipeline' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -67,11 +68,9 @@ :: Text -- ^ 'dPipelineId' -> DeactivatePipeline deactivatePipeline pPipelineId_ =- DeactivatePipeline'- { _dCancelActive = Nothing- , _dPipelineId = pPipelineId_- }+ DeactivatePipeline' {_dCancelActive = Nothing, _dPipelineId = pPipelineId_} + -- | 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});@@ -89,9 +88,9 @@ (\ s h x -> DeactivatePipelineResponse' <$> (pure (fromEnum s))) -instance Hashable DeactivatePipeline+instance Hashable DeactivatePipeline where -instance NFData DeactivatePipeline+instance NFData DeactivatePipeline where instance ToHeaders DeactivatePipeline where toHeaders@@ -121,9 +120,10 @@ -- -- /See:/ 'deactivatePipelineResponse' smart constructor. newtype DeactivatePipelineResponse = DeactivatePipelineResponse'- { _drsResponseStatus :: Int- } deriving (Eq,Read,Show,Data,Typeable,Generic)+ { _drsResponseStatus :: Int+ } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DeactivatePipelineResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -133,12 +133,11 @@ :: Int -- ^ 'drsResponseStatus' -> DeactivatePipelineResponse deactivatePipelineResponse pResponseStatus_ =- DeactivatePipelineResponse'- { _drsResponseStatus = pResponseStatus_- }+ DeactivatePipelineResponse' {_drsResponseStatus = pResponseStatus_} + -- | -- | The response status code. drsResponseStatus :: Lens' DeactivatePipelineResponse Int drsResponseStatus = lens _drsResponseStatus (\ s a -> s{_drsResponseStatus = a}); -instance NFData DeactivatePipelineResponse+instance NFData DeactivatePipelineResponse where
gen/Network/AWS/DataPipeline/DeletePipeline.hs view
@@ -12,9 +12,9 @@ -- | -- Module : Network.AWS.DataPipeline.DeletePipeline--- Copyright : (c) 2013-2016 Brendan Hay+-- Copyright : (c) 2013-2017 Brendan Hay -- License : Mozilla Public License, v. 2.0.--- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability : auto-generated -- Portability : non-portable (GHC extensions) --@@ -36,12 +36,12 @@ , DeletePipelineResponse ) where -import Network.AWS.DataPipeline.Types-import Network.AWS.DataPipeline.Types.Product-import Network.AWS.Lens-import Network.AWS.Prelude-import Network.AWS.Request-import Network.AWS.Response+import Network.AWS.DataPipeline.Types+import Network.AWS.DataPipeline.Types.Product+import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response -- | Contains the parameters for DeletePipeline. --@@ -49,9 +49,10 @@ -- -- /See:/ 'deletePipeline' smart constructor. newtype DeletePipeline = DeletePipeline'- { _dpPipelineId :: Text- } deriving (Eq,Read,Show,Data,Typeable,Generic)+ { _dpPipelineId :: Text+ } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DeletePipeline' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -60,11 +61,9 @@ deletePipeline :: Text -- ^ 'dpPipelineId' -> DeletePipeline-deletePipeline pPipelineId_ =- DeletePipeline'- { _dpPipelineId = pPipelineId_- }+deletePipeline pPipelineId_ = DeletePipeline' {_dpPipelineId = pPipelineId_} + -- | The ID of the pipeline. dpPipelineId :: Lens' DeletePipeline Text dpPipelineId = lens _dpPipelineId (\ s a -> s{_dpPipelineId = a});@@ -74,9 +73,9 @@ request = postJSON dataPipeline response = receiveNull DeletePipelineResponse' -instance Hashable DeletePipeline+instance Hashable DeletePipeline where -instance NFData DeletePipeline+instance NFData DeletePipeline where instance ToHeaders DeletePipeline where toHeaders@@ -100,13 +99,15 @@ -- | /See:/ 'deletePipelineResponse' smart constructor. data DeletePipelineResponse =- DeletePipelineResponse'- deriving (Eq,Read,Show,Data,Typeable,Generic)+ DeletePipelineResponse'+ deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DeletePipelineResponse' with the minimum fields required to make a request. -- deletePipelineResponse :: DeletePipelineResponse deletePipelineResponse = DeletePipelineResponse' -instance NFData DeletePipelineResponse++instance NFData DeletePipelineResponse where
gen/Network/AWS/DataPipeline/DescribeObjects.hs view
@@ -12,9 +12,9 @@ -- | -- Module : Network.AWS.DataPipeline.DescribeObjects--- Copyright : (c) 2013-2016 Brendan Hay+-- Copyright : (c) 2013-2017 Brendan Hay -- License : Mozilla Public License, v. 2.0.--- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability : auto-generated -- Portability : non-portable (GHC extensions) --@@ -44,13 +44,13 @@ , dorsPipelineObjects ) where -import Network.AWS.DataPipeline.Types-import Network.AWS.DataPipeline.Types.Product-import Network.AWS.Lens-import Network.AWS.Pager-import Network.AWS.Prelude-import Network.AWS.Request-import Network.AWS.Response+import Network.AWS.DataPipeline.Types+import Network.AWS.DataPipeline.Types.Product+import Network.AWS.Lens+import Network.AWS.Pager+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response -- | Contains the parameters for DescribeObjects. --@@ -58,12 +58,13 @@ -- -- /See:/ 'describeObjects' smart constructor. data DescribeObjects = DescribeObjects'- { _doEvaluateExpressions :: !(Maybe Bool)- , _doMarker :: !(Maybe Text)- , _doPipelineId :: !Text- , _doObjectIds :: ![Text]- } deriving (Eq,Read,Show,Data,Typeable,Generic)+ { _doEvaluateExpressions :: !(Maybe Bool)+ , _doMarker :: !(Maybe Text)+ , _doPipelineId :: !Text+ , _doObjectIds :: ![Text]+ } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DescribeObjects' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -79,13 +80,14 @@ :: Text -- ^ 'doPipelineId' -> DescribeObjects describeObjects pPipelineId_ =- DescribeObjects'- { _doEvaluateExpressions = Nothing- , _doMarker = Nothing- , _doPipelineId = pPipelineId_- , _doObjectIds = mempty- }+ DescribeObjects'+ { _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});@@ -120,9 +122,9 @@ (pure (fromEnum s)) <*> (x .?> "pipelineObjects" .!@ mempty)) -instance Hashable DescribeObjects+instance Hashable DescribeObjects where -instance NFData DescribeObjects+instance NFData DescribeObjects where instance ToHeaders DescribeObjects where toHeaders@@ -155,12 +157,13 @@ -- -- /See:/ 'describeObjectsResponse' smart constructor. data DescribeObjectsResponse = DescribeObjectsResponse'- { _dorsHasMoreResults :: !(Maybe Bool)- , _dorsMarker :: !(Maybe Text)- , _dorsResponseStatus :: !Int- , _dorsPipelineObjects :: ![PipelineObject]- } deriving (Eq,Read,Show,Data,Typeable,Generic)+ { _dorsHasMoreResults :: !(Maybe Bool)+ , _dorsMarker :: !(Maybe Text)+ , _dorsResponseStatus :: !Int+ , _dorsPipelineObjects :: ![PipelineObject]+ } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DescribeObjectsResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -176,13 +179,14 @@ :: Int -- ^ 'dorsResponseStatus' -> DescribeObjectsResponse describeObjectsResponse pResponseStatus_ =- DescribeObjectsResponse'- { _dorsHasMoreResults = Nothing- , _dorsMarker = Nothing- , _dorsResponseStatus = pResponseStatus_- , _dorsPipelineObjects = mempty- }+ DescribeObjectsResponse'+ { _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});@@ -199,4 +203,4 @@ dorsPipelineObjects :: Lens' DescribeObjectsResponse [PipelineObject] dorsPipelineObjects = lens _dorsPipelineObjects (\ s a -> s{_dorsPipelineObjects = a}) . _Coerce; -instance NFData DescribeObjectsResponse+instance NFData DescribeObjectsResponse where
gen/Network/AWS/DataPipeline/DescribePipelines.hs view
@@ -12,9 +12,9 @@ -- | -- Module : Network.AWS.DataPipeline.DescribePipelines--- Copyright : (c) 2013-2016 Brendan Hay+-- Copyright : (c) 2013-2017 Brendan Hay -- License : Mozilla Public License, v. 2.0.--- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability : auto-generated -- Portability : non-portable (GHC extensions) --@@ -39,12 +39,12 @@ , dprsPipelineDescriptionList ) where -import Network.AWS.DataPipeline.Types-import Network.AWS.DataPipeline.Types.Product-import Network.AWS.Lens-import Network.AWS.Prelude-import Network.AWS.Request-import Network.AWS.Response+import Network.AWS.DataPipeline.Types+import Network.AWS.DataPipeline.Types.Product+import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response -- | Contains the parameters for DescribePipelines. --@@ -52,9 +52,10 @@ -- -- /See:/ 'describePipelines' smart constructor. newtype DescribePipelines = DescribePipelines'- { _dpPipelineIds :: [Text]- } deriving (Eq,Read,Show,Data,Typeable,Generic)+ { _dpPipelineIds :: [Text]+ } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DescribePipelines' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -62,11 +63,9 @@ -- * 'dpPipelineIds' - 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' . describePipelines :: DescribePipelines-describePipelines =- DescribePipelines'- { _dpPipelineIds = mempty- }+describePipelines = DescribePipelines' {_dpPipelineIds = mempty} + -- | 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;@@ -81,9 +80,9 @@ (pure (fromEnum s)) <*> (x .?> "pipelineDescriptionList" .!@ mempty)) -instance Hashable DescribePipelines+instance Hashable DescribePipelines where -instance NFData DescribePipelines+instance NFData DescribePipelines where instance ToHeaders DescribePipelines where toHeaders@@ -111,10 +110,11 @@ -- -- /See:/ 'describePipelinesResponse' smart constructor. data DescribePipelinesResponse = DescribePipelinesResponse'- { _dprsResponseStatus :: !Int- , _dprsPipelineDescriptionList :: ![PipelineDescription]- } deriving (Eq,Read,Show,Data,Typeable,Generic)+ { _dprsResponseStatus :: !Int+ , _dprsPipelineDescriptionList :: ![PipelineDescription]+ } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DescribePipelinesResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -126,11 +126,12 @@ :: Int -- ^ 'dprsResponseStatus' -> DescribePipelinesResponse describePipelinesResponse pResponseStatus_ =- DescribePipelinesResponse'- { _dprsResponseStatus = pResponseStatus_- , _dprsPipelineDescriptionList = mempty- }+ DescribePipelinesResponse'+ { _dprsResponseStatus = pResponseStatus_+ , _dprsPipelineDescriptionList = mempty+ } + -- | -- | The response status code. dprsResponseStatus :: Lens' DescribePipelinesResponse Int dprsResponseStatus = lens _dprsResponseStatus (\ s a -> s{_dprsResponseStatus = a});@@ -139,4 +140,4 @@ dprsPipelineDescriptionList :: Lens' DescribePipelinesResponse [PipelineDescription] dprsPipelineDescriptionList = lens _dprsPipelineDescriptionList (\ s a -> s{_dprsPipelineDescriptionList = a}) . _Coerce; -instance NFData DescribePipelinesResponse+instance NFData DescribePipelinesResponse where
gen/Network/AWS/DataPipeline/EvaluateExpression.hs view
@@ -12,9 +12,9 @@ -- | -- Module : Network.AWS.DataPipeline.EvaluateExpression--- Copyright : (c) 2013-2016 Brendan Hay+-- Copyright : (c) 2013-2017 Brendan Hay -- License : Mozilla Public License, v. 2.0.--- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability : auto-generated -- Portability : non-portable (GHC extensions) --@@ -39,12 +39,12 @@ , eersEvaluatedExpression ) where -import Network.AWS.DataPipeline.Types-import Network.AWS.DataPipeline.Types.Product-import Network.AWS.Lens-import Network.AWS.Prelude-import Network.AWS.Request-import Network.AWS.Response+import Network.AWS.DataPipeline.Types+import Network.AWS.DataPipeline.Types.Product+import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response -- | Contains the parameters for EvaluateExpression. --@@ -52,11 +52,12 @@ -- -- /See:/ 'evaluateExpression' smart constructor. data EvaluateExpression = EvaluateExpression'- { _eePipelineId :: !Text- , _eeObjectId :: !Text- , _eeExpression :: !Text- } deriving (Eq,Read,Show,Data,Typeable,Generic)+ { _eePipelineId :: !Text+ , _eeObjectId :: !Text+ , _eeExpression :: !Text+ } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'EvaluateExpression' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -72,12 +73,13 @@ -> Text -- ^ 'eeExpression' -> EvaluateExpression evaluateExpression pPipelineId_ pObjectId_ pExpression_ =- EvaluateExpression'- { _eePipelineId = pPipelineId_- , _eeObjectId = pObjectId_- , _eeExpression = pExpression_- }+ EvaluateExpression'+ { _eePipelineId = pPipelineId_+ , _eeObjectId = pObjectId_+ , _eeExpression = pExpression_+ } + -- | The ID of the pipeline. eePipelineId :: Lens' EvaluateExpression Text eePipelineId = lens _eePipelineId (\ s a -> s{_eePipelineId = a});@@ -101,9 +103,9 @@ (pure (fromEnum s)) <*> (x .:> "evaluatedExpression")) -instance Hashable EvaluateExpression+instance Hashable EvaluateExpression where -instance NFData EvaluateExpression+instance NFData EvaluateExpression where instance ToHeaders EvaluateExpression where toHeaders@@ -134,10 +136,11 @@ -- -- /See:/ 'evaluateExpressionResponse' smart constructor. data EvaluateExpressionResponse = EvaluateExpressionResponse'- { _eersResponseStatus :: !Int- , _eersEvaluatedExpression :: !Text- } deriving (Eq,Read,Show,Data,Typeable,Generic)+ { _eersResponseStatus :: !Int+ , _eersEvaluatedExpression :: !Text+ } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'EvaluateExpressionResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -150,11 +153,12 @@ -> Text -- ^ 'eersEvaluatedExpression' -> EvaluateExpressionResponse evaluateExpressionResponse pResponseStatus_ pEvaluatedExpression_ =- EvaluateExpressionResponse'- { _eersResponseStatus = pResponseStatus_- , _eersEvaluatedExpression = pEvaluatedExpression_- }+ EvaluateExpressionResponse'+ { _eersResponseStatus = pResponseStatus_+ , _eersEvaluatedExpression = pEvaluatedExpression_+ } + -- | -- | The response status code. eersResponseStatus :: Lens' EvaluateExpressionResponse Int eersResponseStatus = lens _eersResponseStatus (\ s a -> s{_eersResponseStatus = a});@@ -163,4 +167,4 @@ eersEvaluatedExpression :: Lens' EvaluateExpressionResponse Text eersEvaluatedExpression = lens _eersEvaluatedExpression (\ s a -> s{_eersEvaluatedExpression = a}); -instance NFData EvaluateExpressionResponse+instance NFData EvaluateExpressionResponse where
gen/Network/AWS/DataPipeline/GetPipelineDefinition.hs view
@@ -12,9 +12,9 @@ -- | -- Module : Network.AWS.DataPipeline.GetPipelineDefinition--- Copyright : (c) 2013-2016 Brendan Hay+-- Copyright : (c) 2013-2017 Brendan Hay -- License : Mozilla Public License, v. 2.0.--- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability : auto-generated -- Portability : non-portable (GHC extensions) --@@ -40,12 +40,12 @@ , gpdrsResponseStatus ) where -import Network.AWS.DataPipeline.Types-import Network.AWS.DataPipeline.Types.Product-import Network.AWS.Lens-import Network.AWS.Prelude-import Network.AWS.Request-import Network.AWS.Response+import Network.AWS.DataPipeline.Types+import Network.AWS.DataPipeline.Types.Product+import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response -- | Contains the parameters for GetPipelineDefinition. --@@ -53,10 +53,11 @@ -- -- /See:/ 'getPipelineDefinition' smart constructor. data GetPipelineDefinition = GetPipelineDefinition'- { _gpdVersion :: !(Maybe Text)- , _gpdPipelineId :: !Text- } deriving (Eq,Read,Show,Data,Typeable,Generic)+ { _gpdVersion :: !(Maybe Text)+ , _gpdPipelineId :: !Text+ } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'GetPipelineDefinition' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -68,11 +69,9 @@ :: Text -- ^ 'gpdPipelineId' -> GetPipelineDefinition getPipelineDefinition pPipelineId_ =- GetPipelineDefinition'- { _gpdVersion = Nothing- , _gpdPipelineId = pPipelineId_- }+ GetPipelineDefinition' {_gpdVersion = Nothing, _gpdPipelineId = pPipelineId_} + -- | 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});@@ -94,9 +93,9 @@ <*> (x .?> "parameterValues" .!@ mempty) <*> (pure (fromEnum s))) -instance Hashable GetPipelineDefinition+instance Hashable GetPipelineDefinition where -instance NFData GetPipelineDefinition+instance NFData GetPipelineDefinition where instance ToHeaders GetPipelineDefinition where toHeaders@@ -126,12 +125,13 @@ -- -- /See:/ 'getPipelineDefinitionResponse' smart constructor. data GetPipelineDefinitionResponse = GetPipelineDefinitionResponse'- { _gpdrsPipelineObjects :: !(Maybe [PipelineObject])- , _gpdrsParameterObjects :: !(Maybe [ParameterObject])- , _gpdrsParameterValues :: !(Maybe [ParameterValue])- , _gpdrsResponseStatus :: !Int- } deriving (Eq,Read,Show,Data,Typeable,Generic)+ { _gpdrsPipelineObjects :: !(Maybe [PipelineObject])+ , _gpdrsParameterObjects :: !(Maybe [ParameterObject])+ , _gpdrsParameterValues :: !(Maybe [ParameterValue])+ , _gpdrsResponseStatus :: !Int+ } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'GetPipelineDefinitionResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -147,13 +147,14 @@ :: Int -- ^ 'gpdrsResponseStatus' -> GetPipelineDefinitionResponse getPipelineDefinitionResponse pResponseStatus_ =- GetPipelineDefinitionResponse'- { _gpdrsPipelineObjects = Nothing- , _gpdrsParameterObjects = Nothing- , _gpdrsParameterValues = Nothing- , _gpdrsResponseStatus = pResponseStatus_- }+ GetPipelineDefinitionResponse'+ { _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;@@ -170,4 +171,4 @@ gpdrsResponseStatus :: Lens' GetPipelineDefinitionResponse Int gpdrsResponseStatus = lens _gpdrsResponseStatus (\ s a -> s{_gpdrsResponseStatus = a}); -instance NFData GetPipelineDefinitionResponse+instance NFData GetPipelineDefinitionResponse where
gen/Network/AWS/DataPipeline/ListPipelines.hs view
@@ -12,9 +12,9 @@ -- | -- Module : Network.AWS.DataPipeline.ListPipelines--- Copyright : (c) 2013-2016 Brendan Hay+-- Copyright : (c) 2013-2017 Brendan Hay -- License : Mozilla Public License, v. 2.0.--- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability : auto-generated -- Portability : non-portable (GHC extensions) --@@ -41,13 +41,13 @@ , lprsPipelineIdList ) where -import Network.AWS.DataPipeline.Types-import Network.AWS.DataPipeline.Types.Product-import Network.AWS.Lens-import Network.AWS.Pager-import Network.AWS.Prelude-import Network.AWS.Request-import Network.AWS.Response+import Network.AWS.DataPipeline.Types+import Network.AWS.DataPipeline.Types.Product+import Network.AWS.Lens+import Network.AWS.Pager+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response -- | Contains the parameters for ListPipelines. --@@ -55,9 +55,10 @@ -- -- /See:/ 'listPipelines' smart constructor. newtype ListPipelines = ListPipelines'- { _lpMarker :: Maybe Text- } deriving (Eq,Read,Show,Data,Typeable,Generic)+ { _lpMarker :: Maybe Text+ } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'ListPipelines' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -65,11 +66,9 @@ -- * 'lpMarker' - 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. listPipelines :: ListPipelines-listPipelines =- ListPipelines'- { _lpMarker = Nothing- }+listPipelines = ListPipelines' {_lpMarker = Nothing} + -- | 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});@@ -92,9 +91,9 @@ (pure (fromEnum s)) <*> (x .?> "pipelineIdList" .!@ mempty)) -instance Hashable ListPipelines+instance Hashable ListPipelines where -instance NFData ListPipelines+instance NFData ListPipelines where instance ToHeaders ListPipelines where toHeaders@@ -121,12 +120,13 @@ -- -- /See:/ 'listPipelinesResponse' smart constructor. data ListPipelinesResponse = ListPipelinesResponse'- { _lprsHasMoreResults :: !(Maybe Bool)- , _lprsMarker :: !(Maybe Text)- , _lprsResponseStatus :: !Int- , _lprsPipelineIdList :: ![PipelineIdName]- } deriving (Eq,Read,Show,Data,Typeable,Generic)+ { _lprsHasMoreResults :: !(Maybe Bool)+ , _lprsMarker :: !(Maybe Text)+ , _lprsResponseStatus :: !Int+ , _lprsPipelineIdList :: ![PipelineIdName]+ } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'ListPipelinesResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -142,13 +142,14 @@ :: Int -- ^ 'lprsResponseStatus' -> ListPipelinesResponse listPipelinesResponse pResponseStatus_ =- ListPipelinesResponse'- { _lprsHasMoreResults = Nothing- , _lprsMarker = Nothing- , _lprsResponseStatus = pResponseStatus_- , _lprsPipelineIdList = mempty- }+ ListPipelinesResponse'+ { _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});@@ -165,4 +166,4 @@ lprsPipelineIdList :: Lens' ListPipelinesResponse [PipelineIdName] lprsPipelineIdList = lens _lprsPipelineIdList (\ s a -> s{_lprsPipelineIdList = a}) . _Coerce; -instance NFData ListPipelinesResponse+instance NFData ListPipelinesResponse where
gen/Network/AWS/DataPipeline/PollForTask.hs view
@@ -12,9 +12,9 @@ -- | -- Module : Network.AWS.DataPipeline.PollForTask--- Copyright : (c) 2013-2016 Brendan Hay+-- Copyright : (c) 2013-2017 Brendan Hay -- License : Mozilla Public License, v. 2.0.--- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability : auto-generated -- Portability : non-portable (GHC extensions) --@@ -41,12 +41,12 @@ , pftrsResponseStatus ) where -import Network.AWS.DataPipeline.Types-import Network.AWS.DataPipeline.Types.Product-import Network.AWS.Lens-import Network.AWS.Prelude-import Network.AWS.Request-import Network.AWS.Response+import Network.AWS.DataPipeline.Types+import Network.AWS.DataPipeline.Types.Product+import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response -- | Contains the parameters for PollForTask. --@@ -54,11 +54,12 @@ -- -- /See:/ 'pollForTask' smart constructor. data PollForTask = PollForTask'- { _pftHostname :: !(Maybe Text)- , _pftInstanceIdentity :: !(Maybe InstanceIdentity)- , _pftWorkerGroup :: !Text- } deriving (Eq,Read,Show,Data,Typeable,Generic)+ { _pftHostname :: !(Maybe Text)+ , _pftInstanceIdentity :: !(Maybe InstanceIdentity)+ , _pftWorkerGroup :: !Text+ } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'PollForTask' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -72,12 +73,13 @@ :: Text -- ^ 'pftWorkerGroup' -> PollForTask pollForTask pWorkerGroup_ =- PollForTask'- { _pftHostname = Nothing- , _pftInstanceIdentity = Nothing- , _pftWorkerGroup = pWorkerGroup_- }+ PollForTask'+ { _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});@@ -99,9 +101,9 @@ PollForTaskResponse' <$> (x .?> "taskObject") <*> (pure (fromEnum s))) -instance Hashable PollForTask+instance Hashable PollForTask where -instance NFData PollForTask+instance NFData PollForTask where instance ToHeaders PollForTask where toHeaders@@ -132,10 +134,11 @@ -- -- /See:/ 'pollForTaskResponse' smart constructor. data PollForTaskResponse = PollForTaskResponse'- { _pftrsTaskObject :: !(Maybe TaskObject)- , _pftrsResponseStatus :: !Int- } deriving (Eq,Read,Show,Data,Typeable,Generic)+ { _pftrsTaskObject :: !(Maybe TaskObject)+ , _pftrsResponseStatus :: !Int+ } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'PollForTaskResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -147,11 +150,10 @@ :: Int -- ^ 'pftrsResponseStatus' -> PollForTaskResponse pollForTaskResponse pResponseStatus_ =- PollForTaskResponse'- { _pftrsTaskObject = Nothing- , _pftrsResponseStatus = pResponseStatus_- }+ PollForTaskResponse'+ {_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});@@ -160,4 +162,4 @@ pftrsResponseStatus :: Lens' PollForTaskResponse Int pftrsResponseStatus = lens _pftrsResponseStatus (\ s a -> s{_pftrsResponseStatus = a}); -instance NFData PollForTaskResponse+instance NFData PollForTaskResponse where
gen/Network/AWS/DataPipeline/PutPipelineDefinition.hs view
@@ -12,9 +12,9 @@ -- | -- Module : Network.AWS.DataPipeline.PutPipelineDefinition--- Copyright : (c) 2013-2016 Brendan Hay+-- Copyright : (c) 2013-2017 Brendan Hay -- License : Mozilla Public License, v. 2.0.--- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability : auto-generated -- Portability : non-portable (GHC extensions) --@@ -48,12 +48,12 @@ , ppdrsErrored ) where -import Network.AWS.DataPipeline.Types-import Network.AWS.DataPipeline.Types.Product-import Network.AWS.Lens-import Network.AWS.Prelude-import Network.AWS.Request-import Network.AWS.Response+import Network.AWS.DataPipeline.Types+import Network.AWS.DataPipeline.Types.Product+import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response -- | Contains the parameters for PutPipelineDefinition. --@@ -61,12 +61,13 @@ -- -- /See:/ 'putPipelineDefinition' smart constructor. data PutPipelineDefinition = PutPipelineDefinition'- { _ppdParameterObjects :: !(Maybe [ParameterObject])- , _ppdParameterValues :: !(Maybe [ParameterValue])- , _ppdPipelineId :: !Text- , _ppdPipelineObjects :: ![PipelineObject]- } deriving (Eq,Read,Show,Data,Typeable,Generic)+ { _ppdParameterObjects :: !(Maybe [ParameterObject])+ , _ppdParameterValues :: !(Maybe [ParameterValue])+ , _ppdPipelineId :: !Text+ , _ppdPipelineObjects :: ![PipelineObject]+ } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'PutPipelineDefinition' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -82,13 +83,14 @@ :: Text -- ^ 'ppdPipelineId' -> PutPipelineDefinition putPipelineDefinition pPipelineId_ =- PutPipelineDefinition'- { _ppdParameterObjects = Nothing- , _ppdParameterValues = Nothing- , _ppdPipelineId = pPipelineId_- , _ppdPipelineObjects = mempty- }+ PutPipelineDefinition'+ { _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;@@ -118,9 +120,9 @@ <*> (pure (fromEnum s)) <*> (x .:> "errored")) -instance Hashable PutPipelineDefinition+instance Hashable PutPipelineDefinition where -instance NFData PutPipelineDefinition+instance NFData PutPipelineDefinition where instance ToHeaders PutPipelineDefinition where toHeaders@@ -152,12 +154,13 @@ -- -- /See:/ 'putPipelineDefinitionResponse' smart constructor. data PutPipelineDefinitionResponse = PutPipelineDefinitionResponse'- { _ppdrsValidationErrors :: !(Maybe [ValidationError])- , _ppdrsValidationWarnings :: !(Maybe [ValidationWarning])- , _ppdrsResponseStatus :: !Int- , _ppdrsErrored :: !Bool- } deriving (Eq,Read,Show,Data,Typeable,Generic)+ { _ppdrsValidationErrors :: !(Maybe [ValidationError])+ , _ppdrsValidationWarnings :: !(Maybe [ValidationWarning])+ , _ppdrsResponseStatus :: !Int+ , _ppdrsErrored :: !Bool+ } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'PutPipelineDefinitionResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -174,13 +177,14 @@ -> Bool -- ^ 'ppdrsErrored' -> PutPipelineDefinitionResponse putPipelineDefinitionResponse pResponseStatus_ pErrored_ =- PutPipelineDefinitionResponse'- { _ppdrsValidationErrors = Nothing- , _ppdrsValidationWarnings = Nothing- , _ppdrsResponseStatus = pResponseStatus_- , _ppdrsErrored = pErrored_- }+ PutPipelineDefinitionResponse'+ { _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;@@ -197,4 +201,4 @@ ppdrsErrored :: Lens' PutPipelineDefinitionResponse Bool ppdrsErrored = lens _ppdrsErrored (\ s a -> s{_ppdrsErrored = a}); -instance NFData PutPipelineDefinitionResponse+instance NFData PutPipelineDefinitionResponse where
gen/Network/AWS/DataPipeline/QueryObjects.hs view
@@ -12,9 +12,9 @@ -- | -- Module : Network.AWS.DataPipeline.QueryObjects--- Copyright : (c) 2013-2016 Brendan Hay+-- Copyright : (c) 2013-2017 Brendan Hay -- License : Mozilla Public License, v. 2.0.--- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability : auto-generated -- Portability : non-portable (GHC extensions) --@@ -45,13 +45,13 @@ , qorsResponseStatus ) where -import Network.AWS.DataPipeline.Types-import Network.AWS.DataPipeline.Types.Product-import Network.AWS.Lens-import Network.AWS.Pager-import Network.AWS.Prelude-import Network.AWS.Request-import Network.AWS.Response+import Network.AWS.DataPipeline.Types+import Network.AWS.DataPipeline.Types.Product+import Network.AWS.Lens+import Network.AWS.Pager+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response -- | Contains the parameters for QueryObjects. --@@ -59,13 +59,14 @@ -- -- /See:/ 'queryObjects' smart constructor. data QueryObjects = QueryObjects'- { _qoQuery :: !(Maybe Query)- , _qoMarker :: !(Maybe Text)- , _qoLimit :: !(Maybe Int)- , _qoPipelineId :: !Text- , _qoSphere :: !Text- } deriving (Eq,Read,Show,Data,Typeable,Generic)+ { _qoQuery :: !(Maybe Query)+ , _qoMarker :: !(Maybe Text)+ , _qoLimit :: !(Maybe Int)+ , _qoPipelineId :: !Text+ , _qoSphere :: !Text+ } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'QueryObjects' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -84,14 +85,15 @@ -> Text -- ^ 'qoSphere' -> QueryObjects queryObjects pPipelineId_ pSphere_ =- QueryObjects'- { _qoQuery = Nothing- , _qoMarker = Nothing- , _qoLimit = Nothing- , _qoPipelineId = pPipelineId_- , _qoSphere = pSphere_- }+ QueryObjects'+ { _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});@@ -130,9 +132,9 @@ <*> (x .?> "marker") <*> (pure (fromEnum s))) -instance Hashable QueryObjects+instance Hashable QueryObjects where -instance NFData QueryObjects+instance NFData QueryObjects where instance ToHeaders QueryObjects where toHeaders@@ -165,12 +167,13 @@ -- -- /See:/ 'queryObjectsResponse' smart constructor. data QueryObjectsResponse = QueryObjectsResponse'- { _qorsHasMoreResults :: !(Maybe Bool)- , _qorsIds :: !(Maybe [Text])- , _qorsMarker :: !(Maybe Text)- , _qorsResponseStatus :: !Int- } deriving (Eq,Read,Show,Data,Typeable,Generic)+ { _qorsHasMoreResults :: !(Maybe Bool)+ , _qorsIds :: !(Maybe [Text])+ , _qorsMarker :: !(Maybe Text)+ , _qorsResponseStatus :: !Int+ } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'QueryObjectsResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -186,13 +189,14 @@ :: Int -- ^ 'qorsResponseStatus' -> QueryObjectsResponse queryObjectsResponse pResponseStatus_ =- QueryObjectsResponse'- { _qorsHasMoreResults = Nothing- , _qorsIds = Nothing- , _qorsMarker = Nothing- , _qorsResponseStatus = pResponseStatus_- }+ QueryObjectsResponse'+ { _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});@@ -209,4 +213,4 @@ qorsResponseStatus :: Lens' QueryObjectsResponse Int qorsResponseStatus = lens _qorsResponseStatus (\ s a -> s{_qorsResponseStatus = a}); -instance NFData QueryObjectsResponse+instance NFData QueryObjectsResponse where
gen/Network/AWS/DataPipeline/RemoveTags.hs view
@@ -12,9 +12,9 @@ -- | -- Module : Network.AWS.DataPipeline.RemoveTags--- Copyright : (c) 2013-2016 Brendan Hay+-- Copyright : (c) 2013-2017 Brendan Hay -- License : Mozilla Public License, v. 2.0.--- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability : auto-generated -- Portability : non-portable (GHC extensions) --@@ -37,12 +37,12 @@ , rtrsResponseStatus ) where -import Network.AWS.DataPipeline.Types-import Network.AWS.DataPipeline.Types.Product-import Network.AWS.Lens-import Network.AWS.Prelude-import Network.AWS.Request-import Network.AWS.Response+import Network.AWS.DataPipeline.Types+import Network.AWS.DataPipeline.Types.Product+import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response -- | Contains the parameters for RemoveTags. --@@ -50,10 +50,11 @@ -- -- /See:/ 'removeTags' smart constructor. data RemoveTags = RemoveTags'- { _rtPipelineId :: !Text- , _rtTagKeys :: ![Text]- } deriving (Eq,Read,Show,Data,Typeable,Generic)+ { _rtPipelineId :: !Text+ , _rtTagKeys :: ![Text]+ } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'RemoveTags' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -65,11 +66,9 @@ :: Text -- ^ 'rtPipelineId' -> RemoveTags removeTags pPipelineId_ =- RemoveTags'- { _rtPipelineId = pPipelineId_- , _rtTagKeys = mempty- }+ RemoveTags' {_rtPipelineId = pPipelineId_, _rtTagKeys = mempty} + -- | The ID of the pipeline. rtPipelineId :: Lens' RemoveTags Text rtPipelineId = lens _rtPipelineId (\ s a -> s{_rtPipelineId = a});@@ -86,9 +85,9 @@ (\ s h x -> RemoveTagsResponse' <$> (pure (fromEnum s))) -instance Hashable RemoveTags+instance Hashable RemoveTags where -instance NFData RemoveTags+instance NFData RemoveTags where instance ToHeaders RemoveTags where toHeaders@@ -118,9 +117,10 @@ -- -- /See:/ 'removeTagsResponse' smart constructor. newtype RemoveTagsResponse = RemoveTagsResponse'- { _rtrsResponseStatus :: Int- } deriving (Eq,Read,Show,Data,Typeable,Generic)+ { _rtrsResponseStatus :: Int+ } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'RemoveTagsResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -130,12 +130,11 @@ :: Int -- ^ 'rtrsResponseStatus' -> RemoveTagsResponse removeTagsResponse pResponseStatus_ =- RemoveTagsResponse'- { _rtrsResponseStatus = pResponseStatus_- }+ RemoveTagsResponse' {_rtrsResponseStatus = pResponseStatus_} + -- | -- | The response status code. rtrsResponseStatus :: Lens' RemoveTagsResponse Int rtrsResponseStatus = lens _rtrsResponseStatus (\ s a -> s{_rtrsResponseStatus = a}); -instance NFData RemoveTagsResponse+instance NFData RemoveTagsResponse where
gen/Network/AWS/DataPipeline/ReportTaskProgress.hs view
@@ -12,9 +12,9 @@ -- | -- Module : Network.AWS.DataPipeline.ReportTaskProgress--- Copyright : (c) 2013-2016 Brendan Hay+-- Copyright : (c) 2013-2017 Brendan Hay -- License : Mozilla Public License, v. 2.0.--- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability : auto-generated -- Portability : non-portable (GHC extensions) --@@ -40,12 +40,12 @@ , rtprsCanceled ) where -import Network.AWS.DataPipeline.Types-import Network.AWS.DataPipeline.Types.Product-import Network.AWS.Lens-import Network.AWS.Prelude-import Network.AWS.Request-import Network.AWS.Response+import Network.AWS.DataPipeline.Types+import Network.AWS.DataPipeline.Types.Product+import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response -- | Contains the parameters for ReportTaskProgress. --@@ -53,10 +53,11 @@ -- -- /See:/ 'reportTaskProgress' smart constructor. data ReportTaskProgress = ReportTaskProgress'- { _rtpFields :: !(Maybe [Field])- , _rtpTaskId :: !Text- } deriving (Eq,Read,Show,Data,Typeable,Generic)+ { _rtpFields :: !(Maybe [Field])+ , _rtpTaskId :: !Text+ } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'ReportTaskProgress' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -68,11 +69,9 @@ :: Text -- ^ 'rtpTaskId' -> ReportTaskProgress reportTaskProgress pTaskId_ =- ReportTaskProgress'- { _rtpFields = Nothing- , _rtpTaskId = pTaskId_- }+ ReportTaskProgress' {_rtpFields = Nothing, _rtpTaskId = pTaskId_} + -- | 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;@@ -91,9 +90,9 @@ ReportTaskProgressResponse' <$> (pure (fromEnum s)) <*> (x .:> "canceled")) -instance Hashable ReportTaskProgress+instance Hashable ReportTaskProgress where -instance NFData ReportTaskProgress+instance NFData ReportTaskProgress where instance ToHeaders ReportTaskProgress where toHeaders@@ -123,10 +122,11 @@ -- -- /See:/ 'reportTaskProgressResponse' smart constructor. data ReportTaskProgressResponse = ReportTaskProgressResponse'- { _rtprsResponseStatus :: !Int- , _rtprsCanceled :: !Bool- } deriving (Eq,Read,Show,Data,Typeable,Generic)+ { _rtprsResponseStatus :: !Int+ , _rtprsCanceled :: !Bool+ } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'ReportTaskProgressResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -139,11 +139,10 @@ -> Bool -- ^ 'rtprsCanceled' -> ReportTaskProgressResponse reportTaskProgressResponse pResponseStatus_ pCanceled_ =- ReportTaskProgressResponse'- { _rtprsResponseStatus = pResponseStatus_- , _rtprsCanceled = pCanceled_- }+ ReportTaskProgressResponse'+ {_rtprsResponseStatus = pResponseStatus_, _rtprsCanceled = pCanceled_} + -- | -- | The response status code. rtprsResponseStatus :: Lens' ReportTaskProgressResponse Int rtprsResponseStatus = lens _rtprsResponseStatus (\ s a -> s{_rtprsResponseStatus = a});@@ -152,4 +151,4 @@ rtprsCanceled :: Lens' ReportTaskProgressResponse Bool rtprsCanceled = lens _rtprsCanceled (\ s a -> s{_rtprsCanceled = a}); -instance NFData ReportTaskProgressResponse+instance NFData ReportTaskProgressResponse where
gen/Network/AWS/DataPipeline/ReportTaskRunnerHeartbeat.hs view
@@ -12,9 +12,9 @@ -- | -- Module : Network.AWS.DataPipeline.ReportTaskRunnerHeartbeat--- Copyright : (c) 2013-2016 Brendan Hay+-- Copyright : (c) 2013-2017 Brendan Hay -- License : Mozilla Public License, v. 2.0.--- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability : auto-generated -- Portability : non-portable (GHC extensions) --@@ -39,12 +39,12 @@ , rtrhrsTerminate ) where -import Network.AWS.DataPipeline.Types-import Network.AWS.DataPipeline.Types.Product-import Network.AWS.Lens-import Network.AWS.Prelude-import Network.AWS.Request-import Network.AWS.Response+import Network.AWS.DataPipeline.Types+import Network.AWS.DataPipeline.Types.Product+import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response -- | Contains the parameters for ReportTaskRunnerHeartbeat. --@@ -52,11 +52,12 @@ -- -- /See:/ 'reportTaskRunnerHeartbeat' smart constructor. data ReportTaskRunnerHeartbeat = ReportTaskRunnerHeartbeat'- { _rtrhHostname :: !(Maybe Text)- , _rtrhWorkerGroup :: !(Maybe Text)- , _rtrhTaskrunnerId :: !Text- } deriving (Eq,Read,Show,Data,Typeable,Generic)+ { _rtrhHostname :: !(Maybe Text)+ , _rtrhWorkerGroup :: !(Maybe Text)+ , _rtrhTaskrunnerId :: !Text+ } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'ReportTaskRunnerHeartbeat' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -70,12 +71,13 @@ :: Text -- ^ 'rtrhTaskrunnerId' -> ReportTaskRunnerHeartbeat reportTaskRunnerHeartbeat pTaskrunnerId_ =- ReportTaskRunnerHeartbeat'- { _rtrhHostname = Nothing- , _rtrhWorkerGroup = Nothing- , _rtrhTaskrunnerId = pTaskrunnerId_- }+ ReportTaskRunnerHeartbeat'+ { _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});@@ -98,9 +100,9 @@ ReportTaskRunnerHeartbeatResponse' <$> (pure (fromEnum s)) <*> (x .:> "terminate")) -instance Hashable ReportTaskRunnerHeartbeat+instance Hashable ReportTaskRunnerHeartbeat where -instance NFData ReportTaskRunnerHeartbeat+instance NFData ReportTaskRunnerHeartbeat where instance ToHeaders ReportTaskRunnerHeartbeat where toHeaders@@ -132,10 +134,11 @@ -- -- /See:/ 'reportTaskRunnerHeartbeatResponse' smart constructor. data ReportTaskRunnerHeartbeatResponse = ReportTaskRunnerHeartbeatResponse'- { _rtrhrsResponseStatus :: !Int- , _rtrhrsTerminate :: !Bool- } deriving (Eq,Read,Show,Data,Typeable,Generic)+ { _rtrhrsResponseStatus :: !Int+ , _rtrhrsTerminate :: !Bool+ } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'ReportTaskRunnerHeartbeatResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -148,11 +151,10 @@ -> Bool -- ^ 'rtrhrsTerminate' -> ReportTaskRunnerHeartbeatResponse reportTaskRunnerHeartbeatResponse pResponseStatus_ pTerminate_ =- ReportTaskRunnerHeartbeatResponse'- { _rtrhrsResponseStatus = pResponseStatus_- , _rtrhrsTerminate = pTerminate_- }+ ReportTaskRunnerHeartbeatResponse'+ {_rtrhrsResponseStatus = pResponseStatus_, _rtrhrsTerminate = pTerminate_} + -- | -- | The response status code. rtrhrsResponseStatus :: Lens' ReportTaskRunnerHeartbeatResponse Int rtrhrsResponseStatus = lens _rtrhrsResponseStatus (\ s a -> s{_rtrhrsResponseStatus = a});@@ -162,3 +164,4 @@ rtrhrsTerminate = lens _rtrhrsTerminate (\ s a -> s{_rtrhrsTerminate = a}); instance NFData ReportTaskRunnerHeartbeatResponse+ where
gen/Network/AWS/DataPipeline/SetStatus.hs view
@@ -12,9 +12,9 @@ -- | -- Module : Network.AWS.DataPipeline.SetStatus--- Copyright : (c) 2013-2016 Brendan Hay+-- Copyright : (c) 2013-2017 Brendan Hay -- License : Mozilla Public License, v. 2.0.--- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability : auto-generated -- Portability : non-portable (GHC extensions) --@@ -36,12 +36,12 @@ , SetStatusResponse ) where -import Network.AWS.DataPipeline.Types-import Network.AWS.DataPipeline.Types.Product-import Network.AWS.Lens-import Network.AWS.Prelude-import Network.AWS.Request-import Network.AWS.Response+import Network.AWS.DataPipeline.Types+import Network.AWS.DataPipeline.Types.Product+import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response -- | Contains the parameters for SetStatus. --@@ -49,11 +49,12 @@ -- -- /See:/ 'setStatus' smart constructor. data SetStatus = SetStatus'- { _ssPipelineId :: !Text- , _ssObjectIds :: ![Text]- , _ssStatus :: !Text- } deriving (Eq,Read,Show,Data,Typeable,Generic)+ { _ssPipelineId :: !Text+ , _ssObjectIds :: ![Text]+ , _ssStatus :: !Text+ } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'SetStatus' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -68,12 +69,10 @@ -> Text -- ^ 'ssStatus' -> SetStatus setStatus pPipelineId_ pStatus_ =- SetStatus'- { _ssPipelineId = pPipelineId_- , _ssObjectIds = mempty- , _ssStatus = pStatus_- }+ SetStatus'+ {_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});@@ -91,9 +90,9 @@ request = postJSON dataPipeline response = receiveNull SetStatusResponse' -instance Hashable SetStatus+instance Hashable SetStatus where -instance NFData SetStatus+instance NFData SetStatus where instance ToHeaders SetStatus where toHeaders@@ -120,13 +119,15 @@ -- | /See:/ 'setStatusResponse' smart constructor. data SetStatusResponse =- SetStatusResponse'- deriving (Eq,Read,Show,Data,Typeable,Generic)+ SetStatusResponse'+ deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'SetStatusResponse' with the minimum fields required to make a request. -- setStatusResponse :: SetStatusResponse setStatusResponse = SetStatusResponse' -instance NFData SetStatusResponse++instance NFData SetStatusResponse where
gen/Network/AWS/DataPipeline/SetTaskStatus.hs view
@@ -12,9 +12,9 @@ -- | -- Module : Network.AWS.DataPipeline.SetTaskStatus--- Copyright : (c) 2013-2016 Brendan Hay+-- Copyright : (c) 2013-2017 Brendan Hay -- License : Mozilla Public License, v. 2.0.--- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability : auto-generated -- Portability : non-portable (GHC extensions) --@@ -40,12 +40,12 @@ , stsrsResponseStatus ) where -import Network.AWS.DataPipeline.Types-import Network.AWS.DataPipeline.Types.Product-import Network.AWS.Lens-import Network.AWS.Prelude-import Network.AWS.Request-import Network.AWS.Response+import Network.AWS.DataPipeline.Types+import Network.AWS.DataPipeline.Types.Product+import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response -- | Contains the parameters for SetTaskStatus. --@@ -53,13 +53,14 @@ -- -- /See:/ 'setTaskStatus' smart constructor. data SetTaskStatus = SetTaskStatus'- { _stsErrorStackTrace :: !(Maybe Text)- , _stsErrorId :: !(Maybe Text)- , _stsErrorMessage :: !(Maybe Text)- , _stsTaskId :: !Text- , _stsTaskStatus :: !TaskStatus- } deriving (Eq,Read,Show,Data,Typeable,Generic)+ { _stsErrorStackTrace :: !(Maybe Text)+ , _stsErrorId :: !(Maybe Text)+ , _stsErrorMessage :: !(Maybe Text)+ , _stsTaskId :: !Text+ , _stsTaskStatus :: !TaskStatus+ } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'SetTaskStatus' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -78,14 +79,15 @@ -> TaskStatus -- ^ 'stsTaskStatus' -> SetTaskStatus setTaskStatus pTaskId_ pTaskStatus_ =- SetTaskStatus'- { _stsErrorStackTrace = Nothing- , _stsErrorId = Nothing- , _stsErrorMessage = Nothing- , _stsTaskId = pTaskId_- , _stsTaskStatus = pTaskStatus_- }+ SetTaskStatus'+ { _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});@@ -114,9 +116,9 @@ (\ s h x -> SetTaskStatusResponse' <$> (pure (fromEnum s))) -instance Hashable SetTaskStatus+instance Hashable SetTaskStatus where -instance NFData SetTaskStatus+instance NFData SetTaskStatus where instance ToHeaders SetTaskStatus where toHeaders@@ -149,9 +151,10 @@ -- -- /See:/ 'setTaskStatusResponse' smart constructor. newtype SetTaskStatusResponse = SetTaskStatusResponse'- { _stsrsResponseStatus :: Int- } deriving (Eq,Read,Show,Data,Typeable,Generic)+ { _stsrsResponseStatus :: Int+ } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'SetTaskStatusResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -161,12 +164,11 @@ :: Int -- ^ 'stsrsResponseStatus' -> SetTaskStatusResponse setTaskStatusResponse pResponseStatus_ =- SetTaskStatusResponse'- { _stsrsResponseStatus = pResponseStatus_- }+ SetTaskStatusResponse' {_stsrsResponseStatus = pResponseStatus_} + -- | -- | The response status code. stsrsResponseStatus :: Lens' SetTaskStatusResponse Int stsrsResponseStatus = lens _stsrsResponseStatus (\ s a -> s{_stsrsResponseStatus = a}); -instance NFData SetTaskStatusResponse+instance NFData SetTaskStatusResponse where
gen/Network/AWS/DataPipeline/Types.hs view
@@ -4,9 +4,9 @@ -- | -- Module : Network.AWS.DataPipeline.Types--- Copyright : (c) 2013-2016 Brendan Hay+-- Copyright : (c) 2013-2017 Brendan Hay -- License : Mozilla Public License, v. 2.0.--- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability : auto-generated -- Portability : non-portable (GHC extensions) --@@ -125,38 +125,40 @@ , vwId ) where -import Network.AWS.DataPipeline.Types.Product-import Network.AWS.DataPipeline.Types.Sum-import Network.AWS.Lens-import Network.AWS.Prelude-import Network.AWS.Sign.V4+import Network.AWS.DataPipeline.Types.Product+import Network.AWS.DataPipeline.Types.Sum+import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Sign.V4 -- | API version @2012-10-29@ of the Amazon Data Pipeline SDK configuration. 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- }+ Service+ { _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- }+ Exponential+ { _retryBase = 5.0e-2+ , _retryGrowth = 2+ , _retryAttempts = 5+ , _retryCheck = check+ } check e+ | has (hasCode "ThrottledException" . hasStatus 400) e =+ Just "throttled_exception" | has (hasStatus 429) e = Just "too_many_requests" | has (hasCode "ThrottlingException" . hasStatus 400) e =- Just "throttling_exception"+ Just "throttling_exception" | has (hasCode "Throttling" . hasStatus 400) e = Just "throttling" | has (hasStatus 504) e = Just "gateway_timeout" | has (hasStatus 502) e = Just "bad_gateway"@@ -165,33 +167,41 @@ | has (hasStatus 509) e = Just "limit_exceeded" | otherwise = Nothing + -- | The request was not valid. Verify that your request was properly formatted, that the signature was generated with the correct credentials, and that you haven't exceeded any of the service limits for your account. -- -- _InvalidRequestException :: AsError a => Getting (First ServiceError) a ServiceError-_InvalidRequestException = _ServiceError . hasCode "InvalidRequestException"+_InvalidRequestException =+ _MatchServiceError dataPipeline "InvalidRequestException" + -- | An internal service error occurred. -- -- _InternalServiceError :: AsError a => Getting (First ServiceError) a ServiceError-_InternalServiceError = _ServiceError . hasCode "InternalServiceError"+_InternalServiceError = _MatchServiceError dataPipeline "InternalServiceError" + -- | The specified pipeline has been deleted. -- -- _PipelineDeletedException :: AsError a => Getting (First ServiceError) a ServiceError-_PipelineDeletedException = _ServiceError . hasCode "PipelineDeletedException"+_PipelineDeletedException =+ _MatchServiceError dataPipeline "PipelineDeletedException" + -- | The specified pipeline was not found. Verify that you used the correct user and account identifiers. -- -- _PipelineNotFoundException :: AsError a => Getting (First ServiceError) a ServiceError _PipelineNotFoundException =- _ServiceError . hasCode "PipelineNotFoundException"+ _MatchServiceError dataPipeline "PipelineNotFoundException" + -- | The specified task was not found. -- -- _TaskNotFoundException :: AsError a => Getting (First ServiceError) a ServiceError-_TaskNotFoundException = _ServiceError . hasCode "TaskNotFoundException"+_TaskNotFoundException = _MatchServiceError dataPipeline "TaskNotFoundException"+
gen/Network/AWS/DataPipeline/Types/Product.hs view
@@ -9,17 +9,17 @@ -- | -- Module : Network.AWS.DataPipeline.Types.Product--- Copyright : (c) 2013-2016 Brendan Hay+-- Copyright : (c) 2013-2017 Brendan Hay -- License : Mozilla Public License, v. 2.0.--- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability : auto-generated -- Portability : non-portable (GHC extensions) -- module Network.AWS.DataPipeline.Types.Product where -import Network.AWS.DataPipeline.Types.Sum-import Network.AWS.Lens-import Network.AWS.Prelude+import Network.AWS.DataPipeline.Types.Sum+import Network.AWS.Lens+import Network.AWS.Prelude -- | A key-value pair that describes a property of a pipeline object. The value is specified as either a string value (@StringValue@ ) or a reference to another object (@RefValue@ ) but not as both. --@@ -27,11 +27,12 @@ -- -- /See:/ 'field' smart constructor. data Field = Field'- { _fRefValue :: !(Maybe Text)- , _fStringValue :: !(Maybe Text)- , _fKey :: !Text- } deriving (Eq,Read,Show,Data,Typeable,Generic)+ { _fRefValue :: !(Maybe Text)+ , _fStringValue :: !(Maybe Text)+ , _fKey :: !Text+ } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'Field' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -45,12 +46,9 @@ :: Text -- ^ 'fKey' -> Field field pKey_ =- Field'- { _fRefValue = Nothing- , _fStringValue = Nothing- , _fKey = pKey_- }+ Field' {_fRefValue = Nothing, _fStringValue = Nothing, _fKey = pKey_} + -- | The field value, expressed as the identifier of another object. fRefValue :: Lens' Field (Maybe Text) fRefValue = lens _fRefValue (\ s a -> s{_fRefValue = a});@@ -71,9 +69,9 @@ (x .:? "refValue") <*> (x .:? "stringValue") <*> (x .: "key")) -instance Hashable Field+instance Hashable Field where -instance NFData Field+instance NFData Field where instance ToJSON Field where toJSON Field'{..}@@ -91,10 +89,11 @@ -- -- /See:/ 'instanceIdentity' smart constructor. data InstanceIdentity = InstanceIdentity'- { _iiSignature :: !(Maybe Text)- , _iiDocument :: !(Maybe Text)- } deriving (Eq,Read,Show,Data,Typeable,Generic)+ { _iiSignature :: !(Maybe Text)+ , _iiDocument :: !(Maybe Text)+ } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'InstanceIdentity' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -105,11 +104,9 @@ instanceIdentity :: InstanceIdentity instanceIdentity =- InstanceIdentity'- { _iiSignature = Nothing- , _iiDocument = Nothing- }+ InstanceIdentity' {_iiSignature = Nothing, _iiDocument = Nothing} + -- | 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});@@ -118,9 +115,9 @@ iiDocument :: Lens' InstanceIdentity (Maybe Text) iiDocument = lens _iiDocument (\ s a -> s{_iiDocument = a}); -instance Hashable InstanceIdentity+instance Hashable InstanceIdentity where -instance NFData InstanceIdentity+instance NFData InstanceIdentity where instance ToJSON InstanceIdentity where toJSON InstanceIdentity'{..}@@ -135,10 +132,11 @@ -- -- /See:/ 'operator' smart constructor. data Operator = Operator'- { _oValues :: !(Maybe [Text])- , _oType :: !(Maybe OperatorType)- } deriving (Eq,Read,Show,Data,Typeable,Generic)+ { _oValues :: !(Maybe [Text])+ , _oType :: !(Maybe OperatorType)+ } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'Operator' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -148,12 +146,9 @@ -- * 'oType' - 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". operator :: Operator-operator =- Operator'- { _oValues = Nothing- , _oType = Nothing- }+operator = Operator' {_oValues = Nothing, _oType = Nothing} + -- | 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;@@ -162,9 +157,9 @@ oType :: Lens' Operator (Maybe OperatorType) oType = lens _oType (\ s a -> s{_oType = a}); -instance Hashable Operator+instance Hashable Operator where -instance NFData Operator+instance NFData Operator where instance ToJSON Operator where toJSON Operator'{..}@@ -178,10 +173,11 @@ -- -- /See:/ 'parameterAttribute' smart constructor. data ParameterAttribute = ParameterAttribute'- { _paKey :: !Text- , _paStringValue :: !Text- } deriving (Eq,Read,Show,Data,Typeable,Generic)+ { _paKey :: !Text+ , _paStringValue :: !Text+ } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'ParameterAttribute' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -194,11 +190,9 @@ -> Text -- ^ 'paStringValue' -> ParameterAttribute parameterAttribute pKey_ pStringValue_ =- ParameterAttribute'- { _paKey = pKey_- , _paStringValue = pStringValue_- }+ ParameterAttribute' {_paKey = pKey_, _paStringValue = pStringValue_} + -- | The field identifier. paKey :: Lens' ParameterAttribute Text paKey = lens _paKey (\ s a -> s{_paKey = a});@@ -214,9 +208,9 @@ ParameterAttribute' <$> (x .: "key") <*> (x .: "stringValue")) -instance Hashable ParameterAttribute+instance Hashable ParameterAttribute where -instance NFData ParameterAttribute+instance NFData ParameterAttribute where instance ToJSON ParameterAttribute where toJSON ParameterAttribute'{..}@@ -231,10 +225,11 @@ -- -- /See:/ 'parameterObject' smart constructor. data ParameterObject = ParameterObject'- { _poId :: !Text- , _poAttributes :: ![ParameterAttribute]- } deriving (Eq,Read,Show,Data,Typeable,Generic)+ { _poId :: !Text+ , _poAttributes :: ![ParameterAttribute]+ } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'ParameterObject' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -245,12 +240,9 @@ parameterObject :: Text -- ^ 'poId' -> ParameterObject-parameterObject pId_ =- ParameterObject'- { _poId = pId_- , _poAttributes = mempty- }+parameterObject pId_ = ParameterObject' {_poId = pId_, _poAttributes = mempty} + -- | The ID of the parameter object. poId :: Lens' ParameterObject Text poId = lens _poId (\ s a -> s{_poId = a});@@ -266,9 +258,9 @@ ParameterObject' <$> (x .: "id") <*> (x .:? "attributes" .!= mempty)) -instance Hashable ParameterObject+instance Hashable ParameterObject where -instance NFData ParameterObject+instance NFData ParameterObject where instance ToJSON ParameterObject where toJSON ParameterObject'{..}@@ -283,10 +275,11 @@ -- -- /See:/ 'parameterValue' smart constructor. data ParameterValue = ParameterValue'- { _pvId :: !Text- , _pvStringValue :: !Text- } deriving (Eq,Read,Show,Data,Typeable,Generic)+ { _pvId :: !Text+ , _pvStringValue :: !Text+ } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'ParameterValue' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -299,11 +292,9 @@ -> Text -- ^ 'pvStringValue' -> ParameterValue parameterValue pId_ pStringValue_ =- ParameterValue'- { _pvId = pId_- , _pvStringValue = pStringValue_- }+ ParameterValue' {_pvId = pId_, _pvStringValue = pStringValue_} + -- | The ID of the parameter value. pvId :: Lens' ParameterValue Text pvId = lens _pvId (\ s a -> s{_pvId = a});@@ -319,9 +310,9 @@ ParameterValue' <$> (x .: "id") <*> (x .: "stringValue")) -instance Hashable ParameterValue+instance Hashable ParameterValue where -instance NFData ParameterValue+instance NFData ParameterValue where instance ToJSON ParameterValue where toJSON ParameterValue'{..}@@ -336,13 +327,14 @@ -- -- /See:/ 'pipelineDescription' smart constructor. data PipelineDescription = PipelineDescription'- { _pdDescription :: !(Maybe Text)- , _pdTags :: !(Maybe [Tag])- , _pdPipelineId :: !Text- , _pdName :: !Text- , _pdFields :: ![Field]- } deriving (Eq,Read,Show,Data,Typeable,Generic)+ { _pdDescription :: !(Maybe Text)+ , _pdTags :: !(Maybe [Tag])+ , _pdPipelineId :: !Text+ , _pdName :: !Text+ , _pdFields :: ![Field]+ } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'PipelineDescription' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -361,14 +353,15 @@ -> Text -- ^ 'pdName' -> PipelineDescription pipelineDescription pPipelineId_ pName_ =- PipelineDescription'- { _pdDescription = Nothing- , _pdTags = Nothing- , _pdPipelineId = pPipelineId_- , _pdName = pName_- , _pdFields = mempty- }+ PipelineDescription'+ { _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});@@ -399,9 +392,9 @@ <*> (x .: "name") <*> (x .:? "fields" .!= mempty)) -instance Hashable PipelineDescription+instance Hashable PipelineDescription where -instance NFData PipelineDescription+instance NFData PipelineDescription where -- | Contains the name and identifier of a pipeline. --@@ -409,10 +402,11 @@ -- -- /See:/ 'pipelineIdName' smart constructor. data PipelineIdName = PipelineIdName'- { _pinName :: !(Maybe Text)- , _pinId :: !(Maybe Text)- } deriving (Eq,Read,Show,Data,Typeable,Generic)+ { _pinName :: !(Maybe Text)+ , _pinId :: !(Maybe Text)+ } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'PipelineIdName' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -422,12 +416,9 @@ -- * 'pinId' - The ID of the pipeline that was assigned by AWS Data Pipeline. This is a string of the form @df-297EG78HU43EEXAMPLE@ . pipelineIdName :: PipelineIdName-pipelineIdName =- PipelineIdName'- { _pinName = Nothing- , _pinId = Nothing- }+pipelineIdName = PipelineIdName' {_pinName = Nothing, _pinId = Nothing} + -- | The name of the pipeline. pinName :: Lens' PipelineIdName (Maybe Text) pinName = lens _pinName (\ s a -> s{_pinName = a});@@ -442,9 +433,9 @@ (\ x -> PipelineIdName' <$> (x .:? "name") <*> (x .:? "id")) -instance Hashable PipelineIdName+instance Hashable PipelineIdName where -instance NFData PipelineIdName+instance NFData PipelineIdName where -- | Contains information about a pipeline object. This can be a logical, physical, or physical attempt pipeline object. The complete set of components of a pipeline defines the pipeline. --@@ -452,11 +443,12 @@ -- -- /See:/ 'pipelineObject' smart constructor. data PipelineObject = PipelineObject'- { _pId :: !Text- , _pName :: !Text- , _pFields :: ![Field]- } deriving (Eq,Read,Show,Data,Typeable,Generic)+ { _pId :: !Text+ , _pName :: !Text+ , _pFields :: ![Field]+ } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'PipelineObject' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -471,12 +463,9 @@ -> Text -- ^ 'pName' -> PipelineObject pipelineObject pId_ pName_ =- PipelineObject'- { _pId = pId_- , _pName = pName_- , _pFields = mempty- }+ PipelineObject' {_pId = pId_, _pName = pName_, _pFields = mempty} + -- | The ID of the object. pId :: Lens' PipelineObject Text pId = lens _pId (\ s a -> s{_pId = a});@@ -497,9 +486,9 @@ (x .: "id") <*> (x .: "name") <*> (x .:? "fields" .!= mempty)) -instance Hashable PipelineObject+instance Hashable PipelineObject where -instance NFData PipelineObject+instance NFData PipelineObject where instance ToJSON PipelineObject where toJSON PipelineObject'{..}@@ -514,9 +503,10 @@ -- -- /See:/ 'query' smart constructor. newtype Query = Query'- { _qSelectors :: Maybe [Selector]- } deriving (Eq,Read,Show,Data,Typeable,Generic)+ { _qSelectors :: Maybe [Selector]+ } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'Query' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -524,18 +514,16 @@ -- * 'qSelectors' - List of selectors that define the query. An object must satisfy all of the selectors to match the query. query :: Query-query =- Query'- { _qSelectors = Nothing- }+query = Query' {_qSelectors = Nothing} + -- | 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; -instance Hashable Query+instance Hashable Query where -instance NFData Query+instance NFData Query where instance ToJSON Query where toJSON Query'{..}@@ -548,10 +536,11 @@ -- -- /See:/ 'selector' smart constructor. data Selector = Selector'- { _sOperator :: !(Maybe Operator)- , _sFieldName :: !(Maybe Text)- } deriving (Eq,Read,Show,Data,Typeable,Generic)+ { _sOperator :: !(Maybe Operator)+ , _sFieldName :: !(Maybe Text)+ } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'Selector' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -561,12 +550,9 @@ -- * 'sFieldName' - 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. selector :: Selector-selector =- Selector'- { _sOperator = Nothing- , _sFieldName = Nothing- }+selector = Selector' {_sOperator = Nothing, _sFieldName = Nothing} + -- | Undocumented member. sOperator :: Lens' Selector (Maybe Operator) sOperator = lens _sOperator (\ s a -> s{_sOperator = a});@@ -575,9 +561,9 @@ sFieldName :: Lens' Selector (Maybe Text) sFieldName = lens _sFieldName (\ s a -> s{_sFieldName = a}); -instance Hashable Selector+instance Hashable Selector where -instance NFData Selector+instance NFData Selector where instance ToJSON Selector where toJSON Selector'{..}@@ -592,10 +578,11 @@ -- -- /See:/ 'tag' smart constructor. data Tag = Tag'- { _tagKey :: !Text- , _tagValue :: !Text- } deriving (Eq,Read,Show,Data,Typeable,Generic)+ { _tagKey :: !Text+ , _tagValue :: !Text+ } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'Tag' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -607,12 +594,9 @@ :: Text -- ^ 'tagKey' -> Text -- ^ 'tagValue' -> Tag-tag pKey_ pValue_ =- Tag'- { _tagKey = pKey_- , _tagValue = pValue_- }+tag pKey_ pValue_ = Tag' {_tagKey = pKey_, _tagValue = pValue_} + -- | 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});@@ -626,9 +610,9 @@ = withObject "Tag" (\ x -> Tag' <$> (x .: "key") <*> (x .: "value")) -instance Hashable Tag+instance Hashable Tag where -instance NFData Tag+instance NFData Tag where instance ToJSON Tag where toJSON Tag'{..}@@ -643,12 +627,13 @@ -- -- /See:/ 'taskObject' smart constructor. data TaskObject = TaskObject'- { _toPipelineId :: !(Maybe Text)- , _toAttemptId :: !(Maybe Text)- , _toTaskId :: !(Maybe Text)- , _toObjects :: !(Maybe (Map Text PipelineObject))- } deriving (Eq,Read,Show,Data,Typeable,Generic)+ { _toPipelineId :: !(Maybe Text)+ , _toAttemptId :: !(Maybe Text)+ , _toTaskId :: !(Maybe Text)+ , _toObjects :: !(Maybe (Map Text PipelineObject))+ } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'TaskObject' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -663,13 +648,14 @@ taskObject :: TaskObject taskObject =- TaskObject'- { _toPipelineId = Nothing- , _toAttemptId = Nothing- , _toTaskId = Nothing- , _toObjects = Nothing- }+ TaskObject'+ { _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});@@ -695,9 +681,9 @@ (x .:? "taskId") <*> (x .:? "objects" .!= mempty)) -instance Hashable TaskObject+instance Hashable TaskObject where -instance NFData TaskObject+instance NFData TaskObject where -- | Defines a validation error. Validation errors prevent pipeline activation. The set of validation errors that can be returned are defined by AWS Data Pipeline. --@@ -705,10 +691,11 @@ -- -- /See:/ 'validationError' smart constructor. data ValidationError = ValidationError'- { _veId :: !(Maybe Text)- , _veErrors :: !(Maybe [Text])- } deriving (Eq,Read,Show,Data,Typeable,Generic)+ { _veId :: !(Maybe Text)+ , _veErrors :: !(Maybe [Text])+ } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'ValidationError' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -718,12 +705,9 @@ -- * 'veErrors' - A description of the validation error. validationError :: ValidationError-validationError =- ValidationError'- { _veId = Nothing- , _veErrors = Nothing- }+validationError = ValidationError' {_veId = Nothing, _veErrors = Nothing} + -- | The identifier of the object that contains the validation error. veId :: Lens' ValidationError (Maybe Text) veId = lens _veId (\ s a -> s{_veId = a});@@ -739,9 +723,9 @@ ValidationError' <$> (x .:? "id") <*> (x .:? "errors" .!= mempty)) -instance Hashable ValidationError+instance Hashable ValidationError where -instance NFData ValidationError+instance NFData ValidationError where -- | Defines a validation warning. Validation warnings do not prevent pipeline activation. The set of validation warnings that can be returned are defined by AWS Data Pipeline. --@@ -749,10 +733,11 @@ -- -- /See:/ 'validationWarning' smart constructor. data ValidationWarning = ValidationWarning'- { _vwWarnings :: !(Maybe [Text])- , _vwId :: !(Maybe Text)- } deriving (Eq,Read,Show,Data,Typeable,Generic)+ { _vwWarnings :: !(Maybe [Text])+ , _vwId :: !(Maybe Text)+ } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'ValidationWarning' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -762,12 +747,9 @@ -- * 'vwId' - The identifier of the object that contains the validation warning. validationWarning :: ValidationWarning-validationWarning =- ValidationWarning'- { _vwWarnings = Nothing- , _vwId = Nothing- }+validationWarning = ValidationWarning' {_vwWarnings = Nothing, _vwId = Nothing} + -- | A description of the validation warning. vwWarnings :: Lens' ValidationWarning [Text] vwWarnings = lens _vwWarnings (\ s a -> s{_vwWarnings = a}) . _Default . _Coerce;@@ -783,6 +765,6 @@ ValidationWarning' <$> (x .:? "warnings" .!= mempty) <*> (x .:? "id")) -instance Hashable ValidationWarning+instance Hashable ValidationWarning where -instance NFData ValidationWarning+instance NFData ValidationWarning where
gen/Network/AWS/DataPipeline/Types/Sum.hs view
@@ -9,24 +9,25 @@ -- | -- Module : Network.AWS.DataPipeline.Types.Sum--- Copyright : (c) 2013-2016 Brendan Hay+-- Copyright : (c) 2013-2017 Brendan Hay -- License : Mozilla Public License, v. 2.0.--- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability : auto-generated -- Portability : non-portable (GHC extensions) -- module Network.AWS.DataPipeline.Types.Sum where -import Network.AWS.Prelude+import Network.AWS.Prelude data OperatorType- = OperatorBetween- | OperatorEQ'- | OperatorGE- | OperatorLE- | OperatorRefEQ- deriving (Eq,Ord,Read,Show,Enum,Bounded,Data,Typeable,Generic)+ = OperatorBetween+ | OperatorEQ'+ | OperatorGE+ | OperatorLE+ | OperatorRefEQ+ deriving (Eq, Ord, Read, Show, Enum, Bounded, Data, Typeable, Generic) + instance FromText OperatorType where parser = takeLowerText >>= \case "between" -> pure OperatorBetween@@ -55,10 +56,11 @@ toJSON = toJSONText data TaskStatus- = Failed- | False'- | Finished- deriving (Eq,Ord,Read,Show,Enum,Bounded,Data,Typeable,Generic)+ = Failed+ | False'+ | Finished+ deriving (Eq, Ord, Read, Show, Enum, Bounded, Data, Typeable, Generic)+ instance FromText TaskStatus where parser = takeLowerText >>= \case
gen/Network/AWS/DataPipeline/ValidatePipelineDefinition.hs view
@@ -12,9 +12,9 @@ -- | -- Module : Network.AWS.DataPipeline.ValidatePipelineDefinition--- Copyright : (c) 2013-2016 Brendan Hay+-- Copyright : (c) 2013-2017 Brendan Hay -- License : Mozilla Public License, v. 2.0.--- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability : auto-generated -- Portability : non-portable (GHC extensions) --@@ -42,12 +42,12 @@ , vpdrsErrored ) where -import Network.AWS.DataPipeline.Types-import Network.AWS.DataPipeline.Types.Product-import Network.AWS.Lens-import Network.AWS.Prelude-import Network.AWS.Request-import Network.AWS.Response+import Network.AWS.DataPipeline.Types+import Network.AWS.DataPipeline.Types.Product+import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response -- | Contains the parameters for ValidatePipelineDefinition. --@@ -55,12 +55,13 @@ -- -- /See:/ 'validatePipelineDefinition' smart constructor. data ValidatePipelineDefinition = ValidatePipelineDefinition'- { _vpdParameterObjects :: !(Maybe [ParameterObject])- , _vpdParameterValues :: !(Maybe [ParameterValue])- , _vpdPipelineId :: !Text- , _vpdPipelineObjects :: ![PipelineObject]- } deriving (Eq,Read,Show,Data,Typeable,Generic)+ { _vpdParameterObjects :: !(Maybe [ParameterObject])+ , _vpdParameterValues :: !(Maybe [ParameterValue])+ , _vpdPipelineId :: !Text+ , _vpdPipelineObjects :: ![PipelineObject]+ } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'ValidatePipelineDefinition' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -76,13 +77,14 @@ :: Text -- ^ 'vpdPipelineId' -> ValidatePipelineDefinition validatePipelineDefinition pPipelineId_ =- ValidatePipelineDefinition'- { _vpdParameterObjects = Nothing- , _vpdParameterValues = Nothing- , _vpdPipelineId = pPipelineId_- , _vpdPipelineObjects = mempty- }+ ValidatePipelineDefinition'+ { _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;@@ -112,9 +114,9 @@ <*> (pure (fromEnum s)) <*> (x .:> "errored")) -instance Hashable ValidatePipelineDefinition+instance Hashable ValidatePipelineDefinition where -instance NFData ValidatePipelineDefinition+instance NFData ValidatePipelineDefinition where instance ToHeaders ValidatePipelineDefinition where toHeaders@@ -147,12 +149,13 @@ -- -- /See:/ 'validatePipelineDefinitionResponse' smart constructor. data ValidatePipelineDefinitionResponse = ValidatePipelineDefinitionResponse'- { _vpdrsValidationErrors :: !(Maybe [ValidationError])- , _vpdrsValidationWarnings :: !(Maybe [ValidationWarning])- , _vpdrsResponseStatus :: !Int- , _vpdrsErrored :: !Bool- } deriving (Eq,Read,Show,Data,Typeable,Generic)+ { _vpdrsValidationErrors :: !(Maybe [ValidationError])+ , _vpdrsValidationWarnings :: !(Maybe [ValidationWarning])+ , _vpdrsResponseStatus :: !Int+ , _vpdrsErrored :: !Bool+ } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'ValidatePipelineDefinitionResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -169,13 +172,14 @@ -> Bool -- ^ 'vpdrsErrored' -> ValidatePipelineDefinitionResponse validatePipelineDefinitionResponse pResponseStatus_ pErrored_ =- ValidatePipelineDefinitionResponse'- { _vpdrsValidationErrors = Nothing- , _vpdrsValidationWarnings = Nothing- , _vpdrsResponseStatus = pResponseStatus_- , _vpdrsErrored = pErrored_- }+ ValidatePipelineDefinitionResponse'+ { _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;@@ -193,3 +197,4 @@ vpdrsErrored = lens _vpdrsErrored (\ s a -> s{_vpdrsErrored = a}); instance NFData ValidatePipelineDefinitionResponse+ where
gen/Network/AWS/DataPipeline/Waiters.hs view
@@ -7,15 +7,15 @@ -- | -- Module : Network.AWS.DataPipeline.Waiters--- Copyright : (c) 2013-2016 Brendan Hay+-- Copyright : (c) 2013-2017 Brendan Hay -- License : Mozilla Public License, v. 2.0.--- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability : auto-generated -- Portability : non-portable (GHC extensions) -- module Network.AWS.DataPipeline.Waiters where -import Network.AWS.DataPipeline.Types-import Network.AWS.Lens-import Network.AWS.Prelude-import Network.AWS.Waiter+import Network.AWS.DataPipeline.Types+import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Waiter
test/Main.hs view
@@ -2,9 +2,9 @@ -- | -- Module : Main--- Copyright : (c) 2013-2016 Brendan Hay+-- Copyright : (c) 2013-2017 Brendan Hay -- License : Mozilla Public License, v. 2.0.--- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability : auto-generated -- Portability : non-portable (GHC extensions) --
test/Test/AWS/Gen/DataPipeline.hs view
@@ -5,20 +5,20 @@ -- | -- Module : Test.AWS.Gen.DataPipeline--- Copyright : (c) 2013-2016 Brendan Hay+-- Copyright : (c) 2013-2017 Brendan Hay -- License : Mozilla Public License, v. 2.0.--- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability : auto-generated -- Portability : non-portable (GHC extensions) -- module Test.AWS.Gen.DataPipeline where import Data.Proxy+import Network.AWS.DataPipeline+import Test.AWS.DataPipeline.Internal import Test.AWS.Fixture import Test.AWS.Prelude import Test.Tasty-import Network.AWS.DataPipeline-import Test.AWS.DataPipeline.Internal -- Auto-generated: the actual test selection needs to be manually placed into -- the top-level so that real test data can be incrementally added.