diff --git a/README.md b/README.md --- a/README.md +++ b/README.md @@ -8,32 +8,27 @@ ## Version -`1.4.4` +`1.4.5` ## Description -AWS CloudTrail - -This is the CloudTrail API Reference. It provides descriptions of actions, data types, common parameters, and common errors for CloudTrail. - -CloudTrail is a web service that records AWS API calls for your AWS account and delivers log files to an Amazon S3 bucket. The recorded information includes the identity of the user, the start time of the AWS API call, the source IP address, the request parameters, and the response elements returned by the service. - -As an alternative to the API, you can use one of the AWS SDKs, which consist of libraries and sample code for various programming languages and platforms (Java, Ruby, .NET, iOS, Android, etc.). The SDKs provide a convenient way to create programmatic access to AWSCloudTrail. For example, the SDKs take care of cryptographically signing requests, managing errors, and retrying requests automatically. For information about the AWS SDKs, including how to download and install them, see the . - -See the CloudTrail User Guide for information about the data that is included with each AWS API call listed in the log files. - Documentation is available via [Hackage](http://hackage.haskell.org/package/amazonka-cloudtrail) and the [AWS API Reference](https://aws.amazon.com/documentation/). The types from this library are intended to be used with [amazonka](http://hackage.haskell.org/package/amazonka), -which provides mechanisms for specifying AuthN/AuthZ information and sending requests. +which provides mechanisms for specifying AuthN/AuthZ information, sending requests, +and receiving responses. -Use of lenses is required for constructing and manipulating types. -This is due to the amount of nesting of AWS types and transparency regarding +Lenses are used for constructing and manipulating types, +due to the depth of nesting of AWS types and transparency regarding de/serialisation into more palatable Haskell values. The provided lenses should be compatible with any of the major lens libraries [lens](http://hackage.haskell.org/package/lens) or [lens-family-core](http://hackage.haskell.org/package/lens-family-core). + +See [Network.AWS.CloudTrail](http://hackage.haskell.org/package/amazonka-cloudtrail/docs/Network-AWS-CloudTrail.html) +or [the AWS documentation](https://aws.amazon.com/documentation/) to get started. + ## Contribute diff --git a/amazonka-cloudtrail.cabal b/amazonka-cloudtrail.cabal --- a/amazonka-cloudtrail.cabal +++ b/amazonka-cloudtrail.cabal @@ -1,5 +1,5 @@ name: amazonka-cloudtrail -version: 1.4.4 +version: 1.4.5 synopsis: Amazon CloudTrail SDK. homepage: https://github.com/brendanhay/amazonka bug-reports: https://github.com/brendanhay/amazonka/issues @@ -13,28 +13,19 @@ cabal-version: >= 1.10 extra-source-files: README.md fixture/*.yaml fixture/*.proto src/.gitkeep description: - AWS CloudTrail - - This is the CloudTrail API Reference. It provides descriptions of actions, data types, common parameters, and common errors for CloudTrail. - - CloudTrail is a web service that records AWS API calls for your AWS account and delivers log files to an Amazon S3 bucket. The recorded information includes the identity of the user, the start time of the AWS API call, the source IP address, the request parameters, and the response elements returned by the service. - - As an alternative to the API, you can use one of the AWS SDKs, which consist of libraries and sample code for various programming languages and platforms (Java, Ruby, .NET, iOS, Android, etc.). The SDKs provide a convenient way to create programmatic access to AWSCloudTrail. For example, the SDKs take care of cryptographically signing requests, managing errors, and retrying requests automatically. For information about the AWS SDKs, including how to download and install them, see the . - - See the CloudTrail User Guide for information about the data that is included with each AWS API call listed in the log files. - . The types from this library are intended to be used with , which provides - mechanisms for specifying AuthN/AuthZ information and sending requests. + mechanisms for specifying AuthN/AuthZ information, sending requests, + and receiving responses. . - Use of lenses is required for constructing and manipulating types. - This is due to the amount of nesting of AWS types and transparency regarding + Lenses are used for constructing and manipulating types, + due to the depth of nesting of AWS types and transparency regarding de/serialisation into more palatable Haskell values. The provided lenses should be compatible with any of the major lens libraries such as or . . - See "Network.AWS.CloudTrail" or + See "Network.AWS.CloudTrail" or to get started. source-repository head @@ -53,10 +44,12 @@ , Network.AWS.CloudTrail.CreateTrail , Network.AWS.CloudTrail.DeleteTrail , Network.AWS.CloudTrail.DescribeTrails + , Network.AWS.CloudTrail.GetEventSelectors , Network.AWS.CloudTrail.GetTrailStatus , Network.AWS.CloudTrail.ListPublicKeys , Network.AWS.CloudTrail.ListTags , Network.AWS.CloudTrail.LookupEvents + , Network.AWS.CloudTrail.PutEventSelectors , Network.AWS.CloudTrail.RemoveTags , Network.AWS.CloudTrail.StartLogging , Network.AWS.CloudTrail.StopLogging @@ -69,7 +62,7 @@ , Network.AWS.CloudTrail.Types.Sum build-depends: - amazonka-core == 1.4.4.* + amazonka-core == 1.4.5.* , base >= 4.7 && < 5 test-suite amazonka-cloudtrail-test @@ -89,9 +82,9 @@ , Test.AWS.CloudTrail.Internal build-depends: - amazonka-core == 1.4.4.* - , amazonka-test == 1.4.4.* - , amazonka-cloudtrail == 1.4.4.* + amazonka-core == 1.4.5.* + , amazonka-test == 1.4.5.* + , amazonka-cloudtrail == 1.4.5.* , base , bytestring , tasty diff --git a/fixture/GetEventSelectors.yaml b/fixture/GetEventSelectors.yaml new file mode 100644 --- /dev/null +++ b/fixture/GetEventSelectors.yaml diff --git a/fixture/GetEventSelectorsResponse.proto b/fixture/GetEventSelectorsResponse.proto new file mode 100644 --- /dev/null +++ b/fixture/GetEventSelectorsResponse.proto diff --git a/fixture/PutEventSelectors.yaml b/fixture/PutEventSelectors.yaml new file mode 100644 --- /dev/null +++ b/fixture/PutEventSelectors.yaml diff --git a/fixture/PutEventSelectorsResponse.proto b/fixture/PutEventSelectorsResponse.proto new file mode 100644 --- /dev/null +++ b/fixture/PutEventSelectorsResponse.proto diff --git a/gen/Network/AWS/CloudTrail.hs b/gen/Network/AWS/CloudTrail.hs --- a/gen/Network/AWS/CloudTrail.hs +++ b/gen/Network/AWS/CloudTrail.hs @@ -11,15 +11,14 @@ -- Stability : auto-generated -- Portability : non-portable (GHC extensions) -- --- AWS CloudTrail +-- __AWS CloudTrail__ -- -- This is the CloudTrail API Reference. It provides descriptions of actions, data types, common parameters, and common errors for CloudTrail. -- -- CloudTrail is a web service that records AWS API calls for your AWS account and delivers log files to an Amazon S3 bucket. The recorded information includes the identity of the user, the start time of the AWS API call, the source IP address, the request parameters, and the response elements returned by the service. -- --- As an alternative to the API, you can use one of the AWS SDKs, which consist of libraries and sample code for various programming languages and platforms (Java, Ruby, .NET, iOS, Android, etc.). The SDKs provide a convenient way to create programmatic access to AWSCloudTrail. For example, the SDKs take care of cryptographically signing requests, managing errors, and retrying requests automatically. For information about the AWS SDKs, including how to download and install them, see the . +-- See the for information about the data that is included with each AWS API call listed in the log files. -- --- See the CloudTrail User Guide for information about the data that is included with each AWS API call listed in the log files. module Network.AWS.CloudTrail ( -- * Service Configuration @@ -79,6 +78,9 @@ -- ** TrailNotFoundException , _TrailNotFoundException + -- ** InvalidEventSelectorsException + , _InvalidEventSelectorsException + -- ** TrailNotProvidedException , _TrailNotProvidedException @@ -157,6 +159,9 @@ -- ** CreateTrail , module Network.AWS.CloudTrail.CreateTrail + -- ** GetEventSelectors + , module Network.AWS.CloudTrail.GetEventSelectors + -- ** GetTrailStatus , module Network.AWS.CloudTrail.GetTrailStatus @@ -166,6 +171,9 @@ -- ** ListTags , module Network.AWS.CloudTrail.ListTags + -- ** PutEventSelectors + , module Network.AWS.CloudTrail.PutEventSelectors + -- ** StartLogging , module Network.AWS.CloudTrail.StartLogging @@ -174,6 +182,15 @@ -- ** LookupAttributeKey , LookupAttributeKey (..) + -- ** ReadWriteType + , ReadWriteType (..) + + -- ** DataResource + , DataResource + , dataResource + , drValues + , drType + -- ** Event , Event , event @@ -182,8 +199,16 @@ , eEventTime , eCloudTrailEvent , eEventName + , eEventSource , eEventId + -- ** EventSelector + , EventSelector + , eventSelector + , esDataResources + , esReadWriteType + , esIncludeManagementEvents + -- ** LookupAttribute , LookupAttribute , lookupAttribute @@ -229,6 +254,7 @@ , tHomeRegion , tName , tIncludeGlobalServiceEvents + , tHasCustomEventSelectors , tCloudWatchLogsRoleARN , tS3BucketName , tIsMultiRegionTrail @@ -238,10 +264,12 @@ import Network.AWS.CloudTrail.CreateTrail import Network.AWS.CloudTrail.DeleteTrail import Network.AWS.CloudTrail.DescribeTrails +import Network.AWS.CloudTrail.GetEventSelectors import Network.AWS.CloudTrail.GetTrailStatus import Network.AWS.CloudTrail.ListPublicKeys import Network.AWS.CloudTrail.ListTags import Network.AWS.CloudTrail.LookupEvents +import Network.AWS.CloudTrail.PutEventSelectors import Network.AWS.CloudTrail.RemoveTags import Network.AWS.CloudTrail.StartLogging import Network.AWS.CloudTrail.StopLogging diff --git a/gen/Network/AWS/CloudTrail/AddTags.hs b/gen/Network/AWS/CloudTrail/AddTags.hs --- a/gen/Network/AWS/CloudTrail/AddTags.hs +++ b/gen/Network/AWS/CloudTrail/AddTags.hs @@ -18,7 +18,9 @@ -- Stability : auto-generated -- Portability : non-portable (GHC extensions) -- --- Adds one or more tags to a trail, up to a limit of 10. Tags must be unique per trail. Overwrites an existing tag\'s value when a new value is specified for an existing tag key. If you specify a key without a value, the tag will be created with the specified key and a value of null. You can tag a trail that applies to all regions only from the region in which the trail was created (that is, from its home region). +-- Adds one or more tags to a trail, up to a limit of 50. Tags must be unique per trail. Overwrites an existing tag's value when a new value is specified for an existing tag key. If you specify a key without a value, the tag will be created with the specified key and a value of null. You can tag a trail that applies to all regions only from the region in which the trail was created (that is, from its home region). +-- +-- module Network.AWS.CloudTrail.AddTags ( -- * Creating a Request @@ -44,6 +46,8 @@ -- | Specifies the tags to add to a trail. -- +-- +-- -- /See:/ 'addTags' smart constructor. data AddTags = AddTags' { _atTagsList :: !(Maybe [Tag]) @@ -54,9 +58,9 @@ -- -- Use one of the following lenses to modify other fields as desired: -- --- * 'atTagsList' +-- * 'atTagsList' - Contains a list of CloudTrail tags, up to a limit of 50 -- --- * 'atResourceId' +-- * 'atResourceId' - Specifies the ARN of the trail to which one or more tags will be added. The format of a trail ARN is: @arn:aws:cloudtrail:us-east-1:123456789012:trail/MyTrail@ addTags :: Text -- ^ 'atResourceId' -> AddTags @@ -66,13 +70,11 @@ , _atResourceId = pResourceId_ } --- | Contains a list of CloudTrail tags, up to a limit of 10. +-- | Contains a list of CloudTrail tags, up to a limit of 50 atTagsList :: Lens' AddTags [Tag] atTagsList = lens _atTagsList (\ s a -> s{_atTagsList = a}) . _Default . _Coerce; --- | Specifies the ARN of the trail to which one or more tags will be added. The format of a trail ARN is: --- --- 'arn:aws:cloudtrail:us-east-1:123456789012:trail\/MyTrail' +-- | Specifies the ARN of the trail to which one or more tags will be added. The format of a trail ARN is: @arn:aws:cloudtrail:us-east-1:123456789012:trail/MyTrail@ atResourceId :: Lens' AddTags Text atResourceId = lens _atResourceId (\ s a -> s{_atResourceId = a}); @@ -112,6 +114,8 @@ -- | Returns the objects or data listed below if successful. Otherwise, returns an error. -- +-- +-- -- /See:/ 'addTagsResponse' smart constructor. newtype AddTagsResponse = AddTagsResponse' { _atrsResponseStatus :: Int @@ -121,7 +125,7 @@ -- -- Use one of the following lenses to modify other fields as desired: -- --- * 'atrsResponseStatus' +-- * 'atrsResponseStatus' - -- | The response status code. addTagsResponse :: Int -- ^ 'atrsResponseStatus' -> AddTagsResponse @@ -130,7 +134,7 @@ { _atrsResponseStatus = pResponseStatus_ } --- | The response status code. +-- | -- | The response status code. atrsResponseStatus :: Lens' AddTagsResponse Int atrsResponseStatus = lens _atrsResponseStatus (\ s a -> s{_atrsResponseStatus = a}); diff --git a/gen/Network/AWS/CloudTrail/CreateTrail.hs b/gen/Network/AWS/CloudTrail/CreateTrail.hs --- a/gen/Network/AWS/CloudTrail/CreateTrail.hs +++ b/gen/Network/AWS/CloudTrail/CreateTrail.hs @@ -19,6 +19,8 @@ -- Portability : non-portable (GHC extensions) -- -- Creates a trail that specifies the settings for delivery of log data to an Amazon S3 bucket. A maximum of five trails can exist in a region, irrespective of the region in which they were created. +-- +-- module Network.AWS.CloudTrail.CreateTrail ( -- * Creating a Request @@ -64,6 +66,8 @@ -- | Specifies the settings for each trail. -- +-- +-- -- /See:/ 'createTrail' smart constructor. data CreateTrail = CreateTrail' { _ctS3KeyPrefix :: !(Maybe Text) @@ -82,25 +86,25 @@ -- -- Use one of the following lenses to modify other fields as desired: -- --- * 'ctS3KeyPrefix' +-- * 'ctS3KeyPrefix' - Specifies the Amazon S3 key prefix that comes after the name of the bucket you have designated for log file delivery. For more information, see . The maximum length is 200 characters. -- --- * 'ctSNSTopicName' +-- * 'ctSNSTopicName' - Specifies the name of the Amazon SNS topic defined for notification of log file delivery. The maximum length is 256 characters. -- --- * 'ctEnableLogFileValidation' +-- * 'ctEnableLogFileValidation' - Specifies whether log file integrity validation is enabled. The default is false. -- --- * 'ctCloudWatchLogsLogGroupARN' +-- * 'ctCloudWatchLogsLogGroupARN' - Specifies a log group name using an Amazon Resource Name (ARN), a unique identifier that represents the log group to which CloudTrail logs will be delivered. Not required unless you specify CloudWatchLogsRoleArn. -- --- * 'ctKMSKeyId' +-- * 'ctKMSKeyId' - Specifies the KMS key ID to use to encrypt the logs delivered by CloudTrail. The value can be a an alias name prefixed by "alias/", a fully specified ARN to an alias, a fully specified ARN to a key, or a globally unique identifier. Examples: * alias/MyAliasName * arn:aws:kms:us-east-1:123456789012:alias/MyAliasName * arn:aws:kms:us-east-1:123456789012:key/12345678-1234-1234-1234-123456789012 * 12345678-1234-1234-1234-123456789012 -- --- * 'ctIncludeGlobalServiceEvents' +-- * 'ctIncludeGlobalServiceEvents' - Specifies whether the trail is publishing events from global services such as IAM to the log files. -- --- * 'ctCloudWatchLogsRoleARN' +-- * 'ctCloudWatchLogsRoleARN' - Specifies the role for the CloudWatch Logs endpoint to assume to write to a user's log group. -- --- * 'ctIsMultiRegionTrail' +-- * 'ctIsMultiRegionTrail' - Specifies whether the trail is created in the current region or in all regions. The default is false. -- --- * 'ctName' +-- * 'ctName' - Specifies the name of the trail. The name must meet the following requirements: * Contain only ASCII letters (a-z, A-Z), numbers (0-9), periods (.), underscores (_), or dashes (-) * Start with a letter or number, and end with a letter or number * Be between 3 and 128 characters * Have no adjacent periods, underscores or dashes. Names like @my-_namespace@ and @my--namespace@ are invalid. * Not be in IP address format (for example, 192.168.5.4) -- --- * 'ctS3BucketName' +-- * 'ctS3BucketName' - Specifies the name of the Amazon S3 bucket designated for publishing log files. See . createTrail :: Text -- ^ 'ctName' -> Text -- ^ 'ctS3BucketName' @@ -119,7 +123,7 @@ , _ctS3BucketName = pS3BucketName_ } --- | Specifies the Amazon S3 key prefix that comes after the name of the bucket you have designated for log file delivery. For more information, see . The maximum length is 200 characters. +-- | Specifies the Amazon S3 key prefix that comes after the name of the bucket you have designated for log file delivery. For more information, see . The maximum length is 200 characters. ctS3KeyPrefix :: Lens' CreateTrail (Maybe Text) ctS3KeyPrefix = lens _ctS3KeyPrefix (\ s a -> s{_ctS3KeyPrefix = a}); @@ -128,8 +132,6 @@ ctSNSTopicName = lens _ctSNSTopicName (\ s a -> s{_ctSNSTopicName = a}); -- | Specifies whether log file integrity validation is enabled. The default is false. --- --- When you disable log file integrity validation, the chain of digest files is broken after one hour. CloudTrail will not create digest files for log files that were delivered during a period in which log file integrity validation was disabled. For example, if you enable log file integrity validation at noon on January 1, disable it at noon on January 2, and re-enable it at noon on January 10, digest files will not be created for the log files delivered from noon on January 2 to noon on January 10. The same applies whenever you stop CloudTrail logging or delete a trail. ctEnableLogFileValidation :: Lens' CreateTrail (Maybe Bool) ctEnableLogFileValidation = lens _ctEnableLogFileValidation (\ s a -> s{_ctEnableLogFileValidation = a}); @@ -137,18 +139,7 @@ ctCloudWatchLogsLogGroupARN :: Lens' CreateTrail (Maybe Text) ctCloudWatchLogsLogGroupARN = lens _ctCloudWatchLogsLogGroupARN (\ s a -> s{_ctCloudWatchLogsLogGroupARN = a}); --- | Specifies the KMS key ID to use to encrypt the logs delivered by CloudTrail. The value can be a an alias name prefixed by \"alias\/\", a fully specified ARN to an alias, a fully specified ARN to a key, or a globally unique identifier. --- --- Examples: --- --- - alias\/MyAliasName --- --- - arn:aws:kms:us-east-1:123456789012:alias\/MyAliasName --- --- - arn:aws:kms:us-east-1:123456789012:key\/12345678-1234-1234-1234-123456789012 --- --- - 12345678-1234-1234-1234-123456789012 --- +-- | Specifies the KMS key ID to use to encrypt the logs delivered by CloudTrail. The value can be a an alias name prefixed by "alias/", a fully specified ARN to an alias, a fully specified ARN to a key, or a globally unique identifier. Examples: * alias/MyAliasName * arn:aws:kms:us-east-1:123456789012:alias/MyAliasName * arn:aws:kms:us-east-1:123456789012:key/12345678-1234-1234-1234-123456789012 * 12345678-1234-1234-1234-123456789012 ctKMSKeyId :: Lens' CreateTrail (Maybe Text) ctKMSKeyId = lens _ctKMSKeyId (\ s a -> s{_ctKMSKeyId = a}); @@ -156,7 +147,7 @@ ctIncludeGlobalServiceEvents :: Lens' CreateTrail (Maybe Bool) ctIncludeGlobalServiceEvents = lens _ctIncludeGlobalServiceEvents (\ s a -> s{_ctIncludeGlobalServiceEvents = a}); --- | Specifies the role for the CloudWatch Logs endpoint to assume to write to a user\'s log group. +-- | Specifies the role for the CloudWatch Logs endpoint to assume to write to a user's log group. ctCloudWatchLogsRoleARN :: Lens' CreateTrail (Maybe Text) ctCloudWatchLogsRoleARN = lens _ctCloudWatchLogsRoleARN (\ s a -> s{_ctCloudWatchLogsRoleARN = a}); @@ -164,22 +155,11 @@ ctIsMultiRegionTrail :: Lens' CreateTrail (Maybe Bool) ctIsMultiRegionTrail = lens _ctIsMultiRegionTrail (\ s a -> s{_ctIsMultiRegionTrail = a}); --- | Specifies the name of the trail. The name must meet the following requirements: --- --- - Contain only ASCII letters (a-z, A-Z), numbers (0-9), periods (.), underscores (_), or dashes (-) --- --- - Start with a letter or number, and end with a letter or number --- --- - Be between 3 and 128 characters --- --- - Have no adjacent periods, underscores or dashes. Names like 'my-_namespace' and 'my--namespace' are invalid. --- --- - Not be in IP address format (for example, 192.168.5.4) --- +-- | Specifies the name of the trail. The name must meet the following requirements: * Contain only ASCII letters (a-z, A-Z), numbers (0-9), periods (.), underscores (_), or dashes (-) * Start with a letter or number, and end with a letter or number * Be between 3 and 128 characters * Have no adjacent periods, underscores or dashes. Names like @my-_namespace@ and @my--namespace@ are invalid. * Not be in IP address format (for example, 192.168.5.4) ctName :: Lens' CreateTrail Text ctName = lens _ctName (\ s a -> s{_ctName = a}); --- | Specifies the name of the Amazon S3 bucket designated for publishing log files. See . +-- | Specifies the name of the Amazon S3 bucket designated for publishing log files. See . ctS3BucketName :: Lens' CreateTrail Text ctS3BucketName = lens _ctS3BucketName (\ s a -> s{_ctS3BucketName = a}); @@ -245,6 +225,8 @@ -- | Returns the objects or data listed below if successful. Otherwise, returns an error. -- +-- +-- -- /See:/ 'createTrailResponse' smart constructor. data CreateTrailResponse = CreateTrailResponse' { _ctrsLogFileValidationEnabled :: !(Maybe Bool) @@ -266,31 +248,31 @@ -- -- Use one of the following lenses to modify other fields as desired: -- --- * 'ctrsLogFileValidationEnabled' +-- * 'ctrsLogFileValidationEnabled' - Specifies whether log file integrity validation is enabled. -- --- * 'ctrsTrailARN' +-- * 'ctrsTrailARN' - Specifies the ARN of the trail that was created. The format of a trail ARN is: @arn:aws:cloudtrail:us-east-1:123456789012:trail/MyTrail@ -- --- * 'ctrsS3KeyPrefix' +-- * 'ctrsS3KeyPrefix' - Specifies the Amazon S3 key prefix that comes after the name of the bucket you have designated for log file delivery. For more information, see . -- --- * 'ctrsSNSTopicARN' +-- * 'ctrsSNSTopicARN' - Specifies the ARN of the Amazon SNS topic that CloudTrail uses to send notifications when log files are delivered. The format of a topic ARN is: @arn:aws:sns:us-east-1:123456789012:MyTopic@ -- --- * 'ctrsSNSTopicName' +-- * 'ctrsSNSTopicName' - This field is deprecated. Use SnsTopicARN. -- --- * 'ctrsCloudWatchLogsLogGroupARN' +-- * 'ctrsCloudWatchLogsLogGroupARN' - Specifies the Amazon Resource Name (ARN) of the log group to which CloudTrail logs will be delivered. -- --- * 'ctrsKMSKeyId' +-- * 'ctrsKMSKeyId' - Specifies the KMS key ID that encrypts the logs delivered by CloudTrail. The value is a fully specified ARN to a KMS key in the format: @arn:aws:kms:us-east-1:123456789012:key/12345678-1234-1234-1234-123456789012@ -- --- * 'ctrsName' +-- * 'ctrsName' - Specifies the name of the trail. -- --- * 'ctrsIncludeGlobalServiceEvents' +-- * 'ctrsIncludeGlobalServiceEvents' - Specifies whether the trail is publishing events from global services such as IAM to the log files. -- --- * 'ctrsCloudWatchLogsRoleARN' +-- * 'ctrsCloudWatchLogsRoleARN' - Specifies the role for the CloudWatch Logs endpoint to assume to write to a user's log group. -- --- * 'ctrsS3BucketName' +-- * 'ctrsS3BucketName' - Specifies the name of the Amazon S3 bucket designated for publishing log files. -- --- * 'ctrsIsMultiRegionTrail' +-- * 'ctrsIsMultiRegionTrail' - Specifies whether the trail exists in one region or in all regions. -- --- * 'ctrsResponseStatus' +-- * 'ctrsResponseStatus' - -- | The response status code. createTrailResponse :: Int -- ^ 'ctrsResponseStatus' -> CreateTrailResponse @@ -315,19 +297,15 @@ ctrsLogFileValidationEnabled :: Lens' CreateTrailResponse (Maybe Bool) ctrsLogFileValidationEnabled = lens _ctrsLogFileValidationEnabled (\ s a -> s{_ctrsLogFileValidationEnabled = a}); --- | Specifies the ARN of the trail that was created. The format of a trail ARN is: --- --- 'arn:aws:cloudtrail:us-east-1:123456789012:trail\/MyTrail' +-- | Specifies the ARN of the trail that was created. The format of a trail ARN is: @arn:aws:cloudtrail:us-east-1:123456789012:trail/MyTrail@ ctrsTrailARN :: Lens' CreateTrailResponse (Maybe Text) ctrsTrailARN = lens _ctrsTrailARN (\ s a -> s{_ctrsTrailARN = a}); --- | Specifies the Amazon S3 key prefix that comes after the name of the bucket you have designated for log file delivery. For more information, see . +-- | Specifies the Amazon S3 key prefix that comes after the name of the bucket you have designated for log file delivery. For more information, see . ctrsS3KeyPrefix :: Lens' CreateTrailResponse (Maybe Text) ctrsS3KeyPrefix = lens _ctrsS3KeyPrefix (\ s a -> s{_ctrsS3KeyPrefix = a}); --- | Specifies the ARN of the Amazon SNS topic that CloudTrail uses to send notifications when log files are delivered. The format of a topic ARN is: --- --- 'arn:aws:sns:us-east-1:123456789012:MyTopic' +-- | Specifies the ARN of the Amazon SNS topic that CloudTrail uses to send notifications when log files are delivered. The format of a topic ARN is: @arn:aws:sns:us-east-1:123456789012:MyTopic@ ctrsSNSTopicARN :: Lens' CreateTrailResponse (Maybe Text) ctrsSNSTopicARN = lens _ctrsSNSTopicARN (\ s a -> s{_ctrsSNSTopicARN = a}); @@ -339,9 +317,7 @@ ctrsCloudWatchLogsLogGroupARN :: Lens' CreateTrailResponse (Maybe Text) ctrsCloudWatchLogsLogGroupARN = lens _ctrsCloudWatchLogsLogGroupARN (\ s a -> s{_ctrsCloudWatchLogsLogGroupARN = a}); --- | Specifies the KMS key ID that encrypts the logs delivered by CloudTrail. The value is a fully specified ARN to a KMS key in the format: --- --- 'arn:aws:kms:us-east-1:123456789012:key\/12345678-1234-1234-1234-123456789012' +-- | Specifies the KMS key ID that encrypts the logs delivered by CloudTrail. The value is a fully specified ARN to a KMS key in the format: @arn:aws:kms:us-east-1:123456789012:key/12345678-1234-1234-1234-123456789012@ ctrsKMSKeyId :: Lens' CreateTrailResponse (Maybe Text) ctrsKMSKeyId = lens _ctrsKMSKeyId (\ s a -> s{_ctrsKMSKeyId = a}); @@ -353,7 +329,7 @@ ctrsIncludeGlobalServiceEvents :: Lens' CreateTrailResponse (Maybe Bool) ctrsIncludeGlobalServiceEvents = lens _ctrsIncludeGlobalServiceEvents (\ s a -> s{_ctrsIncludeGlobalServiceEvents = a}); --- | Specifies the role for the CloudWatch Logs endpoint to assume to write to a user\'s log group. +-- | Specifies the role for the CloudWatch Logs endpoint to assume to write to a user's log group. ctrsCloudWatchLogsRoleARN :: Lens' CreateTrailResponse (Maybe Text) ctrsCloudWatchLogsRoleARN = lens _ctrsCloudWatchLogsRoleARN (\ s a -> s{_ctrsCloudWatchLogsRoleARN = a}); @@ -365,7 +341,7 @@ ctrsIsMultiRegionTrail :: Lens' CreateTrailResponse (Maybe Bool) ctrsIsMultiRegionTrail = lens _ctrsIsMultiRegionTrail (\ s a -> s{_ctrsIsMultiRegionTrail = a}); --- | The response status code. +-- | -- | The response status code. ctrsResponseStatus :: Lens' CreateTrailResponse Int ctrsResponseStatus = lens _ctrsResponseStatus (\ s a -> s{_ctrsResponseStatus = a}); diff --git a/gen/Network/AWS/CloudTrail/DeleteTrail.hs b/gen/Network/AWS/CloudTrail/DeleteTrail.hs --- a/gen/Network/AWS/CloudTrail/DeleteTrail.hs +++ b/gen/Network/AWS/CloudTrail/DeleteTrail.hs @@ -18,7 +18,9 @@ -- Stability : auto-generated -- Portability : non-portable (GHC extensions) -- --- Deletes a trail. This operation must be called from the region in which the trail was created. 'DeleteTrail' cannot be called on the shadow trails (replicated trails in other regions) of a trail that is enabled in all regions. +-- Deletes a trail. This operation must be called from the region in which the trail was created. @DeleteTrail@ cannot be called on the shadow trails (replicated trails in other regions) of a trail that is enabled in all regions. +-- +-- module Network.AWS.CloudTrail.DeleteTrail ( -- * Creating a Request @@ -43,6 +45,8 @@ -- | The request that specifies the name of a trail to delete. -- +-- +-- -- /See:/ 'deleteTrail' smart constructor. newtype DeleteTrail = DeleteTrail' { _dtName :: Text @@ -52,7 +56,7 @@ -- -- Use one of the following lenses to modify other fields as desired: -- --- * 'dtName' +-- * 'dtName' - Specifies the name or the CloudTrail ARN of the trail to be deleted. The format of a trail ARN is: @arn:aws:cloudtrail:us-east-1:123456789012:trail/MyTrail@ deleteTrail :: Text -- ^ 'dtName' -> DeleteTrail @@ -61,9 +65,7 @@ { _dtName = pName_ } --- | Specifies the name or the CloudTrail ARN of the trail to be deleted. The format of a trail ARN is: --- --- 'arn:aws:cloudtrail:us-east-1:123456789012:trail\/MyTrail' +-- | Specifies the name or the CloudTrail ARN of the trail to be deleted. The format of a trail ARN is: @arn:aws:cloudtrail:us-east-1:123456789012:trail/MyTrail@ dtName :: Lens' DeleteTrail Text dtName = lens _dtName (\ s a -> s{_dtName = a}); @@ -101,6 +103,8 @@ -- | Returns the objects or data listed below if successful. Otherwise, returns an error. -- +-- +-- -- /See:/ 'deleteTrailResponse' smart constructor. newtype DeleteTrailResponse = DeleteTrailResponse' { _drsResponseStatus :: Int @@ -110,7 +114,7 @@ -- -- Use one of the following lenses to modify other fields as desired: -- --- * 'drsResponseStatus' +-- * 'drsResponseStatus' - -- | The response status code. deleteTrailResponse :: Int -- ^ 'drsResponseStatus' -> DeleteTrailResponse @@ -119,7 +123,7 @@ { _drsResponseStatus = pResponseStatus_ } --- | The response status code. +-- | -- | The response status code. drsResponseStatus :: Lens' DeleteTrailResponse Int drsResponseStatus = lens _drsResponseStatus (\ s a -> s{_drsResponseStatus = a}); diff --git a/gen/Network/AWS/CloudTrail/DescribeTrails.hs b/gen/Network/AWS/CloudTrail/DescribeTrails.hs --- a/gen/Network/AWS/CloudTrail/DescribeTrails.hs +++ b/gen/Network/AWS/CloudTrail/DescribeTrails.hs @@ -19,6 +19,8 @@ -- Portability : non-portable (GHC extensions) -- -- Retrieves settings for the trail associated with the current region for your account. +-- +-- module Network.AWS.CloudTrail.DescribeTrails ( -- * Creating a Request @@ -45,6 +47,8 @@ -- | Returns information about the trail. -- +-- +-- -- /See:/ 'describeTrails' smart constructor. data DescribeTrails = DescribeTrails' { _dtIncludeShadowTrails :: !(Maybe Bool) @@ -55,9 +59,9 @@ -- -- Use one of the following lenses to modify other fields as desired: -- --- * 'dtIncludeShadowTrails' +-- * 'dtIncludeShadowTrails' - Specifies whether to include shadow trails in the response. A shadow trail is the replication in a region of a trail that was created in a different region. The default is true. -- --- * 'dtTrailNameList' +-- * 'dtTrailNameList' - Specifies a list of trail names, trail ARNs, or both, of the trails to describe. The format of a trail ARN is: @arn:aws:cloudtrail:us-east-1:123456789012:trail/MyTrail@ If an empty list is specified, information for the trail in the current region is returned. * If an empty list is specified and @IncludeShadowTrails@ is false, then information for all trails in the current region is returned. * If an empty list is specified and IncludeShadowTrails is null or true, then information for all trails in the current region and any associated shadow trails in other regions is returned. describeTrails :: DescribeTrails describeTrails = @@ -70,17 +74,7 @@ dtIncludeShadowTrails :: Lens' DescribeTrails (Maybe Bool) dtIncludeShadowTrails = lens _dtIncludeShadowTrails (\ s a -> s{_dtIncludeShadowTrails = a}); --- | Specifies a list of trail names, trail ARNs, or both, of the trails to describe. The format of a trail ARN is: --- --- 'arn:aws:cloudtrail:us-east-1:123456789012:trail\/MyTrail' --- --- If an empty list is specified, information for the trail in the current region is returned. --- --- - If an empty list is specified and 'IncludeShadowTrails' is false, then information for all trails in the current region is returned. --- --- - If an empty list is specified and IncludeShadowTrails is null or true, then information for all trails in the current region and any associated shadow trails in other regions is returned. --- --- If one or more trail names are specified, information is returned only if the names match the names of trails belonging only to the current region. To return information about a trail in another region, you must specify its trail ARN. +-- | Specifies a list of trail names, trail ARNs, or both, of the trails to describe. The format of a trail ARN is: @arn:aws:cloudtrail:us-east-1:123456789012:trail/MyTrail@ If an empty list is specified, information for the trail in the current region is returned. * If an empty list is specified and @IncludeShadowTrails@ is false, then information for all trails in the current region is returned. * If an empty list is specified and IncludeShadowTrails is null or true, then information for all trails in the current region and any associated shadow trails in other regions is returned. dtTrailNameList :: Lens' DescribeTrails [Text] dtTrailNameList = lens _dtTrailNameList (\ s a -> s{_dtTrailNameList = a}) . _Default . _Coerce; @@ -124,6 +118,8 @@ -- | Returns the objects or data listed below if successful. Otherwise, returns an error. -- +-- +-- -- /See:/ 'describeTrailsResponse' smart constructor. data DescribeTrailsResponse = DescribeTrailsResponse' { _dtrsTrailList :: !(Maybe [Trail]) @@ -134,9 +130,9 @@ -- -- Use one of the following lenses to modify other fields as desired: -- --- * 'dtrsTrailList' +-- * 'dtrsTrailList' - The list of trail objects. -- --- * 'dtrsResponseStatus' +-- * 'dtrsResponseStatus' - -- | The response status code. describeTrailsResponse :: Int -- ^ 'dtrsResponseStatus' -> DescribeTrailsResponse @@ -150,7 +146,7 @@ dtrsTrailList :: Lens' DescribeTrailsResponse [Trail] dtrsTrailList = lens _dtrsTrailList (\ s a -> s{_dtrsTrailList = a}) . _Default . _Coerce; --- | The response status code. +-- | -- | The response status code. dtrsResponseStatus :: Lens' DescribeTrailsResponse Int dtrsResponseStatus = lens _dtrsResponseStatus (\ s a -> s{_dtrsResponseStatus = a}); diff --git a/gen/Network/AWS/CloudTrail/GetEventSelectors.hs b/gen/Network/AWS/CloudTrail/GetEventSelectors.hs new file mode 100644 --- /dev/null +++ b/gen/Network/AWS/CloudTrail/GetEventSelectors.hs @@ -0,0 +1,153 @@ +{-# 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.CloudTrail.GetEventSelectors +-- Copyright : (c) 2013-2016 Brendan Hay +-- License : Mozilla Public License, v. 2.0. +-- Maintainer : Brendan Hay +-- Stability : auto-generated +-- Portability : non-portable (GHC extensions) +-- +-- Describes the settings for the event selectors that you configured for your trail. The information returned for your event selectors includes the following: +-- +-- +-- * The S3 objects that you are logging for data events. +-- +-- * If your event selector includes management events. +-- +-- * If your event selector includes read-only events, write-only events, or all. +-- +-- +-- +-- For more information, see in the /AWS CloudTrail User Guide/ . +-- +module Network.AWS.CloudTrail.GetEventSelectors + ( + -- * Creating a Request + getEventSelectors + , GetEventSelectors + -- * Request Lenses + , gesTrailName + + -- * Destructuring the Response + , getEventSelectorsResponse + , GetEventSelectorsResponse + -- * Response Lenses + , gesrsTrailARN + , gesrsEventSelectors + , gesrsResponseStatus + ) where + +import Network.AWS.CloudTrail.Types +import Network.AWS.CloudTrail.Types.Product +import Network.AWS.Lens +import Network.AWS.Prelude +import Network.AWS.Request +import Network.AWS.Response + +-- | /See:/ 'getEventSelectors' smart constructor. +newtype GetEventSelectors = GetEventSelectors' + { _gesTrailName :: Maybe Text + } deriving (Eq,Read,Show,Data,Typeable,Generic) + +-- | Creates a value of 'GetEventSelectors' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'gesTrailName' - Specifies the name of the trail or trail ARN. If you specify a trail name, the string must meet the following requirements: * Contain only ASCII letters (a-z, A-Z), numbers (0-9), periods (.), underscores (_), or dashes (-) * Start with a letter or number, and end with a letter or number * Be between 3 and 128 characters * Have no adjacent periods, underscores or dashes. Names like @my-_namespace@ and @my--namespace@ are invalid. * Not be in IP address format (for example, 192.168.5.4) If you specify a trail ARN, it must be in the format: @arn:aws:cloudtrail:us-east-1:123456789012:trail/MyTrail@ +getEventSelectors + :: GetEventSelectors +getEventSelectors = + GetEventSelectors' + { _gesTrailName = Nothing + } + +-- | Specifies the name of the trail or trail ARN. If you specify a trail name, the string must meet the following requirements: * Contain only ASCII letters (a-z, A-Z), numbers (0-9), periods (.), underscores (_), or dashes (-) * Start with a letter or number, and end with a letter or number * Be between 3 and 128 characters * Have no adjacent periods, underscores or dashes. Names like @my-_namespace@ and @my--namespace@ are invalid. * Not be in IP address format (for example, 192.168.5.4) If you specify a trail ARN, it must be in the format: @arn:aws:cloudtrail:us-east-1:123456789012:trail/MyTrail@ +gesTrailName :: Lens' GetEventSelectors (Maybe Text) +gesTrailName = lens _gesTrailName (\ s a -> s{_gesTrailName = a}); + +instance AWSRequest GetEventSelectors where + type Rs GetEventSelectors = GetEventSelectorsResponse + request = postJSON cloudTrail + response + = receiveJSON + (\ s h x -> + GetEventSelectorsResponse' <$> + (x .?> "TrailARN") <*> + (x .?> "EventSelectors" .!@ mempty) + <*> (pure (fromEnum s))) + +instance Hashable GetEventSelectors + +instance NFData GetEventSelectors + +instance ToHeaders GetEventSelectors where + toHeaders + = const + (mconcat + ["X-Amz-Target" =# + ("com.amazonaws.cloudtrail.v20131101.CloudTrail_20131101.GetEventSelectors" + :: ByteString), + "Content-Type" =# + ("application/x-amz-json-1.1" :: ByteString)]) + +instance ToJSON GetEventSelectors where + toJSON GetEventSelectors'{..} + = object + (catMaybes [("TrailName" .=) <$> _gesTrailName]) + +instance ToPath GetEventSelectors where + toPath = const "/" + +instance ToQuery GetEventSelectors where + toQuery = const mempty + +-- | /See:/ 'getEventSelectorsResponse' smart constructor. +data GetEventSelectorsResponse = GetEventSelectorsResponse' + { _gesrsTrailARN :: !(Maybe Text) + , _gesrsEventSelectors :: !(Maybe [EventSelector]) + , _gesrsResponseStatus :: !Int + } deriving (Eq,Read,Show,Data,Typeable,Generic) + +-- | Creates a value of 'GetEventSelectorsResponse' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'gesrsTrailARN' - The specified trail ARN that has the event selectors. +-- +-- * 'gesrsEventSelectors' - The event selectors that are configured for the trail. +-- +-- * 'gesrsResponseStatus' - -- | The response status code. +getEventSelectorsResponse + :: Int -- ^ 'gesrsResponseStatus' + -> GetEventSelectorsResponse +getEventSelectorsResponse pResponseStatus_ = + GetEventSelectorsResponse' + { _gesrsTrailARN = Nothing + , _gesrsEventSelectors = Nothing + , _gesrsResponseStatus = pResponseStatus_ + } + +-- | The specified trail ARN that has the event selectors. +gesrsTrailARN :: Lens' GetEventSelectorsResponse (Maybe Text) +gesrsTrailARN = lens _gesrsTrailARN (\ s a -> s{_gesrsTrailARN = a}); + +-- | The event selectors that are configured for the trail. +gesrsEventSelectors :: Lens' GetEventSelectorsResponse [EventSelector] +gesrsEventSelectors = lens _gesrsEventSelectors (\ s a -> s{_gesrsEventSelectors = a}) . _Default . _Coerce; + +-- | -- | The response status code. +gesrsResponseStatus :: Lens' GetEventSelectorsResponse Int +gesrsResponseStatus = lens _gesrsResponseStatus (\ s a -> s{_gesrsResponseStatus = a}); + +instance NFData GetEventSelectorsResponse diff --git a/gen/Network/AWS/CloudTrail/GetTrailStatus.hs b/gen/Network/AWS/CloudTrail/GetTrailStatus.hs --- a/gen/Network/AWS/CloudTrail/GetTrailStatus.hs +++ b/gen/Network/AWS/CloudTrail/GetTrailStatus.hs @@ -19,6 +19,8 @@ -- Portability : non-portable (GHC extensions) -- -- Returns a JSON-formatted list of information about the specified trail. Fields include information on delivery errors, Amazon SNS and Amazon S3 errors, and start and stop logging times for each trail. This operation returns trail status from a single region. To return trail status from all regions, you must call the operation on each region. +-- +-- module Network.AWS.CloudTrail.GetTrailStatus ( -- * Creating a Request @@ -60,6 +62,8 @@ -- | The name of a trail about which you want the current status. -- +-- +-- -- /See:/ 'getTrailStatus' smart constructor. newtype GetTrailStatus = GetTrailStatus' { _gtsName :: Text @@ -69,7 +73,7 @@ -- -- Use one of the following lenses to modify other fields as desired: -- --- * 'gtsName' +-- * 'gtsName' - Specifies the name or the CloudTrail ARN of the trail for which you are requesting status. To get the status of a shadow trail (a replication of the trail in another region), you must specify its ARN. The format of a trail ARN is: @arn:aws:cloudtrail:us-east-1:123456789012:trail/MyTrail@ getTrailStatus :: Text -- ^ 'gtsName' -> GetTrailStatus @@ -78,9 +82,7 @@ { _gtsName = pName_ } --- | Specifies the name or the CloudTrail ARN of the trail for which you are requesting status. To get the status of a shadow trail (a replication of the trail in another region), you must specify its ARN. The format of a trail ARN is: --- --- 'arn:aws:cloudtrail:us-east-1:123456789012:trail\/MyTrail' +-- | Specifies the name or the CloudTrail ARN of the trail for which you are requesting status. To get the status of a shadow trail (a replication of the trail in another region), you must specify its ARN. The format of a trail ARN is: @arn:aws:cloudtrail:us-east-1:123456789012:trail/MyTrail@ gtsName :: Lens' GetTrailStatus Text gtsName = lens _gtsName (\ s a -> s{_gtsName = a}); @@ -136,6 +138,8 @@ -- | Returns the objects or data listed below if successful. Otherwise, returns an error. -- +-- +-- -- /See:/ 'getTrailStatusResponse' smart constructor. data GetTrailStatusResponse = GetTrailStatusResponse' { _gtsrsTimeLoggingStopped :: !(Maybe Text) @@ -162,41 +166,41 @@ -- -- Use one of the following lenses to modify other fields as desired: -- --- * 'gtsrsTimeLoggingStopped' +-- * 'gtsrsTimeLoggingStopped' - This field is deprecated. -- --- * 'gtsrsLatestDeliveryError' +-- * 'gtsrsLatestDeliveryError' - Displays any Amazon S3 error that CloudTrail encountered when attempting to deliver log files to the designated bucket. For more information see the topic in the Amazon S3 API Reference. -- --- * 'gtsrsLatestDigestDeliveryTime' +-- * 'gtsrsLatestDigestDeliveryTime' - Specifies the date and time that CloudTrail last delivered a digest file to an account's Amazon S3 bucket. -- --- * 'gtsrsLatestNotificationAttemptSucceeded' +-- * 'gtsrsLatestNotificationAttemptSucceeded' - This field is deprecated. -- --- * 'gtsrsStartLoggingTime' +-- * 'gtsrsStartLoggingTime' - Specifies the most recent date and time when CloudTrail started recording API calls for an AWS account. -- --- * 'gtsrsLatestNotificationError' +-- * 'gtsrsLatestNotificationError' - Displays any Amazon SNS error that CloudTrail encountered when attempting to send a notification. For more information about Amazon SNS errors, see the . -- --- * 'gtsrsLatestDeliveryAttemptSucceeded' +-- * 'gtsrsLatestDeliveryAttemptSucceeded' - This field is deprecated. -- --- * 'gtsrsIsLogging' +-- * 'gtsrsIsLogging' - Whether the CloudTrail is currently logging AWS API calls. -- --- * 'gtsrsTimeLoggingStarted' +-- * 'gtsrsTimeLoggingStarted' - This field is deprecated. -- --- * 'gtsrsLatestDigestDeliveryError' +-- * 'gtsrsLatestDigestDeliveryError' - Displays any Amazon S3 error that CloudTrail encountered when attempting to deliver a digest file to the designated bucket. For more information see the topic in the Amazon S3 API Reference. -- --- * 'gtsrsLatestDeliveryAttemptTime' +-- * 'gtsrsLatestDeliveryAttemptTime' - This field is deprecated. -- --- * 'gtsrsLatestDeliveryTime' +-- * 'gtsrsLatestDeliveryTime' - Specifies the date and time that CloudTrail last delivered log files to an account's Amazon S3 bucket. -- --- * 'gtsrsLatestCloudWatchLogsDeliveryTime' +-- * 'gtsrsLatestCloudWatchLogsDeliveryTime' - Displays the most recent date and time when CloudTrail delivered logs to CloudWatch Logs. -- --- * 'gtsrsLatestCloudWatchLogsDeliveryError' +-- * 'gtsrsLatestCloudWatchLogsDeliveryError' - Displays any CloudWatch Logs error that CloudTrail encountered when attempting to deliver logs to CloudWatch Logs. -- --- * 'gtsrsLatestNotificationTime' +-- * 'gtsrsLatestNotificationTime' - Specifies the date and time of the most recent Amazon SNS notification that CloudTrail has written a new log file to an account's Amazon S3 bucket. -- --- * 'gtsrsLatestNotificationAttemptTime' +-- * 'gtsrsLatestNotificationAttemptTime' - This field is deprecated. -- --- * 'gtsrsStopLoggingTime' +-- * 'gtsrsStopLoggingTime' - Specifies the most recent date and time when CloudTrail stopped recording API calls for an AWS account. -- --- * 'gtsrsResponseStatus' +-- * 'gtsrsResponseStatus' - -- | The response status code. getTrailStatusResponse :: Int -- ^ 'gtsrsResponseStatus' -> GetTrailStatusResponse @@ -227,12 +231,10 @@ gtsrsTimeLoggingStopped = lens _gtsrsTimeLoggingStopped (\ s a -> s{_gtsrsTimeLoggingStopped = a}); -- | Displays any Amazon S3 error that CloudTrail encountered when attempting to deliver log files to the designated bucket. For more information see the topic in the Amazon S3 API Reference. --- --- This error occurs only when there is a problem with the destination S3 bucket and will not occur for timeouts. To resolve the issue, create a new bucket and call 'UpdateTrail' to specify the new bucket, or fix the existing objects so that CloudTrail can again write to the bucket. gtsrsLatestDeliveryError :: Lens' GetTrailStatusResponse (Maybe Text) gtsrsLatestDeliveryError = lens _gtsrsLatestDeliveryError (\ s a -> s{_gtsrsLatestDeliveryError = a}); --- | Specifies the date and time that CloudTrail last delivered a digest file to an account\'s Amazon S3 bucket. +-- | Specifies the date and time that CloudTrail last delivered a digest file to an account's Amazon S3 bucket. gtsrsLatestDigestDeliveryTime :: Lens' GetTrailStatusResponse (Maybe UTCTime) gtsrsLatestDigestDeliveryTime = lens _gtsrsLatestDigestDeliveryTime (\ s a -> s{_gtsrsLatestDigestDeliveryTime = a}) . mapping _Time; @@ -244,7 +246,7 @@ gtsrsStartLoggingTime :: Lens' GetTrailStatusResponse (Maybe UTCTime) gtsrsStartLoggingTime = lens _gtsrsStartLoggingTime (\ s a -> s{_gtsrsStartLoggingTime = a}) . mapping _Time; --- | Displays any Amazon SNS error that CloudTrail encountered when attempting to send a notification. For more information about Amazon SNS errors, see the . +-- | Displays any Amazon SNS error that CloudTrail encountered when attempting to send a notification. For more information about Amazon SNS errors, see the . gtsrsLatestNotificationError :: Lens' GetTrailStatusResponse (Maybe Text) gtsrsLatestNotificationError = lens _gtsrsLatestNotificationError (\ s a -> s{_gtsrsLatestNotificationError = a}); @@ -261,8 +263,6 @@ gtsrsTimeLoggingStarted = lens _gtsrsTimeLoggingStarted (\ s a -> s{_gtsrsTimeLoggingStarted = a}); -- | Displays any Amazon S3 error that CloudTrail encountered when attempting to deliver a digest file to the designated bucket. For more information see the topic in the Amazon S3 API Reference. --- --- This error occurs only when there is a problem with the destination S3 bucket and will not occur for timeouts. To resolve the issue, create a new bucket and call 'UpdateTrail' to specify the new bucket, or fix the existing objects so that CloudTrail can again write to the bucket. gtsrsLatestDigestDeliveryError :: Lens' GetTrailStatusResponse (Maybe Text) gtsrsLatestDigestDeliveryError = lens _gtsrsLatestDigestDeliveryError (\ s a -> s{_gtsrsLatestDigestDeliveryError = a}); @@ -270,7 +270,7 @@ gtsrsLatestDeliveryAttemptTime :: Lens' GetTrailStatusResponse (Maybe Text) gtsrsLatestDeliveryAttemptTime = lens _gtsrsLatestDeliveryAttemptTime (\ s a -> s{_gtsrsLatestDeliveryAttemptTime = a}); --- | Specifies the date and time that CloudTrail last delivered log files to an account\'s Amazon S3 bucket. +-- | Specifies the date and time that CloudTrail last delivered log files to an account's Amazon S3 bucket. gtsrsLatestDeliveryTime :: Lens' GetTrailStatusResponse (Maybe UTCTime) gtsrsLatestDeliveryTime = lens _gtsrsLatestDeliveryTime (\ s a -> s{_gtsrsLatestDeliveryTime = a}) . mapping _Time; @@ -282,7 +282,7 @@ gtsrsLatestCloudWatchLogsDeliveryError :: Lens' GetTrailStatusResponse (Maybe Text) gtsrsLatestCloudWatchLogsDeliveryError = lens _gtsrsLatestCloudWatchLogsDeliveryError (\ s a -> s{_gtsrsLatestCloudWatchLogsDeliveryError = a}); --- | Specifies the date and time of the most recent Amazon SNS notification that CloudTrail has written a new log file to an account\'s Amazon S3 bucket. +-- | Specifies the date and time of the most recent Amazon SNS notification that CloudTrail has written a new log file to an account's Amazon S3 bucket. gtsrsLatestNotificationTime :: Lens' GetTrailStatusResponse (Maybe UTCTime) gtsrsLatestNotificationTime = lens _gtsrsLatestNotificationTime (\ s a -> s{_gtsrsLatestNotificationTime = a}) . mapping _Time; @@ -294,7 +294,7 @@ gtsrsStopLoggingTime :: Lens' GetTrailStatusResponse (Maybe UTCTime) gtsrsStopLoggingTime = lens _gtsrsStopLoggingTime (\ s a -> s{_gtsrsStopLoggingTime = a}) . mapping _Time; --- | The response status code. +-- | -- | The response status code. gtsrsResponseStatus :: Lens' GetTrailStatusResponse Int gtsrsResponseStatus = lens _gtsrsResponseStatus (\ s a -> s{_gtsrsResponseStatus = a}); diff --git a/gen/Network/AWS/CloudTrail/ListPublicKeys.hs b/gen/Network/AWS/CloudTrail/ListPublicKeys.hs --- a/gen/Network/AWS/CloudTrail/ListPublicKeys.hs +++ b/gen/Network/AWS/CloudTrail/ListPublicKeys.hs @@ -20,7 +20,7 @@ -- -- Returns all public keys whose private keys were used to sign the digest files within the specified time range. The public key is needed to validate digest files that were signed with its corresponding private key. -- --- CloudTrail uses different private\/public key pairs per region. Each digest file is signed with a private key unique to its region. Therefore, when you validate a digest file from a particular region, you must look in the same region for its corresponding public key. +-- module Network.AWS.CloudTrail.ListPublicKeys ( -- * Creating a Request @@ -49,6 +49,8 @@ -- | Requests the public keys for a specified time range. -- +-- +-- -- /See:/ 'listPublicKeys' smart constructor. data ListPublicKeys = ListPublicKeys' { _lpkStartTime :: !(Maybe POSIX) @@ -60,11 +62,11 @@ -- -- Use one of the following lenses to modify other fields as desired: -- --- * 'lpkStartTime' +-- * 'lpkStartTime' - Optionally specifies, in UTC, the start of the time range to look up public keys for CloudTrail digest files. If not specified, the current time is used, and the current public key is returned. -- --- * 'lpkNextToken' +-- * 'lpkNextToken' - Reserved for future use. -- --- * 'lpkEndTime' +-- * 'lpkEndTime' - Optionally specifies, in UTC, the end of the time range to look up public keys for CloudTrail digest files. If not specified, the current time is used. listPublicKeys :: ListPublicKeys listPublicKeys = @@ -127,6 +129,8 @@ -- | Returns the objects or data listed below if successful. Otherwise, returns an error. -- +-- +-- -- /See:/ 'listPublicKeysResponse' smart constructor. data ListPublicKeysResponse = ListPublicKeysResponse' { _lpkrsPublicKeyList :: !(Maybe [PublicKey]) @@ -138,11 +142,11 @@ -- -- Use one of the following lenses to modify other fields as desired: -- --- * 'lpkrsPublicKeyList' +-- * 'lpkrsPublicKeyList' - Contains an array of PublicKey objects. -- --- * 'lpkrsNextToken' +-- * 'lpkrsNextToken' - Reserved for future use. -- --- * 'lpkrsResponseStatus' +-- * 'lpkrsResponseStatus' - -- | The response status code. listPublicKeysResponse :: Int -- ^ 'lpkrsResponseStatus' -> ListPublicKeysResponse @@ -154,8 +158,6 @@ } -- | Contains an array of PublicKey objects. --- --- The returned public keys may have validity time ranges that overlap. lpkrsPublicKeyList :: Lens' ListPublicKeysResponse [PublicKey] lpkrsPublicKeyList = lens _lpkrsPublicKeyList (\ s a -> s{_lpkrsPublicKeyList = a}) . _Default . _Coerce; @@ -163,7 +165,7 @@ lpkrsNextToken :: Lens' ListPublicKeysResponse (Maybe Text) lpkrsNextToken = lens _lpkrsNextToken (\ s a -> s{_lpkrsNextToken = a}); --- | The response status code. +-- | -- | The response status code. lpkrsResponseStatus :: Lens' ListPublicKeysResponse Int lpkrsResponseStatus = lens _lpkrsResponseStatus (\ s a -> s{_lpkrsResponseStatus = a}); diff --git a/gen/Network/AWS/CloudTrail/ListTags.hs b/gen/Network/AWS/CloudTrail/ListTags.hs --- a/gen/Network/AWS/CloudTrail/ListTags.hs +++ b/gen/Network/AWS/CloudTrail/ListTags.hs @@ -19,6 +19,8 @@ -- Portability : non-portable (GHC extensions) -- -- Lists the tags for the trail in the current region. +-- +-- module Network.AWS.CloudTrail.ListTags ( -- * Creating a Request @@ -46,6 +48,8 @@ -- | Specifies a list of trail tags to return. -- +-- +-- -- /See:/ 'listTags' smart constructor. data ListTags = ListTags' { _ltNextToken :: !(Maybe Text) @@ -56,9 +60,9 @@ -- -- Use one of the following lenses to modify other fields as desired: -- --- * 'ltNextToken' +-- * 'ltNextToken' - Reserved for future use. -- --- * 'ltResourceIdList' +-- * 'ltResourceIdList' - Specifies a list of trail ARNs whose tags will be listed. The list has a limit of 20 ARNs. The format of a trail ARN is: @arn:aws:cloudtrail:us-east-1:123456789012:trail/MyTrail@ listTags :: ListTags listTags = @@ -71,9 +75,7 @@ ltNextToken :: Lens' ListTags (Maybe Text) ltNextToken = lens _ltNextToken (\ s a -> s{_ltNextToken = a}); --- | Specifies a list of trail ARNs whose tags will be listed. The list has a limit of 20 ARNs. The format of a trail ARN is: --- --- 'arn:aws:cloudtrail:us-east-1:123456789012:trail\/MyTrail' +-- | Specifies a list of trail ARNs whose tags will be listed. The list has a limit of 20 ARNs. The format of a trail ARN is: @arn:aws:cloudtrail:us-east-1:123456789012:trail/MyTrail@ ltResourceIdList :: Lens' ListTags [Text] ltResourceIdList = lens _ltResourceIdList (\ s a -> s{_ltResourceIdList = a}) . _Coerce; @@ -117,6 +119,8 @@ -- | Returns the objects or data listed below if successful. Otherwise, returns an error. -- +-- +-- -- /See:/ 'listTagsResponse' smart constructor. data ListTagsResponse = ListTagsResponse' { _ltrsNextToken :: !(Maybe Text) @@ -128,11 +132,11 @@ -- -- Use one of the following lenses to modify other fields as desired: -- --- * 'ltrsNextToken' +-- * 'ltrsNextToken' - Reserved for future use. -- --- * 'ltrsResourceTagList' +-- * 'ltrsResourceTagList' - Undocumented member. -- --- * 'ltrsResponseStatus' +-- * 'ltrsResponseStatus' - -- | The response status code. listTagsResponse :: Int -- ^ 'ltrsResponseStatus' -> ListTagsResponse @@ -151,7 +155,7 @@ ltrsResourceTagList :: Lens' ListTagsResponse [ResourceTag] ltrsResourceTagList = lens _ltrsResourceTagList (\ s a -> s{_ltrsResourceTagList = a}) . _Default . _Coerce; --- | The response status code. +-- | -- | The response status code. ltrsResponseStatus :: Lens' ListTagsResponse Int ltrsResponseStatus = lens _ltrsResponseStatus (\ s a -> s{_ltrsResponseStatus = a}); diff --git a/gen/Network/AWS/CloudTrail/LookupEvents.hs b/gen/Network/AWS/CloudTrail/LookupEvents.hs --- a/gen/Network/AWS/CloudTrail/LookupEvents.hs +++ b/gen/Network/AWS/CloudTrail/LookupEvents.hs @@ -18,11 +18,27 @@ -- Stability : auto-generated -- Portability : non-portable (GHC extensions) -- --- Looks up API activity events captured by CloudTrail that create, update, or delete resources in your account. Events for a region can be looked up for the times in which you had CloudTrail turned on in that region during the last seven days. Lookup supports five different attributes: time range (defined by a start time and end time), user name, event name, resource type, and resource name. All attributes are optional. The maximum number of attributes that can be specified in any one lookup request are time range and one other attribute. The default number of results returned is 10, with a maximum of 50 possible. The response includes a token that you can use to get the next page of results. +-- Looks up API activity events captured by CloudTrail that create, update, or delete resources in your account. Events for a region can be looked up for the times in which you had CloudTrail turned on in that region during the last seven days. Lookup supports the following attributes: -- --- The rate of lookup requests is limited to one per second per account. If this limit is exceeded, a throttling error occurs. -- --- Events that occurred during the selected time range will not be available for lookup if CloudTrail logging was not enabled when the events occurred. +-- * Event ID +-- +-- * Event name +-- +-- * Resource name +-- +-- * Resource type +-- +-- * User name +-- +-- +-- +-- All attributes are optional. The default number of results returned is 10, with a maximum of 50 possible. The response includes a token that you can use to get the next page of results. +-- +-- /Important:/ The rate of lookup requests is limited to one per second per account. If this limit is exceeded, a throttling error occurs. +-- +-- /Important:/ Events that occurred during the selected time range will not be available for lookup if CloudTrail logging was not enabled when the events occurred. +-- module Network.AWS.CloudTrail.LookupEvents ( -- * Creating a Request @@ -53,6 +69,8 @@ -- | Contains a request for LookupEvents. -- +-- +-- -- /See:/ 'lookupEvents' smart constructor. data LookupEvents = LookupEvents' { _leStartTime :: !(Maybe POSIX) @@ -66,15 +84,15 @@ -- -- Use one of the following lenses to modify other fields as desired: -- --- * 'leStartTime' +-- * 'leStartTime' - Specifies that only events that occur after or at the specified time are returned. If the specified start time is after the specified end time, an error is returned. -- --- * 'leLookupAttributes' +-- * 'leLookupAttributes' - Contains a list of lookup attributes. Currently the list can contain only one item. -- --- * 'leNextToken' +-- * 'leNextToken' - The token to use to get the next page of results after a previous API call. This token must be passed in with the same parameters that were specified in the the original call. For example, if the original call specified an AttributeKey of 'Username' with a value of 'root', the call with NextToken should include those same parameters. -- --- * 'leEndTime' +-- * 'leEndTime' - Specifies that only events that occur before or at the specified time are returned. If the specified end time is before the specified start time, an error is returned. -- --- * 'leMaxResults' +-- * 'leMaxResults' - The number of events to return. Possible values are 1 through 50. The default is 10. lookupEvents :: LookupEvents lookupEvents = @@ -94,7 +112,7 @@ leLookupAttributes :: Lens' LookupEvents [LookupAttribute] leLookupAttributes = lens _leLookupAttributes (\ s a -> s{_leLookupAttributes = a}) . _Default . _Coerce; --- | The token to use to get the next page of results after a previous API call. This token must be passed in with the same parameters that were specified in the the original call. For example, if the original call specified an AttributeKey of \'Username\' with a value of \'root\', the call with NextToken should include those same parameters. +-- | The token to use to get the next page of results after a previous API call. This token must be passed in with the same parameters that were specified in the the original call. For example, if the original call specified an AttributeKey of 'Username' with a value of 'root', the call with NextToken should include those same parameters. leNextToken :: Lens' LookupEvents (Maybe Text) leNextToken = lens _leNextToken (\ s a -> s{_leNextToken = a}); @@ -148,6 +166,8 @@ -- | Contains a response to a LookupEvents action. -- +-- +-- -- /See:/ 'lookupEventsResponse' smart constructor. data LookupEventsResponse = LookupEventsResponse' { _lersNextToken :: !(Maybe Text) @@ -159,11 +179,11 @@ -- -- Use one of the following lenses to modify other fields as desired: -- --- * 'lersNextToken' +-- * 'lersNextToken' - The token to use to get the next page of results after a previous API call. If the token does not appear, there are no more results to return. The token must be passed in with the same parameters as the previous call. For example, if the original call specified an AttributeKey of 'Username' with a value of 'root', the call with NextToken should include those same parameters. -- --- * 'lersEvents' +-- * 'lersEvents' - A list of events returned based on the lookup attributes specified and the CloudTrail event. The events list is sorted by time. The most recent event is listed first. -- --- * 'lersResponseStatus' +-- * 'lersResponseStatus' - -- | The response status code. lookupEventsResponse :: Int -- ^ 'lersResponseStatus' -> LookupEventsResponse @@ -174,7 +194,7 @@ , _lersResponseStatus = pResponseStatus_ } --- | The token to use to get the next page of results after a previous API call. If the token does not appear, there are no more results to return. The token must be passed in with the same parameters as the previous call. For example, if the original call specified an AttributeKey of \'Username\' with a value of \'root\', the call with NextToken should include those same parameters. +-- | The token to use to get the next page of results after a previous API call. If the token does not appear, there are no more results to return. The token must be passed in with the same parameters as the previous call. For example, if the original call specified an AttributeKey of 'Username' with a value of 'root', the call with NextToken should include those same parameters. lersNextToken :: Lens' LookupEventsResponse (Maybe Text) lersNextToken = lens _lersNextToken (\ s a -> s{_lersNextToken = a}); @@ -182,7 +202,7 @@ lersEvents :: Lens' LookupEventsResponse [Event] lersEvents = lens _lersEvents (\ s a -> s{_lersEvents = a}) . _Default . _Coerce; --- | The response status code. +-- | -- | The response status code. lersResponseStatus :: Lens' LookupEventsResponse Int lersResponseStatus = lens _lersResponseStatus (\ s a -> s{_lersResponseStatus = a}); diff --git a/gen/Network/AWS/CloudTrail/PutEventSelectors.hs b/gen/Network/AWS/CloudTrail/PutEventSelectors.hs new file mode 100644 --- /dev/null +++ b/gen/Network/AWS/CloudTrail/PutEventSelectors.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.CloudTrail.PutEventSelectors +-- Copyright : (c) 2013-2016 Brendan Hay +-- License : Mozilla Public License, v. 2.0. +-- Maintainer : Brendan Hay +-- Stability : auto-generated +-- Portability : non-portable (GHC extensions) +-- +-- Configures an event selector for your trail. Use event selectors to specify the type of events that you want your trail to log. When an event occurs in your account, CloudTrail evaluates the event selectors in all trails. For each trail, if the event matches any event selector, the trail processes and logs the event. If the event doesn't match any event selector, the trail doesn't log the event. +-- +-- +-- Example +-- +-- * You create an event selector for a trail and specify that you want write-only events. +-- +-- * The EC2 @GetConsoleOutput@ and @RunInstances@ API operations occur in your account. +-- +-- * CloudTrail evaluates whether the events match your event selectors. +-- +-- * The @RunInstances@ is a write-only event and it matches your event selector. The trail logs the event. +-- +-- * The @GetConsoleOutput@ is a read-only event but it doesn't match your event selector. The trail doesn't log the event. +-- +-- +-- +-- The @PutEventSelectors@ operation must be called from the region in which the trail was created; otherwise, an @InvalidHomeRegionException@ is thrown. +-- +-- You can configure up to five event selectors for each trail. For more information, see in the /AWS CloudTrail User Guide/ . +-- +module Network.AWS.CloudTrail.PutEventSelectors + ( + -- * Creating a Request + putEventSelectors + , PutEventSelectors + -- * Request Lenses + , pesEventSelectors + , pesTrailName + + -- * Destructuring the Response + , putEventSelectorsResponse + , PutEventSelectorsResponse + -- * Response Lenses + , pesrsTrailARN + , pesrsEventSelectors + , pesrsResponseStatus + ) where + +import Network.AWS.CloudTrail.Types +import Network.AWS.CloudTrail.Types.Product +import Network.AWS.Lens +import Network.AWS.Prelude +import Network.AWS.Request +import Network.AWS.Response + +-- | /See:/ 'putEventSelectors' smart constructor. +data PutEventSelectors = PutEventSelectors' + { _pesEventSelectors :: !(Maybe [EventSelector]) + , _pesTrailName :: !(Maybe Text) + } deriving (Eq,Read,Show,Data,Typeable,Generic) + +-- | Creates a value of 'PutEventSelectors' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'pesEventSelectors' - Specifies the settings for your event selectors. You can configure up to five event selectors for a trail. +-- +-- * 'pesTrailName' - Specifies the name of the trail or trail ARN. If you specify a trail name, the string must meet the following requirements: * Contain only ASCII letters (a-z, A-Z), numbers (0-9), periods (.), underscores (_), or dashes (-) * Start with a letter or number, and end with a letter or number * Be between 3 and 128 characters * Have no adjacent periods, underscores or dashes. Names like @my-_namespace@ and @my--namespace@ are invalid. * Not be in IP address format (for example, 192.168.5.4) If you specify a trail ARN, it must be in the format: @arn:aws:cloudtrail:us-east-1:123456789012:trail/MyTrail@ +putEventSelectors + :: PutEventSelectors +putEventSelectors = + PutEventSelectors' + { _pesEventSelectors = Nothing + , _pesTrailName = Nothing + } + +-- | Specifies the settings for your event selectors. You can configure up to five event selectors for a trail. +pesEventSelectors :: Lens' PutEventSelectors [EventSelector] +pesEventSelectors = lens _pesEventSelectors (\ s a -> s{_pesEventSelectors = a}) . _Default . _Coerce; + +-- | Specifies the name of the trail or trail ARN. If you specify a trail name, the string must meet the following requirements: * Contain only ASCII letters (a-z, A-Z), numbers (0-9), periods (.), underscores (_), or dashes (-) * Start with a letter or number, and end with a letter or number * Be between 3 and 128 characters * Have no adjacent periods, underscores or dashes. Names like @my-_namespace@ and @my--namespace@ are invalid. * Not be in IP address format (for example, 192.168.5.4) If you specify a trail ARN, it must be in the format: @arn:aws:cloudtrail:us-east-1:123456789012:trail/MyTrail@ +pesTrailName :: Lens' PutEventSelectors (Maybe Text) +pesTrailName = lens _pesTrailName (\ s a -> s{_pesTrailName = a}); + +instance AWSRequest PutEventSelectors where + type Rs PutEventSelectors = PutEventSelectorsResponse + request = postJSON cloudTrail + response + = receiveJSON + (\ s h x -> + PutEventSelectorsResponse' <$> + (x .?> "TrailARN") <*> + (x .?> "EventSelectors" .!@ mempty) + <*> (pure (fromEnum s))) + +instance Hashable PutEventSelectors + +instance NFData PutEventSelectors + +instance ToHeaders PutEventSelectors where + toHeaders + = const + (mconcat + ["X-Amz-Target" =# + ("com.amazonaws.cloudtrail.v20131101.CloudTrail_20131101.PutEventSelectors" + :: ByteString), + "Content-Type" =# + ("application/x-amz-json-1.1" :: ByteString)]) + +instance ToJSON PutEventSelectors where + toJSON PutEventSelectors'{..} + = object + (catMaybes + [("EventSelectors" .=) <$> _pesEventSelectors, + ("TrailName" .=) <$> _pesTrailName]) + +instance ToPath PutEventSelectors where + toPath = const "/" + +instance ToQuery PutEventSelectors where + toQuery = const mempty + +-- | /See:/ 'putEventSelectorsResponse' smart constructor. +data PutEventSelectorsResponse = PutEventSelectorsResponse' + { _pesrsTrailARN :: !(Maybe Text) + , _pesrsEventSelectors :: !(Maybe [EventSelector]) + , _pesrsResponseStatus :: !Int + } deriving (Eq,Read,Show,Data,Typeable,Generic) + +-- | Creates a value of 'PutEventSelectorsResponse' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'pesrsTrailARN' - Specifies the ARN of the trail that was updated with event selectors. The format of a trail ARN is: @arn:aws:cloudtrail:us-east-1:123456789012:trail/MyTrail@ +-- +-- * 'pesrsEventSelectors' - Specifies the event selectors configured for your trail. +-- +-- * 'pesrsResponseStatus' - -- | The response status code. +putEventSelectorsResponse + :: Int -- ^ 'pesrsResponseStatus' + -> PutEventSelectorsResponse +putEventSelectorsResponse pResponseStatus_ = + PutEventSelectorsResponse' + { _pesrsTrailARN = Nothing + , _pesrsEventSelectors = Nothing + , _pesrsResponseStatus = pResponseStatus_ + } + +-- | Specifies the ARN of the trail that was updated with event selectors. The format of a trail ARN is: @arn:aws:cloudtrail:us-east-1:123456789012:trail/MyTrail@ +pesrsTrailARN :: Lens' PutEventSelectorsResponse (Maybe Text) +pesrsTrailARN = lens _pesrsTrailARN (\ s a -> s{_pesrsTrailARN = a}); + +-- | Specifies the event selectors configured for your trail. +pesrsEventSelectors :: Lens' PutEventSelectorsResponse [EventSelector] +pesrsEventSelectors = lens _pesrsEventSelectors (\ s a -> s{_pesrsEventSelectors = a}) . _Default . _Coerce; + +-- | -- | The response status code. +pesrsResponseStatus :: Lens' PutEventSelectorsResponse Int +pesrsResponseStatus = lens _pesrsResponseStatus (\ s a -> s{_pesrsResponseStatus = a}); + +instance NFData PutEventSelectorsResponse diff --git a/gen/Network/AWS/CloudTrail/RemoveTags.hs b/gen/Network/AWS/CloudTrail/RemoveTags.hs --- a/gen/Network/AWS/CloudTrail/RemoveTags.hs +++ b/gen/Network/AWS/CloudTrail/RemoveTags.hs @@ -19,6 +19,8 @@ -- Portability : non-portable (GHC extensions) -- -- Removes the specified tags from a trail. +-- +-- module Network.AWS.CloudTrail.RemoveTags ( -- * Creating a Request @@ -44,6 +46,8 @@ -- | Specifies the tags to remove from a trail. -- +-- +-- -- /See:/ 'removeTags' smart constructor. data RemoveTags = RemoveTags' { _rtTagsList :: !(Maybe [Tag]) @@ -54,9 +58,9 @@ -- -- Use one of the following lenses to modify other fields as desired: -- --- * 'rtTagsList' +-- * 'rtTagsList' - Specifies a list of tags to be removed. -- --- * 'rtResourceId' +-- * 'rtResourceId' - Specifies the ARN of the trail from which tags should be removed. The format of a trail ARN is: @arn:aws:cloudtrail:us-east-1:123456789012:trail/MyTrail@ removeTags :: Text -- ^ 'rtResourceId' -> RemoveTags @@ -70,9 +74,7 @@ rtTagsList :: Lens' RemoveTags [Tag] rtTagsList = lens _rtTagsList (\ s a -> s{_rtTagsList = a}) . _Default . _Coerce; --- | Specifies the ARN of the trail from which tags should be removed. The format of a trail ARN is: --- --- 'arn:aws:cloudtrail:us-east-1:123456789012:trail\/MyTrail' +-- | Specifies the ARN of the trail from which tags should be removed. The format of a trail ARN is: @arn:aws:cloudtrail:us-east-1:123456789012:trail/MyTrail@ rtResourceId :: Lens' RemoveTags Text rtResourceId = lens _rtResourceId (\ s a -> s{_rtResourceId = a}); @@ -113,6 +115,8 @@ -- | Returns the objects or data listed below if successful. Otherwise, returns an error. -- +-- +-- -- /See:/ 'removeTagsResponse' smart constructor. newtype RemoveTagsResponse = RemoveTagsResponse' { _rtrsResponseStatus :: Int @@ -122,7 +126,7 @@ -- -- Use one of the following lenses to modify other fields as desired: -- --- * 'rtrsResponseStatus' +-- * 'rtrsResponseStatus' - -- | The response status code. removeTagsResponse :: Int -- ^ 'rtrsResponseStatus' -> RemoveTagsResponse @@ -131,7 +135,7 @@ { _rtrsResponseStatus = pResponseStatus_ } --- | The response status code. +-- | -- | The response status code. rtrsResponseStatus :: Lens' RemoveTagsResponse Int rtrsResponseStatus = lens _rtrsResponseStatus (\ s a -> s{_rtrsResponseStatus = a}); diff --git a/gen/Network/AWS/CloudTrail/StartLogging.hs b/gen/Network/AWS/CloudTrail/StartLogging.hs --- a/gen/Network/AWS/CloudTrail/StartLogging.hs +++ b/gen/Network/AWS/CloudTrail/StartLogging.hs @@ -19,6 +19,8 @@ -- Portability : non-portable (GHC extensions) -- -- Starts the recording of AWS API calls and log file delivery for a trail. For a trail that is enabled in all regions, this operation must be called from the region in which the trail was created. This operation cannot be called on the shadow trails (replicated trails in other regions) of a trail that is enabled in all regions. +-- +-- module Network.AWS.CloudTrail.StartLogging ( -- * Creating a Request @@ -43,6 +45,8 @@ -- | The request to CloudTrail to start logging AWS API calls for an account. -- +-- +-- -- /See:/ 'startLogging' smart constructor. newtype StartLogging = StartLogging' { _sName :: Text @@ -52,7 +56,7 @@ -- -- Use one of the following lenses to modify other fields as desired: -- --- * 'sName' +-- * 'sName' - Specifies the name or the CloudTrail ARN of the trail for which CloudTrail logs AWS API calls. The format of a trail ARN is: @arn:aws:cloudtrail:us-east-1:123456789012:trail/MyTrail@ startLogging :: Text -- ^ 'sName' -> StartLogging @@ -61,9 +65,7 @@ { _sName = pName_ } --- | Specifies the name or the CloudTrail ARN of the trail for which CloudTrail logs AWS API calls. The format of a trail ARN is: --- --- 'arn:aws:cloudtrail:us-east-1:123456789012:trail\/MyTrail' +-- | Specifies the name or the CloudTrail ARN of the trail for which CloudTrail logs AWS API calls. The format of a trail ARN is: @arn:aws:cloudtrail:us-east-1:123456789012:trail/MyTrail@ sName :: Lens' StartLogging Text sName = lens _sName (\ s a -> s{_sName = a}); @@ -101,6 +103,8 @@ -- | Returns the objects or data listed below if successful. Otherwise, returns an error. -- +-- +-- -- /See:/ 'startLoggingResponse' smart constructor. newtype StartLoggingResponse = StartLoggingResponse' { _srsResponseStatus :: Int @@ -110,7 +114,7 @@ -- -- Use one of the following lenses to modify other fields as desired: -- --- * 'srsResponseStatus' +-- * 'srsResponseStatus' - -- | The response status code. startLoggingResponse :: Int -- ^ 'srsResponseStatus' -> StartLoggingResponse @@ -119,7 +123,7 @@ { _srsResponseStatus = pResponseStatus_ } --- | The response status code. +-- | -- | The response status code. srsResponseStatus :: Lens' StartLoggingResponse Int srsResponseStatus = lens _srsResponseStatus (\ s a -> s{_srsResponseStatus = a}); diff --git a/gen/Network/AWS/CloudTrail/StopLogging.hs b/gen/Network/AWS/CloudTrail/StopLogging.hs --- a/gen/Network/AWS/CloudTrail/StopLogging.hs +++ b/gen/Network/AWS/CloudTrail/StopLogging.hs @@ -18,7 +18,9 @@ -- Stability : auto-generated -- Portability : non-portable (GHC extensions) -- --- Suspends the recording of AWS API calls and log file delivery for the specified trail. Under most circumstances, there is no need to use this action. You can update a trail without stopping it first. This action is the only way to stop recording. For a trail enabled in all regions, this operation must be called from the region in which the trail was created, or an 'InvalidHomeRegionException' will occur. This operation cannot be called on the shadow trails (replicated trails in other regions) of a trail enabled in all regions. +-- Suspends the recording of AWS API calls and log file delivery for the specified trail. Under most circumstances, there is no need to use this action. You can update a trail without stopping it first. This action is the only way to stop recording. For a trail enabled in all regions, this operation must be called from the region in which the trail was created, or an @InvalidHomeRegionException@ will occur. This operation cannot be called on the shadow trails (replicated trails in other regions) of a trail enabled in all regions. +-- +-- module Network.AWS.CloudTrail.StopLogging ( -- * Creating a Request @@ -43,6 +45,8 @@ -- | Passes the request to CloudTrail to stop logging AWS API calls for the specified account. -- +-- +-- -- /See:/ 'stopLogging' smart constructor. newtype StopLogging = StopLogging' { _slName :: Text @@ -52,7 +56,7 @@ -- -- Use one of the following lenses to modify other fields as desired: -- --- * 'slName' +-- * 'slName' - Specifies the name or the CloudTrail ARN of the trail for which CloudTrail will stop logging AWS API calls. The format of a trail ARN is: @arn:aws:cloudtrail:us-east-1:123456789012:trail/MyTrail@ stopLogging :: Text -- ^ 'slName' -> StopLogging @@ -61,9 +65,7 @@ { _slName = pName_ } --- | Specifies the name or the CloudTrail ARN of the trail for which CloudTrail will stop logging AWS API calls. The format of a trail ARN is: --- --- 'arn:aws:cloudtrail:us-east-1:123456789012:trail\/MyTrail' +-- | Specifies the name or the CloudTrail ARN of the trail for which CloudTrail will stop logging AWS API calls. The format of a trail ARN is: @arn:aws:cloudtrail:us-east-1:123456789012:trail/MyTrail@ slName :: Lens' StopLogging Text slName = lens _slName (\ s a -> s{_slName = a}); @@ -101,6 +103,8 @@ -- | Returns the objects or data listed below if successful. Otherwise, returns an error. -- +-- +-- -- /See:/ 'stopLoggingResponse' smart constructor. newtype StopLoggingResponse = StopLoggingResponse' { _slrsResponseStatus :: Int @@ -110,7 +114,7 @@ -- -- Use one of the following lenses to modify other fields as desired: -- --- * 'slrsResponseStatus' +-- * 'slrsResponseStatus' - -- | The response status code. stopLoggingResponse :: Int -- ^ 'slrsResponseStatus' -> StopLoggingResponse @@ -119,7 +123,7 @@ { _slrsResponseStatus = pResponseStatus_ } --- | The response status code. +-- | -- | The response status code. slrsResponseStatus :: Lens' StopLoggingResponse Int slrsResponseStatus = lens _slrsResponseStatus (\ s a -> s{_slrsResponseStatus = a}); diff --git a/gen/Network/AWS/CloudTrail/Types.hs b/gen/Network/AWS/CloudTrail/Types.hs --- a/gen/Network/AWS/CloudTrail/Types.hs +++ b/gen/Network/AWS/CloudTrail/Types.hs @@ -33,6 +33,7 @@ , _CloudWatchLogsDeliveryUnavailableException , _KMSKeyNotFoundException , _TrailNotFoundException + , _InvalidEventSelectorsException , _TrailNotProvidedException , _InvalidS3BucketNameException , _InvalidCloudWatchLogsLogGroupARNException @@ -53,6 +54,15 @@ -- * LookupAttributeKey , LookupAttributeKey (..) + -- * ReadWriteType + , ReadWriteType (..) + + -- * DataResource + , DataResource + , dataResource + , drValues + , drType + -- * Event , Event , event @@ -61,8 +71,16 @@ , eEventTime , eCloudTrailEvent , eEventName + , eEventSource , eEventId + -- * EventSelector + , EventSelector + , eventSelector + , esDataResources + , esReadWriteType + , esIncludeManagementEvents + -- * LookupAttribute , LookupAttribute , lookupAttribute @@ -108,6 +126,7 @@ , tHomeRegion , tName , tIncludeGlobalServiceEvents + , tHasCustomEventSelectors , tCloudWatchLogsRoleARN , tS3BucketName , tIsMultiRegionTrail @@ -119,7 +138,7 @@ import Network.AWS.Prelude import Network.AWS.Sign.V4 --- | API version '2013-11-01' of the Amazon CloudTrail SDK configuration. +-- | API version @2013-11-01@ of the Amazon CloudTrail SDK configuration. cloudTrail :: Service cloudTrail = Service @@ -154,172 +173,254 @@ | otherwise = Nothing -- | Occurs if the timestamp values are invalid. Either the start time occurs after the end time or the time range is outside the range of possible values. +-- +-- _InvalidTimeRangeException :: AsError a => Getting (First ServiceError) a ServiceError _InvalidTimeRangeException = _ServiceError . hasCode "InvalidTimeRangeException" -- | This exception is thrown when the policy on the S3 bucket is not sufficient. +-- +-- _InsufficientS3BucketPolicyException :: AsError a => Getting (First ServiceError) a ServiceError _InsufficientS3BucketPolicyException = _ServiceError . hasCode "InsufficientS3BucketPolicyException" -- | This exception is thrown when the maximum number of trails is reached. +-- +-- _MaximumNumberOfTrailsExceededException :: AsError a => Getting (First ServiceError) a ServiceError _MaximumNumberOfTrailsExceededException = _ServiceError . hasCode "MaximumNumberOfTrailsExceededException" -- | This exception is thrown when the requested operation is not supported. +-- +-- _UnsupportedOperationException :: AsError a => Getting (First ServiceError) a ServiceError _UnsupportedOperationException = _ServiceError . hasCode "UnsupportedOperationException" -- | This exception is deprecated. +-- +-- _KMSKeyDisabledException :: AsError a => Getting (First ServiceError) a ServiceError _KMSKeyDisabledException = _ServiceError . hasCode "KmsKeyDisabledException" -- | This exception is thrown when the policy on the S3 bucket or KMS key is not sufficient. +-- +-- _InsufficientEncryptionPolicyException :: AsError a => Getting (First ServiceError) a ServiceError _InsufficientEncryptionPolicyException = _ServiceError . hasCode "InsufficientEncryptionPolicyException" -- | This exception is thrown when the policy on the SNS topic is not sufficient. +-- +-- _InsufficientSNSTopicPolicyException :: AsError a => Getting (First ServiceError) a ServiceError _InsufficientSNSTopicPolicyException = _ServiceError . hasCode "InsufficientSnsTopicPolicyException" -- | This exception is thrown when the provided role is not valid. +-- +-- _InvalidCloudWatchLogsRoleARNException :: AsError a => Getting (First ServiceError) a ServiceError _InvalidCloudWatchLogsRoleARNException = _ServiceError . hasCode "InvalidCloudWatchLogsRoleArnException" --- | The number of tags per trail has exceeded the permitted amount. Currently, the limit is 10. +-- | The number of tags per trail has exceeded the permitted amount. Currently, the limit is 50. +-- +-- _TagsLimitExceededException :: AsError a => Getting (First ServiceError) a ServiceError _TagsLimitExceededException = _ServiceError . hasCode "TagsLimitExceededException" -- | This exception is thrown when an operation is called with an invalid trail ARN. The format of a trail ARN is: -- --- 'arn:aws:cloudtrail:us-east-1:123456789012:trail\/MyTrail' +-- +-- @arn:aws:cloudtrail:us-east-1:123456789012:trail/MyTrail@ +-- _CloudTrailARNInvalidException :: AsError a => Getting (First ServiceError) a ServiceError _CloudTrailARNInvalidException = _ServiceError . hasCode "CloudTrailARNInvalidException" -- | Occurs when an invalid lookup attribute is specified. +-- +-- _InvalidLookupAttributesException :: AsError a => Getting (First ServiceError) a ServiceError _InvalidLookupAttributesException = _ServiceError . hasCode "InvalidLookupAttributesException" -- | This exception is thrown when the provided trail name is not valid. Trail names must meet the following requirements: -- --- - Contain only ASCII letters (a-z, A-Z), numbers (0-9), periods (.), underscores (_), or dashes (-) -- --- - Start with a letter or number, and end with a letter or number +-- * Contain only ASCII letters (a-z, A-Z), numbers (0-9), periods (.), underscores (_), or dashes (-) -- --- - Be between 3 and 128 characters +-- * Start with a letter or number, and end with a letter or number -- --- - Have no adjacent periods, underscores or dashes. Names like 'my-_namespace' and 'my--namespace' are invalid. +-- * Be between 3 and 128 characters -- --- - Not be in IP address format (for example, 192.168.5.4) +-- * Have no adjacent periods, underscores or dashes. Names like @my-_namespace@ and @my--namespace@ are invalid. -- +-- * Not be in IP address format (for example, 192.168.5.4) +-- +-- +-- _InvalidTrailNameException :: AsError a => Getting (First ServiceError) a ServiceError _InvalidTrailNameException = _ServiceError . hasCode "InvalidTrailNameException" -- | This exception is thrown when the provided SNS topic name is not valid. +-- +-- _InvalidSNSTopicNameException :: AsError a => Getting (First ServiceError) a ServiceError _InvalidSNSTopicNameException = _ServiceError . hasCode "InvalidSnsTopicNameException" -- | This exception is thrown when the specified resource type is not supported by CloudTrail. +-- +-- _ResourceTypeNotSupportedException :: AsError a => Getting (First ServiceError) a ServiceError _ResourceTypeNotSupportedException = _ServiceError . hasCode "ResourceTypeNotSupportedException" -- | Cannot set a CloudWatch Logs delivery for this region. +-- +-- _CloudWatchLogsDeliveryUnavailableException :: AsError a => Getting (First ServiceError) a ServiceError _CloudWatchLogsDeliveryUnavailableException = _ServiceError . hasCode "CloudWatchLogsDeliveryUnavailableException" -- | This exception is thrown when the KMS key does not exist, or when the S3 bucket and the KMS key are not in the same region. +-- +-- _KMSKeyNotFoundException :: AsError a => Getting (First ServiceError) a ServiceError _KMSKeyNotFoundException = _ServiceError . hasCode "KmsKeyNotFoundException" -- | This exception is thrown when the trail with the given name is not found. +-- +-- _TrailNotFoundException :: AsError a => Getting (First ServiceError) a ServiceError _TrailNotFoundException = _ServiceError . hasCode "TrailNotFoundException" +-- | This exception is thrown when the @PutEventSelectors@ operation is called with an invalid number of event selectors, data resources, or an invalid value for a parameter: +-- +-- +-- * Specify a valid number of event selectors (1 to 5) for a trail. +-- +-- * Specify a valid number of data resources (1 to 50) for an event selector. +-- +-- * Specify a valid value for a parameter. For example, specifying the @ReadWriteType@ parameter with a value of @read-only@ is invalid. +-- +-- +-- +_InvalidEventSelectorsException :: AsError a => Getting (First ServiceError) a ServiceError +_InvalidEventSelectorsException = + _ServiceError . hasCode "InvalidEventSelectorsException" + -- | This exception is deprecated. +-- +-- _TrailNotProvidedException :: AsError a => Getting (First ServiceError) a ServiceError _TrailNotProvidedException = _ServiceError . hasCode "TrailNotProvidedException" -- | This exception is thrown when the provided S3 bucket name is not valid. +-- +-- _InvalidS3BucketNameException :: AsError a => Getting (First ServiceError) a ServiceError _InvalidS3BucketNameException = _ServiceError . hasCode "InvalidS3BucketNameException" -- | This exception is thrown when the provided CloudWatch log group is not valid. +-- +-- _InvalidCloudWatchLogsLogGroupARNException :: AsError a => Getting (First ServiceError) a ServiceError _InvalidCloudWatchLogsLogGroupARNException = _ServiceError . hasCode "InvalidCloudWatchLogsLogGroupArnException" -- | This exception is thrown when there is an issue with the specified KMS key and the trail can’t be updated. +-- +-- _KMSException :: AsError a => Getting (First ServiceError) a ServiceError _KMSException = _ServiceError . hasCode "KmsException" -- | This exception is thrown when the specified S3 bucket does not exist. +-- +-- _S3BucketDoesNotExistException :: AsError a => Getting (First ServiceError) a ServiceError _S3BucketDoesNotExistException = _ServiceError . hasCode "S3BucketDoesNotExistException" -- | Invalid token or token that was previously used in a request with different parameters. This exception is thrown if the token is invalid. +-- +-- _InvalidNextTokenException :: AsError a => Getting (First ServiceError) a ServiceError _InvalidNextTokenException = _ServiceError . hasCode "InvalidNextTokenException" --- | This exception is thrown when the key or value specified for the tag does not match the regular expression '^([\\\\p{L}\\\\p{Z}\\\\p{N}_.:\/=+\\\\-\']*)>'. +-- | This exception is thrown when the key or value specified for the tag does not match the regular expression @^([\\p{L}\\p{Z}\\p{N}_.:/=+\\-@]*)$@ . +-- +-- _InvalidTagParameterException :: AsError a => Getting (First ServiceError) a ServiceError _InvalidTagParameterException = _ServiceError . hasCode "InvalidTagParameterException" -- | This exception is thrown when the requested operation is not permitted. +-- +-- _OperationNotPermittedException :: AsError a => Getting (First ServiceError) a ServiceError _OperationNotPermittedException = _ServiceError . hasCode "OperationNotPermittedException" -- | Reserved for future use. +-- +-- _InvalidTokenException :: AsError a => Getting (First ServiceError) a ServiceError _InvalidTokenException = _ServiceError . hasCode "InvalidTokenException" -- | This exception is thrown if the limit specified is invalid. +-- +-- _InvalidMaxResultsException :: AsError a => Getting (First ServiceError) a ServiceError _InvalidMaxResultsException = _ServiceError . hasCode "InvalidMaxResultsException" -- | This exception is thrown when the specified trail already exists. +-- +-- _TrailAlreadyExistsException :: AsError a => Getting (First ServiceError) a ServiceError _TrailAlreadyExistsException = _ServiceError . hasCode "TrailAlreadyExistsException" -- | This exception is thrown when the provided S3 prefix is not valid. +-- +-- _InvalidS3PrefixException :: AsError a => Getting (First ServiceError) a ServiceError _InvalidS3PrefixException = _ServiceError . hasCode "InvalidS3PrefixException" -- | This exception is thrown when the specified resource is not found. +-- +-- _ResourceNotFoundException :: AsError a => Getting (First ServiceError) a ServiceError _ResourceNotFoundException = _ServiceError . hasCode "ResourceNotFoundException" -- | This exception is thrown when the combination of parameters provided is not valid. +-- +-- _InvalidParameterCombinationException :: AsError a => Getting (First ServiceError) a ServiceError _InvalidParameterCombinationException = _ServiceError . hasCode "InvalidParameterCombinationException" -- | This exception is thrown when the KMS key ARN is invalid. +-- +-- _InvalidKMSKeyIdException :: AsError a => Getting (First ServiceError) a ServiceError _InvalidKMSKeyIdException = _ServiceError . hasCode "InvalidKmsKeyIdException" -- | This exception is thrown when an operation is called on a trail from a region other than the region in which the trail was created. +-- +-- _InvalidHomeRegionException :: AsError a => Getting (First ServiceError) a ServiceError _InvalidHomeRegionException = _ServiceError . hasCode "InvalidHomeRegionException" diff --git a/gen/Network/AWS/CloudTrail/Types/Product.hs b/gen/Network/AWS/CloudTrail/Types/Product.hs --- a/gen/Network/AWS/CloudTrail/Types/Product.hs +++ b/gen/Network/AWS/CloudTrail/Types/Product.hs @@ -21,8 +21,75 @@ import Network.AWS.Lens import Network.AWS.Prelude +-- | The Amazon S3 objects that you specify in your event selectors for your trail to log data events. Data events are object level API operations that access S3 objects, such as @GetObject@ , @DeleteObject@ , and @PutObject@ . You can specify up to 50 S3 buckets and object prefixes for an event selector. +-- +-- +-- Example +-- +-- * You create an event selector for a trail and specify an S3 bucket and an empty prefix, such as @arn:aws:s3:::bucket-1/@ . +-- +-- * You upload an image file to @bucket-1@ . +-- +-- * The @PutObject@ API operation occurs on an object in the S3 bucket that you specified in the event selector. The trail processes and logs the event. +-- +-- * You upload another image file to a different S3 bucket named @arn:aws:s3:::bucket-2@ . +-- +-- * The event occurs on an object in an S3 bucket that you didn't specify in the event selector. The trail doesn’t log the event. +-- +-- +-- +-- +-- /See:/ 'dataResource' smart constructor. +data DataResource = DataResource' + { _drValues :: !(Maybe [Text]) + , _drType :: !(Maybe Text) + } deriving (Eq,Read,Show,Data,Typeable,Generic) + +-- | Creates a value of 'DataResource' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'drValues' - A list of ARN-like strings for the specified S3 objects. To log data events for all objects in an S3 bucket, specify the bucket and an empty object prefix such as @arn:aws:s3:::bucket-1/@ . The trail logs data events for all objects in this S3 bucket. To log data events for specific objects, specify the S3 bucket and object prefix such as @arn:aws:s3:::bucket-1/example-images@ . The trail logs data events for objects in this S3 bucket that match the prefix. +-- +-- * 'drType' - The resource type in which you want to log data events. You can specify only the following value: @AWS::S3::Object@ . +dataResource + :: DataResource +dataResource = + DataResource' + { _drValues = Nothing + , _drType = Nothing + } + +-- | A list of ARN-like strings for the specified S3 objects. To log data events for all objects in an S3 bucket, specify the bucket and an empty object prefix such as @arn:aws:s3:::bucket-1/@ . The trail logs data events for all objects in this S3 bucket. To log data events for specific objects, specify the S3 bucket and object prefix such as @arn:aws:s3:::bucket-1/example-images@ . The trail logs data events for objects in this S3 bucket that match the prefix. +drValues :: Lens' DataResource [Text] +drValues = lens _drValues (\ s a -> s{_drValues = a}) . _Default . _Coerce; + +-- | The resource type in which you want to log data events. You can specify only the following value: @AWS::S3::Object@ . +drType :: Lens' DataResource (Maybe Text) +drType = lens _drType (\ s a -> s{_drType = a}); + +instance FromJSON DataResource where + parseJSON + = withObject "DataResource" + (\ x -> + DataResource' <$> + (x .:? "Values" .!= mempty) <*> (x .:? "Type")) + +instance Hashable DataResource + +instance NFData DataResource + +instance ToJSON DataResource where + toJSON DataResource'{..} + = object + (catMaybes + [("Values" .=) <$> _drValues, + ("Type" .=) <$> _drType]) + -- | Contains information about an event that was returned by a lookup request. The result includes a representation of a CloudTrail event. -- +-- +-- -- /See:/ 'event' smart constructor. data Event = Event' { _eUsername :: !(Maybe Text) @@ -30,6 +97,7 @@ , _eEventTime :: !(Maybe POSIX) , _eCloudTrailEvent :: !(Maybe Text) , _eEventName :: !(Maybe Text) + , _eEventSource :: !(Maybe Text) , _eEventId :: !(Maybe Text) } deriving (Eq,Read,Show,Data,Typeable,Generic) @@ -37,17 +105,19 @@ -- -- Use one of the following lenses to modify other fields as desired: -- --- * 'eUsername' +-- * 'eUsername' - A user name or role name of the requester that called the API in the event returned. -- --- * 'eResources' +-- * 'eResources' - A list of resources referenced by the event returned. -- --- * 'eEventTime' +-- * 'eEventTime' - The date and time of the event returned. -- --- * 'eCloudTrailEvent' +-- * 'eCloudTrailEvent' - A JSON string that contains a representation of the event returned. -- --- * 'eEventName' +-- * 'eEventName' - The name of the event returned. -- --- * 'eEventId' +-- * 'eEventSource' - The AWS service that the request was made to. +-- +-- * 'eEventId' - The CloudTrail ID of the event returned. event :: Event event = @@ -57,6 +127,7 @@ , _eEventTime = Nothing , _eCloudTrailEvent = Nothing , _eEventName = Nothing + , _eEventSource = Nothing , _eEventId = Nothing } @@ -80,6 +151,10 @@ eEventName :: Lens' Event (Maybe Text) eEventName = lens _eEventName (\ s a -> s{_eEventName = a}); +-- | The AWS service that the request was made to. +eEventSource :: Lens' Event (Maybe Text) +eEventSource = lens _eEventSource (\ s a -> s{_eEventSource = a}); + -- | The CloudTrail ID of the event returned. eEventId :: Lens' Event (Maybe Text) eEventId = lens _eEventId (\ s a -> s{_eEventId = a}); @@ -93,14 +168,82 @@ <*> (x .:? "EventTime") <*> (x .:? "CloudTrailEvent") <*> (x .:? "EventName") + <*> (x .:? "EventSource") <*> (x .:? "EventId")) instance Hashable Event instance NFData Event +-- | Use event selectors to specify the types of events that you want your trail to log. When an event occurs in your account, CloudTrail evaluates the event selector for all trails. For each trail, if the event matches any event selector, the trail processes and logs the event. If the event doesn't match any event selector, the trail doesn't log the event. +-- +-- +-- You can configure up to five event selectors for a trail. +-- +-- +-- /See:/ 'eventSelector' smart constructor. +data EventSelector = EventSelector' + { _esDataResources :: !(Maybe [DataResource]) + , _esReadWriteType :: !(Maybe ReadWriteType) + , _esIncludeManagementEvents :: !(Maybe Bool) + } deriving (Eq,Read,Show,Data,Typeable,Generic) + +-- | Creates a value of 'EventSelector' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'esDataResources' - CloudTrail supports logging only data events for S3 objects. You can specify up to 50 S3 buckets and object prefixes for an event selector. For more information, see in the /AWS CloudTrail User Guide/ . +-- +-- * 'esReadWriteType' - Specify if you want your trail to log read-only events, write-only events, or all. For example, the EC2 @GetConsoleOutput@ is a read-only API operation and @RunInstances@ is a write-only API operation. By default, the value is @All@ . +-- +-- * 'esIncludeManagementEvents' - Specify if you want your event selector to include management events for your trail. For more information, see in the /AWS CloudTrail User Guide/ . By default, the value is @true@ . +eventSelector + :: EventSelector +eventSelector = + EventSelector' + { _esDataResources = Nothing + , _esReadWriteType = Nothing + , _esIncludeManagementEvents = Nothing + } + +-- | CloudTrail supports logging only data events for S3 objects. You can specify up to 50 S3 buckets and object prefixes for an event selector. For more information, see in the /AWS CloudTrail User Guide/ . +esDataResources :: Lens' EventSelector [DataResource] +esDataResources = lens _esDataResources (\ s a -> s{_esDataResources = a}) . _Default . _Coerce; + +-- | Specify if you want your trail to log read-only events, write-only events, or all. For example, the EC2 @GetConsoleOutput@ is a read-only API operation and @RunInstances@ is a write-only API operation. By default, the value is @All@ . +esReadWriteType :: Lens' EventSelector (Maybe ReadWriteType) +esReadWriteType = lens _esReadWriteType (\ s a -> s{_esReadWriteType = a}); + +-- | Specify if you want your event selector to include management events for your trail. For more information, see in the /AWS CloudTrail User Guide/ . By default, the value is @true@ . +esIncludeManagementEvents :: Lens' EventSelector (Maybe Bool) +esIncludeManagementEvents = lens _esIncludeManagementEvents (\ s a -> s{_esIncludeManagementEvents = a}); + +instance FromJSON EventSelector where + parseJSON + = withObject "EventSelector" + (\ x -> + EventSelector' <$> + (x .:? "DataResources" .!= mempty) <*> + (x .:? "ReadWriteType") + <*> (x .:? "IncludeManagementEvents")) + +instance Hashable EventSelector + +instance NFData EventSelector + +instance ToJSON EventSelector where + toJSON EventSelector'{..} + = object + (catMaybes + [("DataResources" .=) <$> _esDataResources, + ("ReadWriteType" .=) <$> _esReadWriteType, + ("IncludeManagementEvents" .=) <$> + _esIncludeManagementEvents]) + -- | Specifies an attribute and value that filter the events returned. -- +-- +-- -- /See:/ 'lookupAttribute' smart constructor. data LookupAttribute = LookupAttribute' { _laAttributeKey :: !LookupAttributeKey @@ -111,9 +254,9 @@ -- -- Use one of the following lenses to modify other fields as desired: -- --- * 'laAttributeKey' +-- * 'laAttributeKey' - Specifies an attribute on which to filter the events returned. -- --- * 'laAttributeValue' +-- * 'laAttributeValue' - Specifies a value for the specified AttributeKey. lookupAttribute :: LookupAttributeKey -- ^ 'laAttributeKey' -> Text -- ^ 'laAttributeValue' @@ -145,6 +288,8 @@ -- | Contains information about a returned public key. -- +-- +-- -- /See:/ 'publicKey' smart constructor. data PublicKey = PublicKey' { _pkFingerprint :: !(Maybe Text) @@ -157,13 +302,13 @@ -- -- Use one of the following lenses to modify other fields as desired: -- --- * 'pkFingerprint' +-- * 'pkFingerprint' - The fingerprint of the public key. -- --- * 'pkValidityEndTime' +-- * 'pkValidityEndTime' - The ending time of validity of the public key. -- --- * 'pkValue' +-- * 'pkValue' - The DER encoded public key value in PKCS#1 format.-- /Note:/ This 'Lens' automatically encodes and decodes Base64 data. The underlying isomorphism will encode to Base64 representation during serialisation, and decode from Base64 representation during deserialisation. This 'Lens' accepts and returns only raw unencoded data. -- --- * 'pkValidityStartTime' +-- * 'pkValidityStartTime' - The starting time of validity of the public key. publicKey :: PublicKey publicKey = @@ -182,13 +327,7 @@ pkValidityEndTime :: Lens' PublicKey (Maybe UTCTime) pkValidityEndTime = lens _pkValidityEndTime (\ s a -> s{_pkValidityEndTime = a}) . mapping _Time; --- | The DER encoded public key value in PKCS#1 format. --- --- /Note:/ This 'Lens' automatically encodes and decodes Base64 data, --- despite what the AWS documentation might say. --- The underlying isomorphism will encode to Base64 representation during --- serialisation, and decode from Base64 representation during deserialisation. --- This 'Lens' accepts and returns only raw unencoded data. +-- | The DER encoded public key value in PKCS#1 format.-- /Note:/ This 'Lens' automatically encodes and decodes Base64 data. The underlying isomorphism will encode to Base64 representation during serialisation, and decode from Base64 representation during deserialisation. This 'Lens' accepts and returns only raw unencoded data. pkValue :: Lens' PublicKey (Maybe ByteString) pkValue = lens _pkValue (\ s a -> s{_pkValue = a}) . mapping _Base64; @@ -211,6 +350,8 @@ -- | Specifies the type and name of a resource referenced by an event. -- +-- +-- -- /See:/ 'resource' smart constructor. data Resource = Resource' { _rResourceType :: !(Maybe Text) @@ -221,9 +362,9 @@ -- -- Use one of the following lenses to modify other fields as desired: -- --- * 'rResourceType' +-- * 'rResourceType' - The type of a resource referenced by the event returned. When the resource type cannot be determined, null is returned. Some examples of resource types are: __Instance__ for EC2, __Trail__ for CloudTrail, __DBInstance__ for RDS, and __AccessKey__ for IAM. For a list of resource types supported for event lookup, see . -- --- * 'rResourceName' +-- * 'rResourceName' - The name of the resource referenced by the event returned. These are user-created names whose values will depend on the environment. For example, the resource name might be "auto-scaling-test-group" for an Auto Scaling Group or "i-1234567" for an EC2 Instance. resource :: Resource resource = @@ -232,11 +373,11 @@ , _rResourceName = Nothing } --- | The type of a resource referenced by the event returned. When the resource type cannot be determined, null is returned. Some examples of resource types are: __Instance__ for EC2, __Trail__ for CloudTrail, __DBInstance__ for RDS, and __AccessKey__ for IAM. For a list of resource types supported for event lookup, see . +-- | The type of a resource referenced by the event returned. When the resource type cannot be determined, null is returned. Some examples of resource types are: __Instance__ for EC2, __Trail__ for CloudTrail, __DBInstance__ for RDS, and __AccessKey__ for IAM. For a list of resource types supported for event lookup, see . rResourceType :: Lens' Resource (Maybe Text) rResourceType = lens _rResourceType (\ s a -> s{_rResourceType = a}); --- | The name of the resource referenced by the event returned. These are user-created names whose values will depend on the environment. For example, the resource name might be \"auto-scaling-test-group\" for an Auto Scaling Group or \"i-1234567\" for an EC2 Instance. +-- | The name of the resource referenced by the event returned. These are user-created names whose values will depend on the environment. For example, the resource name might be "auto-scaling-test-group" for an Auto Scaling Group or "i-1234567" for an EC2 Instance. rResourceName :: Lens' Resource (Maybe Text) rResourceName = lens _rResourceName (\ s a -> s{_rResourceName = a}); @@ -253,6 +394,8 @@ -- | A resource tag. -- +-- +-- -- /See:/ 'resourceTag' smart constructor. data ResourceTag = ResourceTag' { _rResourceId :: !(Maybe Text) @@ -263,9 +406,9 @@ -- -- Use one of the following lenses to modify other fields as desired: -- --- * 'rResourceId' +-- * 'rResourceId' - Specifies the ARN of the resource. -- --- * 'rTagsList' +-- * 'rTagsList' - Undocumented member. resourceTag :: ResourceTag resourceTag = @@ -296,6 +439,8 @@ -- | A custom key-value pair associated with a resource such as a CloudTrail trail. -- +-- +-- -- /See:/ 'tag' smart constructor. data Tag = Tag' { _tagValue :: !(Maybe Text) @@ -306,9 +451,9 @@ -- -- Use one of the following lenses to modify other fields as desired: -- --- * 'tagValue' +-- * 'tagValue' - The value in a key-value pair of a tag. The value must be no longer than 256 Unicode characters. -- --- * 'tagKey' +-- * 'tagKey' - The key in a key-value pair. The key must be must be no longer than 128 Unicode characters. The key must be unique for the resource to which it applies. tag :: Text -- ^ 'tagKey' -> Tag @@ -344,6 +489,8 @@ -- | The settings for a trail. -- +-- +-- -- /See:/ 'trail' smart constructor. data Trail = Trail' { _tLogFileValidationEnabled :: !(Maybe Bool) @@ -356,6 +503,7 @@ , _tHomeRegion :: !(Maybe Text) , _tName :: !(Maybe Text) , _tIncludeGlobalServiceEvents :: !(Maybe Bool) + , _tHasCustomEventSelectors :: !(Maybe Bool) , _tCloudWatchLogsRoleARN :: !(Maybe Text) , _tS3BucketName :: !(Maybe Text) , _tIsMultiRegionTrail :: !(Maybe Bool) @@ -365,31 +513,33 @@ -- -- Use one of the following lenses to modify other fields as desired: -- --- * 'tLogFileValidationEnabled' +-- * 'tLogFileValidationEnabled' - Specifies whether log file validation is enabled. -- --- * 'tTrailARN' +-- * 'tTrailARN' - Specifies the ARN of the trail. The format of a trail ARN is: @arn:aws:cloudtrail:us-east-1:123456789012:trail/MyTrail@ -- --- * 'tS3KeyPrefix' +-- * 'tS3KeyPrefix' - Specifies the Amazon S3 key prefix that comes after the name of the bucket you have designated for log file delivery. For more information, see .The maximum length is 200 characters. -- --- * 'tSNSTopicARN' +-- * 'tSNSTopicARN' - Specifies the ARN of the Amazon SNS topic that CloudTrail uses to send notifications when log files are delivered. The format of a topic ARN is: @arn:aws:sns:us-east-1:123456789012:MyTopic@ -- --- * 'tSNSTopicName' +-- * 'tSNSTopicName' - This field is deprecated. Use SnsTopicARN. -- --- * 'tCloudWatchLogsLogGroupARN' +-- * 'tCloudWatchLogsLogGroupARN' - Specifies an Amazon Resource Name (ARN), a unique identifier that represents the log group to which CloudTrail logs will be delivered. -- --- * 'tKMSKeyId' +-- * 'tKMSKeyId' - Specifies the KMS key ID that encrypts the logs delivered by CloudTrail. The value is a fully specified ARN to a KMS key in the format: @arn:aws:kms:us-east-1:123456789012:key/12345678-1234-1234-1234-123456789012@ -- --- * 'tHomeRegion' +-- * 'tHomeRegion' - The region in which the trail was created. -- --- * 'tName' +-- * 'tName' - Name of the trail set by calling 'CreateTrail' . The maximum length is 128 characters. -- --- * 'tIncludeGlobalServiceEvents' +-- * 'tIncludeGlobalServiceEvents' - Set to __True__ to include AWS API calls from AWS global services such as IAM. Otherwise, __False__ . -- --- * 'tCloudWatchLogsRoleARN' +-- * 'tHasCustomEventSelectors' - Specifies if the trail has custom event selectors. -- --- * 'tS3BucketName' +-- * 'tCloudWatchLogsRoleARN' - Specifies the role for the CloudWatch Logs endpoint to assume to write to a user's log group. -- --- * 'tIsMultiRegionTrail' +-- * 'tS3BucketName' - Name of the Amazon S3 bucket into which CloudTrail delivers your trail files. See . +-- +-- * 'tIsMultiRegionTrail' - Specifies whether the trail belongs only to one region or exists in all regions. trail :: Trail trail = @@ -404,6 +554,7 @@ , _tHomeRegion = Nothing , _tName = Nothing , _tIncludeGlobalServiceEvents = Nothing + , _tHasCustomEventSelectors = Nothing , _tCloudWatchLogsRoleARN = Nothing , _tS3BucketName = Nothing , _tIsMultiRegionTrail = Nothing @@ -413,19 +564,15 @@ tLogFileValidationEnabled :: Lens' Trail (Maybe Bool) tLogFileValidationEnabled = lens _tLogFileValidationEnabled (\ s a -> s{_tLogFileValidationEnabled = a}); --- | Specifies the ARN of the trail. The format of a trail ARN is: --- --- 'arn:aws:cloudtrail:us-east-1:123456789012:trail\/MyTrail' +-- | Specifies the ARN of the trail. The format of a trail ARN is: @arn:aws:cloudtrail:us-east-1:123456789012:trail/MyTrail@ tTrailARN :: Lens' Trail (Maybe Text) tTrailARN = lens _tTrailARN (\ s a -> s{_tTrailARN = a}); --- | Specifies the Amazon S3 key prefix that comes after the name of the bucket you have designated for log file delivery. For more information, see .The maximum length is 200 characters. +-- | Specifies the Amazon S3 key prefix that comes after the name of the bucket you have designated for log file delivery. For more information, see .The maximum length is 200 characters. tS3KeyPrefix :: Lens' Trail (Maybe Text) tS3KeyPrefix = lens _tS3KeyPrefix (\ s a -> s{_tS3KeyPrefix = a}); --- | Specifies the ARN of the Amazon SNS topic that CloudTrail uses to send notifications when log files are delivered. The format of a topic ARN is: --- --- 'arn:aws:sns:us-east-1:123456789012:MyTopic' +-- | Specifies the ARN of the Amazon SNS topic that CloudTrail uses to send notifications when log files are delivered. The format of a topic ARN is: @arn:aws:sns:us-east-1:123456789012:MyTopic@ tSNSTopicARN :: Lens' Trail (Maybe Text) tSNSTopicARN = lens _tSNSTopicARN (\ s a -> s{_tSNSTopicARN = a}); @@ -437,9 +584,7 @@ tCloudWatchLogsLogGroupARN :: Lens' Trail (Maybe Text) tCloudWatchLogsLogGroupARN = lens _tCloudWatchLogsLogGroupARN (\ s a -> s{_tCloudWatchLogsLogGroupARN = a}); --- | Specifies the KMS key ID that encrypts the logs delivered by CloudTrail. The value is a fully specified ARN to a KMS key in the format: --- --- 'arn:aws:kms:us-east-1:123456789012:key\/12345678-1234-1234-1234-123456789012' +-- | Specifies the KMS key ID that encrypts the logs delivered by CloudTrail. The value is a fully specified ARN to a KMS key in the format: @arn:aws:kms:us-east-1:123456789012:key/12345678-1234-1234-1234-123456789012@ tKMSKeyId :: Lens' Trail (Maybe Text) tKMSKeyId = lens _tKMSKeyId (\ s a -> s{_tKMSKeyId = a}); @@ -447,19 +592,23 @@ tHomeRegion :: Lens' Trail (Maybe Text) tHomeRegion = lens _tHomeRegion (\ s a -> s{_tHomeRegion = a}); --- | Name of the trail set by calling < CreateTrail>. The maximum length is 128 characters. +-- | Name of the trail set by calling 'CreateTrail' . The maximum length is 128 characters. tName :: Lens' Trail (Maybe Text) tName = lens _tName (\ s a -> s{_tName = a}); --- | Set to __True__ to include AWS API calls from AWS global services such as IAM. Otherwise, __False__. +-- | Set to __True__ to include AWS API calls from AWS global services such as IAM. Otherwise, __False__ . tIncludeGlobalServiceEvents :: Lens' Trail (Maybe Bool) tIncludeGlobalServiceEvents = lens _tIncludeGlobalServiceEvents (\ s a -> s{_tIncludeGlobalServiceEvents = a}); --- | Specifies the role for the CloudWatch Logs endpoint to assume to write to a user\'s log group. +-- | Specifies if the trail has custom event selectors. +tHasCustomEventSelectors :: Lens' Trail (Maybe Bool) +tHasCustomEventSelectors = lens _tHasCustomEventSelectors (\ s a -> s{_tHasCustomEventSelectors = a}); + +-- | Specifies the role for the CloudWatch Logs endpoint to assume to write to a user's log group. tCloudWatchLogsRoleARN :: Lens' Trail (Maybe Text) tCloudWatchLogsRoleARN = lens _tCloudWatchLogsRoleARN (\ s a -> s{_tCloudWatchLogsRoleARN = a}); --- | Name of the Amazon S3 bucket into which CloudTrail delivers your trail files. See . +-- | Name of the Amazon S3 bucket into which CloudTrail delivers your trail files. See . tS3BucketName :: Lens' Trail (Maybe Text) tS3BucketName = lens _tS3BucketName (\ s a -> s{_tS3BucketName = a}); @@ -482,6 +631,7 @@ <*> (x .:? "HomeRegion") <*> (x .:? "Name") <*> (x .:? "IncludeGlobalServiceEvents") + <*> (x .:? "HasCustomEventSelectors") <*> (x .:? "CloudWatchLogsRoleArn") <*> (x .:? "S3BucketName") <*> (x .:? "IsMultiRegionTrail")) diff --git a/gen/Network/AWS/CloudTrail/Types/Sum.hs b/gen/Network/AWS/CloudTrail/Types/Sum.hs --- a/gen/Network/AWS/CloudTrail/Types/Sum.hs +++ b/gen/Network/AWS/CloudTrail/Types/Sum.hs @@ -22,6 +22,7 @@ data LookupAttributeKey = EventId | EventName + | EventSource | ResourceName | ResourceType | Username @@ -31,16 +32,18 @@ parser = takeLowerText >>= \case "eventid" -> pure EventId "eventname" -> pure EventName + "eventsource" -> pure EventSource "resourcename" -> pure ResourceName "resourcetype" -> pure ResourceType "username" -> pure Username e -> fromTextError $ "Failure parsing LookupAttributeKey from value: '" <> e - <> "'. Accepted values: eventid, eventname, resourcename, resourcetype, username" + <> "'. Accepted values: eventid, eventname, eventsource, resourcename, resourcetype, username" instance ToText LookupAttributeKey where toText = \case EventId -> "EventId" EventName -> "EventName" + EventSource -> "EventSource" ResourceName -> "ResourceName" ResourceType -> "ResourceType" Username -> "Username" @@ -53,3 +56,35 @@ instance ToJSON LookupAttributeKey where toJSON = toJSONText + +data ReadWriteType + = All + | ReadOnly + | WriteOnly + deriving (Eq,Ord,Read,Show,Enum,Bounded,Data,Typeable,Generic) + +instance FromText ReadWriteType where + parser = takeLowerText >>= \case + "all" -> pure All + "readonly" -> pure ReadOnly + "writeonly" -> pure WriteOnly + e -> fromTextError $ "Failure parsing ReadWriteType from value: '" <> e + <> "'. Accepted values: all, readonly, writeonly" + +instance ToText ReadWriteType where + toText = \case + All -> "All" + ReadOnly -> "ReadOnly" + WriteOnly -> "WriteOnly" + +instance Hashable ReadWriteType +instance NFData ReadWriteType +instance ToByteString ReadWriteType +instance ToQuery ReadWriteType +instance ToHeader ReadWriteType + +instance ToJSON ReadWriteType where + toJSON = toJSONText + +instance FromJSON ReadWriteType where + parseJSON = parseJSONText "ReadWriteType" diff --git a/gen/Network/AWS/CloudTrail/UpdateTrail.hs b/gen/Network/AWS/CloudTrail/UpdateTrail.hs --- a/gen/Network/AWS/CloudTrail/UpdateTrail.hs +++ b/gen/Network/AWS/CloudTrail/UpdateTrail.hs @@ -18,7 +18,9 @@ -- Stability : auto-generated -- Portability : non-portable (GHC extensions) -- --- Updates the settings that specify delivery of log files. Changes to a trail do not require stopping the CloudTrail service. Use this action to designate an existing bucket for log delivery. If the existing bucket has previously been a target for CloudTrail log files, an IAM policy exists for the bucket. 'UpdateTrail' must be called from the region in which the trail was created; otherwise, an 'InvalidHomeRegionException' is thrown. +-- Updates the settings that specify delivery of log files. Changes to a trail do not require stopping the CloudTrail service. Use this action to designate an existing bucket for log delivery. If the existing bucket has previously been a target for CloudTrail log files, an IAM policy exists for the bucket. @UpdateTrail@ must be called from the region in which the trail was created; otherwise, an @InvalidHomeRegionException@ is thrown. +-- +-- module Network.AWS.CloudTrail.UpdateTrail ( -- * Creating a Request @@ -64,6 +66,8 @@ -- | Specifies settings to update for the trail. -- +-- +-- -- /See:/ 'updateTrail' smart constructor. data UpdateTrail = UpdateTrail' { _utS3KeyPrefix :: !(Maybe Text) @@ -82,25 +86,25 @@ -- -- Use one of the following lenses to modify other fields as desired: -- --- * 'utS3KeyPrefix' +-- * 'utS3KeyPrefix' - Specifies the Amazon S3 key prefix that comes after the name of the bucket you have designated for log file delivery. For more information, see . The maximum length is 200 characters. -- --- * 'utSNSTopicName' +-- * 'utSNSTopicName' - Specifies the name of the Amazon SNS topic defined for notification of log file delivery. The maximum length is 256 characters. -- --- * 'utEnableLogFileValidation' +-- * 'utEnableLogFileValidation' - Specifies whether log file validation is enabled. The default is false. -- --- * 'utCloudWatchLogsLogGroupARN' +-- * 'utCloudWatchLogsLogGroupARN' - Specifies a log group name using an Amazon Resource Name (ARN), a unique identifier that represents the log group to which CloudTrail logs will be delivered. Not required unless you specify CloudWatchLogsRoleArn. -- --- * 'utKMSKeyId' +-- * 'utKMSKeyId' - Specifies the KMS key ID to use to encrypt the logs delivered by CloudTrail. The value can be a an alias name prefixed by "alias/", a fully specified ARN to an alias, a fully specified ARN to a key, or a globally unique identifier. Examples: * alias/MyAliasName * arn:aws:kms:us-east-1:123456789012:alias/MyAliasName * arn:aws:kms:us-east-1:123456789012:key/12345678-1234-1234-1234-123456789012 * 12345678-1234-1234-1234-123456789012 -- --- * 'utIncludeGlobalServiceEvents' +-- * 'utIncludeGlobalServiceEvents' - Specifies whether the trail is publishing events from global services such as IAM to the log files. -- --- * 'utCloudWatchLogsRoleARN' +-- * 'utCloudWatchLogsRoleARN' - Specifies the role for the CloudWatch Logs endpoint to assume to write to a user's log group. -- --- * 'utS3BucketName' +-- * 'utS3BucketName' - Specifies the name of the Amazon S3 bucket designated for publishing log files. See . -- --- * 'utIsMultiRegionTrail' +-- * 'utIsMultiRegionTrail' - Specifies whether the trail applies only to the current region or to all regions. The default is false. If the trail exists only in the current region and this value is set to true, shadow trails (replications of the trail) will be created in the other regions. If the trail exists in all regions and this value is set to false, the trail will remain in the region where it was created, and its shadow trails in other regions will be deleted. -- --- * 'utName' +-- * 'utName' - Specifies the name of the trail or trail ARN. If @Name@ is a trail name, the string must meet the following requirements: * Contain only ASCII letters (a-z, A-Z), numbers (0-9), periods (.), underscores (_), or dashes (-) * Start with a letter or number, and end with a letter or number * Be between 3 and 128 characters * Have no adjacent periods, underscores or dashes. Names like @my-_namespace@ and @my--namespace@ are invalid. * Not be in IP address format (for example, 192.168.5.4) If @Name@ is a trail ARN, it must be in the format: @arn:aws:cloudtrail:us-east-1:123456789012:trail/MyTrail@ updateTrail :: Text -- ^ 'utName' -> UpdateTrail @@ -118,7 +122,7 @@ , _utName = pName_ } --- | Specifies the Amazon S3 key prefix that comes after the name of the bucket you have designated for log file delivery. For more information, see . The maximum length is 200 characters. +-- | Specifies the Amazon S3 key prefix that comes after the name of the bucket you have designated for log file delivery. For more information, see . The maximum length is 200 characters. utS3KeyPrefix :: Lens' UpdateTrail (Maybe Text) utS3KeyPrefix = lens _utS3KeyPrefix (\ s a -> s{_utS3KeyPrefix = a}); @@ -127,8 +131,6 @@ utSNSTopicName = lens _utSNSTopicName (\ s a -> s{_utSNSTopicName = a}); -- | Specifies whether log file validation is enabled. The default is false. --- --- When you disable log file integrity validation, the chain of digest files is broken after one hour. CloudTrail will not create digest files for log files that were delivered during a period in which log file integrity validation was disabled. For example, if you enable log file integrity validation at noon on January 1, disable it at noon on January 2, and re-enable it at noon on January 10, digest files will not be created for the log files delivered from noon on January 2 to noon on January 10. The same applies whenever you stop CloudTrail logging or delete a trail. utEnableLogFileValidation :: Lens' UpdateTrail (Maybe Bool) utEnableLogFileValidation = lens _utEnableLogFileValidation (\ s a -> s{_utEnableLogFileValidation = a}); @@ -136,18 +138,7 @@ utCloudWatchLogsLogGroupARN :: Lens' UpdateTrail (Maybe Text) utCloudWatchLogsLogGroupARN = lens _utCloudWatchLogsLogGroupARN (\ s a -> s{_utCloudWatchLogsLogGroupARN = a}); --- | Specifies the KMS key ID to use to encrypt the logs delivered by CloudTrail. The value can be a an alias name prefixed by \"alias\/\", a fully specified ARN to an alias, a fully specified ARN to a key, or a globally unique identifier. --- --- Examples: --- --- - alias\/MyAliasName --- --- - arn:aws:kms:us-east-1:123456789012:alias\/MyAliasName --- --- - arn:aws:kms:us-east-1:123456789012:key\/12345678-1234-1234-1234-123456789012 --- --- - 12345678-1234-1234-1234-123456789012 --- +-- | Specifies the KMS key ID to use to encrypt the logs delivered by CloudTrail. The value can be a an alias name prefixed by "alias/", a fully specified ARN to an alias, a fully specified ARN to a key, or a globally unique identifier. Examples: * alias/MyAliasName * arn:aws:kms:us-east-1:123456789012:alias/MyAliasName * arn:aws:kms:us-east-1:123456789012:key/12345678-1234-1234-1234-123456789012 * 12345678-1234-1234-1234-123456789012 utKMSKeyId :: Lens' UpdateTrail (Maybe Text) utKMSKeyId = lens _utKMSKeyId (\ s a -> s{_utKMSKeyId = a}); @@ -155,11 +146,11 @@ utIncludeGlobalServiceEvents :: Lens' UpdateTrail (Maybe Bool) utIncludeGlobalServiceEvents = lens _utIncludeGlobalServiceEvents (\ s a -> s{_utIncludeGlobalServiceEvents = a}); --- | Specifies the role for the CloudWatch Logs endpoint to assume to write to a user\'s log group. +-- | Specifies the role for the CloudWatch Logs endpoint to assume to write to a user's log group. utCloudWatchLogsRoleARN :: Lens' UpdateTrail (Maybe Text) utCloudWatchLogsRoleARN = lens _utCloudWatchLogsRoleARN (\ s a -> s{_utCloudWatchLogsRoleARN = a}); --- | Specifies the name of the Amazon S3 bucket designated for publishing log files. See . +-- | Specifies the name of the Amazon S3 bucket designated for publishing log files. See . utS3BucketName :: Lens' UpdateTrail (Maybe Text) utS3BucketName = lens _utS3BucketName (\ s a -> s{_utS3BucketName = a}); @@ -167,21 +158,7 @@ utIsMultiRegionTrail :: Lens' UpdateTrail (Maybe Bool) utIsMultiRegionTrail = lens _utIsMultiRegionTrail (\ s a -> s{_utIsMultiRegionTrail = a}); --- | Specifies the name of the trail or trail ARN. If 'Name' is a trail name, the string must meet the following requirements: --- --- - Contain only ASCII letters (a-z, A-Z), numbers (0-9), periods (.), underscores (_), or dashes (-) --- --- - Start with a letter or number, and end with a letter or number --- --- - Be between 3 and 128 characters --- --- - Have no adjacent periods, underscores or dashes. Names like 'my-_namespace' and 'my--namespace' are invalid. --- --- - Not be in IP address format (for example, 192.168.5.4) --- --- If 'Name' is a trail ARN, it must be in the format: --- --- 'arn:aws:cloudtrail:us-east-1:123456789012:trail\/MyTrail' +-- | Specifies the name of the trail or trail ARN. If @Name@ is a trail name, the string must meet the following requirements: * Contain only ASCII letters (a-z, A-Z), numbers (0-9), periods (.), underscores (_), or dashes (-) * Start with a letter or number, and end with a letter or number * Be between 3 and 128 characters * Have no adjacent periods, underscores or dashes. Names like @my-_namespace@ and @my--namespace@ are invalid. * Not be in IP address format (for example, 192.168.5.4) If @Name@ is a trail ARN, it must be in the format: @arn:aws:cloudtrail:us-east-1:123456789012:trail/MyTrail@ utName :: Lens' UpdateTrail Text utName = lens _utName (\ s a -> s{_utName = a}); @@ -247,6 +224,8 @@ -- | Returns the objects or data listed below if successful. Otherwise, returns an error. -- +-- +-- -- /See:/ 'updateTrailResponse' smart constructor. data UpdateTrailResponse = UpdateTrailResponse' { _utrsLogFileValidationEnabled :: !(Maybe Bool) @@ -268,31 +247,31 @@ -- -- Use one of the following lenses to modify other fields as desired: -- --- * 'utrsLogFileValidationEnabled' +-- * 'utrsLogFileValidationEnabled' - Specifies whether log file integrity validation is enabled. -- --- * 'utrsTrailARN' +-- * 'utrsTrailARN' - Specifies the ARN of the trail that was updated. The format of a trail ARN is: @arn:aws:cloudtrail:us-east-1:123456789012:trail/MyTrail@ -- --- * 'utrsS3KeyPrefix' +-- * 'utrsS3KeyPrefix' - Specifies the Amazon S3 key prefix that comes after the name of the bucket you have designated for log file delivery. For more information, see . -- --- * 'utrsSNSTopicARN' +-- * 'utrsSNSTopicARN' - Specifies the ARN of the Amazon SNS topic that CloudTrail uses to send notifications when log files are delivered. The format of a topic ARN is: @arn:aws:sns:us-east-1:123456789012:MyTopic@ -- --- * 'utrsSNSTopicName' +-- * 'utrsSNSTopicName' - This field is deprecated. Use SnsTopicARN. -- --- * 'utrsCloudWatchLogsLogGroupARN' +-- * 'utrsCloudWatchLogsLogGroupARN' - Specifies the Amazon Resource Name (ARN) of the log group to which CloudTrail logs will be delivered. -- --- * 'utrsKMSKeyId' +-- * 'utrsKMSKeyId' - Specifies the KMS key ID that encrypts the logs delivered by CloudTrail. The value is a fully specified ARN to a KMS key in the format: @arn:aws:kms:us-east-1:123456789012:key/12345678-1234-1234-1234-123456789012@ -- --- * 'utrsName' +-- * 'utrsName' - Specifies the name of the trail. -- --- * 'utrsIncludeGlobalServiceEvents' +-- * 'utrsIncludeGlobalServiceEvents' - Specifies whether the trail is publishing events from global services such as IAM to the log files. -- --- * 'utrsCloudWatchLogsRoleARN' +-- * 'utrsCloudWatchLogsRoleARN' - Specifies the role for the CloudWatch Logs endpoint to assume to write to a user's log group. -- --- * 'utrsS3BucketName' +-- * 'utrsS3BucketName' - Specifies the name of the Amazon S3 bucket designated for publishing log files. -- --- * 'utrsIsMultiRegionTrail' +-- * 'utrsIsMultiRegionTrail' - Specifies whether the trail exists in one region or in all regions. -- --- * 'utrsResponseStatus' +-- * 'utrsResponseStatus' - -- | The response status code. updateTrailResponse :: Int -- ^ 'utrsResponseStatus' -> UpdateTrailResponse @@ -317,19 +296,15 @@ utrsLogFileValidationEnabled :: Lens' UpdateTrailResponse (Maybe Bool) utrsLogFileValidationEnabled = lens _utrsLogFileValidationEnabled (\ s a -> s{_utrsLogFileValidationEnabled = a}); --- | Specifies the ARN of the trail that was updated. The format of a trail ARN is: --- --- 'arn:aws:cloudtrail:us-east-1:123456789012:trail\/MyTrail' +-- | Specifies the ARN of the trail that was updated. The format of a trail ARN is: @arn:aws:cloudtrail:us-east-1:123456789012:trail/MyTrail@ utrsTrailARN :: Lens' UpdateTrailResponse (Maybe Text) utrsTrailARN = lens _utrsTrailARN (\ s a -> s{_utrsTrailARN = a}); --- | Specifies the Amazon S3 key prefix that comes after the name of the bucket you have designated for log file delivery. For more information, see . +-- | Specifies the Amazon S3 key prefix that comes after the name of the bucket you have designated for log file delivery. For more information, see . utrsS3KeyPrefix :: Lens' UpdateTrailResponse (Maybe Text) utrsS3KeyPrefix = lens _utrsS3KeyPrefix (\ s a -> s{_utrsS3KeyPrefix = a}); --- | Specifies the ARN of the Amazon SNS topic that CloudTrail uses to send notifications when log files are delivered. The format of a topic ARN is: --- --- 'arn:aws:sns:us-east-1:123456789012:MyTopic' +-- | Specifies the ARN of the Amazon SNS topic that CloudTrail uses to send notifications when log files are delivered. The format of a topic ARN is: @arn:aws:sns:us-east-1:123456789012:MyTopic@ utrsSNSTopicARN :: Lens' UpdateTrailResponse (Maybe Text) utrsSNSTopicARN = lens _utrsSNSTopicARN (\ s a -> s{_utrsSNSTopicARN = a}); @@ -341,9 +316,7 @@ utrsCloudWatchLogsLogGroupARN :: Lens' UpdateTrailResponse (Maybe Text) utrsCloudWatchLogsLogGroupARN = lens _utrsCloudWatchLogsLogGroupARN (\ s a -> s{_utrsCloudWatchLogsLogGroupARN = a}); --- | Specifies the KMS key ID that encrypts the logs delivered by CloudTrail. The value is a fully specified ARN to a KMS key in the format: --- --- 'arn:aws:kms:us-east-1:123456789012:key\/12345678-1234-1234-1234-123456789012' +-- | Specifies the KMS key ID that encrypts the logs delivered by CloudTrail. The value is a fully specified ARN to a KMS key in the format: @arn:aws:kms:us-east-1:123456789012:key/12345678-1234-1234-1234-123456789012@ utrsKMSKeyId :: Lens' UpdateTrailResponse (Maybe Text) utrsKMSKeyId = lens _utrsKMSKeyId (\ s a -> s{_utrsKMSKeyId = a}); @@ -355,7 +328,7 @@ utrsIncludeGlobalServiceEvents :: Lens' UpdateTrailResponse (Maybe Bool) utrsIncludeGlobalServiceEvents = lens _utrsIncludeGlobalServiceEvents (\ s a -> s{_utrsIncludeGlobalServiceEvents = a}); --- | Specifies the role for the CloudWatch Logs endpoint to assume to write to a user\'s log group. +-- | Specifies the role for the CloudWatch Logs endpoint to assume to write to a user's log group. utrsCloudWatchLogsRoleARN :: Lens' UpdateTrailResponse (Maybe Text) utrsCloudWatchLogsRoleARN = lens _utrsCloudWatchLogsRoleARN (\ s a -> s{_utrsCloudWatchLogsRoleARN = a}); @@ -367,7 +340,7 @@ utrsIsMultiRegionTrail :: Lens' UpdateTrailResponse (Maybe Bool) utrsIsMultiRegionTrail = lens _utrsIsMultiRegionTrail (\ s a -> s{_utrsIsMultiRegionTrail = a}); --- | The response status code. +-- | -- | The response status code. utrsResponseStatus :: Lens' UpdateTrailResponse Int utrsResponseStatus = lens _utrsResponseStatus (\ s a -> s{_utrsResponseStatus = a}); diff --git a/test/Test/AWS/Gen/CloudTrail.hs b/test/Test/AWS/Gen/CloudTrail.hs --- a/test/Test/AWS/Gen/CloudTrail.hs +++ b/test/Test/AWS/Gen/CloudTrail.hs @@ -52,6 +52,9 @@ -- , requestCreateTrail $ -- createTrail -- +-- , requestGetEventSelectors $ +-- getEventSelectors +-- -- , requestGetTrailStatus $ -- getTrailStatus -- @@ -61,6 +64,9 @@ -- , requestListTags $ -- listTags -- +-- , requestPutEventSelectors $ +-- putEventSelectors +-- -- , requestStartLogging $ -- startLogging -- @@ -91,6 +97,9 @@ -- , responseCreateTrail $ -- createTrailResponse -- +-- , responseGetEventSelectors $ +-- getEventSelectorsResponse +-- -- , responseGetTrailStatus $ -- getTrailStatusResponse -- @@ -100,6 +109,9 @@ -- , responseListTags $ -- listTagsResponse -- +-- , responsePutEventSelectors $ +-- putEventSelectorsResponse +-- -- , responseStartLogging $ -- startLoggingResponse -- @@ -148,6 +160,11 @@ "CreateTrail" "fixture/CreateTrail.yaml" +requestGetEventSelectors :: GetEventSelectors -> TestTree +requestGetEventSelectors = req + "GetEventSelectors" + "fixture/GetEventSelectors.yaml" + requestGetTrailStatus :: GetTrailStatus -> TestTree requestGetTrailStatus = req "GetTrailStatus" @@ -163,6 +180,11 @@ "ListTags" "fixture/ListTags.yaml" +requestPutEventSelectors :: PutEventSelectors -> TestTree +requestPutEventSelectors = req + "PutEventSelectors" + "fixture/PutEventSelectors.yaml" + requestStartLogging :: StartLogging -> TestTree requestStartLogging = req "StartLogging" @@ -226,6 +248,13 @@ cloudTrail (Proxy :: Proxy CreateTrail) +responseGetEventSelectors :: GetEventSelectorsResponse -> TestTree +responseGetEventSelectors = res + "GetEventSelectorsResponse" + "fixture/GetEventSelectorsResponse.proto" + cloudTrail + (Proxy :: Proxy GetEventSelectors) + responseGetTrailStatus :: GetTrailStatusResponse -> TestTree responseGetTrailStatus = res "GetTrailStatusResponse" @@ -246,6 +275,13 @@ "fixture/ListTagsResponse.proto" cloudTrail (Proxy :: Proxy ListTags) + +responsePutEventSelectors :: PutEventSelectorsResponse -> TestTree +responsePutEventSelectors = res + "PutEventSelectorsResponse" + "fixture/PutEventSelectorsResponse.proto" + cloudTrail + (Proxy :: Proxy PutEventSelectors) responseStartLogging :: StartLoggingResponse -> TestTree responseStartLogging = res