amazonka-cloudwatch-logs 1.5.0 → 1.6.0
raw patch · 44 files changed
+493/−488 lines, 44 filesdep ~amazonka-coredep ~amazonka-testPVP ok
version bump matches the API change (PVP)
Dependency ranges changed: amazonka-core, amazonka-test
API changes (from Hackage documentation)
Files
- README.md +1/−1
- amazonka-cloudwatch-logs.cabal +5/−5
- gen/Network/AWS/CloudWatchLogs.hs +1/−1
- gen/Network/AWS/CloudWatchLogs/AssociateKMSKey.hs +4/−4
- gen/Network/AWS/CloudWatchLogs/CancelExportTask.hs +2/−2
- gen/Network/AWS/CloudWatchLogs/CreateExportTask.hs +19/−19
- gen/Network/AWS/CloudWatchLogs/CreateLogGroup.hs +8/−8
- gen/Network/AWS/CloudWatchLogs/CreateLogStream.hs +4/−4
- gen/Network/AWS/CloudWatchLogs/DeleteDestination.hs +2/−2
- gen/Network/AWS/CloudWatchLogs/DeleteLogGroup.hs +2/−2
- gen/Network/AWS/CloudWatchLogs/DeleteLogStream.hs +4/−4
- gen/Network/AWS/CloudWatchLogs/DeleteMetricFilter.hs +4/−4
- gen/Network/AWS/CloudWatchLogs/DeleteResourcePolicy.hs +2/−2
- gen/Network/AWS/CloudWatchLogs/DeleteRetentionPolicy.hs +2/−2
- gen/Network/AWS/CloudWatchLogs/DeleteSubscriptionFilter.hs +4/−4
- gen/Network/AWS/CloudWatchLogs/DescribeDestinations.hs +15/−15
- gen/Network/AWS/CloudWatchLogs/DescribeExportTasks.hs +17/−17
- gen/Network/AWS/CloudWatchLogs/DescribeLogGroups.hs +15/−15
- gen/Network/AWS/CloudWatchLogs/DescribeLogStreams.hs +21/−21
- gen/Network/AWS/CloudWatchLogs/DescribeMetricFilters.hs +21/−21
- gen/Network/AWS/CloudWatchLogs/DescribeResourcePolicies.hs +10/−10
- gen/Network/AWS/CloudWatchLogs/DescribeSubscriptionFilters.hs +17/−17
- gen/Network/AWS/CloudWatchLogs/DisassociateKMSKey.hs +2/−2
- gen/Network/AWS/CloudWatchLogs/FilterLogEvents.hs +27/−27
- gen/Network/AWS/CloudWatchLogs/GetLogEvents.hs +25/−25
- gen/Network/AWS/CloudWatchLogs/ListTagsLogGroup.hs +5/−5
- gen/Network/AWS/CloudWatchLogs/PutDestination.hs +11/−11
- gen/Network/AWS/CloudWatchLogs/PutDestinationPolicy.hs +4/−4
- gen/Network/AWS/CloudWatchLogs/PutLogEvents.hs +17/−17
- gen/Network/AWS/CloudWatchLogs/PutMetricFilter.hs +10/−10
- gen/Network/AWS/CloudWatchLogs/PutResourcePolicy.hs +6/−6
- gen/Network/AWS/CloudWatchLogs/PutRetentionPolicy.hs +4/−4
- gen/Network/AWS/CloudWatchLogs/PutSubscriptionFilter.hs +14/−14
- gen/Network/AWS/CloudWatchLogs/TagLogGroup.hs +3/−3
- gen/Network/AWS/CloudWatchLogs/TestMetricFilter.hs +9/−9
- gen/Network/AWS/CloudWatchLogs/Types.hs +18/−16
- gen/Network/AWS/CloudWatchLogs/Types/Product.hs +149/−146
- gen/Network/AWS/CloudWatchLogs/Types/Sum.hs +1/−1
- gen/Network/AWS/CloudWatchLogs/UntagLogGroup.hs +3/−3
- gen/Network/AWS/CloudWatchLogs/Waiters.hs +1/−1
- test/Main.hs +1/−1
- test/Test/AWS/CloudWatchLogs.hs +1/−1
- test/Test/AWS/CloudWatchLogs/Internal.hs +1/−1
- test/Test/AWS/Gen/CloudWatchLogs.hs +1/−1
README.md view
@@ -8,7 +8,7 @@ ## Version -`1.5.0`+`1.6.0` ## Description
amazonka-cloudwatch-logs.cabal view
@@ -1,5 +1,5 @@ name: amazonka-cloudwatch-logs-version: 1.5.0+version: 1.6.0 synopsis: Amazon CloudWatch Logs 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@@ -86,7 +86,7 @@ , Network.AWS.CloudWatchLogs.Types.Sum build-depends:- amazonka-core == 1.5.0.*+ amazonka-core == 1.6.0.* , base >= 4.7 && < 5 test-suite amazonka-cloudwatch-logs-test@@ -106,8 +106,8 @@ , Test.AWS.CloudWatchLogs.Internal build-depends:- amazonka-core == 1.5.0.*- , amazonka-test == 1.5.0.*+ amazonka-core == 1.6.0.*+ , amazonka-test == 1.6.0.* , amazonka-cloudwatch-logs , base , bytestring
gen/Network/AWS/CloudWatchLogs.hs view
@@ -5,7 +5,7 @@ -- | -- Module : Network.AWS.CloudWatchLogs--- 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/CloudWatchLogs/AssociateKMSKey.hs view
@@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.CloudWatchLogs.AssociateKMSKey--- Copyright : (c) 2013-2017 Brendan Hay+-- Copyright : (c) 2013-2018 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability : auto-generated@@ -68,16 +68,16 @@ -> AssociateKMSKey associateKMSKey pLogGroupName_ pKmsKeyId_ = AssociateKMSKey'- {_akkLogGroupName = pLogGroupName_, _akkKmsKeyId = pKmsKeyId_}+ {_akkLogGroupName = pLogGroupName_, _akkKmsKeyId = pKmsKeyId_} -- | The name of the log group. akkLogGroupName :: Lens' AssociateKMSKey Text-akkLogGroupName = lens _akkLogGroupName (\ s a -> s{_akkLogGroupName = a});+akkLogGroupName = lens _akkLogGroupName (\ s a -> s{_akkLogGroupName = a}) -- | The Amazon Resource Name (ARN) of the CMK to use when encrypting log data. For more information, see <http://docs.aws.amazon.com/general/latest/gr/aws-arns-and-namespaces.html#arn-syntax-kms Amazon Resource Names - AWS Key Management Service (AWS KMS)> . akkKmsKeyId :: Lens' AssociateKMSKey Text-akkKmsKeyId = lens _akkKmsKeyId (\ s a -> s{_akkKmsKeyId = a});+akkKmsKeyId = lens _akkKmsKeyId (\ s a -> s{_akkKmsKeyId = a}) instance AWSRequest AssociateKMSKey where type Rs AssociateKMSKey = AssociateKMSKeyResponse
gen/Network/AWS/CloudWatchLogs/CancelExportTask.hs view
@@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.CloudWatchLogs.CancelExportTask--- 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@@ -62,7 +62,7 @@ -- | The ID of the export task. cetTaskId :: Lens' CancelExportTask Text-cetTaskId = lens _cetTaskId (\ s a -> s{_cetTaskId = a});+cetTaskId = lens _cetTaskId (\ s a -> s{_cetTaskId = a}) instance AWSRequest CancelExportTask where type Rs CancelExportTask = CancelExportTaskResponse
gen/Network/AWS/CloudWatchLogs/CreateExportTask.hs view
@@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.CloudWatchLogs.CreateExportTask--- 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@@ -91,43 +91,43 @@ -> CreateExportTask createExportTask pLogGroupName_ pFrom_ pTo_ pDestination_ = CreateExportTask'- { _cetDestinationPrefix = Nothing- , _cetTaskName = Nothing- , _cetLogStreamNamePrefix = Nothing- , _cetLogGroupName = pLogGroupName_- , _cetFrom = _Nat # pFrom_- , _cetTo = _Nat # pTo_- , _cetDestination = pDestination_- }+ { _cetDestinationPrefix = Nothing+ , _cetTaskName = Nothing+ , _cetLogStreamNamePrefix = Nothing+ , _cetLogGroupName = pLogGroupName_+ , _cetFrom = _Nat # pFrom_+ , _cetTo = _Nat # pTo_+ , _cetDestination = pDestination_+ } -- | The prefix used as the start of the key for every object exported. If you don't specify a value, the default is @exportedlogs@ . cetDestinationPrefix :: Lens' CreateExportTask (Maybe Text)-cetDestinationPrefix = lens _cetDestinationPrefix (\ s a -> s{_cetDestinationPrefix = a});+cetDestinationPrefix = lens _cetDestinationPrefix (\ s a -> s{_cetDestinationPrefix = a}) -- | The name of the export task. cetTaskName :: Lens' CreateExportTask (Maybe Text)-cetTaskName = lens _cetTaskName (\ s a -> s{_cetTaskName = a});+cetTaskName = lens _cetTaskName (\ s a -> s{_cetTaskName = a}) -- | Export only log streams that match the provided prefix. If you don't specify a value, no prefix filter is applied. cetLogStreamNamePrefix :: Lens' CreateExportTask (Maybe Text)-cetLogStreamNamePrefix = lens _cetLogStreamNamePrefix (\ s a -> s{_cetLogStreamNamePrefix = a});+cetLogStreamNamePrefix = lens _cetLogStreamNamePrefix (\ s a -> s{_cetLogStreamNamePrefix = a}) -- | The name of the log group. cetLogGroupName :: Lens' CreateExportTask Text-cetLogGroupName = lens _cetLogGroupName (\ s a -> s{_cetLogGroupName = a});+cetLogGroupName = lens _cetLogGroupName (\ s a -> s{_cetLogGroupName = a}) -- | The start time of the range for the request, expressed as the number of milliseconds after Jan 1, 1970 00:00:00 UTC. Events with a time stamp earlier than this time are not exported. cetFrom :: Lens' CreateExportTask Natural-cetFrom = lens _cetFrom (\ s a -> s{_cetFrom = a}) . _Nat;+cetFrom = lens _cetFrom (\ s a -> s{_cetFrom = a}) . _Nat -- | The end time of the range for the request, expressed as the number of milliseconds after Jan 1, 1970 00:00:00 UTC. Events with a time stamp later than this time are not exported. cetTo :: Lens' CreateExportTask Natural-cetTo = lens _cetTo (\ s a -> s{_cetTo = a}) . _Nat;+cetTo = lens _cetTo (\ s a -> s{_cetTo = a}) . _Nat -- | The name of S3 bucket for the exported log data. The bucket must be in the same AWS region. cetDestination :: Lens' CreateExportTask Text-cetDestination = lens _cetDestination (\ s a -> s{_cetDestination = a});+cetDestination = lens _cetDestination (\ s a -> s{_cetDestination = a}) instance AWSRequest CreateExportTask where type Rs CreateExportTask = CreateExportTaskResponse@@ -188,15 +188,15 @@ -> CreateExportTaskResponse createExportTaskResponse pResponseStatus_ = CreateExportTaskResponse'- {_cetrsTaskId = Nothing, _cetrsResponseStatus = pResponseStatus_}+ {_cetrsTaskId = Nothing, _cetrsResponseStatus = pResponseStatus_} -- | The ID of the export task. cetrsTaskId :: Lens' CreateExportTaskResponse (Maybe Text)-cetrsTaskId = lens _cetrsTaskId (\ s a -> s{_cetrsTaskId = a});+cetrsTaskId = lens _cetrsTaskId (\ s a -> s{_cetrsTaskId = a}) -- | -- | The response status code. cetrsResponseStatus :: Lens' CreateExportTaskResponse Int-cetrsResponseStatus = lens _cetrsResponseStatus (\ s a -> s{_cetrsResponseStatus = a});+cetrsResponseStatus = lens _cetrsResponseStatus (\ s a -> s{_cetrsResponseStatus = a}) instance NFData CreateExportTaskResponse where
gen/Network/AWS/CloudWatchLogs/CreateLogGroup.hs view
@@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.CloudWatchLogs.CreateLogGroup--- Copyright : (c) 2013-2017 Brendan Hay+-- Copyright : (c) 2013-2018 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability : auto-generated@@ -81,23 +81,23 @@ -> CreateLogGroup createLogGroup pLogGroupName_ = CreateLogGroup'- { _clgKmsKeyId = Nothing- , _clgTags = Nothing- , _clgLogGroupName = pLogGroupName_- }+ { _clgKmsKeyId = Nothing+ , _clgTags = Nothing+ , _clgLogGroupName = pLogGroupName_+ } -- | The Amazon Resource Name (ARN) of the CMK to use when encrypting log data. For more information, see <http://docs.aws.amazon.com/general/latest/gr/aws-arns-and-namespaces.html#arn-syntax-kms Amazon Resource Names - AWS Key Management Service (AWS KMS)> . clgKmsKeyId :: Lens' CreateLogGroup (Maybe Text)-clgKmsKeyId = lens _clgKmsKeyId (\ s a -> s{_clgKmsKeyId = a});+clgKmsKeyId = lens _clgKmsKeyId (\ s a -> s{_clgKmsKeyId = a}) -- | The key-value pairs to use for the tags. clgTags :: Lens' CreateLogGroup (HashMap Text Text)-clgTags = lens _clgTags (\ s a -> s{_clgTags = a}) . _Default . _Map;+clgTags = lens _clgTags (\ s a -> s{_clgTags = a}) . _Default . _Map -- | The name of the log group. clgLogGroupName :: Lens' CreateLogGroup Text-clgLogGroupName = lens _clgLogGroupName (\ s a -> s{_clgLogGroupName = a});+clgLogGroupName = lens _clgLogGroupName (\ s a -> s{_clgLogGroupName = a}) instance AWSRequest CreateLogGroup where type Rs CreateLogGroup = CreateLogGroupResponse
gen/Network/AWS/CloudWatchLogs/CreateLogStream.hs view
@@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.CloudWatchLogs.CreateLogStream--- 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,16 +74,16 @@ -> CreateLogStream createLogStream pLogGroupName_ pLogStreamName_ = CreateLogStream'- {_clsLogGroupName = pLogGroupName_, _clsLogStreamName = pLogStreamName_}+ {_clsLogGroupName = pLogGroupName_, _clsLogStreamName = pLogStreamName_} -- | The name of the log group. clsLogGroupName :: Lens' CreateLogStream Text-clsLogGroupName = lens _clsLogGroupName (\ s a -> s{_clsLogGroupName = a});+clsLogGroupName = lens _clsLogGroupName (\ s a -> s{_clsLogGroupName = a}) -- | The name of the log stream. clsLogStreamName :: Lens' CreateLogStream Text-clsLogStreamName = lens _clsLogStreamName (\ s a -> s{_clsLogStreamName = a});+clsLogStreamName = lens _clsLogStreamName (\ s a -> s{_clsLogStreamName = a}) instance AWSRequest CreateLogStream where type Rs CreateLogStream = CreateLogStreamResponse
gen/Network/AWS/CloudWatchLogs/DeleteDestination.hs view
@@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.CloudWatchLogs.DeleteDestination--- 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@@ -61,7 +61,7 @@ -- | The name of the destination. ddDestinationName :: Lens' DeleteDestination Text-ddDestinationName = lens _ddDestinationName (\ s a -> s{_ddDestinationName = a});+ddDestinationName = lens _ddDestinationName (\ s a -> s{_ddDestinationName = a}) instance AWSRequest DeleteDestination where type Rs DeleteDestination = DeleteDestinationResponse
gen/Network/AWS/CloudWatchLogs/DeleteLogGroup.hs view
@@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.CloudWatchLogs.DeleteLogGroup--- 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@@ -61,7 +61,7 @@ -- | The name of the log group. dlgLogGroupName :: Lens' DeleteLogGroup Text-dlgLogGroupName = lens _dlgLogGroupName (\ s a -> s{_dlgLogGroupName = a});+dlgLogGroupName = lens _dlgLogGroupName (\ s a -> s{_dlgLogGroupName = a}) instance AWSRequest DeleteLogGroup where type Rs DeleteLogGroup = DeleteLogGroupResponse
gen/Network/AWS/CloudWatchLogs/DeleteLogStream.hs view
@@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.CloudWatchLogs.DeleteLogStream--- 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@@ -62,16 +62,16 @@ -> DeleteLogStream deleteLogStream pLogGroupName_ pLogStreamName_ = DeleteLogStream'- {_dlsLogGroupName = pLogGroupName_, _dlsLogStreamName = pLogStreamName_}+ {_dlsLogGroupName = pLogGroupName_, _dlsLogStreamName = pLogStreamName_} -- | The name of the log group. dlsLogGroupName :: Lens' DeleteLogStream Text-dlsLogGroupName = lens _dlsLogGroupName (\ s a -> s{_dlsLogGroupName = a});+dlsLogGroupName = lens _dlsLogGroupName (\ s a -> s{_dlsLogGroupName = a}) -- | The name of the log stream. dlsLogStreamName :: Lens' DeleteLogStream Text-dlsLogStreamName = lens _dlsLogStreamName (\ s a -> s{_dlsLogStreamName = a});+dlsLogStreamName = lens _dlsLogStreamName (\ s a -> s{_dlsLogStreamName = a}) instance AWSRequest DeleteLogStream where type Rs DeleteLogStream = DeleteLogStreamResponse
gen/Network/AWS/CloudWatchLogs/DeleteMetricFilter.hs view
@@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.CloudWatchLogs.DeleteMetricFilter--- 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@@ -62,16 +62,16 @@ -> DeleteMetricFilter deleteMetricFilter pLogGroupName_ pFilterName_ = DeleteMetricFilter'- {_delLogGroupName = pLogGroupName_, _delFilterName = pFilterName_}+ {_delLogGroupName = pLogGroupName_, _delFilterName = pFilterName_} -- | The name of the log group. delLogGroupName :: Lens' DeleteMetricFilter Text-delLogGroupName = lens _delLogGroupName (\ s a -> s{_delLogGroupName = a});+delLogGroupName = lens _delLogGroupName (\ s a -> s{_delLogGroupName = a}) -- | The name of the metric filter. delFilterName :: Lens' DeleteMetricFilter Text-delFilterName = lens _delFilterName (\ s a -> s{_delFilterName = a});+delFilterName = lens _delFilterName (\ s a -> s{_delFilterName = a}) instance AWSRequest DeleteMetricFilter where type Rs DeleteMetricFilter =
gen/Network/AWS/CloudWatchLogs/DeleteResourcePolicy.hs view
@@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.CloudWatchLogs.DeleteResourcePolicy--- 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@@ -59,7 +59,7 @@ -- | The name of the policy to be revoked. This parameter is required. drpPolicyName :: Lens' DeleteResourcePolicy (Maybe Text)-drpPolicyName = lens _drpPolicyName (\ s a -> s{_drpPolicyName = a});+drpPolicyName = lens _drpPolicyName (\ s a -> s{_drpPolicyName = a}) instance AWSRequest DeleteResourcePolicy where type Rs DeleteResourcePolicy =
gen/Network/AWS/CloudWatchLogs/DeleteRetentionPolicy.hs view
@@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.CloudWatchLogs.DeleteRetentionPolicy--- 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@@ -63,7 +63,7 @@ -- | The name of the log group. drpLogGroupName :: Lens' DeleteRetentionPolicy Text-drpLogGroupName = lens _drpLogGroupName (\ s a -> s{_drpLogGroupName = a});+drpLogGroupName = lens _drpLogGroupName (\ s a -> s{_drpLogGroupName = a}) instance AWSRequest DeleteRetentionPolicy where type Rs DeleteRetentionPolicy =
gen/Network/AWS/CloudWatchLogs/DeleteSubscriptionFilter.hs view
@@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.CloudWatchLogs.DeleteSubscriptionFilter--- 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@@ -62,16 +62,16 @@ -> DeleteSubscriptionFilter deleteSubscriptionFilter pLogGroupName_ pFilterName_ = DeleteSubscriptionFilter'- {_dLogGroupName = pLogGroupName_, _dFilterName = pFilterName_}+ {_dLogGroupName = pLogGroupName_, _dFilterName = pFilterName_} -- | The name of the log group. dLogGroupName :: Lens' DeleteSubscriptionFilter Text-dLogGroupName = lens _dLogGroupName (\ s a -> s{_dLogGroupName = a});+dLogGroupName = lens _dLogGroupName (\ s a -> s{_dLogGroupName = a}) -- | The name of the subscription filter. dFilterName :: Lens' DeleteSubscriptionFilter Text-dFilterName = lens _dFilterName (\ s a -> s{_dFilterName = a});+dFilterName = lens _dFilterName (\ s a -> s{_dFilterName = a}) instance AWSRequest DeleteSubscriptionFilter where type Rs DeleteSubscriptionFilter =
gen/Network/AWS/CloudWatchLogs/DescribeDestinations.hs view
@@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.CloudWatchLogs.DescribeDestinations--- 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,23 +71,23 @@ :: DescribeDestinations describeDestinations = DescribeDestinations'- { _ddNextToken = Nothing- , _ddLimit = Nothing- , _ddDestinationNamePrefix = Nothing- }+ { _ddNextToken = Nothing+ , _ddLimit = Nothing+ , _ddDestinationNamePrefix = Nothing+ } -- | The token for the next set of items to return. (You received this token from a previous call.) ddNextToken :: Lens' DescribeDestinations (Maybe Text)-ddNextToken = lens _ddNextToken (\ s a -> s{_ddNextToken = a});+ddNextToken = lens _ddNextToken (\ s a -> s{_ddNextToken = a}) -- | The maximum number of items returned. If you don't specify a value, the default is up to 50 items. ddLimit :: Lens' DescribeDestinations (Maybe Natural)-ddLimit = lens _ddLimit (\ s a -> s{_ddLimit = a}) . mapping _Nat;+ddLimit = lens _ddLimit (\ s a -> s{_ddLimit = a}) . mapping _Nat -- | The prefix to match. If you don't specify a value, no prefix filter is applied. ddDestinationNamePrefix :: Lens' DescribeDestinations (Maybe Text)-ddDestinationNamePrefix = lens _ddDestinationNamePrefix (\ s a -> s{_ddDestinationNamePrefix = a});+ddDestinationNamePrefix = lens _ddDestinationNamePrefix (\ s a -> s{_ddDestinationNamePrefix = a}) instance AWSPager DescribeDestinations where page rq rs@@ -158,22 +158,22 @@ -> DescribeDestinationsResponse describeDestinationsResponse pResponseStatus_ = DescribeDestinationsResponse'- { _ddrsNextToken = Nothing- , _ddrsDestinations = Nothing- , _ddrsResponseStatus = pResponseStatus_- }+ { _ddrsNextToken = Nothing+ , _ddrsDestinations = Nothing+ , _ddrsResponseStatus = pResponseStatus_+ } -- | Undocumented member. ddrsNextToken :: Lens' DescribeDestinationsResponse (Maybe Text)-ddrsNextToken = lens _ddrsNextToken (\ s a -> s{_ddrsNextToken = a});+ddrsNextToken = lens _ddrsNextToken (\ s a -> s{_ddrsNextToken = a}) -- | The destinations. ddrsDestinations :: Lens' DescribeDestinationsResponse [Destination]-ddrsDestinations = lens _ddrsDestinations (\ s a -> s{_ddrsDestinations = a}) . _Default . _Coerce;+ddrsDestinations = lens _ddrsDestinations (\ s a -> s{_ddrsDestinations = a}) . _Default . _Coerce -- | -- | The response status code. ddrsResponseStatus :: Lens' DescribeDestinationsResponse Int-ddrsResponseStatus = lens _ddrsResponseStatus (\ s a -> s{_ddrsResponseStatus = a});+ddrsResponseStatus = lens _ddrsResponseStatus (\ s a -> s{_ddrsResponseStatus = a}) instance NFData DescribeDestinationsResponse where
gen/Network/AWS/CloudWatchLogs/DescribeExportTasks.hs view
@@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.CloudWatchLogs.DescribeExportTasks--- 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,28 +72,28 @@ :: DescribeExportTasks describeExportTasks = DescribeExportTasks'- { _detTaskId = Nothing- , _detNextToken = Nothing- , _detLimit = Nothing- , _detStatusCode = Nothing- }+ { _detTaskId = Nothing+ , _detNextToken = Nothing+ , _detLimit = Nothing+ , _detStatusCode = Nothing+ } -- | The ID of the export task. Specifying a task ID filters the results to zero or one export tasks. detTaskId :: Lens' DescribeExportTasks (Maybe Text)-detTaskId = lens _detTaskId (\ s a -> s{_detTaskId = a});+detTaskId = lens _detTaskId (\ s a -> s{_detTaskId = a}) -- | The token for the next set of items to return. (You received this token from a previous call.) detNextToken :: Lens' DescribeExportTasks (Maybe Text)-detNextToken = lens _detNextToken (\ s a -> s{_detNextToken = a});+detNextToken = lens _detNextToken (\ s a -> s{_detNextToken = a}) -- | The maximum number of items returned. If you don't specify a value, the default is up to 50 items. detLimit :: Lens' DescribeExportTasks (Maybe Natural)-detLimit = lens _detLimit (\ s a -> s{_detLimit = a}) . mapping _Nat;+detLimit = lens _detLimit (\ s a -> s{_detLimit = a}) . mapping _Nat -- | The status code of the export task. Specifying a status code filters the results to zero or more export tasks. detStatusCode :: Lens' DescribeExportTasks (Maybe ExportTaskStatusCode)-detStatusCode = lens _detStatusCode (\ s a -> s{_detStatusCode = a});+detStatusCode = lens _detStatusCode (\ s a -> s{_detStatusCode = a}) instance AWSRequest DescribeExportTasks where type Rs DescribeExportTasks =@@ -157,22 +157,22 @@ -> DescribeExportTasksResponse describeExportTasksResponse pResponseStatus_ = DescribeExportTasksResponse'- { _detrsNextToken = Nothing- , _detrsExportTasks = Nothing- , _detrsResponseStatus = pResponseStatus_- }+ { _detrsNextToken = Nothing+ , _detrsExportTasks = Nothing+ , _detrsResponseStatus = pResponseStatus_+ } -- | Undocumented member. detrsNextToken :: Lens' DescribeExportTasksResponse (Maybe Text)-detrsNextToken = lens _detrsNextToken (\ s a -> s{_detrsNextToken = a});+detrsNextToken = lens _detrsNextToken (\ s a -> s{_detrsNextToken = a}) -- | The export tasks. detrsExportTasks :: Lens' DescribeExportTasksResponse [ExportTask]-detrsExportTasks = lens _detrsExportTasks (\ s a -> s{_detrsExportTasks = a}) . _Default . _Coerce;+detrsExportTasks = lens _detrsExportTasks (\ s a -> s{_detrsExportTasks = a}) . _Default . _Coerce -- | -- | The response status code. detrsResponseStatus :: Lens' DescribeExportTasksResponse Int-detrsResponseStatus = lens _detrsResponseStatus (\ s a -> s{_detrsResponseStatus = a});+detrsResponseStatus = lens _detrsResponseStatus (\ s a -> s{_detrsResponseStatus = a}) instance NFData DescribeExportTasksResponse where
gen/Network/AWS/CloudWatchLogs/DescribeLogGroups.hs view
@@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.CloudWatchLogs.DescribeLogGroups--- 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,23 +71,23 @@ :: DescribeLogGroups describeLogGroups = DescribeLogGroups'- { _dlgLogGroupNamePrefix = Nothing- , _dlgNextToken = Nothing- , _dlgLimit = Nothing- }+ { _dlgLogGroupNamePrefix = Nothing+ , _dlgNextToken = Nothing+ , _dlgLimit = Nothing+ } -- | The prefix to match. dlgLogGroupNamePrefix :: Lens' DescribeLogGroups (Maybe Text)-dlgLogGroupNamePrefix = lens _dlgLogGroupNamePrefix (\ s a -> s{_dlgLogGroupNamePrefix = a});+dlgLogGroupNamePrefix = lens _dlgLogGroupNamePrefix (\ s a -> s{_dlgLogGroupNamePrefix = a}) -- | The token for the next set of items to return. (You received this token from a previous call.) dlgNextToken :: Lens' DescribeLogGroups (Maybe Text)-dlgNextToken = lens _dlgNextToken (\ s a -> s{_dlgNextToken = a});+dlgNextToken = lens _dlgNextToken (\ s a -> s{_dlgNextToken = a}) -- | The maximum number of items returned. If you don't specify a value, the default is up to 50 items. dlgLimit :: Lens' DescribeLogGroups (Maybe Natural)-dlgLimit = lens _dlgLimit (\ s a -> s{_dlgLimit = a}) . mapping _Nat;+dlgLimit = lens _dlgLimit (\ s a -> s{_dlgLimit = a}) . mapping _Nat instance AWSPager DescribeLogGroups where page rq rs@@ -157,22 +157,22 @@ -> DescribeLogGroupsResponse describeLogGroupsResponse pResponseStatus_ = DescribeLogGroupsResponse'- { _dlgrsLogGroups = Nothing- , _dlgrsNextToken = Nothing- , _dlgrsResponseStatus = pResponseStatus_- }+ { _dlgrsLogGroups = Nothing+ , _dlgrsNextToken = Nothing+ , _dlgrsResponseStatus = pResponseStatus_+ } -- | The log groups. dlgrsLogGroups :: Lens' DescribeLogGroupsResponse [LogGroup]-dlgrsLogGroups = lens _dlgrsLogGroups (\ s a -> s{_dlgrsLogGroups = a}) . _Default . _Coerce;+dlgrsLogGroups = lens _dlgrsLogGroups (\ s a -> s{_dlgrsLogGroups = a}) . _Default . _Coerce -- | Undocumented member. dlgrsNextToken :: Lens' DescribeLogGroupsResponse (Maybe Text)-dlgrsNextToken = lens _dlgrsNextToken (\ s a -> s{_dlgrsNextToken = a});+dlgrsNextToken = lens _dlgrsNextToken (\ s a -> s{_dlgrsNextToken = a}) -- | -- | The response status code. dlgrsResponseStatus :: Lens' DescribeLogGroupsResponse Int-dlgrsResponseStatus = lens _dlgrsResponseStatus (\ s a -> s{_dlgrsResponseStatus = a});+dlgrsResponseStatus = lens _dlgrsResponseStatus (\ s a -> s{_dlgrsResponseStatus = a}) instance NFData DescribeLogGroupsResponse where
gen/Network/AWS/CloudWatchLogs/DescribeLogStreams.hs view
@@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.CloudWatchLogs.DescribeLogStreams--- Copyright : (c) 2013-2017 Brendan Hay+-- Copyright : (c) 2013-2018 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability : auto-generated@@ -86,38 +86,38 @@ -> DescribeLogStreams describeLogStreams pLogGroupName_ = DescribeLogStreams'- { _dlssOrderBy = Nothing- , _dlssDescending = Nothing- , _dlssNextToken = Nothing- , _dlssLogStreamNamePrefix = Nothing- , _dlssLimit = Nothing- , _dlssLogGroupName = pLogGroupName_- }+ { _dlssOrderBy = Nothing+ , _dlssDescending = Nothing+ , _dlssNextToken = Nothing+ , _dlssLogStreamNamePrefix = Nothing+ , _dlssLimit = Nothing+ , _dlssLogGroupName = pLogGroupName_+ } -- | If the value is @LogStreamName@ , the results are ordered by log stream name. If the value is @LastEventTime@ , the results are ordered by the event time. The default value is @LogStreamName@ . If you order the results by event time, you cannot specify the @logStreamNamePrefix@ parameter. lastEventTimestamp represents the time of the most recent log event in the log stream in CloudWatch Logs. This number is expressed as the number of milliseconds after Jan 1, 1970 00:00:00 UTC. lastEventTimeStamp updates on an eventual consistency basis. It typically updates in less than an hour from ingestion, but may take longer in some rare situations. dlssOrderBy :: Lens' DescribeLogStreams (Maybe OrderBy)-dlssOrderBy = lens _dlssOrderBy (\ s a -> s{_dlssOrderBy = a});+dlssOrderBy = lens _dlssOrderBy (\ s a -> s{_dlssOrderBy = a}) -- | If the value is true, results are returned in descending order. If the value is to false, results are returned in ascending order. The default value is false. dlssDescending :: Lens' DescribeLogStreams (Maybe Bool)-dlssDescending = lens _dlssDescending (\ s a -> s{_dlssDescending = a});+dlssDescending = lens _dlssDescending (\ s a -> s{_dlssDescending = a}) -- | The token for the next set of items to return. (You received this token from a previous call.) dlssNextToken :: Lens' DescribeLogStreams (Maybe Text)-dlssNextToken = lens _dlssNextToken (\ s a -> s{_dlssNextToken = a});+dlssNextToken = lens _dlssNextToken (\ s a -> s{_dlssNextToken = a}) -- | The prefix to match. iIf @orderBy@ is @LastEventTime@ ,you cannot specify this parameter. dlssLogStreamNamePrefix :: Lens' DescribeLogStreams (Maybe Text)-dlssLogStreamNamePrefix = lens _dlssLogStreamNamePrefix (\ s a -> s{_dlssLogStreamNamePrefix = a});+dlssLogStreamNamePrefix = lens _dlssLogStreamNamePrefix (\ s a -> s{_dlssLogStreamNamePrefix = a}) -- | The maximum number of items returned. If you don't specify a value, the default is up to 50 items. dlssLimit :: Lens' DescribeLogStreams (Maybe Natural)-dlssLimit = lens _dlssLimit (\ s a -> s{_dlssLimit = a}) . mapping _Nat;+dlssLimit = lens _dlssLimit (\ s a -> s{_dlssLimit = a}) . mapping _Nat -- | The name of the log group. dlssLogGroupName :: Lens' DescribeLogStreams Text-dlssLogGroupName = lens _dlssLogGroupName (\ s a -> s{_dlssLogGroupName = a});+dlssLogGroupName = lens _dlssLogGroupName (\ s a -> s{_dlssLogGroupName = a}) instance AWSPager DescribeLogStreams where page rq rs@@ -191,22 +191,22 @@ -> DescribeLogStreamsResponse describeLogStreamsResponse pResponseStatus_ = DescribeLogStreamsResponse'- { _dlsrsNextToken = Nothing- , _dlsrsLogStreams = Nothing- , _dlsrsResponseStatus = pResponseStatus_- }+ { _dlsrsNextToken = Nothing+ , _dlsrsLogStreams = Nothing+ , _dlsrsResponseStatus = pResponseStatus_+ } -- | Undocumented member. dlsrsNextToken :: Lens' DescribeLogStreamsResponse (Maybe Text)-dlsrsNextToken = lens _dlsrsNextToken (\ s a -> s{_dlsrsNextToken = a});+dlsrsNextToken = lens _dlsrsNextToken (\ s a -> s{_dlsrsNextToken = a}) -- | The log streams. dlsrsLogStreams :: Lens' DescribeLogStreamsResponse [LogStream]-dlsrsLogStreams = lens _dlsrsLogStreams (\ s a -> s{_dlsrsLogStreams = a}) . _Default . _Coerce;+dlsrsLogStreams = lens _dlsrsLogStreams (\ s a -> s{_dlsrsLogStreams = a}) . _Default . _Coerce -- | -- | The response status code. dlsrsResponseStatus :: Lens' DescribeLogStreamsResponse Int-dlsrsResponseStatus = lens _dlsrsResponseStatus (\ s a -> s{_dlsrsResponseStatus = a});+dlsrsResponseStatus = lens _dlsrsResponseStatus (\ s a -> s{_dlsrsResponseStatus = a}) instance NFData DescribeLogStreamsResponse where
gen/Network/AWS/CloudWatchLogs/DescribeMetricFilters.hs view
@@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.CloudWatchLogs.DescribeMetricFilters--- 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,38 +83,38 @@ :: DescribeMetricFilters describeMetricFilters = DescribeMetricFilters'- { _dmfFilterNamePrefix = Nothing- , _dmfMetricName = Nothing- , _dmfLogGroupName = Nothing- , _dmfNextToken = Nothing- , _dmfMetricNamespace = Nothing- , _dmfLimit = Nothing- }+ { _dmfFilterNamePrefix = Nothing+ , _dmfMetricName = Nothing+ , _dmfLogGroupName = Nothing+ , _dmfNextToken = Nothing+ , _dmfMetricNamespace = Nothing+ , _dmfLimit = Nothing+ } -- | The prefix to match. dmfFilterNamePrefix :: Lens' DescribeMetricFilters (Maybe Text)-dmfFilterNamePrefix = lens _dmfFilterNamePrefix (\ s a -> s{_dmfFilterNamePrefix = a});+dmfFilterNamePrefix = lens _dmfFilterNamePrefix (\ s a -> s{_dmfFilterNamePrefix = a}) -- | Undocumented member. dmfMetricName :: Lens' DescribeMetricFilters (Maybe Text)-dmfMetricName = lens _dmfMetricName (\ s a -> s{_dmfMetricName = a});+dmfMetricName = lens _dmfMetricName (\ s a -> s{_dmfMetricName = a}) -- | The name of the log group. dmfLogGroupName :: Lens' DescribeMetricFilters (Maybe Text)-dmfLogGroupName = lens _dmfLogGroupName (\ s a -> s{_dmfLogGroupName = a});+dmfLogGroupName = lens _dmfLogGroupName (\ s a -> s{_dmfLogGroupName = a}) -- | The token for the next set of items to return. (You received this token from a previous call.) dmfNextToken :: Lens' DescribeMetricFilters (Maybe Text)-dmfNextToken = lens _dmfNextToken (\ s a -> s{_dmfNextToken = a});+dmfNextToken = lens _dmfNextToken (\ s a -> s{_dmfNextToken = a}) -- | The namespace of the CloudWatch metric. dmfMetricNamespace :: Lens' DescribeMetricFilters (Maybe Text)-dmfMetricNamespace = lens _dmfMetricNamespace (\ s a -> s{_dmfMetricNamespace = a});+dmfMetricNamespace = lens _dmfMetricNamespace (\ s a -> s{_dmfMetricNamespace = a}) -- | The maximum number of items returned. If you don't specify a value, the default is up to 50 items. dmfLimit :: Lens' DescribeMetricFilters (Maybe Natural)-dmfLimit = lens _dmfLimit (\ s a -> s{_dmfLimit = a}) . mapping _Nat;+dmfLimit = lens _dmfLimit (\ s a -> s{_dmfLimit = a}) . mapping _Nat instance AWSPager DescribeMetricFilters where page rq rs@@ -188,22 +188,22 @@ -> DescribeMetricFiltersResponse describeMetricFiltersResponse pResponseStatus_ = DescribeMetricFiltersResponse'- { _dmfrsNextToken = Nothing- , _dmfrsMetricFilters = Nothing- , _dmfrsResponseStatus = pResponseStatus_- }+ { _dmfrsNextToken = Nothing+ , _dmfrsMetricFilters = Nothing+ , _dmfrsResponseStatus = pResponseStatus_+ } -- | Undocumented member. dmfrsNextToken :: Lens' DescribeMetricFiltersResponse (Maybe Text)-dmfrsNextToken = lens _dmfrsNextToken (\ s a -> s{_dmfrsNextToken = a});+dmfrsNextToken = lens _dmfrsNextToken (\ s a -> s{_dmfrsNextToken = a}) -- | The metric filters. dmfrsMetricFilters :: Lens' DescribeMetricFiltersResponse [MetricFilter]-dmfrsMetricFilters = lens _dmfrsMetricFilters (\ s a -> s{_dmfrsMetricFilters = a}) . _Default . _Coerce;+dmfrsMetricFilters = lens _dmfrsMetricFilters (\ s a -> s{_dmfrsMetricFilters = a}) . _Default . _Coerce -- | -- | The response status code. dmfrsResponseStatus :: Lens' DescribeMetricFiltersResponse Int-dmfrsResponseStatus = lens _dmfrsResponseStatus (\ s a -> s{_dmfrsResponseStatus = a});+dmfrsResponseStatus = lens _dmfrsResponseStatus (\ s a -> s{_dmfrsResponseStatus = a}) instance NFData DescribeMetricFiltersResponse where
gen/Network/AWS/CloudWatchLogs/DescribeResourcePolicies.hs view
@@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.CloudWatchLogs.DescribeResourcePolicies--- Copyright : (c) 2013-2017 Brendan Hay+-- Copyright : (c) 2013-2018 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability : auto-generated@@ -68,11 +68,11 @@ -- | Undocumented member. drpNextToken :: Lens' DescribeResourcePolicies (Maybe Text)-drpNextToken = lens _drpNextToken (\ s a -> s{_drpNextToken = a});+drpNextToken = lens _drpNextToken (\ s a -> s{_drpNextToken = a}) -- | The maximum number of resource policies to be displayed with one call of this API. drpLimit :: Lens' DescribeResourcePolicies (Maybe Natural)-drpLimit = lens _drpLimit (\ s a -> s{_drpLimit = a}) . mapping _Nat;+drpLimit = lens _drpLimit (\ s a -> s{_drpLimit = a}) . mapping _Nat instance AWSRequest DescribeResourcePolicies where type Rs DescribeResourcePolicies =@@ -135,23 +135,23 @@ -> DescribeResourcePoliciesResponse describeResourcePoliciesResponse pResponseStatus_ = DescribeResourcePoliciesResponse'- { _drprsResourcePolicies = Nothing- , _drprsNextToken = Nothing- , _drprsResponseStatus = pResponseStatus_- }+ { _drprsResourcePolicies = Nothing+ , _drprsNextToken = Nothing+ , _drprsResponseStatus = pResponseStatus_+ } -- | The resource policies that exist in this account. drprsResourcePolicies :: Lens' DescribeResourcePoliciesResponse [ResourcePolicy]-drprsResourcePolicies = lens _drprsResourcePolicies (\ s a -> s{_drprsResourcePolicies = a}) . _Default . _Coerce;+drprsResourcePolicies = lens _drprsResourcePolicies (\ s a -> s{_drprsResourcePolicies = a}) . _Default . _Coerce -- | Undocumented member. drprsNextToken :: Lens' DescribeResourcePoliciesResponse (Maybe Text)-drprsNextToken = lens _drprsNextToken (\ s a -> s{_drprsNextToken = a});+drprsNextToken = lens _drprsNextToken (\ s a -> s{_drprsNextToken = a}) -- | -- | The response status code. drprsResponseStatus :: Lens' DescribeResourcePoliciesResponse Int-drprsResponseStatus = lens _drprsResponseStatus (\ s a -> s{_drprsResponseStatus = a});+drprsResponseStatus = lens _drprsResponseStatus (\ s a -> s{_drprsResponseStatus = a}) instance NFData DescribeResourcePoliciesResponse where
gen/Network/AWS/CloudWatchLogs/DescribeSubscriptionFilters.hs view
@@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.CloudWatchLogs.DescribeSubscriptionFilters--- 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@@ -76,28 +76,28 @@ -> DescribeSubscriptionFilters describeSubscriptionFilters pLogGroupName_ = DescribeSubscriptionFilters'- { _dsfFilterNamePrefix = Nothing- , _dsfNextToken = Nothing- , _dsfLimit = Nothing- , _dsfLogGroupName = pLogGroupName_- }+ { _dsfFilterNamePrefix = Nothing+ , _dsfNextToken = Nothing+ , _dsfLimit = Nothing+ , _dsfLogGroupName = pLogGroupName_+ } -- | The prefix to match. If you don't specify a value, no prefix filter is applied. dsfFilterNamePrefix :: Lens' DescribeSubscriptionFilters (Maybe Text)-dsfFilterNamePrefix = lens _dsfFilterNamePrefix (\ s a -> s{_dsfFilterNamePrefix = a});+dsfFilterNamePrefix = lens _dsfFilterNamePrefix (\ s a -> s{_dsfFilterNamePrefix = a}) -- | The token for the next set of items to return. (You received this token from a previous call.) dsfNextToken :: Lens' DescribeSubscriptionFilters (Maybe Text)-dsfNextToken = lens _dsfNextToken (\ s a -> s{_dsfNextToken = a});+dsfNextToken = lens _dsfNextToken (\ s a -> s{_dsfNextToken = a}) -- | The maximum number of items returned. If you don't specify a value, the default is up to 50 items. dsfLimit :: Lens' DescribeSubscriptionFilters (Maybe Natural)-dsfLimit = lens _dsfLimit (\ s a -> s{_dsfLimit = a}) . mapping _Nat;+dsfLimit = lens _dsfLimit (\ s a -> s{_dsfLimit = a}) . mapping _Nat -- | The name of the log group. dsfLogGroupName :: Lens' DescribeSubscriptionFilters Text-dsfLogGroupName = lens _dsfLogGroupName (\ s a -> s{_dsfLogGroupName = a});+dsfLogGroupName = lens _dsfLogGroupName (\ s a -> s{_dsfLogGroupName = a}) instance AWSPager DescribeSubscriptionFilters where page rq rs@@ -169,23 +169,23 @@ -> DescribeSubscriptionFiltersResponse describeSubscriptionFiltersResponse pResponseStatus_ = DescribeSubscriptionFiltersResponse'- { _dsfrsSubscriptionFilters = Nothing- , _dsfrsNextToken = Nothing- , _dsfrsResponseStatus = pResponseStatus_- }+ { _dsfrsSubscriptionFilters = Nothing+ , _dsfrsNextToken = Nothing+ , _dsfrsResponseStatus = pResponseStatus_+ } -- | The subscription filters. dsfrsSubscriptionFilters :: Lens' DescribeSubscriptionFiltersResponse [SubscriptionFilter]-dsfrsSubscriptionFilters = lens _dsfrsSubscriptionFilters (\ s a -> s{_dsfrsSubscriptionFilters = a}) . _Default . _Coerce;+dsfrsSubscriptionFilters = lens _dsfrsSubscriptionFilters (\ s a -> s{_dsfrsSubscriptionFilters = a}) . _Default . _Coerce -- | Undocumented member. dsfrsNextToken :: Lens' DescribeSubscriptionFiltersResponse (Maybe Text)-dsfrsNextToken = lens _dsfrsNextToken (\ s a -> s{_dsfrsNextToken = a});+dsfrsNextToken = lens _dsfrsNextToken (\ s a -> s{_dsfrsNextToken = a}) -- | -- | The response status code. dsfrsResponseStatus :: Lens' DescribeSubscriptionFiltersResponse Int-dsfrsResponseStatus = lens _dsfrsResponseStatus (\ s a -> s{_dsfrsResponseStatus = a});+dsfrsResponseStatus = lens _dsfrsResponseStatus (\ s a -> s{_dsfrsResponseStatus = a}) instance NFData DescribeSubscriptionFiltersResponse where
gen/Network/AWS/CloudWatchLogs/DisassociateKMSKey.hs view
@@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.CloudWatchLogs.DisassociateKMSKey--- 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@@ -65,7 +65,7 @@ -- | The name of the log group. dkkLogGroupName :: Lens' DisassociateKMSKey Text-dkkLogGroupName = lens _dkkLogGroupName (\ s a -> s{_dkkLogGroupName = a});+dkkLogGroupName = lens _dkkLogGroupName (\ s a -> s{_dkkLogGroupName = a}) instance AWSRequest DisassociateKMSKey where type Rs DisassociateKMSKey =
gen/Network/AWS/CloudWatchLogs/FilterLogEvents.hs view
@@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.CloudWatchLogs.FilterLogEvents--- 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@@ -95,48 +95,48 @@ -> FilterLogEvents filterLogEvents pLogGroupName_ = FilterLogEvents'- { _fleStartTime = Nothing- , _fleNextToken = Nothing- , _fleLogStreamNames = Nothing- , _fleEndTime = Nothing- , _fleLimit = Nothing- , _fleFilterPattern = Nothing- , _fleInterleaved = Nothing- , _fleLogGroupName = pLogGroupName_- }+ { _fleStartTime = Nothing+ , _fleNextToken = Nothing+ , _fleLogStreamNames = Nothing+ , _fleEndTime = Nothing+ , _fleLimit = Nothing+ , _fleFilterPattern = Nothing+ , _fleInterleaved = Nothing+ , _fleLogGroupName = pLogGroupName_+ } -- | The start of the time range, expressed as the number of milliseconds after Jan 1, 1970 00:00:00 UTC. Events with a time stamp before this time are not returned. fleStartTime :: Lens' FilterLogEvents (Maybe Natural)-fleStartTime = lens _fleStartTime (\ s a -> s{_fleStartTime = a}) . mapping _Nat;+fleStartTime = lens _fleStartTime (\ s a -> s{_fleStartTime = a}) . mapping _Nat -- | The token for the next set of events to return. (You received this token from a previous call.) fleNextToken :: Lens' FilterLogEvents (Maybe Text)-fleNextToken = lens _fleNextToken (\ s a -> s{_fleNextToken = a});+fleNextToken = lens _fleNextToken (\ s a -> s{_fleNextToken = a}) -- | Optional list of log stream names. fleLogStreamNames :: Lens' FilterLogEvents (Maybe (NonEmpty Text))-fleLogStreamNames = lens _fleLogStreamNames (\ s a -> s{_fleLogStreamNames = a}) . mapping _List1;+fleLogStreamNames = lens _fleLogStreamNames (\ s a -> s{_fleLogStreamNames = a}) . mapping _List1 -- | The end of the time range, expressed as the number of milliseconds after Jan 1, 1970 00:00:00 UTC. Events with a time stamp later than this time are not returned. fleEndTime :: Lens' FilterLogEvents (Maybe Natural)-fleEndTime = lens _fleEndTime (\ s a -> s{_fleEndTime = a}) . mapping _Nat;+fleEndTime = lens _fleEndTime (\ s a -> s{_fleEndTime = a}) . mapping _Nat -- | The maximum number of events to return. The default is 10,000 events. fleLimit :: Lens' FilterLogEvents (Maybe Natural)-fleLimit = lens _fleLimit (\ s a -> s{_fleLimit = a}) . mapping _Nat;+fleLimit = lens _fleLimit (\ s a -> s{_fleLimit = a}) . mapping _Nat -- | The filter pattern to use. If not provided, all the events are matched. fleFilterPattern :: Lens' FilterLogEvents (Maybe Text)-fleFilterPattern = lens _fleFilterPattern (\ s a -> s{_fleFilterPattern = a});+fleFilterPattern = lens _fleFilterPattern (\ s a -> s{_fleFilterPattern = a}) -- | If the value is true, the operation makes a best effort to provide responses that contain events from multiple log streams within the log group, interleaved in a single response. If the value is false, all the matched log events in the first log stream are searched first, then those in the next log stream, and so on. The default is false. fleInterleaved :: Lens' FilterLogEvents (Maybe Bool)-fleInterleaved = lens _fleInterleaved (\ s a -> s{_fleInterleaved = a});+fleInterleaved = lens _fleInterleaved (\ s a -> s{_fleInterleaved = a}) -- | The name of the log group. fleLogGroupName :: Lens' FilterLogEvents Text-fleLogGroupName = lens _fleLogGroupName (\ s a -> s{_fleLogGroupName = a});+fleLogGroupName = lens _fleLogGroupName (\ s a -> s{_fleLogGroupName = a}) instance AWSPager FilterLogEvents where page rq rs@@ -213,27 +213,27 @@ -> FilterLogEventsResponse filterLogEventsResponse pResponseStatus_ = FilterLogEventsResponse'- { _flersSearchedLogStreams = Nothing- , _flersNextToken = Nothing- , _flersEvents = Nothing- , _flersResponseStatus = pResponseStatus_- }+ { _flersSearchedLogStreams = Nothing+ , _flersNextToken = Nothing+ , _flersEvents = Nothing+ , _flersResponseStatus = pResponseStatus_+ } -- | Indicates which log streams have been searched and whether each has been searched completely. flersSearchedLogStreams :: Lens' FilterLogEventsResponse [SearchedLogStream]-flersSearchedLogStreams = lens _flersSearchedLogStreams (\ s a -> s{_flersSearchedLogStreams = a}) . _Default . _Coerce;+flersSearchedLogStreams = lens _flersSearchedLogStreams (\ s a -> s{_flersSearchedLogStreams = a}) . _Default . _Coerce -- | The token to use when requesting the next set of items. The token expires after 24 hours. flersNextToken :: Lens' FilterLogEventsResponse (Maybe Text)-flersNextToken = lens _flersNextToken (\ s a -> s{_flersNextToken = a});+flersNextToken = lens _flersNextToken (\ s a -> s{_flersNextToken = a}) -- | The matched events. flersEvents :: Lens' FilterLogEventsResponse [FilteredLogEvent]-flersEvents = lens _flersEvents (\ s a -> s{_flersEvents = a}) . _Default . _Coerce;+flersEvents = lens _flersEvents (\ s a -> s{_flersEvents = a}) . _Default . _Coerce -- | -- | The response status code. flersResponseStatus :: Lens' FilterLogEventsResponse Int-flersResponseStatus = lens _flersResponseStatus (\ s a -> s{_flersResponseStatus = a});+flersResponseStatus = lens _flersResponseStatus (\ s a -> s{_flersResponseStatus = a}) instance NFData FilterLogEventsResponse where
gen/Network/AWS/CloudWatchLogs/GetLogEvents.hs view
@@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.CloudWatchLogs.GetLogEvents--- 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@@ -89,43 +89,43 @@ -> GetLogEvents getLogEvents pLogGroupName_ pLogStreamName_ = GetLogEvents'- { _gleStartTime = Nothing- , _gleStartFromHead = Nothing- , _gleNextToken = Nothing- , _gleEndTime = Nothing- , _gleLimit = Nothing- , _gleLogGroupName = pLogGroupName_- , _gleLogStreamName = pLogStreamName_- }+ { _gleStartTime = Nothing+ , _gleStartFromHead = Nothing+ , _gleNextToken = Nothing+ , _gleEndTime = Nothing+ , _gleLimit = Nothing+ , _gleLogGroupName = pLogGroupName_+ , _gleLogStreamName = pLogStreamName_+ } -- | The start of the time range, expressed as the number of milliseconds after Jan 1, 1970 00:00:00 UTC. Events with a time stamp earlier than this time are not included. gleStartTime :: Lens' GetLogEvents (Maybe Natural)-gleStartTime = lens _gleStartTime (\ s a -> s{_gleStartTime = a}) . mapping _Nat;+gleStartTime = lens _gleStartTime (\ s a -> s{_gleStartTime = a}) . mapping _Nat -- | If the value is true, the earliest log events are returned first. If the value is false, the latest log events are returned first. The default value is false. gleStartFromHead :: Lens' GetLogEvents (Maybe Bool)-gleStartFromHead = lens _gleStartFromHead (\ s a -> s{_gleStartFromHead = a});+gleStartFromHead = lens _gleStartFromHead (\ s a -> s{_gleStartFromHead = a}) -- | The token for the next set of items to return. (You received this token from a previous call.) gleNextToken :: Lens' GetLogEvents (Maybe Text)-gleNextToken = lens _gleNextToken (\ s a -> s{_gleNextToken = a});+gleNextToken = lens _gleNextToken (\ s a -> s{_gleNextToken = a}) -- | The end of the time range, expressed as the number of milliseconds after Jan 1, 1970 00:00:00 UTC. Events with a time stamp later than this time are not included. gleEndTime :: Lens' GetLogEvents (Maybe Natural)-gleEndTime = lens _gleEndTime (\ s a -> s{_gleEndTime = a}) . mapping _Nat;+gleEndTime = lens _gleEndTime (\ s a -> s{_gleEndTime = a}) . mapping _Nat -- | The maximum number of log events returned. If you don't specify a value, the maximum is as many log events as can fit in a response size of 1 MB, up to 10,000 log events. gleLimit :: Lens' GetLogEvents (Maybe Natural)-gleLimit = lens _gleLimit (\ s a -> s{_gleLimit = a}) . mapping _Nat;+gleLimit = lens _gleLimit (\ s a -> s{_gleLimit = a}) . mapping _Nat -- | The name of the log group. gleLogGroupName :: Lens' GetLogEvents Text-gleLogGroupName = lens _gleLogGroupName (\ s a -> s{_gleLogGroupName = a});+gleLogGroupName = lens _gleLogGroupName (\ s a -> s{_gleLogGroupName = a}) -- | The name of the log stream. gleLogStreamName :: Lens' GetLogEvents Text-gleLogStreamName = lens _gleLogStreamName (\ s a -> s{_gleLogStreamName = a});+gleLogStreamName = lens _gleLogStreamName (\ s a -> s{_gleLogStreamName = a}) instance AWSRequest GetLogEvents where type Rs GetLogEvents = GetLogEventsResponse@@ -195,27 +195,27 @@ -> GetLogEventsResponse getLogEventsResponse pResponseStatus_ = GetLogEventsResponse'- { _glersNextBackwardToken = Nothing- , _glersNextForwardToken = Nothing- , _glersEvents = Nothing- , _glersResponseStatus = pResponseStatus_- }+ { _glersNextBackwardToken = Nothing+ , _glersNextForwardToken = Nothing+ , _glersEvents = Nothing+ , _glersResponseStatus = pResponseStatus_+ } -- | The token for the next set of items in the backward direction. The token expires after 24 hours. glersNextBackwardToken :: Lens' GetLogEventsResponse (Maybe Text)-glersNextBackwardToken = lens _glersNextBackwardToken (\ s a -> s{_glersNextBackwardToken = a});+glersNextBackwardToken = lens _glersNextBackwardToken (\ s a -> s{_glersNextBackwardToken = a}) -- | The token for the next set of items in the forward direction. The token expires after 24 hours. glersNextForwardToken :: Lens' GetLogEventsResponse (Maybe Text)-glersNextForwardToken = lens _glersNextForwardToken (\ s a -> s{_glersNextForwardToken = a});+glersNextForwardToken = lens _glersNextForwardToken (\ s a -> s{_glersNextForwardToken = a}) -- | The events. glersEvents :: Lens' GetLogEventsResponse [OutputLogEvent]-glersEvents = lens _glersEvents (\ s a -> s{_glersEvents = a}) . _Default . _Coerce;+glersEvents = lens _glersEvents (\ s a -> s{_glersEvents = a}) . _Default . _Coerce -- | -- | The response status code. glersResponseStatus :: Lens' GetLogEventsResponse Int-glersResponseStatus = lens _glersResponseStatus (\ s a -> s{_glersResponseStatus = a});+glersResponseStatus = lens _glersResponseStatus (\ s a -> s{_glersResponseStatus = a}) instance NFData GetLogEventsResponse where
gen/Network/AWS/CloudWatchLogs/ListTagsLogGroup.hs view
@@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.CloudWatchLogs.ListTagsLogGroup--- 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@@ -64,7 +64,7 @@ -- | The name of the log group. ltlgLogGroupName :: Lens' ListTagsLogGroup Text-ltlgLogGroupName = lens _ltlgLogGroupName (\ s a -> s{_ltlgLogGroupName = a});+ltlgLogGroupName = lens _ltlgLogGroupName (\ s a -> s{_ltlgLogGroupName = a}) instance AWSRequest ListTagsLogGroup where type Rs ListTagsLogGroup = ListTagsLogGroupResponse@@ -119,15 +119,15 @@ -> ListTagsLogGroupResponse listTagsLogGroupResponse pResponseStatus_ = ListTagsLogGroupResponse'- {_ltlgrsTags = Nothing, _ltlgrsResponseStatus = pResponseStatus_}+ {_ltlgrsTags = Nothing, _ltlgrsResponseStatus = pResponseStatus_} -- | The tags for the log group. ltlgrsTags :: Lens' ListTagsLogGroupResponse (HashMap Text Text)-ltlgrsTags = lens _ltlgrsTags (\ s a -> s{_ltlgrsTags = a}) . _Default . _Map;+ltlgrsTags = lens _ltlgrsTags (\ s a -> s{_ltlgrsTags = a}) . _Default . _Map -- | -- | The response status code. ltlgrsResponseStatus :: Lens' ListTagsLogGroupResponse Int-ltlgrsResponseStatus = lens _ltlgrsResponseStatus (\ s a -> s{_ltlgrsResponseStatus = a});+ltlgrsResponseStatus = lens _ltlgrsResponseStatus (\ s a -> s{_ltlgrsResponseStatus = a}) instance NFData ListTagsLogGroupResponse where
gen/Network/AWS/CloudWatchLogs/PutDestination.hs view
@@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.CloudWatchLogs.PutDestination--- Copyright : (c) 2013-2017 Brendan Hay+-- Copyright : (c) 2013-2018 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability : auto-generated@@ -72,23 +72,23 @@ -> PutDestination putDestination pDestinationName_ pTargetARN_ pRoleARN_ = PutDestination'- { _pdDestinationName = pDestinationName_- , _pdTargetARN = pTargetARN_- , _pdRoleARN = pRoleARN_- }+ { _pdDestinationName = pDestinationName_+ , _pdTargetARN = pTargetARN_+ , _pdRoleARN = pRoleARN_+ } -- | A name for the destination. pdDestinationName :: Lens' PutDestination Text-pdDestinationName = lens _pdDestinationName (\ s a -> s{_pdDestinationName = a});+pdDestinationName = lens _pdDestinationName (\ s a -> s{_pdDestinationName = a}) -- | The ARN of an Amazon Kinesis stream to which to deliver matching log events. pdTargetARN :: Lens' PutDestination Text-pdTargetARN = lens _pdTargetARN (\ s a -> s{_pdTargetARN = a});+pdTargetARN = lens _pdTargetARN (\ s a -> s{_pdTargetARN = a}) -- | The ARN of an IAM role that grants CloudWatch Logs permissions to call the Amazon Kinesis PutRecord operation on the destination stream. pdRoleARN :: Lens' PutDestination Text-pdRoleARN = lens _pdRoleARN (\ s a -> s{_pdRoleARN = a});+pdRoleARN = lens _pdRoleARN (\ s a -> s{_pdRoleARN = a}) instance AWSRequest PutDestination where type Rs PutDestination = PutDestinationResponse@@ -145,15 +145,15 @@ -> PutDestinationResponse putDestinationResponse pResponseStatus_ = PutDestinationResponse'- {_pdrsDestination = Nothing, _pdrsResponseStatus = pResponseStatus_}+ {_pdrsDestination = Nothing, _pdrsResponseStatus = pResponseStatus_} -- | The destination. pdrsDestination :: Lens' PutDestinationResponse (Maybe Destination)-pdrsDestination = lens _pdrsDestination (\ s a -> s{_pdrsDestination = a});+pdrsDestination = lens _pdrsDestination (\ s a -> s{_pdrsDestination = a}) -- | -- | The response status code. pdrsResponseStatus :: Lens' PutDestinationResponse Int-pdrsResponseStatus = lens _pdrsResponseStatus (\ s a -> s{_pdrsResponseStatus = a});+pdrsResponseStatus = lens _pdrsResponseStatus (\ s a -> s{_pdrsResponseStatus = a}) instance NFData PutDestinationResponse where
gen/Network/AWS/CloudWatchLogs/PutDestinationPolicy.hs view
@@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.CloudWatchLogs.PutDestinationPolicy--- 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@@ -62,16 +62,16 @@ -> PutDestinationPolicy putDestinationPolicy pDestinationName_ pAccessPolicy_ = PutDestinationPolicy'- {_pdpDestinationName = pDestinationName_, _pdpAccessPolicy = pAccessPolicy_}+ {_pdpDestinationName = pDestinationName_, _pdpAccessPolicy = pAccessPolicy_} -- | A name for an existing destination. pdpDestinationName :: Lens' PutDestinationPolicy Text-pdpDestinationName = lens _pdpDestinationName (\ s a -> s{_pdpDestinationName = a});+pdpDestinationName = lens _pdpDestinationName (\ s a -> s{_pdpDestinationName = a}) -- | An IAM policy document that authorizes cross-account users to deliver their log events to the associated destination. pdpAccessPolicy :: Lens' PutDestinationPolicy Text-pdpAccessPolicy = lens _pdpAccessPolicy (\ s a -> s{_pdpAccessPolicy = a});+pdpAccessPolicy = lens _pdpAccessPolicy (\ s a -> s{_pdpAccessPolicy = a}) instance AWSRequest PutDestinationPolicy where type Rs PutDestinationPolicy =
gen/Network/AWS/CloudWatchLogs/PutLogEvents.hs view
@@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.CloudWatchLogs.PutLogEvents--- 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@@ -93,28 +93,28 @@ -> PutLogEvents putLogEvents pLogGroupName_ pLogStreamName_ pLogEvents_ = PutLogEvents'- { _pleSequenceToken = Nothing- , _pleLogGroupName = pLogGroupName_- , _pleLogStreamName = pLogStreamName_- , _pleLogEvents = _List1 # pLogEvents_- }+ { _pleSequenceToken = Nothing+ , _pleLogGroupName = pLogGroupName_+ , _pleLogStreamName = pLogStreamName_+ , _pleLogEvents = _List1 # pLogEvents_+ } -- | The sequence token obtained from the response of the previous @PutLogEvents@ call. An upload in a newly created log stream does not require a sequence token. You can also get the sequence token using 'DescribeLogStreams' . If you call @PutLogEvents@ twice within a narrow time period using the same value for @sequenceToken@ , both calls may be successful, or one may be rejected. pleSequenceToken :: Lens' PutLogEvents (Maybe Text)-pleSequenceToken = lens _pleSequenceToken (\ s a -> s{_pleSequenceToken = a});+pleSequenceToken = lens _pleSequenceToken (\ s a -> s{_pleSequenceToken = a}) -- | The name of the log group. pleLogGroupName :: Lens' PutLogEvents Text-pleLogGroupName = lens _pleLogGroupName (\ s a -> s{_pleLogGroupName = a});+pleLogGroupName = lens _pleLogGroupName (\ s a -> s{_pleLogGroupName = a}) -- | The name of the log stream. pleLogStreamName :: Lens' PutLogEvents Text-pleLogStreamName = lens _pleLogStreamName (\ s a -> s{_pleLogStreamName = a});+pleLogStreamName = lens _pleLogStreamName (\ s a -> s{_pleLogStreamName = a}) -- | The log events. pleLogEvents :: Lens' PutLogEvents (NonEmpty InputLogEvent)-pleLogEvents = lens _pleLogEvents (\ s a -> s{_pleLogEvents = a}) . _List1;+pleLogEvents = lens _pleLogEvents (\ s a -> s{_pleLogEvents = a}) . _List1 instance AWSRequest PutLogEvents where type Rs PutLogEvents = PutLogEventsResponse@@ -177,22 +177,22 @@ -> PutLogEventsResponse putLogEventsResponse pResponseStatus_ = PutLogEventsResponse'- { _plersRejectedLogEventsInfo = Nothing- , _plersNextSequenceToken = Nothing- , _plersResponseStatus = pResponseStatus_- }+ { _plersRejectedLogEventsInfo = Nothing+ , _plersNextSequenceToken = Nothing+ , _plersResponseStatus = pResponseStatus_+ } -- | The rejected events. plersRejectedLogEventsInfo :: Lens' PutLogEventsResponse (Maybe RejectedLogEventsInfo)-plersRejectedLogEventsInfo = lens _plersRejectedLogEventsInfo (\ s a -> s{_plersRejectedLogEventsInfo = a});+plersRejectedLogEventsInfo = lens _plersRejectedLogEventsInfo (\ s a -> s{_plersRejectedLogEventsInfo = a}) -- | The next sequence token. plersNextSequenceToken :: Lens' PutLogEventsResponse (Maybe Text)-plersNextSequenceToken = lens _plersNextSequenceToken (\ s a -> s{_plersNextSequenceToken = a});+plersNextSequenceToken = lens _plersNextSequenceToken (\ s a -> s{_plersNextSequenceToken = a}) -- | -- | The response status code. plersResponseStatus :: Lens' PutLogEventsResponse Int-plersResponseStatus = lens _plersResponseStatus (\ s a -> s{_plersResponseStatus = a});+plersResponseStatus = lens _plersResponseStatus (\ s a -> s{_plersResponseStatus = a}) instance NFData PutLogEventsResponse where
gen/Network/AWS/CloudWatchLogs/PutMetricFilter.hs view
@@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.CloudWatchLogs.PutMetricFilter--- 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,28 +74,28 @@ -> PutMetricFilter putMetricFilter pLogGroupName_ pFilterName_ pFilterPattern_ pMetricTransformations_ = PutMetricFilter'- { _pmfLogGroupName = pLogGroupName_- , _pmfFilterName = pFilterName_- , _pmfFilterPattern = pFilterPattern_- , _pmfMetricTransformations = _List1 # pMetricTransformations_- }+ { _pmfLogGroupName = pLogGroupName_+ , _pmfFilterName = pFilterName_+ , _pmfFilterPattern = pFilterPattern_+ , _pmfMetricTransformations = _List1 # pMetricTransformations_+ } -- | The name of the log group. pmfLogGroupName :: Lens' PutMetricFilter Text-pmfLogGroupName = lens _pmfLogGroupName (\ s a -> s{_pmfLogGroupName = a});+pmfLogGroupName = lens _pmfLogGroupName (\ s a -> s{_pmfLogGroupName = a}) -- | A name for the metric filter. pmfFilterName :: Lens' PutMetricFilter Text-pmfFilterName = lens _pmfFilterName (\ s a -> s{_pmfFilterName = a});+pmfFilterName = lens _pmfFilterName (\ s a -> s{_pmfFilterName = a}) -- | A filter pattern for extracting metric data out of ingested log events. pmfFilterPattern :: Lens' PutMetricFilter Text-pmfFilterPattern = lens _pmfFilterPattern (\ s a -> s{_pmfFilterPattern = a});+pmfFilterPattern = lens _pmfFilterPattern (\ s a -> s{_pmfFilterPattern = a}) -- | A collection of information that defines how metric data gets emitted. pmfMetricTransformations :: Lens' PutMetricFilter (NonEmpty MetricTransformation)-pmfMetricTransformations = lens _pmfMetricTransformations (\ s a -> s{_pmfMetricTransformations = a}) . _List1;+pmfMetricTransformations = lens _pmfMetricTransformations (\ s a -> s{_pmfMetricTransformations = a}) . _List1 instance AWSRequest PutMetricFilter where type Rs PutMetricFilter = PutMetricFilterResponse
gen/Network/AWS/CloudWatchLogs/PutResourcePolicy.hs view
@@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.CloudWatchLogs.PutResourcePolicy--- 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@@ -67,11 +67,11 @@ -- | Name of the new policy. This parameter is required. prpPolicyName :: Lens' PutResourcePolicy (Maybe Text)-prpPolicyName = lens _prpPolicyName (\ s a -> s{_prpPolicyName = a});+prpPolicyName = lens _prpPolicyName (\ s a -> s{_prpPolicyName = a}) -- | Details of the new policy, including the identity of the principal that is enabled to put logs to this account. This is formatted as a JSON string. The following example creates a resource policy enabling the Route 53 service to put DNS query logs in to the specified log group. Replace "logArn" with the ARN of your CloudWatch Logs resource, such as a log group or log stream. { "Version": "2012-10-17" "Statement": [ { "Sid": "Route53LogsToCloudWatchLogs", "Effect": "Allow", "Principal": { "Service": [ "route53.amazonaws.com" ] }, "Action":"logs:PutLogEvents", "Resource": logArn } ] } prpPolicyDocument :: Lens' PutResourcePolicy (Maybe Text)-prpPolicyDocument = lens _prpPolicyDocument (\ s a -> s{_prpPolicyDocument = a});+prpPolicyDocument = lens _prpPolicyDocument (\ s a -> s{_prpPolicyDocument = a}) instance AWSRequest PutResourcePolicy where type Rs PutResourcePolicy = PutResourcePolicyResponse@@ -127,15 +127,15 @@ -> PutResourcePolicyResponse putResourcePolicyResponse pResponseStatus_ = PutResourcePolicyResponse'- {_prprsResourcePolicy = Nothing, _prprsResponseStatus = pResponseStatus_}+ {_prprsResourcePolicy = Nothing, _prprsResponseStatus = pResponseStatus_} -- | The new policy. prprsResourcePolicy :: Lens' PutResourcePolicyResponse (Maybe ResourcePolicy)-prprsResourcePolicy = lens _prprsResourcePolicy (\ s a -> s{_prprsResourcePolicy = a});+prprsResourcePolicy = lens _prprsResourcePolicy (\ s a -> s{_prprsResourcePolicy = a}) -- | -- | The response status code. prprsResponseStatus :: Lens' PutResourcePolicyResponse Int-prprsResponseStatus = lens _prprsResponseStatus (\ s a -> s{_prprsResponseStatus = a});+prprsResponseStatus = lens _prprsResponseStatus (\ s a -> s{_prprsResponseStatus = a}) instance NFData PutResourcePolicyResponse where
gen/Network/AWS/CloudWatchLogs/PutRetentionPolicy.hs view
@@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.CloudWatchLogs.PutRetentionPolicy--- 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@@ -62,16 +62,16 @@ -> PutRetentionPolicy putRetentionPolicy pLogGroupName_ pRetentionInDays_ = PutRetentionPolicy'- {_prpLogGroupName = pLogGroupName_, _prpRetentionInDays = pRetentionInDays_}+ {_prpLogGroupName = pLogGroupName_, _prpRetentionInDays = pRetentionInDays_} -- | The name of the log group. prpLogGroupName :: Lens' PutRetentionPolicy Text-prpLogGroupName = lens _prpLogGroupName (\ s a -> s{_prpLogGroupName = a});+prpLogGroupName = lens _prpLogGroupName (\ s a -> s{_prpLogGroupName = a}) -- | Undocumented member. prpRetentionInDays :: Lens' PutRetentionPolicy Int-prpRetentionInDays = lens _prpRetentionInDays (\ s a -> s{_prpRetentionInDays = a});+prpRetentionInDays = lens _prpRetentionInDays (\ s a -> s{_prpRetentionInDays = a}) instance AWSRequest PutRetentionPolicy where type Rs PutRetentionPolicy =
gen/Network/AWS/CloudWatchLogs/PutSubscriptionFilter.hs view
@@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.CloudWatchLogs.PutSubscriptionFilter--- 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@@ -92,38 +92,38 @@ -> PutSubscriptionFilter putSubscriptionFilter pLogGroupName_ pFilterName_ pFilterPattern_ pDestinationARN_ = PutSubscriptionFilter'- { _psfDistribution = Nothing- , _psfRoleARN = Nothing- , _psfLogGroupName = pLogGroupName_- , _psfFilterName = pFilterName_- , _psfFilterPattern = pFilterPattern_- , _psfDestinationARN = pDestinationARN_- }+ { _psfDistribution = Nothing+ , _psfRoleARN = Nothing+ , _psfLogGroupName = pLogGroupName_+ , _psfFilterName = pFilterName_+ , _psfFilterPattern = pFilterPattern_+ , _psfDestinationARN = pDestinationARN_+ } -- | The method used to distribute log data to the destination. By default log data is grouped by log stream, but the grouping can be set to random for a more even distribution. This property is only applicable when the destination is an Amazon Kinesis stream. psfDistribution :: Lens' PutSubscriptionFilter (Maybe Distribution)-psfDistribution = lens _psfDistribution (\ s a -> s{_psfDistribution = a});+psfDistribution = lens _psfDistribution (\ s a -> s{_psfDistribution = a}) -- | The ARN of an IAM role that grants CloudWatch Logs permissions to deliver ingested log events to the destination stream. You don't need to provide the ARN when you are working with a logical destination for cross-account delivery. psfRoleARN :: Lens' PutSubscriptionFilter (Maybe Text)-psfRoleARN = lens _psfRoleARN (\ s a -> s{_psfRoleARN = a});+psfRoleARN = lens _psfRoleARN (\ s a -> s{_psfRoleARN = a}) -- | The name of the log group. psfLogGroupName :: Lens' PutSubscriptionFilter Text-psfLogGroupName = lens _psfLogGroupName (\ s a -> s{_psfLogGroupName = a});+psfLogGroupName = lens _psfLogGroupName (\ s a -> s{_psfLogGroupName = a}) -- | A name for the subscription filter. If you are updating an existing filter, you must specify the correct name in @filterName@ . Otherwise, the call fails because you cannot associate a second filter with a log group. To find the name of the filter currently associated with a log group, use 'DescribeSubscriptionFilters' . psfFilterName :: Lens' PutSubscriptionFilter Text-psfFilterName = lens _psfFilterName (\ s a -> s{_psfFilterName = a});+psfFilterName = lens _psfFilterName (\ s a -> s{_psfFilterName = a}) -- | A filter pattern for subscribing to a filtered stream of log events. psfFilterPattern :: Lens' PutSubscriptionFilter Text-psfFilterPattern = lens _psfFilterPattern (\ s a -> s{_psfFilterPattern = a});+psfFilterPattern = lens _psfFilterPattern (\ s a -> s{_psfFilterPattern = a}) -- | The ARN of the destination to deliver matching log events to. Currently, the supported destinations are: * An Amazon Kinesis stream belonging to the same account as the subscription filter, for same-account delivery. * A logical destination (specified using an ARN) belonging to a different account, for cross-account delivery. * An Amazon Kinesis Firehose delivery stream belonging to the same account as the subscription filter, for same-account delivery. * An AWS Lambda function belonging to the same account as the subscription filter, for same-account delivery. psfDestinationARN :: Lens' PutSubscriptionFilter Text-psfDestinationARN = lens _psfDestinationARN (\ s a -> s{_psfDestinationARN = a});+psfDestinationARN = lens _psfDestinationARN (\ s a -> s{_psfDestinationARN = a}) instance AWSRequest PutSubscriptionFilter where type Rs PutSubscriptionFilter =
gen/Network/AWS/CloudWatchLogs/TagLogGroup.hs view
@@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.CloudWatchLogs.TagLogGroup--- 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@@ -69,11 +69,11 @@ -- | The name of the log group. tlgLogGroupName :: Lens' TagLogGroup Text-tlgLogGroupName = lens _tlgLogGroupName (\ s a -> s{_tlgLogGroupName = a});+tlgLogGroupName = lens _tlgLogGroupName (\ s a -> s{_tlgLogGroupName = a}) -- | The key-value pairs to use for the tags. tlgTags :: Lens' TagLogGroup (HashMap Text Text)-tlgTags = lens _tlgTags (\ s a -> s{_tlgTags = a}) . _Map;+tlgTags = lens _tlgTags (\ s a -> s{_tlgTags = a}) . _Map instance AWSRequest TagLogGroup where type Rs TagLogGroup = TagLogGroupResponse
gen/Network/AWS/CloudWatchLogs/TestMetricFilter.hs view
@@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.CloudWatchLogs.TestMetricFilter--- 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@@ -65,18 +65,18 @@ -> TestMetricFilter testMetricFilter pFilterPattern_ pLogEventMessages_ = TestMetricFilter'- { _tmfFilterPattern = pFilterPattern_- , _tmfLogEventMessages = _List1 # pLogEventMessages_- }+ { _tmfFilterPattern = pFilterPattern_+ , _tmfLogEventMessages = _List1 # pLogEventMessages_+ } -- | Undocumented member. tmfFilterPattern :: Lens' TestMetricFilter Text-tmfFilterPattern = lens _tmfFilterPattern (\ s a -> s{_tmfFilterPattern = a});+tmfFilterPattern = lens _tmfFilterPattern (\ s a -> s{_tmfFilterPattern = a}) -- | The log event messages to test. tmfLogEventMessages :: Lens' TestMetricFilter (NonEmpty Text)-tmfLogEventMessages = lens _tmfLogEventMessages (\ s a -> s{_tmfLogEventMessages = a}) . _List1;+tmfLogEventMessages = lens _tmfLogEventMessages (\ s a -> s{_tmfLogEventMessages = a}) . _List1 instance AWSRequest TestMetricFilter where type Rs TestMetricFilter = TestMetricFilterResponse@@ -132,15 +132,15 @@ -> TestMetricFilterResponse testMetricFilterResponse pResponseStatus_ = TestMetricFilterResponse'- {_tmfrsMatches = Nothing, _tmfrsResponseStatus = pResponseStatus_}+ {_tmfrsMatches = Nothing, _tmfrsResponseStatus = pResponseStatus_} -- | The matched events. tmfrsMatches :: Lens' TestMetricFilterResponse [MetricFilterMatchRecord]-tmfrsMatches = lens _tmfrsMatches (\ s a -> s{_tmfrsMatches = a}) . _Default . _Coerce;+tmfrsMatches = lens _tmfrsMatches (\ s a -> s{_tmfrsMatches = a}) . _Default . _Coerce -- | -- | The response status code. tmfrsResponseStatus :: Lens' TestMetricFilterResponse Int-tmfrsResponseStatus = lens _tmfrsResponseStatus (\ s a -> s{_tmfrsResponseStatus = a});+tmfrsResponseStatus = lens _tmfrsResponseStatus (\ s a -> s{_tmfrsResponseStatus = a}) instance NFData TestMetricFilterResponse where
gen/Network/AWS/CloudWatchLogs/Types.hs view
@@ -4,7 +4,7 @@ -- | -- Module : Network.AWS.CloudWatchLogs.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@@ -181,24 +181,24 @@ cloudWatchLogs :: Service cloudWatchLogs = Service- { _svcAbbrev = "CloudWatchLogs"- , _svcSigner = v4- , _svcPrefix = "logs"- , _svcVersion = "2014-03-28"- , _svcEndpoint = defaultEndpoint cloudWatchLogs- , _svcTimeout = Just 70- , _svcCheck = statusSuccess- , _svcError = parseJSONError "CloudWatchLogs"- , _svcRetry = retry- }+ { _svcAbbrev = "CloudWatchLogs"+ , _svcSigner = v4+ , _svcPrefix = "logs"+ , _svcVersion = "2014-03-28"+ , _svcEndpoint = defaultEndpoint cloudWatchLogs+ , _svcTimeout = Just 70+ , _svcCheck = statusSuccess+ , _svcError = parseJSONError "CloudWatchLogs"+ , _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"@@ -207,6 +207,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/CloudWatchLogs/Types/Product.hs view
@@ -9,7 +9,7 @@ -- | -- Module : Network.AWS.CloudWatchLogs.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@@ -55,38 +55,38 @@ :: Destination destination = Destination'- { _dTargetARN = Nothing- , _dCreationTime = Nothing- , _dArn = Nothing- , _dAccessPolicy = Nothing- , _dDestinationName = Nothing- , _dRoleARN = Nothing- }+ { _dTargetARN = Nothing+ , _dCreationTime = Nothing+ , _dArn = Nothing+ , _dAccessPolicy = Nothing+ , _dDestinationName = Nothing+ , _dRoleARN = Nothing+ } -- | The Amazon Resource Name (ARN) of the physical target to where the log events are delivered (for example, a Kinesis stream). dTargetARN :: Lens' Destination (Maybe Text)-dTargetARN = lens _dTargetARN (\ s a -> s{_dTargetARN = a});+dTargetARN = lens _dTargetARN (\ s a -> s{_dTargetARN = a}) -- | The creation time of the destination, expressed as the number of milliseconds after Jan 1, 1970 00:00:00 UTC. dCreationTime :: Lens' Destination (Maybe Natural)-dCreationTime = lens _dCreationTime (\ s a -> s{_dCreationTime = a}) . mapping _Nat;+dCreationTime = lens _dCreationTime (\ s a -> s{_dCreationTime = a}) . mapping _Nat -- | The ARN of this destination. dArn :: Lens' Destination (Maybe Text)-dArn = lens _dArn (\ s a -> s{_dArn = a});+dArn = lens _dArn (\ s a -> s{_dArn = a}) -- | An IAM policy document that governs which AWS accounts can create subscription filters against this destination. dAccessPolicy :: Lens' Destination (Maybe Text)-dAccessPolicy = lens _dAccessPolicy (\ s a -> s{_dAccessPolicy = a});+dAccessPolicy = lens _dAccessPolicy (\ s a -> s{_dAccessPolicy = a}) -- | The name of the destination. dDestinationName :: Lens' Destination (Maybe Text)-dDestinationName = lens _dDestinationName (\ s a -> s{_dDestinationName = a});+dDestinationName = lens _dDestinationName (\ s a -> s{_dDestinationName = a}) -- | A role for impersonation, used when delivering log events to the target. dRoleARN :: Lens' Destination (Maybe Text)-dRoleARN = lens _dRoleARN (\ s a -> s{_dRoleARN = a});+dRoleARN = lens _dRoleARN (\ s a -> s{_dRoleARN = a}) instance FromJSON Destination where parseJSON@@ -146,53 +146,53 @@ :: ExportTask exportTask = ExportTask'- { _etDestinationPrefix = Nothing- , _etDestination = Nothing- , _etStatus = Nothing- , _etTaskName = Nothing- , _etTaskId = Nothing- , _etTo = Nothing- , _etFrom = Nothing- , _etLogGroupName = Nothing- , _etExecutionInfo = Nothing- }+ { _etDestinationPrefix = Nothing+ , _etDestination = Nothing+ , _etStatus = Nothing+ , _etTaskName = Nothing+ , _etTaskId = Nothing+ , _etTo = Nothing+ , _etFrom = Nothing+ , _etLogGroupName = Nothing+ , _etExecutionInfo = Nothing+ } -- | The prefix that was used as the start of Amazon S3 key for every object exported. etDestinationPrefix :: Lens' ExportTask (Maybe Text)-etDestinationPrefix = lens _etDestinationPrefix (\ s a -> s{_etDestinationPrefix = a});+etDestinationPrefix = lens _etDestinationPrefix (\ s a -> s{_etDestinationPrefix = a}) -- | The name of Amazon S3 bucket to which the log data was exported. etDestination :: Lens' ExportTask (Maybe Text)-etDestination = lens _etDestination (\ s a -> s{_etDestination = a});+etDestination = lens _etDestination (\ s a -> s{_etDestination = a}) -- | The status of the export task. etStatus :: Lens' ExportTask (Maybe ExportTaskStatus)-etStatus = lens _etStatus (\ s a -> s{_etStatus = a});+etStatus = lens _etStatus (\ s a -> s{_etStatus = a}) -- | The name of the export task. etTaskName :: Lens' ExportTask (Maybe Text)-etTaskName = lens _etTaskName (\ s a -> s{_etTaskName = a});+etTaskName = lens _etTaskName (\ s a -> s{_etTaskName = a}) -- | The ID of the export task. etTaskId :: Lens' ExportTask (Maybe Text)-etTaskId = lens _etTaskId (\ s a -> s{_etTaskId = a});+etTaskId = lens _etTaskId (\ s a -> s{_etTaskId = a}) -- | The end time, expressed as the number of milliseconds after Jan 1, 1970 00:00:00 UTC. Events with a time stamp later than this time are not exported. etTo :: Lens' ExportTask (Maybe Natural)-etTo = lens _etTo (\ s a -> s{_etTo = a}) . mapping _Nat;+etTo = lens _etTo (\ s a -> s{_etTo = a}) . mapping _Nat -- | The start time, expressed as the number of milliseconds after Jan 1, 1970 00:00:00 UTC. Events with a time stamp before this time are not exported. etFrom :: Lens' ExportTask (Maybe Natural)-etFrom = lens _etFrom (\ s a -> s{_etFrom = a}) . mapping _Nat;+etFrom = lens _etFrom (\ s a -> s{_etFrom = a}) . mapping _Nat -- | The name of the log group from which logs data was exported. etLogGroupName :: Lens' ExportTask (Maybe Text)-etLogGroupName = lens _etLogGroupName (\ s a -> s{_etLogGroupName = a});+etLogGroupName = lens _etLogGroupName (\ s a -> s{_etLogGroupName = a}) -- | Execution info about the export task. etExecutionInfo :: Lens' ExportTask (Maybe ExportTaskExecutionInfo)-etExecutionInfo = lens _etExecutionInfo (\ s a -> s{_etExecutionInfo = a});+etExecutionInfo = lens _etExecutionInfo (\ s a -> s{_etExecutionInfo = a}) instance FromJSON ExportTask where parseJSON@@ -234,16 +234,16 @@ :: ExportTaskExecutionInfo exportTaskExecutionInfo = ExportTaskExecutionInfo'- {_eteiCreationTime = Nothing, _eteiCompletionTime = Nothing}+ {_eteiCreationTime = Nothing, _eteiCompletionTime = Nothing} -- | The creation time of the export task, expressed as the number of milliseconds after Jan 1, 1970 00:00:00 UTC. eteiCreationTime :: Lens' ExportTaskExecutionInfo (Maybe Natural)-eteiCreationTime = lens _eteiCreationTime (\ s a -> s{_eteiCreationTime = a}) . mapping _Nat;+eteiCreationTime = lens _eteiCreationTime (\ s a -> s{_eteiCreationTime = a}) . mapping _Nat -- | The completion time of the export task, expressed as the number of milliseconds after Jan 1, 1970 00:00:00 UTC. eteiCompletionTime :: Lens' ExportTaskExecutionInfo (Maybe Natural)-eteiCompletionTime = lens _eteiCompletionTime (\ s a -> s{_eteiCompletionTime = a}) . mapping _Nat;+eteiCompletionTime = lens _eteiCompletionTime (\ s a -> s{_eteiCompletionTime = a}) . mapping _Nat instance FromJSON ExportTaskExecutionInfo where parseJSON@@ -281,11 +281,11 @@ -- | The status code of the export task. etsCode :: Lens' ExportTaskStatus (Maybe ExportTaskStatusCode)-etsCode = lens _etsCode (\ s a -> s{_etsCode = a});+etsCode = lens _etsCode (\ s a -> s{_etsCode = a}) -- | The status message related to the status code. etsMessage :: Lens' ExportTaskStatus (Maybe Text)-etsMessage = lens _etsMessage (\ s a -> s{_etsMessage = a});+etsMessage = lens _etsMessage (\ s a -> s{_etsMessage = a}) instance FromJSON ExportTaskStatus where parseJSON@@ -329,33 +329,33 @@ :: FilteredLogEvent filteredLogEvent = FilteredLogEvent'- { _fleIngestionTime = Nothing- , _fleLogStreamName = Nothing- , _fleMessage = Nothing- , _fleTimestamp = Nothing- , _fleEventId = Nothing- }+ { _fleIngestionTime = Nothing+ , _fleLogStreamName = Nothing+ , _fleMessage = Nothing+ , _fleTimestamp = Nothing+ , _fleEventId = Nothing+ } -- | The time the event was ingested, expressed as the number of milliseconds after Jan 1, 1970 00:00:00 UTC. fleIngestionTime :: Lens' FilteredLogEvent (Maybe Natural)-fleIngestionTime = lens _fleIngestionTime (\ s a -> s{_fleIngestionTime = a}) . mapping _Nat;+fleIngestionTime = lens _fleIngestionTime (\ s a -> s{_fleIngestionTime = a}) . mapping _Nat -- | The name of the log stream this event belongs to. fleLogStreamName :: Lens' FilteredLogEvent (Maybe Text)-fleLogStreamName = lens _fleLogStreamName (\ s a -> s{_fleLogStreamName = a});+fleLogStreamName = lens _fleLogStreamName (\ s a -> s{_fleLogStreamName = a}) -- | The data contained in the log event. fleMessage :: Lens' FilteredLogEvent (Maybe Text)-fleMessage = lens _fleMessage (\ s a -> s{_fleMessage = a});+fleMessage = lens _fleMessage (\ s a -> s{_fleMessage = a}) -- | The time the event occurred, expressed as the number of milliseconds after Jan 1, 1970 00:00:00 UTC. fleTimestamp :: Lens' FilteredLogEvent (Maybe Natural)-fleTimestamp = lens _fleTimestamp (\ s a -> s{_fleTimestamp = a}) . mapping _Nat;+fleTimestamp = lens _fleTimestamp (\ s a -> s{_fleTimestamp = a}) . mapping _Nat -- | The ID of the event. fleEventId :: Lens' FilteredLogEvent (Maybe Text)-fleEventId = lens _fleEventId (\ s a -> s{_fleEventId = a});+fleEventId = lens _fleEventId (\ s a -> s{_fleEventId = a}) instance FromJSON FilteredLogEvent where parseJSON@@ -399,11 +399,11 @@ -- | The time the event occurred, expressed as the number of milliseconds fter Jan 1, 1970 00:00:00 UTC. ileTimestamp :: Lens' InputLogEvent Natural-ileTimestamp = lens _ileTimestamp (\ s a -> s{_ileTimestamp = a}) . _Nat;+ileTimestamp = lens _ileTimestamp (\ s a -> s{_ileTimestamp = a}) . _Nat -- | The raw event message. ileMessage :: Lens' InputLogEvent Text-ileMessage = lens _ileMessage (\ s a -> s{_ileMessage = a});+ileMessage = lens _ileMessage (\ s a -> s{_ileMessage = a}) instance Hashable InputLogEvent where @@ -453,43 +453,43 @@ :: LogGroup logGroup = LogGroup'- { _lgCreationTime = Nothing- , _lgMetricFilterCount = Nothing- , _lgArn = Nothing- , _lgLogGroupName = Nothing- , _lgRetentionInDays = Nothing- , _lgKmsKeyId = Nothing- , _lgStoredBytes = Nothing- }+ { _lgCreationTime = Nothing+ , _lgMetricFilterCount = Nothing+ , _lgArn = Nothing+ , _lgLogGroupName = Nothing+ , _lgRetentionInDays = Nothing+ , _lgKmsKeyId = Nothing+ , _lgStoredBytes = Nothing+ } -- | The creation time of the log group, expressed as the number of milliseconds after Jan 1, 1970 00:00:00 UTC. lgCreationTime :: Lens' LogGroup (Maybe Natural)-lgCreationTime = lens _lgCreationTime (\ s a -> s{_lgCreationTime = a}) . mapping _Nat;+lgCreationTime = lens _lgCreationTime (\ s a -> s{_lgCreationTime = a}) . mapping _Nat -- | The number of metric filters. lgMetricFilterCount :: Lens' LogGroup (Maybe Int)-lgMetricFilterCount = lens _lgMetricFilterCount (\ s a -> s{_lgMetricFilterCount = a});+lgMetricFilterCount = lens _lgMetricFilterCount (\ s a -> s{_lgMetricFilterCount = a}) -- | The Amazon Resource Name (ARN) of the log group. lgArn :: Lens' LogGroup (Maybe Text)-lgArn = lens _lgArn (\ s a -> s{_lgArn = a});+lgArn = lens _lgArn (\ s a -> s{_lgArn = a}) -- | The name of the log group. lgLogGroupName :: Lens' LogGroup (Maybe Text)-lgLogGroupName = lens _lgLogGroupName (\ s a -> s{_lgLogGroupName = a});+lgLogGroupName = lens _lgLogGroupName (\ s a -> s{_lgLogGroupName = a}) -- | Undocumented member. lgRetentionInDays :: Lens' LogGroup (Maybe Int)-lgRetentionInDays = lens _lgRetentionInDays (\ s a -> s{_lgRetentionInDays = a});+lgRetentionInDays = lens _lgRetentionInDays (\ s a -> s{_lgRetentionInDays = a}) -- | The Amazon Resource Name (ARN) of the CMK to use when encrypting log data. lgKmsKeyId :: Lens' LogGroup (Maybe Text)-lgKmsKeyId = lens _lgKmsKeyId (\ s a -> s{_lgKmsKeyId = a});+lgKmsKeyId = lens _lgKmsKeyId (\ s a -> s{_lgKmsKeyId = a}) -- | The number of bytes stored. lgStoredBytes :: Lens' LogGroup (Maybe Natural)-lgStoredBytes = lens _lgStoredBytes (\ s a -> s{_lgStoredBytes = a}) . mapping _Nat;+lgStoredBytes = lens _lgStoredBytes (\ s a -> s{_lgStoredBytes = a}) . mapping _Nat instance FromJSON LogGroup where parseJSON@@ -548,48 +548,48 @@ :: LogStream logStream = LogStream'- { _lsCreationTime = Nothing- , _lsUploadSequenceToken = Nothing- , _lsArn = Nothing- , _lsFirstEventTimestamp = Nothing- , _lsLogStreamName = Nothing- , _lsStoredBytes = Nothing- , _lsLastIngestionTime = Nothing- , _lsLastEventTimestamp = Nothing- }+ { _lsCreationTime = Nothing+ , _lsUploadSequenceToken = Nothing+ , _lsArn = Nothing+ , _lsFirstEventTimestamp = Nothing+ , _lsLogStreamName = Nothing+ , _lsStoredBytes = Nothing+ , _lsLastIngestionTime = Nothing+ , _lsLastEventTimestamp = Nothing+ } -- | The creation time of the stream, expressed as the number of milliseconds after Jan 1, 1970 00:00:00 UTC. lsCreationTime :: Lens' LogStream (Maybe Natural)-lsCreationTime = lens _lsCreationTime (\ s a -> s{_lsCreationTime = a}) . mapping _Nat;+lsCreationTime = lens _lsCreationTime (\ s a -> s{_lsCreationTime = a}) . mapping _Nat -- | The sequence token. lsUploadSequenceToken :: Lens' LogStream (Maybe Text)-lsUploadSequenceToken = lens _lsUploadSequenceToken (\ s a -> s{_lsUploadSequenceToken = a});+lsUploadSequenceToken = lens _lsUploadSequenceToken (\ s a -> s{_lsUploadSequenceToken = a}) -- | The Amazon Resource Name (ARN) of the log stream. lsArn :: Lens' LogStream (Maybe Text)-lsArn = lens _lsArn (\ s a -> s{_lsArn = a});+lsArn = lens _lsArn (\ s a -> s{_lsArn = a}) -- | The time of the first event, expressed as the number of milliseconds after Jan 1, 1970 00:00:00 UTC. lsFirstEventTimestamp :: Lens' LogStream (Maybe Natural)-lsFirstEventTimestamp = lens _lsFirstEventTimestamp (\ s a -> s{_lsFirstEventTimestamp = a}) . mapping _Nat;+lsFirstEventTimestamp = lens _lsFirstEventTimestamp (\ s a -> s{_lsFirstEventTimestamp = a}) . mapping _Nat -- | The name of the log stream. lsLogStreamName :: Lens' LogStream (Maybe Text)-lsLogStreamName = lens _lsLogStreamName (\ s a -> s{_lsLogStreamName = a});+lsLogStreamName = lens _lsLogStreamName (\ s a -> s{_lsLogStreamName = a}) -- | The number of bytes stored. lsStoredBytes :: Lens' LogStream (Maybe Natural)-lsStoredBytes = lens _lsStoredBytes (\ s a -> s{_lsStoredBytes = a}) . mapping _Nat;+lsStoredBytes = lens _lsStoredBytes (\ s a -> s{_lsStoredBytes = a}) . mapping _Nat -- | The ingestion time, expressed as the number of milliseconds after Jan 1, 1970 00:00:00 UTC. lsLastIngestionTime :: Lens' LogStream (Maybe Natural)-lsLastIngestionTime = lens _lsLastIngestionTime (\ s a -> s{_lsLastIngestionTime = a}) . mapping _Nat;+lsLastIngestionTime = lens _lsLastIngestionTime (\ s a -> s{_lsLastIngestionTime = a}) . mapping _Nat -- | the time of the most recent log event in the log stream in CloudWatch Logs. This number is expressed as the number of milliseconds after Jan 1, 1970 00:00:00 UTC. lastEventTime updates on an eventual consistency basis. It typically updates in less than an hour from ingestion, but may take longer in some rare situations. lsLastEventTimestamp :: Lens' LogStream (Maybe Natural)-lsLastEventTimestamp = lens _lsLastEventTimestamp (\ s a -> s{_lsLastEventTimestamp = a}) . mapping _Nat;+lsLastEventTimestamp = lens _lsLastEventTimestamp (\ s a -> s{_lsLastEventTimestamp = a}) . mapping _Nat instance FromJSON LogStream where parseJSON@@ -640,33 +640,33 @@ :: MetricFilter metricFilter = MetricFilter'- { _mfCreationTime = Nothing- , _mfFilterName = Nothing- , _mfLogGroupName = Nothing- , _mfFilterPattern = Nothing- , _mfMetricTransformations = Nothing- }+ { _mfCreationTime = Nothing+ , _mfFilterName = Nothing+ , _mfLogGroupName = Nothing+ , _mfFilterPattern = Nothing+ , _mfMetricTransformations = Nothing+ } -- | The creation time of the metric filter, expressed as the number of milliseconds after Jan 1, 1970 00:00:00 UTC. mfCreationTime :: Lens' MetricFilter (Maybe Natural)-mfCreationTime = lens _mfCreationTime (\ s a -> s{_mfCreationTime = a}) . mapping _Nat;+mfCreationTime = lens _mfCreationTime (\ s a -> s{_mfCreationTime = a}) . mapping _Nat -- | The name of the metric filter. mfFilterName :: Lens' MetricFilter (Maybe Text)-mfFilterName = lens _mfFilterName (\ s a -> s{_mfFilterName = a});+mfFilterName = lens _mfFilterName (\ s a -> s{_mfFilterName = a}) -- | The name of the log group. mfLogGroupName :: Lens' MetricFilter (Maybe Text)-mfLogGroupName = lens _mfLogGroupName (\ s a -> s{_mfLogGroupName = a});+mfLogGroupName = lens _mfLogGroupName (\ s a -> s{_mfLogGroupName = a}) -- | Undocumented member. mfFilterPattern :: Lens' MetricFilter (Maybe Text)-mfFilterPattern = lens _mfFilterPattern (\ s a -> s{_mfFilterPattern = a});+mfFilterPattern = lens _mfFilterPattern (\ s a -> s{_mfFilterPattern = a}) -- | The metric transformations. mfMetricTransformations :: Lens' MetricFilter (Maybe (NonEmpty MetricTransformation))-mfMetricTransformations = lens _mfMetricTransformations (\ s a -> s{_mfMetricTransformations = a}) . mapping _List1;+mfMetricTransformations = lens _mfMetricTransformations (\ s a -> s{_mfMetricTransformations = a}) . mapping _List1 instance FromJSON MetricFilter where parseJSON@@ -707,23 +707,23 @@ :: MetricFilterMatchRecord metricFilterMatchRecord = MetricFilterMatchRecord'- { _mfmrExtractedValues = Nothing- , _mfmrEventNumber = Nothing- , _mfmrEventMessage = Nothing- }+ { _mfmrExtractedValues = Nothing+ , _mfmrEventNumber = Nothing+ , _mfmrEventMessage = Nothing+ } -- | The values extracted from the event data by the filter. mfmrExtractedValues :: Lens' MetricFilterMatchRecord (HashMap Text Text)-mfmrExtractedValues = lens _mfmrExtractedValues (\ s a -> s{_mfmrExtractedValues = a}) . _Default . _Map;+mfmrExtractedValues = lens _mfmrExtractedValues (\ s a -> s{_mfmrExtractedValues = a}) . _Default . _Map -- | The event number. mfmrEventNumber :: Lens' MetricFilterMatchRecord (Maybe Integer)-mfmrEventNumber = lens _mfmrEventNumber (\ s a -> s{_mfmrEventNumber = a});+mfmrEventNumber = lens _mfmrEventNumber (\ s a -> s{_mfmrEventNumber = a}) -- | The raw event data. mfmrEventMessage :: Lens' MetricFilterMatchRecord (Maybe Text)-mfmrEventMessage = lens _mfmrEventMessage (\ s a -> s{_mfmrEventMessage = a});+mfmrEventMessage = lens _mfmrEventMessage (\ s a -> s{_mfmrEventMessage = a}) instance FromJSON MetricFilterMatchRecord where parseJSON@@ -769,28 +769,28 @@ -> MetricTransformation metricTransformation pMetricName_ pMetricNamespace_ pMetricValue_ = MetricTransformation'- { _mtDefaultValue = Nothing- , _mtMetricName = pMetricName_- , _mtMetricNamespace = pMetricNamespace_- , _mtMetricValue = pMetricValue_- }+ { _mtDefaultValue = Nothing+ , _mtMetricName = pMetricName_+ , _mtMetricNamespace = pMetricNamespace_+ , _mtMetricValue = pMetricValue_+ } -- | (Optional) The value to emit when a filter pattern does not match a log event. This value can be null. mtDefaultValue :: Lens' MetricTransformation (Maybe Double)-mtDefaultValue = lens _mtDefaultValue (\ s a -> s{_mtDefaultValue = a});+mtDefaultValue = lens _mtDefaultValue (\ s a -> s{_mtDefaultValue = a}) -- | The name of the CloudWatch metric. mtMetricName :: Lens' MetricTransformation Text-mtMetricName = lens _mtMetricName (\ s a -> s{_mtMetricName = a});+mtMetricName = lens _mtMetricName (\ s a -> s{_mtMetricName = a}) -- | The namespace of the CloudWatch metric. mtMetricNamespace :: Lens' MetricTransformation Text-mtMetricNamespace = lens _mtMetricNamespace (\ s a -> s{_mtMetricNamespace = a});+mtMetricNamespace = lens _mtMetricNamespace (\ s a -> s{_mtMetricNamespace = a}) -- | The value to publish to the CloudWatch metric when a filter pattern matches a log event. mtMetricValue :: Lens' MetricTransformation Text-mtMetricValue = lens _mtMetricValue (\ s a -> s{_mtMetricValue = a});+mtMetricValue = lens _mtMetricValue (\ s a -> s{_mtMetricValue = a}) instance FromJSON MetricTransformation where parseJSON@@ -839,20 +839,23 @@ :: OutputLogEvent outputLogEvent = OutputLogEvent'- {_oleIngestionTime = Nothing, _oleMessage = Nothing, _oleTimestamp = Nothing}+ { _oleIngestionTime = Nothing+ , _oleMessage = Nothing+ , _oleTimestamp = Nothing+ } -- | The time the event was ingested, expressed as the number of milliseconds after Jan 1, 1970 00:00:00 UTC. oleIngestionTime :: Lens' OutputLogEvent (Maybe Natural)-oleIngestionTime = lens _oleIngestionTime (\ s a -> s{_oleIngestionTime = a}) . mapping _Nat;+oleIngestionTime = lens _oleIngestionTime (\ s a -> s{_oleIngestionTime = a}) . mapping _Nat -- | The data contained in the log event. oleMessage :: Lens' OutputLogEvent (Maybe Text)-oleMessage = lens _oleMessage (\ s a -> s{_oleMessage = a});+oleMessage = lens _oleMessage (\ s a -> s{_oleMessage = a}) -- | The time the event occurred, expressed as the number of milliseconds after Jan 1, 1970 00:00:00 UTC. oleTimestamp :: Lens' OutputLogEvent (Maybe Natural)-oleTimestamp = lens _oleTimestamp (\ s a -> s{_oleTimestamp = a}) . mapping _Nat;+oleTimestamp = lens _oleTimestamp (\ s a -> s{_oleTimestamp = a}) . mapping _Nat instance FromJSON OutputLogEvent where parseJSON@@ -891,23 +894,23 @@ :: RejectedLogEventsInfo rejectedLogEventsInfo = RejectedLogEventsInfo'- { _rleiTooOldLogEventEndIndex = Nothing- , _rleiTooNewLogEventStartIndex = Nothing- , _rleiExpiredLogEventEndIndex = Nothing- }+ { _rleiTooOldLogEventEndIndex = Nothing+ , _rleiTooNewLogEventStartIndex = Nothing+ , _rleiExpiredLogEventEndIndex = Nothing+ } -- | The log events that are too old. rleiTooOldLogEventEndIndex :: Lens' RejectedLogEventsInfo (Maybe Int)-rleiTooOldLogEventEndIndex = lens _rleiTooOldLogEventEndIndex (\ s a -> s{_rleiTooOldLogEventEndIndex = a});+rleiTooOldLogEventEndIndex = lens _rleiTooOldLogEventEndIndex (\ s a -> s{_rleiTooOldLogEventEndIndex = a}) -- | The log events that are too new. rleiTooNewLogEventStartIndex :: Lens' RejectedLogEventsInfo (Maybe Int)-rleiTooNewLogEventStartIndex = lens _rleiTooNewLogEventStartIndex (\ s a -> s{_rleiTooNewLogEventStartIndex = a});+rleiTooNewLogEventStartIndex = lens _rleiTooNewLogEventStartIndex (\ s a -> s{_rleiTooNewLogEventStartIndex = a}) -- | The expired log events. rleiExpiredLogEventEndIndex :: Lens' RejectedLogEventsInfo (Maybe Int)-rleiExpiredLogEventEndIndex = lens _rleiExpiredLogEventEndIndex (\ s a -> s{_rleiExpiredLogEventEndIndex = a});+rleiExpiredLogEventEndIndex = lens _rleiExpiredLogEventEndIndex (\ s a -> s{_rleiExpiredLogEventEndIndex = a}) instance FromJSON RejectedLogEventsInfo where parseJSON@@ -947,23 +950,23 @@ :: ResourcePolicy resourcePolicy = ResourcePolicy'- { _rpPolicyName = Nothing- , _rpPolicyDocument = Nothing- , _rpLastUpdatedTime = Nothing- }+ { _rpPolicyName = Nothing+ , _rpPolicyDocument = Nothing+ , _rpLastUpdatedTime = Nothing+ } -- | The name of the resource policy. rpPolicyName :: Lens' ResourcePolicy (Maybe Text)-rpPolicyName = lens _rpPolicyName (\ s a -> s{_rpPolicyName = a});+rpPolicyName = lens _rpPolicyName (\ s a -> s{_rpPolicyName = a}) -- | The details of the policy. rpPolicyDocument :: Lens' ResourcePolicy (Maybe Text)-rpPolicyDocument = lens _rpPolicyDocument (\ s a -> s{_rpPolicyDocument = a});+rpPolicyDocument = lens _rpPolicyDocument (\ s a -> s{_rpPolicyDocument = a}) -- | Time stamp showing when this policy was last updated, expressed as the number of milliseconds after Jan 1, 1970 00:00:00 UTC. rpLastUpdatedTime :: Lens' ResourcePolicy (Maybe Natural)-rpLastUpdatedTime = lens _rpLastUpdatedTime (\ s a -> s{_rpLastUpdatedTime = a}) . mapping _Nat;+rpLastUpdatedTime = lens _rpLastUpdatedTime (\ s a -> s{_rpLastUpdatedTime = a}) . mapping _Nat instance FromJSON ResourcePolicy where parseJSON@@ -999,16 +1002,16 @@ :: SearchedLogStream searchedLogStream = SearchedLogStream'- {_slsLogStreamName = Nothing, _slsSearchedCompletely = Nothing}+ {_slsLogStreamName = Nothing, _slsSearchedCompletely = Nothing} -- | The name of the log stream. slsLogStreamName :: Lens' SearchedLogStream (Maybe Text)-slsLogStreamName = lens _slsLogStreamName (\ s a -> s{_slsLogStreamName = a});+slsLogStreamName = lens _slsLogStreamName (\ s a -> s{_slsLogStreamName = a}) -- | Indicates whether all the events in this log stream were searched. slsSearchedCompletely :: Lens' SearchedLogStream (Maybe Bool)-slsSearchedCompletely = lens _slsSearchedCompletely (\ s a -> s{_slsSearchedCompletely = a});+slsSearchedCompletely = lens _slsSearchedCompletely (\ s a -> s{_slsSearchedCompletely = a}) instance FromJSON SearchedLogStream where parseJSON@@ -1059,43 +1062,43 @@ :: SubscriptionFilter subscriptionFilter = SubscriptionFilter'- { _sfCreationTime = Nothing- , _sfFilterName = Nothing- , _sfDistribution = Nothing- , _sfDestinationARN = Nothing- , _sfLogGroupName = Nothing- , _sfFilterPattern = Nothing- , _sfRoleARN = Nothing- }+ { _sfCreationTime = Nothing+ , _sfFilterName = Nothing+ , _sfDistribution = Nothing+ , _sfDestinationARN = Nothing+ , _sfLogGroupName = Nothing+ , _sfFilterPattern = Nothing+ , _sfRoleARN = Nothing+ } -- | The creation time of the subscription filter, expressed as the number of milliseconds after Jan 1, 1970 00:00:00 UTC. sfCreationTime :: Lens' SubscriptionFilter (Maybe Natural)-sfCreationTime = lens _sfCreationTime (\ s a -> s{_sfCreationTime = a}) . mapping _Nat;+sfCreationTime = lens _sfCreationTime (\ s a -> s{_sfCreationTime = a}) . mapping _Nat -- | The name of the subscription filter. sfFilterName :: Lens' SubscriptionFilter (Maybe Text)-sfFilterName = lens _sfFilterName (\ s a -> s{_sfFilterName = a});+sfFilterName = lens _sfFilterName (\ s a -> s{_sfFilterName = a}) -- | Undocumented member. sfDistribution :: Lens' SubscriptionFilter (Maybe Distribution)-sfDistribution = lens _sfDistribution (\ s a -> s{_sfDistribution = a});+sfDistribution = lens _sfDistribution (\ s a -> s{_sfDistribution = a}) -- | The Amazon Resource Name (ARN) of the destination. sfDestinationARN :: Lens' SubscriptionFilter (Maybe Text)-sfDestinationARN = lens _sfDestinationARN (\ s a -> s{_sfDestinationARN = a});+sfDestinationARN = lens _sfDestinationARN (\ s a -> s{_sfDestinationARN = a}) -- | The name of the log group. sfLogGroupName :: Lens' SubscriptionFilter (Maybe Text)-sfLogGroupName = lens _sfLogGroupName (\ s a -> s{_sfLogGroupName = a});+sfLogGroupName = lens _sfLogGroupName (\ s a -> s{_sfLogGroupName = a}) -- | Undocumented member. sfFilterPattern :: Lens' SubscriptionFilter (Maybe Text)-sfFilterPattern = lens _sfFilterPattern (\ s a -> s{_sfFilterPattern = a});+sfFilterPattern = lens _sfFilterPattern (\ s a -> s{_sfFilterPattern = a}) -- | sfRoleARN :: Lens' SubscriptionFilter (Maybe Text)-sfRoleARN = lens _sfRoleARN (\ s a -> s{_sfRoleARN = a});+sfRoleARN = lens _sfRoleARN (\ s a -> s{_sfRoleARN = a}) instance FromJSON SubscriptionFilter where parseJSON
gen/Network/AWS/CloudWatchLogs/Types/Sum.hs view
@@ -9,7 +9,7 @@ -- | -- Module : Network.AWS.CloudWatchLogs.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/CloudWatchLogs/UntagLogGroup.hs view
@@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.CloudWatchLogs.UntagLogGroup--- Copyright : (c) 2013-2017 Brendan Hay+-- Copyright : (c) 2013-2018 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability : auto-generated@@ -68,11 +68,11 @@ -- | The name of the log group. ulgLogGroupName :: Lens' UntagLogGroup Text-ulgLogGroupName = lens _ulgLogGroupName (\ s a -> s{_ulgLogGroupName = a});+ulgLogGroupName = lens _ulgLogGroupName (\ s a -> s{_ulgLogGroupName = a}) -- | The tag keys. The corresponding tags are removed from the log group. ulgTags :: Lens' UntagLogGroup (NonEmpty Text)-ulgTags = lens _ulgTags (\ s a -> s{_ulgTags = a}) . _List1;+ulgTags = lens _ulgTags (\ s a -> s{_ulgTags = a}) . _List1 instance AWSRequest UntagLogGroup where type Rs UntagLogGroup = UntagLogGroupResponse
gen/Network/AWS/CloudWatchLogs/Waiters.hs view
@@ -7,7 +7,7 @@ -- | -- Module : Network.AWS.CloudWatchLogs.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/CloudWatchLogs.hs view
@@ -1,7 +1,7 @@ {-# LANGUAGE OverloadedStrings #-} -- Module : Test.AWS.CloudWatchLogs--- 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/CloudWatchLogs/Internal.hs view
@@ -2,7 +2,7 @@ {-# OPTIONS_GHC -fno-warn-unused-imports #-} -- Module : Test.AWS.CloudWatchLogs.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/CloudWatchLogs.hs view
@@ -5,7 +5,7 @@ -- | -- Module : Test.AWS.Gen.CloudWatchLogs--- 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