packages feed

amazonka-cloudtrail 1.5.0 → 1.6.0

raw patch · 25 files changed

+323/−321 lines, 25 filesdep ~amazonka-coredep ~amazonka-testPVP ok

version bump matches the API change (PVP)

Dependency ranges changed: amazonka-core, amazonka-test

API changes (from Hackage documentation)

Files

README.md view
@@ -8,7 +8,7 @@  ## Version -`1.5.0`+`1.6.0`   ## Description
amazonka-cloudtrail.cabal view
@@ -1,5 +1,5 @@ name:                  amazonka-cloudtrail-version:               1.5.0+version:               1.6.0 synopsis:              Amazon CloudTrail SDK. homepage:              https://github.com/brendanhay/amazonka bug-reports:           https://github.com/brendanhay/amazonka/issues@@ -7,7 +7,7 @@ license-file:          LICENSE author:                Brendan Hay maintainer:            Brendan Hay <brendan.g.hay+amazonka@gmail.com>-copyright:             Copyright (c) 2013-2017 Brendan Hay+copyright:             Copyright (c) 2013-2018 Brendan Hay category:              Network, AWS, Cloud, Distributed Computing build-type:            Simple cabal-version:         >= 1.10@@ -67,7 +67,7 @@         , Network.AWS.CloudTrail.Types.Sum      build-depends:-          amazonka-core == 1.5.0.*+          amazonka-core == 1.6.0.*         , base          >= 4.7     && < 5  test-suite amazonka-cloudtrail-test@@ -87,8 +87,8 @@         , Test.AWS.CloudTrail.Internal      build-depends:-          amazonka-core == 1.5.0.*-        , amazonka-test == 1.5.0.*+          amazonka-core == 1.6.0.*+        , amazonka-test == 1.6.0.*         , amazonka-cloudtrail         , base         , bytestring
gen/Network/AWS/CloudTrail.hs view
@@ -5,7 +5,7 @@  -- | -- Module      : Network.AWS.CloudTrail--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated
gen/Network/AWS/CloudTrail/AddTags.hs view
@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.CloudTrail.AddTags--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -71,11 +71,11 @@  -- | 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;+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@ atResourceId :: Lens' AddTags Text-atResourceId = lens _atResourceId (\ s a -> s{_atResourceId = a});+atResourceId = lens _atResourceId (\ s a -> s{_atResourceId = a})  instance AWSRequest AddTags where         type Rs AddTags = AddTagsResponse@@ -135,6 +135,6 @@  -- | -- | The response status code. atrsResponseStatus :: Lens' AddTagsResponse Int-atrsResponseStatus = lens _atrsResponseStatus (\ s a -> s{_atrsResponseStatus = a});+atrsResponseStatus = lens _atrsResponseStatus (\ s a -> s{_atrsResponseStatus = a})  instance NFData AddTagsResponse where
gen/Network/AWS/CloudTrail/CreateTrail.hs view
@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.CloudTrail.CreateTrail--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -112,58 +112,58 @@     -> CreateTrail createTrail pName_ pS3BucketName_ =   CreateTrail'-  { _ctS3KeyPrefix = Nothing-  , _ctSNSTopicName = Nothing-  , _ctEnableLogFileValidation = Nothing-  , _ctCloudWatchLogsLogGroupARN = Nothing-  , _ctKMSKeyId = Nothing-  , _ctIncludeGlobalServiceEvents = Nothing-  , _ctCloudWatchLogsRoleARN = Nothing-  , _ctIsMultiRegionTrail = Nothing-  , _ctName = pName_-  , _ctS3BucketName = pS3BucketName_-  }+    { _ctS3KeyPrefix = Nothing+    , _ctSNSTopicName = Nothing+    , _ctEnableLogFileValidation = Nothing+    , _ctCloudWatchLogsLogGroupARN = Nothing+    , _ctKMSKeyId = Nothing+    , _ctIncludeGlobalServiceEvents = Nothing+    , _ctCloudWatchLogsRoleARN = Nothing+    , _ctIsMultiRegionTrail = Nothing+    , _ctName = pName_+    , _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 <http://docs.aws.amazon.com/awscloudtrail/latest/userguide/cloudtrail-find-log-files.html Finding Your CloudTrail Log Files> . The maximum length is 200 characters. ctS3KeyPrefix :: Lens' CreateTrail (Maybe Text)-ctS3KeyPrefix = lens _ctS3KeyPrefix (\ s a -> s{_ctS3KeyPrefix = a});+ctS3KeyPrefix = lens _ctS3KeyPrefix (\ s a -> s{_ctS3KeyPrefix = a})  -- | Specifies the name of the Amazon SNS topic defined for notification of log file delivery. The maximum length is 256 characters. ctSNSTopicName :: Lens' CreateTrail (Maybe Text)-ctSNSTopicName = lens _ctSNSTopicName (\ s a -> s{_ctSNSTopicName = a});+ctSNSTopicName = lens _ctSNSTopicName (\ s a -> s{_ctSNSTopicName = a})  -- | Specifies whether log file integrity validation is enabled. The default is false. ctEnableLogFileValidation :: Lens' CreateTrail (Maybe Bool)-ctEnableLogFileValidation = lens _ctEnableLogFileValidation (\ s a -> s{_ctEnableLogFileValidation = a});+ctEnableLogFileValidation = lens _ctEnableLogFileValidation (\ s a -> s{_ctEnableLogFileValidation = a})  -- | 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. ctCloudWatchLogsLogGroupARN :: Lens' CreateTrail (Maybe Text)-ctCloudWatchLogsLogGroupARN = lens _ctCloudWatchLogsLogGroupARN (\ s a -> s{_ctCloudWatchLogsLogGroupARN = a});+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 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});+ctKMSKeyId = lens _ctKMSKeyId (\ s a -> s{_ctKMSKeyId = a})  -- | Specifies whether the trail is publishing events from global services such as IAM to the log files. ctIncludeGlobalServiceEvents :: Lens' CreateTrail (Maybe Bool)-ctIncludeGlobalServiceEvents = lens _ctIncludeGlobalServiceEvents (\ s a -> s{_ctIncludeGlobalServiceEvents = a});+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. ctCloudWatchLogsRoleARN :: Lens' CreateTrail (Maybe Text)-ctCloudWatchLogsRoleARN = lens _ctCloudWatchLogsRoleARN (\ s a -> s{_ctCloudWatchLogsRoleARN = a});+ctCloudWatchLogsRoleARN = lens _ctCloudWatchLogsRoleARN (\ s a -> s{_ctCloudWatchLogsRoleARN = a})  -- | Specifies whether the trail is created in the current region or in all regions. The default is false. ctIsMultiRegionTrail :: Lens' CreateTrail (Maybe Bool)-ctIsMultiRegionTrail = lens _ctIsMultiRegionTrail (\ s a -> s{_ctIsMultiRegionTrail = a});+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) ctName :: Lens' CreateTrail Text-ctName = lens _ctName (\ s a -> s{_ctName = a});+ctName = lens _ctName (\ s a -> s{_ctName = a})  -- | Specifies the name of the Amazon S3 bucket designated for publishing log files. See <http://docs.aws.amazon.com/awscloudtrail/latest/userguide/create_trail_naming_policy.html Amazon S3 Bucket Naming Requirements> . ctS3BucketName :: Lens' CreateTrail Text-ctS3BucketName = lens _ctS3BucketName (\ s a -> s{_ctS3BucketName = a});+ctS3BucketName = lens _ctS3BucketName (\ s a -> s{_ctS3BucketName = a})  instance AWSRequest CreateTrail where         type Rs CreateTrail = CreateTrailResponse@@ -281,72 +281,72 @@     -> CreateTrailResponse createTrailResponse pResponseStatus_ =   CreateTrailResponse'-  { _ctrsLogFileValidationEnabled = Nothing-  , _ctrsTrailARN = Nothing-  , _ctrsS3KeyPrefix = Nothing-  , _ctrsSNSTopicARN = Nothing-  , _ctrsSNSTopicName = Nothing-  , _ctrsCloudWatchLogsLogGroupARN = Nothing-  , _ctrsKMSKeyId = Nothing-  , _ctrsName = Nothing-  , _ctrsIncludeGlobalServiceEvents = Nothing-  , _ctrsCloudWatchLogsRoleARN = Nothing-  , _ctrsS3BucketName = Nothing-  , _ctrsIsMultiRegionTrail = Nothing-  , _ctrsResponseStatus = pResponseStatus_-  }+    { _ctrsLogFileValidationEnabled = Nothing+    , _ctrsTrailARN = Nothing+    , _ctrsS3KeyPrefix = Nothing+    , _ctrsSNSTopicARN = Nothing+    , _ctrsSNSTopicName = Nothing+    , _ctrsCloudWatchLogsLogGroupARN = Nothing+    , _ctrsKMSKeyId = Nothing+    , _ctrsName = Nothing+    , _ctrsIncludeGlobalServiceEvents = Nothing+    , _ctrsCloudWatchLogsRoleARN = Nothing+    , _ctrsS3BucketName = Nothing+    , _ctrsIsMultiRegionTrail = Nothing+    , _ctrsResponseStatus = pResponseStatus_+    }   -- | Specifies whether log file integrity validation is enabled. ctrsLogFileValidationEnabled :: Lens' CreateTrailResponse (Maybe Bool)-ctrsLogFileValidationEnabled = lens _ctrsLogFileValidationEnabled (\ s a -> s{_ctrsLogFileValidationEnabled = a});+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@ ctrsTrailARN :: Lens' CreateTrailResponse (Maybe Text)-ctrsTrailARN = lens _ctrsTrailARN (\ s a -> s{_ctrsTrailARN = a});+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 <http://docs.aws.amazon.com/awscloudtrail/latest/userguide/cloudtrail-find-log-files.html Finding Your CloudTrail Log Files> . ctrsS3KeyPrefix :: Lens' CreateTrailResponse (Maybe Text)-ctrsS3KeyPrefix = lens _ctrsS3KeyPrefix (\ s a -> s{_ctrsS3KeyPrefix = a});+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@ ctrsSNSTopicARN :: Lens' CreateTrailResponse (Maybe Text)-ctrsSNSTopicARN = lens _ctrsSNSTopicARN (\ s a -> s{_ctrsSNSTopicARN = a});+ctrsSNSTopicARN = lens _ctrsSNSTopicARN (\ s a -> s{_ctrsSNSTopicARN = a})  -- | This field is deprecated. Use SnsTopicARN. ctrsSNSTopicName :: Lens' CreateTrailResponse (Maybe Text)-ctrsSNSTopicName = lens _ctrsSNSTopicName (\ s a -> s{_ctrsSNSTopicName = a});+ctrsSNSTopicName = lens _ctrsSNSTopicName (\ s a -> s{_ctrsSNSTopicName = a})  -- | Specifies the Amazon Resource Name (ARN) of the log group to which CloudTrail logs will be delivered. ctrsCloudWatchLogsLogGroupARN :: Lens' CreateTrailResponse (Maybe Text)-ctrsCloudWatchLogsLogGroupARN = lens _ctrsCloudWatchLogsLogGroupARN (\ s a -> s{_ctrsCloudWatchLogsLogGroupARN = a});+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@ ctrsKMSKeyId :: Lens' CreateTrailResponse (Maybe Text)-ctrsKMSKeyId = lens _ctrsKMSKeyId (\ s a -> s{_ctrsKMSKeyId = a});+ctrsKMSKeyId = lens _ctrsKMSKeyId (\ s a -> s{_ctrsKMSKeyId = a})  -- | Specifies the name of the trail. ctrsName :: Lens' CreateTrailResponse (Maybe Text)-ctrsName = lens _ctrsName (\ s a -> s{_ctrsName = a});+ctrsName = lens _ctrsName (\ s a -> s{_ctrsName = a})  -- | Specifies whether the trail is publishing events from global services such as IAM to the log files. ctrsIncludeGlobalServiceEvents :: Lens' CreateTrailResponse (Maybe Bool)-ctrsIncludeGlobalServiceEvents = lens _ctrsIncludeGlobalServiceEvents (\ s a -> s{_ctrsIncludeGlobalServiceEvents = a});+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. ctrsCloudWatchLogsRoleARN :: Lens' CreateTrailResponse (Maybe Text)-ctrsCloudWatchLogsRoleARN = lens _ctrsCloudWatchLogsRoleARN (\ s a -> s{_ctrsCloudWatchLogsRoleARN = a});+ctrsCloudWatchLogsRoleARN = lens _ctrsCloudWatchLogsRoleARN (\ s a -> s{_ctrsCloudWatchLogsRoleARN = a})  -- | Specifies the name of the Amazon S3 bucket designated for publishing log files. ctrsS3BucketName :: Lens' CreateTrailResponse (Maybe Text)-ctrsS3BucketName = lens _ctrsS3BucketName (\ s a -> s{_ctrsS3BucketName = a});+ctrsS3BucketName = lens _ctrsS3BucketName (\ s a -> s{_ctrsS3BucketName = a})  -- | Specifies whether the trail exists in one region or in all regions. ctrsIsMultiRegionTrail :: Lens' CreateTrailResponse (Maybe Bool)-ctrsIsMultiRegionTrail = lens _ctrsIsMultiRegionTrail (\ s a -> s{_ctrsIsMultiRegionTrail = a});+ctrsIsMultiRegionTrail = lens _ctrsIsMultiRegionTrail (\ s a -> s{_ctrsIsMultiRegionTrail = a})  -- | -- | The response status code. ctrsResponseStatus :: Lens' CreateTrailResponse Int-ctrsResponseStatus = lens _ctrsResponseStatus (\ s a -> s{_ctrsResponseStatus = a});+ctrsResponseStatus = lens _ctrsResponseStatus (\ s a -> s{_ctrsResponseStatus = a})  instance NFData CreateTrailResponse where
gen/Network/AWS/CloudTrail/DeleteTrail.hs view
@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.CloudTrail.DeleteTrail--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -66,7 +66,7 @@  -- | 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});+dtName = lens _dtName (\ s a -> s{_dtName = a})  instance AWSRequest DeleteTrail where         type Rs DeleteTrail = DeleteTrailResponse@@ -124,6 +124,6 @@  -- | -- | The response status code. drsResponseStatus :: Lens' DeleteTrailResponse Int-drsResponseStatus = lens _drsResponseStatus (\ s a -> s{_drsResponseStatus = a});+drsResponseStatus = lens _drsResponseStatus (\ s a -> s{_drsResponseStatus = a})  instance NFData DeleteTrailResponse where
gen/Network/AWS/CloudTrail/DescribeTrails.hs view
@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.CloudTrail.DescribeTrails--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -71,11 +71,11 @@  -- | 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. dtIncludeShadowTrails :: Lens' DescribeTrails (Maybe Bool)-dtIncludeShadowTrails = lens _dtIncludeShadowTrails (\ s a -> s{_dtIncludeShadowTrails = a});+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. dtTrailNameList :: Lens' DescribeTrails [Text]-dtTrailNameList = lens _dtTrailNameList (\ s a -> s{_dtTrailNameList = a}) . _Default . _Coerce;+dtTrailNameList = lens _dtTrailNameList (\ s a -> s{_dtTrailNameList = a}) . _Default . _Coerce  instance AWSRequest DescribeTrails where         type Rs DescribeTrails = DescribeTrailsResponse@@ -138,15 +138,15 @@     -> DescribeTrailsResponse describeTrailsResponse pResponseStatus_ =   DescribeTrailsResponse'-  {_dtrsTrailList = Nothing, _dtrsResponseStatus = pResponseStatus_}+    {_dtrsTrailList = Nothing, _dtrsResponseStatus = pResponseStatus_}   -- | The list of trail objects. dtrsTrailList :: Lens' DescribeTrailsResponse [Trail]-dtrsTrailList = lens _dtrsTrailList (\ s a -> s{_dtrsTrailList = a}) . _Default . _Coerce;+dtrsTrailList = lens _dtrsTrailList (\ s a -> s{_dtrsTrailList = a}) . _Default . _Coerce  -- | -- | The response status code. dtrsResponseStatus :: Lens' DescribeTrailsResponse Int-dtrsResponseStatus = lens _dtrsResponseStatus (\ s a -> s{_dtrsResponseStatus = a});+dtrsResponseStatus = lens _dtrsResponseStatus (\ s a -> s{_dtrsResponseStatus = a})  instance NFData DescribeTrailsResponse where
gen/Network/AWS/CloudTrail/GetEventSelectors.hs view
@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.CloudTrail.GetEventSelectors--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -74,7 +74,7 @@  -- | 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 Text-gesTrailName = lens _gesTrailName (\ s a -> s{_gesTrailName = a});+gesTrailName = lens _gesTrailName (\ s a -> s{_gesTrailName = a})  instance AWSRequest GetEventSelectors where         type Rs GetEventSelectors = GetEventSelectorsResponse@@ -134,22 +134,22 @@     -> GetEventSelectorsResponse getEventSelectorsResponse pResponseStatus_ =   GetEventSelectorsResponse'-  { _gesrsTrailARN = Nothing-  , _gesrsEventSelectors = Nothing-  , _gesrsResponseStatus = pResponseStatus_-  }+    { _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});+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;+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});+gesrsResponseStatus = lens _gesrsResponseStatus (\ s a -> s{_gesrsResponseStatus = a})  instance NFData GetEventSelectorsResponse where
gen/Network/AWS/CloudTrail/GetTrailStatus.hs view
@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.CloudTrail.GetTrailStatus--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -83,7 +83,7 @@  -- | 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});+gtsName = lens _gtsName (\ s a -> s{_gtsName = a})  instance AWSRequest GetTrailStatus where         type Rs GetTrailStatus = GetTrailStatusResponse@@ -206,97 +206,97 @@     -> GetTrailStatusResponse getTrailStatusResponse pResponseStatus_ =   GetTrailStatusResponse'-  { _gtsrsTimeLoggingStopped = Nothing-  , _gtsrsLatestDeliveryError = Nothing-  , _gtsrsLatestDigestDeliveryTime = Nothing-  , _gtsrsLatestNotificationAttemptSucceeded = Nothing-  , _gtsrsStartLoggingTime = Nothing-  , _gtsrsLatestNotificationError = Nothing-  , _gtsrsLatestDeliveryAttemptSucceeded = Nothing-  , _gtsrsIsLogging = Nothing-  , _gtsrsTimeLoggingStarted = Nothing-  , _gtsrsLatestDigestDeliveryError = Nothing-  , _gtsrsLatestDeliveryAttemptTime = Nothing-  , _gtsrsLatestDeliveryTime = Nothing-  , _gtsrsLatestCloudWatchLogsDeliveryTime = Nothing-  , _gtsrsLatestCloudWatchLogsDeliveryError = Nothing-  , _gtsrsLatestNotificationTime = Nothing-  , _gtsrsLatestNotificationAttemptTime = Nothing-  , _gtsrsStopLoggingTime = Nothing-  , _gtsrsResponseStatus = pResponseStatus_-  }+    { _gtsrsTimeLoggingStopped = Nothing+    , _gtsrsLatestDeliveryError = Nothing+    , _gtsrsLatestDigestDeliveryTime = Nothing+    , _gtsrsLatestNotificationAttemptSucceeded = Nothing+    , _gtsrsStartLoggingTime = Nothing+    , _gtsrsLatestNotificationError = Nothing+    , _gtsrsLatestDeliveryAttemptSucceeded = Nothing+    , _gtsrsIsLogging = Nothing+    , _gtsrsTimeLoggingStarted = Nothing+    , _gtsrsLatestDigestDeliveryError = Nothing+    , _gtsrsLatestDeliveryAttemptTime = Nothing+    , _gtsrsLatestDeliveryTime = Nothing+    , _gtsrsLatestCloudWatchLogsDeliveryTime = Nothing+    , _gtsrsLatestCloudWatchLogsDeliveryError = Nothing+    , _gtsrsLatestNotificationTime = Nothing+    , _gtsrsLatestNotificationAttemptTime = Nothing+    , _gtsrsStopLoggingTime = Nothing+    , _gtsrsResponseStatus = pResponseStatus_+    }   -- | This field is deprecated. gtsrsTimeLoggingStopped :: Lens' GetTrailStatusResponse (Maybe Text)-gtsrsTimeLoggingStopped = lens _gtsrsTimeLoggingStopped (\ s a -> s{_gtsrsTimeLoggingStopped = a});+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 <http://docs.aws.amazon.com/AmazonS3/latest/API/ErrorResponses.html Error Responses> in the Amazon S3 API Reference. gtsrsLatestDeliveryError :: Lens' GetTrailStatusResponse (Maybe Text)-gtsrsLatestDeliveryError = lens _gtsrsLatestDeliveryError (\ s a -> s{_gtsrsLatestDeliveryError = a});+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. gtsrsLatestDigestDeliveryTime :: Lens' GetTrailStatusResponse (Maybe UTCTime)-gtsrsLatestDigestDeliveryTime = lens _gtsrsLatestDigestDeliveryTime (\ s a -> s{_gtsrsLatestDigestDeliveryTime = a}) . mapping _Time;+gtsrsLatestDigestDeliveryTime = lens _gtsrsLatestDigestDeliveryTime (\ s a -> s{_gtsrsLatestDigestDeliveryTime = a}) . mapping _Time  -- | This field is deprecated. gtsrsLatestNotificationAttemptSucceeded :: Lens' GetTrailStatusResponse (Maybe Text)-gtsrsLatestNotificationAttemptSucceeded = lens _gtsrsLatestNotificationAttemptSucceeded (\ s a -> s{_gtsrsLatestNotificationAttemptSucceeded = a});+gtsrsLatestNotificationAttemptSucceeded = lens _gtsrsLatestNotificationAttemptSucceeded (\ s a -> s{_gtsrsLatestNotificationAttemptSucceeded = a})  -- | Specifies the most recent date and time when CloudTrail started recording API calls for an AWS account. gtsrsStartLoggingTime :: Lens' GetTrailStatusResponse (Maybe UTCTime)-gtsrsStartLoggingTime = lens _gtsrsStartLoggingTime (\ s a -> s{_gtsrsStartLoggingTime = a}) . mapping _Time;+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 <http://docs.aws.amazon.com/sns/latest/dg/welcome.html Amazon SNS Developer Guide> . gtsrsLatestNotificationError :: Lens' GetTrailStatusResponse (Maybe Text)-gtsrsLatestNotificationError = lens _gtsrsLatestNotificationError (\ s a -> s{_gtsrsLatestNotificationError = a});+gtsrsLatestNotificationError = lens _gtsrsLatestNotificationError (\ s a -> s{_gtsrsLatestNotificationError = a})  -- | This field is deprecated. gtsrsLatestDeliveryAttemptSucceeded :: Lens' GetTrailStatusResponse (Maybe Text)-gtsrsLatestDeliveryAttemptSucceeded = lens _gtsrsLatestDeliveryAttemptSucceeded (\ s a -> s{_gtsrsLatestDeliveryAttemptSucceeded = a});+gtsrsLatestDeliveryAttemptSucceeded = lens _gtsrsLatestDeliveryAttemptSucceeded (\ s a -> s{_gtsrsLatestDeliveryAttemptSucceeded = a})  -- | Whether the CloudTrail is currently logging AWS API calls. gtsrsIsLogging :: Lens' GetTrailStatusResponse (Maybe Bool)-gtsrsIsLogging = lens _gtsrsIsLogging (\ s a -> s{_gtsrsIsLogging = a});+gtsrsIsLogging = lens _gtsrsIsLogging (\ s a -> s{_gtsrsIsLogging = a})  -- | This field is deprecated. gtsrsTimeLoggingStarted :: Lens' GetTrailStatusResponse (Maybe Text)-gtsrsTimeLoggingStarted = lens _gtsrsTimeLoggingStarted (\ s a -> s{_gtsrsTimeLoggingStarted = a});+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 <http://docs.aws.amazon.com/AmazonS3/latest/API/ErrorResponses.html Error Responses> in the Amazon S3 API Reference. gtsrsLatestDigestDeliveryError :: Lens' GetTrailStatusResponse (Maybe Text)-gtsrsLatestDigestDeliveryError = lens _gtsrsLatestDigestDeliveryError (\ s a -> s{_gtsrsLatestDigestDeliveryError = a});+gtsrsLatestDigestDeliveryError = lens _gtsrsLatestDigestDeliveryError (\ s a -> s{_gtsrsLatestDigestDeliveryError = a})  -- | This field is deprecated. gtsrsLatestDeliveryAttemptTime :: Lens' GetTrailStatusResponse (Maybe Text)-gtsrsLatestDeliveryAttemptTime = lens _gtsrsLatestDeliveryAttemptTime (\ s a -> s{_gtsrsLatestDeliveryAttemptTime = a});+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. gtsrsLatestDeliveryTime :: Lens' GetTrailStatusResponse (Maybe UTCTime)-gtsrsLatestDeliveryTime = lens _gtsrsLatestDeliveryTime (\ s a -> s{_gtsrsLatestDeliveryTime = a}) . mapping _Time;+gtsrsLatestDeliveryTime = lens _gtsrsLatestDeliveryTime (\ s a -> s{_gtsrsLatestDeliveryTime = a}) . mapping _Time  -- | Displays the most recent date and time when CloudTrail delivered logs to CloudWatch Logs. gtsrsLatestCloudWatchLogsDeliveryTime :: Lens' GetTrailStatusResponse (Maybe UTCTime)-gtsrsLatestCloudWatchLogsDeliveryTime = lens _gtsrsLatestCloudWatchLogsDeliveryTime (\ s a -> s{_gtsrsLatestCloudWatchLogsDeliveryTime = a}) . mapping _Time;+gtsrsLatestCloudWatchLogsDeliveryTime = lens _gtsrsLatestCloudWatchLogsDeliveryTime (\ s a -> s{_gtsrsLatestCloudWatchLogsDeliveryTime = a}) . mapping _Time  -- | Displays any CloudWatch Logs error that CloudTrail encountered when attempting to deliver logs to CloudWatch Logs. gtsrsLatestCloudWatchLogsDeliveryError :: Lens' GetTrailStatusResponse (Maybe Text)-gtsrsLatestCloudWatchLogsDeliveryError = lens _gtsrsLatestCloudWatchLogsDeliveryError (\ s a -> s{_gtsrsLatestCloudWatchLogsDeliveryError = a});+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. gtsrsLatestNotificationTime :: Lens' GetTrailStatusResponse (Maybe UTCTime)-gtsrsLatestNotificationTime = lens _gtsrsLatestNotificationTime (\ s a -> s{_gtsrsLatestNotificationTime = a}) . mapping _Time;+gtsrsLatestNotificationTime = lens _gtsrsLatestNotificationTime (\ s a -> s{_gtsrsLatestNotificationTime = a}) . mapping _Time  -- | This field is deprecated. gtsrsLatestNotificationAttemptTime :: Lens' GetTrailStatusResponse (Maybe Text)-gtsrsLatestNotificationAttemptTime = lens _gtsrsLatestNotificationAttemptTime (\ s a -> s{_gtsrsLatestNotificationAttemptTime = a});+gtsrsLatestNotificationAttemptTime = lens _gtsrsLatestNotificationAttemptTime (\ s a -> s{_gtsrsLatestNotificationAttemptTime = a})  -- | Specifies the most recent date and time when CloudTrail stopped recording API calls for an AWS account. gtsrsStopLoggingTime :: Lens' GetTrailStatusResponse (Maybe UTCTime)-gtsrsStopLoggingTime = lens _gtsrsStopLoggingTime (\ s a -> s{_gtsrsStopLoggingTime = a}) . mapping _Time;+gtsrsStopLoggingTime = lens _gtsrsStopLoggingTime (\ s a -> s{_gtsrsStopLoggingTime = a}) . mapping _Time  -- | -- | The response status code. gtsrsResponseStatus :: Lens' GetTrailStatusResponse Int-gtsrsResponseStatus = lens _gtsrsResponseStatus (\ s a -> s{_gtsrsResponseStatus = a});+gtsrsResponseStatus = lens _gtsrsResponseStatus (\ s a -> s{_gtsrsResponseStatus = a})  instance NFData GetTrailStatusResponse where
gen/Network/AWS/CloudTrail/ListPublicKeys.hs view
@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.CloudTrail.ListPublicKeys--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -72,20 +72,20 @@     :: ListPublicKeys listPublicKeys =   ListPublicKeys'-  {_lpkStartTime = Nothing, _lpkNextToken = Nothing, _lpkEndTime = Nothing}+    {_lpkStartTime = Nothing, _lpkNextToken = Nothing, _lpkEndTime = Nothing}   -- | 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. lpkStartTime :: Lens' ListPublicKeys (Maybe UTCTime)-lpkStartTime = lens _lpkStartTime (\ s a -> s{_lpkStartTime = a}) . mapping _Time;+lpkStartTime = lens _lpkStartTime (\ s a -> s{_lpkStartTime = a}) . mapping _Time  -- | Reserved for future use. lpkNextToken :: Lens' ListPublicKeys (Maybe Text)-lpkNextToken = lens _lpkNextToken (\ s a -> s{_lpkNextToken = a});+lpkNextToken = lens _lpkNextToken (\ s a -> s{_lpkNextToken = a})  -- | 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. lpkEndTime :: Lens' ListPublicKeys (Maybe UTCTime)-lpkEndTime = lens _lpkEndTime (\ s a -> s{_lpkEndTime = a}) . mapping _Time;+lpkEndTime = lens _lpkEndTime (\ s a -> s{_lpkEndTime = a}) . mapping _Time  instance AWSRequest ListPublicKeys where         type Rs ListPublicKeys = ListPublicKeysResponse@@ -152,22 +152,22 @@     -> ListPublicKeysResponse listPublicKeysResponse pResponseStatus_ =   ListPublicKeysResponse'-  { _lpkrsPublicKeyList = Nothing-  , _lpkrsNextToken = Nothing-  , _lpkrsResponseStatus = pResponseStatus_-  }+    { _lpkrsPublicKeyList = Nothing+    , _lpkrsNextToken = Nothing+    , _lpkrsResponseStatus = pResponseStatus_+    }   -- | Contains an array of PublicKey objects. lpkrsPublicKeyList :: Lens' ListPublicKeysResponse [PublicKey]-lpkrsPublicKeyList = lens _lpkrsPublicKeyList (\ s a -> s{_lpkrsPublicKeyList = a}) . _Default . _Coerce;+lpkrsPublicKeyList = lens _lpkrsPublicKeyList (\ s a -> s{_lpkrsPublicKeyList = a}) . _Default . _Coerce  -- | Reserved for future use. lpkrsNextToken :: Lens' ListPublicKeysResponse (Maybe Text)-lpkrsNextToken = lens _lpkrsNextToken (\ s a -> s{_lpkrsNextToken = a});+lpkrsNextToken = lens _lpkrsNextToken (\ s a -> s{_lpkrsNextToken = a})  -- | -- | The response status code. lpkrsResponseStatus :: Lens' ListPublicKeysResponse Int-lpkrsResponseStatus = lens _lpkrsResponseStatus (\ s a -> s{_lpkrsResponseStatus = a});+lpkrsResponseStatus = lens _lpkrsResponseStatus (\ s a -> s{_lpkrsResponseStatus = a})  instance NFData ListPublicKeysResponse where
gen/Network/AWS/CloudTrail/ListTags.hs view
@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.CloudTrail.ListTags--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -71,11 +71,11 @@  -- | Reserved for future use. ltNextToken :: Lens' ListTags (Maybe Text)-ltNextToken = lens _ltNextToken (\ s a -> s{_ltNextToken = a});+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@ ltResourceIdList :: Lens' ListTags [Text]-ltResourceIdList = lens _ltResourceIdList (\ s a -> s{_ltResourceIdList = a}) . _Coerce;+ltResourceIdList = lens _ltResourceIdList (\ s a -> s{_ltResourceIdList = a}) . _Coerce  instance AWSRequest ListTags where         type Rs ListTags = ListTagsResponse@@ -141,22 +141,22 @@     -> ListTagsResponse listTagsResponse pResponseStatus_ =   ListTagsResponse'-  { _ltrsNextToken = Nothing-  , _ltrsResourceTagList = Nothing-  , _ltrsResponseStatus = pResponseStatus_-  }+    { _ltrsNextToken = Nothing+    , _ltrsResourceTagList = Nothing+    , _ltrsResponseStatus = pResponseStatus_+    }   -- | Reserved for future use. ltrsNextToken :: Lens' ListTagsResponse (Maybe Text)-ltrsNextToken = lens _ltrsNextToken (\ s a -> s{_ltrsNextToken = a});+ltrsNextToken = lens _ltrsNextToken (\ s a -> s{_ltrsNextToken = a})  -- | A list of resource tags. ltrsResourceTagList :: Lens' ListTagsResponse [ResourceTag]-ltrsResourceTagList = lens _ltrsResourceTagList (\ s a -> s{_ltrsResourceTagList = a}) . _Default . _Coerce;+ltrsResourceTagList = lens _ltrsResourceTagList (\ s a -> s{_ltrsResourceTagList = a}) . _Default . _Coerce  -- | -- | The response status code. ltrsResponseStatus :: Lens' ListTagsResponse Int-ltrsResponseStatus = lens _ltrsResponseStatus (\ s a -> s{_ltrsResponseStatus = a});+ltrsResponseStatus = lens _ltrsResponseStatus (\ s a -> s{_ltrsResponseStatus = a})  instance NFData ListTagsResponse where
gen/Network/AWS/CloudTrail/LookupEvents.hs view
@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.CloudTrail.LookupEvents--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -103,33 +103,33 @@     :: LookupEvents lookupEvents =   LookupEvents'-  { _leStartTime = Nothing-  , _leLookupAttributes = Nothing-  , _leNextToken = Nothing-  , _leEndTime = Nothing-  , _leMaxResults = Nothing-  }+    { _leStartTime = Nothing+    , _leLookupAttributes = Nothing+    , _leNextToken = Nothing+    , _leEndTime = Nothing+    , _leMaxResults = Nothing+    }   -- | 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. leStartTime :: Lens' LookupEvents (Maybe UTCTime)-leStartTime = lens _leStartTime (\ s a -> s{_leStartTime = a}) . mapping _Time;+leStartTime = lens _leStartTime (\ s a -> s{_leStartTime = a}) . mapping _Time  -- | Contains a list of lookup attributes. Currently the list can contain only one item. leLookupAttributes :: Lens' LookupEvents [LookupAttribute]-leLookupAttributes = lens _leLookupAttributes (\ s a -> s{_leLookupAttributes = a}) . _Default . _Coerce;+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. leNextToken :: Lens' LookupEvents (Maybe Text)-leNextToken = lens _leNextToken (\ s a -> s{_leNextToken = a});+leNextToken = lens _leNextToken (\ s a -> s{_leNextToken = a})  -- | 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. leEndTime :: Lens' LookupEvents (Maybe UTCTime)-leEndTime = lens _leEndTime (\ s a -> s{_leEndTime = a}) . mapping _Time;+leEndTime = lens _leEndTime (\ s a -> s{_leEndTime = a}) . mapping _Time  -- | The number of events to return. Possible values are 1 through 50. The default is 10. leMaxResults :: Lens' LookupEvents (Maybe Natural)-leMaxResults = lens _leMaxResults (\ s a -> s{_leMaxResults = a}) . mapping _Nat;+leMaxResults = lens _leMaxResults (\ s a -> s{_leMaxResults = a}) . mapping _Nat  instance AWSPager LookupEvents where         page rq rs@@ -204,22 +204,22 @@     -> LookupEventsResponse lookupEventsResponse pResponseStatus_ =   LookupEventsResponse'-  { _lersNextToken = Nothing-  , _lersEvents = Nothing-  , _lersResponseStatus = pResponseStatus_-  }+    { _lersNextToken = Nothing+    , _lersEvents = Nothing+    , _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. lersNextToken :: Lens' LookupEventsResponse (Maybe Text)-lersNextToken = lens _lersNextToken (\ s a -> s{_lersNextToken = a});+lersNextToken = lens _lersNextToken (\ s a -> s{_lersNextToken = a})  -- | 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. lersEvents :: Lens' LookupEventsResponse [Event]-lersEvents = lens _lersEvents (\ s a -> s{_lersEvents = a}) . _Default . _Coerce;+lersEvents = lens _lersEvents (\ s a -> s{_lersEvents = a}) . _Default . _Coerce  -- | -- | The response status code. lersResponseStatus :: Lens' LookupEventsResponse Int-lersResponseStatus = lens _lersResponseStatus (\ s a -> s{_lersResponseStatus = a});+lersResponseStatus = lens _lersResponseStatus (\ s a -> s{_lersResponseStatus = a})  instance NFData LookupEventsResponse where
gen/Network/AWS/CloudTrail/PutEventSelectors.hs view
@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.CloudTrail.PutEventSelectors--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -87,11 +87,11 @@  -- | 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 Text-pesTrailName = lens _pesTrailName (\ s a -> s{_pesTrailName = a});+pesTrailName = lens _pesTrailName (\ s a -> s{_pesTrailName = a})  -- | 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}) . _Coerce;+pesEventSelectors = lens _pesEventSelectors (\ s a -> s{_pesEventSelectors = a}) . _Coerce  instance AWSRequest PutEventSelectors where         type Rs PutEventSelectors = PutEventSelectorsResponse@@ -153,22 +153,22 @@     -> PutEventSelectorsResponse putEventSelectorsResponse pResponseStatus_ =   PutEventSelectorsResponse'-  { _pesrsTrailARN = Nothing-  , _pesrsEventSelectors = Nothing-  , _pesrsResponseStatus = pResponseStatus_-  }+    { _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});+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;+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});+pesrsResponseStatus = lens _pesrsResponseStatus (\ s a -> s{_pesrsResponseStatus = a})  instance NFData PutEventSelectorsResponse where
gen/Network/AWS/CloudTrail/RemoveTags.hs view
@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.CloudTrail.RemoveTags--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -71,11 +71,11 @@  -- | Specifies a list of tags to be removed. rtTagsList :: Lens' RemoveTags [Tag]-rtTagsList = lens _rtTagsList (\ s a -> s{_rtTagsList = a}) . _Default . _Coerce;+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@ rtResourceId :: Lens' RemoveTags Text-rtResourceId = lens _rtResourceId (\ s a -> s{_rtResourceId = a});+rtResourceId = lens _rtResourceId (\ s a -> s{_rtResourceId = a})  instance AWSRequest RemoveTags where         type Rs RemoveTags = RemoveTagsResponse@@ -136,6 +136,6 @@  -- | -- | The response status code. rtrsResponseStatus :: Lens' RemoveTagsResponse Int-rtrsResponseStatus = lens _rtrsResponseStatus (\ s a -> s{_rtrsResponseStatus = a});+rtrsResponseStatus = lens _rtrsResponseStatus (\ s a -> s{_rtrsResponseStatus = a})  instance NFData RemoveTagsResponse where
gen/Network/AWS/CloudTrail/StartLogging.hs view
@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.CloudTrail.StartLogging--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -66,7 +66,7 @@  -- | 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});+sName = lens _sName (\ s a -> s{_sName = a})  instance AWSRequest StartLogging where         type Rs StartLogging = StartLoggingResponse@@ -124,6 +124,6 @@  -- | -- | The response status code. srsResponseStatus :: Lens' StartLoggingResponse Int-srsResponseStatus = lens _srsResponseStatus (\ s a -> s{_srsResponseStatus = a});+srsResponseStatus = lens _srsResponseStatus (\ s a -> s{_srsResponseStatus = a})  instance NFData StartLoggingResponse where
gen/Network/AWS/CloudTrail/StopLogging.hs view
@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.CloudTrail.StopLogging--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -66,7 +66,7 @@  -- | 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});+slName = lens _slName (\ s a -> s{_slName = a})  instance AWSRequest StopLogging where         type Rs StopLogging = StopLoggingResponse@@ -124,6 +124,6 @@  -- | -- | The response status code. slrsResponseStatus :: Lens' StopLoggingResponse Int-slrsResponseStatus = lens _slrsResponseStatus (\ s a -> s{_slrsResponseStatus = a});+slrsResponseStatus = lens _slrsResponseStatus (\ s a -> s{_slrsResponseStatus = a})  instance NFData StopLoggingResponse where
gen/Network/AWS/CloudTrail/Types.hs view
@@ -4,7 +4,7 @@  -- | -- Module      : Network.AWS.CloudTrail.Types--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -142,24 +142,24 @@ cloudTrail :: Service cloudTrail =   Service-  { _svcAbbrev = "CloudTrail"-  , _svcSigner = v4-  , _svcPrefix = "cloudtrail"-  , _svcVersion = "2013-11-01"-  , _svcEndpoint = defaultEndpoint cloudTrail-  , _svcTimeout = Just 70-  , _svcCheck = statusSuccess-  , _svcError = parseJSONError "CloudTrail"-  , _svcRetry = retry-  }+    { _svcAbbrev = "CloudTrail"+    , _svcSigner = v4+    , _svcPrefix = "cloudtrail"+    , _svcVersion = "2013-11-01"+    , _svcEndpoint = defaultEndpoint cloudTrail+    , _svcTimeout = Just 70+    , _svcCheck = statusSuccess+    , _svcError = parseJSONError "CloudTrail"+    , _svcRetry = retry+    }   where     retry =       Exponential-      { _retryBase = 5.0e-2-      , _retryGrowth = 2-      , _retryAttempts = 5-      , _retryCheck = check-      }+        { _retryBase = 5.0e-2+        , _retryGrowth = 2+        , _retryAttempts = 5+        , _retryCheck = check+        }     check e       | has (hasCode "ThrottledException" . hasStatus 400) e =         Just "throttled_exception"@@ -168,6 +168,8 @@         Just "throttling_exception"       | has (hasCode "Throttling" . hasStatus 400) e = Just "throttling"       | has (hasStatus 504) e = Just "gateway_timeout"+      | has (hasCode "RequestThrottledException" . hasStatus 400) e =+        Just "request_throttled_exception"       | has (hasStatus 502) e = Just "bad_gateway"       | has (hasStatus 503) e = Just "service_unavailable"       | has (hasStatus 500) e = Just "general_server_error"
gen/Network/AWS/CloudTrail/Types/Product.hs view
@@ -9,7 +9,7 @@  -- | -- Module      : Network.AWS.CloudTrail.Types.Product--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -60,11 +60,11 @@  -- | 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;+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});+drType = lens _drType (\ s a -> s{_drType = a})  instance FromJSON DataResource where         parseJSON@@ -121,43 +121,43 @@     :: Event event =   Event'-  { _eUsername = Nothing-  , _eResources = Nothing-  , _eEventTime = Nothing-  , _eCloudTrailEvent = Nothing-  , _eEventName = Nothing-  , _eEventSource = Nothing-  , _eEventId = Nothing-  }+    { _eUsername = Nothing+    , _eResources = Nothing+    , _eEventTime = Nothing+    , _eCloudTrailEvent = Nothing+    , _eEventName = Nothing+    , _eEventSource = Nothing+    , _eEventId = Nothing+    }   -- | A user name or role name of the requester that called the API in the event returned. eUsername :: Lens' Event (Maybe Text)-eUsername = lens _eUsername (\ s a -> s{_eUsername = a});+eUsername = lens _eUsername (\ s a -> s{_eUsername = a})  -- | A list of resources referenced by the event returned. eResources :: Lens' Event [Resource]-eResources = lens _eResources (\ s a -> s{_eResources = a}) . _Default . _Coerce;+eResources = lens _eResources (\ s a -> s{_eResources = a}) . _Default . _Coerce  -- | The date and time of the event returned. eEventTime :: Lens' Event (Maybe UTCTime)-eEventTime = lens _eEventTime (\ s a -> s{_eEventTime = a}) . mapping _Time;+eEventTime = lens _eEventTime (\ s a -> s{_eEventTime = a}) . mapping _Time  -- | A JSON string that contains a representation of the event returned. eCloudTrailEvent :: Lens' Event (Maybe Text)-eCloudTrailEvent = lens _eCloudTrailEvent (\ s a -> s{_eCloudTrailEvent = a});+eCloudTrailEvent = lens _eCloudTrailEvent (\ s a -> s{_eCloudTrailEvent = a})  -- | The name of the event returned. eEventName :: Lens' Event (Maybe Text)-eEventName = lens _eEventName (\ s a -> s{_eEventName = a});+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});+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});+eEventId = lens _eEventId (\ s a -> s{_eEventId = a})  instance FromJSON Event where         parseJSON@@ -202,23 +202,23 @@     :: EventSelector eventSelector =   EventSelector'-  { _esDataResources = Nothing-  , _esReadWriteType = Nothing-  , _esIncludeManagementEvents = Nothing-  }+    { _esDataResources = Nothing+    , _esReadWriteType = Nothing+    , _esIncludeManagementEvents = Nothing+    }   -- | CloudTrail supports logging only data events for S3 objects. You can specify up to 250 S3 buckets and object prefixes for a trail. For more information, see <http://docs.aws.amazon.com/awscloudtrail/latest/userguide/logging-management-and-data-events-with-cloudtrail.html#logging-data-events Data Events> in the /AWS CloudTrail User Guide/ . esDataResources :: Lens' EventSelector [DataResource]-esDataResources = lens _esDataResources (\ s a -> s{_esDataResources = a}) . _Default . _Coerce;+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});+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 <http://docs.aws.amazon.com/awscloudtrail/latest/userguide/logging-management-and-data-events-with-cloudtrail.html#logging-management-events Management Events> 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});+esIncludeManagementEvents = lens _esIncludeManagementEvents (\ s a -> s{_esIncludeManagementEvents = a})  instance FromJSON EventSelector where         parseJSON@@ -266,16 +266,16 @@     -> LookupAttribute lookupAttribute pAttributeKey_ pAttributeValue_ =   LookupAttribute'-  {_laAttributeKey = pAttributeKey_, _laAttributeValue = pAttributeValue_}+    {_laAttributeKey = pAttributeKey_, _laAttributeValue = pAttributeValue_}   -- | Specifies an attribute on which to filter the events returned. laAttributeKey :: Lens' LookupAttribute LookupAttributeKey-laAttributeKey = lens _laAttributeKey (\ s a -> s{_laAttributeKey = a});+laAttributeKey = lens _laAttributeKey (\ s a -> s{_laAttributeKey = a})  -- | Specifies a value for the specified AttributeKey. laAttributeValue :: Lens' LookupAttribute Text-laAttributeValue = lens _laAttributeValue (\ s a -> s{_laAttributeValue = a});+laAttributeValue = lens _laAttributeValue (\ s a -> s{_laAttributeValue = a})  instance Hashable LookupAttribute where @@ -316,28 +316,28 @@     :: PublicKey publicKey =   PublicKey'-  { _pkFingerprint = Nothing-  , _pkValidityEndTime = Nothing-  , _pkValue = Nothing-  , _pkValidityStartTime = Nothing-  }+    { _pkFingerprint = Nothing+    , _pkValidityEndTime = Nothing+    , _pkValue = Nothing+    , _pkValidityStartTime = Nothing+    }   -- | The fingerprint of the public key. pkFingerprint :: Lens' PublicKey (Maybe Text)-pkFingerprint = lens _pkFingerprint (\ s a -> s{_pkFingerprint = a});+pkFingerprint = lens _pkFingerprint (\ s a -> s{_pkFingerprint = a})  -- | The ending time of validity of the public key. pkValidityEndTime :: Lens' PublicKey (Maybe UTCTime)-pkValidityEndTime = lens _pkValidityEndTime (\ s a -> s{_pkValidityEndTime = a}) . mapping _Time;+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. 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;+pkValue = lens _pkValue (\ s a -> s{_pkValue = a}) . mapping _Base64  -- | The starting time of validity of the public key. pkValidityStartTime :: Lens' PublicKey (Maybe UTCTime)-pkValidityStartTime = lens _pkValidityStartTime (\ s a -> s{_pkValidityStartTime = a}) . mapping _Time;+pkValidityStartTime = lens _pkValidityStartTime (\ s a -> s{_pkValidityStartTime = a}) . mapping _Time  instance FromJSON PublicKey where         parseJSON@@ -377,11 +377,11 @@  -- | 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 <http://docs.aws.amazon.com/awscloudtrail/latest/userguide/lookup_supported_resourcetypes.html Resource Types Supported for Event Lookup> . rResourceType :: Lens' Resource (Maybe Text)-rResourceType = lens _rResourceType (\ s a -> s{_rResourceType = a});+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. rResourceName :: Lens' Resource (Maybe Text)-rResourceName = lens _rResourceName (\ s a -> s{_rResourceName = a});+rResourceName = lens _rResourceName (\ s a -> s{_rResourceName = a})  instance FromJSON Resource where         parseJSON@@ -419,11 +419,11 @@  -- | Specifies the ARN of the resource. rResourceId :: Lens' ResourceTag (Maybe Text)-rResourceId = lens _rResourceId (\ s a -> s{_rResourceId = a});+rResourceId = lens _rResourceId (\ s a -> s{_rResourceId = a})  -- | A list of tags. rTagsList :: Lens' ResourceTag [Tag]-rTagsList = lens _rTagsList (\ s a -> s{_rTagsList = a}) . _Default . _Coerce;+rTagsList = lens _rTagsList (\ s a -> s{_rTagsList = a}) . _Default . _Coerce  instance FromJSON ResourceTag where         parseJSON@@ -463,11 +463,11 @@  -- | The value in a key-value pair of a tag. The value must be no longer than 256 Unicode characters. tagValue :: Lens' Tag (Maybe Text)-tagValue = lens _tagValue (\ s a -> s{_tagValue = a});+tagValue = lens _tagValue (\ s a -> s{_tagValue = a})  -- | 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. tagKey :: Lens' Tag Text-tagKey = lens _tagKey (\ s a -> s{_tagKey = a});+tagKey = lens _tagKey (\ s a -> s{_tagKey = a})  instance FromJSON Tag where         parseJSON@@ -543,78 +543,78 @@     :: Trail trail =   Trail'-  { _tLogFileValidationEnabled = Nothing-  , _tTrailARN = Nothing-  , _tS3KeyPrefix = Nothing-  , _tSNSTopicARN = Nothing-  , _tSNSTopicName = Nothing-  , _tCloudWatchLogsLogGroupARN = Nothing-  , _tKMSKeyId = Nothing-  , _tHomeRegion = Nothing-  , _tName = Nothing-  , _tIncludeGlobalServiceEvents = Nothing-  , _tHasCustomEventSelectors = Nothing-  , _tCloudWatchLogsRoleARN = Nothing-  , _tS3BucketName = Nothing-  , _tIsMultiRegionTrail = Nothing-  }+    { _tLogFileValidationEnabled = Nothing+    , _tTrailARN = Nothing+    , _tS3KeyPrefix = Nothing+    , _tSNSTopicARN = Nothing+    , _tSNSTopicName = Nothing+    , _tCloudWatchLogsLogGroupARN = Nothing+    , _tKMSKeyId = Nothing+    , _tHomeRegion = Nothing+    , _tName = Nothing+    , _tIncludeGlobalServiceEvents = Nothing+    , _tHasCustomEventSelectors = Nothing+    , _tCloudWatchLogsRoleARN = Nothing+    , _tS3BucketName = Nothing+    , _tIsMultiRegionTrail = Nothing+    }   -- | Specifies whether log file validation is enabled. tLogFileValidationEnabled :: Lens' Trail (Maybe Bool)-tLogFileValidationEnabled = lens _tLogFileValidationEnabled (\ s a -> s{_tLogFileValidationEnabled = a});+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@ tTrailARN :: Lens' Trail (Maybe Text)-tTrailARN = lens _tTrailARN (\ s a -> s{_tTrailARN = a});+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 <http://docs.aws.amazon.com/awscloudtrail/latest/userguide/cloudtrail-find-log-files.html Finding Your CloudTrail Log Files> .The maximum length is 200 characters. tS3KeyPrefix :: Lens' Trail (Maybe Text)-tS3KeyPrefix = lens _tS3KeyPrefix (\ s a -> s{_tS3KeyPrefix = a});+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@ tSNSTopicARN :: Lens' Trail (Maybe Text)-tSNSTopicARN = lens _tSNSTopicARN (\ s a -> s{_tSNSTopicARN = a});+tSNSTopicARN = lens _tSNSTopicARN (\ s a -> s{_tSNSTopicARN = a})  -- | This field is deprecated. Use SnsTopicARN. tSNSTopicName :: Lens' Trail (Maybe Text)-tSNSTopicName = lens _tSNSTopicName (\ s a -> s{_tSNSTopicName = a});+tSNSTopicName = lens _tSNSTopicName (\ s a -> s{_tSNSTopicName = a})  -- | Specifies an Amazon Resource Name (ARN), a unique identifier that represents the log group to which CloudTrail logs will be delivered. tCloudWatchLogsLogGroupARN :: Lens' Trail (Maybe Text)-tCloudWatchLogsLogGroupARN = lens _tCloudWatchLogsLogGroupARN (\ s a -> s{_tCloudWatchLogsLogGroupARN = a});+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@ tKMSKeyId :: Lens' Trail (Maybe Text)-tKMSKeyId = lens _tKMSKeyId (\ s a -> s{_tKMSKeyId = a});+tKMSKeyId = lens _tKMSKeyId (\ s a -> s{_tKMSKeyId = a})  -- | The region in which the trail was created. tHomeRegion :: Lens' Trail (Maybe Text)-tHomeRegion = lens _tHomeRegion (\ s a -> s{_tHomeRegion = a});+tHomeRegion = lens _tHomeRegion (\ s a -> s{_tHomeRegion = a})  -- | 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});+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__ . tIncludeGlobalServiceEvents :: Lens' Trail (Maybe Bool)-tIncludeGlobalServiceEvents = lens _tIncludeGlobalServiceEvents (\ s a -> s{_tIncludeGlobalServiceEvents = a});+tIncludeGlobalServiceEvents = lens _tIncludeGlobalServiceEvents (\ s a -> s{_tIncludeGlobalServiceEvents = a})  -- | Specifies if the trail has custom event selectors. tHasCustomEventSelectors :: Lens' Trail (Maybe Bool)-tHasCustomEventSelectors = lens _tHasCustomEventSelectors (\ s a -> s{_tHasCustomEventSelectors = a});+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});+tCloudWatchLogsRoleARN = lens _tCloudWatchLogsRoleARN (\ s a -> s{_tCloudWatchLogsRoleARN = a})  -- | Name of the Amazon S3 bucket into which CloudTrail delivers your trail files. See <http://docs.aws.amazon.com/awscloudtrail/latest/userguide/create_trail_naming_policy.html Amazon S3 Bucket Naming Requirements> . tS3BucketName :: Lens' Trail (Maybe Text)-tS3BucketName = lens _tS3BucketName (\ s a -> s{_tS3BucketName = a});+tS3BucketName = lens _tS3BucketName (\ s a -> s{_tS3BucketName = a})  -- | Specifies whether the trail belongs only to one region or exists in all regions. tIsMultiRegionTrail :: Lens' Trail (Maybe Bool)-tIsMultiRegionTrail = lens _tIsMultiRegionTrail (\ s a -> s{_tIsMultiRegionTrail = a});+tIsMultiRegionTrail = lens _tIsMultiRegionTrail (\ s a -> s{_tIsMultiRegionTrail = a})  instance FromJSON Trail where         parseJSON
gen/Network/AWS/CloudTrail/Types/Sum.hs view
@@ -9,7 +9,7 @@  -- | -- Module      : Network.AWS.CloudTrail.Types.Sum--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated
gen/Network/AWS/CloudTrail/UpdateTrail.hs view
@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.CloudTrail.UpdateTrail--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -111,58 +111,58 @@     -> UpdateTrail updateTrail pName_ =   UpdateTrail'-  { _utS3KeyPrefix = Nothing-  , _utSNSTopicName = Nothing-  , _utEnableLogFileValidation = Nothing-  , _utCloudWatchLogsLogGroupARN = Nothing-  , _utKMSKeyId = Nothing-  , _utIncludeGlobalServiceEvents = Nothing-  , _utCloudWatchLogsRoleARN = Nothing-  , _utS3BucketName = Nothing-  , _utIsMultiRegionTrail = Nothing-  , _utName = pName_-  }+    { _utS3KeyPrefix = Nothing+    , _utSNSTopicName = Nothing+    , _utEnableLogFileValidation = Nothing+    , _utCloudWatchLogsLogGroupARN = Nothing+    , _utKMSKeyId = Nothing+    , _utIncludeGlobalServiceEvents = Nothing+    , _utCloudWatchLogsRoleARN = Nothing+    , _utS3BucketName = Nothing+    , _utIsMultiRegionTrail = Nothing+    , _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 <http://docs.aws.amazon.com/awscloudtrail/latest/userguide/cloudtrail-find-log-files.html Finding Your CloudTrail Log Files> . The maximum length is 200 characters. utS3KeyPrefix :: Lens' UpdateTrail (Maybe Text)-utS3KeyPrefix = lens _utS3KeyPrefix (\ s a -> s{_utS3KeyPrefix = a});+utS3KeyPrefix = lens _utS3KeyPrefix (\ s a -> s{_utS3KeyPrefix = a})  -- | Specifies the name of the Amazon SNS topic defined for notification of log file delivery. The maximum length is 256 characters. utSNSTopicName :: Lens' UpdateTrail (Maybe Text)-utSNSTopicName = lens _utSNSTopicName (\ s a -> s{_utSNSTopicName = a});+utSNSTopicName = lens _utSNSTopicName (\ s a -> s{_utSNSTopicName = a})  -- | Specifies whether log file validation is enabled. The default is false. utEnableLogFileValidation :: Lens' UpdateTrail (Maybe Bool)-utEnableLogFileValidation = lens _utEnableLogFileValidation (\ s a -> s{_utEnableLogFileValidation = a});+utEnableLogFileValidation = lens _utEnableLogFileValidation (\ s a -> s{_utEnableLogFileValidation = a})  -- | 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. utCloudWatchLogsLogGroupARN :: Lens' UpdateTrail (Maybe Text)-utCloudWatchLogsLogGroupARN = lens _utCloudWatchLogsLogGroupARN (\ s a -> s{_utCloudWatchLogsLogGroupARN = a});+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 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});+utKMSKeyId = lens _utKMSKeyId (\ s a -> s{_utKMSKeyId = a})  -- | Specifies whether the trail is publishing events from global services such as IAM to the log files. utIncludeGlobalServiceEvents :: Lens' UpdateTrail (Maybe Bool)-utIncludeGlobalServiceEvents = lens _utIncludeGlobalServiceEvents (\ s a -> s{_utIncludeGlobalServiceEvents = a});+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. utCloudWatchLogsRoleARN :: Lens' UpdateTrail (Maybe Text)-utCloudWatchLogsRoleARN = lens _utCloudWatchLogsRoleARN (\ s a -> s{_utCloudWatchLogsRoleARN = a});+utCloudWatchLogsRoleARN = lens _utCloudWatchLogsRoleARN (\ s a -> s{_utCloudWatchLogsRoleARN = a})  -- | Specifies the name of the Amazon S3 bucket designated for publishing log files. See <http://docs.aws.amazon.com/awscloudtrail/latest/userguide/create_trail_naming_policy.html Amazon S3 Bucket Naming Requirements> . utS3BucketName :: Lens' UpdateTrail (Maybe Text)-utS3BucketName = lens _utS3BucketName (\ s a -> s{_utS3BucketName = a});+utS3BucketName = lens _utS3BucketName (\ s a -> s{_utS3BucketName = a})  -- | 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. utIsMultiRegionTrail :: Lens' UpdateTrail (Maybe Bool)-utIsMultiRegionTrail = lens _utIsMultiRegionTrail (\ s a -> s{_utIsMultiRegionTrail = a});+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@ utName :: Lens' UpdateTrail Text-utName = lens _utName (\ s a -> s{_utName = a});+utName = lens _utName (\ s a -> s{_utName = a})  instance AWSRequest UpdateTrail where         type Rs UpdateTrail = UpdateTrailResponse@@ -280,72 +280,72 @@     -> UpdateTrailResponse updateTrailResponse pResponseStatus_ =   UpdateTrailResponse'-  { _utrsLogFileValidationEnabled = Nothing-  , _utrsTrailARN = Nothing-  , _utrsS3KeyPrefix = Nothing-  , _utrsSNSTopicARN = Nothing-  , _utrsSNSTopicName = Nothing-  , _utrsCloudWatchLogsLogGroupARN = Nothing-  , _utrsKMSKeyId = Nothing-  , _utrsName = Nothing-  , _utrsIncludeGlobalServiceEvents = Nothing-  , _utrsCloudWatchLogsRoleARN = Nothing-  , _utrsS3BucketName = Nothing-  , _utrsIsMultiRegionTrail = Nothing-  , _utrsResponseStatus = pResponseStatus_-  }+    { _utrsLogFileValidationEnabled = Nothing+    , _utrsTrailARN = Nothing+    , _utrsS3KeyPrefix = Nothing+    , _utrsSNSTopicARN = Nothing+    , _utrsSNSTopicName = Nothing+    , _utrsCloudWatchLogsLogGroupARN = Nothing+    , _utrsKMSKeyId = Nothing+    , _utrsName = Nothing+    , _utrsIncludeGlobalServiceEvents = Nothing+    , _utrsCloudWatchLogsRoleARN = Nothing+    , _utrsS3BucketName = Nothing+    , _utrsIsMultiRegionTrail = Nothing+    , _utrsResponseStatus = pResponseStatus_+    }   -- | Specifies whether log file integrity validation is enabled. utrsLogFileValidationEnabled :: Lens' UpdateTrailResponse (Maybe Bool)-utrsLogFileValidationEnabled = lens _utrsLogFileValidationEnabled (\ s a -> s{_utrsLogFileValidationEnabled = a});+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@ utrsTrailARN :: Lens' UpdateTrailResponse (Maybe Text)-utrsTrailARN = lens _utrsTrailARN (\ s a -> s{_utrsTrailARN = a});+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 <http://docs.aws.amazon.com/awscloudtrail/latest/userguide/cloudtrail-find-log-files.html Finding Your CloudTrail Log Files> . utrsS3KeyPrefix :: Lens' UpdateTrailResponse (Maybe Text)-utrsS3KeyPrefix = lens _utrsS3KeyPrefix (\ s a -> s{_utrsS3KeyPrefix = a});+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@ utrsSNSTopicARN :: Lens' UpdateTrailResponse (Maybe Text)-utrsSNSTopicARN = lens _utrsSNSTopicARN (\ s a -> s{_utrsSNSTopicARN = a});+utrsSNSTopicARN = lens _utrsSNSTopicARN (\ s a -> s{_utrsSNSTopicARN = a})  -- | This field is deprecated. Use SnsTopicARN. utrsSNSTopicName :: Lens' UpdateTrailResponse (Maybe Text)-utrsSNSTopicName = lens _utrsSNSTopicName (\ s a -> s{_utrsSNSTopicName = a});+utrsSNSTopicName = lens _utrsSNSTopicName (\ s a -> s{_utrsSNSTopicName = a})  -- | Specifies the Amazon Resource Name (ARN) of the log group to which CloudTrail logs will be delivered. utrsCloudWatchLogsLogGroupARN :: Lens' UpdateTrailResponse (Maybe Text)-utrsCloudWatchLogsLogGroupARN = lens _utrsCloudWatchLogsLogGroupARN (\ s a -> s{_utrsCloudWatchLogsLogGroupARN = a});+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@ utrsKMSKeyId :: Lens' UpdateTrailResponse (Maybe Text)-utrsKMSKeyId = lens _utrsKMSKeyId (\ s a -> s{_utrsKMSKeyId = a});+utrsKMSKeyId = lens _utrsKMSKeyId (\ s a -> s{_utrsKMSKeyId = a})  -- | Specifies the name of the trail. utrsName :: Lens' UpdateTrailResponse (Maybe Text)-utrsName = lens _utrsName (\ s a -> s{_utrsName = a});+utrsName = lens _utrsName (\ s a -> s{_utrsName = a})  -- | Specifies whether the trail is publishing events from global services such as IAM to the log files. utrsIncludeGlobalServiceEvents :: Lens' UpdateTrailResponse (Maybe Bool)-utrsIncludeGlobalServiceEvents = lens _utrsIncludeGlobalServiceEvents (\ s a -> s{_utrsIncludeGlobalServiceEvents = a});+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. utrsCloudWatchLogsRoleARN :: Lens' UpdateTrailResponse (Maybe Text)-utrsCloudWatchLogsRoleARN = lens _utrsCloudWatchLogsRoleARN (\ s a -> s{_utrsCloudWatchLogsRoleARN = a});+utrsCloudWatchLogsRoleARN = lens _utrsCloudWatchLogsRoleARN (\ s a -> s{_utrsCloudWatchLogsRoleARN = a})  -- | Specifies the name of the Amazon S3 bucket designated for publishing log files. utrsS3BucketName :: Lens' UpdateTrailResponse (Maybe Text)-utrsS3BucketName = lens _utrsS3BucketName (\ s a -> s{_utrsS3BucketName = a});+utrsS3BucketName = lens _utrsS3BucketName (\ s a -> s{_utrsS3BucketName = a})  -- | Specifies whether the trail exists in one region or in all regions. utrsIsMultiRegionTrail :: Lens' UpdateTrailResponse (Maybe Bool)-utrsIsMultiRegionTrail = lens _utrsIsMultiRegionTrail (\ s a -> s{_utrsIsMultiRegionTrail = a});+utrsIsMultiRegionTrail = lens _utrsIsMultiRegionTrail (\ s a -> s{_utrsIsMultiRegionTrail = a})  -- | -- | The response status code. utrsResponseStatus :: Lens' UpdateTrailResponse Int-utrsResponseStatus = lens _utrsResponseStatus (\ s a -> s{_utrsResponseStatus = a});+utrsResponseStatus = lens _utrsResponseStatus (\ s a -> s{_utrsResponseStatus = a})  instance NFData UpdateTrailResponse where
gen/Network/AWS/CloudTrail/Waiters.hs view
@@ -7,7 +7,7 @@  -- | -- Module      : Network.AWS.CloudTrail.Waiters--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated
test/Main.hs view
@@ -2,7 +2,7 @@  -- | -- Module      : Main--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated
test/Test/AWS/CloudTrail.hs view
@@ -1,7 +1,7 @@ {-# LANGUAGE OverloadedStrings #-}  -- Module      : Test.AWS.CloudTrail--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : This Source Code Form is subject to the terms of --               the Mozilla Public License, v. 2.0. --               A copy of the MPL can be found in the LICENSE file or
test/Test/AWS/CloudTrail/Internal.hs view
@@ -2,7 +2,7 @@ {-# OPTIONS_GHC -fno-warn-unused-imports #-}  -- Module      : Test.AWS.CloudTrail.Internal--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : This Source Code Form is subject to the terms of --               the Mozilla Public License, v. 2.0. --               A copy of the MPL can be found in the LICENSE file or
test/Test/AWS/Gen/CloudTrail.hs view
@@ -5,7 +5,7 @@  -- | -- Module      : Test.AWS.Gen.CloudTrail--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated