diff --git a/README.md b/README.md --- a/README.md +++ b/README.md @@ -8,7 +8,7 @@ ## Version -`1.4.5` +`1.5.0` ## Description diff --git a/amazonka-inspector.cabal b/amazonka-inspector.cabal --- a/amazonka-inspector.cabal +++ b/amazonka-inspector.cabal @@ -1,13 +1,13 @@ name: amazonka-inspector -version: 1.4.5 +version: 1.5.0 synopsis: Amazon Inspector 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 -copyright: Copyright (c) 2013-2016 Brendan Hay +maintainer: Brendan Hay +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-inspector 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.Inspector @@ -54,6 +59,7 @@ , Network.AWS.Inspector.DescribeFindings , Network.AWS.Inspector.DescribeResourceGroups , Network.AWS.Inspector.DescribeRulesPackages + , Network.AWS.Inspector.GetAssessmentReport , Network.AWS.Inspector.GetTelemetryMetadata , Network.AWS.Inspector.ListAssessmentRunAgents , Network.AWS.Inspector.ListAssessmentRuns @@ -80,7 +86,7 @@ , Network.AWS.Inspector.Types.Sum build-depends: - amazonka-core == 1.4.5.* + amazonka-core == 1.5.0.* , base >= 4.7 && < 5 test-suite amazonka-inspector-test @@ -100,9 +106,9 @@ , Test.AWS.Inspector.Internal build-depends: - amazonka-core == 1.4.5.* - , amazonka-test == 1.4.5.* - , amazonka-inspector == 1.4.5.* + amazonka-core == 1.5.0.* + , amazonka-test == 1.5.0.* + , amazonka-inspector , base , bytestring , tasty diff --git a/fixture/GetAssessmentReport.yaml b/fixture/GetAssessmentReport.yaml new file mode 100644 --- /dev/null +++ b/fixture/GetAssessmentReport.yaml @@ -0,0 +1,10 @@ +--- +method: POST +headers: + Authorization: AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/inspector/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=? + Host: inspector.us-east-1.amazonaws.com + Content-Type: application/x-www-form-urlencoded; charset=utf-8 + X-Amz-Content-SHA256: abcdef + X-Amz-Date: 20091028T223200Z +body: + '' diff --git a/fixture/GetAssessmentReportResponse.proto b/fixture/GetAssessmentReportResponse.proto new file mode 100644 --- /dev/null +++ b/fixture/GetAssessmentReportResponse.proto diff --git a/gen/Network/AWS/Inspector.hs b/gen/Network/AWS/Inspector.hs --- a/gen/Network/AWS/Inspector.hs +++ b/gen/Network/AWS/Inspector.hs @@ -5,9 +5,9 @@ -- | -- Module : Network.AWS.Inspector --- Copyright : (c) 2013-2016 Brendan Hay +-- Copyright : (c) 2013-2017 Brendan Hay -- License : Mozilla Public License, v. 2.0. --- Maintainer : Brendan Hay +-- Maintainer : Brendan Hay -- Stability : auto-generated -- Portability : non-portable (GHC extensions) -- @@ -32,6 +32,9 @@ -- ** NoSuchEntityException , _NoSuchEntityException + -- ** UnsupportedFeatureException + , _UnsupportedFeatureException + -- ** AgentsAlreadyRunningAssessmentException , _AgentsAlreadyRunningAssessmentException @@ -134,6 +137,9 @@ -- ** ListAssessmentRuns , module Network.AWS.Inspector.ListAssessmentRuns + -- ** GetAssessmentReport + , module Network.AWS.Inspector.GetAssessmentReport + -- ** ListRulesPackages , module Network.AWS.Inspector.ListRulesPackages @@ -175,9 +181,21 @@ -- ** Locale , Locale (..) + -- ** ReportFileFormat + , ReportFileFormat (..) + + -- ** ReportStatus + , ReportStatus (..) + + -- ** ReportType + , ReportType (..) + -- ** Severity , Severity (..) + -- ** StopAction + , StopAction (..) + -- ** AgentFilter , AgentFilter , agentFilter @@ -207,6 +225,7 @@ , arDataCollected , arStateChanges , arNotifications + , arFindingCounts -- ** AssessmentRunAgent , AssessmentRunAgent @@ -402,40 +421,41 @@ , trBeginDate ) where -import Network.AWS.Inspector.AddAttributesToFindings -import Network.AWS.Inspector.CreateAssessmentTarget -import Network.AWS.Inspector.CreateAssessmentTemplate -import Network.AWS.Inspector.CreateResourceGroup -import Network.AWS.Inspector.DeleteAssessmentRun -import Network.AWS.Inspector.DeleteAssessmentTarget -import Network.AWS.Inspector.DeleteAssessmentTemplate -import Network.AWS.Inspector.DescribeAssessmentRuns -import Network.AWS.Inspector.DescribeAssessmentTargets -import Network.AWS.Inspector.DescribeAssessmentTemplates -import Network.AWS.Inspector.DescribeCrossAccountAccessRole -import Network.AWS.Inspector.DescribeFindings -import Network.AWS.Inspector.DescribeResourceGroups -import Network.AWS.Inspector.DescribeRulesPackages -import Network.AWS.Inspector.GetTelemetryMetadata -import Network.AWS.Inspector.ListAssessmentRunAgents -import Network.AWS.Inspector.ListAssessmentRuns -import Network.AWS.Inspector.ListAssessmentTargets -import Network.AWS.Inspector.ListAssessmentTemplates -import Network.AWS.Inspector.ListEventSubscriptions -import Network.AWS.Inspector.ListFindings -import Network.AWS.Inspector.ListRulesPackages -import Network.AWS.Inspector.ListTagsForResource -import Network.AWS.Inspector.PreviewAgents -import Network.AWS.Inspector.RegisterCrossAccountAccessRole -import Network.AWS.Inspector.RemoveAttributesFromFindings -import Network.AWS.Inspector.SetTagsForResource -import Network.AWS.Inspector.StartAssessmentRun -import Network.AWS.Inspector.StopAssessmentRun -import Network.AWS.Inspector.SubscribeToEvent -import Network.AWS.Inspector.Types -import Network.AWS.Inspector.UnsubscribeFromEvent -import Network.AWS.Inspector.UpdateAssessmentTarget -import Network.AWS.Inspector.Waiters +import Network.AWS.Inspector.AddAttributesToFindings +import Network.AWS.Inspector.CreateAssessmentTarget +import Network.AWS.Inspector.CreateAssessmentTemplate +import Network.AWS.Inspector.CreateResourceGroup +import Network.AWS.Inspector.DeleteAssessmentRun +import Network.AWS.Inspector.DeleteAssessmentTarget +import Network.AWS.Inspector.DeleteAssessmentTemplate +import Network.AWS.Inspector.DescribeAssessmentRuns +import Network.AWS.Inspector.DescribeAssessmentTargets +import Network.AWS.Inspector.DescribeAssessmentTemplates +import Network.AWS.Inspector.DescribeCrossAccountAccessRole +import Network.AWS.Inspector.DescribeFindings +import Network.AWS.Inspector.DescribeResourceGroups +import Network.AWS.Inspector.DescribeRulesPackages +import Network.AWS.Inspector.GetAssessmentReport +import Network.AWS.Inspector.GetTelemetryMetadata +import Network.AWS.Inspector.ListAssessmentRunAgents +import Network.AWS.Inspector.ListAssessmentRuns +import Network.AWS.Inspector.ListAssessmentTargets +import Network.AWS.Inspector.ListAssessmentTemplates +import Network.AWS.Inspector.ListEventSubscriptions +import Network.AWS.Inspector.ListFindings +import Network.AWS.Inspector.ListRulesPackages +import Network.AWS.Inspector.ListTagsForResource +import Network.AWS.Inspector.PreviewAgents +import Network.AWS.Inspector.RegisterCrossAccountAccessRole +import Network.AWS.Inspector.RemoveAttributesFromFindings +import Network.AWS.Inspector.SetTagsForResource +import Network.AWS.Inspector.StartAssessmentRun +import Network.AWS.Inspector.StopAssessmentRun +import Network.AWS.Inspector.SubscribeToEvent +import Network.AWS.Inspector.Types +import Network.AWS.Inspector.UnsubscribeFromEvent +import Network.AWS.Inspector.UpdateAssessmentTarget +import Network.AWS.Inspector.Waiters {- $errors Error matchers are designed for use with the functions provided by diff --git a/gen/Network/AWS/Inspector/AddAttributesToFindings.hs b/gen/Network/AWS/Inspector/AddAttributesToFindings.hs --- a/gen/Network/AWS/Inspector/AddAttributesToFindings.hs +++ b/gen/Network/AWS/Inspector/AddAttributesToFindings.hs @@ -12,9 +12,9 @@ -- | -- Module : Network.AWS.Inspector.AddAttributesToFindings --- Copyright : (c) 2013-2016 Brendan Hay +-- Copyright : (c) 2013-2017 Brendan Hay -- License : Mozilla Public License, v. 2.0. --- Maintainer : Brendan Hay +-- Maintainer : Brendan Hay -- Stability : auto-generated -- Portability : non-portable (GHC extensions) -- @@ -38,19 +38,20 @@ , aatfrsFailedItems ) where -import Network.AWS.Inspector.Types -import Network.AWS.Inspector.Types.Product -import Network.AWS.Lens -import Network.AWS.Prelude -import Network.AWS.Request -import Network.AWS.Response +import Network.AWS.Inspector.Types +import Network.AWS.Inspector.Types.Product +import Network.AWS.Lens +import Network.AWS.Prelude +import Network.AWS.Request +import Network.AWS.Response -- | /See:/ 'addAttributesToFindings' smart constructor. data AddAttributesToFindings = AddAttributesToFindings' - { _aatfFindingARNs :: !(List1 Text) - , _aatfAttributes :: ![Attribute] - } deriving (Eq,Read,Show,Data,Typeable,Generic) + { _aatfFindingARNs :: !(List1 Text) + , _aatfAttributes :: ![Attribute] + } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'AddAttributesToFindings' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -62,11 +63,10 @@ :: NonEmpty Text -- ^ 'aatfFindingARNs' -> AddAttributesToFindings addAttributesToFindings pFindingARNs_ = - AddAttributesToFindings' - { _aatfFindingARNs = _List1 # pFindingARNs_ - , _aatfAttributes = mempty - } + AddAttributesToFindings' + {_aatfFindingARNs = _List1 # pFindingARNs_, _aatfAttributes = mempty} + -- | The ARNs that specify the findings that you want to assign attributes to. aatfFindingARNs :: Lens' AddAttributesToFindings (NonEmpty Text) aatfFindingARNs = lens _aatfFindingARNs (\ s a -> s{_aatfFindingARNs = a}) . _List1; @@ -86,9 +86,9 @@ (pure (fromEnum s)) <*> (x .?> "failedItems" .!@ mempty)) -instance Hashable AddAttributesToFindings +instance Hashable AddAttributesToFindings where -instance NFData AddAttributesToFindings +instance NFData AddAttributesToFindings where instance ToHeaders AddAttributesToFindings where toHeaders @@ -115,10 +115,11 @@ -- | /See:/ 'addAttributesToFindingsResponse' smart constructor. data AddAttributesToFindingsResponse = AddAttributesToFindingsResponse' - { _aatfrsResponseStatus :: !Int - , _aatfrsFailedItems :: !(Map Text FailedItemDetails) - } deriving (Eq,Read,Show,Data,Typeable,Generic) + { _aatfrsResponseStatus :: !Int + , _aatfrsFailedItems :: !(Map Text FailedItemDetails) + } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'AddAttributesToFindingsResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -130,11 +131,10 @@ :: Int -- ^ 'aatfrsResponseStatus' -> AddAttributesToFindingsResponse addAttributesToFindingsResponse pResponseStatus_ = - AddAttributesToFindingsResponse' - { _aatfrsResponseStatus = pResponseStatus_ - , _aatfrsFailedItems = mempty - } + AddAttributesToFindingsResponse' + {_aatfrsResponseStatus = pResponseStatus_, _aatfrsFailedItems = mempty} + -- | -- | The response status code. aatfrsResponseStatus :: Lens' AddAttributesToFindingsResponse Int aatfrsResponseStatus = lens _aatfrsResponseStatus (\ s a -> s{_aatfrsResponseStatus = a}); @@ -143,4 +143,4 @@ aatfrsFailedItems :: Lens' AddAttributesToFindingsResponse (HashMap Text FailedItemDetails) aatfrsFailedItems = lens _aatfrsFailedItems (\ s a -> s{_aatfrsFailedItems = a}) . _Map; -instance NFData AddAttributesToFindingsResponse +instance NFData AddAttributesToFindingsResponse where diff --git a/gen/Network/AWS/Inspector/CreateAssessmentTarget.hs b/gen/Network/AWS/Inspector/CreateAssessmentTarget.hs --- a/gen/Network/AWS/Inspector/CreateAssessmentTarget.hs +++ b/gen/Network/AWS/Inspector/CreateAssessmentTarget.hs @@ -12,9 +12,9 @@ -- | -- Module : Network.AWS.Inspector.CreateAssessmentTarget --- Copyright : (c) 2013-2016 Brendan Hay +-- Copyright : (c) 2013-2017 Brendan Hay -- License : Mozilla Public License, v. 2.0. --- Maintainer : Brendan Hay +-- Maintainer : Brendan Hay -- Stability : auto-generated -- Portability : non-portable (GHC extensions) -- @@ -38,19 +38,20 @@ , catrsAssessmentTargetARN ) where -import Network.AWS.Inspector.Types -import Network.AWS.Inspector.Types.Product -import Network.AWS.Lens -import Network.AWS.Prelude -import Network.AWS.Request -import Network.AWS.Response +import Network.AWS.Inspector.Types +import Network.AWS.Inspector.Types.Product +import Network.AWS.Lens +import Network.AWS.Prelude +import Network.AWS.Request +import Network.AWS.Response -- | /See:/ 'createAssessmentTarget' smart constructor. data CreateAssessmentTarget = CreateAssessmentTarget' - { _catAssessmentTargetName :: !Text - , _catResourceGroupARN :: !Text - } deriving (Eq,Read,Show,Data,Typeable,Generic) + { _catAssessmentTargetName :: !Text + , _catResourceGroupARN :: !Text + } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'CreateAssessmentTarget' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -63,11 +64,12 @@ -> Text -- ^ 'catResourceGroupARN' -> CreateAssessmentTarget createAssessmentTarget pAssessmentTargetName_ pResourceGroupARN_ = - CreateAssessmentTarget' - { _catAssessmentTargetName = pAssessmentTargetName_ - , _catResourceGroupARN = pResourceGroupARN_ - } + CreateAssessmentTarget' + { _catAssessmentTargetName = pAssessmentTargetName_ + , _catResourceGroupARN = pResourceGroupARN_ + } + -- | The user-defined name that identifies the assessment target that you want to create. The name must be unique within the AWS account. catAssessmentTargetName :: Lens' CreateAssessmentTarget Text catAssessmentTargetName = lens _catAssessmentTargetName (\ s a -> s{_catAssessmentTargetName = a}); @@ -87,9 +89,9 @@ (pure (fromEnum s)) <*> (x .:> "assessmentTargetArn")) -instance Hashable CreateAssessmentTarget +instance Hashable CreateAssessmentTarget where -instance NFData CreateAssessmentTarget +instance NFData CreateAssessmentTarget where instance ToHeaders CreateAssessmentTarget where toHeaders @@ -117,10 +119,11 @@ -- | /See:/ 'createAssessmentTargetResponse' smart constructor. data CreateAssessmentTargetResponse = CreateAssessmentTargetResponse' - { _catrsResponseStatus :: !Int - , _catrsAssessmentTargetARN :: !Text - } deriving (Eq,Read,Show,Data,Typeable,Generic) + { _catrsResponseStatus :: !Int + , _catrsAssessmentTargetARN :: !Text + } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'CreateAssessmentTargetResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -133,11 +136,12 @@ -> Text -- ^ 'catrsAssessmentTargetARN' -> CreateAssessmentTargetResponse createAssessmentTargetResponse pResponseStatus_ pAssessmentTargetARN_ = - CreateAssessmentTargetResponse' - { _catrsResponseStatus = pResponseStatus_ - , _catrsAssessmentTargetARN = pAssessmentTargetARN_ - } + CreateAssessmentTargetResponse' + { _catrsResponseStatus = pResponseStatus_ + , _catrsAssessmentTargetARN = pAssessmentTargetARN_ + } + -- | -- | The response status code. catrsResponseStatus :: Lens' CreateAssessmentTargetResponse Int catrsResponseStatus = lens _catrsResponseStatus (\ s a -> s{_catrsResponseStatus = a}); @@ -146,4 +150,4 @@ catrsAssessmentTargetARN :: Lens' CreateAssessmentTargetResponse Text catrsAssessmentTargetARN = lens _catrsAssessmentTargetARN (\ s a -> s{_catrsAssessmentTargetARN = a}); -instance NFData CreateAssessmentTargetResponse +instance NFData CreateAssessmentTargetResponse where diff --git a/gen/Network/AWS/Inspector/CreateAssessmentTemplate.hs b/gen/Network/AWS/Inspector/CreateAssessmentTemplate.hs --- a/gen/Network/AWS/Inspector/CreateAssessmentTemplate.hs +++ b/gen/Network/AWS/Inspector/CreateAssessmentTemplate.hs @@ -12,9 +12,9 @@ -- | -- Module : Network.AWS.Inspector.CreateAssessmentTemplate --- Copyright : (c) 2013-2016 Brendan Hay +-- Copyright : (c) 2013-2017 Brendan Hay -- License : Mozilla Public License, v. 2.0. --- Maintainer : Brendan Hay +-- Maintainer : Brendan Hay -- Stability : auto-generated -- Portability : non-portable (GHC extensions) -- @@ -41,27 +41,28 @@ , crsAssessmentTemplateARN ) where -import Network.AWS.Inspector.Types -import Network.AWS.Inspector.Types.Product -import Network.AWS.Lens -import Network.AWS.Prelude -import Network.AWS.Request -import Network.AWS.Response +import Network.AWS.Inspector.Types +import Network.AWS.Inspector.Types.Product +import Network.AWS.Lens +import Network.AWS.Prelude +import Network.AWS.Request +import Network.AWS.Response -- | /See:/ 'createAssessmentTemplate' smart constructor. data CreateAssessmentTemplate = CreateAssessmentTemplate' - { _catUserAttributesForFindings :: !(Maybe [Attribute]) - , _catAssessmentTargetARN :: !Text - , _catAssessmentTemplateName :: !Text - , _catDurationInSeconds :: !Nat - , _catRulesPackageARNs :: ![Text] - } deriving (Eq,Read,Show,Data,Typeable,Generic) + { _catUserAttributesForFindings :: !(Maybe [Attribute]) + , _catAssessmentTargetARN :: !Text + , _catAssessmentTemplateName :: !Text + , _catDurationInSeconds :: !Nat + , _catRulesPackageARNs :: ![Text] + } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'CreateAssessmentTemplate' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: -- --- * 'catUserAttributesForFindings' - The user-defined attributes that are assigned to every finding that is generated by the assessment run that uses this assessment template. +-- * 'catUserAttributesForFindings' - The user-defined attributes that are assigned to every finding that is generated by the assessment run that uses this assessment template. An attribute is a key and value pair (an 'Attribute' object). Within an assessment template, each key must be unique. -- -- * 'catAssessmentTargetARN' - The ARN that specifies the assessment target for which you want to create the assessment template. -- @@ -76,15 +77,16 @@ -> Natural -- ^ 'catDurationInSeconds' -> CreateAssessmentTemplate createAssessmentTemplate pAssessmentTargetARN_ pAssessmentTemplateName_ pDurationInSeconds_ = - CreateAssessmentTemplate' - { _catUserAttributesForFindings = Nothing - , _catAssessmentTargetARN = pAssessmentTargetARN_ - , _catAssessmentTemplateName = pAssessmentTemplateName_ - , _catDurationInSeconds = _Nat # pDurationInSeconds_ - , _catRulesPackageARNs = mempty - } + CreateAssessmentTemplate' + { _catUserAttributesForFindings = Nothing + , _catAssessmentTargetARN = pAssessmentTargetARN_ + , _catAssessmentTemplateName = pAssessmentTemplateName_ + , _catDurationInSeconds = _Nat # pDurationInSeconds_ + , _catRulesPackageARNs = mempty + } --- | The user-defined attributes that are assigned to every finding that is generated by the assessment run that uses this assessment template. + +-- | The user-defined attributes that are assigned to every finding that is generated by the assessment run that uses this assessment template. An attribute is a key and value pair (an 'Attribute' object). Within an assessment template, each key must be unique. catUserAttributesForFindings :: Lens' CreateAssessmentTemplate [Attribute] catUserAttributesForFindings = lens _catUserAttributesForFindings (\ s a -> s{_catUserAttributesForFindings = a}) . _Default . _Coerce; @@ -115,9 +117,9 @@ (pure (fromEnum s)) <*> (x .:> "assessmentTemplateArn")) -instance Hashable CreateAssessmentTemplate +instance Hashable CreateAssessmentTemplate where -instance NFData CreateAssessmentTemplate +instance NFData CreateAssessmentTemplate where instance ToHeaders CreateAssessmentTemplate where toHeaders @@ -151,10 +153,11 @@ -- | /See:/ 'createAssessmentTemplateResponse' smart constructor. data CreateAssessmentTemplateResponse = CreateAssessmentTemplateResponse' - { _crsResponseStatus :: !Int - , _crsAssessmentTemplateARN :: !Text - } deriving (Eq,Read,Show,Data,Typeable,Generic) + { _crsResponseStatus :: !Int + , _crsAssessmentTemplateARN :: !Text + } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'CreateAssessmentTemplateResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -167,11 +170,12 @@ -> Text -- ^ 'crsAssessmentTemplateARN' -> CreateAssessmentTemplateResponse createAssessmentTemplateResponse pResponseStatus_ pAssessmentTemplateARN_ = - CreateAssessmentTemplateResponse' - { _crsResponseStatus = pResponseStatus_ - , _crsAssessmentTemplateARN = pAssessmentTemplateARN_ - } + CreateAssessmentTemplateResponse' + { _crsResponseStatus = pResponseStatus_ + , _crsAssessmentTemplateARN = pAssessmentTemplateARN_ + } + -- | -- | The response status code. crsResponseStatus :: Lens' CreateAssessmentTemplateResponse Int crsResponseStatus = lens _crsResponseStatus (\ s a -> s{_crsResponseStatus = a}); @@ -181,3 +185,4 @@ crsAssessmentTemplateARN = lens _crsAssessmentTemplateARN (\ s a -> s{_crsAssessmentTemplateARN = a}); instance NFData CreateAssessmentTemplateResponse + where diff --git a/gen/Network/AWS/Inspector/CreateResourceGroup.hs b/gen/Network/AWS/Inspector/CreateResourceGroup.hs --- a/gen/Network/AWS/Inspector/CreateResourceGroup.hs +++ b/gen/Network/AWS/Inspector/CreateResourceGroup.hs @@ -12,9 +12,9 @@ -- | -- Module : Network.AWS.Inspector.CreateResourceGroup --- Copyright : (c) 2013-2016 Brendan Hay +-- Copyright : (c) 2013-2017 Brendan Hay -- License : Mozilla Public License, v. 2.0. --- Maintainer : Brendan Hay +-- Maintainer : Brendan Hay -- Stability : auto-generated -- Portability : non-portable (GHC extensions) -- @@ -37,18 +37,19 @@ , crgrsResourceGroupARN ) where -import Network.AWS.Inspector.Types -import Network.AWS.Inspector.Types.Product -import Network.AWS.Lens -import Network.AWS.Prelude -import Network.AWS.Request -import Network.AWS.Response +import Network.AWS.Inspector.Types +import Network.AWS.Inspector.Types.Product +import Network.AWS.Lens +import Network.AWS.Prelude +import Network.AWS.Request +import Network.AWS.Response -- | /See:/ 'createResourceGroup' smart constructor. newtype CreateResourceGroup = CreateResourceGroup' - { _crgResourceGroupTags :: List1 ResourceGroupTag - } deriving (Eq,Read,Show,Data,Typeable,Generic) + { _crgResourceGroupTags :: List1 ResourceGroupTag + } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'CreateResourceGroup' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -58,10 +59,9 @@ :: NonEmpty ResourceGroupTag -- ^ 'crgResourceGroupTags' -> CreateResourceGroup createResourceGroup pResourceGroupTags_ = - CreateResourceGroup' - { _crgResourceGroupTags = _List1 # pResourceGroupTags_ - } + CreateResourceGroup' {_crgResourceGroupTags = _List1 # pResourceGroupTags_} + -- | A collection of keys and an array of possible values, '[{"key":"key1","values":["Value1","Value2"]},{"key":"Key2","values":["Value3"]}]'. For example,'[{"key":"Name","values":["TestEC2Instance"]}]'. crgResourceGroupTags :: Lens' CreateResourceGroup (NonEmpty ResourceGroupTag) crgResourceGroupTags = lens _crgResourceGroupTags (\ s a -> s{_crgResourceGroupTags = a}) . _List1; @@ -76,9 +76,9 @@ CreateResourceGroupResponse' <$> (pure (fromEnum s)) <*> (x .:> "resourceGroupArn")) -instance Hashable CreateResourceGroup +instance Hashable CreateResourceGroup where -instance NFData CreateResourceGroup +instance NFData CreateResourceGroup where instance ToHeaders CreateResourceGroup where toHeaders @@ -105,10 +105,11 @@ -- | /See:/ 'createResourceGroupResponse' smart constructor. data CreateResourceGroupResponse = CreateResourceGroupResponse' - { _crgrsResponseStatus :: !Int - , _crgrsResourceGroupARN :: !Text - } deriving (Eq,Read,Show,Data,Typeable,Generic) + { _crgrsResponseStatus :: !Int + , _crgrsResourceGroupARN :: !Text + } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'CreateResourceGroupResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -121,11 +122,12 @@ -> Text -- ^ 'crgrsResourceGroupARN' -> CreateResourceGroupResponse createResourceGroupResponse pResponseStatus_ pResourceGroupARN_ = - CreateResourceGroupResponse' - { _crgrsResponseStatus = pResponseStatus_ - , _crgrsResourceGroupARN = pResourceGroupARN_ - } + CreateResourceGroupResponse' + { _crgrsResponseStatus = pResponseStatus_ + , _crgrsResourceGroupARN = pResourceGroupARN_ + } + -- | -- | The response status code. crgrsResponseStatus :: Lens' CreateResourceGroupResponse Int crgrsResponseStatus = lens _crgrsResponseStatus (\ s a -> s{_crgrsResponseStatus = a}); @@ -134,4 +136,4 @@ crgrsResourceGroupARN :: Lens' CreateResourceGroupResponse Text crgrsResourceGroupARN = lens _crgrsResourceGroupARN (\ s a -> s{_crgrsResourceGroupARN = a}); -instance NFData CreateResourceGroupResponse +instance NFData CreateResourceGroupResponse where diff --git a/gen/Network/AWS/Inspector/DeleteAssessmentRun.hs b/gen/Network/AWS/Inspector/DeleteAssessmentRun.hs --- a/gen/Network/AWS/Inspector/DeleteAssessmentRun.hs +++ b/gen/Network/AWS/Inspector/DeleteAssessmentRun.hs @@ -12,9 +12,9 @@ -- | -- Module : Network.AWS.Inspector.DeleteAssessmentRun --- Copyright : (c) 2013-2016 Brendan Hay +-- Copyright : (c) 2013-2017 Brendan Hay -- License : Mozilla Public License, v. 2.0. --- Maintainer : Brendan Hay +-- Maintainer : Brendan Hay -- Stability : auto-generated -- Portability : non-portable (GHC extensions) -- @@ -34,18 +34,19 @@ , DeleteAssessmentRunResponse ) where -import Network.AWS.Inspector.Types -import Network.AWS.Inspector.Types.Product -import Network.AWS.Lens -import Network.AWS.Prelude -import Network.AWS.Request -import Network.AWS.Response +import Network.AWS.Inspector.Types +import Network.AWS.Inspector.Types.Product +import Network.AWS.Lens +import Network.AWS.Prelude +import Network.AWS.Request +import Network.AWS.Response -- | /See:/ 'deleteAssessmentRun' smart constructor. newtype DeleteAssessmentRun = DeleteAssessmentRun' - { _darAssessmentRunARN :: Text - } deriving (Eq,Read,Show,Data,Typeable,Generic) + { _darAssessmentRunARN :: Text + } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DeleteAssessmentRun' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -55,10 +56,9 @@ :: Text -- ^ 'darAssessmentRunARN' -> DeleteAssessmentRun deleteAssessmentRun pAssessmentRunARN_ = - DeleteAssessmentRun' - { _darAssessmentRunARN = pAssessmentRunARN_ - } + DeleteAssessmentRun' {_darAssessmentRunARN = pAssessmentRunARN_} + -- | The ARN that specifies the assessment run that you want to delete. darAssessmentRunARN :: Lens' DeleteAssessmentRun Text darAssessmentRunARN = lens _darAssessmentRunARN (\ s a -> s{_darAssessmentRunARN = a}); @@ -69,9 +69,9 @@ request = postJSON inspector response = receiveNull DeleteAssessmentRunResponse' -instance Hashable DeleteAssessmentRun +instance Hashable DeleteAssessmentRun where -instance NFData DeleteAssessmentRun +instance NFData DeleteAssessmentRun where instance ToHeaders DeleteAssessmentRun where toHeaders @@ -97,13 +97,15 @@ -- | /See:/ 'deleteAssessmentRunResponse' smart constructor. data DeleteAssessmentRunResponse = - DeleteAssessmentRunResponse' - deriving (Eq,Read,Show,Data,Typeable,Generic) + DeleteAssessmentRunResponse' + deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DeleteAssessmentRunResponse' with the minimum fields required to make a request. -- deleteAssessmentRunResponse :: DeleteAssessmentRunResponse deleteAssessmentRunResponse = DeleteAssessmentRunResponse' -instance NFData DeleteAssessmentRunResponse + +instance NFData DeleteAssessmentRunResponse where diff --git a/gen/Network/AWS/Inspector/DeleteAssessmentTarget.hs b/gen/Network/AWS/Inspector/DeleteAssessmentTarget.hs --- a/gen/Network/AWS/Inspector/DeleteAssessmentTarget.hs +++ b/gen/Network/AWS/Inspector/DeleteAssessmentTarget.hs @@ -12,9 +12,9 @@ -- | -- Module : Network.AWS.Inspector.DeleteAssessmentTarget --- Copyright : (c) 2013-2016 Brendan Hay +-- Copyright : (c) 2013-2017 Brendan Hay -- License : Mozilla Public License, v. 2.0. --- Maintainer : Brendan Hay +-- Maintainer : Brendan Hay -- Stability : auto-generated -- Portability : non-portable (GHC extensions) -- @@ -34,18 +34,19 @@ , DeleteAssessmentTargetResponse ) where -import Network.AWS.Inspector.Types -import Network.AWS.Inspector.Types.Product -import Network.AWS.Lens -import Network.AWS.Prelude -import Network.AWS.Request -import Network.AWS.Response +import Network.AWS.Inspector.Types +import Network.AWS.Inspector.Types.Product +import Network.AWS.Lens +import Network.AWS.Prelude +import Network.AWS.Request +import Network.AWS.Response -- | /See:/ 'deleteAssessmentTarget' smart constructor. newtype DeleteAssessmentTarget = DeleteAssessmentTarget' - { _datAssessmentTargetARN :: Text - } deriving (Eq,Read,Show,Data,Typeable,Generic) + { _datAssessmentTargetARN :: Text + } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DeleteAssessmentTarget' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -55,10 +56,9 @@ :: Text -- ^ 'datAssessmentTargetARN' -> DeleteAssessmentTarget deleteAssessmentTarget pAssessmentTargetARN_ = - DeleteAssessmentTarget' - { _datAssessmentTargetARN = pAssessmentTargetARN_ - } + DeleteAssessmentTarget' {_datAssessmentTargetARN = pAssessmentTargetARN_} + -- | The ARN that specifies the assessment target that you want to delete. datAssessmentTargetARN :: Lens' DeleteAssessmentTarget Text datAssessmentTargetARN = lens _datAssessmentTargetARN (\ s a -> s{_datAssessmentTargetARN = a}); @@ -70,9 +70,9 @@ response = receiveNull DeleteAssessmentTargetResponse' -instance Hashable DeleteAssessmentTarget +instance Hashable DeleteAssessmentTarget where -instance NFData DeleteAssessmentTarget +instance NFData DeleteAssessmentTarget where instance ToHeaders DeleteAssessmentTarget where toHeaders @@ -99,13 +99,15 @@ -- | /See:/ 'deleteAssessmentTargetResponse' smart constructor. data DeleteAssessmentTargetResponse = - DeleteAssessmentTargetResponse' - deriving (Eq,Read,Show,Data,Typeable,Generic) + DeleteAssessmentTargetResponse' + deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DeleteAssessmentTargetResponse' with the minimum fields required to make a request. -- deleteAssessmentTargetResponse :: DeleteAssessmentTargetResponse deleteAssessmentTargetResponse = DeleteAssessmentTargetResponse' -instance NFData DeleteAssessmentTargetResponse + +instance NFData DeleteAssessmentTargetResponse where diff --git a/gen/Network/AWS/Inspector/DeleteAssessmentTemplate.hs b/gen/Network/AWS/Inspector/DeleteAssessmentTemplate.hs --- a/gen/Network/AWS/Inspector/DeleteAssessmentTemplate.hs +++ b/gen/Network/AWS/Inspector/DeleteAssessmentTemplate.hs @@ -12,9 +12,9 @@ -- | -- Module : Network.AWS.Inspector.DeleteAssessmentTemplate --- Copyright : (c) 2013-2016 Brendan Hay +-- Copyright : (c) 2013-2017 Brendan Hay -- License : Mozilla Public License, v. 2.0. --- Maintainer : Brendan Hay +-- Maintainer : Brendan Hay -- Stability : auto-generated -- Portability : non-portable (GHC extensions) -- @@ -34,18 +34,19 @@ , DeleteAssessmentTemplateResponse ) where -import Network.AWS.Inspector.Types -import Network.AWS.Inspector.Types.Product -import Network.AWS.Lens -import Network.AWS.Prelude -import Network.AWS.Request -import Network.AWS.Response +import Network.AWS.Inspector.Types +import Network.AWS.Inspector.Types.Product +import Network.AWS.Lens +import Network.AWS.Prelude +import Network.AWS.Request +import Network.AWS.Response -- | /See:/ 'deleteAssessmentTemplate' smart constructor. newtype DeleteAssessmentTemplate = DeleteAssessmentTemplate' - { _datAssessmentTemplateARN :: Text - } deriving (Eq,Read,Show,Data,Typeable,Generic) + { _datAssessmentTemplateARN :: Text + } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DeleteAssessmentTemplate' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -55,10 +56,10 @@ :: Text -- ^ 'datAssessmentTemplateARN' -> DeleteAssessmentTemplate deleteAssessmentTemplate pAssessmentTemplateARN_ = - DeleteAssessmentTemplate' - { _datAssessmentTemplateARN = pAssessmentTemplateARN_ - } + DeleteAssessmentTemplate' + {_datAssessmentTemplateARN = pAssessmentTemplateARN_} + -- | The ARN that specifies the assessment template that you want to delete. datAssessmentTemplateARN :: Lens' DeleteAssessmentTemplate Text datAssessmentTemplateARN = lens _datAssessmentTemplateARN (\ s a -> s{_datAssessmentTemplateARN = a}); @@ -70,9 +71,9 @@ response = receiveNull DeleteAssessmentTemplateResponse' -instance Hashable DeleteAssessmentTemplate +instance Hashable DeleteAssessmentTemplate where -instance NFData DeleteAssessmentTemplate +instance NFData DeleteAssessmentTemplate where instance ToHeaders DeleteAssessmentTemplate where toHeaders @@ -100,13 +101,16 @@ -- | /See:/ 'deleteAssessmentTemplateResponse' smart constructor. data DeleteAssessmentTemplateResponse = - DeleteAssessmentTemplateResponse' - deriving (Eq,Read,Show,Data,Typeable,Generic) + DeleteAssessmentTemplateResponse' + deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DeleteAssessmentTemplateResponse' with the minimum fields required to make a request. -- deleteAssessmentTemplateResponse :: DeleteAssessmentTemplateResponse deleteAssessmentTemplateResponse = DeleteAssessmentTemplateResponse' + instance NFData DeleteAssessmentTemplateResponse + where diff --git a/gen/Network/AWS/Inspector/DescribeAssessmentRuns.hs b/gen/Network/AWS/Inspector/DescribeAssessmentRuns.hs --- a/gen/Network/AWS/Inspector/DescribeAssessmentRuns.hs +++ b/gen/Network/AWS/Inspector/DescribeAssessmentRuns.hs @@ -12,9 +12,9 @@ -- | -- Module : Network.AWS.Inspector.DescribeAssessmentRuns --- Copyright : (c) 2013-2016 Brendan Hay +-- Copyright : (c) 2013-2017 Brendan Hay -- License : Mozilla Public License, v. 2.0. --- Maintainer : Brendan Hay +-- Maintainer : Brendan Hay -- Stability : auto-generated -- Portability : non-portable (GHC extensions) -- @@ -38,18 +38,19 @@ , darrsFailedItems ) where -import Network.AWS.Inspector.Types -import Network.AWS.Inspector.Types.Product -import Network.AWS.Lens -import Network.AWS.Prelude -import Network.AWS.Request -import Network.AWS.Response +import Network.AWS.Inspector.Types +import Network.AWS.Inspector.Types.Product +import Network.AWS.Lens +import Network.AWS.Prelude +import Network.AWS.Request +import Network.AWS.Response -- | /See:/ 'describeAssessmentRuns' smart constructor. newtype DescribeAssessmentRuns = DescribeAssessmentRuns' - { _darAssessmentRunARNs :: List1 Text - } deriving (Eq,Read,Show,Data,Typeable,Generic) + { _darAssessmentRunARNs :: List1 Text + } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DescribeAssessmentRuns' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -59,10 +60,9 @@ :: NonEmpty Text -- ^ 'darAssessmentRunARNs' -> DescribeAssessmentRuns describeAssessmentRuns pAssessmentRunARNs_ = - DescribeAssessmentRuns' - { _darAssessmentRunARNs = _List1 # pAssessmentRunARNs_ - } + DescribeAssessmentRuns' {_darAssessmentRunARNs = _List1 # pAssessmentRunARNs_} + -- | The ARN that specifies the assessment run that you want to describe. darAssessmentRunARNs :: Lens' DescribeAssessmentRuns (NonEmpty Text) darAssessmentRunARNs = lens _darAssessmentRunARNs (\ s a -> s{_darAssessmentRunARNs = a}) . _List1; @@ -79,9 +79,9 @@ (x .?> "assessmentRuns" .!@ mempty) <*> (x .?> "failedItems" .!@ mempty)) -instance Hashable DescribeAssessmentRuns +instance Hashable DescribeAssessmentRuns where -instance NFData DescribeAssessmentRuns +instance NFData DescribeAssessmentRuns where instance ToHeaders DescribeAssessmentRuns where toHeaders @@ -108,11 +108,12 @@ -- | /See:/ 'describeAssessmentRunsResponse' smart constructor. data DescribeAssessmentRunsResponse = DescribeAssessmentRunsResponse' - { _darrsResponseStatus :: !Int - , _darrsAssessmentRuns :: ![AssessmentRun] - , _darrsFailedItems :: !(Map Text FailedItemDetails) - } deriving (Eq,Read,Show,Data,Typeable,Generic) + { _darrsResponseStatus :: !Int + , _darrsAssessmentRuns :: ![AssessmentRun] + , _darrsFailedItems :: !(Map Text FailedItemDetails) + } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DescribeAssessmentRunsResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -126,12 +127,13 @@ :: Int -- ^ 'darrsResponseStatus' -> DescribeAssessmentRunsResponse describeAssessmentRunsResponse pResponseStatus_ = - DescribeAssessmentRunsResponse' - { _darrsResponseStatus = pResponseStatus_ - , _darrsAssessmentRuns = mempty - , _darrsFailedItems = mempty - } + DescribeAssessmentRunsResponse' + { _darrsResponseStatus = pResponseStatus_ + , _darrsAssessmentRuns = mempty + , _darrsFailedItems = mempty + } + -- | -- | The response status code. darrsResponseStatus :: Lens' DescribeAssessmentRunsResponse Int darrsResponseStatus = lens _darrsResponseStatus (\ s a -> s{_darrsResponseStatus = a}); @@ -144,4 +146,4 @@ darrsFailedItems :: Lens' DescribeAssessmentRunsResponse (HashMap Text FailedItemDetails) darrsFailedItems = lens _darrsFailedItems (\ s a -> s{_darrsFailedItems = a}) . _Map; -instance NFData DescribeAssessmentRunsResponse +instance NFData DescribeAssessmentRunsResponse where diff --git a/gen/Network/AWS/Inspector/DescribeAssessmentTargets.hs b/gen/Network/AWS/Inspector/DescribeAssessmentTargets.hs --- a/gen/Network/AWS/Inspector/DescribeAssessmentTargets.hs +++ b/gen/Network/AWS/Inspector/DescribeAssessmentTargets.hs @@ -12,9 +12,9 @@ -- | -- Module : Network.AWS.Inspector.DescribeAssessmentTargets --- Copyright : (c) 2013-2016 Brendan Hay +-- Copyright : (c) 2013-2017 Brendan Hay -- License : Mozilla Public License, v. 2.0. --- Maintainer : Brendan Hay +-- Maintainer : Brendan Hay -- Stability : auto-generated -- Portability : non-portable (GHC extensions) -- @@ -38,18 +38,19 @@ , drsFailedItems ) where -import Network.AWS.Inspector.Types -import Network.AWS.Inspector.Types.Product -import Network.AWS.Lens -import Network.AWS.Prelude -import Network.AWS.Request -import Network.AWS.Response +import Network.AWS.Inspector.Types +import Network.AWS.Inspector.Types.Product +import Network.AWS.Lens +import Network.AWS.Prelude +import Network.AWS.Request +import Network.AWS.Response -- | /See:/ 'describeAssessmentTargets' smart constructor. newtype DescribeAssessmentTargets = DescribeAssessmentTargets' - { _datAssessmentTargetARNs :: List1 Text - } deriving (Eq,Read,Show,Data,Typeable,Generic) + { _datAssessmentTargetARNs :: List1 Text + } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DescribeAssessmentTargets' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -59,10 +60,10 @@ :: NonEmpty Text -- ^ 'datAssessmentTargetARNs' -> DescribeAssessmentTargets describeAssessmentTargets pAssessmentTargetARNs_ = - DescribeAssessmentTargets' - { _datAssessmentTargetARNs = _List1 # pAssessmentTargetARNs_ - } + DescribeAssessmentTargets' + {_datAssessmentTargetARNs = _List1 # pAssessmentTargetARNs_} + -- | The ARNs that specifies the assessment targets that you want to describe. datAssessmentTargetARNs :: Lens' DescribeAssessmentTargets (NonEmpty Text) datAssessmentTargetARNs = lens _datAssessmentTargetARNs (\ s a -> s{_datAssessmentTargetARNs = a}) . _List1; @@ -79,9 +80,9 @@ (x .?> "assessmentTargets" .!@ mempty) <*> (x .?> "failedItems" .!@ mempty)) -instance Hashable DescribeAssessmentTargets +instance Hashable DescribeAssessmentTargets where -instance NFData DescribeAssessmentTargets +instance NFData DescribeAssessmentTargets where instance ToHeaders DescribeAssessmentTargets where toHeaders @@ -109,11 +110,12 @@ -- | /See:/ 'describeAssessmentTargetsResponse' smart constructor. data DescribeAssessmentTargetsResponse = DescribeAssessmentTargetsResponse' - { _drsResponseStatus :: !Int - , _drsAssessmentTargets :: ![AssessmentTarget] - , _drsFailedItems :: !(Map Text FailedItemDetails) - } deriving (Eq,Read,Show,Data,Typeable,Generic) + { _drsResponseStatus :: !Int + , _drsAssessmentTargets :: ![AssessmentTarget] + , _drsFailedItems :: !(Map Text FailedItemDetails) + } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DescribeAssessmentTargetsResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -127,12 +129,13 @@ :: Int -- ^ 'drsResponseStatus' -> DescribeAssessmentTargetsResponse describeAssessmentTargetsResponse pResponseStatus_ = - DescribeAssessmentTargetsResponse' - { _drsResponseStatus = pResponseStatus_ - , _drsAssessmentTargets = mempty - , _drsFailedItems = mempty - } + DescribeAssessmentTargetsResponse' + { _drsResponseStatus = pResponseStatus_ + , _drsAssessmentTargets = mempty + , _drsFailedItems = mempty + } + -- | -- | The response status code. drsResponseStatus :: Lens' DescribeAssessmentTargetsResponse Int drsResponseStatus = lens _drsResponseStatus (\ s a -> s{_drsResponseStatus = a}); @@ -146,3 +149,4 @@ drsFailedItems = lens _drsFailedItems (\ s a -> s{_drsFailedItems = a}) . _Map; instance NFData DescribeAssessmentTargetsResponse + where diff --git a/gen/Network/AWS/Inspector/DescribeAssessmentTemplates.hs b/gen/Network/AWS/Inspector/DescribeAssessmentTemplates.hs --- a/gen/Network/AWS/Inspector/DescribeAssessmentTemplates.hs +++ b/gen/Network/AWS/Inspector/DescribeAssessmentTemplates.hs @@ -12,9 +12,9 @@ -- | -- Module : Network.AWS.Inspector.DescribeAssessmentTemplates --- Copyright : (c) 2013-2016 Brendan Hay +-- Copyright : (c) 2013-2017 Brendan Hay -- License : Mozilla Public License, v. 2.0. --- Maintainer : Brendan Hay +-- Maintainer : Brendan Hay -- Stability : auto-generated -- Portability : non-portable (GHC extensions) -- @@ -38,32 +38,33 @@ , datrsFailedItems ) where -import Network.AWS.Inspector.Types -import Network.AWS.Inspector.Types.Product -import Network.AWS.Lens -import Network.AWS.Prelude -import Network.AWS.Request -import Network.AWS.Response +import Network.AWS.Inspector.Types +import Network.AWS.Inspector.Types.Product +import Network.AWS.Lens +import Network.AWS.Prelude +import Network.AWS.Request +import Network.AWS.Response -- | /See:/ 'describeAssessmentTemplates' smart constructor. newtype DescribeAssessmentTemplates = DescribeAssessmentTemplates' - { _datAssessmentTemplateARNs :: List1 Text - } deriving (Eq,Read,Show,Data,Typeable,Generic) + { _datAssessmentTemplateARNs :: List1 Text + } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DescribeAssessmentTemplates' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: -- --- * 'datAssessmentTemplateARNs' - The ARN that specifiesthe assessment templates that you want to describe. +-- * 'datAssessmentTemplateARNs' - Undocumented member. describeAssessmentTemplates :: NonEmpty Text -- ^ 'datAssessmentTemplateARNs' -> DescribeAssessmentTemplates describeAssessmentTemplates pAssessmentTemplateARNs_ = - DescribeAssessmentTemplates' - { _datAssessmentTemplateARNs = _List1 # pAssessmentTemplateARNs_ - } + DescribeAssessmentTemplates' + {_datAssessmentTemplateARNs = _List1 # pAssessmentTemplateARNs_} --- | The ARN that specifiesthe assessment templates that you want to describe. + +-- | Undocumented member. datAssessmentTemplateARNs :: Lens' DescribeAssessmentTemplates (NonEmpty Text) datAssessmentTemplateARNs = lens _datAssessmentTemplateARNs (\ s a -> s{_datAssessmentTemplateARNs = a}) . _List1; @@ -79,9 +80,9 @@ (x .?> "assessmentTemplates" .!@ mempty) <*> (x .?> "failedItems" .!@ mempty)) -instance Hashable DescribeAssessmentTemplates +instance Hashable DescribeAssessmentTemplates where -instance NFData DescribeAssessmentTemplates +instance NFData DescribeAssessmentTemplates where instance ToHeaders DescribeAssessmentTemplates where toHeaders @@ -109,11 +110,12 @@ -- | /See:/ 'describeAssessmentTemplatesResponse' smart constructor. data DescribeAssessmentTemplatesResponse = DescribeAssessmentTemplatesResponse' - { _datrsResponseStatus :: !Int - , _datrsAssessmentTemplates :: ![AssessmentTemplate] - , _datrsFailedItems :: !(Map Text FailedItemDetails) - } deriving (Eq,Read,Show,Data,Typeable,Generic) + { _datrsResponseStatus :: !Int + , _datrsAssessmentTemplates :: ![AssessmentTemplate] + , _datrsFailedItems :: !(Map Text FailedItemDetails) + } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DescribeAssessmentTemplatesResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -127,12 +129,13 @@ :: Int -- ^ 'datrsResponseStatus' -> DescribeAssessmentTemplatesResponse describeAssessmentTemplatesResponse pResponseStatus_ = - DescribeAssessmentTemplatesResponse' - { _datrsResponseStatus = pResponseStatus_ - , _datrsAssessmentTemplates = mempty - , _datrsFailedItems = mempty - } + DescribeAssessmentTemplatesResponse' + { _datrsResponseStatus = pResponseStatus_ + , _datrsAssessmentTemplates = mempty + , _datrsFailedItems = mempty + } + -- | -- | The response status code. datrsResponseStatus :: Lens' DescribeAssessmentTemplatesResponse Int datrsResponseStatus = lens _datrsResponseStatus (\ s a -> s{_datrsResponseStatus = a}); @@ -146,3 +149,4 @@ datrsFailedItems = lens _datrsFailedItems (\ s a -> s{_datrsFailedItems = a}) . _Map; instance NFData DescribeAssessmentTemplatesResponse + where diff --git a/gen/Network/AWS/Inspector/DescribeCrossAccountAccessRole.hs b/gen/Network/AWS/Inspector/DescribeCrossAccountAccessRole.hs --- a/gen/Network/AWS/Inspector/DescribeCrossAccountAccessRole.hs +++ b/gen/Network/AWS/Inspector/DescribeCrossAccountAccessRole.hs @@ -12,9 +12,9 @@ -- | -- Module : Network.AWS.Inspector.DescribeCrossAccountAccessRole --- Copyright : (c) 2013-2016 Brendan Hay +-- Copyright : (c) 2013-2017 Brendan Hay -- License : Mozilla Public License, v. 2.0. --- Maintainer : Brendan Hay +-- Maintainer : Brendan Hay -- Stability : auto-generated -- Portability : non-portable (GHC extensions) -- @@ -37,24 +37,26 @@ , dcaarrsRegisteredAt ) where -import Network.AWS.Inspector.Types -import Network.AWS.Inspector.Types.Product -import Network.AWS.Lens -import Network.AWS.Prelude -import Network.AWS.Request -import Network.AWS.Response +import Network.AWS.Inspector.Types +import Network.AWS.Inspector.Types.Product +import Network.AWS.Lens +import Network.AWS.Prelude +import Network.AWS.Request +import Network.AWS.Response -- | /See:/ 'describeCrossAccountAccessRole' smart constructor. data DescribeCrossAccountAccessRole = - DescribeCrossAccountAccessRole' - deriving (Eq,Read,Show,Data,Typeable,Generic) + DescribeCrossAccountAccessRole' + deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DescribeCrossAccountAccessRole' with the minimum fields required to make a request. -- describeCrossAccountAccessRole :: DescribeCrossAccountAccessRole describeCrossAccountAccessRole = DescribeCrossAccountAccessRole' + instance AWSRequest DescribeCrossAccountAccessRole where type Rs DescribeCrossAccountAccessRole = @@ -69,8 +71,9 @@ <*> (x .:> "registeredAt")) instance Hashable DescribeCrossAccountAccessRole + where -instance NFData DescribeCrossAccountAccessRole +instance NFData DescribeCrossAccountAccessRole where instance ToHeaders DescribeCrossAccountAccessRole where @@ -94,12 +97,13 @@ -- | /See:/ 'describeCrossAccountAccessRoleResponse' smart constructor. data DescribeCrossAccountAccessRoleResponse = DescribeCrossAccountAccessRoleResponse' - { _dcaarrsResponseStatus :: !Int - , _dcaarrsRoleARN :: !Text - , _dcaarrsValid :: !Bool - , _dcaarrsRegisteredAt :: !POSIX - } deriving (Eq,Read,Show,Data,Typeable,Generic) + { _dcaarrsResponseStatus :: !Int + , _dcaarrsRoleARN :: !Text + , _dcaarrsValid :: !Bool + , _dcaarrsRegisteredAt :: !POSIX + } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DescribeCrossAccountAccessRoleResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -118,13 +122,14 @@ -> UTCTime -- ^ 'dcaarrsRegisteredAt' -> DescribeCrossAccountAccessRoleResponse describeCrossAccountAccessRoleResponse pResponseStatus_ pRoleARN_ pValid_ pRegisteredAt_ = - DescribeCrossAccountAccessRoleResponse' - { _dcaarrsResponseStatus = pResponseStatus_ - , _dcaarrsRoleARN = pRoleARN_ - , _dcaarrsValid = pValid_ - , _dcaarrsRegisteredAt = _Time # pRegisteredAt_ - } + DescribeCrossAccountAccessRoleResponse' + { _dcaarrsResponseStatus = pResponseStatus_ + , _dcaarrsRoleARN = pRoleARN_ + , _dcaarrsValid = pValid_ + , _dcaarrsRegisteredAt = _Time # pRegisteredAt_ + } + -- | -- | The response status code. dcaarrsResponseStatus :: Lens' DescribeCrossAccountAccessRoleResponse Int dcaarrsResponseStatus = lens _dcaarrsResponseStatus (\ s a -> s{_dcaarrsResponseStatus = a}); @@ -142,4 +147,5 @@ dcaarrsRegisteredAt = lens _dcaarrsRegisteredAt (\ s a -> s{_dcaarrsRegisteredAt = a}) . _Time; instance NFData - DescribeCrossAccountAccessRoleResponse + DescribeCrossAccountAccessRoleResponse + where diff --git a/gen/Network/AWS/Inspector/DescribeFindings.hs b/gen/Network/AWS/Inspector/DescribeFindings.hs --- a/gen/Network/AWS/Inspector/DescribeFindings.hs +++ b/gen/Network/AWS/Inspector/DescribeFindings.hs @@ -12,9 +12,9 @@ -- | -- Module : Network.AWS.Inspector.DescribeFindings --- Copyright : (c) 2013-2016 Brendan Hay +-- Copyright : (c) 2013-2017 Brendan Hay -- License : Mozilla Public License, v. 2.0. --- Maintainer : Brendan Hay +-- Maintainer : Brendan Hay -- Stability : auto-generated -- Portability : non-portable (GHC extensions) -- @@ -39,19 +39,20 @@ , dfrsFailedItems ) where -import Network.AWS.Inspector.Types -import Network.AWS.Inspector.Types.Product -import Network.AWS.Lens -import Network.AWS.Prelude -import Network.AWS.Request -import Network.AWS.Response +import Network.AWS.Inspector.Types +import Network.AWS.Inspector.Types.Product +import Network.AWS.Lens +import Network.AWS.Prelude +import Network.AWS.Request +import Network.AWS.Response -- | /See:/ 'describeFindings' smart constructor. data DescribeFindings = DescribeFindings' - { _dfLocale :: !(Maybe Locale) - , _dfFindingARNs :: !(List1 Text) - } deriving (Eq,Read,Show,Data,Typeable,Generic) + { _dfLocale :: !(Maybe Locale) + , _dfFindingARNs :: !(List1 Text) + } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DescribeFindings' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -63,11 +64,10 @@ :: NonEmpty Text -- ^ 'dfFindingARNs' -> DescribeFindings describeFindings pFindingARNs_ = - DescribeFindings' - { _dfLocale = Nothing - , _dfFindingARNs = _List1 # pFindingARNs_ - } + DescribeFindings' + {_dfLocale = Nothing, _dfFindingARNs = _List1 # pFindingARNs_} + -- | The locale into which you want to translate a finding description, recommendation, and the short description that identifies the finding. dfLocale :: Lens' DescribeFindings (Maybe Locale) dfLocale = lens _dfLocale (\ s a -> s{_dfLocale = a}); @@ -86,9 +86,9 @@ (pure (fromEnum s)) <*> (x .?> "findings" .!@ mempty) <*> (x .?> "failedItems" .!@ mempty)) -instance Hashable DescribeFindings +instance Hashable DescribeFindings where -instance NFData DescribeFindings +instance NFData DescribeFindings where instance ToHeaders DescribeFindings where toHeaders @@ -114,11 +114,12 @@ -- | /See:/ 'describeFindingsResponse' smart constructor. data DescribeFindingsResponse = DescribeFindingsResponse' - { _dfrsResponseStatus :: !Int - , _dfrsFindings :: ![Finding] - , _dfrsFailedItems :: !(Map Text FailedItemDetails) - } deriving (Eq,Read,Show,Data,Typeable,Generic) + { _dfrsResponseStatus :: !Int + , _dfrsFindings :: ![Finding] + , _dfrsFailedItems :: !(Map Text FailedItemDetails) + } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DescribeFindingsResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -132,12 +133,13 @@ :: Int -- ^ 'dfrsResponseStatus' -> DescribeFindingsResponse describeFindingsResponse pResponseStatus_ = - DescribeFindingsResponse' - { _dfrsResponseStatus = pResponseStatus_ - , _dfrsFindings = mempty - , _dfrsFailedItems = mempty - } + DescribeFindingsResponse' + { _dfrsResponseStatus = pResponseStatus_ + , _dfrsFindings = mempty + , _dfrsFailedItems = mempty + } + -- | -- | The response status code. dfrsResponseStatus :: Lens' DescribeFindingsResponse Int dfrsResponseStatus = lens _dfrsResponseStatus (\ s a -> s{_dfrsResponseStatus = a}); @@ -150,4 +152,4 @@ dfrsFailedItems :: Lens' DescribeFindingsResponse (HashMap Text FailedItemDetails) dfrsFailedItems = lens _dfrsFailedItems (\ s a -> s{_dfrsFailedItems = a}) . _Map; -instance NFData DescribeFindingsResponse +instance NFData DescribeFindingsResponse where diff --git a/gen/Network/AWS/Inspector/DescribeResourceGroups.hs b/gen/Network/AWS/Inspector/DescribeResourceGroups.hs --- a/gen/Network/AWS/Inspector/DescribeResourceGroups.hs +++ b/gen/Network/AWS/Inspector/DescribeResourceGroups.hs @@ -12,9 +12,9 @@ -- | -- Module : Network.AWS.Inspector.DescribeResourceGroups --- Copyright : (c) 2013-2016 Brendan Hay +-- Copyright : (c) 2013-2017 Brendan Hay -- License : Mozilla Public License, v. 2.0. --- Maintainer : Brendan Hay +-- Maintainer : Brendan Hay -- Stability : auto-generated -- Portability : non-portable (GHC extensions) -- @@ -38,18 +38,19 @@ , drgrsFailedItems ) where -import Network.AWS.Inspector.Types -import Network.AWS.Inspector.Types.Product -import Network.AWS.Lens -import Network.AWS.Prelude -import Network.AWS.Request -import Network.AWS.Response +import Network.AWS.Inspector.Types +import Network.AWS.Inspector.Types.Product +import Network.AWS.Lens +import Network.AWS.Prelude +import Network.AWS.Request +import Network.AWS.Response -- | /See:/ 'describeResourceGroups' smart constructor. newtype DescribeResourceGroups = DescribeResourceGroups' - { _drgResourceGroupARNs :: List1 Text - } deriving (Eq,Read,Show,Data,Typeable,Generic) + { _drgResourceGroupARNs :: List1 Text + } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DescribeResourceGroups' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -59,10 +60,9 @@ :: NonEmpty Text -- ^ 'drgResourceGroupARNs' -> DescribeResourceGroups describeResourceGroups pResourceGroupARNs_ = - DescribeResourceGroups' - { _drgResourceGroupARNs = _List1 # pResourceGroupARNs_ - } + DescribeResourceGroups' {_drgResourceGroupARNs = _List1 # pResourceGroupARNs_} + -- | The ARN that specifies the resource group that you want to describe. drgResourceGroupARNs :: Lens' DescribeResourceGroups (NonEmpty Text) drgResourceGroupARNs = lens _drgResourceGroupARNs (\ s a -> s{_drgResourceGroupARNs = a}) . _List1; @@ -79,9 +79,9 @@ (x .?> "resourceGroups" .!@ mempty) <*> (x .?> "failedItems" .!@ mempty)) -instance Hashable DescribeResourceGroups +instance Hashable DescribeResourceGroups where -instance NFData DescribeResourceGroups +instance NFData DescribeResourceGroups where instance ToHeaders DescribeResourceGroups where toHeaders @@ -108,11 +108,12 @@ -- | /See:/ 'describeResourceGroupsResponse' smart constructor. data DescribeResourceGroupsResponse = DescribeResourceGroupsResponse' - { _drgrsResponseStatus :: !Int - , _drgrsResourceGroups :: ![ResourceGroup] - , _drgrsFailedItems :: !(Map Text FailedItemDetails) - } deriving (Eq,Read,Show,Data,Typeable,Generic) + { _drgrsResponseStatus :: !Int + , _drgrsResourceGroups :: ![ResourceGroup] + , _drgrsFailedItems :: !(Map Text FailedItemDetails) + } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DescribeResourceGroupsResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -126,12 +127,13 @@ :: Int -- ^ 'drgrsResponseStatus' -> DescribeResourceGroupsResponse describeResourceGroupsResponse pResponseStatus_ = - DescribeResourceGroupsResponse' - { _drgrsResponseStatus = pResponseStatus_ - , _drgrsResourceGroups = mempty - , _drgrsFailedItems = mempty - } + DescribeResourceGroupsResponse' + { _drgrsResponseStatus = pResponseStatus_ + , _drgrsResourceGroups = mempty + , _drgrsFailedItems = mempty + } + -- | -- | The response status code. drgrsResponseStatus :: Lens' DescribeResourceGroupsResponse Int drgrsResponseStatus = lens _drgrsResponseStatus (\ s a -> s{_drgrsResponseStatus = a}); @@ -144,4 +146,4 @@ drgrsFailedItems :: Lens' DescribeResourceGroupsResponse (HashMap Text FailedItemDetails) drgrsFailedItems = lens _drgrsFailedItems (\ s a -> s{_drgrsFailedItems = a}) . _Map; -instance NFData DescribeResourceGroupsResponse +instance NFData DescribeResourceGroupsResponse where diff --git a/gen/Network/AWS/Inspector/DescribeRulesPackages.hs b/gen/Network/AWS/Inspector/DescribeRulesPackages.hs --- a/gen/Network/AWS/Inspector/DescribeRulesPackages.hs +++ b/gen/Network/AWS/Inspector/DescribeRulesPackages.hs @@ -12,9 +12,9 @@ -- | -- Module : Network.AWS.Inspector.DescribeRulesPackages --- Copyright : (c) 2013-2016 Brendan Hay +-- Copyright : (c) 2013-2017 Brendan Hay -- License : Mozilla Public License, v. 2.0. --- Maintainer : Brendan Hay +-- Maintainer : Brendan Hay -- Stability : auto-generated -- Portability : non-portable (GHC extensions) -- @@ -39,19 +39,20 @@ , drprsFailedItems ) where -import Network.AWS.Inspector.Types -import Network.AWS.Inspector.Types.Product -import Network.AWS.Lens -import Network.AWS.Prelude -import Network.AWS.Request -import Network.AWS.Response +import Network.AWS.Inspector.Types +import Network.AWS.Inspector.Types.Product +import Network.AWS.Lens +import Network.AWS.Prelude +import Network.AWS.Request +import Network.AWS.Response -- | /See:/ 'describeRulesPackages' smart constructor. data DescribeRulesPackages = DescribeRulesPackages' - { _drpLocale :: !(Maybe Locale) - , _drpRulesPackageARNs :: !(List1 Text) - } deriving (Eq,Read,Show,Data,Typeable,Generic) + { _drpLocale :: !(Maybe Locale) + , _drpRulesPackageARNs :: !(List1 Text) + } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DescribeRulesPackages' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -63,11 +64,10 @@ :: NonEmpty Text -- ^ 'drpRulesPackageARNs' -> DescribeRulesPackages describeRulesPackages pRulesPackageARNs_ = - DescribeRulesPackages' - { _drpLocale = Nothing - , _drpRulesPackageARNs = _List1 # pRulesPackageARNs_ - } + DescribeRulesPackages' + {_drpLocale = Nothing, _drpRulesPackageARNs = _List1 # pRulesPackageARNs_} + -- | The locale that you want to translate a rules package description into. drpLocale :: Lens' DescribeRulesPackages (Maybe Locale) drpLocale = lens _drpLocale (\ s a -> s{_drpLocale = a}); @@ -88,9 +88,9 @@ (x .?> "rulesPackages" .!@ mempty) <*> (x .?> "failedItems" .!@ mempty)) -instance Hashable DescribeRulesPackages +instance Hashable DescribeRulesPackages where -instance NFData DescribeRulesPackages +instance NFData DescribeRulesPackages where instance ToHeaders DescribeRulesPackages where toHeaders @@ -117,11 +117,12 @@ -- | /See:/ 'describeRulesPackagesResponse' smart constructor. data DescribeRulesPackagesResponse = DescribeRulesPackagesResponse' - { _drprsResponseStatus :: !Int - , _drprsRulesPackages :: ![RulesPackage] - , _drprsFailedItems :: !(Map Text FailedItemDetails) - } deriving (Eq,Read,Show,Data,Typeable,Generic) + { _drprsResponseStatus :: !Int + , _drprsRulesPackages :: ![RulesPackage] + , _drprsFailedItems :: !(Map Text FailedItemDetails) + } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DescribeRulesPackagesResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -135,12 +136,13 @@ :: Int -- ^ 'drprsResponseStatus' -> DescribeRulesPackagesResponse describeRulesPackagesResponse pResponseStatus_ = - DescribeRulesPackagesResponse' - { _drprsResponseStatus = pResponseStatus_ - , _drprsRulesPackages = mempty - , _drprsFailedItems = mempty - } + DescribeRulesPackagesResponse' + { _drprsResponseStatus = pResponseStatus_ + , _drprsRulesPackages = mempty + , _drprsFailedItems = mempty + } + -- | -- | The response status code. drprsResponseStatus :: Lens' DescribeRulesPackagesResponse Int drprsResponseStatus = lens _drprsResponseStatus (\ s a -> s{_drprsResponseStatus = a}); @@ -153,4 +155,4 @@ drprsFailedItems :: Lens' DescribeRulesPackagesResponse (HashMap Text FailedItemDetails) drprsFailedItems = lens _drprsFailedItems (\ s a -> s{_drprsFailedItems = a}) . _Map; -instance NFData DescribeRulesPackagesResponse +instance NFData DescribeRulesPackagesResponse where diff --git a/gen/Network/AWS/Inspector/GetAssessmentReport.hs b/gen/Network/AWS/Inspector/GetAssessmentReport.hs new file mode 100644 --- /dev/null +++ b/gen/Network/AWS/Inspector/GetAssessmentReport.hs @@ -0,0 +1,172 @@ +{-# LANGUAGE DeriveDataTypeable #-} +{-# LANGUAGE DeriveGeneric #-} +{-# LANGUAGE OverloadedStrings #-} +{-# LANGUAGE RecordWildCards #-} +{-# LANGUAGE TypeFamilies #-} + +{-# OPTIONS_GHC -fno-warn-unused-imports #-} +{-# OPTIONS_GHC -fno-warn-unused-binds #-} +{-# OPTIONS_GHC -fno-warn-unused-matches #-} + +-- Derived from AWS service descriptions, licensed under Apache 2.0. + +-- | +-- Module : Network.AWS.Inspector.GetAssessmentReport +-- Copyright : (c) 2013-2017 Brendan Hay +-- License : Mozilla Public License, v. 2.0. +-- Maintainer : Brendan Hay +-- Stability : auto-generated +-- Portability : non-portable (GHC extensions) +-- +-- Produces an assessment report that includes detailed and comprehensive results of a specified assessment run. +-- +-- +module Network.AWS.Inspector.GetAssessmentReport + ( + -- * Creating a Request + getAssessmentReport + , GetAssessmentReport + -- * Request Lenses + , garAssessmentRunARN + , garReportFileFormat + , garReportType + + -- * Destructuring the Response + , getAssessmentReportResponse + , GetAssessmentReportResponse + -- * Response Lenses + , garrsUrl + , garrsResponseStatus + , garrsStatus + ) where + +import Network.AWS.Inspector.Types +import Network.AWS.Inspector.Types.Product +import Network.AWS.Lens +import Network.AWS.Prelude +import Network.AWS.Request +import Network.AWS.Response + +-- | /See:/ 'getAssessmentReport' smart constructor. +data GetAssessmentReport = GetAssessmentReport' + { _garAssessmentRunARN :: !Text + , _garReportFileFormat :: !ReportFileFormat + , _garReportType :: !ReportType + } deriving (Eq, Read, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'GetAssessmentReport' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'garAssessmentRunARN' - The ARN that specifies the assessment run for which you want to generate a report. +-- +-- * 'garReportFileFormat' - Specifies the file format (html or pdf) of the assessment report that you want to generate. +-- +-- * 'garReportType' - Specifies the type of the assessment report that you want to generate. There are two types of assessment reports: a finding report and a full report. For more information, see . +getAssessmentReport + :: Text -- ^ 'garAssessmentRunARN' + -> ReportFileFormat -- ^ 'garReportFileFormat' + -> ReportType -- ^ 'garReportType' + -> GetAssessmentReport +getAssessmentReport pAssessmentRunARN_ pReportFileFormat_ pReportType_ = + GetAssessmentReport' + { _garAssessmentRunARN = pAssessmentRunARN_ + , _garReportFileFormat = pReportFileFormat_ + , _garReportType = pReportType_ + } + + +-- | The ARN that specifies the assessment run for which you want to generate a report. +garAssessmentRunARN :: Lens' GetAssessmentReport Text +garAssessmentRunARN = lens _garAssessmentRunARN (\ s a -> s{_garAssessmentRunARN = a}); + +-- | Specifies the file format (html or pdf) of the assessment report that you want to generate. +garReportFileFormat :: Lens' GetAssessmentReport ReportFileFormat +garReportFileFormat = lens _garReportFileFormat (\ s a -> s{_garReportFileFormat = a}); + +-- | Specifies the type of the assessment report that you want to generate. There are two types of assessment reports: a finding report and a full report. For more information, see . +garReportType :: Lens' GetAssessmentReport ReportType +garReportType = lens _garReportType (\ s a -> s{_garReportType = a}); + +instance AWSRequest GetAssessmentReport where + type Rs GetAssessmentReport = + GetAssessmentReportResponse + request = postJSON inspector + response + = receiveJSON + (\ s h x -> + GetAssessmentReportResponse' <$> + (x .?> "url") <*> (pure (fromEnum s)) <*> + (x .:> "status")) + +instance Hashable GetAssessmentReport where + +instance NFData GetAssessmentReport where + +instance ToHeaders GetAssessmentReport where + toHeaders + = const + (mconcat + ["X-Amz-Target" =# + ("InspectorService.GetAssessmentReport" :: + ByteString), + "Content-Type" =# + ("application/x-amz-json-1.1" :: ByteString)]) + +instance ToJSON GetAssessmentReport where + toJSON GetAssessmentReport'{..} + = object + (catMaybes + [Just ("assessmentRunArn" .= _garAssessmentRunARN), + Just ("reportFileFormat" .= _garReportFileFormat), + Just ("reportType" .= _garReportType)]) + +instance ToPath GetAssessmentReport where + toPath = const "/" + +instance ToQuery GetAssessmentReport where + toQuery = const mempty + +-- | /See:/ 'getAssessmentReportResponse' smart constructor. +data GetAssessmentReportResponse = GetAssessmentReportResponse' + { _garrsUrl :: !(Maybe Text) + , _garrsResponseStatus :: !Int + , _garrsStatus :: !ReportStatus + } deriving (Eq, Read, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'GetAssessmentReportResponse' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'garrsUrl' - Specifies the URL where you can find the generated assessment report. This parameter is only returned if the report is successfully generated. +-- +-- * 'garrsResponseStatus' - -- | The response status code. +-- +-- * 'garrsStatus' - Specifies the status of the request to generate an assessment report. +getAssessmentReportResponse + :: Int -- ^ 'garrsResponseStatus' + -> ReportStatus -- ^ 'garrsStatus' + -> GetAssessmentReportResponse +getAssessmentReportResponse pResponseStatus_ pStatus_ = + GetAssessmentReportResponse' + { _garrsUrl = Nothing + , _garrsResponseStatus = pResponseStatus_ + , _garrsStatus = pStatus_ + } + + +-- | Specifies the URL where you can find the generated assessment report. This parameter is only returned if the report is successfully generated. +garrsUrl :: Lens' GetAssessmentReportResponse (Maybe Text) +garrsUrl = lens _garrsUrl (\ s a -> s{_garrsUrl = a}); + +-- | -- | The response status code. +garrsResponseStatus :: Lens' GetAssessmentReportResponse Int +garrsResponseStatus = lens _garrsResponseStatus (\ s a -> s{_garrsResponseStatus = a}); + +-- | Specifies the status of the request to generate an assessment report. +garrsStatus :: Lens' GetAssessmentReportResponse ReportStatus +garrsStatus = lens _garrsStatus (\ s a -> s{_garrsStatus = a}); + +instance NFData GetAssessmentReportResponse where diff --git a/gen/Network/AWS/Inspector/GetTelemetryMetadata.hs b/gen/Network/AWS/Inspector/GetTelemetryMetadata.hs --- a/gen/Network/AWS/Inspector/GetTelemetryMetadata.hs +++ b/gen/Network/AWS/Inspector/GetTelemetryMetadata.hs @@ -12,9 +12,9 @@ -- | -- Module : Network.AWS.Inspector.GetTelemetryMetadata --- Copyright : (c) 2013-2016 Brendan Hay +-- Copyright : (c) 2013-2017 Brendan Hay -- License : Mozilla Public License, v. 2.0. --- Maintainer : Brendan Hay +-- Maintainer : Brendan Hay -- Stability : auto-generated -- Portability : non-portable (GHC extensions) -- @@ -37,18 +37,19 @@ , gtmrsTelemetryMetadata ) where -import Network.AWS.Inspector.Types -import Network.AWS.Inspector.Types.Product -import Network.AWS.Lens -import Network.AWS.Prelude -import Network.AWS.Request -import Network.AWS.Response +import Network.AWS.Inspector.Types +import Network.AWS.Inspector.Types.Product +import Network.AWS.Lens +import Network.AWS.Prelude +import Network.AWS.Request +import Network.AWS.Response -- | /See:/ 'getTelemetryMetadata' smart constructor. newtype GetTelemetryMetadata = GetTelemetryMetadata' - { _gtmAssessmentRunARN :: Text - } deriving (Eq,Read,Show,Data,Typeable,Generic) + { _gtmAssessmentRunARN :: Text + } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'GetTelemetryMetadata' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -58,10 +59,9 @@ :: Text -- ^ 'gtmAssessmentRunARN' -> GetTelemetryMetadata getTelemetryMetadata pAssessmentRunARN_ = - GetTelemetryMetadata' - { _gtmAssessmentRunARN = pAssessmentRunARN_ - } + GetTelemetryMetadata' {_gtmAssessmentRunARN = pAssessmentRunARN_} + -- | The ARN that specifies the assessment run that has the telemetry data that you want to obtain. gtmAssessmentRunARN :: Lens' GetTelemetryMetadata Text gtmAssessmentRunARN = lens _gtmAssessmentRunARN (\ s a -> s{_gtmAssessmentRunARN = a}); @@ -77,9 +77,9 @@ (pure (fromEnum s)) <*> (x .?> "telemetryMetadata" .!@ mempty)) -instance Hashable GetTelemetryMetadata +instance Hashable GetTelemetryMetadata where -instance NFData GetTelemetryMetadata +instance NFData GetTelemetryMetadata where instance ToHeaders GetTelemetryMetadata where toHeaders @@ -105,10 +105,11 @@ -- | /See:/ 'getTelemetryMetadataResponse' smart constructor. data GetTelemetryMetadataResponse = GetTelemetryMetadataResponse' - { _gtmrsResponseStatus :: !Int - , _gtmrsTelemetryMetadata :: ![TelemetryMetadata] - } deriving (Eq,Read,Show,Data,Typeable,Generic) + { _gtmrsResponseStatus :: !Int + , _gtmrsTelemetryMetadata :: ![TelemetryMetadata] + } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'GetTelemetryMetadataResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -120,11 +121,10 @@ :: Int -- ^ 'gtmrsResponseStatus' -> GetTelemetryMetadataResponse getTelemetryMetadataResponse pResponseStatus_ = - GetTelemetryMetadataResponse' - { _gtmrsResponseStatus = pResponseStatus_ - , _gtmrsTelemetryMetadata = mempty - } + GetTelemetryMetadataResponse' + {_gtmrsResponseStatus = pResponseStatus_, _gtmrsTelemetryMetadata = mempty} + -- | -- | The response status code. gtmrsResponseStatus :: Lens' GetTelemetryMetadataResponse Int gtmrsResponseStatus = lens _gtmrsResponseStatus (\ s a -> s{_gtmrsResponseStatus = a}); @@ -133,4 +133,4 @@ gtmrsTelemetryMetadata :: Lens' GetTelemetryMetadataResponse [TelemetryMetadata] gtmrsTelemetryMetadata = lens _gtmrsTelemetryMetadata (\ s a -> s{_gtmrsTelemetryMetadata = a}) . _Coerce; -instance NFData GetTelemetryMetadataResponse +instance NFData GetTelemetryMetadataResponse where diff --git a/gen/Network/AWS/Inspector/ListAssessmentRunAgents.hs b/gen/Network/AWS/Inspector/ListAssessmentRunAgents.hs --- a/gen/Network/AWS/Inspector/ListAssessmentRunAgents.hs +++ b/gen/Network/AWS/Inspector/ListAssessmentRunAgents.hs @@ -12,9 +12,9 @@ -- | -- Module : Network.AWS.Inspector.ListAssessmentRunAgents --- Copyright : (c) 2013-2016 Brendan Hay +-- Copyright : (c) 2013-2017 Brendan Hay -- License : Mozilla Public License, v. 2.0. --- Maintainer : Brendan Hay +-- Maintainer : Brendan Hay -- Stability : auto-generated -- Portability : non-portable (GHC extensions) -- @@ -41,21 +41,22 @@ , lararsAssessmentRunAgents ) where -import Network.AWS.Inspector.Types -import Network.AWS.Inspector.Types.Product -import Network.AWS.Lens -import Network.AWS.Prelude -import Network.AWS.Request -import Network.AWS.Response +import Network.AWS.Inspector.Types +import Network.AWS.Inspector.Types.Product +import Network.AWS.Lens +import Network.AWS.Prelude +import Network.AWS.Request +import Network.AWS.Response -- | /See:/ 'listAssessmentRunAgents' smart constructor. data ListAssessmentRunAgents = ListAssessmentRunAgents' - { _laraNextToken :: !(Maybe Text) - , _laraFilter :: !(Maybe AgentFilter) - , _laraMaxResults :: !(Maybe Int) - , _laraAssessmentRunARN :: !Text - } deriving (Eq,Read,Show,Data,Typeable,Generic) + { _laraNextToken :: !(Maybe Text) + , _laraFilter :: !(Maybe AgentFilter) + , _laraMaxResults :: !(Maybe Int) + , _laraAssessmentRunARN :: !Text + } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'ListAssessmentRunAgents' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -71,13 +72,14 @@ :: Text -- ^ 'laraAssessmentRunARN' -> ListAssessmentRunAgents listAssessmentRunAgents pAssessmentRunARN_ = - ListAssessmentRunAgents' - { _laraNextToken = Nothing - , _laraFilter = Nothing - , _laraMaxResults = Nothing - , _laraAssessmentRunARN = pAssessmentRunARN_ - } + ListAssessmentRunAgents' + { _laraNextToken = Nothing + , _laraFilter = Nothing + , _laraMaxResults = Nothing + , _laraAssessmentRunARN = pAssessmentRunARN_ + } + -- | You can use this parameter when paginating results. Set the value of this parameter to null on your first call to the __ListAssessmentRunAgents__ action. Subsequent calls to the action fill __nextToken__ in the request with the value of __NextToken__ from the previous response to continue listing data. laraNextToken :: Lens' ListAssessmentRunAgents (Maybe Text) laraNextToken = lens _laraNextToken (\ s a -> s{_laraNextToken = a}); @@ -105,9 +107,9 @@ (x .?> "nextToken") <*> (pure (fromEnum s)) <*> (x .?> "assessmentRunAgents" .!@ mempty)) -instance Hashable ListAssessmentRunAgents +instance Hashable ListAssessmentRunAgents where -instance NFData ListAssessmentRunAgents +instance NFData ListAssessmentRunAgents where instance ToHeaders ListAssessmentRunAgents where toHeaders @@ -136,11 +138,12 @@ -- | /See:/ 'listAssessmentRunAgentsResponse' smart constructor. data ListAssessmentRunAgentsResponse = ListAssessmentRunAgentsResponse' - { _lararsNextToken :: !(Maybe Text) - , _lararsResponseStatus :: !Int - , _lararsAssessmentRunAgents :: ![AssessmentRunAgent] - } deriving (Eq,Read,Show,Data,Typeable,Generic) + { _lararsNextToken :: !(Maybe Text) + , _lararsResponseStatus :: !Int + , _lararsAssessmentRunAgents :: ![AssessmentRunAgent] + } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'ListAssessmentRunAgentsResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -154,12 +157,13 @@ :: Int -- ^ 'lararsResponseStatus' -> ListAssessmentRunAgentsResponse listAssessmentRunAgentsResponse pResponseStatus_ = - ListAssessmentRunAgentsResponse' - { _lararsNextToken = Nothing - , _lararsResponseStatus = pResponseStatus_ - , _lararsAssessmentRunAgents = mempty - } + ListAssessmentRunAgentsResponse' + { _lararsNextToken = Nothing + , _lararsResponseStatus = pResponseStatus_ + , _lararsAssessmentRunAgents = mempty + } + -- | When a response is generated, if there is more data to be listed, this parameter is present in the response and contains the value to use for the __nextToken__ parameter in a subsequent pagination request. If there is no more data to be listed, this parameter is set to null. lararsNextToken :: Lens' ListAssessmentRunAgentsResponse (Maybe Text) lararsNextToken = lens _lararsNextToken (\ s a -> s{_lararsNextToken = a}); @@ -172,4 +176,4 @@ lararsAssessmentRunAgents :: Lens' ListAssessmentRunAgentsResponse [AssessmentRunAgent] lararsAssessmentRunAgents = lens _lararsAssessmentRunAgents (\ s a -> s{_lararsAssessmentRunAgents = a}) . _Coerce; -instance NFData ListAssessmentRunAgentsResponse +instance NFData ListAssessmentRunAgentsResponse where diff --git a/gen/Network/AWS/Inspector/ListAssessmentRuns.hs b/gen/Network/AWS/Inspector/ListAssessmentRuns.hs --- a/gen/Network/AWS/Inspector/ListAssessmentRuns.hs +++ b/gen/Network/AWS/Inspector/ListAssessmentRuns.hs @@ -12,9 +12,9 @@ -- | -- Module : Network.AWS.Inspector.ListAssessmentRuns --- Copyright : (c) 2013-2016 Brendan Hay +-- Copyright : (c) 2013-2017 Brendan Hay -- License : Mozilla Public License, v. 2.0. --- Maintainer : Brendan Hay +-- Maintainer : Brendan Hay -- Stability : auto-generated -- Portability : non-portable (GHC extensions) -- @@ -41,21 +41,22 @@ , larrsAssessmentRunARNs ) where -import Network.AWS.Inspector.Types -import Network.AWS.Inspector.Types.Product -import Network.AWS.Lens -import Network.AWS.Prelude -import Network.AWS.Request -import Network.AWS.Response +import Network.AWS.Inspector.Types +import Network.AWS.Inspector.Types.Product +import Network.AWS.Lens +import Network.AWS.Prelude +import Network.AWS.Request +import Network.AWS.Response -- | /See:/ 'listAssessmentRuns' smart constructor. data ListAssessmentRuns = ListAssessmentRuns' - { _larNextToken :: !(Maybe Text) - , _larFilter :: !(Maybe AssessmentRunFilter) - , _larAssessmentTemplateARNs :: !(Maybe [Text]) - , _larMaxResults :: !(Maybe Int) - } deriving (Eq,Read,Show,Data,Typeable,Generic) + { _larNextToken :: !(Maybe Text) + , _larFilter :: !(Maybe AssessmentRunFilter) + , _larAssessmentTemplateARNs :: !(Maybe [Text]) + , _larMaxResults :: !(Maybe Int) + } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'ListAssessmentRuns' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -70,13 +71,14 @@ listAssessmentRuns :: ListAssessmentRuns listAssessmentRuns = - ListAssessmentRuns' - { _larNextToken = Nothing - , _larFilter = Nothing - , _larAssessmentTemplateARNs = Nothing - , _larMaxResults = Nothing - } + ListAssessmentRuns' + { _larNextToken = Nothing + , _larFilter = Nothing + , _larAssessmentTemplateARNs = Nothing + , _larMaxResults = Nothing + } + -- | You can use this parameter when paginating results. Set the value of this parameter to null on your first call to the __ListAssessmentRuns__ action. Subsequent calls to the action fill __nextToken__ in the request with the value of __NextToken__ from the previous response to continue listing data. larNextToken :: Lens' ListAssessmentRuns (Maybe Text) larNextToken = lens _larNextToken (\ s a -> s{_larNextToken = a}); @@ -104,9 +106,9 @@ (x .?> "nextToken") <*> (pure (fromEnum s)) <*> (x .?> "assessmentRunArns" .!@ mempty)) -instance Hashable ListAssessmentRuns +instance Hashable ListAssessmentRuns where -instance NFData ListAssessmentRuns +instance NFData ListAssessmentRuns where instance ToHeaders ListAssessmentRuns where toHeaders @@ -136,11 +138,12 @@ -- | /See:/ 'listAssessmentRunsResponse' smart constructor. data ListAssessmentRunsResponse = ListAssessmentRunsResponse' - { _larrsNextToken :: !(Maybe Text) - , _larrsResponseStatus :: !Int - , _larrsAssessmentRunARNs :: ![Text] - } deriving (Eq,Read,Show,Data,Typeable,Generic) + { _larrsNextToken :: !(Maybe Text) + , _larrsResponseStatus :: !Int + , _larrsAssessmentRunARNs :: ![Text] + } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'ListAssessmentRunsResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -154,12 +157,13 @@ :: Int -- ^ 'larrsResponseStatus' -> ListAssessmentRunsResponse listAssessmentRunsResponse pResponseStatus_ = - ListAssessmentRunsResponse' - { _larrsNextToken = Nothing - , _larrsResponseStatus = pResponseStatus_ - , _larrsAssessmentRunARNs = mempty - } + ListAssessmentRunsResponse' + { _larrsNextToken = Nothing + , _larrsResponseStatus = pResponseStatus_ + , _larrsAssessmentRunARNs = mempty + } + -- | When a response is generated, if there is more data to be listed, this parameter is present in the response and contains the value to use for the __nextToken__ parameter in a subsequent pagination request. If there is no more data to be listed, this parameter is set to null. larrsNextToken :: Lens' ListAssessmentRunsResponse (Maybe Text) larrsNextToken = lens _larrsNextToken (\ s a -> s{_larrsNextToken = a}); @@ -172,4 +176,4 @@ larrsAssessmentRunARNs :: Lens' ListAssessmentRunsResponse [Text] larrsAssessmentRunARNs = lens _larrsAssessmentRunARNs (\ s a -> s{_larrsAssessmentRunARNs = a}) . _Coerce; -instance NFData ListAssessmentRunsResponse +instance NFData ListAssessmentRunsResponse where diff --git a/gen/Network/AWS/Inspector/ListAssessmentTargets.hs b/gen/Network/AWS/Inspector/ListAssessmentTargets.hs --- a/gen/Network/AWS/Inspector/ListAssessmentTargets.hs +++ b/gen/Network/AWS/Inspector/ListAssessmentTargets.hs @@ -12,9 +12,9 @@ -- | -- Module : Network.AWS.Inspector.ListAssessmentTargets --- Copyright : (c) 2013-2016 Brendan Hay +-- Copyright : (c) 2013-2017 Brendan Hay -- License : Mozilla Public License, v. 2.0. --- Maintainer : Brendan Hay +-- Maintainer : Brendan Hay -- Stability : auto-generated -- Portability : non-portable (GHC extensions) -- @@ -40,20 +40,21 @@ , lrsAssessmentTargetARNs ) where -import Network.AWS.Inspector.Types -import Network.AWS.Inspector.Types.Product -import Network.AWS.Lens -import Network.AWS.Prelude -import Network.AWS.Request -import Network.AWS.Response +import Network.AWS.Inspector.Types +import Network.AWS.Inspector.Types.Product +import Network.AWS.Lens +import Network.AWS.Prelude +import Network.AWS.Request +import Network.AWS.Response -- | /See:/ 'listAssessmentTargets' smart constructor. data ListAssessmentTargets = ListAssessmentTargets' - { _lNextToken :: !(Maybe Text) - , _lFilter :: !(Maybe AssessmentTargetFilter) - , _lMaxResults :: !(Maybe Int) - } deriving (Eq,Read,Show,Data,Typeable,Generic) + { _lNextToken :: !(Maybe Text) + , _lFilter :: !(Maybe AssessmentTargetFilter) + , _lMaxResults :: !(Maybe Int) + } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'ListAssessmentTargets' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -66,12 +67,10 @@ listAssessmentTargets :: ListAssessmentTargets listAssessmentTargets = - ListAssessmentTargets' - { _lNextToken = Nothing - , _lFilter = Nothing - , _lMaxResults = Nothing - } + ListAssessmentTargets' + {_lNextToken = Nothing, _lFilter = Nothing, _lMaxResults = Nothing} + -- | You can use this parameter when paginating results. Set the value of this parameter to null on your first call to the __ListAssessmentTargets__ action. Subsequent calls to the action fill __nextToken__ in the request with the value of __NextToken__ from the previous response to continue listing data. lNextToken :: Lens' ListAssessmentTargets (Maybe Text) lNextToken = lens _lNextToken (\ s a -> s{_lNextToken = a}); @@ -95,9 +94,9 @@ (x .?> "nextToken") <*> (pure (fromEnum s)) <*> (x .?> "assessmentTargetArns" .!@ mempty)) -instance Hashable ListAssessmentTargets +instance Hashable ListAssessmentTargets where -instance NFData ListAssessmentTargets +instance NFData ListAssessmentTargets where instance ToHeaders ListAssessmentTargets where toHeaders @@ -125,11 +124,12 @@ -- | /See:/ 'listAssessmentTargetsResponse' smart constructor. data ListAssessmentTargetsResponse = ListAssessmentTargetsResponse' - { _lrsNextToken :: !(Maybe Text) - , _lrsResponseStatus :: !Int - , _lrsAssessmentTargetARNs :: ![Text] - } deriving (Eq,Read,Show,Data,Typeable,Generic) + { _lrsNextToken :: !(Maybe Text) + , _lrsResponseStatus :: !Int + , _lrsAssessmentTargetARNs :: ![Text] + } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'ListAssessmentTargetsResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -143,12 +143,13 @@ :: Int -- ^ 'lrsResponseStatus' -> ListAssessmentTargetsResponse listAssessmentTargetsResponse pResponseStatus_ = - ListAssessmentTargetsResponse' - { _lrsNextToken = Nothing - , _lrsResponseStatus = pResponseStatus_ - , _lrsAssessmentTargetARNs = mempty - } + ListAssessmentTargetsResponse' + { _lrsNextToken = Nothing + , _lrsResponseStatus = pResponseStatus_ + , _lrsAssessmentTargetARNs = mempty + } + -- | When a response is generated, if there is more data to be listed, this parameter is present in the response and contains the value to use for the __nextToken__ parameter in a subsequent pagination request. If there is no more data to be listed, this parameter is set to null. lrsNextToken :: Lens' ListAssessmentTargetsResponse (Maybe Text) lrsNextToken = lens _lrsNextToken (\ s a -> s{_lrsNextToken = a}); @@ -161,4 +162,4 @@ lrsAssessmentTargetARNs :: Lens' ListAssessmentTargetsResponse [Text] lrsAssessmentTargetARNs = lens _lrsAssessmentTargetARNs (\ s a -> s{_lrsAssessmentTargetARNs = a}) . _Coerce; -instance NFData ListAssessmentTargetsResponse +instance NFData ListAssessmentTargetsResponse where diff --git a/gen/Network/AWS/Inspector/ListAssessmentTemplates.hs b/gen/Network/AWS/Inspector/ListAssessmentTemplates.hs --- a/gen/Network/AWS/Inspector/ListAssessmentTemplates.hs +++ b/gen/Network/AWS/Inspector/ListAssessmentTemplates.hs @@ -12,9 +12,9 @@ -- | -- Module : Network.AWS.Inspector.ListAssessmentTemplates --- Copyright : (c) 2013-2016 Brendan Hay +-- Copyright : (c) 2013-2017 Brendan Hay -- License : Mozilla Public License, v. 2.0. --- Maintainer : Brendan Hay +-- Maintainer : Brendan Hay -- Stability : auto-generated -- Portability : non-portable (GHC extensions) -- @@ -41,21 +41,22 @@ , latrsAssessmentTemplateARNs ) where -import Network.AWS.Inspector.Types -import Network.AWS.Inspector.Types.Product -import Network.AWS.Lens -import Network.AWS.Prelude -import Network.AWS.Request -import Network.AWS.Response +import Network.AWS.Inspector.Types +import Network.AWS.Inspector.Types.Product +import Network.AWS.Lens +import Network.AWS.Prelude +import Network.AWS.Request +import Network.AWS.Response -- | /See:/ 'listAssessmentTemplates' smart constructor. data ListAssessmentTemplates = ListAssessmentTemplates' - { _latNextToken :: !(Maybe Text) - , _latFilter :: !(Maybe AssessmentTemplateFilter) - , _latMaxResults :: !(Maybe Int) - , _latAssessmentTargetARNs :: !(Maybe [Text]) - } deriving (Eq,Read,Show,Data,Typeable,Generic) + { _latNextToken :: !(Maybe Text) + , _latFilter :: !(Maybe AssessmentTemplateFilter) + , _latMaxResults :: !(Maybe Int) + , _latAssessmentTargetARNs :: !(Maybe [Text]) + } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'ListAssessmentTemplates' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -70,13 +71,14 @@ listAssessmentTemplates :: ListAssessmentTemplates listAssessmentTemplates = - ListAssessmentTemplates' - { _latNextToken = Nothing - , _latFilter = Nothing - , _latMaxResults = Nothing - , _latAssessmentTargetARNs = Nothing - } + ListAssessmentTemplates' + { _latNextToken = Nothing + , _latFilter = Nothing + , _latMaxResults = Nothing + , _latAssessmentTargetARNs = Nothing + } + -- | You can use this parameter when paginating results. Set the value of this parameter to null on your first call to the __ListAssessmentTemplates__ action. Subsequent calls to the action fill __nextToken__ in the request with the value of __NextToken__ from the previous response to continue listing data. latNextToken :: Lens' ListAssessmentTemplates (Maybe Text) latNextToken = lens _latNextToken (\ s a -> s{_latNextToken = a}); @@ -104,9 +106,9 @@ (x .?> "nextToken") <*> (pure (fromEnum s)) <*> (x .?> "assessmentTemplateArns" .!@ mempty)) -instance Hashable ListAssessmentTemplates +instance Hashable ListAssessmentTemplates where -instance NFData ListAssessmentTemplates +instance NFData ListAssessmentTemplates where instance ToHeaders ListAssessmentTemplates where toHeaders @@ -136,11 +138,12 @@ -- | /See:/ 'listAssessmentTemplatesResponse' smart constructor. data ListAssessmentTemplatesResponse = ListAssessmentTemplatesResponse' - { _latrsNextToken :: !(Maybe Text) - , _latrsResponseStatus :: !Int - , _latrsAssessmentTemplateARNs :: ![Text] - } deriving (Eq,Read,Show,Data,Typeable,Generic) + { _latrsNextToken :: !(Maybe Text) + , _latrsResponseStatus :: !Int + , _latrsAssessmentTemplateARNs :: ![Text] + } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'ListAssessmentTemplatesResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -154,12 +157,13 @@ :: Int -- ^ 'latrsResponseStatus' -> ListAssessmentTemplatesResponse listAssessmentTemplatesResponse pResponseStatus_ = - ListAssessmentTemplatesResponse' - { _latrsNextToken = Nothing - , _latrsResponseStatus = pResponseStatus_ - , _latrsAssessmentTemplateARNs = mempty - } + ListAssessmentTemplatesResponse' + { _latrsNextToken = Nothing + , _latrsResponseStatus = pResponseStatus_ + , _latrsAssessmentTemplateARNs = mempty + } + -- | When a response is generated, if there is more data to be listed, this parameter is present in the response and contains the value to use for the __nextToken__ parameter in a subsequent pagination request. If there is no more data to be listed, this parameter is set to null. latrsNextToken :: Lens' ListAssessmentTemplatesResponse (Maybe Text) latrsNextToken = lens _latrsNextToken (\ s a -> s{_latrsNextToken = a}); @@ -172,4 +176,4 @@ latrsAssessmentTemplateARNs :: Lens' ListAssessmentTemplatesResponse [Text] latrsAssessmentTemplateARNs = lens _latrsAssessmentTemplateARNs (\ s a -> s{_latrsAssessmentTemplateARNs = a}) . _Coerce; -instance NFData ListAssessmentTemplatesResponse +instance NFData ListAssessmentTemplatesResponse where diff --git a/gen/Network/AWS/Inspector/ListEventSubscriptions.hs b/gen/Network/AWS/Inspector/ListEventSubscriptions.hs --- a/gen/Network/AWS/Inspector/ListEventSubscriptions.hs +++ b/gen/Network/AWS/Inspector/ListEventSubscriptions.hs @@ -12,9 +12,9 @@ -- | -- Module : Network.AWS.Inspector.ListEventSubscriptions --- Copyright : (c) 2013-2016 Brendan Hay +-- Copyright : (c) 2013-2017 Brendan Hay -- License : Mozilla Public License, v. 2.0. --- Maintainer : Brendan Hay +-- Maintainer : Brendan Hay -- Stability : auto-generated -- Portability : non-portable (GHC extensions) -- @@ -40,20 +40,21 @@ , lesrsSubscriptions ) where -import Network.AWS.Inspector.Types -import Network.AWS.Inspector.Types.Product -import Network.AWS.Lens -import Network.AWS.Prelude -import Network.AWS.Request -import Network.AWS.Response +import Network.AWS.Inspector.Types +import Network.AWS.Inspector.Types.Product +import Network.AWS.Lens +import Network.AWS.Prelude +import Network.AWS.Request +import Network.AWS.Response -- | /See:/ 'listEventSubscriptions' smart constructor. data ListEventSubscriptions = ListEventSubscriptions' - { _lesNextToken :: !(Maybe Text) - , _lesResourceARN :: !(Maybe Text) - , _lesMaxResults :: !(Maybe Int) - } deriving (Eq,Read,Show,Data,Typeable,Generic) + { _lesNextToken :: !(Maybe Text) + , _lesResourceARN :: !(Maybe Text) + , _lesMaxResults :: !(Maybe Int) + } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'ListEventSubscriptions' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -66,12 +67,10 @@ listEventSubscriptions :: ListEventSubscriptions listEventSubscriptions = - ListEventSubscriptions' - { _lesNextToken = Nothing - , _lesResourceARN = Nothing - , _lesMaxResults = Nothing - } + ListEventSubscriptions' + {_lesNextToken = Nothing, _lesResourceARN = Nothing, _lesMaxResults = Nothing} + -- | You can use this parameter when paginating results. Set the value of this parameter to null on your first call to the __ListEventSubscriptions__ action. Subsequent calls to the action fill __nextToken__ in the request with the value of __NextToken__ from the previous response to continue listing data. lesNextToken :: Lens' ListEventSubscriptions (Maybe Text) lesNextToken = lens _lesNextToken (\ s a -> s{_lesNextToken = a}); @@ -95,9 +94,9 @@ (x .?> "nextToken") <*> (pure (fromEnum s)) <*> (x .?> "subscriptions" .!@ mempty)) -instance Hashable ListEventSubscriptions +instance Hashable ListEventSubscriptions where -instance NFData ListEventSubscriptions +instance NFData ListEventSubscriptions where instance ToHeaders ListEventSubscriptions where toHeaders @@ -125,11 +124,12 @@ -- | /See:/ 'listEventSubscriptionsResponse' smart constructor. data ListEventSubscriptionsResponse = ListEventSubscriptionsResponse' - { _lesrsNextToken :: !(Maybe Text) - , _lesrsResponseStatus :: !Int - , _lesrsSubscriptions :: ![Subscription] - } deriving (Eq,Read,Show,Data,Typeable,Generic) + { _lesrsNextToken :: !(Maybe Text) + , _lesrsResponseStatus :: !Int + , _lesrsSubscriptions :: ![Subscription] + } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'ListEventSubscriptionsResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -143,12 +143,13 @@ :: Int -- ^ 'lesrsResponseStatus' -> ListEventSubscriptionsResponse listEventSubscriptionsResponse pResponseStatus_ = - ListEventSubscriptionsResponse' - { _lesrsNextToken = Nothing - , _lesrsResponseStatus = pResponseStatus_ - , _lesrsSubscriptions = mempty - } + ListEventSubscriptionsResponse' + { _lesrsNextToken = Nothing + , _lesrsResponseStatus = pResponseStatus_ + , _lesrsSubscriptions = mempty + } + -- | When a response is generated, if there is more data to be listed, this parameter is present in the response and contains the value to use for the __nextToken__ parameter in a subsequent pagination request. If there is no more data to be listed, this parameter is set to null. lesrsNextToken :: Lens' ListEventSubscriptionsResponse (Maybe Text) lesrsNextToken = lens _lesrsNextToken (\ s a -> s{_lesrsNextToken = a}); @@ -161,4 +162,4 @@ lesrsSubscriptions :: Lens' ListEventSubscriptionsResponse [Subscription] lesrsSubscriptions = lens _lesrsSubscriptions (\ s a -> s{_lesrsSubscriptions = a}) . _Coerce; -instance NFData ListEventSubscriptionsResponse +instance NFData ListEventSubscriptionsResponse where diff --git a/gen/Network/AWS/Inspector/ListFindings.hs b/gen/Network/AWS/Inspector/ListFindings.hs --- a/gen/Network/AWS/Inspector/ListFindings.hs +++ b/gen/Network/AWS/Inspector/ListFindings.hs @@ -12,9 +12,9 @@ -- | -- Module : Network.AWS.Inspector.ListFindings --- Copyright : (c) 2013-2016 Brendan Hay +-- Copyright : (c) 2013-2017 Brendan Hay -- License : Mozilla Public License, v. 2.0. --- Maintainer : Brendan Hay +-- Maintainer : Brendan Hay -- Stability : auto-generated -- Portability : non-portable (GHC extensions) -- @@ -41,21 +41,22 @@ , lfrsFindingARNs ) where -import Network.AWS.Inspector.Types -import Network.AWS.Inspector.Types.Product -import Network.AWS.Lens -import Network.AWS.Prelude -import Network.AWS.Request -import Network.AWS.Response +import Network.AWS.Inspector.Types +import Network.AWS.Inspector.Types.Product +import Network.AWS.Lens +import Network.AWS.Prelude +import Network.AWS.Request +import Network.AWS.Response -- | /See:/ 'listFindings' smart constructor. data ListFindings = ListFindings' - { _lfAssessmentRunARNs :: !(Maybe [Text]) - , _lfNextToken :: !(Maybe Text) - , _lfFilter :: !(Maybe FindingFilter) - , _lfMaxResults :: !(Maybe Int) - } deriving (Eq,Read,Show,Data,Typeable,Generic) + { _lfAssessmentRunARNs :: !(Maybe [Text]) + , _lfNextToken :: !(Maybe Text) + , _lfFilter :: !(Maybe FindingFilter) + , _lfMaxResults :: !(Maybe Int) + } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'ListFindings' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -70,13 +71,14 @@ listFindings :: ListFindings listFindings = - ListFindings' - { _lfAssessmentRunARNs = Nothing - , _lfNextToken = Nothing - , _lfFilter = Nothing - , _lfMaxResults = Nothing - } + ListFindings' + { _lfAssessmentRunARNs = Nothing + , _lfNextToken = Nothing + , _lfFilter = Nothing + , _lfMaxResults = Nothing + } + -- | The ARNs of the assessment runs that generate the findings that you want to list. lfAssessmentRunARNs :: Lens' ListFindings [Text] lfAssessmentRunARNs = lens _lfAssessmentRunARNs (\ s a -> s{_lfAssessmentRunARNs = a}) . _Default . _Coerce; @@ -103,9 +105,9 @@ (x .?> "nextToken") <*> (pure (fromEnum s)) <*> (x .?> "findingArns" .!@ mempty)) -instance Hashable ListFindings +instance Hashable ListFindings where -instance NFData ListFindings +instance NFData ListFindings where instance ToHeaders ListFindings where toHeaders @@ -133,11 +135,12 @@ -- | /See:/ 'listFindingsResponse' smart constructor. data ListFindingsResponse = ListFindingsResponse' - { _lfrsNextToken :: !(Maybe Text) - , _lfrsResponseStatus :: !Int - , _lfrsFindingARNs :: ![Text] - } deriving (Eq,Read,Show,Data,Typeable,Generic) + { _lfrsNextToken :: !(Maybe Text) + , _lfrsResponseStatus :: !Int + , _lfrsFindingARNs :: ![Text] + } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'ListFindingsResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -151,12 +154,13 @@ :: Int -- ^ 'lfrsResponseStatus' -> ListFindingsResponse listFindingsResponse pResponseStatus_ = - ListFindingsResponse' - { _lfrsNextToken = Nothing - , _lfrsResponseStatus = pResponseStatus_ - , _lfrsFindingARNs = mempty - } + ListFindingsResponse' + { _lfrsNextToken = Nothing + , _lfrsResponseStatus = pResponseStatus_ + , _lfrsFindingARNs = mempty + } + -- | When a response is generated, if there is more data to be listed, this parameter is present in the response and contains the value to use for the __nextToken__ parameter in a subsequent pagination request. If there is no more data to be listed, this parameter is set to null. lfrsNextToken :: Lens' ListFindingsResponse (Maybe Text) lfrsNextToken = lens _lfrsNextToken (\ s a -> s{_lfrsNextToken = a}); @@ -169,4 +173,4 @@ lfrsFindingARNs :: Lens' ListFindingsResponse [Text] lfrsFindingARNs = lens _lfrsFindingARNs (\ s a -> s{_lfrsFindingARNs = a}) . _Coerce; -instance NFData ListFindingsResponse +instance NFData ListFindingsResponse where diff --git a/gen/Network/AWS/Inspector/ListRulesPackages.hs b/gen/Network/AWS/Inspector/ListRulesPackages.hs --- a/gen/Network/AWS/Inspector/ListRulesPackages.hs +++ b/gen/Network/AWS/Inspector/ListRulesPackages.hs @@ -12,9 +12,9 @@ -- | -- Module : Network.AWS.Inspector.ListRulesPackages --- Copyright : (c) 2013-2016 Brendan Hay +-- Copyright : (c) 2013-2017 Brendan Hay -- License : Mozilla Public License, v. 2.0. --- Maintainer : Brendan Hay +-- Maintainer : Brendan Hay -- Stability : auto-generated -- Portability : non-portable (GHC extensions) -- @@ -39,19 +39,20 @@ , lrprsRulesPackageARNs ) where -import Network.AWS.Inspector.Types -import Network.AWS.Inspector.Types.Product -import Network.AWS.Lens -import Network.AWS.Prelude -import Network.AWS.Request -import Network.AWS.Response +import Network.AWS.Inspector.Types +import Network.AWS.Inspector.Types.Product +import Network.AWS.Lens +import Network.AWS.Prelude +import Network.AWS.Request +import Network.AWS.Response -- | /See:/ 'listRulesPackages' smart constructor. data ListRulesPackages = ListRulesPackages' - { _lrpNextToken :: !(Maybe Text) - , _lrpMaxResults :: !(Maybe Int) - } deriving (Eq,Read,Show,Data,Typeable,Generic) + { _lrpNextToken :: !(Maybe Text) + , _lrpMaxResults :: !(Maybe Int) + } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'ListRulesPackages' 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 @@ listRulesPackages :: ListRulesPackages listRulesPackages = - ListRulesPackages' - { _lrpNextToken = Nothing - , _lrpMaxResults = Nothing - } + ListRulesPackages' {_lrpNextToken = Nothing, _lrpMaxResults = Nothing} + -- | You can use this parameter when paginating results. Set the value of this parameter to null on your first call to the __ListRulesPackages__ action. Subsequent calls to the action fill __nextToken__ in the request with the value of __NextToken__ from the previous response to continue listing data. lrpNextToken :: Lens' ListRulesPackages (Maybe Text) lrpNextToken = lens _lrpNextToken (\ s a -> s{_lrpNextToken = a}); @@ -85,9 +84,9 @@ (x .?> "nextToken") <*> (pure (fromEnum s)) <*> (x .?> "rulesPackageArns" .!@ mempty)) -instance Hashable ListRulesPackages +instance Hashable ListRulesPackages where -instance NFData ListRulesPackages +instance NFData ListRulesPackages where instance ToHeaders ListRulesPackages where toHeaders @@ -113,11 +112,12 @@ -- | /See:/ 'listRulesPackagesResponse' smart constructor. data ListRulesPackagesResponse = ListRulesPackagesResponse' - { _lrprsNextToken :: !(Maybe Text) - , _lrprsResponseStatus :: !Int - , _lrprsRulesPackageARNs :: ![Text] - } deriving (Eq,Read,Show,Data,Typeable,Generic) + { _lrprsNextToken :: !(Maybe Text) + , _lrprsResponseStatus :: !Int + , _lrprsRulesPackageARNs :: ![Text] + } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'ListRulesPackagesResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -131,12 +131,13 @@ :: Int -- ^ 'lrprsResponseStatus' -> ListRulesPackagesResponse listRulesPackagesResponse pResponseStatus_ = - ListRulesPackagesResponse' - { _lrprsNextToken = Nothing - , _lrprsResponseStatus = pResponseStatus_ - , _lrprsRulesPackageARNs = mempty - } + ListRulesPackagesResponse' + { _lrprsNextToken = Nothing + , _lrprsResponseStatus = pResponseStatus_ + , _lrprsRulesPackageARNs = mempty + } + -- | When a response is generated, if there is more data to be listed, this parameter is present in the response and contains the value to use for the __nextToken__ parameter in a subsequent pagination request. If there is no more data to be listed, this parameter is set to null. lrprsNextToken :: Lens' ListRulesPackagesResponse (Maybe Text) lrprsNextToken = lens _lrprsNextToken (\ s a -> s{_lrprsNextToken = a}); @@ -149,4 +150,4 @@ lrprsRulesPackageARNs :: Lens' ListRulesPackagesResponse [Text] lrprsRulesPackageARNs = lens _lrprsRulesPackageARNs (\ s a -> s{_lrprsRulesPackageARNs = a}) . _Coerce; -instance NFData ListRulesPackagesResponse +instance NFData ListRulesPackagesResponse where diff --git a/gen/Network/AWS/Inspector/ListTagsForResource.hs b/gen/Network/AWS/Inspector/ListTagsForResource.hs --- a/gen/Network/AWS/Inspector/ListTagsForResource.hs +++ b/gen/Network/AWS/Inspector/ListTagsForResource.hs @@ -12,9 +12,9 @@ -- | -- Module : Network.AWS.Inspector.ListTagsForResource --- Copyright : (c) 2013-2016 Brendan Hay +-- Copyright : (c) 2013-2017 Brendan Hay -- License : Mozilla Public License, v. 2.0. --- Maintainer : Brendan Hay +-- Maintainer : Brendan Hay -- Stability : auto-generated -- Portability : non-portable (GHC extensions) -- @@ -37,18 +37,19 @@ , ltfrrsTags ) where -import Network.AWS.Inspector.Types -import Network.AWS.Inspector.Types.Product -import Network.AWS.Lens -import Network.AWS.Prelude -import Network.AWS.Request -import Network.AWS.Response +import Network.AWS.Inspector.Types +import Network.AWS.Inspector.Types.Product +import Network.AWS.Lens +import Network.AWS.Prelude +import Network.AWS.Request +import Network.AWS.Response -- | /See:/ 'listTagsForResource' smart constructor. newtype ListTagsForResource = ListTagsForResource' - { _ltfrResourceARN :: Text - } deriving (Eq,Read,Show,Data,Typeable,Generic) + { _ltfrResourceARN :: Text + } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'ListTagsForResource' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -58,10 +59,9 @@ :: Text -- ^ 'ltfrResourceARN' -> ListTagsForResource listTagsForResource pResourceARN_ = - ListTagsForResource' - { _ltfrResourceARN = pResourceARN_ - } + ListTagsForResource' {_ltfrResourceARN = pResourceARN_} + -- | The ARN that specifies the assessment template whose tags you want to list. ltfrResourceARN :: Lens' ListTagsForResource Text ltfrResourceARN = lens _ltfrResourceARN (\ s a -> s{_ltfrResourceARN = a}); @@ -76,9 +76,9 @@ ListTagsForResourceResponse' <$> (pure (fromEnum s)) <*> (x .?> "tags" .!@ mempty)) -instance Hashable ListTagsForResource +instance Hashable ListTagsForResource where -instance NFData ListTagsForResource +instance NFData ListTagsForResource where instance ToHeaders ListTagsForResource where toHeaders @@ -104,10 +104,11 @@ -- | /See:/ 'listTagsForResourceResponse' smart constructor. data ListTagsForResourceResponse = ListTagsForResourceResponse' - { _ltfrrsResponseStatus :: !Int - , _ltfrrsTags :: ![Tag] - } deriving (Eq,Read,Show,Data,Typeable,Generic) + { _ltfrrsResponseStatus :: !Int + , _ltfrrsTags :: ![Tag] + } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'ListTagsForResourceResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -119,11 +120,10 @@ :: Int -- ^ 'ltfrrsResponseStatus' -> ListTagsForResourceResponse listTagsForResourceResponse pResponseStatus_ = - ListTagsForResourceResponse' - { _ltfrrsResponseStatus = pResponseStatus_ - , _ltfrrsTags = mempty - } + ListTagsForResourceResponse' + {_ltfrrsResponseStatus = pResponseStatus_, _ltfrrsTags = mempty} + -- | -- | The response status code. ltfrrsResponseStatus :: Lens' ListTagsForResourceResponse Int ltfrrsResponseStatus = lens _ltfrrsResponseStatus (\ s a -> s{_ltfrrsResponseStatus = a}); @@ -132,4 +132,4 @@ ltfrrsTags :: Lens' ListTagsForResourceResponse [Tag] ltfrrsTags = lens _ltfrrsTags (\ s a -> s{_ltfrrsTags = a}) . _Coerce; -instance NFData ListTagsForResourceResponse +instance NFData ListTagsForResourceResponse where diff --git a/gen/Network/AWS/Inspector/PreviewAgents.hs b/gen/Network/AWS/Inspector/PreviewAgents.hs --- a/gen/Network/AWS/Inspector/PreviewAgents.hs +++ b/gen/Network/AWS/Inspector/PreviewAgents.hs @@ -12,9 +12,9 @@ -- | -- Module : Network.AWS.Inspector.PreviewAgents --- Copyright : (c) 2013-2016 Brendan Hay +-- Copyright : (c) 2013-2017 Brendan Hay -- License : Mozilla Public License, v. 2.0. --- Maintainer : Brendan Hay +-- Maintainer : Brendan Hay -- Stability : auto-generated -- Portability : non-portable (GHC extensions) -- @@ -40,20 +40,21 @@ , parsAgentPreviews ) where -import Network.AWS.Inspector.Types -import Network.AWS.Inspector.Types.Product -import Network.AWS.Lens -import Network.AWS.Prelude -import Network.AWS.Request -import Network.AWS.Response +import Network.AWS.Inspector.Types +import Network.AWS.Inspector.Types.Product +import Network.AWS.Lens +import Network.AWS.Prelude +import Network.AWS.Request +import Network.AWS.Response -- | /See:/ 'previewAgents' smart constructor. data PreviewAgents = PreviewAgents' - { _paNextToken :: !(Maybe Text) - , _paMaxResults :: !(Maybe Int) - , _paPreviewAgentsARN :: !Text - } deriving (Eq,Read,Show,Data,Typeable,Generic) + { _paNextToken :: !(Maybe Text) + , _paMaxResults :: !(Maybe Int) + , _paPreviewAgentsARN :: !Text + } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'PreviewAgents' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -67,12 +68,13 @@ :: Text -- ^ 'paPreviewAgentsARN' -> PreviewAgents previewAgents pPreviewAgentsARN_ = - PreviewAgents' - { _paNextToken = Nothing - , _paMaxResults = Nothing - , _paPreviewAgentsARN = pPreviewAgentsARN_ - } + PreviewAgents' + { _paNextToken = Nothing + , _paMaxResults = Nothing + , _paPreviewAgentsARN = pPreviewAgentsARN_ + } + -- | You can use this parameter when paginating results. Set the value of this parameter to null on your first call to the __PreviewAgents__ action. Subsequent calls to the action fill __nextToken__ in the request with the value of __NextToken__ from the previous response to continue listing data. paNextToken :: Lens' PreviewAgents (Maybe Text) paNextToken = lens _paNextToken (\ s a -> s{_paNextToken = a}); @@ -95,9 +97,9 @@ (x .?> "nextToken") <*> (pure (fromEnum s)) <*> (x .?> "agentPreviews" .!@ mempty)) -instance Hashable PreviewAgents +instance Hashable PreviewAgents where -instance NFData PreviewAgents +instance NFData PreviewAgents where instance ToHeaders PreviewAgents where toHeaders @@ -124,11 +126,12 @@ -- | /See:/ 'previewAgentsResponse' smart constructor. data PreviewAgentsResponse = PreviewAgentsResponse' - { _parsNextToken :: !(Maybe Text) - , _parsResponseStatus :: !Int - , _parsAgentPreviews :: ![AgentPreview] - } deriving (Eq,Read,Show,Data,Typeable,Generic) + { _parsNextToken :: !(Maybe Text) + , _parsResponseStatus :: !Int + , _parsAgentPreviews :: ![AgentPreview] + } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'PreviewAgentsResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -142,12 +145,13 @@ :: Int -- ^ 'parsResponseStatus' -> PreviewAgentsResponse previewAgentsResponse pResponseStatus_ = - PreviewAgentsResponse' - { _parsNextToken = Nothing - , _parsResponseStatus = pResponseStatus_ - , _parsAgentPreviews = mempty - } + PreviewAgentsResponse' + { _parsNextToken = Nothing + , _parsResponseStatus = pResponseStatus_ + , _parsAgentPreviews = mempty + } + -- | When a response is generated, if there is more data to be listed, this parameter is present in the response and contains the value to use for the __nextToken__ parameter in a subsequent pagination request. If there is no more data to be listed, this parameter is set to null. parsNextToken :: Lens' PreviewAgentsResponse (Maybe Text) parsNextToken = lens _parsNextToken (\ s a -> s{_parsNextToken = a}); @@ -160,4 +164,4 @@ parsAgentPreviews :: Lens' PreviewAgentsResponse [AgentPreview] parsAgentPreviews = lens _parsAgentPreviews (\ s a -> s{_parsAgentPreviews = a}) . _Coerce; -instance NFData PreviewAgentsResponse +instance NFData PreviewAgentsResponse where diff --git a/gen/Network/AWS/Inspector/RegisterCrossAccountAccessRole.hs b/gen/Network/AWS/Inspector/RegisterCrossAccountAccessRole.hs --- a/gen/Network/AWS/Inspector/RegisterCrossAccountAccessRole.hs +++ b/gen/Network/AWS/Inspector/RegisterCrossAccountAccessRole.hs @@ -12,9 +12,9 @@ -- | -- Module : Network.AWS.Inspector.RegisterCrossAccountAccessRole --- Copyright : (c) 2013-2016 Brendan Hay +-- Copyright : (c) 2013-2017 Brendan Hay -- License : Mozilla Public License, v. 2.0. --- Maintainer : Brendan Hay +-- Maintainer : Brendan Hay -- Stability : auto-generated -- Portability : non-portable (GHC extensions) -- @@ -34,18 +34,19 @@ , RegisterCrossAccountAccessRoleResponse ) where -import Network.AWS.Inspector.Types -import Network.AWS.Inspector.Types.Product -import Network.AWS.Lens -import Network.AWS.Prelude -import Network.AWS.Request -import Network.AWS.Response +import Network.AWS.Inspector.Types +import Network.AWS.Inspector.Types.Product +import Network.AWS.Lens +import Network.AWS.Prelude +import Network.AWS.Request +import Network.AWS.Response -- | /See:/ 'registerCrossAccountAccessRole' smart constructor. newtype RegisterCrossAccountAccessRole = RegisterCrossAccountAccessRole' - { _rcaarRoleARN :: Text - } deriving (Eq,Read,Show,Data,Typeable,Generic) + { _rcaarRoleARN :: Text + } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'RegisterCrossAccountAccessRole' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -55,10 +56,9 @@ :: Text -- ^ 'rcaarRoleARN' -> RegisterCrossAccountAccessRole registerCrossAccountAccessRole pRoleARN_ = - RegisterCrossAccountAccessRole' - { _rcaarRoleARN = pRoleARN_ - } + RegisterCrossAccountAccessRole' {_rcaarRoleARN = pRoleARN_} + -- | The ARN of the IAM role that Amazon Inspector uses to list your EC2 instances during the assessment run or when you call the 'PreviewAgents' action. rcaarRoleARN :: Lens' RegisterCrossAccountAccessRole Text rcaarRoleARN = lens _rcaarRoleARN (\ s a -> s{_rcaarRoleARN = a}); @@ -72,8 +72,9 @@ = receiveNull RegisterCrossAccountAccessRoleResponse' instance Hashable RegisterCrossAccountAccessRole + where -instance NFData RegisterCrossAccountAccessRole +instance NFData RegisterCrossAccountAccessRole where instance ToHeaders RegisterCrossAccountAccessRole where @@ -99,15 +100,17 @@ -- | /See:/ 'registerCrossAccountAccessRoleResponse' smart constructor. data RegisterCrossAccountAccessRoleResponse = - RegisterCrossAccountAccessRoleResponse' - deriving (Eq,Read,Show,Data,Typeable,Generic) + RegisterCrossAccountAccessRoleResponse' + deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'RegisterCrossAccountAccessRoleResponse' with the minimum fields required to make a request. -- registerCrossAccountAccessRoleResponse :: RegisterCrossAccountAccessRoleResponse -registerCrossAccountAccessRoleResponse = - RegisterCrossAccountAccessRoleResponse' +registerCrossAccountAccessRoleResponse = RegisterCrossAccountAccessRoleResponse' + instance NFData - RegisterCrossAccountAccessRoleResponse + RegisterCrossAccountAccessRoleResponse + where diff --git a/gen/Network/AWS/Inspector/RemoveAttributesFromFindings.hs b/gen/Network/AWS/Inspector/RemoveAttributesFromFindings.hs --- a/gen/Network/AWS/Inspector/RemoveAttributesFromFindings.hs +++ b/gen/Network/AWS/Inspector/RemoveAttributesFromFindings.hs @@ -12,9 +12,9 @@ -- | -- Module : Network.AWS.Inspector.RemoveAttributesFromFindings --- Copyright : (c) 2013-2016 Brendan Hay +-- Copyright : (c) 2013-2017 Brendan Hay -- License : Mozilla Public License, v. 2.0. --- Maintainer : Brendan Hay +-- Maintainer : Brendan Hay -- Stability : auto-generated -- Portability : non-portable (GHC extensions) -- @@ -38,19 +38,20 @@ , raffrsFailedItems ) where -import Network.AWS.Inspector.Types -import Network.AWS.Inspector.Types.Product -import Network.AWS.Lens -import Network.AWS.Prelude -import Network.AWS.Request -import Network.AWS.Response +import Network.AWS.Inspector.Types +import Network.AWS.Inspector.Types.Product +import Network.AWS.Lens +import Network.AWS.Prelude +import Network.AWS.Request +import Network.AWS.Response -- | /See:/ 'removeAttributesFromFindings' smart constructor. data RemoveAttributesFromFindings = RemoveAttributesFromFindings' - { _raffFindingARNs :: !(List1 Text) - , _raffAttributeKeys :: ![Text] - } deriving (Eq,Read,Show,Data,Typeable,Generic) + { _raffFindingARNs :: !(List1 Text) + , _raffAttributeKeys :: ![Text] + } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'RemoveAttributesFromFindings' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -62,11 +63,10 @@ :: NonEmpty Text -- ^ 'raffFindingARNs' -> RemoveAttributesFromFindings removeAttributesFromFindings pFindingARNs_ = - RemoveAttributesFromFindings' - { _raffFindingARNs = _List1 # pFindingARNs_ - , _raffAttributeKeys = mempty - } + RemoveAttributesFromFindings' + {_raffFindingARNs = _List1 # pFindingARNs_, _raffAttributeKeys = mempty} + -- | The ARNs that specify the findings that you want to remove attributes from. raffFindingARNs :: Lens' RemoveAttributesFromFindings (NonEmpty Text) raffFindingARNs = lens _raffFindingARNs (\ s a -> s{_raffFindingARNs = a}) . _List1; @@ -87,9 +87,9 @@ (pure (fromEnum s)) <*> (x .?> "failedItems" .!@ mempty)) -instance Hashable RemoveAttributesFromFindings +instance Hashable RemoveAttributesFromFindings where -instance NFData RemoveAttributesFromFindings +instance NFData RemoveAttributesFromFindings where instance ToHeaders RemoveAttributesFromFindings where toHeaders @@ -116,10 +116,11 @@ -- | /See:/ 'removeAttributesFromFindingsResponse' smart constructor. data RemoveAttributesFromFindingsResponse = RemoveAttributesFromFindingsResponse' - { _raffrsResponseStatus :: !Int - , _raffrsFailedItems :: !(Map Text FailedItemDetails) - } deriving (Eq,Read,Show,Data,Typeable,Generic) + { _raffrsResponseStatus :: !Int + , _raffrsFailedItems :: !(Map Text FailedItemDetails) + } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'RemoveAttributesFromFindingsResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -131,11 +132,10 @@ :: Int -- ^ 'raffrsResponseStatus' -> RemoveAttributesFromFindingsResponse removeAttributesFromFindingsResponse pResponseStatus_ = - RemoveAttributesFromFindingsResponse' - { _raffrsResponseStatus = pResponseStatus_ - , _raffrsFailedItems = mempty - } + RemoveAttributesFromFindingsResponse' + {_raffrsResponseStatus = pResponseStatus_, _raffrsFailedItems = mempty} + -- | -- | The response status code. raffrsResponseStatus :: Lens' RemoveAttributesFromFindingsResponse Int raffrsResponseStatus = lens _raffrsResponseStatus (\ s a -> s{_raffrsResponseStatus = a}); @@ -145,3 +145,4 @@ raffrsFailedItems = lens _raffrsFailedItems (\ s a -> s{_raffrsFailedItems = a}) . _Map; instance NFData RemoveAttributesFromFindingsResponse + where diff --git a/gen/Network/AWS/Inspector/SetTagsForResource.hs b/gen/Network/AWS/Inspector/SetTagsForResource.hs --- a/gen/Network/AWS/Inspector/SetTagsForResource.hs +++ b/gen/Network/AWS/Inspector/SetTagsForResource.hs @@ -12,9 +12,9 @@ -- | -- Module : Network.AWS.Inspector.SetTagsForResource --- Copyright : (c) 2013-2016 Brendan Hay +-- Copyright : (c) 2013-2017 Brendan Hay -- License : Mozilla Public License, v. 2.0. --- Maintainer : Brendan Hay +-- Maintainer : Brendan Hay -- Stability : auto-generated -- Portability : non-portable (GHC extensions) -- @@ -35,19 +35,20 @@ , SetTagsForResourceResponse ) where -import Network.AWS.Inspector.Types -import Network.AWS.Inspector.Types.Product -import Network.AWS.Lens -import Network.AWS.Prelude -import Network.AWS.Request -import Network.AWS.Response +import Network.AWS.Inspector.Types +import Network.AWS.Inspector.Types.Product +import Network.AWS.Lens +import Network.AWS.Prelude +import Network.AWS.Request +import Network.AWS.Response -- | /See:/ 'setTagsForResource' smart constructor. data SetTagsForResource = SetTagsForResource' - { _stfrTags :: !(Maybe [Tag]) - , _stfrResourceARN :: !Text - } deriving (Eq,Read,Show,Data,Typeable,Generic) + { _stfrTags :: !(Maybe [Tag]) + , _stfrResourceARN :: !Text + } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'SetTagsForResource' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -59,11 +60,9 @@ :: Text -- ^ 'stfrResourceARN' -> SetTagsForResource setTagsForResource pResourceARN_ = - SetTagsForResource' - { _stfrTags = Nothing - , _stfrResourceARN = pResourceARN_ - } + SetTagsForResource' {_stfrTags = Nothing, _stfrResourceARN = pResourceARN_} + -- | A collection of key and value pairs that you want to set to the assessment template. stfrTags :: Lens' SetTagsForResource [Tag] stfrTags = lens _stfrTags (\ s a -> s{_stfrTags = a}) . _Default . _Coerce; @@ -78,9 +77,9 @@ request = postJSON inspector response = receiveNull SetTagsForResourceResponse' -instance Hashable SetTagsForResource +instance Hashable SetTagsForResource where -instance NFData SetTagsForResource +instance NFData SetTagsForResource where instance ToHeaders SetTagsForResource where toHeaders @@ -107,13 +106,15 @@ -- | /See:/ 'setTagsForResourceResponse' smart constructor. data SetTagsForResourceResponse = - SetTagsForResourceResponse' - deriving (Eq,Read,Show,Data,Typeable,Generic) + SetTagsForResourceResponse' + deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'SetTagsForResourceResponse' with the minimum fields required to make a request. -- setTagsForResourceResponse :: SetTagsForResourceResponse setTagsForResourceResponse = SetTagsForResourceResponse' -instance NFData SetTagsForResourceResponse + +instance NFData SetTagsForResourceResponse where diff --git a/gen/Network/AWS/Inspector/StartAssessmentRun.hs b/gen/Network/AWS/Inspector/StartAssessmentRun.hs --- a/gen/Network/AWS/Inspector/StartAssessmentRun.hs +++ b/gen/Network/AWS/Inspector/StartAssessmentRun.hs @@ -12,9 +12,9 @@ -- | -- Module : Network.AWS.Inspector.StartAssessmentRun --- Copyright : (c) 2013-2016 Brendan Hay +-- Copyright : (c) 2013-2017 Brendan Hay -- License : Mozilla Public License, v. 2.0. --- Maintainer : Brendan Hay +-- Maintainer : Brendan Hay -- Stability : auto-generated -- Portability : non-portable (GHC extensions) -- @@ -38,36 +38,38 @@ , sarrsAssessmentRunARN ) where -import Network.AWS.Inspector.Types -import Network.AWS.Inspector.Types.Product -import Network.AWS.Lens -import Network.AWS.Prelude -import Network.AWS.Request -import Network.AWS.Response +import Network.AWS.Inspector.Types +import Network.AWS.Inspector.Types.Product +import Network.AWS.Lens +import Network.AWS.Prelude +import Network.AWS.Request +import Network.AWS.Response -- | /See:/ 'startAssessmentRun' smart constructor. data StartAssessmentRun = StartAssessmentRun' - { _sarAssessmentRunName :: !(Maybe Text) - , _sarAssessmentTemplateARN :: !Text - } deriving (Eq,Read,Show,Data,Typeable,Generic) + { _sarAssessmentRunName :: !(Maybe Text) + , _sarAssessmentTemplateARN :: !Text + } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'StartAssessmentRun' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: -- --- * 'sarAssessmentRunName' - You can specify the name for the assessment run, or you can use the auto-generated name that is based on the assessment template name. The name must be unique for the assessment template. +-- * 'sarAssessmentRunName' - You can specify the name for the assessment run. The name must be unique for the assessment template whose ARN is used to start the assessment run. -- -- * 'sarAssessmentTemplateARN' - The ARN of the assessment template of the assessment run that you want to start. startAssessmentRun :: Text -- ^ 'sarAssessmentTemplateARN' -> StartAssessmentRun startAssessmentRun pAssessmentTemplateARN_ = - StartAssessmentRun' - { _sarAssessmentRunName = Nothing - , _sarAssessmentTemplateARN = pAssessmentTemplateARN_ - } + StartAssessmentRun' + { _sarAssessmentRunName = Nothing + , _sarAssessmentTemplateARN = pAssessmentTemplateARN_ + } --- | You can specify the name for the assessment run, or you can use the auto-generated name that is based on the assessment template name. The name must be unique for the assessment template. + +-- | You can specify the name for the assessment run. The name must be unique for the assessment template whose ARN is used to start the assessment run. sarAssessmentRunName :: Lens' StartAssessmentRun (Maybe Text) sarAssessmentRunName = lens _sarAssessmentRunName (\ s a -> s{_sarAssessmentRunName = a}); @@ -85,9 +87,9 @@ StartAssessmentRunResponse' <$> (pure (fromEnum s)) <*> (x .:> "assessmentRunArn")) -instance Hashable StartAssessmentRun +instance Hashable StartAssessmentRun where -instance NFData StartAssessmentRun +instance NFData StartAssessmentRun where instance ToHeaders StartAssessmentRun where toHeaders @@ -116,10 +118,11 @@ -- | /See:/ 'startAssessmentRunResponse' smart constructor. data StartAssessmentRunResponse = StartAssessmentRunResponse' - { _sarrsResponseStatus :: !Int - , _sarrsAssessmentRunARN :: !Text - } deriving (Eq,Read,Show,Data,Typeable,Generic) + { _sarrsResponseStatus :: !Int + , _sarrsAssessmentRunARN :: !Text + } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'StartAssessmentRunResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -132,11 +135,12 @@ -> Text -- ^ 'sarrsAssessmentRunARN' -> StartAssessmentRunResponse startAssessmentRunResponse pResponseStatus_ pAssessmentRunARN_ = - StartAssessmentRunResponse' - { _sarrsResponseStatus = pResponseStatus_ - , _sarrsAssessmentRunARN = pAssessmentRunARN_ - } + StartAssessmentRunResponse' + { _sarrsResponseStatus = pResponseStatus_ + , _sarrsAssessmentRunARN = pAssessmentRunARN_ + } + -- | -- | The response status code. sarrsResponseStatus :: Lens' StartAssessmentRunResponse Int sarrsResponseStatus = lens _sarrsResponseStatus (\ s a -> s{_sarrsResponseStatus = a}); @@ -145,4 +149,4 @@ sarrsAssessmentRunARN :: Lens' StartAssessmentRunResponse Text sarrsAssessmentRunARN = lens _sarrsAssessmentRunARN (\ s a -> s{_sarrsAssessmentRunARN = a}); -instance NFData StartAssessmentRunResponse +instance NFData StartAssessmentRunResponse where diff --git a/gen/Network/AWS/Inspector/StopAssessmentRun.hs b/gen/Network/AWS/Inspector/StopAssessmentRun.hs --- a/gen/Network/AWS/Inspector/StopAssessmentRun.hs +++ b/gen/Network/AWS/Inspector/StopAssessmentRun.hs @@ -12,9 +12,9 @@ -- | -- Module : Network.AWS.Inspector.StopAssessmentRun --- Copyright : (c) 2013-2016 Brendan Hay +-- Copyright : (c) 2013-2017 Brendan Hay -- License : Mozilla Public License, v. 2.0. --- Maintainer : Brendan Hay +-- Maintainer : Brendan Hay -- Stability : auto-generated -- Portability : non-portable (GHC extensions) -- @@ -27,6 +27,7 @@ stopAssessmentRun , StopAssessmentRun -- * Request Lenses + , sarStopAction , sarAssessmentRunARN -- * Destructuring the Response @@ -34,31 +35,39 @@ , StopAssessmentRunResponse ) where -import Network.AWS.Inspector.Types -import Network.AWS.Inspector.Types.Product -import Network.AWS.Lens -import Network.AWS.Prelude -import Network.AWS.Request -import Network.AWS.Response +import Network.AWS.Inspector.Types +import Network.AWS.Inspector.Types.Product +import Network.AWS.Lens +import Network.AWS.Prelude +import Network.AWS.Request +import Network.AWS.Response -- | /See:/ 'stopAssessmentRun' smart constructor. -newtype StopAssessmentRun = StopAssessmentRun' - { _sarAssessmentRunARN :: Text - } deriving (Eq,Read,Show,Data,Typeable,Generic) +data StopAssessmentRun = StopAssessmentRun' + { _sarStopAction :: !(Maybe StopAction) + , _sarAssessmentRunARN :: !Text + } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'StopAssessmentRun' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: -- +-- * 'sarStopAction' - An input option that can be set to either START_EVALUATION or SKIP_EVALUATION. START_EVALUATION (the default value), stops the AWS agent from collecting data and begins the results evaluation and the findings generation process. SKIP_EVALUATION cancels the assessment run immediately, after which no findings are generated. +-- -- * 'sarAssessmentRunARN' - The ARN of the assessment run that you want to stop. stopAssessmentRun :: Text -- ^ 'sarAssessmentRunARN' -> StopAssessmentRun stopAssessmentRun pAssessmentRunARN_ = - StopAssessmentRun' - { _sarAssessmentRunARN = pAssessmentRunARN_ - } + StopAssessmentRun' + {_sarStopAction = Nothing, _sarAssessmentRunARN = pAssessmentRunARN_} + +-- | An input option that can be set to either START_EVALUATION or SKIP_EVALUATION. START_EVALUATION (the default value), stops the AWS agent from collecting data and begins the results evaluation and the findings generation process. SKIP_EVALUATION cancels the assessment run immediately, after which no findings are generated. +sarStopAction :: Lens' StopAssessmentRun (Maybe StopAction) +sarStopAction = lens _sarStopAction (\ s a -> s{_sarStopAction = a}); + -- | The ARN of the assessment run that you want to stop. sarAssessmentRunARN :: Lens' StopAssessmentRun Text sarAssessmentRunARN = lens _sarAssessmentRunARN (\ s a -> s{_sarAssessmentRunARN = a}); @@ -68,9 +77,9 @@ request = postJSON inspector response = receiveNull StopAssessmentRunResponse' -instance Hashable StopAssessmentRun +instance Hashable StopAssessmentRun where -instance NFData StopAssessmentRun +instance NFData StopAssessmentRun where instance ToHeaders StopAssessmentRun where toHeaders @@ -85,7 +94,8 @@ toJSON StopAssessmentRun'{..} = object (catMaybes - [Just ("assessmentRunArn" .= _sarAssessmentRunARN)]) + [("stopAction" .=) <$> _sarStopAction, + Just ("assessmentRunArn" .= _sarAssessmentRunARN)]) instance ToPath StopAssessmentRun where toPath = const "/" @@ -95,13 +105,15 @@ -- | /See:/ 'stopAssessmentRunResponse' smart constructor. data StopAssessmentRunResponse = - StopAssessmentRunResponse' - deriving (Eq,Read,Show,Data,Typeable,Generic) + StopAssessmentRunResponse' + deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'StopAssessmentRunResponse' with the minimum fields required to make a request. -- stopAssessmentRunResponse :: StopAssessmentRunResponse stopAssessmentRunResponse = StopAssessmentRunResponse' -instance NFData StopAssessmentRunResponse + +instance NFData StopAssessmentRunResponse where diff --git a/gen/Network/AWS/Inspector/SubscribeToEvent.hs b/gen/Network/AWS/Inspector/SubscribeToEvent.hs --- a/gen/Network/AWS/Inspector/SubscribeToEvent.hs +++ b/gen/Network/AWS/Inspector/SubscribeToEvent.hs @@ -12,9 +12,9 @@ -- | -- Module : Network.AWS.Inspector.SubscribeToEvent --- Copyright : (c) 2013-2016 Brendan Hay +-- Copyright : (c) 2013-2017 Brendan Hay -- License : Mozilla Public License, v. 2.0. --- Maintainer : Brendan Hay +-- Maintainer : Brendan Hay -- Stability : auto-generated -- Portability : non-portable (GHC extensions) -- @@ -36,20 +36,21 @@ , SubscribeToEventResponse ) where -import Network.AWS.Inspector.Types -import Network.AWS.Inspector.Types.Product -import Network.AWS.Lens -import Network.AWS.Prelude -import Network.AWS.Request -import Network.AWS.Response +import Network.AWS.Inspector.Types +import Network.AWS.Inspector.Types.Product +import Network.AWS.Lens +import Network.AWS.Prelude +import Network.AWS.Request +import Network.AWS.Response -- | /See:/ 'subscribeToEvent' smart constructor. data SubscribeToEvent = SubscribeToEvent' - { _steResourceARN :: !Text - , _steEvent :: !InspectorEvent - , _steTopicARN :: !Text - } deriving (Eq,Read,Show,Data,Typeable,Generic) + { _steResourceARN :: !Text + , _steEvent :: !InspectorEvent + , _steTopicARN :: !Text + } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'SubscribeToEvent' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -65,12 +66,13 @@ -> Text -- ^ 'steTopicARN' -> SubscribeToEvent subscribeToEvent pResourceARN_ pEvent_ pTopicARN_ = - SubscribeToEvent' - { _steResourceARN = pResourceARN_ - , _steEvent = pEvent_ - , _steTopicARN = pTopicARN_ - } + SubscribeToEvent' + { _steResourceARN = pResourceARN_ + , _steEvent = pEvent_ + , _steTopicARN = pTopicARN_ + } + -- | The ARN of the assessment template that is used during the event for which you want to receive SNS notifications. steResourceARN :: Lens' SubscribeToEvent Text steResourceARN = lens _steResourceARN (\ s a -> s{_steResourceARN = a}); @@ -88,9 +90,9 @@ request = postJSON inspector response = receiveNull SubscribeToEventResponse' -instance Hashable SubscribeToEvent +instance Hashable SubscribeToEvent where -instance NFData SubscribeToEvent +instance NFData SubscribeToEvent where instance ToHeaders SubscribeToEvent where toHeaders @@ -117,13 +119,15 @@ -- | /See:/ 'subscribeToEventResponse' smart constructor. data SubscribeToEventResponse = - SubscribeToEventResponse' - deriving (Eq,Read,Show,Data,Typeable,Generic) + SubscribeToEventResponse' + deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'SubscribeToEventResponse' with the minimum fields required to make a request. -- subscribeToEventResponse :: SubscribeToEventResponse subscribeToEventResponse = SubscribeToEventResponse' -instance NFData SubscribeToEventResponse + +instance NFData SubscribeToEventResponse where diff --git a/gen/Network/AWS/Inspector/Types.hs b/gen/Network/AWS/Inspector/Types.hs --- a/gen/Network/AWS/Inspector/Types.hs +++ b/gen/Network/AWS/Inspector/Types.hs @@ -4,9 +4,9 @@ -- | -- Module : Network.AWS.Inspector.Types --- Copyright : (c) 2013-2016 Brendan Hay +-- Copyright : (c) 2013-2017 Brendan Hay -- License : Mozilla Public License, v. 2.0. --- Maintainer : Brendan Hay +-- Maintainer : Brendan Hay -- Stability : auto-generated -- Portability : non-portable (GHC extensions) -- @@ -19,6 +19,7 @@ , _AccessDeniedException , _AssessmentRunInProgressException , _NoSuchEntityException + , _UnsupportedFeatureException , _AgentsAlreadyRunningAssessmentException , _InvalidCrossAccountRoleException , _InvalidInputException @@ -49,9 +50,21 @@ -- * Locale , Locale (..) + -- * ReportFileFormat + , ReportFileFormat (..) + + -- * ReportStatus + , ReportStatus (..) + + -- * ReportType + , ReportType (..) + -- * Severity , Severity (..) + -- * StopAction + , StopAction (..) + -- * AgentFilter , AgentFilter , agentFilter @@ -81,6 +94,7 @@ , arDataCollected , arStateChanges , arNotifications + , arFindingCounts -- * AssessmentRunAgent , AssessmentRunAgent @@ -276,38 +290,40 @@ , trBeginDate ) where -import Network.AWS.Inspector.Types.Product -import Network.AWS.Inspector.Types.Sum -import Network.AWS.Lens -import Network.AWS.Prelude -import Network.AWS.Sign.V4 +import Network.AWS.Inspector.Types.Product +import Network.AWS.Inspector.Types.Sum +import Network.AWS.Lens +import Network.AWS.Prelude +import Network.AWS.Sign.V4 -- | API version @2016-02-16@ of the Amazon Inspector SDK configuration. inspector :: Service inspector = - Service - { _svcAbbrev = "Inspector" - , _svcSigner = v4 - , _svcPrefix = "inspector" - , _svcVersion = "2016-02-16" - , _svcEndpoint = defaultEndpoint inspector - , _svcTimeout = Just 70 - , _svcCheck = statusSuccess - , _svcError = parseJSONError "Inspector" - , _svcRetry = retry - } + Service + { _svcAbbrev = "Inspector" + , _svcSigner = v4 + , _svcPrefix = "inspector" + , _svcVersion = "2016-02-16" + , _svcEndpoint = defaultEndpoint inspector + , _svcTimeout = Just 70 + , _svcCheck = statusSuccess + , _svcError = parseJSONError "Inspector" + , _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" @@ -316,53 +332,70 @@ | has (hasStatus 509) e = Just "limit_exceeded" | otherwise = Nothing + -- | You do not have required permissions to access the requested resource. -- -- _AccessDeniedException :: AsError a => Getting (First ServiceError) a ServiceError -_AccessDeniedException = _ServiceError . hasCode "AccessDeniedException" +_AccessDeniedException = _MatchServiceError inspector "AccessDeniedException" + -- | You cannot perform a specified action if an assessment run is currently in progress. -- -- _AssessmentRunInProgressException :: AsError a => Getting (First ServiceError) a ServiceError _AssessmentRunInProgressException = - _ServiceError . hasCode "AssessmentRunInProgressException" + _MatchServiceError inspector "AssessmentRunInProgressException" + -- | The request was rejected because it referenced an entity that does not exist. The error code describes the entity. -- -- _NoSuchEntityException :: AsError a => Getting (First ServiceError) a ServiceError -_NoSuchEntityException = _ServiceError . hasCode "NoSuchEntityException" +_NoSuchEntityException = _MatchServiceError inspector "NoSuchEntityException" + +-- | Used by the 'GetAssessmentReport' API. The request was rejected because you tried to generate a report for an assessment run that existed before reporting was supported in Amazon Inspector. You can only generate reports for assessment runs that took place or will take place after generating reports in Amazon Inspector became available. +-- +-- +_UnsupportedFeatureException :: AsError a => Getting (First ServiceError) a ServiceError +_UnsupportedFeatureException = + _MatchServiceError inspector "UnsupportedFeatureException" + + -- | You started an assessment run, but one of the instances is already participating in another assessment run. -- -- _AgentsAlreadyRunningAssessmentException :: AsError a => Getting (First ServiceError) a ServiceError _AgentsAlreadyRunningAssessmentException = - _ServiceError . hasCode "AgentsAlreadyRunningAssessmentException" + _MatchServiceError inspector "AgentsAlreadyRunningAssessmentException" + -- | Amazon Inspector cannot assume the cross-account role that it needs to list your EC2 instances during the assessment run. -- -- _InvalidCrossAccountRoleException :: AsError a => Getting (First ServiceError) a ServiceError _InvalidCrossAccountRoleException = - _ServiceError . hasCode "InvalidCrossAccountRoleException" + _MatchServiceError inspector "InvalidCrossAccountRoleException" + -- | The request was rejected because an invalid or out-of-range value was supplied for an input parameter. -- -- _InvalidInputException :: AsError a => Getting (First ServiceError) a ServiceError -_InvalidInputException = _ServiceError . hasCode "InvalidInputException" +_InvalidInputException = _MatchServiceError inspector "InvalidInputException" + -- | Internal server error. -- -- _InternalException :: AsError a => Getting (First ServiceError) a ServiceError -_InternalException = _ServiceError . hasCode "InternalException" +_InternalException = _MatchServiceError inspector "InternalException" + -- | The request was rejected because it attempted to create resources beyond the current AWS account limits. The error code describes the limit exceeded. -- -- _LimitExceededException :: AsError a => Getting (First ServiceError) a ServiceError -_LimitExceededException = _ServiceError . hasCode "LimitExceededException" +_LimitExceededException = _MatchServiceError inspector "LimitExceededException" + diff --git a/gen/Network/AWS/Inspector/Types/Product.hs b/gen/Network/AWS/Inspector/Types/Product.hs --- a/gen/Network/AWS/Inspector/Types/Product.hs +++ b/gen/Network/AWS/Inspector/Types/Product.hs @@ -9,17 +9,17 @@ -- | -- Module : Network.AWS.Inspector.Types.Product --- Copyright : (c) 2013-2016 Brendan Hay +-- Copyright : (c) 2013-2017 Brendan Hay -- License : Mozilla Public License, v. 2.0. --- Maintainer : Brendan Hay +-- Maintainer : Brendan Hay -- Stability : auto-generated -- Portability : non-portable (GHC extensions) -- module Network.AWS.Inspector.Types.Product where -import Network.AWS.Inspector.Types.Sum -import Network.AWS.Lens -import Network.AWS.Prelude +import Network.AWS.Inspector.Types.Sum +import Network.AWS.Lens +import Network.AWS.Prelude -- | Contains information about an Amazon Inspector agent. This data type is used as a request parameter in the 'ListAssessmentRunAgents' action. -- @@ -27,10 +27,11 @@ -- -- /See:/ 'agentFilter' smart constructor. data AgentFilter = AgentFilter' - { _afAgentHealths :: ![AgentHealth] - , _afAgentHealthCodes :: ![AgentHealthCode] - } deriving (Eq,Read,Show,Data,Typeable,Generic) + { _afAgentHealths :: ![AgentHealth] + , _afAgentHealthCodes :: ![AgentHealthCode] + } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'AgentFilter' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -41,11 +42,9 @@ agentFilter :: AgentFilter agentFilter = - AgentFilter' - { _afAgentHealths = mempty - , _afAgentHealthCodes = mempty - } + AgentFilter' {_afAgentHealths = mempty, _afAgentHealthCodes = mempty} + -- | The current health state of the agent. Values can be set to __HEALTHY__ or __UNHEALTHY__ . afAgentHealths :: Lens' AgentFilter [AgentHealth] afAgentHealths = lens _afAgentHealths (\ s a -> s{_afAgentHealths = a}) . _Coerce; @@ -54,9 +53,9 @@ afAgentHealthCodes :: Lens' AgentFilter [AgentHealthCode] afAgentHealthCodes = lens _afAgentHealthCodes (\ s a -> s{_afAgentHealthCodes = a}) . _Coerce; -instance Hashable AgentFilter +instance Hashable AgentFilter where -instance NFData AgentFilter +instance NFData AgentFilter where instance ToJSON AgentFilter where toJSON AgentFilter'{..} @@ -71,10 +70,11 @@ -- -- /See:/ 'agentPreview' smart constructor. data AgentPreview = AgentPreview' - { _apAutoScalingGroup :: !(Maybe Text) - , _apAgentId :: !Text - } deriving (Eq,Read,Show,Data,Typeable,Generic) + { _apAutoScalingGroup :: !(Maybe Text) + , _apAgentId :: !Text + } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'AgentPreview' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -86,11 +86,9 @@ :: Text -- ^ 'apAgentId' -> AgentPreview agentPreview pAgentId_ = - AgentPreview' - { _apAutoScalingGroup = Nothing - , _apAgentId = pAgentId_ - } + AgentPreview' {_apAutoScalingGroup = Nothing, _apAgentId = pAgentId_} + -- | The Auto Scaling group for the EC2 instance where the agent is installed. apAutoScalingGroup :: Lens' AgentPreview (Maybe Text) apAutoScalingGroup = lens _apAutoScalingGroup (\ s a -> s{_apAutoScalingGroup = a}); @@ -106,9 +104,9 @@ AgentPreview' <$> (x .:? "autoScalingGroup") <*> (x .: "agentId")) -instance Hashable AgentPreview +instance Hashable AgentPreview where -instance NFData AgentPreview +instance NFData AgentPreview where -- | A snapshot of an Amazon Inspector assessment run that contains the findings of the assessment run . -- @@ -118,22 +116,24 @@ -- -- /See:/ 'assessmentRun' smart constructor. data AssessmentRun = AssessmentRun' - { _arStartedAt :: !(Maybe POSIX) - , _arCompletedAt :: !(Maybe POSIX) - , _arArn :: !Text - , _arName :: !Text - , _arAssessmentTemplateARN :: !Text - , _arState :: !AssessmentRunState - , _arDurationInSeconds :: !Nat - , _arRulesPackageARNs :: !(List1 Text) - , _arUserAttributesForFindings :: ![Attribute] - , _arCreatedAt :: !POSIX - , _arStateChangedAt :: !POSIX - , _arDataCollected :: !Bool - , _arStateChanges :: ![AssessmentRunStateChange] - , _arNotifications :: ![AssessmentRunNotification] - } deriving (Eq,Read,Show,Data,Typeable,Generic) + { _arStartedAt :: !(Maybe POSIX) + , _arCompletedAt :: !(Maybe POSIX) + , _arArn :: !Text + , _arName :: !Text + , _arAssessmentTemplateARN :: !Text + , _arState :: !AssessmentRunState + , _arDurationInSeconds :: !Nat + , _arRulesPackageARNs :: !(List1 Text) + , _arUserAttributesForFindings :: ![Attribute] + , _arCreatedAt :: !POSIX + , _arStateChangedAt :: !POSIX + , _arDataCollected :: !Bool + , _arStateChanges :: ![AssessmentRunStateChange] + , _arNotifications :: ![AssessmentRunNotification] + , _arFindingCounts :: !(Map Severity Int) + } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'AssessmentRun' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -165,6 +165,8 @@ -- * 'arStateChanges' - A list of the assessment run state changes. -- -- * 'arNotifications' - A list of notifications for the event subscriptions. A notification about a particular generated finding is added to this list only once. +-- +-- * 'arFindingCounts' - Provides a total count of generated findings per severity. assessmentRun :: Text -- ^ 'arArn' -> Text -- ^ 'arName' @@ -177,23 +179,25 @@ -> Bool -- ^ 'arDataCollected' -> AssessmentRun assessmentRun pArn_ pName_ pAssessmentTemplateARN_ pState_ pDurationInSeconds_ pRulesPackageARNs_ pCreatedAt_ pStateChangedAt_ pDataCollected_ = - AssessmentRun' - { _arStartedAt = Nothing - , _arCompletedAt = Nothing - , _arArn = pArn_ - , _arName = pName_ - , _arAssessmentTemplateARN = pAssessmentTemplateARN_ - , _arState = pState_ - , _arDurationInSeconds = _Nat # pDurationInSeconds_ - , _arRulesPackageARNs = _List1 # pRulesPackageARNs_ - , _arUserAttributesForFindings = mempty - , _arCreatedAt = _Time # pCreatedAt_ - , _arStateChangedAt = _Time # pStateChangedAt_ - , _arDataCollected = pDataCollected_ - , _arStateChanges = mempty - , _arNotifications = mempty - } + AssessmentRun' + { _arStartedAt = Nothing + , _arCompletedAt = Nothing + , _arArn = pArn_ + , _arName = pName_ + , _arAssessmentTemplateARN = pAssessmentTemplateARN_ + , _arState = pState_ + , _arDurationInSeconds = _Nat # pDurationInSeconds_ + , _arRulesPackageARNs = _List1 # pRulesPackageARNs_ + , _arUserAttributesForFindings = mempty + , _arCreatedAt = _Time # pCreatedAt_ + , _arStateChangedAt = _Time # pStateChangedAt_ + , _arDataCollected = pDataCollected_ + , _arStateChanges = mempty + , _arNotifications = mempty + , _arFindingCounts = mempty + } + -- | The time when 'StartAssessmentRun' was called. arStartedAt :: Lens' AssessmentRun (Maybe UTCTime) arStartedAt = lens _arStartedAt (\ s a -> s{_arStartedAt = a}) . mapping _Time; @@ -250,6 +254,10 @@ arNotifications :: Lens' AssessmentRun [AssessmentRunNotification] arNotifications = lens _arNotifications (\ s a -> s{_arNotifications = a}) . _Coerce; +-- | Provides a total count of generated findings per severity. +arFindingCounts :: Lens' AssessmentRun (HashMap Severity Int) +arFindingCounts = lens _arFindingCounts (\ s a -> s{_arFindingCounts = a}) . _Map; + instance FromJSON AssessmentRun where parseJSON = withObject "AssessmentRun" @@ -267,11 +275,12 @@ <*> (x .: "stateChangedAt") <*> (x .: "dataCollected") <*> (x .:? "stateChanges" .!= mempty) - <*> (x .:? "notifications" .!= mempty)) + <*> (x .:? "notifications" .!= mempty) + <*> (x .:? "findingCounts" .!= mempty)) -instance Hashable AssessmentRun +instance Hashable AssessmentRun where -instance NFData AssessmentRun +instance NFData AssessmentRun where -- | Contains information about an Amazon Inspector agent. This data type is used as a response element in the 'ListAssessmentRunAgents' action. -- @@ -279,15 +288,16 @@ -- -- /See:/ 'assessmentRunAgent' smart constructor. data AssessmentRunAgent = AssessmentRunAgent' - { _araAutoScalingGroup :: !(Maybe Text) - , _araAgentHealthDetails :: !(Maybe Text) - , _araAgentId :: !Text - , _araAssessmentRunARN :: !Text - , _araAgentHealth :: !AgentHealth - , _araAgentHealthCode :: !AgentHealthCode - , _araTelemetryMetadata :: ![TelemetryMetadata] - } deriving (Eq,Read,Show,Data,Typeable,Generic) + { _araAutoScalingGroup :: !(Maybe Text) + , _araAgentHealthDetails :: !(Maybe Text) + , _araAgentId :: !Text + , _araAssessmentRunARN :: !Text + , _araAgentHealth :: !AgentHealth + , _araAgentHealthCode :: !AgentHealthCode + , _araTelemetryMetadata :: ![TelemetryMetadata] + } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'AssessmentRunAgent' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -312,16 +322,17 @@ -> AgentHealthCode -- ^ 'araAgentHealthCode' -> AssessmentRunAgent assessmentRunAgent pAgentId_ pAssessmentRunARN_ pAgentHealth_ pAgentHealthCode_ = - AssessmentRunAgent' - { _araAutoScalingGroup = Nothing - , _araAgentHealthDetails = Nothing - , _araAgentId = pAgentId_ - , _araAssessmentRunARN = pAssessmentRunARN_ - , _araAgentHealth = pAgentHealth_ - , _araAgentHealthCode = pAgentHealthCode_ - , _araTelemetryMetadata = mempty - } + AssessmentRunAgent' + { _araAutoScalingGroup = Nothing + , _araAgentHealthDetails = Nothing + , _araAgentId = pAgentId_ + , _araAssessmentRunARN = pAssessmentRunARN_ + , _araAgentHealth = pAgentHealth_ + , _araAgentHealthCode = pAgentHealthCode_ + , _araTelemetryMetadata = mempty + } + -- | The Auto Scaling group of the EC2 instance that is specified by the agent ID. araAutoScalingGroup :: Lens' AssessmentRunAgent (Maybe Text) araAutoScalingGroup = lens _araAutoScalingGroup (\ s a -> s{_araAutoScalingGroup = a}); @@ -363,9 +374,9 @@ <*> (x .: "agentHealthCode") <*> (x .:? "telemetryMetadata" .!= mempty)) -instance Hashable AssessmentRunAgent +instance Hashable AssessmentRunAgent where -instance NFData AssessmentRunAgent +instance NFData AssessmentRunAgent where -- | Used as the request parameter in the 'ListAssessmentRuns' action. -- @@ -373,15 +384,16 @@ -- -- /See:/ 'assessmentRunFilter' smart constructor. data AssessmentRunFilter = AssessmentRunFilter' - { _arfStates :: !(Maybe [AssessmentRunState]) - , _arfNamePattern :: !(Maybe Text) - , _arfStartTimeRange :: !(Maybe TimestampRange) - , _arfStateChangeTimeRange :: !(Maybe TimestampRange) - , _arfRulesPackageARNs :: !(Maybe [Text]) - , _arfCompletionTimeRange :: !(Maybe TimestampRange) - , _arfDurationRange :: !(Maybe DurationRange) - } deriving (Eq,Read,Show,Data,Typeable,Generic) + { _arfStates :: !(Maybe [AssessmentRunState]) + , _arfNamePattern :: !(Maybe Text) + , _arfStartTimeRange :: !(Maybe TimestampRange) + , _arfStateChangeTimeRange :: !(Maybe TimestampRange) + , _arfRulesPackageARNs :: !(Maybe [Text]) + , _arfCompletionTimeRange :: !(Maybe TimestampRange) + , _arfDurationRange :: !(Maybe DurationRange) + } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'AssessmentRunFilter' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -402,16 +414,17 @@ assessmentRunFilter :: AssessmentRunFilter assessmentRunFilter = - AssessmentRunFilter' - { _arfStates = Nothing - , _arfNamePattern = Nothing - , _arfStartTimeRange = Nothing - , _arfStateChangeTimeRange = Nothing - , _arfRulesPackageARNs = Nothing - , _arfCompletionTimeRange = Nothing - , _arfDurationRange = Nothing - } + AssessmentRunFilter' + { _arfStates = Nothing + , _arfNamePattern = Nothing + , _arfStartTimeRange = Nothing + , _arfStateChangeTimeRange = Nothing + , _arfRulesPackageARNs = Nothing + , _arfCompletionTimeRange = Nothing + , _arfDurationRange = Nothing + } + -- | For a record to match a filter, one of the values specified for this data type property must be the exact match of the value of the __assessmentRunState__ property of the 'AssessmentRun' data type. arfStates :: Lens' AssessmentRunFilter [AssessmentRunState] arfStates = lens _arfStates (\ s a -> s{_arfStates = a}) . _Default . _Coerce; @@ -440,9 +453,9 @@ arfDurationRange :: Lens' AssessmentRunFilter (Maybe DurationRange) arfDurationRange = lens _arfDurationRange (\ s a -> s{_arfDurationRange = a}); -instance Hashable AssessmentRunFilter +instance Hashable AssessmentRunFilter where -instance NFData AssessmentRunFilter +instance NFData AssessmentRunFilter where instance ToJSON AssessmentRunFilter where toJSON AssessmentRunFilter'{..} @@ -464,14 +477,15 @@ -- -- /See:/ 'assessmentRunNotification' smart constructor. data AssessmentRunNotification = AssessmentRunNotification' - { _arnSnsTopicARN :: !(Maybe Text) - , _arnSnsPublishStatusCode :: !(Maybe AssessmentRunNotificationSNSStatusCode) - , _arnMessage :: !(Maybe Text) - , _arnDate :: !POSIX - , _arnEvent :: !InspectorEvent - , _arnError :: !Bool - } deriving (Eq,Read,Show,Data,Typeable,Generic) + { _arnSnsTopicARN :: !(Maybe Text) + , _arnSnsPublishStatusCode :: !(Maybe AssessmentRunNotificationSNSStatusCode) + , _arnMessage :: !(Maybe Text) + , _arnDate :: !POSIX + , _arnEvent :: !InspectorEvent + , _arnError :: !Bool + } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'AssessmentRunNotification' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -480,7 +494,7 @@ -- -- * 'arnSnsPublishStatusCode' - The status code of the SNS notification. -- --- * 'arnMessage' - Undocumented member. +-- * 'arnMessage' - The message included in the notification. -- -- * 'arnDate' - The date of the notification. -- @@ -493,15 +507,16 @@ -> Bool -- ^ 'arnError' -> AssessmentRunNotification assessmentRunNotification pDate_ pEvent_ pError_ = - AssessmentRunNotification' - { _arnSnsTopicARN = Nothing - , _arnSnsPublishStatusCode = Nothing - , _arnMessage = Nothing - , _arnDate = _Time # pDate_ - , _arnEvent = pEvent_ - , _arnError = pError_ - } + AssessmentRunNotification' + { _arnSnsTopicARN = Nothing + , _arnSnsPublishStatusCode = Nothing + , _arnMessage = Nothing + , _arnDate = _Time # pDate_ + , _arnEvent = pEvent_ + , _arnError = pError_ + } + -- | The SNS topic to which the SNS notification is sent. arnSnsTopicARN :: Lens' AssessmentRunNotification (Maybe Text) arnSnsTopicARN = lens _arnSnsTopicARN (\ s a -> s{_arnSnsTopicARN = a}); @@ -510,7 +525,7 @@ arnSnsPublishStatusCode :: Lens' AssessmentRunNotification (Maybe AssessmentRunNotificationSNSStatusCode) arnSnsPublishStatusCode = lens _arnSnsPublishStatusCode (\ s a -> s{_arnSnsPublishStatusCode = a}); --- | Undocumented member. +-- | The message included in the notification. arnMessage :: Lens' AssessmentRunNotification (Maybe Text) arnMessage = lens _arnMessage (\ s a -> s{_arnMessage = a}); @@ -538,9 +553,9 @@ <*> (x .: "event") <*> (x .: "error")) -instance Hashable AssessmentRunNotification +instance Hashable AssessmentRunNotification where -instance NFData AssessmentRunNotification +instance NFData AssessmentRunNotification where -- | Used as one of the elements of the 'AssessmentRun' data type. -- @@ -548,10 +563,11 @@ -- -- /See:/ 'assessmentRunStateChange' smart constructor. data AssessmentRunStateChange = AssessmentRunStateChange' - { _arscStateChangedAt :: !POSIX - , _arscState :: !AssessmentRunState - } deriving (Eq,Read,Show,Data,Typeable,Generic) + { _arscStateChangedAt :: !POSIX + , _arscState :: !AssessmentRunState + } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'AssessmentRunStateChange' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -564,11 +580,10 @@ -> AssessmentRunState -- ^ 'arscState' -> AssessmentRunStateChange assessmentRunStateChange pStateChangedAt_ pState_ = - AssessmentRunStateChange' - { _arscStateChangedAt = _Time # pStateChangedAt_ - , _arscState = pState_ - } + AssessmentRunStateChange' + {_arscStateChangedAt = _Time # pStateChangedAt_, _arscState = pState_} + -- | The last time the assessment run state changed. arscStateChangedAt :: Lens' AssessmentRunStateChange UTCTime arscStateChangedAt = lens _arscStateChangedAt (\ s a -> s{_arscStateChangedAt = a}) . _Time; @@ -584,9 +599,9 @@ AssessmentRunStateChange' <$> (x .: "stateChangedAt") <*> (x .: "state")) -instance Hashable AssessmentRunStateChange +instance Hashable AssessmentRunStateChange where -instance NFData AssessmentRunStateChange +instance NFData AssessmentRunStateChange where -- | Contains information about an Amazon Inspector application. This data type is used as the response element in the 'DescribeAssessmentTargets' action. -- @@ -594,13 +609,14 @@ -- -- /See:/ 'assessmentTarget' smart constructor. data AssessmentTarget = AssessmentTarget' - { _aArn :: !Text - , _aName :: !Text - , _aResourceGroupARN :: !Text - , _aCreatedAt :: !POSIX - , _aUpdatedAt :: !POSIX - } deriving (Eq,Read,Show,Data,Typeable,Generic) + { _aArn :: !Text + , _aName :: !Text + , _aResourceGroupARN :: !Text + , _aCreatedAt :: !POSIX + , _aUpdatedAt :: !POSIX + } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'AssessmentTarget' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -622,14 +638,15 @@ -> UTCTime -- ^ 'aUpdatedAt' -> AssessmentTarget assessmentTarget pArn_ pName_ pResourceGroupARN_ pCreatedAt_ pUpdatedAt_ = - AssessmentTarget' - { _aArn = pArn_ - , _aName = pName_ - , _aResourceGroupARN = pResourceGroupARN_ - , _aCreatedAt = _Time # pCreatedAt_ - , _aUpdatedAt = _Time # pUpdatedAt_ - } + AssessmentTarget' + { _aArn = pArn_ + , _aName = pName_ + , _aResourceGroupARN = pResourceGroupARN_ + , _aCreatedAt = _Time # pCreatedAt_ + , _aUpdatedAt = _Time # pUpdatedAt_ + } + -- | The ARN that specifies the Amazon Inspector assessment target. aArn :: Lens' AssessmentTarget Text aArn = lens _aArn (\ s a -> s{_aArn = a}); @@ -660,9 +677,9 @@ <*> (x .: "createdAt") <*> (x .: "updatedAt")) -instance Hashable AssessmentTarget +instance Hashable AssessmentTarget where -instance NFData AssessmentTarget +instance NFData AssessmentTarget where -- | Used as the request parameter in the 'ListAssessmentTargets' action. -- @@ -670,9 +687,10 @@ -- -- /See:/ 'assessmentTargetFilter' smart constructor. newtype AssessmentTargetFilter = AssessmentTargetFilter' - { _atfAssessmentTargetNamePattern :: Maybe Text - } deriving (Eq,Read,Show,Data,Typeable,Generic) + { _atfAssessmentTargetNamePattern :: Maybe Text + } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'AssessmentTargetFilter' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -681,17 +699,16 @@ assessmentTargetFilter :: AssessmentTargetFilter assessmentTargetFilter = - AssessmentTargetFilter' - { _atfAssessmentTargetNamePattern = Nothing - } + AssessmentTargetFilter' {_atfAssessmentTargetNamePattern = Nothing} + -- | For a record to match a filter, an explicit value or a string that contains a wildcard that is specified for this data type property must match the value of the __assessmentTargetName__ property of the 'AssessmentTarget' data type. atfAssessmentTargetNamePattern :: Lens' AssessmentTargetFilter (Maybe Text) atfAssessmentTargetNamePattern = lens _atfAssessmentTargetNamePattern (\ s a -> s{_atfAssessmentTargetNamePattern = a}); -instance Hashable AssessmentTargetFilter +instance Hashable AssessmentTargetFilter where -instance NFData AssessmentTargetFilter +instance NFData AssessmentTargetFilter where instance ToJSON AssessmentTargetFilter where toJSON AssessmentTargetFilter'{..} @@ -706,15 +723,16 @@ -- -- /See:/ 'assessmentTemplate' smart constructor. data AssessmentTemplate = AssessmentTemplate' - { _atArn :: !Text - , _atName :: !Text - , _atAssessmentTargetARN :: !Text - , _atDurationInSeconds :: !Nat - , _atRulesPackageARNs :: ![Text] - , _atUserAttributesForFindings :: ![Attribute] - , _atCreatedAt :: !POSIX - } deriving (Eq,Read,Show,Data,Typeable,Generic) + { _atArn :: !Text + , _atName :: !Text + , _atAssessmentTargetARN :: !Text + , _atDurationInSeconds :: !Nat + , _atRulesPackageARNs :: ![Text] + , _atUserAttributesForFindings :: ![Attribute] + , _atCreatedAt :: !POSIX + } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'AssessmentTemplate' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -740,16 +758,17 @@ -> UTCTime -- ^ 'atCreatedAt' -> AssessmentTemplate assessmentTemplate pArn_ pName_ pAssessmentTargetARN_ pDurationInSeconds_ pCreatedAt_ = - AssessmentTemplate' - { _atArn = pArn_ - , _atName = pName_ - , _atAssessmentTargetARN = pAssessmentTargetARN_ - , _atDurationInSeconds = _Nat # pDurationInSeconds_ - , _atRulesPackageARNs = mempty - , _atUserAttributesForFindings = mempty - , _atCreatedAt = _Time # pCreatedAt_ - } + AssessmentTemplate' + { _atArn = pArn_ + , _atName = pName_ + , _atAssessmentTargetARN = pAssessmentTargetARN_ + , _atDurationInSeconds = _Nat # pDurationInSeconds_ + , _atRulesPackageARNs = mempty + , _atUserAttributesForFindings = mempty + , _atCreatedAt = _Time # pCreatedAt_ + } + -- | The ARN of the assessment template. atArn :: Lens' AssessmentTemplate Text atArn = lens _atArn (\ s a -> s{_atArn = a}); @@ -790,9 +809,9 @@ <*> (x .:? "userAttributesForFindings" .!= mempty) <*> (x .: "createdAt")) -instance Hashable AssessmentTemplate +instance Hashable AssessmentTemplate where -instance NFData AssessmentTemplate +instance NFData AssessmentTemplate where -- | Used as the request parameter in the 'ListAssessmentTemplates' action. -- @@ -800,11 +819,12 @@ -- -- /See:/ 'assessmentTemplateFilter' smart constructor. data AssessmentTemplateFilter = AssessmentTemplateFilter' - { _atfNamePattern :: !(Maybe Text) - , _atfRulesPackageARNs :: !(Maybe [Text]) - , _atfDurationRange :: !(Maybe DurationRange) - } deriving (Eq,Read,Show,Data,Typeable,Generic) + { _atfNamePattern :: !(Maybe Text) + , _atfRulesPackageARNs :: !(Maybe [Text]) + , _atfDurationRange :: !(Maybe DurationRange) + } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'AssessmentTemplateFilter' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -817,12 +837,13 @@ assessmentTemplateFilter :: AssessmentTemplateFilter assessmentTemplateFilter = - AssessmentTemplateFilter' - { _atfNamePattern = Nothing - , _atfRulesPackageARNs = Nothing - , _atfDurationRange = Nothing - } + AssessmentTemplateFilter' + { _atfNamePattern = Nothing + , _atfRulesPackageARNs = Nothing + , _atfDurationRange = Nothing + } + -- | For a record to match a filter, an explicit value or a string that contains a wildcard that is specified for this data type property must match the value of the __assessmentTemplateName__ property of the 'AssessmentTemplate' data type. atfNamePattern :: Lens' AssessmentTemplateFilter (Maybe Text) atfNamePattern = lens _atfNamePattern (\ s a -> s{_atfNamePattern = a}); @@ -835,9 +856,9 @@ atfDurationRange :: Lens' AssessmentTemplateFilter (Maybe DurationRange) atfDurationRange = lens _atfDurationRange (\ s a -> s{_atfDurationRange = a}); -instance Hashable AssessmentTemplateFilter +instance Hashable AssessmentTemplateFilter where -instance NFData AssessmentTemplateFilter +instance NFData AssessmentTemplateFilter where instance ToJSON AssessmentTemplateFilter where toJSON AssessmentTemplateFilter'{..} @@ -853,14 +874,15 @@ -- -- /See:/ 'assetAttributes' smart constructor. data AssetAttributes = AssetAttributes' - { _aaHostname :: !(Maybe Text) - , _aaAutoScalingGroup :: !(Maybe Text) - , _aaIpv4Addresses :: !(Maybe [Text]) - , _aaAgentId :: !(Maybe Text) - , _aaAmiId :: !(Maybe Text) - , _aaSchemaVersion :: !Nat - } deriving (Eq,Read,Show,Data,Typeable,Generic) + { _aaHostname :: !(Maybe Text) + , _aaAutoScalingGroup :: !(Maybe Text) + , _aaIpv4Addresses :: !(Maybe [Text]) + , _aaAgentId :: !(Maybe Text) + , _aaAmiId :: !(Maybe Text) + , _aaSchemaVersion :: !Nat + } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'AssetAttributes' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -880,15 +902,16 @@ :: Natural -- ^ 'aaSchemaVersion' -> AssetAttributes assetAttributes pSchemaVersion_ = - AssetAttributes' - { _aaHostname = Nothing - , _aaAutoScalingGroup = Nothing - , _aaIpv4Addresses = Nothing - , _aaAgentId = Nothing - , _aaAmiId = Nothing - , _aaSchemaVersion = _Nat # pSchemaVersion_ - } + AssetAttributes' + { _aaHostname = Nothing + , _aaAutoScalingGroup = Nothing + , _aaIpv4Addresses = Nothing + , _aaAgentId = Nothing + , _aaAmiId = Nothing + , _aaSchemaVersion = _Nat # pSchemaVersion_ + } + -- | The hostname of the EC2 instance where the finding is generated. aaHostname :: Lens' AssetAttributes (Maybe Text) aaHostname = lens _aaHostname (\ s a -> s{_aaHostname = a}); @@ -924,9 +947,9 @@ <*> (x .:? "amiId") <*> (x .: "schemaVersion")) -instance Hashable AssetAttributes +instance Hashable AssetAttributes where -instance NFData AssetAttributes +instance NFData AssetAttributes where -- | This data type is used as a request parameter in the 'AddAttributesToFindings' and 'CreateAssessmentTemplate' actions. -- @@ -934,10 +957,11 @@ -- -- /See:/ 'attribute' smart constructor. data Attribute = Attribute' - { _aValue :: !(Maybe Text) - , _aKey :: !Text - } deriving (Eq,Read,Show,Data,Typeable,Generic) + { _aValue :: !(Maybe Text) + , _aKey :: !Text + } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'Attribute' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -948,12 +972,9 @@ attribute :: Text -- ^ 'aKey' -> Attribute -attribute pKey_ = - Attribute' - { _aValue = Nothing - , _aKey = pKey_ - } +attribute pKey_ = Attribute' {_aValue = Nothing, _aKey = pKey_} + -- | The value assigned to the attribute key. aValue :: Lens' Attribute (Maybe Text) aValue = lens _aValue (\ s a -> s{_aValue = a}); @@ -968,9 +989,9 @@ (\ x -> Attribute' <$> (x .:? "value") <*> (x .: "key")) -instance Hashable Attribute +instance Hashable Attribute where -instance NFData Attribute +instance NFData Attribute where instance ToJSON Attribute where toJSON Attribute'{..} @@ -984,10 +1005,11 @@ -- -- /See:/ 'durationRange' smart constructor. data DurationRange = DurationRange' - { _drMinSeconds :: !(Maybe Nat) - , _drMaxSeconds :: !(Maybe Nat) - } deriving (Eq,Read,Show,Data,Typeable,Generic) + { _drMinSeconds :: !(Maybe Nat) + , _drMaxSeconds :: !(Maybe Nat) + } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DurationRange' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -998,11 +1020,9 @@ durationRange :: DurationRange durationRange = - DurationRange' - { _drMinSeconds = Nothing - , _drMaxSeconds = Nothing - } + DurationRange' {_drMinSeconds = Nothing, _drMaxSeconds = Nothing} + -- | The minimum value of the duration range. Must be greater than zero. drMinSeconds :: Lens' DurationRange (Maybe Natural) drMinSeconds = lens _drMinSeconds (\ s a -> s{_drMinSeconds = a}) . mapping _Nat; @@ -1011,9 +1031,9 @@ drMaxSeconds :: Lens' DurationRange (Maybe Natural) drMaxSeconds = lens _drMaxSeconds (\ s a -> s{_drMaxSeconds = a}) . mapping _Nat; -instance Hashable DurationRange +instance Hashable DurationRange where -instance NFData DurationRange +instance NFData DurationRange where instance ToJSON DurationRange where toJSON DurationRange'{..} @@ -1028,10 +1048,11 @@ -- -- /See:/ 'eventSubscription' smart constructor. data EventSubscription = EventSubscription' - { _esEvent :: !InspectorEvent - , _esSubscribedAt :: !POSIX - } deriving (Eq,Read,Show,Data,Typeable,Generic) + { _esEvent :: !InspectorEvent + , _esSubscribedAt :: !POSIX + } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'EventSubscription' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -1044,11 +1065,10 @@ -> UTCTime -- ^ 'esSubscribedAt' -> EventSubscription eventSubscription pEvent_ pSubscribedAt_ = - EventSubscription' - { _esEvent = pEvent_ - , _esSubscribedAt = _Time # pSubscribedAt_ - } + EventSubscription' + {_esEvent = pEvent_, _esSubscribedAt = _Time # pSubscribedAt_} + -- | The event for which Amazon Simple Notification Service (SNS) notifications are sent. esEvent :: Lens' EventSubscription InspectorEvent esEvent = lens _esEvent (\ s a -> s{_esEvent = a}); @@ -1064,9 +1084,9 @@ EventSubscription' <$> (x .: "event") <*> (x .: "subscribedAt")) -instance Hashable EventSubscription +instance Hashable EventSubscription where -instance NFData EventSubscription +instance NFData EventSubscription where -- | Includes details about the failed items. -- @@ -1074,10 +1094,11 @@ -- -- /See:/ 'failedItemDetails' smart constructor. data FailedItemDetails = FailedItemDetails' - { _fidFailureCode :: !FailedItemErrorCode - , _fidRetryable :: !Bool - } deriving (Eq,Read,Show,Data,Typeable,Generic) + { _fidFailureCode :: !FailedItemErrorCode + , _fidRetryable :: !Bool + } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'FailedItemDetails' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -1090,11 +1111,10 @@ -> Bool -- ^ 'fidRetryable' -> FailedItemDetails failedItemDetails pFailureCode_ pRetryable_ = - FailedItemDetails' - { _fidFailureCode = pFailureCode_ - , _fidRetryable = pRetryable_ - } + FailedItemDetails' + {_fidFailureCode = pFailureCode_, _fidRetryable = pRetryable_} + -- | The status code of a failed item. fidFailureCode :: Lens' FailedItemDetails FailedItemErrorCode fidFailureCode = lens _fidFailureCode (\ s a -> s{_fidFailureCode = a}); @@ -1110,9 +1130,9 @@ FailedItemDetails' <$> (x .: "failureCode") <*> (x .: "retryable")) -instance Hashable FailedItemDetails +instance Hashable FailedItemDetails where -instance NFData FailedItemDetails +instance NFData FailedItemDetails where -- | Contains information about an Amazon Inspector finding. This data type is used as the response element in the 'DescribeFindings' action. -- @@ -1120,26 +1140,27 @@ -- -- /See:/ 'finding' smart constructor. data Finding = Finding' - { _fService :: !(Maybe Text) - , _fSeverity :: !(Maybe Severity) - , _fSchemaVersion :: !(Maybe Nat) - , _fConfidence :: !(Maybe Nat) - , _fAssetAttributes :: !(Maybe AssetAttributes) - , _fServiceAttributes :: !(Maybe InspectorServiceAttributes) - , _fId :: !(Maybe Text) - , _fNumericSeverity :: !(Maybe Double) - , _fAssetType :: !(Maybe AssetType) - , _fTitle :: !(Maybe Text) - , _fIndicatorOfCompromise :: !(Maybe Bool) - , _fDescription :: !(Maybe Text) - , _fRecommendation :: !(Maybe Text) - , _fArn :: !Text - , _fAttributes :: ![Attribute] - , _fUserAttributes :: ![Attribute] - , _fCreatedAt :: !POSIX - , _fUpdatedAt :: !POSIX - } deriving (Eq,Read,Show,Data,Typeable,Generic) + { _fService :: !(Maybe Text) + , _fSeverity :: !(Maybe Severity) + , _fSchemaVersion :: !(Maybe Nat) + , _fConfidence :: !(Maybe Nat) + , _fAssetAttributes :: !(Maybe AssetAttributes) + , _fServiceAttributes :: !(Maybe InspectorServiceAttributes) + , _fId :: !(Maybe Text) + , _fNumericSeverity :: !(Maybe Double) + , _fAssetType :: !(Maybe AssetType) + , _fTitle :: !(Maybe Text) + , _fIndicatorOfCompromise :: !(Maybe Bool) + , _fDescription :: !(Maybe Text) + , _fRecommendation :: !(Maybe Text) + , _fArn :: !Text + , _fAttributes :: ![Attribute] + , _fUserAttributes :: ![Attribute] + , _fCreatedAt :: !POSIX + , _fUpdatedAt :: !POSIX + } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'Finding' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -1154,7 +1175,7 @@ -- -- * 'fAssetAttributes' - A collection of attributes of the host from which the finding is generated. -- --- * 'fServiceAttributes' - Undocumented member. +-- * 'fServiceAttributes' - This data type is used in the 'Finding' data type. -- -- * 'fId' - The ID of the finding. -- @@ -1185,27 +1206,28 @@ -> UTCTime -- ^ 'fUpdatedAt' -> Finding finding pArn_ pCreatedAt_ pUpdatedAt_ = - Finding' - { _fService = Nothing - , _fSeverity = Nothing - , _fSchemaVersion = Nothing - , _fConfidence = Nothing - , _fAssetAttributes = Nothing - , _fServiceAttributes = Nothing - , _fId = Nothing - , _fNumericSeverity = Nothing - , _fAssetType = Nothing - , _fTitle = Nothing - , _fIndicatorOfCompromise = Nothing - , _fDescription = Nothing - , _fRecommendation = Nothing - , _fArn = pArn_ - , _fAttributes = mempty - , _fUserAttributes = mempty - , _fCreatedAt = _Time # pCreatedAt_ - , _fUpdatedAt = _Time # pUpdatedAt_ - } + Finding' + { _fService = Nothing + , _fSeverity = Nothing + , _fSchemaVersion = Nothing + , _fConfidence = Nothing + , _fAssetAttributes = Nothing + , _fServiceAttributes = Nothing + , _fId = Nothing + , _fNumericSeverity = Nothing + , _fAssetType = Nothing + , _fTitle = Nothing + , _fIndicatorOfCompromise = Nothing + , _fDescription = Nothing + , _fRecommendation = Nothing + , _fArn = pArn_ + , _fAttributes = mempty + , _fUserAttributes = mempty + , _fCreatedAt = _Time # pCreatedAt_ + , _fUpdatedAt = _Time # pUpdatedAt_ + } + -- | The data element is set to "Inspector". fService :: Lens' Finding (Maybe Text) fService = lens _fService (\ s a -> s{_fService = a}); @@ -1226,7 +1248,7 @@ fAssetAttributes :: Lens' Finding (Maybe AssetAttributes) fAssetAttributes = lens _fAssetAttributes (\ s a -> s{_fAssetAttributes = a}); --- | Undocumented member. +-- | This data type is used in the 'Finding' data type. fServiceAttributes :: Lens' Finding (Maybe InspectorServiceAttributes) fServiceAttributes = lens _fServiceAttributes (\ s a -> s{_fServiceAttributes = a}); @@ -1301,9 +1323,9 @@ <*> (x .: "createdAt") <*> (x .: "updatedAt")) -instance Hashable Finding +instance Hashable Finding where -instance NFData Finding +instance NFData Finding where -- | This data type is used as a request parameter in the 'ListFindings' action. -- @@ -1311,16 +1333,17 @@ -- -- /See:/ 'findingFilter' smart constructor. data FindingFilter = FindingFilter' - { _ffAgentIds :: !(Maybe [Text]) - , _ffRuleNames :: !(Maybe [Text]) - , _ffUserAttributes :: !(Maybe [Attribute]) - , _ffRulesPackageARNs :: !(Maybe [Text]) - , _ffAttributes :: !(Maybe [Attribute]) - , _ffSeverities :: !(Maybe [Severity]) - , _ffCreationTimeRange :: !(Maybe TimestampRange) - , _ffAutoScalingGroups :: !(Maybe [Text]) - } deriving (Eq,Read,Show,Data,Typeable,Generic) + { _ffAgentIds :: !(Maybe [Text]) + , _ffRuleNames :: !(Maybe [Text]) + , _ffUserAttributes :: !(Maybe [Attribute]) + , _ffRulesPackageARNs :: !(Maybe [Text]) + , _ffAttributes :: !(Maybe [Attribute]) + , _ffSeverities :: !(Maybe [Severity]) + , _ffCreationTimeRange :: !(Maybe TimestampRange) + , _ffAutoScalingGroups :: !(Maybe [Text]) + } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'FindingFilter' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -1343,17 +1366,18 @@ findingFilter :: FindingFilter findingFilter = - FindingFilter' - { _ffAgentIds = Nothing - , _ffRuleNames = Nothing - , _ffUserAttributes = Nothing - , _ffRulesPackageARNs = Nothing - , _ffAttributes = Nothing - , _ffSeverities = Nothing - , _ffCreationTimeRange = Nothing - , _ffAutoScalingGroups = Nothing - } + FindingFilter' + { _ffAgentIds = Nothing + , _ffRuleNames = Nothing + , _ffUserAttributes = Nothing + , _ffRulesPackageARNs = Nothing + , _ffAttributes = Nothing + , _ffSeverities = Nothing + , _ffCreationTimeRange = Nothing + , _ffAutoScalingGroups = Nothing + } + -- | For a record to match a filter, one of the values that is specified for this data type property must be the exact match of the value of the __agentId__ property of the 'Finding' data type. ffAgentIds :: Lens' FindingFilter [Text] ffAgentIds = lens _ffAgentIds (\ s a -> s{_ffAgentIds = a}) . _Default . _Coerce; @@ -1386,9 +1410,9 @@ ffAutoScalingGroups :: Lens' FindingFilter [Text] ffAutoScalingGroups = lens _ffAutoScalingGroups (\ s a -> s{_ffAutoScalingGroups = a}) . _Default . _Coerce; -instance Hashable FindingFilter +instance Hashable FindingFilter where -instance NFData FindingFilter +instance NFData FindingFilter where instance ToJSON FindingFilter where toJSON FindingFilter'{..} @@ -1409,11 +1433,12 @@ -- -- /See:/ 'inspectorServiceAttributes' smart constructor. data InspectorServiceAttributes = InspectorServiceAttributes' - { _isaRulesPackageARN :: !(Maybe Text) - , _isaAssessmentRunARN :: !(Maybe Text) - , _isaSchemaVersion :: !Nat - } deriving (Eq,Read,Show,Data,Typeable,Generic) + { _isaRulesPackageARN :: !(Maybe Text) + , _isaAssessmentRunARN :: !(Maybe Text) + , _isaSchemaVersion :: !Nat + } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'InspectorServiceAttributes' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -1427,12 +1452,13 @@ :: Natural -- ^ 'isaSchemaVersion' -> InspectorServiceAttributes inspectorServiceAttributes pSchemaVersion_ = - InspectorServiceAttributes' - { _isaRulesPackageARN = Nothing - , _isaAssessmentRunARN = Nothing - , _isaSchemaVersion = _Nat # pSchemaVersion_ - } + InspectorServiceAttributes' + { _isaRulesPackageARN = Nothing + , _isaAssessmentRunARN = Nothing + , _isaSchemaVersion = _Nat # pSchemaVersion_ + } + -- | The ARN of the rules package that is used to generate the finding. isaRulesPackageARN :: Lens' InspectorServiceAttributes (Maybe Text) isaRulesPackageARN = lens _isaRulesPackageARN (\ s a -> s{_isaRulesPackageARN = a}); @@ -1454,9 +1480,9 @@ (x .:? "assessmentRunArn") <*> (x .: "schemaVersion")) -instance Hashable InspectorServiceAttributes +instance Hashable InspectorServiceAttributes where -instance NFData InspectorServiceAttributes +instance NFData InspectorServiceAttributes where -- | Contains information about a resource group. The resource group defines a set of tags that, when queried, identify the AWS resources that make up the assessment target. This data type is used as the response element in the 'DescribeResourceGroups' action. -- @@ -1464,11 +1490,12 @@ -- -- /See:/ 'resourceGroup' smart constructor. data ResourceGroup = ResourceGroup' - { _rgArn :: !Text - , _rgTags :: !(List1 ResourceGroupTag) - , _rgCreatedAt :: !POSIX - } deriving (Eq,Read,Show,Data,Typeable,Generic) + { _rgArn :: !Text + , _rgTags :: !(List1 ResourceGroupTag) + , _rgCreatedAt :: !POSIX + } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'ResourceGroup' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -1484,12 +1511,13 @@ -> UTCTime -- ^ 'rgCreatedAt' -> ResourceGroup resourceGroup pArn_ pTags_ pCreatedAt_ = - ResourceGroup' - { _rgArn = pArn_ - , _rgTags = _List1 # pTags_ - , _rgCreatedAt = _Time # pCreatedAt_ - } + ResourceGroup' + { _rgArn = pArn_ + , _rgTags = _List1 # pTags_ + , _rgCreatedAt = _Time # pCreatedAt_ + } + -- | The ARN of the resource group. rgArn :: Lens' ResourceGroup Text rgArn = lens _rgArn (\ s a -> s{_rgArn = a}); @@ -1510,9 +1538,9 @@ (x .: "arn") <*> (x .: "tags") <*> (x .: "createdAt")) -instance Hashable ResourceGroup +instance Hashable ResourceGroup where -instance NFData ResourceGroup +instance NFData ResourceGroup where -- | This data type is used as one of the elements of the 'ResourceGroup' data type. -- @@ -1520,10 +1548,11 @@ -- -- /See:/ 'resourceGroupTag' smart constructor. data ResourceGroupTag = ResourceGroupTag' - { _rgtValue :: !(Maybe Text) - , _rgtKey :: !Text - } deriving (Eq,Read,Show,Data,Typeable,Generic) + { _rgtValue :: !(Maybe Text) + , _rgtKey :: !Text + } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'ResourceGroupTag' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -1535,11 +1564,9 @@ :: Text -- ^ 'rgtKey' -> ResourceGroupTag resourceGroupTag pKey_ = - ResourceGroupTag' - { _rgtValue = Nothing - , _rgtKey = pKey_ - } + ResourceGroupTag' {_rgtValue = Nothing, _rgtKey = pKey_} + -- | The value assigned to a tag key. rgtValue :: Lens' ResourceGroupTag (Maybe Text) rgtValue = lens _rgtValue (\ s a -> s{_rgtValue = a}); @@ -1555,9 +1582,9 @@ ResourceGroupTag' <$> (x .:? "value") <*> (x .: "key")) -instance Hashable ResourceGroupTag +instance Hashable ResourceGroupTag where -instance NFData ResourceGroupTag +instance NFData ResourceGroupTag where instance ToJSON ResourceGroupTag where toJSON ResourceGroupTag'{..} @@ -1572,13 +1599,14 @@ -- -- /See:/ 'rulesPackage' smart constructor. data RulesPackage = RulesPackage' - { _rpDescription :: !(Maybe Text) - , _rpArn :: !Text - , _rpName :: !Text - , _rpVersion :: !Text - , _rpProvider :: !Text - } deriving (Eq,Read,Show,Data,Typeable,Generic) + { _rpDescription :: !(Maybe Text) + , _rpArn :: !Text + , _rpName :: !Text + , _rpVersion :: !Text + , _rpProvider :: !Text + } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'RulesPackage' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -1599,14 +1627,15 @@ -> Text -- ^ 'rpProvider' -> RulesPackage rulesPackage pArn_ pName_ pVersion_ pProvider_ = - RulesPackage' - { _rpDescription = Nothing - , _rpArn = pArn_ - , _rpName = pName_ - , _rpVersion = pVersion_ - , _rpProvider = pProvider_ - } + RulesPackage' + { _rpDescription = Nothing + , _rpArn = pArn_ + , _rpName = pName_ + , _rpVersion = pVersion_ + , _rpProvider = pProvider_ + } + -- | The description of the rules package. rpDescription :: Lens' RulesPackage (Maybe Text) rpDescription = lens _rpDescription (\ s a -> s{_rpDescription = a}); @@ -1637,9 +1666,9 @@ <*> (x .: "version") <*> (x .: "provider")) -instance Hashable RulesPackage +instance Hashable RulesPackage where -instance NFData RulesPackage +instance NFData RulesPackage where -- | This data type is used as a response element in the 'ListEventSubscriptions' action. -- @@ -1647,11 +1676,12 @@ -- -- /See:/ 'subscription' smart constructor. data Subscription = Subscription' - { _sResourceARN :: !Text - , _sTopicARN :: !Text - , _sEventSubscriptions :: !(List1 EventSubscription) - } deriving (Eq,Read,Show,Data,Typeable,Generic) + { _sResourceARN :: !Text + , _sTopicARN :: !Text + , _sEventSubscriptions :: !(List1 EventSubscription) + } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'Subscription' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -1667,12 +1697,13 @@ -> NonEmpty EventSubscription -- ^ 'sEventSubscriptions' -> Subscription subscription pResourceARN_ pTopicARN_ pEventSubscriptions_ = - Subscription' - { _sResourceARN = pResourceARN_ - , _sTopicARN = pTopicARN_ - , _sEventSubscriptions = _List1 # pEventSubscriptions_ - } + Subscription' + { _sResourceARN = pResourceARN_ + , _sTopicARN = pTopicARN_ + , _sEventSubscriptions = _List1 # pEventSubscriptions_ + } + -- | The ARN of the assessment template that is used during the event for which the SNS notification is sent. sResourceARN :: Lens' Subscription Text sResourceARN = lens _sResourceARN (\ s a -> s{_sResourceARN = a}); @@ -1693,9 +1724,9 @@ (x .: "resourceArn") <*> (x .: "topicArn") <*> (x .: "eventSubscriptions")) -instance Hashable Subscription +instance Hashable Subscription where -instance NFData Subscription +instance NFData Subscription where -- | A key and value pair. This data type is used as a request parameter in the 'SetTagsForResource' action and a response element in the 'ListTagsForResource' action. -- @@ -1703,10 +1734,11 @@ -- -- /See:/ 'tag' smart constructor. data Tag = Tag' - { _tagValue :: !(Maybe Text) - , _tagKey :: !Text - } deriving (Eq,Read,Show,Data,Typeable,Generic) + { _tagValue :: !(Maybe Text) + , _tagKey :: !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: @@ -1717,12 +1749,9 @@ tag :: Text -- ^ 'tagKey' -> Tag -tag pKey_ = - Tag' - { _tagValue = Nothing - , _tagKey = pKey_ - } +tag pKey_ = Tag' {_tagValue = Nothing, _tagKey = pKey_} + -- | A value assigned to a tag key. tagValue :: Lens' Tag (Maybe Text) tagValue = lens _tagValue (\ s a -> s{_tagValue = a}); @@ -1736,9 +1765,9 @@ = withObject "Tag" (\ x -> Tag' <$> (x .:? "value") <*> (x .: "key")) -instance Hashable Tag +instance Hashable Tag where -instance NFData Tag +instance NFData Tag where instance ToJSON Tag where toJSON Tag'{..} @@ -1753,11 +1782,12 @@ -- -- /See:/ 'telemetryMetadata' smart constructor. data TelemetryMetadata = TelemetryMetadata' - { _tmDataSize :: !(Maybe Integer) - , _tmMessageType :: !Text - , _tmCount :: !Integer - } deriving (Eq,Read,Show,Data,Typeable,Generic) + { _tmDataSize :: !(Maybe Integer) + , _tmMessageType :: !Text + , _tmCount :: !Integer + } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'TelemetryMetadata' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -1772,12 +1802,10 @@ -> Integer -- ^ 'tmCount' -> TelemetryMetadata telemetryMetadata pMessageType_ pCount_ = - TelemetryMetadata' - { _tmDataSize = Nothing - , _tmMessageType = pMessageType_ - , _tmCount = pCount_ - } + TelemetryMetadata' + {_tmDataSize = Nothing, _tmMessageType = pMessageType_, _tmCount = pCount_} + -- | The data size of messages that the agent sends to the Amazon Inspector service. tmDataSize :: Lens' TelemetryMetadata (Maybe Integer) tmDataSize = lens _tmDataSize (\ s a -> s{_tmDataSize = a}); @@ -1798,9 +1826,9 @@ (x .:? "dataSize") <*> (x .: "messageType") <*> (x .: "count")) -instance Hashable TelemetryMetadata +instance Hashable TelemetryMetadata where -instance NFData TelemetryMetadata +instance NFData TelemetryMetadata where -- | This data type is used in the 'AssessmentRunFilter' data type. -- @@ -1808,10 +1836,11 @@ -- -- /See:/ 'timestampRange' smart constructor. data TimestampRange = TimestampRange' - { _trEndDate :: !(Maybe POSIX) - , _trBeginDate :: !(Maybe POSIX) - } deriving (Eq,Read,Show,Data,Typeable,Generic) + { _trEndDate :: !(Maybe POSIX) + , _trBeginDate :: !(Maybe POSIX) + } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'TimestampRange' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -1821,12 +1850,9 @@ -- * 'trBeginDate' - The minimum value of the timestamp range. timestampRange :: TimestampRange -timestampRange = - TimestampRange' - { _trEndDate = Nothing - , _trBeginDate = Nothing - } +timestampRange = TimestampRange' {_trEndDate = Nothing, _trBeginDate = Nothing} + -- | The maximum value of the timestamp range. trEndDate :: Lens' TimestampRange (Maybe UTCTime) trEndDate = lens _trEndDate (\ s a -> s{_trEndDate = a}) . mapping _Time; @@ -1835,9 +1861,9 @@ trBeginDate :: Lens' TimestampRange (Maybe UTCTime) trBeginDate = lens _trBeginDate (\ s a -> s{_trBeginDate = a}) . mapping _Time; -instance Hashable TimestampRange +instance Hashable TimestampRange where -instance NFData TimestampRange +instance NFData TimestampRange where instance ToJSON TimestampRange where toJSON TimestampRange'{..} diff --git a/gen/Network/AWS/Inspector/Types/Sum.hs b/gen/Network/AWS/Inspector/Types/Sum.hs --- a/gen/Network/AWS/Inspector/Types/Sum.hs +++ b/gen/Network/AWS/Inspector/Types/Sum.hs @@ -9,21 +9,22 @@ -- | -- Module : Network.AWS.Inspector.Types.Sum --- Copyright : (c) 2013-2016 Brendan Hay +-- Copyright : (c) 2013-2017 Brendan Hay -- License : Mozilla Public License, v. 2.0. --- Maintainer : Brendan Hay +-- Maintainer : Brendan Hay -- Stability : auto-generated -- Portability : non-portable (GHC extensions) -- module Network.AWS.Inspector.Types.Sum where -import Network.AWS.Prelude +import Network.AWS.Prelude data AgentHealth - = AHHealthy - | AHUnhealthy - deriving (Eq,Ord,Read,Show,Enum,Bounded,Data,Typeable,Generic) + = AHHealthy + | AHUnhealthy + deriving (Eq, Ord, Read, Show, Enum, Bounded, Data, Typeable, Generic) + instance FromText AgentHealth where parser = takeLowerText >>= \case "healthy" -> pure AHHealthy @@ -49,14 +50,15 @@ parseJSON = parseJSONText "AgentHealth" data AgentHealthCode - = Idle - | Running - | Shutdown - | Throttled - | Unhealthy - | Unknown - deriving (Eq,Ord,Read,Show,Enum,Bounded,Data,Typeable,Generic) + = Idle + | Running + | Shutdown + | Throttled + | Unhealthy + | Unknown + deriving (Eq, Ord, Read, Show, Enum, Bounded, Data, Typeable, Generic) + instance FromText AgentHealthCode where parser = takeLowerText >>= \case "idle" -> pure Idle @@ -90,12 +92,13 @@ parseJSON = parseJSONText "AgentHealthCode" data AssessmentRunNotificationSNSStatusCode - = AccessDenied - | InternalError - | Success - | TopicDoesNotExist - deriving (Eq,Ord,Read,Show,Enum,Bounded,Data,Typeable,Generic) + = AccessDenied + | InternalError + | Success + | TopicDoesNotExist + deriving (Eq, Ord, Read, Show, Enum, Bounded, Data, Typeable, Generic) + instance FromText AssessmentRunNotificationSNSStatusCode where parser = takeLowerText >>= \case "access_denied" -> pure AccessDenied @@ -122,44 +125,54 @@ parseJSON = parseJSONText "AssessmentRunNotificationSNSStatusCode" data AssessmentRunState - = CollectingData - | Completed - | CompletedWithErrors - | Created - | DataCollected - | EvaluatingRules - | Failed - | StartDataCollectionInProgress - | StartDataCollectionPending - | StopDataCollectionPending - deriving (Eq,Ord,Read,Show,Enum,Bounded,Data,Typeable,Generic) + = Canceled + | CollectingData + | Completed + | CompletedWithErrors + | Created + | DataCollected + | Error' + | EvaluatingRules + | Failed + | StartDataCollectionInProgress + | StartDataCollectionPending + | StartEvaluatingRulesPending + | StopDataCollectionPending + deriving (Eq, Ord, Read, Show, Enum, Bounded, Data, Typeable, Generic) + instance FromText AssessmentRunState where parser = takeLowerText >>= \case + "canceled" -> pure Canceled "collecting_data" -> pure CollectingData "completed" -> pure Completed "completed_with_errors" -> pure CompletedWithErrors "created" -> pure Created "data_collected" -> pure DataCollected + "error" -> pure Error' "evaluating_rules" -> pure EvaluatingRules "failed" -> pure Failed "start_data_collection_in_progress" -> pure StartDataCollectionInProgress "start_data_collection_pending" -> pure StartDataCollectionPending + "start_evaluating_rules_pending" -> pure StartEvaluatingRulesPending "stop_data_collection_pending" -> pure StopDataCollectionPending e -> fromTextError $ "Failure parsing AssessmentRunState from value: '" <> e - <> "'. Accepted values: collecting_data, completed, completed_with_errors, created, data_collected, evaluating_rules, failed, start_data_collection_in_progress, start_data_collection_pending, stop_data_collection_pending" + <> "'. Accepted values: canceled, collecting_data, completed, completed_with_errors, created, data_collected, error, evaluating_rules, failed, start_data_collection_in_progress, start_data_collection_pending, start_evaluating_rules_pending, stop_data_collection_pending" instance ToText AssessmentRunState where toText = \case + Canceled -> "CANCELED" CollectingData -> "COLLECTING_DATA" Completed -> "COMPLETED" CompletedWithErrors -> "COMPLETED_WITH_ERRORS" Created -> "CREATED" DataCollected -> "DATA_COLLECTED" + Error' -> "ERROR" EvaluatingRules -> "EVALUATING_RULES" Failed -> "FAILED" StartDataCollectionInProgress -> "START_DATA_COLLECTION_IN_PROGRESS" StartDataCollectionPending -> "START_DATA_COLLECTION_PENDING" + StartEvaluatingRulesPending -> "START_EVALUATING_RULES_PENDING" StopDataCollectionPending -> "STOP_DATA_COLLECTION_PENDING" instance Hashable AssessmentRunState @@ -175,9 +188,10 @@ parseJSON = parseJSONText "AssessmentRunState" data AssetType = - EC2Instance - deriving (Eq,Ord,Read,Show,Enum,Bounded,Data,Typeable,Generic) + EC2Instance + deriving (Eq, Ord, Read, Show, Enum, Bounded, Data, Typeable, Generic) + instance FromText AssetType where parser = takeLowerText >>= \case "ec2-instance" -> pure EC2Instance @@ -198,14 +212,15 @@ parseJSON = parseJSONText "AssetType" data FailedItemErrorCode - = FIECAccessDenied - | FIECDuplicateARN - | FIECInternalError - | FIECInvalidARN - | FIECItemDoesNotExist - | FIECLimitExceeded - deriving (Eq,Ord,Read,Show,Enum,Bounded,Data,Typeable,Generic) + = FIECAccessDenied + | FIECDuplicateARN + | FIECInternalError + | FIECInvalidARN + | FIECItemDoesNotExist + | FIECLimitExceeded + deriving (Eq, Ord, Read, Show, Enum, Bounded, Data, Typeable, Generic) + instance FromText FailedItemErrorCode where parser = takeLowerText >>= \case "access_denied" -> pure FIECAccessDenied @@ -236,13 +251,14 @@ parseJSON = parseJSONText "FailedItemErrorCode" data InspectorEvent - = AssessmentRunCompleted - | AssessmentRunStarted - | AssessmentRunStateChanged - | FindingReported - | Other - deriving (Eq,Ord,Read,Show,Enum,Bounded,Data,Typeable,Generic) + = AssessmentRunCompleted + | AssessmentRunStarted + | AssessmentRunStateChanged + | FindingReported + | Other + deriving (Eq, Ord, Read, Show, Enum, Bounded, Data, Typeable, Generic) + instance FromText InspectorEvent where parser = takeLowerText >>= \case "assessment_run_completed" -> pure AssessmentRunCompleted @@ -274,9 +290,10 @@ parseJSON = parseJSONText "InspectorEvent" data Locale = - EnUs - deriving (Eq,Ord,Read,Show,Enum,Bounded,Data,Typeable,Generic) + EnUs + deriving (Eq, Ord, Read, Show, Enum, Bounded, Data, Typeable, Generic) + instance FromText Locale where parser = takeLowerText >>= \case "en_us" -> pure EnUs @@ -296,14 +313,99 @@ instance ToJSON Locale where toJSON = toJSONText +data ReportFileFormat + = HTML + | Pdf + deriving (Eq, Ord, Read, Show, Enum, Bounded, Data, Typeable, Generic) + + +instance FromText ReportFileFormat where + parser = takeLowerText >>= \case + "html" -> pure HTML + "pdf" -> pure Pdf + e -> fromTextError $ "Failure parsing ReportFileFormat from value: '" <> e + <> "'. Accepted values: html, pdf" + +instance ToText ReportFileFormat where + toText = \case + HTML -> "HTML" + Pdf -> "PDF" + +instance Hashable ReportFileFormat +instance NFData ReportFileFormat +instance ToByteString ReportFileFormat +instance ToQuery ReportFileFormat +instance ToHeader ReportFileFormat + +instance ToJSON ReportFileFormat where + toJSON = toJSONText + +data ReportStatus + = RSCompleted + | RSFailed + | RSWorkInProgress + deriving (Eq, Ord, Read, Show, Enum, Bounded, Data, Typeable, Generic) + + +instance FromText ReportStatus where + parser = takeLowerText >>= \case + "completed" -> pure RSCompleted + "failed" -> pure RSFailed + "work_in_progress" -> pure RSWorkInProgress + e -> fromTextError $ "Failure parsing ReportStatus from value: '" <> e + <> "'. Accepted values: completed, failed, work_in_progress" + +instance ToText ReportStatus where + toText = \case + RSCompleted -> "COMPLETED" + RSFailed -> "FAILED" + RSWorkInProgress -> "WORK_IN_PROGRESS" + +instance Hashable ReportStatus +instance NFData ReportStatus +instance ToByteString ReportStatus +instance ToQuery ReportStatus +instance ToHeader ReportStatus + +instance FromJSON ReportStatus where + parseJSON = parseJSONText "ReportStatus" + +data ReportType + = Finding + | Full + deriving (Eq, Ord, Read, Show, Enum, Bounded, Data, Typeable, Generic) + + +instance FromText ReportType where + parser = takeLowerText >>= \case + "finding" -> pure Finding + "full" -> pure Full + e -> fromTextError $ "Failure parsing ReportType from value: '" <> e + <> "'. Accepted values: finding, full" + +instance ToText ReportType where + toText = \case + Finding -> "FINDING" + Full -> "FULL" + +instance Hashable ReportType +instance NFData ReportType +instance ToByteString ReportType +instance ToQuery ReportType +instance ToHeader ReportType + +instance ToJSON ReportType where + toJSON = toJSONText + data Severity - = High - | Informational - | Low - | Medium - | Undefined - deriving (Eq,Ord,Read,Show,Enum,Bounded,Data,Typeable,Generic) + = High + | Informational + | Low + | Medium + | Undefined + deriving (Eq, Ord, Read, Show, Enum, Bounded, Data, Typeable, Generic) + instance FromText Severity where parser = takeLowerText >>= \case "high" -> pure High @@ -333,3 +435,30 @@ instance FromJSON Severity where parseJSON = parseJSONText "Severity" + +data StopAction + = SkipEvaluation + | StartEvaluation + deriving (Eq, Ord, Read, Show, Enum, Bounded, Data, Typeable, Generic) + + +instance FromText StopAction where + parser = takeLowerText >>= \case + "skip_evaluation" -> pure SkipEvaluation + "start_evaluation" -> pure StartEvaluation + e -> fromTextError $ "Failure parsing StopAction from value: '" <> e + <> "'. Accepted values: skip_evaluation, start_evaluation" + +instance ToText StopAction where + toText = \case + SkipEvaluation -> "SKIP_EVALUATION" + StartEvaluation -> "START_EVALUATION" + +instance Hashable StopAction +instance NFData StopAction +instance ToByteString StopAction +instance ToQuery StopAction +instance ToHeader StopAction + +instance ToJSON StopAction where + toJSON = toJSONText diff --git a/gen/Network/AWS/Inspector/UnsubscribeFromEvent.hs b/gen/Network/AWS/Inspector/UnsubscribeFromEvent.hs --- a/gen/Network/AWS/Inspector/UnsubscribeFromEvent.hs +++ b/gen/Network/AWS/Inspector/UnsubscribeFromEvent.hs @@ -12,9 +12,9 @@ -- | -- Module : Network.AWS.Inspector.UnsubscribeFromEvent --- Copyright : (c) 2013-2016 Brendan Hay +-- Copyright : (c) 2013-2017 Brendan Hay -- License : Mozilla Public License, v. 2.0. --- Maintainer : Brendan Hay +-- Maintainer : Brendan Hay -- Stability : auto-generated -- Portability : non-portable (GHC extensions) -- @@ -36,20 +36,21 @@ , UnsubscribeFromEventResponse ) where -import Network.AWS.Inspector.Types -import Network.AWS.Inspector.Types.Product -import Network.AWS.Lens -import Network.AWS.Prelude -import Network.AWS.Request -import Network.AWS.Response +import Network.AWS.Inspector.Types +import Network.AWS.Inspector.Types.Product +import Network.AWS.Lens +import Network.AWS.Prelude +import Network.AWS.Request +import Network.AWS.Response -- | /See:/ 'unsubscribeFromEvent' smart constructor. data UnsubscribeFromEvent = UnsubscribeFromEvent' - { _ufeResourceARN :: !Text - , _ufeEvent :: !InspectorEvent - , _ufeTopicARN :: !Text - } deriving (Eq,Read,Show,Data,Typeable,Generic) + { _ufeResourceARN :: !Text + , _ufeEvent :: !InspectorEvent + , _ufeTopicARN :: !Text + } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'UnsubscribeFromEvent' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -65,12 +66,13 @@ -> Text -- ^ 'ufeTopicARN' -> UnsubscribeFromEvent unsubscribeFromEvent pResourceARN_ pEvent_ pTopicARN_ = - UnsubscribeFromEvent' - { _ufeResourceARN = pResourceARN_ - , _ufeEvent = pEvent_ - , _ufeTopicARN = pTopicARN_ - } + UnsubscribeFromEvent' + { _ufeResourceARN = pResourceARN_ + , _ufeEvent = pEvent_ + , _ufeTopicARN = pTopicARN_ + } + -- | The ARN of the assessment template that is used during the event for which you want to stop receiving SNS notifications. ufeResourceARN :: Lens' UnsubscribeFromEvent Text ufeResourceARN = lens _ufeResourceARN (\ s a -> s{_ufeResourceARN = a}); @@ -89,9 +91,9 @@ request = postJSON inspector response = receiveNull UnsubscribeFromEventResponse' -instance Hashable UnsubscribeFromEvent +instance Hashable UnsubscribeFromEvent where -instance NFData UnsubscribeFromEvent +instance NFData UnsubscribeFromEvent where instance ToHeaders UnsubscribeFromEvent where toHeaders @@ -119,13 +121,15 @@ -- | /See:/ 'unsubscribeFromEventResponse' smart constructor. data UnsubscribeFromEventResponse = - UnsubscribeFromEventResponse' - deriving (Eq,Read,Show,Data,Typeable,Generic) + UnsubscribeFromEventResponse' + deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'UnsubscribeFromEventResponse' with the minimum fields required to make a request. -- unsubscribeFromEventResponse :: UnsubscribeFromEventResponse unsubscribeFromEventResponse = UnsubscribeFromEventResponse' -instance NFData UnsubscribeFromEventResponse + +instance NFData UnsubscribeFromEventResponse where diff --git a/gen/Network/AWS/Inspector/UpdateAssessmentTarget.hs b/gen/Network/AWS/Inspector/UpdateAssessmentTarget.hs --- a/gen/Network/AWS/Inspector/UpdateAssessmentTarget.hs +++ b/gen/Network/AWS/Inspector/UpdateAssessmentTarget.hs @@ -12,9 +12,9 @@ -- | -- Module : Network.AWS.Inspector.UpdateAssessmentTarget --- Copyright : (c) 2013-2016 Brendan Hay +-- Copyright : (c) 2013-2017 Brendan Hay -- License : Mozilla Public License, v. 2.0. --- Maintainer : Brendan Hay +-- Maintainer : Brendan Hay -- Stability : auto-generated -- Portability : non-portable (GHC extensions) -- @@ -36,20 +36,21 @@ , UpdateAssessmentTargetResponse ) where -import Network.AWS.Inspector.Types -import Network.AWS.Inspector.Types.Product -import Network.AWS.Lens -import Network.AWS.Prelude -import Network.AWS.Request -import Network.AWS.Response +import Network.AWS.Inspector.Types +import Network.AWS.Inspector.Types.Product +import Network.AWS.Lens +import Network.AWS.Prelude +import Network.AWS.Request +import Network.AWS.Response -- | /See:/ 'updateAssessmentTarget' smart constructor. data UpdateAssessmentTarget = UpdateAssessmentTarget' - { _uatAssessmentTargetARN :: !Text - , _uatAssessmentTargetName :: !Text - , _uatResourceGroupARN :: !Text - } deriving (Eq,Read,Show,Data,Typeable,Generic) + { _uatAssessmentTargetARN :: !Text + , _uatAssessmentTargetName :: !Text + , _uatResourceGroupARN :: !Text + } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'UpdateAssessmentTarget' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -65,12 +66,13 @@ -> Text -- ^ 'uatResourceGroupARN' -> UpdateAssessmentTarget updateAssessmentTarget pAssessmentTargetARN_ pAssessmentTargetName_ pResourceGroupARN_ = - UpdateAssessmentTarget' - { _uatAssessmentTargetARN = pAssessmentTargetARN_ - , _uatAssessmentTargetName = pAssessmentTargetName_ - , _uatResourceGroupARN = pResourceGroupARN_ - } + UpdateAssessmentTarget' + { _uatAssessmentTargetARN = pAssessmentTargetARN_ + , _uatAssessmentTargetName = pAssessmentTargetName_ + , _uatResourceGroupARN = pResourceGroupARN_ + } + -- | The ARN of the assessment target that you want to update. uatAssessmentTargetARN :: Lens' UpdateAssessmentTarget Text uatAssessmentTargetARN = lens _uatAssessmentTargetARN (\ s a -> s{_uatAssessmentTargetARN = a}); @@ -90,9 +92,9 @@ response = receiveNull UpdateAssessmentTargetResponse' -instance Hashable UpdateAssessmentTarget +instance Hashable UpdateAssessmentTarget where -instance NFData UpdateAssessmentTarget +instance NFData UpdateAssessmentTarget where instance ToHeaders UpdateAssessmentTarget where toHeaders @@ -122,13 +124,15 @@ -- | /See:/ 'updateAssessmentTargetResponse' smart constructor. data UpdateAssessmentTargetResponse = - UpdateAssessmentTargetResponse' - deriving (Eq,Read,Show,Data,Typeable,Generic) + UpdateAssessmentTargetResponse' + deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'UpdateAssessmentTargetResponse' with the minimum fields required to make a request. -- updateAssessmentTargetResponse :: UpdateAssessmentTargetResponse updateAssessmentTargetResponse = UpdateAssessmentTargetResponse' -instance NFData UpdateAssessmentTargetResponse + +instance NFData UpdateAssessmentTargetResponse where diff --git a/gen/Network/AWS/Inspector/Waiters.hs b/gen/Network/AWS/Inspector/Waiters.hs --- a/gen/Network/AWS/Inspector/Waiters.hs +++ b/gen/Network/AWS/Inspector/Waiters.hs @@ -7,15 +7,15 @@ -- | -- Module : Network.AWS.Inspector.Waiters --- Copyright : (c) 2013-2016 Brendan Hay +-- Copyright : (c) 2013-2017 Brendan Hay -- License : Mozilla Public License, v. 2.0. --- Maintainer : Brendan Hay +-- Maintainer : Brendan Hay -- Stability : auto-generated -- Portability : non-portable (GHC extensions) -- module Network.AWS.Inspector.Waiters where -import Network.AWS.Inspector.Types -import Network.AWS.Lens -import Network.AWS.Prelude -import Network.AWS.Waiter +import Network.AWS.Inspector.Types +import Network.AWS.Lens +import Network.AWS.Prelude +import Network.AWS.Waiter diff --git a/test/Main.hs b/test/Main.hs --- a/test/Main.hs +++ b/test/Main.hs @@ -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 +-- Maintainer : Brendan Hay -- Stability : auto-generated -- Portability : non-portable (GHC extensions) -- diff --git a/test/Test/AWS/Gen/Inspector.hs b/test/Test/AWS/Gen/Inspector.hs --- a/test/Test/AWS/Gen/Inspector.hs +++ b/test/Test/AWS/Gen/Inspector.hs @@ -5,20 +5,20 @@ -- | -- Module : Test.AWS.Gen.Inspector --- Copyright : (c) 2013-2016 Brendan Hay +-- Copyright : (c) 2013-2017 Brendan Hay -- License : Mozilla Public License, v. 2.0. --- Maintainer : Brendan Hay +-- Maintainer : Brendan Hay -- Stability : auto-generated -- Portability : non-portable (GHC extensions) -- module Test.AWS.Gen.Inspector where import Data.Proxy +import Network.AWS.Inspector import Test.AWS.Fixture +import Test.AWS.Inspector.Internal import Test.AWS.Prelude import Test.Tasty -import Network.AWS.Inspector -import Test.AWS.Inspector.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. @@ -109,6 +109,9 @@ -- , requestListAssessmentRuns $ -- listAssessmentRuns -- +-- , requestGetAssessmentReport $ +-- getAssessmentReport +-- -- , requestListRulesPackages $ -- listRulesPackages -- @@ -208,6 +211,9 @@ -- , responseListAssessmentRuns $ -- listAssessmentRunsResponse -- +-- , responseGetAssessmentReport $ +-- getAssessmentReportResponse +-- -- , responseListRulesPackages $ -- listRulesPackagesResponse -- @@ -363,6 +369,11 @@ "ListAssessmentRuns" "fixture/ListAssessmentRuns.yaml" +requestGetAssessmentReport :: GetAssessmentReport -> TestTree +requestGetAssessmentReport = req + "GetAssessmentReport" + "fixture/GetAssessmentReport.yaml" + requestListRulesPackages :: ListRulesPackages -> TestTree requestListRulesPackages = req "ListRulesPackages" @@ -578,6 +589,13 @@ "fixture/ListAssessmentRunsResponse.proto" inspector (Proxy :: Proxy ListAssessmentRuns) + +responseGetAssessmentReport :: GetAssessmentReportResponse -> TestTree +responseGetAssessmentReport = res + "GetAssessmentReportResponse" + "fixture/GetAssessmentReportResponse.proto" + inspector + (Proxy :: Proxy GetAssessmentReport) responseListRulesPackages :: ListRulesPackagesResponse -> TestTree responseListRulesPackages = res