amazonka-cloudwatch-logs 1.4.5 → 1.5.0

raw patch · 58 files changed

+2616/−1056 lines, 58 filesdep ~amazonka-cloudwatch-logsdep ~amazonka-coredep ~amazonka-testPVP ok

version bump matches the API change (PVP)

Dependency ranges changed: amazonka-cloudwatch-logs, amazonka-core, amazonka-test

API changes (from Hackage documentation)

Files

• README.md +1/−1
• amazonka-cloudwatch-logs.cabal +24/−11
• fixture/AssociateKMSKey.yaml +10/−0
• fixture/AssociateKMSKeyResponse.proto +0/−0
• fixture/DeleteResourcePolicy.yaml +10/−0
• fixture/DeleteResourcePolicyResponse.proto +0/−0
• fixture/DescribeResourcePolicies.yaml +10/−0
• fixture/DescribeResourcePoliciesResponse.proto +0/−0
• fixture/DisassociateKMSKey.yaml +10/−0
• fixture/DisassociateKMSKeyResponse.proto +0/−0
• fixture/ListTagsLogGroup.yaml +10/−0
• fixture/ListTagsLogGroupResponse.proto +0/−0
• fixture/PutResourcePolicy.yaml +10/−0
• fixture/PutResourcePolicyResponse.proto +0/−0
• fixture/TagLogGroup.yaml +10/−0
• fixture/TagLogGroupResponse.proto +0/−0
• fixture/UntagLogGroup.yaml +10/−0
• fixture/UntagLogGroupResponse.proto +0/−0
• gen/Network/AWS/CloudWatchLogs.hs +77/−33
• gen/Network/AWS/CloudWatchLogs/AssociateKMSKey.hs +126/−0
• gen/Network/AWS/CloudWatchLogs/CancelExportTask.hs +20/−19
• gen/Network/AWS/CloudWatchLogs/CreateExportTask.hs +42/−40
• gen/Network/AWS/CloudWatchLogs/CreateLogGroup.hs +48/−20
• gen/Network/AWS/CloudWatchLogs/CreateLogStream.hs +22/−20
• gen/Network/AWS/CloudWatchLogs/DeleteDestination.hs +20/−18
• gen/Network/AWS/CloudWatchLogs/DeleteLogGroup.hs +20/−18
• gen/Network/AWS/CloudWatchLogs/DeleteLogStream.hs +22/−20
• gen/Network/AWS/CloudWatchLogs/DeleteMetricFilter.hs +22/−20
• gen/Network/AWS/CloudWatchLogs/DeleteResourcePolicy.hs +107/−0
• gen/Network/AWS/CloudWatchLogs/DeleteRetentionPolicy.hs +20/−18
• gen/Network/AWS/CloudWatchLogs/DeleteSubscriptionFilter.hs +22/−19
• gen/Network/AWS/CloudWatchLogs/DescribeDestinations.hs +34/−30
• gen/Network/AWS/CloudWatchLogs/DescribeExportTasks.hs +35/−31
• gen/Network/AWS/CloudWatchLogs/DescribeLogGroups.hs +34/−30
• gen/Network/AWS/CloudWatchLogs/DescribeLogStreams.hs +44/−40
• gen/Network/AWS/CloudWatchLogs/DescribeMetricFilters.hs +42/−38
• gen/Network/AWS/CloudWatchLogs/DescribeResourcePolicies.hs +157/−0
• gen/Network/AWS/CloudWatchLogs/DescribeSubscriptionFilters.hs +36/−31
• gen/Network/AWS/CloudWatchLogs/DisassociateKMSKey.hs +114/−0
• gen/Network/AWS/CloudWatchLogs/FilterLogEvents.hs +53/−49
• gen/Network/AWS/CloudWatchLogs/GetLogEvents.hs +50/−46
• gen/Network/AWS/CloudWatchLogs/ListTagsLogGroup.hs +133/−0
• gen/Network/AWS/CloudWatchLogs/PutDestination.hs +35/−33
• gen/Network/AWS/CloudWatchLogs/PutDestinationPolicy.hs +22/−20
• gen/Network/AWS/CloudWatchLogs/PutLogEvents.hs +40/−36
• gen/Network/AWS/CloudWatchLogs/PutMetricFilter.hs +30/−26
• gen/Network/AWS/CloudWatchLogs/PutResourcePolicy.hs +141/−0
• gen/Network/AWS/CloudWatchLogs/PutRetentionPolicy.hs +23/−21
• gen/Network/AWS/CloudWatchLogs/PutSubscriptionFilter.hs +47/−33
• gen/Network/AWS/CloudWatchLogs/TagLogGroup.hs +122/−0
• gen/Network/AWS/CloudWatchLogs/TestMetricFilter.hs +27/−25
• gen/Network/AWS/CloudWatchLogs/Types.hs +59/−34
• gen/Network/AWS/CloudWatchLogs/Types/Product.hs +340/−251
• gen/Network/AWS/CloudWatchLogs/Types/Sum.hs +48/−13
• gen/Network/AWS/CloudWatchLogs/UntagLogGroup.hs +121/−0
• gen/Network/AWS/CloudWatchLogs/Waiters.hs +6/−6
• test/Main.hs +2/−2
• test/Test/AWS/Gen/CloudWatchLogs.hs +148/−4

@@ -8,7 +8,7 @@  ## Version -`1.4.5`+`1.5.0`   ## Description

@@ -1,13 +1,13 @@ name:                  amazonka-cloudwatch-logs-version:               1.4.5+version:               1.5.0 synopsis:              Amazon CloudWatch Logs SDK. homepage:              https://github.com/brendanhay/amazonka bug-reports:           https://github.com/brendanhay/amazonka/issues-license:               OtherLicense+license:               MPL-2.0 license-file:          LICENSE author:                Brendan Hay-maintainer:            Brendan Hay <brendan.g.hay@gmail.com>-copyright:             Copyright (c) 2013-2016 Brendan Hay+maintainer:            Brendan Hay <brendan.g.hay+amazonka@gmail.com>+copyright:             Copyright (c) 2013-2017 Brendan Hay category:              Network, AWS, Cloud, Distributed Computing build-type:            Simple cabal-version:         >= 1.10@@ -29,17 +29,23 @@     to get started.  source-repository head-    type:     git-    location: git://github.com/brendanhay/amazonka.git+    type:              git+    location:          git://github.com/brendanhay/amazonka.git+    subdir:            amazonka-cloudwatch-logs  library     default-language:  Haskell2010     hs-source-dirs:    src gen -    ghc-options:       -Wall+    ghc-options:+        -Wall+        -fwarn-incomplete-uni-patterns+        -fwarn-incomplete-record-updates+        -funbox-strict-fields      exposed-modules:           Network.AWS.CloudWatchLogs+        , Network.AWS.CloudWatchLogs.AssociateKMSKey         , Network.AWS.CloudWatchLogs.CancelExportTask         , Network.AWS.CloudWatchLogs.CreateExportTask         , Network.AWS.CloudWatchLogs.CreateLogGroup@@ -48,6 +54,7 @@         , Network.AWS.CloudWatchLogs.DeleteLogGroup         , Network.AWS.CloudWatchLogs.DeleteLogStream         , Network.AWS.CloudWatchLogs.DeleteMetricFilter+        , Network.AWS.CloudWatchLogs.DeleteResourcePolicy         , Network.AWS.CloudWatchLogs.DeleteRetentionPolicy         , Network.AWS.CloudWatchLogs.DeleteSubscriptionFilter         , Network.AWS.CloudWatchLogs.DescribeDestinations@@ -55,17 +62,23 @@         , Network.AWS.CloudWatchLogs.DescribeLogGroups         , Network.AWS.CloudWatchLogs.DescribeLogStreams         , Network.AWS.CloudWatchLogs.DescribeMetricFilters+        , Network.AWS.CloudWatchLogs.DescribeResourcePolicies         , Network.AWS.CloudWatchLogs.DescribeSubscriptionFilters+        , Network.AWS.CloudWatchLogs.DisassociateKMSKey         , Network.AWS.CloudWatchLogs.FilterLogEvents         , Network.AWS.CloudWatchLogs.GetLogEvents+        , Network.AWS.CloudWatchLogs.ListTagsLogGroup         , Network.AWS.CloudWatchLogs.PutDestination         , Network.AWS.CloudWatchLogs.PutDestinationPolicy         , Network.AWS.CloudWatchLogs.PutLogEvents         , Network.AWS.CloudWatchLogs.PutMetricFilter+        , Network.AWS.CloudWatchLogs.PutResourcePolicy         , Network.AWS.CloudWatchLogs.PutRetentionPolicy         , Network.AWS.CloudWatchLogs.PutSubscriptionFilter+        , Network.AWS.CloudWatchLogs.TagLogGroup         , Network.AWS.CloudWatchLogs.TestMetricFilter         , Network.AWS.CloudWatchLogs.Types+        , Network.AWS.CloudWatchLogs.UntagLogGroup         , Network.AWS.CloudWatchLogs.Waiters      other-modules:@@ -73,7 +86,7 @@         , Network.AWS.CloudWatchLogs.Types.Sum      build-depends:-          amazonka-core == 1.4.5.*+          amazonka-core == 1.5.0.*         , base          >= 4.7     && < 5  test-suite amazonka-cloudwatch-logs-test@@ -93,9 +106,9 @@         , Test.AWS.CloudWatchLogs.Internal      build-depends:-          amazonka-core == 1.4.5.*-        , amazonka-test == 1.4.5.*-        , amazonka-cloudwatch-logs == 1.4.5.*+          amazonka-core == 1.5.0.*+        , amazonka-test == 1.5.0.*+        , amazonka-cloudwatch-logs         , base         , bytestring         , tasty

@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/logs/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  logs.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''

@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/logs/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  logs.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''

@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/logs/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  logs.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''

@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/logs/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  logs.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''

@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/logs/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  logs.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''

@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/logs/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  logs.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''

@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/logs/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  logs.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''

@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/logs/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  logs.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''

@@ -5,22 +5,22 @@  -- | -- Module      : Network.AWS.CloudWatchLogs--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- You can use Amazon CloudWatch Logs to monitor, store, and access your log files from EC2 instances, Amazon CloudTrail, or other sources. You can then retrieve the associated log data from CloudWatch Logs using the Amazon CloudWatch console, the CloudWatch Logs commands in the AWS CLI, the CloudWatch Logs API, or the CloudWatch Logs SDK.+-- You can use Amazon CloudWatch Logs to monitor, store, and access your log files from Amazon EC2 instances, AWS CloudTrail, or other sources. You can then retrieve the associated log data from CloudWatch Logs using the CloudWatch console, CloudWatch Logs commands in the AWS CLI, CloudWatch Logs API, or CloudWatch Logs SDK. -- -- -- You can use CloudWatch Logs to: -----     * __Monitor Logs from Amazon EC2 Instances in Real-time__ : You can use CloudWatch Logs to monitor applications and systems using log data. For example, CloudWatch Logs can track the number of errors that occur in your application logs and send you a notification whenever the rate of errors exceeds a threshold you specify. CloudWatch Logs uses your log data for monitoring; so, no code changes are required. For example, you can monitor application logs for specific literal terms (such as "NullReferenceException") or count the number of occurrences of a literal term at a particular position in log data (such as "404" status codes in an Apache access log). When the term you are searching for is found, CloudWatch Logs reports the data to a Amazon CloudWatch metric that you specify.+--     * __Monitor logs from EC2 instances in real-time__ : You can use CloudWatch Logs to monitor applications and systems using log data. For example, CloudWatch Logs can track the number of errors that occur in your application logs and send you a notification whenever the rate of errors exceeds a threshold that you specify. CloudWatch Logs uses your log data for monitoring; so, no code changes are required. For example, you can monitor application logs for specific literal terms (such as "NullReferenceException") or count the number of occurrences of a literal term at a particular position in log data (such as "404" status codes in an Apache access log). When the term you are searching for is found, CloudWatch Logs reports the data to a CloudWatch metric that you specify. -----     * __Monitor Amazon CloudTrail Logged Events__ : You can create alarms in Amazon CloudWatch and receive notifications of particular API activity as captured by CloudTrail and use the notification to perform troubleshooting.+--     * __Monitor AWS CloudTrail logged events__ : You can create alarms in CloudWatch and receive notifications of particular API activity as captured by CloudTrail and use the notification to perform troubleshooting. -----     * __Archive Log Data__ : You can use CloudWatch Logs to store your log data in highly durable storage. You can change the log retention setting so that any log events older than this setting are automatically deleted. The CloudWatch Logs agent makes it easy to quickly send both rotated and non-rotated log data off of a host and into the log service. You can then access the raw log data when you need it.+--     * __Archive log data__ : You can use CloudWatch Logs to store your log data in highly durable storage. You can change the log retention setting so that any log events older than this setting are automatically deleted. The CloudWatch Logs agent makes it easy to quickly send both rotated and non-rotated log data off of a host and into the log service. You can then access the raw log data when you need it. -- -- --@@ -68,6 +68,9 @@     -- ** DescribeDestinations (Paginated)     , module Network.AWS.CloudWatchLogs.DescribeDestinations +    -- ** UntagLogGroup+    , module Network.AWS.CloudWatchLogs.UntagLogGroup+     -- ** CreateExportTask     , module Network.AWS.CloudWatchLogs.CreateExportTask @@ -86,9 +89,18 @@     -- ** DeleteDestination     , module Network.AWS.CloudWatchLogs.DeleteDestination +    -- ** DisassociateKMSKey+    , module Network.AWS.CloudWatchLogs.DisassociateKMSKey+     -- ** FilterLogEvents (Paginated)     , module Network.AWS.CloudWatchLogs.FilterLogEvents +    -- ** TagLogGroup+    , module Network.AWS.CloudWatchLogs.TagLogGroup++    -- ** DescribeResourcePolicies+    , module Network.AWS.CloudWatchLogs.DescribeResourcePolicies+     -- ** DeleteLogStream     , module Network.AWS.CloudWatchLogs.DeleteLogStream @@ -137,11 +149,26 @@     -- ** PutRetentionPolicy     , module Network.AWS.CloudWatchLogs.PutRetentionPolicy +    -- ** ListTagsLogGroup+    , module Network.AWS.CloudWatchLogs.ListTagsLogGroup++    -- ** PutResourcePolicy+    , module Network.AWS.CloudWatchLogs.PutResourcePolicy++    -- ** DeleteResourcePolicy+    , module Network.AWS.CloudWatchLogs.DeleteResourcePolicy++    -- ** AssociateKMSKey+    , module Network.AWS.CloudWatchLogs.AssociateKMSKey+     -- ** DescribeLogStreams (Paginated)     , module Network.AWS.CloudWatchLogs.DescribeLogStreams      -- * Types +    -- ** Distribution+    , Distribution (..)+     -- ** ExportTaskStatusCode     , ExportTaskStatusCode (..) @@ -206,6 +233,7 @@     , lgArn     , lgLogGroupName     , lgRetentionInDays+    , lgKmsKeyId     , lgStoredBytes      -- ** LogStream@@ -258,6 +286,13 @@     , rleiTooNewLogEventStartIndex     , rleiExpiredLogEventEndIndex +    -- ** ResourcePolicy+    , ResourcePolicy+    , resourcePolicy+    , rpPolicyName+    , rpPolicyDocument+    , rpLastUpdatedTime+     -- ** SearchedLogStream     , SearchedLogStream     , searchedLogStream@@ -269,39 +304,48 @@     , subscriptionFilter     , sfCreationTime     , sfFilterName+    , sfDistribution     , sfDestinationARN     , sfLogGroupName     , sfFilterPattern     , sfRoleARN     ) where -import           Network.AWS.CloudWatchLogs.CancelExportTask-import           Network.AWS.CloudWatchLogs.CreateExportTask-import           Network.AWS.CloudWatchLogs.CreateLogGroup-import           Network.AWS.CloudWatchLogs.CreateLogStream-import           Network.AWS.CloudWatchLogs.DeleteDestination-import           Network.AWS.CloudWatchLogs.DeleteLogGroup-import           Network.AWS.CloudWatchLogs.DeleteLogStream-import           Network.AWS.CloudWatchLogs.DeleteMetricFilter-import           Network.AWS.CloudWatchLogs.DeleteRetentionPolicy-import           Network.AWS.CloudWatchLogs.DeleteSubscriptionFilter-import           Network.AWS.CloudWatchLogs.DescribeDestinations-import           Network.AWS.CloudWatchLogs.DescribeExportTasks-import           Network.AWS.CloudWatchLogs.DescribeLogGroups-import           Network.AWS.CloudWatchLogs.DescribeLogStreams-import           Network.AWS.CloudWatchLogs.DescribeMetricFilters-import           Network.AWS.CloudWatchLogs.DescribeSubscriptionFilters-import           Network.AWS.CloudWatchLogs.FilterLogEvents-import           Network.AWS.CloudWatchLogs.GetLogEvents-import           Network.AWS.CloudWatchLogs.PutDestination-import           Network.AWS.CloudWatchLogs.PutDestinationPolicy-import           Network.AWS.CloudWatchLogs.PutLogEvents-import           Network.AWS.CloudWatchLogs.PutMetricFilter-import           Network.AWS.CloudWatchLogs.PutRetentionPolicy-import           Network.AWS.CloudWatchLogs.PutSubscriptionFilter-import           Network.AWS.CloudWatchLogs.TestMetricFilter-import           Network.AWS.CloudWatchLogs.Types-import           Network.AWS.CloudWatchLogs.Waiters+import Network.AWS.CloudWatchLogs.AssociateKMSKey+import Network.AWS.CloudWatchLogs.CancelExportTask+import Network.AWS.CloudWatchLogs.CreateExportTask+import Network.AWS.CloudWatchLogs.CreateLogGroup+import Network.AWS.CloudWatchLogs.CreateLogStream+import Network.AWS.CloudWatchLogs.DeleteDestination+import Network.AWS.CloudWatchLogs.DeleteLogGroup+import Network.AWS.CloudWatchLogs.DeleteLogStream+import Network.AWS.CloudWatchLogs.DeleteMetricFilter+import Network.AWS.CloudWatchLogs.DeleteResourcePolicy+import Network.AWS.CloudWatchLogs.DeleteRetentionPolicy+import Network.AWS.CloudWatchLogs.DeleteSubscriptionFilter+import Network.AWS.CloudWatchLogs.DescribeDestinations+import Network.AWS.CloudWatchLogs.DescribeExportTasks+import Network.AWS.CloudWatchLogs.DescribeLogGroups+import Network.AWS.CloudWatchLogs.DescribeLogStreams+import Network.AWS.CloudWatchLogs.DescribeMetricFilters+import Network.AWS.CloudWatchLogs.DescribeResourcePolicies+import Network.AWS.CloudWatchLogs.DescribeSubscriptionFilters+import Network.AWS.CloudWatchLogs.DisassociateKMSKey+import Network.AWS.CloudWatchLogs.FilterLogEvents+import Network.AWS.CloudWatchLogs.GetLogEvents+import Network.AWS.CloudWatchLogs.ListTagsLogGroup+import Network.AWS.CloudWatchLogs.PutDestination+import Network.AWS.CloudWatchLogs.PutDestinationPolicy+import Network.AWS.CloudWatchLogs.PutLogEvents+import Network.AWS.CloudWatchLogs.PutMetricFilter+import Network.AWS.CloudWatchLogs.PutResourcePolicy+import Network.AWS.CloudWatchLogs.PutRetentionPolicy+import Network.AWS.CloudWatchLogs.PutSubscriptionFilter+import Network.AWS.CloudWatchLogs.TagLogGroup+import Network.AWS.CloudWatchLogs.TestMetricFilter+import Network.AWS.CloudWatchLogs.Types+import Network.AWS.CloudWatchLogs.UntagLogGroup+import Network.AWS.CloudWatchLogs.Waiters  {- $errors Error matchers are designed for use with the functions provided by

@@ -0,0 +1,126 @@+{-# LANGUAGE DeriveDataTypeable #-}+{-# LANGUAGE DeriveGeneric      #-}+{-# LANGUAGE OverloadedStrings  #-}+{-# LANGUAGE RecordWildCards    #-}+{-# LANGUAGE TypeFamilies       #-}++{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-binds   #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Network.AWS.CloudWatchLogs.AssociateKMSKey+-- Copyright   : (c) 2013-2017 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Associates the specified AWS Key Management Service (AWS KMS) customer master key (CMK) with the specified log group.+--+--+-- Associating an AWS KMS CMK with a log group overrides any existing associations between the log group and a CMK. After a CMK is associated with a log group, all newly ingested data for the log group is encrypted using the CMK. This association is stored as long as the data encrypted with the CMK is still within Amazon CloudWatch Logs. This enables Amazon CloudWatch Logs to decrypt this data whenever it is requested.+--+-- Note that it can take up to 5 minutes for this operation to take effect.+--+-- If you attempt to associate a CMK with a log group but the CMK does not exist or the CMK is disabled, you will receive an @InvalidParameterException@ error.+--+module Network.AWS.CloudWatchLogs.AssociateKMSKey+    (+    -- * Creating a Request+      associateKMSKey+    , AssociateKMSKey+    -- * Request Lenses+    , akkLogGroupName+    , akkKmsKeyId++    -- * Destructuring the Response+    , associateKMSKeyResponse+    , AssociateKMSKeyResponse+    ) where++import Network.AWS.CloudWatchLogs.Types+import Network.AWS.CloudWatchLogs.Types.Product+import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response++-- | /See:/ 'associateKMSKey' smart constructor.+data AssociateKMSKey = AssociateKMSKey'+  { _akkLogGroupName :: !Text+  , _akkKmsKeyId     :: !Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'AssociateKMSKey' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'akkLogGroupName' - The name of the log group.+--+-- * 'akkKmsKeyId' - 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)> .+associateKMSKey+    :: Text -- ^ 'akkLogGroupName'+    -> Text -- ^ 'akkKmsKeyId'+    -> AssociateKMSKey+associateKMSKey pLogGroupName_ pKmsKeyId_ =+  AssociateKMSKey'+  {_akkLogGroupName = pLogGroupName_, _akkKmsKeyId = pKmsKeyId_}+++-- | The name of the log group.+akkLogGroupName :: Lens' AssociateKMSKey Text+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});++instance AWSRequest AssociateKMSKey where+        type Rs AssociateKMSKey = AssociateKMSKeyResponse+        request = postJSON cloudWatchLogs+        response = receiveNull AssociateKMSKeyResponse'++instance Hashable AssociateKMSKey where++instance NFData AssociateKMSKey where++instance ToHeaders AssociateKMSKey where+        toHeaders+          = const+              (mconcat+                 ["X-Amz-Target" =#+                    ("Logs_20140328.AssociateKmsKey" :: ByteString),+                  "Content-Type" =#+                    ("application/x-amz-json-1.1" :: ByteString)])++instance ToJSON AssociateKMSKey where+        toJSON AssociateKMSKey'{..}+          = object+              (catMaybes+                 [Just ("logGroupName" .= _akkLogGroupName),+                  Just ("kmsKeyId" .= _akkKmsKeyId)])++instance ToPath AssociateKMSKey where+        toPath = const "/"++instance ToQuery AssociateKMSKey where+        toQuery = const mempty++-- | /See:/ 'associateKMSKeyResponse' smart constructor.+data AssociateKMSKeyResponse =+  AssociateKMSKeyResponse'+  deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'AssociateKMSKeyResponse' with the minimum fields required to make a request.+--+associateKMSKeyResponse+    :: AssociateKMSKeyResponse+associateKMSKeyResponse = AssociateKMSKeyResponse'+++instance NFData AssociateKMSKeyResponse where

@@ -12,9 +12,9 @@  -- | -- Module      : Network.AWS.CloudWatchLogs.CancelExportTask--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) --@@ -36,18 +36,19 @@     , CancelExportTaskResponse     ) where -import           Network.AWS.CloudWatchLogs.Types-import           Network.AWS.CloudWatchLogs.Types.Product-import           Network.AWS.Lens-import           Network.AWS.Prelude-import           Network.AWS.Request-import           Network.AWS.Response+import Network.AWS.CloudWatchLogs.Types+import Network.AWS.CloudWatchLogs.Types.Product+import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response  -- | /See:/ 'cancelExportTask' smart constructor. newtype CancelExportTask = CancelExportTask'-    { _cetTaskId :: Text-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _cetTaskId :: Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'CancelExportTask' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -56,11 +57,9 @@ cancelExportTask     :: Text -- ^ 'cetTaskId'     -> CancelExportTask-cancelExportTask pTaskId_ =-    CancelExportTask'-    { _cetTaskId = pTaskId_-    }+cancelExportTask pTaskId_ = CancelExportTask' {_cetTaskId = pTaskId_} + -- | The ID of the export task. cetTaskId :: Lens' CancelExportTask Text cetTaskId = lens _cetTaskId (\ s a -> s{_cetTaskId = a});@@ -70,9 +69,9 @@         request = postJSON cloudWatchLogs         response = receiveNull CancelExportTaskResponse' -instance Hashable CancelExportTask+instance Hashable CancelExportTask where -instance NFData CancelExportTask+instance NFData CancelExportTask where  instance ToHeaders CancelExportTask where         toHeaders@@ -95,13 +94,15 @@  -- | /See:/ 'cancelExportTaskResponse' smart constructor. data CancelExportTaskResponse =-    CancelExportTaskResponse'-    deriving (Eq,Read,Show,Data,Typeable,Generic)+  CancelExportTaskResponse'+  deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'CancelExportTaskResponse' with the minimum fields required to make a request. -- cancelExportTaskResponse     :: CancelExportTaskResponse cancelExportTaskResponse = CancelExportTaskResponse' -instance NFData CancelExportTaskResponse++instance NFData CancelExportTaskResponse where

@@ -12,9 +12,9 @@  -- | -- Module      : Network.AWS.CloudWatchLogs.CreateExportTask--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) --@@ -23,7 +23,7 @@ -- -- This is an asynchronous call. If all the required information is provided, this operation initiates an export task and responds with the ID of the task. After the task has started, you can use 'DescribeExportTasks' to get the status of the export task. Each account can only have one active (@RUNNING@ or @PENDING@ ) export task at a time. To cancel an export task, use 'CancelExportTask' . ----- You can export logs from multiple log groups or multiple time ranges to the same S3 bucket. To separate out log data for each export task, you can specify a prefix that will be used as the Amazon S3 key prefix for all exported objects.+-- You can export logs from multiple log groups or multiple time ranges to the same S3 bucket. To separate out log data for each export task, you can specify a prefix to be used as the Amazon S3 key prefix for all exported objects. -- module Network.AWS.CloudWatchLogs.CreateExportTask     (@@ -47,24 +47,25 @@     , cetrsResponseStatus     ) where -import           Network.AWS.CloudWatchLogs.Types-import           Network.AWS.CloudWatchLogs.Types.Product-import           Network.AWS.Lens-import           Network.AWS.Prelude-import           Network.AWS.Request-import           Network.AWS.Response+import Network.AWS.CloudWatchLogs.Types+import Network.AWS.CloudWatchLogs.Types.Product+import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response  -- | /See:/ 'createExportTask' smart constructor. data CreateExportTask = CreateExportTask'-    { _cetDestinationPrefix   :: !(Maybe Text)-    , _cetTaskName            :: !(Maybe Text)-    , _cetLogStreamNamePrefix :: !(Maybe Text)-    , _cetLogGroupName        :: !Text-    , _cetFrom                :: !Nat-    , _cetTo                  :: !Nat-    , _cetDestination         :: !Text-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _cetDestinationPrefix   :: !(Maybe Text)+  , _cetTaskName            :: !(Maybe Text)+  , _cetLogStreamNamePrefix :: !(Maybe Text)+  , _cetLogGroupName        :: !Text+  , _cetFrom                :: !Nat+  , _cetTo                  :: !Nat+  , _cetDestination         :: !Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'CreateExportTask' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -77,9 +78,9 @@ -- -- * 'cetLogGroupName' - The name of the log group. ----- * 'cetFrom' - The start time of the range for the request, expressed as the number of milliseconds since Jan 1, 1970 00:00:00 UTC. Events with a timestamp earlier than this time are not exported.+-- * 'cetFrom' - 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. ----- * 'cetTo' - The end time of the range for the request, expressed as the number of milliseconds since Jan 1, 1970 00:00:00 UTC. Events with a timestamp later than this time are not exported.+-- * 'cetTo' - 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. -- -- * 'cetDestination' - The name of S3 bucket for the exported log data. The bucket must be in the same AWS region. createExportTask@@ -89,16 +90,17 @@     -> Text -- ^ 'cetDestination'     -> CreateExportTask createExportTask pLogGroupName_ pFrom_ pTo_ pDestination_ =-    CreateExportTask'-    { _cetDestinationPrefix = Nothing-    , _cetTaskName = Nothing-    , _cetLogStreamNamePrefix = Nothing-    , _cetLogGroupName = pLogGroupName_-    , _cetFrom = _Nat # pFrom_-    , _cetTo = _Nat # pTo_-    , _cetDestination = pDestination_-    }+  CreateExportTask'+  { _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});@@ -115,11 +117,11 @@ cetLogGroupName :: Lens' CreateExportTask Text cetLogGroupName = lens _cetLogGroupName (\ s a -> s{_cetLogGroupName = a}); --- | The start time of the range for the request, expressed as the number of milliseconds since Jan 1, 1970 00:00:00 UTC. Events with a timestamp earlier than this time are not exported.+-- | 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; --- | The end time of the range for the request, expressed as the number of milliseconds since Jan 1, 1970 00:00:00 UTC. Events with a timestamp later than this time are not exported.+-- | 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; @@ -136,9 +138,9 @@                  CreateExportTaskResponse' <$>                    (x .?> "taskId") <*> (pure (fromEnum s))) -instance Hashable CreateExportTask+instance Hashable CreateExportTask where -instance NFData CreateExportTask+instance NFData CreateExportTask where  instance ToHeaders CreateExportTask where         toHeaders@@ -169,10 +171,11 @@  -- | /See:/ 'createExportTaskResponse' smart constructor. data CreateExportTaskResponse = CreateExportTaskResponse'-    { _cetrsTaskId         :: !(Maybe Text)-    , _cetrsResponseStatus :: !Int-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _cetrsTaskId         :: !(Maybe Text)+  , _cetrsResponseStatus :: !Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'CreateExportTaskResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -184,11 +187,10 @@     :: Int -- ^ 'cetrsResponseStatus'     -> CreateExportTaskResponse createExportTaskResponse pResponseStatus_ =-    CreateExportTaskResponse'-    { _cetrsTaskId = Nothing-    , _cetrsResponseStatus = pResponseStatus_-    }+  CreateExportTaskResponse'+  {_cetrsTaskId = Nothing, _cetrsResponseStatus = pResponseStatus_} + -- | The ID of the export task. cetrsTaskId :: Lens' CreateExportTaskResponse (Maybe Text) cetrsTaskId = lens _cetrsTaskId (\ s a -> s{_cetrsTaskId = a});@@ -197,4 +199,4 @@ cetrsResponseStatus :: Lens' CreateExportTaskResponse Int cetrsResponseStatus = lens _cetrsResponseStatus (\ s a -> s{_cetrsResponseStatus = a}); -instance NFData CreateExportTaskResponse+instance NFData CreateExportTaskResponse where

@@ -12,9 +12,9 @@  -- | -- Module      : Network.AWS.CloudWatchLogs.CreateLogGroup--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) --@@ -33,12 +33,18 @@ -- -- --+-- If you associate a AWS Key Management Service (AWS KMS) customer master key (CMK) with the log group, ingested data is encrypted using the CMK. This association is stored as long as the data encrypted with the CMK is still within Amazon CloudWatch Logs. This enables Amazon CloudWatch Logs to decrypt this data whenever it is requested.+--+-- If you attempt to associate a CMK with the log group but the CMK does not exist or the CMK is disabled, you will receive an @InvalidParameterException@ error.+-- module Network.AWS.CloudWatchLogs.CreateLogGroup     (     -- * Creating a Request       createLogGroup     , CreateLogGroup     -- * Request Lenses+    , clgKmsKeyId+    , clgTags     , clgLogGroupName      -- * Destructuring the Response@@ -46,31 +52,49 @@     , CreateLogGroupResponse     ) where -import           Network.AWS.CloudWatchLogs.Types-import           Network.AWS.CloudWatchLogs.Types.Product-import           Network.AWS.Lens-import           Network.AWS.Prelude-import           Network.AWS.Request-import           Network.AWS.Response+import Network.AWS.CloudWatchLogs.Types+import Network.AWS.CloudWatchLogs.Types.Product+import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response  -- | /See:/ 'createLogGroup' smart constructor.-newtype CreateLogGroup = CreateLogGroup'-    { _clgLogGroupName :: Text-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+data CreateLogGroup = CreateLogGroup'+  { _clgKmsKeyId     :: !(Maybe Text)+  , _clgTags         :: !(Maybe (Map Text Text))+  , _clgLogGroupName :: !Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'CreateLogGroup' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: --+-- * 'clgKmsKeyId' - 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)> .+--+-- * 'clgTags' - The key-value pairs to use for the tags.+-- -- * 'clgLogGroupName' - The name of the log group. createLogGroup     :: Text -- ^ 'clgLogGroupName'     -> CreateLogGroup createLogGroup pLogGroupName_ =-    CreateLogGroup'-    { _clgLogGroupName = pLogGroupName_-    }+  CreateLogGroup'+  { _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});++-- | 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;+ -- | The name of the log group. clgLogGroupName :: Lens' CreateLogGroup Text clgLogGroupName = lens _clgLogGroupName (\ s a -> s{_clgLogGroupName = a});@@ -80,9 +104,9 @@         request = postJSON cloudWatchLogs         response = receiveNull CreateLogGroupResponse' -instance Hashable CreateLogGroup+instance Hashable CreateLogGroup where -instance NFData CreateLogGroup+instance NFData CreateLogGroup where  instance ToHeaders CreateLogGroup where         toHeaders@@ -97,7 +121,9 @@         toJSON CreateLogGroup'{..}           = object               (catMaybes-                 [Just ("logGroupName" .= _clgLogGroupName)])+                 [("kmsKeyId" .=) <$> _clgKmsKeyId,+                  ("tags" .=) <$> _clgTags,+                  Just ("logGroupName" .= _clgLogGroupName)])  instance ToPath CreateLogGroup where         toPath = const "/"@@ -107,13 +133,15 @@  -- | /See:/ 'createLogGroupResponse' smart constructor. data CreateLogGroupResponse =-    CreateLogGroupResponse'-    deriving (Eq,Read,Show,Data,Typeable,Generic)+  CreateLogGroupResponse'+  deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'CreateLogGroupResponse' with the minimum fields required to make a request. -- createLogGroupResponse     :: CreateLogGroupResponse createLogGroupResponse = CreateLogGroupResponse' -instance NFData CreateLogGroupResponse++instance NFData CreateLogGroupResponse where

@@ -12,9 +12,9 @@  -- | -- Module      : Network.AWS.CloudWatchLogs.CreateLogStream--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) --@@ -47,19 +47,20 @@     , CreateLogStreamResponse     ) where -import           Network.AWS.CloudWatchLogs.Types-import           Network.AWS.CloudWatchLogs.Types.Product-import           Network.AWS.Lens-import           Network.AWS.Prelude-import           Network.AWS.Request-import           Network.AWS.Response+import Network.AWS.CloudWatchLogs.Types+import Network.AWS.CloudWatchLogs.Types.Product+import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response  -- | /See:/ 'createLogStream' smart constructor. data CreateLogStream = CreateLogStream'-    { _clsLogGroupName  :: !Text-    , _clsLogStreamName :: !Text-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _clsLogGroupName  :: !Text+  , _clsLogStreamName :: !Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'CreateLogStream' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -72,11 +73,10 @@     -> Text -- ^ 'clsLogStreamName'     -> CreateLogStream createLogStream pLogGroupName_ pLogStreamName_ =-    CreateLogStream'-    { _clsLogGroupName = pLogGroupName_-    , _clsLogStreamName = pLogStreamName_-    }+  CreateLogStream'+  {_clsLogGroupName = pLogGroupName_, _clsLogStreamName = pLogStreamName_} + -- | The name of the log group. clsLogGroupName :: Lens' CreateLogStream Text clsLogGroupName = lens _clsLogGroupName (\ s a -> s{_clsLogGroupName = a});@@ -90,9 +90,9 @@         request = postJSON cloudWatchLogs         response = receiveNull CreateLogStreamResponse' -instance Hashable CreateLogStream+instance Hashable CreateLogStream where -instance NFData CreateLogStream+instance NFData CreateLogStream where  instance ToHeaders CreateLogStream where         toHeaders@@ -118,13 +118,15 @@  -- | /See:/ 'createLogStreamResponse' smart constructor. data CreateLogStreamResponse =-    CreateLogStreamResponse'-    deriving (Eq,Read,Show,Data,Typeable,Generic)+  CreateLogStreamResponse'+  deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'CreateLogStreamResponse' with the minimum fields required to make a request. -- createLogStreamResponse     :: CreateLogStreamResponse createLogStreamResponse = CreateLogStreamResponse' -instance NFData CreateLogStreamResponse++instance NFData CreateLogStreamResponse where

@@ -12,9 +12,9 @@  -- | -- Module      : Network.AWS.CloudWatchLogs.DeleteDestination--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) --@@ -34,18 +34,19 @@     , DeleteDestinationResponse     ) where -import           Network.AWS.CloudWatchLogs.Types-import           Network.AWS.CloudWatchLogs.Types.Product-import           Network.AWS.Lens-import           Network.AWS.Prelude-import           Network.AWS.Request-import           Network.AWS.Response+import Network.AWS.CloudWatchLogs.Types+import Network.AWS.CloudWatchLogs.Types.Product+import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response  -- | /See:/ 'deleteDestination' smart constructor. newtype DeleteDestination = DeleteDestination'-    { _ddDestinationName :: Text-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _ddDestinationName :: Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DeleteDestination' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -55,10 +56,9 @@     :: Text -- ^ 'ddDestinationName'     -> DeleteDestination deleteDestination pDestinationName_ =-    DeleteDestination'-    { _ddDestinationName = pDestinationName_-    }+  DeleteDestination' {_ddDestinationName = pDestinationName_} + -- | The name of the destination. ddDestinationName :: Lens' DeleteDestination Text ddDestinationName = lens _ddDestinationName (\ s a -> s{_ddDestinationName = a});@@ -68,9 +68,9 @@         request = postJSON cloudWatchLogs         response = receiveNull DeleteDestinationResponse' -instance Hashable DeleteDestination+instance Hashable DeleteDestination where -instance NFData DeleteDestination+instance NFData DeleteDestination where  instance ToHeaders DeleteDestination where         toHeaders@@ -95,13 +95,15 @@  -- | /See:/ 'deleteDestinationResponse' smart constructor. data DeleteDestinationResponse =-    DeleteDestinationResponse'-    deriving (Eq,Read,Show,Data,Typeable,Generic)+  DeleteDestinationResponse'+  deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DeleteDestinationResponse' with the minimum fields required to make a request. -- deleteDestinationResponse     :: DeleteDestinationResponse deleteDestinationResponse = DeleteDestinationResponse' -instance NFData DeleteDestinationResponse++instance NFData DeleteDestinationResponse where

@@ -12,9 +12,9 @@  -- | -- Module      : Network.AWS.CloudWatchLogs.DeleteLogGroup--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) --@@ -34,18 +34,19 @@     , DeleteLogGroupResponse     ) where -import           Network.AWS.CloudWatchLogs.Types-import           Network.AWS.CloudWatchLogs.Types.Product-import           Network.AWS.Lens-import           Network.AWS.Prelude-import           Network.AWS.Request-import           Network.AWS.Response+import Network.AWS.CloudWatchLogs.Types+import Network.AWS.CloudWatchLogs.Types.Product+import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response  -- | /See:/ 'deleteLogGroup' smart constructor. newtype DeleteLogGroup = DeleteLogGroup'-    { _dlgLogGroupName :: Text-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _dlgLogGroupName :: Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DeleteLogGroup' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -55,10 +56,9 @@     :: Text -- ^ 'dlgLogGroupName'     -> DeleteLogGroup deleteLogGroup pLogGroupName_ =-    DeleteLogGroup'-    { _dlgLogGroupName = pLogGroupName_-    }+  DeleteLogGroup' {_dlgLogGroupName = pLogGroupName_} + -- | The name of the log group. dlgLogGroupName :: Lens' DeleteLogGroup Text dlgLogGroupName = lens _dlgLogGroupName (\ s a -> s{_dlgLogGroupName = a});@@ -68,9 +68,9 @@         request = postJSON cloudWatchLogs         response = receiveNull DeleteLogGroupResponse' -instance Hashable DeleteLogGroup+instance Hashable DeleteLogGroup where -instance NFData DeleteLogGroup+instance NFData DeleteLogGroup where  instance ToHeaders DeleteLogGroup where         toHeaders@@ -95,13 +95,15 @@  -- | /See:/ 'deleteLogGroupResponse' smart constructor. data DeleteLogGroupResponse =-    DeleteLogGroupResponse'-    deriving (Eq,Read,Show,Data,Typeable,Generic)+  DeleteLogGroupResponse'+  deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DeleteLogGroupResponse' with the minimum fields required to make a request. -- deleteLogGroupResponse     :: DeleteLogGroupResponse deleteLogGroupResponse = DeleteLogGroupResponse' -instance NFData DeleteLogGroupResponse++instance NFData DeleteLogGroupResponse where

@@ -12,9 +12,9 @@  -- | -- Module      : Network.AWS.CloudWatchLogs.DeleteLogStream--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) --@@ -35,19 +35,20 @@     , DeleteLogStreamResponse     ) where -import           Network.AWS.CloudWatchLogs.Types-import           Network.AWS.CloudWatchLogs.Types.Product-import           Network.AWS.Lens-import           Network.AWS.Prelude-import           Network.AWS.Request-import           Network.AWS.Response+import Network.AWS.CloudWatchLogs.Types+import Network.AWS.CloudWatchLogs.Types.Product+import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response  -- | /See:/ 'deleteLogStream' smart constructor. data DeleteLogStream = DeleteLogStream'-    { _dlsLogGroupName  :: !Text-    , _dlsLogStreamName :: !Text-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _dlsLogGroupName  :: !Text+  , _dlsLogStreamName :: !Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DeleteLogStream' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -60,11 +61,10 @@     -> Text -- ^ 'dlsLogStreamName'     -> DeleteLogStream deleteLogStream pLogGroupName_ pLogStreamName_ =-    DeleteLogStream'-    { _dlsLogGroupName = pLogGroupName_-    , _dlsLogStreamName = pLogStreamName_-    }+  DeleteLogStream'+  {_dlsLogGroupName = pLogGroupName_, _dlsLogStreamName = pLogStreamName_} + -- | The name of the log group. dlsLogGroupName :: Lens' DeleteLogStream Text dlsLogGroupName = lens _dlsLogGroupName (\ s a -> s{_dlsLogGroupName = a});@@ -78,9 +78,9 @@         request = postJSON cloudWatchLogs         response = receiveNull DeleteLogStreamResponse' -instance Hashable DeleteLogStream+instance Hashable DeleteLogStream where -instance NFData DeleteLogStream+instance NFData DeleteLogStream where  instance ToHeaders DeleteLogStream where         toHeaders@@ -106,13 +106,15 @@  -- | /See:/ 'deleteLogStreamResponse' smart constructor. data DeleteLogStreamResponse =-    DeleteLogStreamResponse'-    deriving (Eq,Read,Show,Data,Typeable,Generic)+  DeleteLogStreamResponse'+  deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DeleteLogStreamResponse' with the minimum fields required to make a request. -- deleteLogStreamResponse     :: DeleteLogStreamResponse deleteLogStreamResponse = DeleteLogStreamResponse' -instance NFData DeleteLogStreamResponse++instance NFData DeleteLogStreamResponse where

@@ -12,9 +12,9 @@  -- | -- Module      : Network.AWS.CloudWatchLogs.DeleteMetricFilter--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) --@@ -35,19 +35,20 @@     , DeleteMetricFilterResponse     ) where -import           Network.AWS.CloudWatchLogs.Types-import           Network.AWS.CloudWatchLogs.Types.Product-import           Network.AWS.Lens-import           Network.AWS.Prelude-import           Network.AWS.Request-import           Network.AWS.Response+import Network.AWS.CloudWatchLogs.Types+import Network.AWS.CloudWatchLogs.Types.Product+import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response  -- | /See:/ 'deleteMetricFilter' smart constructor. data DeleteMetricFilter = DeleteMetricFilter'-    { _delLogGroupName :: !Text-    , _delFilterName   :: !Text-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _delLogGroupName :: !Text+  , _delFilterName   :: !Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DeleteMetricFilter' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -60,11 +61,10 @@     -> Text -- ^ 'delFilterName'     -> DeleteMetricFilter deleteMetricFilter pLogGroupName_ pFilterName_ =-    DeleteMetricFilter'-    { _delLogGroupName = pLogGroupName_-    , _delFilterName = pFilterName_-    }+  DeleteMetricFilter'+  {_delLogGroupName = pLogGroupName_, _delFilterName = pFilterName_} + -- | The name of the log group. delLogGroupName :: Lens' DeleteMetricFilter Text delLogGroupName = lens _delLogGroupName (\ s a -> s{_delLogGroupName = a});@@ -79,9 +79,9 @@         request = postJSON cloudWatchLogs         response = receiveNull DeleteMetricFilterResponse' -instance Hashable DeleteMetricFilter+instance Hashable DeleteMetricFilter where -instance NFData DeleteMetricFilter+instance NFData DeleteMetricFilter where  instance ToHeaders DeleteMetricFilter where         toHeaders@@ -107,13 +107,15 @@  -- | /See:/ 'deleteMetricFilterResponse' smart constructor. data DeleteMetricFilterResponse =-    DeleteMetricFilterResponse'-    deriving (Eq,Read,Show,Data,Typeable,Generic)+  DeleteMetricFilterResponse'+  deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DeleteMetricFilterResponse' with the minimum fields required to make a request. -- deleteMetricFilterResponse     :: DeleteMetricFilterResponse deleteMetricFilterResponse = DeleteMetricFilterResponse' -instance NFData DeleteMetricFilterResponse++instance NFData DeleteMetricFilterResponse where

@@ -0,0 +1,107 @@+{-# LANGUAGE DeriveDataTypeable #-}+{-# LANGUAGE DeriveGeneric      #-}+{-# LANGUAGE OverloadedStrings  #-}+{-# LANGUAGE RecordWildCards    #-}+{-# LANGUAGE TypeFamilies       #-}++{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-binds   #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Network.AWS.CloudWatchLogs.DeleteResourcePolicy+-- Copyright   : (c) 2013-2017 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Deletes a resource policy from this account. This revokes the access of the identities in that policy to put log events to this account.+--+--+module Network.AWS.CloudWatchLogs.DeleteResourcePolicy+    (+    -- * Creating a Request+      deleteResourcePolicy+    , DeleteResourcePolicy+    -- * Request Lenses+    , drpPolicyName++    -- * Destructuring the Response+    , deleteResourcePolicyResponse+    , DeleteResourcePolicyResponse+    ) where++import Network.AWS.CloudWatchLogs.Types+import Network.AWS.CloudWatchLogs.Types.Product+import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response++-- | /See:/ 'deleteResourcePolicy' smart constructor.+newtype DeleteResourcePolicy = DeleteResourcePolicy'+  { _drpPolicyName :: Maybe Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'DeleteResourcePolicy' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'drpPolicyName' - The name of the policy to be revoked. This parameter is required.+deleteResourcePolicy+    :: DeleteResourcePolicy+deleteResourcePolicy = DeleteResourcePolicy' {_drpPolicyName = Nothing}+++-- | 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});++instance AWSRequest DeleteResourcePolicy where+        type Rs DeleteResourcePolicy =+             DeleteResourcePolicyResponse+        request = postJSON cloudWatchLogs+        response = receiveNull DeleteResourcePolicyResponse'++instance Hashable DeleteResourcePolicy where++instance NFData DeleteResourcePolicy where++instance ToHeaders DeleteResourcePolicy where+        toHeaders+          = const+              (mconcat+                 ["X-Amz-Target" =#+                    ("Logs_20140328.DeleteResourcePolicy" :: ByteString),+                  "Content-Type" =#+                    ("application/x-amz-json-1.1" :: ByteString)])++instance ToJSON DeleteResourcePolicy where+        toJSON DeleteResourcePolicy'{..}+          = object+              (catMaybes [("policyName" .=) <$> _drpPolicyName])++instance ToPath DeleteResourcePolicy where+        toPath = const "/"++instance ToQuery DeleteResourcePolicy where+        toQuery = const mempty++-- | /See:/ 'deleteResourcePolicyResponse' smart constructor.+data DeleteResourcePolicyResponse =+  DeleteResourcePolicyResponse'+  deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'DeleteResourcePolicyResponse' with the minimum fields required to make a request.+--+deleteResourcePolicyResponse+    :: DeleteResourcePolicyResponse+deleteResourcePolicyResponse = DeleteResourcePolicyResponse'+++instance NFData DeleteResourcePolicyResponse where

@@ -12,9 +12,9 @@  -- | -- Module      : Network.AWS.CloudWatchLogs.DeleteRetentionPolicy--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) --@@ -36,18 +36,19 @@     , DeleteRetentionPolicyResponse     ) where -import           Network.AWS.CloudWatchLogs.Types-import           Network.AWS.CloudWatchLogs.Types.Product-import           Network.AWS.Lens-import           Network.AWS.Prelude-import           Network.AWS.Request-import           Network.AWS.Response+import Network.AWS.CloudWatchLogs.Types+import Network.AWS.CloudWatchLogs.Types.Product+import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response  -- | /See:/ 'deleteRetentionPolicy' smart constructor. newtype DeleteRetentionPolicy = DeleteRetentionPolicy'-    { _drpLogGroupName :: Text-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _drpLogGroupName :: Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DeleteRetentionPolicy' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -57,10 +58,9 @@     :: Text -- ^ 'drpLogGroupName'     -> DeleteRetentionPolicy deleteRetentionPolicy pLogGroupName_ =-    DeleteRetentionPolicy'-    { _drpLogGroupName = pLogGroupName_-    }+  DeleteRetentionPolicy' {_drpLogGroupName = pLogGroupName_} + -- | The name of the log group. drpLogGroupName :: Lens' DeleteRetentionPolicy Text drpLogGroupName = lens _drpLogGroupName (\ s a -> s{_drpLogGroupName = a});@@ -71,9 +71,9 @@         request = postJSON cloudWatchLogs         response = receiveNull DeleteRetentionPolicyResponse' -instance Hashable DeleteRetentionPolicy+instance Hashable DeleteRetentionPolicy where -instance NFData DeleteRetentionPolicy+instance NFData DeleteRetentionPolicy where  instance ToHeaders DeleteRetentionPolicy where         toHeaders@@ -99,13 +99,15 @@  -- | /See:/ 'deleteRetentionPolicyResponse' smart constructor. data DeleteRetentionPolicyResponse =-    DeleteRetentionPolicyResponse'-    deriving (Eq,Read,Show,Data,Typeable,Generic)+  DeleteRetentionPolicyResponse'+  deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DeleteRetentionPolicyResponse' with the minimum fields required to make a request. -- deleteRetentionPolicyResponse     :: DeleteRetentionPolicyResponse deleteRetentionPolicyResponse = DeleteRetentionPolicyResponse' -instance NFData DeleteRetentionPolicyResponse++instance NFData DeleteRetentionPolicyResponse where

@@ -12,9 +12,9 @@  -- | -- Module      : Network.AWS.CloudWatchLogs.DeleteSubscriptionFilter--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) --@@ -35,19 +35,20 @@     , DeleteSubscriptionFilterResponse     ) where -import           Network.AWS.CloudWatchLogs.Types-import           Network.AWS.CloudWatchLogs.Types.Product-import           Network.AWS.Lens-import           Network.AWS.Prelude-import           Network.AWS.Request-import           Network.AWS.Response+import Network.AWS.CloudWatchLogs.Types+import Network.AWS.CloudWatchLogs.Types.Product+import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response  -- | /See:/ 'deleteSubscriptionFilter' smart constructor. data DeleteSubscriptionFilter = DeleteSubscriptionFilter'-    { _dLogGroupName :: !Text-    , _dFilterName   :: !Text-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _dLogGroupName :: !Text+  , _dFilterName   :: !Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DeleteSubscriptionFilter' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -60,11 +61,10 @@     -> Text -- ^ 'dFilterName'     -> DeleteSubscriptionFilter deleteSubscriptionFilter pLogGroupName_ pFilterName_ =-    DeleteSubscriptionFilter'-    { _dLogGroupName = pLogGroupName_-    , _dFilterName = pFilterName_-    }+  DeleteSubscriptionFilter'+  {_dLogGroupName = pLogGroupName_, _dFilterName = pFilterName_} + -- | The name of the log group. dLogGroupName :: Lens' DeleteSubscriptionFilter Text dLogGroupName = lens _dLogGroupName (\ s a -> s{_dLogGroupName = a});@@ -80,9 +80,9 @@         response           = receiveNull DeleteSubscriptionFilterResponse' -instance Hashable DeleteSubscriptionFilter+instance Hashable DeleteSubscriptionFilter where -instance NFData DeleteSubscriptionFilter+instance NFData DeleteSubscriptionFilter where  instance ToHeaders DeleteSubscriptionFilter where         toHeaders@@ -109,13 +109,16 @@  -- | /See:/ 'deleteSubscriptionFilterResponse' smart constructor. data DeleteSubscriptionFilterResponse =-    DeleteSubscriptionFilterResponse'-    deriving (Eq,Read,Show,Data,Typeable,Generic)+  DeleteSubscriptionFilterResponse'+  deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DeleteSubscriptionFilterResponse' with the minimum fields required to make a request. -- deleteSubscriptionFilterResponse     :: DeleteSubscriptionFilterResponse deleteSubscriptionFilterResponse = DeleteSubscriptionFilterResponse' + instance NFData DeleteSubscriptionFilterResponse+         where

@@ -12,9 +12,9 @@  -- | -- Module      : Network.AWS.CloudWatchLogs.DescribeDestinations--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) --@@ -42,21 +42,22 @@     , ddrsResponseStatus     ) where -import           Network.AWS.CloudWatchLogs.Types-import           Network.AWS.CloudWatchLogs.Types.Product-import           Network.AWS.Lens-import           Network.AWS.Pager-import           Network.AWS.Prelude-import           Network.AWS.Request-import           Network.AWS.Response+import Network.AWS.CloudWatchLogs.Types+import Network.AWS.CloudWatchLogs.Types.Product+import Network.AWS.Lens+import Network.AWS.Pager+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response  -- | /See:/ 'describeDestinations' smart constructor. data DescribeDestinations = DescribeDestinations'-    { _ddNextToken             :: !(Maybe Text)-    , _ddLimit                 :: !(Maybe Nat)-    , _ddDestinationNamePrefix :: !(Maybe Text)-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _ddNextToken             :: !(Maybe Text)+  , _ddLimit                 :: !(Maybe Nat)+  , _ddDestinationNamePrefix :: !(Maybe Text)+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DescribeDestinations' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -69,12 +70,13 @@ describeDestinations     :: DescribeDestinations describeDestinations =-    DescribeDestinations'-    { _ddNextToken = Nothing-    , _ddLimit = Nothing-    , _ddDestinationNamePrefix = Nothing-    }+  DescribeDestinations'+  { _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});@@ -106,9 +108,9 @@                      (x .?> "destinations" .!@ mempty)                      <*> (pure (fromEnum s))) -instance Hashable DescribeDestinations+instance Hashable DescribeDestinations where -instance NFData DescribeDestinations+instance NFData DescribeDestinations where  instance ToHeaders DescribeDestinations where         toHeaders@@ -136,11 +138,12 @@  -- | /See:/ 'describeDestinationsResponse' smart constructor. data DescribeDestinationsResponse = DescribeDestinationsResponse'-    { _ddrsNextToken      :: !(Maybe Text)-    , _ddrsDestinations   :: !(Maybe [Destination])-    , _ddrsResponseStatus :: !Int-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _ddrsNextToken      :: !(Maybe Text)+  , _ddrsDestinations   :: !(Maybe [Destination])+  , _ddrsResponseStatus :: !Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DescribeDestinationsResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -154,12 +157,13 @@     :: Int -- ^ 'ddrsResponseStatus'     -> DescribeDestinationsResponse describeDestinationsResponse pResponseStatus_ =-    DescribeDestinationsResponse'-    { _ddrsNextToken = Nothing-    , _ddrsDestinations = Nothing-    , _ddrsResponseStatus = pResponseStatus_-    }+  DescribeDestinationsResponse'+  { _ddrsNextToken = Nothing+  , _ddrsDestinations = Nothing+  , _ddrsResponseStatus = pResponseStatus_+  } + -- | Undocumented member. ddrsNextToken :: Lens' DescribeDestinationsResponse (Maybe Text) ddrsNextToken = lens _ddrsNextToken (\ s a -> s{_ddrsNextToken = a});@@ -172,4 +176,4 @@ ddrsResponseStatus :: Lens' DescribeDestinationsResponse Int ddrsResponseStatus = lens _ddrsResponseStatus (\ s a -> s{_ddrsResponseStatus = a}); -instance NFData DescribeDestinationsResponse+instance NFData DescribeDestinationsResponse where

@@ -12,9 +12,9 @@  -- | -- Module      : Network.AWS.CloudWatchLogs.DescribeExportTasks--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) --@@ -41,21 +41,22 @@     , detrsResponseStatus     ) where -import           Network.AWS.CloudWatchLogs.Types-import           Network.AWS.CloudWatchLogs.Types.Product-import           Network.AWS.Lens-import           Network.AWS.Prelude-import           Network.AWS.Request-import           Network.AWS.Response+import Network.AWS.CloudWatchLogs.Types+import Network.AWS.CloudWatchLogs.Types.Product+import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response  -- | /See:/ 'describeExportTasks' smart constructor. data DescribeExportTasks = DescribeExportTasks'-    { _detTaskId     :: !(Maybe Text)-    , _detNextToken  :: !(Maybe Text)-    , _detLimit      :: !(Maybe Nat)-    , _detStatusCode :: !(Maybe ExportTaskStatusCode)-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _detTaskId     :: !(Maybe Text)+  , _detNextToken  :: !(Maybe Text)+  , _detLimit      :: !(Maybe Nat)+  , _detStatusCode :: !(Maybe ExportTaskStatusCode)+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DescribeExportTasks' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -70,13 +71,14 @@ describeExportTasks     :: DescribeExportTasks describeExportTasks =-    DescribeExportTasks'-    { _detTaskId = Nothing-    , _detNextToken = Nothing-    , _detLimit = Nothing-    , _detStatusCode = Nothing-    }+  DescribeExportTasks'+  { _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});@@ -105,9 +107,9 @@                      (x .?> "exportTasks" .!@ mempty)                      <*> (pure (fromEnum s))) -instance Hashable DescribeExportTasks+instance Hashable DescribeExportTasks where -instance NFData DescribeExportTasks+instance NFData DescribeExportTasks where  instance ToHeaders DescribeExportTasks where         toHeaders@@ -135,11 +137,12 @@  -- | /See:/ 'describeExportTasksResponse' smart constructor. data DescribeExportTasksResponse = DescribeExportTasksResponse'-    { _detrsNextToken      :: !(Maybe Text)-    , _detrsExportTasks    :: !(Maybe [ExportTask])-    , _detrsResponseStatus :: !Int-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _detrsNextToken      :: !(Maybe Text)+  , _detrsExportTasks    :: !(Maybe [ExportTask])+  , _detrsResponseStatus :: !Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DescribeExportTasksResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -153,12 +156,13 @@     :: Int -- ^ 'detrsResponseStatus'     -> DescribeExportTasksResponse describeExportTasksResponse pResponseStatus_ =-    DescribeExportTasksResponse'-    { _detrsNextToken = Nothing-    , _detrsExportTasks = Nothing-    , _detrsResponseStatus = pResponseStatus_-    }+  DescribeExportTasksResponse'+  { _detrsNextToken = Nothing+  , _detrsExportTasks = Nothing+  , _detrsResponseStatus = pResponseStatus_+  } + -- | Undocumented member. detrsNextToken :: Lens' DescribeExportTasksResponse (Maybe Text) detrsNextToken = lens _detrsNextToken (\ s a -> s{_detrsNextToken = a});@@ -171,4 +175,4 @@ detrsResponseStatus :: Lens' DescribeExportTasksResponse Int detrsResponseStatus = lens _detrsResponseStatus (\ s a -> s{_detrsResponseStatus = a}); -instance NFData DescribeExportTasksResponse+instance NFData DescribeExportTasksResponse where

@@ -12,9 +12,9 @@  -- | -- Module      : Network.AWS.CloudWatchLogs.DescribeLogGroups--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) --@@ -42,21 +42,22 @@     , dlgrsResponseStatus     ) where -import           Network.AWS.CloudWatchLogs.Types-import           Network.AWS.CloudWatchLogs.Types.Product-import           Network.AWS.Lens-import           Network.AWS.Pager-import           Network.AWS.Prelude-import           Network.AWS.Request-import           Network.AWS.Response+import Network.AWS.CloudWatchLogs.Types+import Network.AWS.CloudWatchLogs.Types.Product+import Network.AWS.Lens+import Network.AWS.Pager+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response  -- | /See:/ 'describeLogGroups' smart constructor. data DescribeLogGroups = DescribeLogGroups'-    { _dlgLogGroupNamePrefix :: !(Maybe Text)-    , _dlgNextToken          :: !(Maybe Text)-    , _dlgLimit              :: !(Maybe Nat)-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _dlgLogGroupNamePrefix :: !(Maybe Text)+  , _dlgNextToken          :: !(Maybe Text)+  , _dlgLimit              :: !(Maybe Nat)+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DescribeLogGroups' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -69,12 +70,13 @@ describeLogGroups     :: DescribeLogGroups describeLogGroups =-    DescribeLogGroups'-    { _dlgLogGroupNamePrefix = Nothing-    , _dlgNextToken = Nothing-    , _dlgLimit = Nothing-    }+  DescribeLogGroups'+  { _dlgLogGroupNamePrefix = Nothing+  , _dlgNextToken = Nothing+  , _dlgLimit = Nothing+  } + -- | The prefix to match. dlgLogGroupNamePrefix :: Lens' DescribeLogGroups (Maybe Text) dlgLogGroupNamePrefix = lens _dlgLogGroupNamePrefix (\ s a -> s{_dlgLogGroupNamePrefix = a});@@ -105,9 +107,9 @@                      (x .?> "nextToken")                      <*> (pure (fromEnum s))) -instance Hashable DescribeLogGroups+instance Hashable DescribeLogGroups where -instance NFData DescribeLogGroups+instance NFData DescribeLogGroups where  instance ToHeaders DescribeLogGroups where         toHeaders@@ -135,11 +137,12 @@  -- | /See:/ 'describeLogGroupsResponse' smart constructor. data DescribeLogGroupsResponse = DescribeLogGroupsResponse'-    { _dlgrsLogGroups      :: !(Maybe [LogGroup])-    , _dlgrsNextToken      :: !(Maybe Text)-    , _dlgrsResponseStatus :: !Int-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _dlgrsLogGroups      :: !(Maybe [LogGroup])+  , _dlgrsNextToken      :: !(Maybe Text)+  , _dlgrsResponseStatus :: !Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DescribeLogGroupsResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -153,12 +156,13 @@     :: Int -- ^ 'dlgrsResponseStatus'     -> DescribeLogGroupsResponse describeLogGroupsResponse pResponseStatus_ =-    DescribeLogGroupsResponse'-    { _dlgrsLogGroups = Nothing-    , _dlgrsNextToken = Nothing-    , _dlgrsResponseStatus = pResponseStatus_-    }+  DescribeLogGroupsResponse'+  { _dlgrsLogGroups = Nothing+  , _dlgrsNextToken = Nothing+  , _dlgrsResponseStatus = pResponseStatus_+  } + -- | The log groups. dlgrsLogGroups :: Lens' DescribeLogGroupsResponse [LogGroup] dlgrsLogGroups = lens _dlgrsLogGroups (\ s a -> s{_dlgrsLogGroups = a}) . _Default . _Coerce;@@ -171,4 +175,4 @@ dlgrsResponseStatus :: Lens' DescribeLogGroupsResponse Int dlgrsResponseStatus = lens _dlgrsResponseStatus (\ s a -> s{_dlgrsResponseStatus = a}); -instance NFData DescribeLogGroupsResponse+instance NFData DescribeLogGroupsResponse where

@@ -12,9 +12,9 @@  -- | -- Module      : Network.AWS.CloudWatchLogs.DescribeLogStreams--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) --@@ -47,35 +47,36 @@     , dlsrsResponseStatus     ) where -import           Network.AWS.CloudWatchLogs.Types-import           Network.AWS.CloudWatchLogs.Types.Product-import           Network.AWS.Lens-import           Network.AWS.Pager-import           Network.AWS.Prelude-import           Network.AWS.Request-import           Network.AWS.Response+import Network.AWS.CloudWatchLogs.Types+import Network.AWS.CloudWatchLogs.Types.Product+import Network.AWS.Lens+import Network.AWS.Pager+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response  -- | /See:/ 'describeLogStreams' smart constructor. data DescribeLogStreams = DescribeLogStreams'-    { _dlssOrderBy             :: !(Maybe OrderBy)-    , _dlssDescending          :: !(Maybe Bool)-    , _dlssNextToken           :: !(Maybe Text)-    , _dlssLogStreamNamePrefix :: !(Maybe Text)-    , _dlssLimit               :: !(Maybe Nat)-    , _dlssLogGroupName        :: !Text-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _dlssOrderBy             :: !(Maybe OrderBy)+  , _dlssDescending          :: !(Maybe Bool)+  , _dlssNextToken           :: !(Maybe Text)+  , _dlssLogStreamNamePrefix :: !(Maybe Text)+  , _dlssLimit               :: !(Maybe Nat)+  , _dlssLogGroupName        :: !Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DescribeLogStreams' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: ----- * 'dlssOrderBy' - 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.+-- * 'dlssOrderBy' - 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. -- -- * 'dlssDescending' - 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. -- -- * 'dlssNextToken' - The token for the next set of items to return. (You received this token from a previous call.) ----- * 'dlssLogStreamNamePrefix' - The prefix to match. You cannot specify this parameter if @orderBy@ is @LastEventTime@ .+-- * 'dlssLogStreamNamePrefix' - The prefix to match. iIf @orderBy@ is @LastEventTime@ ,you cannot specify this parameter. -- -- * 'dlssLimit' - The maximum number of items returned. If you don't specify a value, the default is up to 50 items. --@@ -84,16 +85,17 @@     :: Text -- ^ 'dlssLogGroupName'     -> DescribeLogStreams describeLogStreams pLogGroupName_ =-    DescribeLogStreams'-    { _dlssOrderBy = Nothing-    , _dlssDescending = Nothing-    , _dlssNextToken = Nothing-    , _dlssLogStreamNamePrefix = Nothing-    , _dlssLimit = Nothing-    , _dlssLogGroupName = pLogGroupName_-    }+  DescribeLogStreams'+  { _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.++-- | 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}); @@ -105,7 +107,7 @@ dlssNextToken :: Lens' DescribeLogStreams (Maybe Text) dlssNextToken = lens _dlssNextToken (\ s a -> s{_dlssNextToken = a}); --- | The prefix to match. You cannot specify this parameter if @orderBy@ is @LastEventTime@ .+-- | 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}); @@ -136,9 +138,9 @@                      (x .?> "logStreams" .!@ mempty)                      <*> (pure (fromEnum s))) -instance Hashable DescribeLogStreams+instance Hashable DescribeLogStreams where -instance NFData DescribeLogStreams+instance NFData DescribeLogStreams where  instance ToHeaders DescribeLogStreams where         toHeaders@@ -169,11 +171,12 @@  -- | /See:/ 'describeLogStreamsResponse' smart constructor. data DescribeLogStreamsResponse = DescribeLogStreamsResponse'-    { _dlsrsNextToken      :: !(Maybe Text)-    , _dlsrsLogStreams     :: !(Maybe [LogStream])-    , _dlsrsResponseStatus :: !Int-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _dlsrsNextToken      :: !(Maybe Text)+  , _dlsrsLogStreams     :: !(Maybe [LogStream])+  , _dlsrsResponseStatus :: !Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DescribeLogStreamsResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -187,12 +190,13 @@     :: Int -- ^ 'dlsrsResponseStatus'     -> DescribeLogStreamsResponse describeLogStreamsResponse pResponseStatus_ =-    DescribeLogStreamsResponse'-    { _dlsrsNextToken = Nothing-    , _dlsrsLogStreams = Nothing-    , _dlsrsResponseStatus = pResponseStatus_-    }+  DescribeLogStreamsResponse'+  { _dlsrsNextToken = Nothing+  , _dlsrsLogStreams = Nothing+  , _dlsrsResponseStatus = pResponseStatus_+  } + -- | Undocumented member. dlsrsNextToken :: Lens' DescribeLogStreamsResponse (Maybe Text) dlsrsNextToken = lens _dlsrsNextToken (\ s a -> s{_dlsrsNextToken = a});@@ -205,4 +209,4 @@ dlsrsResponseStatus :: Lens' DescribeLogStreamsResponse Int dlsrsResponseStatus = lens _dlsrsResponseStatus (\ s a -> s{_dlsrsResponseStatus = a}); -instance NFData DescribeLogStreamsResponse+instance NFData DescribeLogStreamsResponse where

@@ -12,9 +12,9 @@  -- | -- Module      : Network.AWS.CloudWatchLogs.DescribeMetricFilters--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) --@@ -45,31 +45,32 @@     , dmfrsResponseStatus     ) where -import           Network.AWS.CloudWatchLogs.Types-import           Network.AWS.CloudWatchLogs.Types.Product-import           Network.AWS.Lens-import           Network.AWS.Pager-import           Network.AWS.Prelude-import           Network.AWS.Request-import           Network.AWS.Response+import Network.AWS.CloudWatchLogs.Types+import Network.AWS.CloudWatchLogs.Types.Product+import Network.AWS.Lens+import Network.AWS.Pager+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response  -- | /See:/ 'describeMetricFilters' smart constructor. data DescribeMetricFilters = DescribeMetricFilters'-    { _dmfFilterNamePrefix :: !(Maybe Text)-    , _dmfMetricName       :: !(Maybe Text)-    , _dmfLogGroupName     :: !(Maybe Text)-    , _dmfNextToken        :: !(Maybe Text)-    , _dmfMetricNamespace  :: !(Maybe Text)-    , _dmfLimit            :: !(Maybe Nat)-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _dmfFilterNamePrefix :: !(Maybe Text)+  , _dmfMetricName       :: !(Maybe Text)+  , _dmfLogGroupName     :: !(Maybe Text)+  , _dmfNextToken        :: !(Maybe Text)+  , _dmfMetricNamespace  :: !(Maybe Text)+  , _dmfLimit            :: !(Maybe Nat)+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DescribeMetricFilters' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: -- -- * 'dmfFilterNamePrefix' - The prefix to match. ----- * 'dmfMetricName' - The name of the CloudWatch metric.+-- * 'dmfMetricName' - Undocumented member. -- -- * 'dmfLogGroupName' - The name of the log group. --@@ -81,20 +82,21 @@ describeMetricFilters     :: DescribeMetricFilters describeMetricFilters =-    DescribeMetricFilters'-    { _dmfFilterNamePrefix = Nothing-    , _dmfMetricName = Nothing-    , _dmfLogGroupName = Nothing-    , _dmfNextToken = Nothing-    , _dmfMetricNamespace = Nothing-    , _dmfLimit = Nothing-    }+  DescribeMetricFilters'+  { _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}); --- | The name of the CloudWatch metric.+-- | Undocumented member. dmfMetricName :: Lens' DescribeMetricFilters (Maybe Text) dmfMetricName = lens _dmfMetricName (\ s a -> s{_dmfMetricName = a}); @@ -133,9 +135,9 @@                      (x .?> "metricFilters" .!@ mempty)                      <*> (pure (fromEnum s))) -instance Hashable DescribeMetricFilters+instance Hashable DescribeMetricFilters where -instance NFData DescribeMetricFilters+instance NFData DescribeMetricFilters where  instance ToHeaders DescribeMetricFilters where         toHeaders@@ -166,11 +168,12 @@  -- | /See:/ 'describeMetricFiltersResponse' smart constructor. data DescribeMetricFiltersResponse = DescribeMetricFiltersResponse'-    { _dmfrsNextToken      :: !(Maybe Text)-    , _dmfrsMetricFilters  :: !(Maybe [MetricFilter])-    , _dmfrsResponseStatus :: !Int-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _dmfrsNextToken      :: !(Maybe Text)+  , _dmfrsMetricFilters  :: !(Maybe [MetricFilter])+  , _dmfrsResponseStatus :: !Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DescribeMetricFiltersResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -184,12 +187,13 @@     :: Int -- ^ 'dmfrsResponseStatus'     -> DescribeMetricFiltersResponse describeMetricFiltersResponse pResponseStatus_ =-    DescribeMetricFiltersResponse'-    { _dmfrsNextToken = Nothing-    , _dmfrsMetricFilters = Nothing-    , _dmfrsResponseStatus = pResponseStatus_-    }+  DescribeMetricFiltersResponse'+  { _dmfrsNextToken = Nothing+  , _dmfrsMetricFilters = Nothing+  , _dmfrsResponseStatus = pResponseStatus_+  } + -- | Undocumented member. dmfrsNextToken :: Lens' DescribeMetricFiltersResponse (Maybe Text) dmfrsNextToken = lens _dmfrsNextToken (\ s a -> s{_dmfrsNextToken = a});@@ -202,4 +206,4 @@ dmfrsResponseStatus :: Lens' DescribeMetricFiltersResponse Int dmfrsResponseStatus = lens _dmfrsResponseStatus (\ s a -> s{_dmfrsResponseStatus = a}); -instance NFData DescribeMetricFiltersResponse+instance NFData DescribeMetricFiltersResponse where

@@ -0,0 +1,157 @@+{-# LANGUAGE DeriveDataTypeable #-}+{-# LANGUAGE DeriveGeneric      #-}+{-# LANGUAGE OverloadedStrings  #-}+{-# LANGUAGE RecordWildCards    #-}+{-# LANGUAGE TypeFamilies       #-}++{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-binds   #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Network.AWS.CloudWatchLogs.DescribeResourcePolicies+-- Copyright   : (c) 2013-2017 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Lists the resource policies in this account.+--+--+module Network.AWS.CloudWatchLogs.DescribeResourcePolicies+    (+    -- * Creating a Request+      describeResourcePolicies+    , DescribeResourcePolicies+    -- * Request Lenses+    , drpNextToken+    , drpLimit++    -- * Destructuring the Response+    , describeResourcePoliciesResponse+    , DescribeResourcePoliciesResponse+    -- * Response Lenses+    , drprsResourcePolicies+    , drprsNextToken+    , drprsResponseStatus+    ) where++import Network.AWS.CloudWatchLogs.Types+import Network.AWS.CloudWatchLogs.Types.Product+import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response++-- | /See:/ 'describeResourcePolicies' smart constructor.+data DescribeResourcePolicies = DescribeResourcePolicies'+  { _drpNextToken :: !(Maybe Text)+  , _drpLimit     :: !(Maybe Nat)+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'DescribeResourcePolicies' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'drpNextToken' - Undocumented member.+--+-- * 'drpLimit' - The maximum number of resource policies to be displayed with one call of this API.+describeResourcePolicies+    :: DescribeResourcePolicies+describeResourcePolicies =+  DescribeResourcePolicies' {_drpNextToken = Nothing, _drpLimit = Nothing}+++-- | Undocumented member.+drpNextToken :: Lens' DescribeResourcePolicies (Maybe Text)+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;++instance AWSRequest DescribeResourcePolicies where+        type Rs DescribeResourcePolicies =+             DescribeResourcePoliciesResponse+        request = postJSON cloudWatchLogs+        response+          = receiveJSON+              (\ s h x ->+                 DescribeResourcePoliciesResponse' <$>+                   (x .?> "resourcePolicies" .!@ mempty) <*>+                     (x .?> "nextToken")+                     <*> (pure (fromEnum s)))++instance Hashable DescribeResourcePolicies where++instance NFData DescribeResourcePolicies where++instance ToHeaders DescribeResourcePolicies where+        toHeaders+          = const+              (mconcat+                 ["X-Amz-Target" =#+                    ("Logs_20140328.DescribeResourcePolicies" ::+                       ByteString),+                  "Content-Type" =#+                    ("application/x-amz-json-1.1" :: ByteString)])++instance ToJSON DescribeResourcePolicies where+        toJSON DescribeResourcePolicies'{..}+          = object+              (catMaybes+                 [("nextToken" .=) <$> _drpNextToken,+                  ("limit" .=) <$> _drpLimit])++instance ToPath DescribeResourcePolicies where+        toPath = const "/"++instance ToQuery DescribeResourcePolicies where+        toQuery = const mempty++-- | /See:/ 'describeResourcePoliciesResponse' smart constructor.+data DescribeResourcePoliciesResponse = DescribeResourcePoliciesResponse'+  { _drprsResourcePolicies :: !(Maybe [ResourcePolicy])+  , _drprsNextToken        :: !(Maybe Text)+  , _drprsResponseStatus   :: !Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'DescribeResourcePoliciesResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'drprsResourcePolicies' - The resource policies that exist in this account.+--+-- * 'drprsNextToken' - Undocumented member.+--+-- * 'drprsResponseStatus' - -- | The response status code.+describeResourcePoliciesResponse+    :: Int -- ^ 'drprsResponseStatus'+    -> DescribeResourcePoliciesResponse+describeResourcePoliciesResponse pResponseStatus_ =+  DescribeResourcePoliciesResponse'+  { _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;++-- | Undocumented member.+drprsNextToken :: Lens' DescribeResourcePoliciesResponse (Maybe Text)+drprsNextToken = lens _drprsNextToken (\ s a -> s{_drprsNextToken = a});++-- | -- | The response status code.+drprsResponseStatus :: Lens' DescribeResourcePoliciesResponse Int+drprsResponseStatus = lens _drprsResponseStatus (\ s a -> s{_drprsResponseStatus = a});++instance NFData DescribeResourcePoliciesResponse+         where

@@ -12,9 +12,9 @@  -- | -- Module      : Network.AWS.CloudWatchLogs.DescribeSubscriptionFilters--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) --@@ -43,22 +43,23 @@     , dsfrsResponseStatus     ) where -import           Network.AWS.CloudWatchLogs.Types-import           Network.AWS.CloudWatchLogs.Types.Product-import           Network.AWS.Lens-import           Network.AWS.Pager-import           Network.AWS.Prelude-import           Network.AWS.Request-import           Network.AWS.Response+import Network.AWS.CloudWatchLogs.Types+import Network.AWS.CloudWatchLogs.Types.Product+import Network.AWS.Lens+import Network.AWS.Pager+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response  -- | /See:/ 'describeSubscriptionFilters' smart constructor. data DescribeSubscriptionFilters = DescribeSubscriptionFilters'-    { _dsfFilterNamePrefix :: !(Maybe Text)-    , _dsfNextToken        :: !(Maybe Text)-    , _dsfLimit            :: !(Maybe Nat)-    , _dsfLogGroupName     :: !Text-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _dsfFilterNamePrefix :: !(Maybe Text)+  , _dsfNextToken        :: !(Maybe Text)+  , _dsfLimit            :: !(Maybe Nat)+  , _dsfLogGroupName     :: !Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DescribeSubscriptionFilters' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -74,13 +75,14 @@     :: Text -- ^ 'dsfLogGroupName'     -> DescribeSubscriptionFilters describeSubscriptionFilters pLogGroupName_ =-    DescribeSubscriptionFilters'-    { _dsfFilterNamePrefix = Nothing-    , _dsfNextToken = Nothing-    , _dsfLimit = Nothing-    , _dsfLogGroupName = pLogGroupName_-    }+  DescribeSubscriptionFilters'+  { _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});@@ -116,9 +118,9 @@                      (x .?> "nextToken")                      <*> (pure (fromEnum s))) -instance Hashable DescribeSubscriptionFilters+instance Hashable DescribeSubscriptionFilters where -instance NFData DescribeSubscriptionFilters+instance NFData DescribeSubscriptionFilters where  instance ToHeaders DescribeSubscriptionFilters where         toHeaders@@ -147,11 +149,12 @@  -- | /See:/ 'describeSubscriptionFiltersResponse' smart constructor. data DescribeSubscriptionFiltersResponse = DescribeSubscriptionFiltersResponse'-    { _dsfrsSubscriptionFilters :: !(Maybe [SubscriptionFilter])-    , _dsfrsNextToken           :: !(Maybe Text)-    , _dsfrsResponseStatus      :: !Int-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _dsfrsSubscriptionFilters :: !(Maybe [SubscriptionFilter])+  , _dsfrsNextToken           :: !(Maybe Text)+  , _dsfrsResponseStatus      :: !Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DescribeSubscriptionFiltersResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -165,12 +168,13 @@     :: Int -- ^ 'dsfrsResponseStatus'     -> DescribeSubscriptionFiltersResponse describeSubscriptionFiltersResponse pResponseStatus_ =-    DescribeSubscriptionFiltersResponse'-    { _dsfrsSubscriptionFilters = Nothing-    , _dsfrsNextToken = Nothing-    , _dsfrsResponseStatus = pResponseStatus_-    }+  DescribeSubscriptionFiltersResponse'+  { _dsfrsSubscriptionFilters = Nothing+  , _dsfrsNextToken = Nothing+  , _dsfrsResponseStatus = pResponseStatus_+  } + -- | The subscription filters. dsfrsSubscriptionFilters :: Lens' DescribeSubscriptionFiltersResponse [SubscriptionFilter] dsfrsSubscriptionFilters = lens _dsfrsSubscriptionFilters (\ s a -> s{_dsfrsSubscriptionFilters = a}) . _Default . _Coerce;@@ -184,3 +188,4 @@ dsfrsResponseStatus = lens _dsfrsResponseStatus (\ s a -> s{_dsfrsResponseStatus = a});  instance NFData DescribeSubscriptionFiltersResponse+         where

@@ -0,0 +1,114 @@+{-# LANGUAGE DeriveDataTypeable #-}+{-# LANGUAGE DeriveGeneric      #-}+{-# LANGUAGE OverloadedStrings  #-}+{-# LANGUAGE RecordWildCards    #-}+{-# LANGUAGE TypeFamilies       #-}++{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-binds   #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Network.AWS.CloudWatchLogs.DisassociateKMSKey+-- Copyright   : (c) 2013-2017 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Disassociates the associated AWS Key Management Service (AWS KMS) customer master key (CMK) from the specified log group.+--+--+-- After the AWS KMS CMK is disassociated from the log group, AWS CloudWatch Logs stops encrypting newly ingested data for the log group. All previously ingested data remains encrypted, and AWS CloudWatch Logs requires permissions for the CMK whenever the encrypted data is requested.+--+-- Note that it can take up to 5 minutes for this operation to take effect.+--+module Network.AWS.CloudWatchLogs.DisassociateKMSKey+    (+    -- * Creating a Request+      disassociateKMSKey+    , DisassociateKMSKey+    -- * Request Lenses+    , dkkLogGroupName++    -- * Destructuring the Response+    , disassociateKMSKeyResponse+    , DisassociateKMSKeyResponse+    ) where++import Network.AWS.CloudWatchLogs.Types+import Network.AWS.CloudWatchLogs.Types.Product+import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response++-- | /See:/ 'disassociateKMSKey' smart constructor.+newtype DisassociateKMSKey = DisassociateKMSKey'+  { _dkkLogGroupName :: Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'DisassociateKMSKey' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'dkkLogGroupName' - The name of the log group.+disassociateKMSKey+    :: Text -- ^ 'dkkLogGroupName'+    -> DisassociateKMSKey+disassociateKMSKey pLogGroupName_ =+  DisassociateKMSKey' {_dkkLogGroupName = pLogGroupName_}+++-- | The name of the log group.+dkkLogGroupName :: Lens' DisassociateKMSKey Text+dkkLogGroupName = lens _dkkLogGroupName (\ s a -> s{_dkkLogGroupName = a});++instance AWSRequest DisassociateKMSKey where+        type Rs DisassociateKMSKey =+             DisassociateKMSKeyResponse+        request = postJSON cloudWatchLogs+        response = receiveNull DisassociateKMSKeyResponse'++instance Hashable DisassociateKMSKey where++instance NFData DisassociateKMSKey where++instance ToHeaders DisassociateKMSKey where+        toHeaders+          = const+              (mconcat+                 ["X-Amz-Target" =#+                    ("Logs_20140328.DisassociateKmsKey" :: ByteString),+                  "Content-Type" =#+                    ("application/x-amz-json-1.1" :: ByteString)])++instance ToJSON DisassociateKMSKey where+        toJSON DisassociateKMSKey'{..}+          = object+              (catMaybes+                 [Just ("logGroupName" .= _dkkLogGroupName)])++instance ToPath DisassociateKMSKey where+        toPath = const "/"++instance ToQuery DisassociateKMSKey where+        toQuery = const mempty++-- | /See:/ 'disassociateKMSKeyResponse' smart constructor.+data DisassociateKMSKeyResponse =+  DisassociateKMSKeyResponse'+  deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'DisassociateKMSKeyResponse' with the minimum fields required to make a request.+--+disassociateKMSKeyResponse+    :: DisassociateKMSKeyResponse+disassociateKMSKeyResponse = DisassociateKMSKeyResponse'+++instance NFData DisassociateKMSKeyResponse where

@@ -12,16 +12,16 @@  -- | -- Module      : Network.AWS.CloudWatchLogs.FilterLogEvents--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) -- -- Lists log events from the specified log group. You can list all the log events or filter the results using a filter pattern, a time range, and the name of the log stream. -- ----- By default, this operation returns as many log events as can fit in 1MB (up to 10,000 log events), or all the events found within the time range that you specify. If the results include a token, then there are more log events available, and you can get additional results by specifying the token in a subsequent call.+-- By default, this operation returns as many log events as can fit in 1 MB (up to 10,000 log events), or all the events found within the time range that you specify. If the results include a token, then there are more log events available, and you can get additional results by specifying the token in a subsequent call. -- -- -- This operation returns paginated results.@@ -50,61 +50,63 @@     , flersResponseStatus     ) where -import           Network.AWS.CloudWatchLogs.Types-import           Network.AWS.CloudWatchLogs.Types.Product-import           Network.AWS.Lens-import           Network.AWS.Pager-import           Network.AWS.Prelude-import           Network.AWS.Request-import           Network.AWS.Response+import Network.AWS.CloudWatchLogs.Types+import Network.AWS.CloudWatchLogs.Types.Product+import Network.AWS.Lens+import Network.AWS.Pager+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response  -- | /See:/ 'filterLogEvents' smart constructor. data FilterLogEvents = FilterLogEvents'-    { _fleStartTime      :: !(Maybe Nat)-    , _fleNextToken      :: !(Maybe Text)-    , _fleLogStreamNames :: !(Maybe (List1 Text))-    , _fleEndTime        :: !(Maybe Nat)-    , _fleLimit          :: !(Maybe Nat)-    , _fleFilterPattern  :: !(Maybe Text)-    , _fleInterleaved    :: !(Maybe Bool)-    , _fleLogGroupName   :: !Text-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _fleStartTime      :: !(Maybe Nat)+  , _fleNextToken      :: !(Maybe Text)+  , _fleLogStreamNames :: !(Maybe (List1 Text))+  , _fleEndTime        :: !(Maybe Nat)+  , _fleLimit          :: !(Maybe Nat)+  , _fleFilterPattern  :: !(Maybe Text)+  , _fleInterleaved    :: !(Maybe Bool)+  , _fleLogGroupName   :: !Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'FilterLogEvents' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: ----- * 'fleStartTime' - The start of the time range. Events with a timestamp prior to this time are not returned.+-- * 'fleStartTime' - 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. -- -- * 'fleNextToken' - The token for the next set of events to return. (You received this token from a previous call.) -- -- * 'fleLogStreamNames' - Optional list of log stream names. ----- * 'fleEndTime' - The end of the time range. Events with a timestamp later than this time are not returned.+-- * 'fleEndTime' - 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. -- -- * 'fleLimit' - The maximum number of events to return. The default is 10,000 events. -- -- * 'fleFilterPattern' - The filter pattern to use. If not provided, all the events are matched. ----- * 'fleInterleaved' - 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' - 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. -- -- * 'fleLogGroupName' - The name of the log group. filterLogEvents     :: Text -- ^ 'fleLogGroupName'     -> FilterLogEvents filterLogEvents pLogGroupName_ =-    FilterLogEvents'-    { _fleStartTime = Nothing-    , _fleNextToken = Nothing-    , _fleLogStreamNames = Nothing-    , _fleEndTime = Nothing-    , _fleLimit = Nothing-    , _fleFilterPattern = Nothing-    , _fleInterleaved = Nothing-    , _fleLogGroupName = pLogGroupName_-    }+  FilterLogEvents'+  { _fleStartTime = Nothing+  , _fleNextToken = Nothing+  , _fleLogStreamNames = Nothing+  , _fleEndTime = Nothing+  , _fleLimit = Nothing+  , _fleFilterPattern = Nothing+  , _fleInterleaved = Nothing+  , _fleLogGroupName = pLogGroupName_+  } --- | The start of the time range. Events with a timestamp prior to this time are not returned.++-- | 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; @@ -116,7 +118,7 @@ fleLogStreamNames :: Lens' FilterLogEvents (Maybe (NonEmpty Text)) fleLogStreamNames = lens _fleLogStreamNames (\ s a -> s{_fleLogStreamNames = a}) . mapping _List1; --- | The end of the time range. Events with a timestamp later than this time are not returned.+-- | 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; @@ -128,7 +130,7 @@ fleFilterPattern :: Lens' FilterLogEvents (Maybe Text) 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.+-- | 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}); @@ -154,9 +156,9 @@                      <*> (x .?> "events" .!@ mempty)                      <*> (pure (fromEnum s))) -instance Hashable FilterLogEvents+instance Hashable FilterLogEvents where -instance NFData FilterLogEvents+instance NFData FilterLogEvents where  instance ToHeaders FilterLogEvents where         toHeaders@@ -188,12 +190,13 @@  -- | /See:/ 'filterLogEventsResponse' smart constructor. data FilterLogEventsResponse = FilterLogEventsResponse'-    { _flersSearchedLogStreams :: !(Maybe [SearchedLogStream])-    , _flersNextToken          :: !(Maybe Text)-    , _flersEvents             :: !(Maybe [FilteredLogEvent])-    , _flersResponseStatus     :: !Int-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _flersSearchedLogStreams :: !(Maybe [SearchedLogStream])+  , _flersNextToken          :: !(Maybe Text)+  , _flersEvents             :: !(Maybe [FilteredLogEvent])+  , _flersResponseStatus     :: !Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'FilterLogEventsResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -209,13 +212,14 @@     :: Int -- ^ 'flersResponseStatus'     -> FilterLogEventsResponse filterLogEventsResponse pResponseStatus_ =-    FilterLogEventsResponse'-    { _flersSearchedLogStreams = Nothing-    , _flersNextToken = Nothing-    , _flersEvents = Nothing-    , _flersResponseStatus = pResponseStatus_-    }+  FilterLogEventsResponse'+  { _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;@@ -232,4 +236,4 @@ flersResponseStatus :: Lens' FilterLogEventsResponse Int flersResponseStatus = lens _flersResponseStatus (\ s a -> s{_flersResponseStatus = a}); -instance NFData FilterLogEventsResponse+instance NFData FilterLogEventsResponse where

@@ -12,16 +12,16 @@  -- | -- Module      : Network.AWS.CloudWatchLogs.GetLogEvents--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) -- -- Lists log events from the specified log stream. You can list all the log events or filter using a time range. -- ----- By default, this operation returns as many log events as can fit in a response size of 1MB (up to 10,000 log events). If the results include tokens, there are more log events available. You can get additional log events by specifying one of the tokens in a subsequent call.+-- By default, this operation returns as many log events as can fit in a response size of 1MB (up to 10,000 log events). You can get additional log events by specifying one of the tokens in a subsequent call. -- module Network.AWS.CloudWatchLogs.GetLogEvents     (@@ -47,37 +47,38 @@     , glersResponseStatus     ) where -import           Network.AWS.CloudWatchLogs.Types-import           Network.AWS.CloudWatchLogs.Types.Product-import           Network.AWS.Lens-import           Network.AWS.Prelude-import           Network.AWS.Request-import           Network.AWS.Response+import Network.AWS.CloudWatchLogs.Types+import Network.AWS.CloudWatchLogs.Types.Product+import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response  -- | /See:/ 'getLogEvents' smart constructor. data GetLogEvents = GetLogEvents'-    { _gleStartTime     :: !(Maybe Nat)-    , _gleStartFromHead :: !(Maybe Bool)-    , _gleNextToken     :: !(Maybe Text)-    , _gleEndTime       :: !(Maybe Nat)-    , _gleLimit         :: !(Maybe Nat)-    , _gleLogGroupName  :: !Text-    , _gleLogStreamName :: !Text-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _gleStartTime     :: !(Maybe Nat)+  , _gleStartFromHead :: !(Maybe Bool)+  , _gleNextToken     :: !(Maybe Text)+  , _gleEndTime       :: !(Maybe Nat)+  , _gleLimit         :: !(Maybe Nat)+  , _gleLogGroupName  :: !Text+  , _gleLogStreamName :: !Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'GetLogEvents' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: ----- * 'gleStartTime' - The start of the time range. Events with a timestamp earlier than this time are not included.+-- * 'gleStartTime' - 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. -- -- * 'gleStartFromHead' - 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. -- -- * 'gleNextToken' - The token for the next set of items to return. (You received this token from a previous call.) ----- * 'gleEndTime' - The end of the time range. Events with a timestamp later than this time are not included.+-- * 'gleEndTime' - 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. ----- * 'gleLimit' - 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 1MB, up to 10,000 log events.+-- * 'gleLimit' - 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. -- -- * 'gleLogGroupName' - The name of the log group. --@@ -87,17 +88,18 @@     -> Text -- ^ 'gleLogStreamName'     -> GetLogEvents getLogEvents pLogGroupName_ pLogStreamName_ =-    GetLogEvents'-    { _gleStartTime = Nothing-    , _gleStartFromHead = Nothing-    , _gleNextToken = Nothing-    , _gleEndTime = Nothing-    , _gleLimit = Nothing-    , _gleLogGroupName = pLogGroupName_-    , _gleLogStreamName = pLogStreamName_-    }+  GetLogEvents'+  { _gleStartTime = Nothing+  , _gleStartFromHead = Nothing+  , _gleNextToken = Nothing+  , _gleEndTime = Nothing+  , _gleLimit = Nothing+  , _gleLogGroupName = pLogGroupName_+  , _gleLogStreamName = pLogStreamName_+  } --- | The start of the time range. Events with a timestamp earlier than this time are not included.++-- | 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; @@ -109,11 +111,11 @@ gleNextToken :: Lens' GetLogEvents (Maybe Text) gleNextToken = lens _gleNextToken (\ s a -> s{_gleNextToken = a}); --- | The end of the time range. Events with a timestamp later than this time are not included.+-- | 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; --- | 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 1MB, up to 10,000 log events.+-- | 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; @@ -137,9 +139,9 @@                      <*> (x .?> "events" .!@ mempty)                      <*> (pure (fromEnum s))) -instance Hashable GetLogEvents+instance Hashable GetLogEvents where -instance NFData GetLogEvents+instance NFData GetLogEvents where  instance ToHeaders GetLogEvents where         toHeaders@@ -170,12 +172,13 @@  -- | /See:/ 'getLogEventsResponse' smart constructor. data GetLogEventsResponse = GetLogEventsResponse'-    { _glersNextBackwardToken :: !(Maybe Text)-    , _glersNextForwardToken  :: !(Maybe Text)-    , _glersEvents            :: !(Maybe [OutputLogEvent])-    , _glersResponseStatus    :: !Int-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _glersNextBackwardToken :: !(Maybe Text)+  , _glersNextForwardToken  :: !(Maybe Text)+  , _glersEvents            :: !(Maybe [OutputLogEvent])+  , _glersResponseStatus    :: !Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'GetLogEventsResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -191,13 +194,14 @@     :: Int -- ^ 'glersResponseStatus'     -> GetLogEventsResponse getLogEventsResponse pResponseStatus_ =-    GetLogEventsResponse'-    { _glersNextBackwardToken = Nothing-    , _glersNextForwardToken = Nothing-    , _glersEvents = Nothing-    , _glersResponseStatus = pResponseStatus_-    }+  GetLogEventsResponse'+  { _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});@@ -214,4 +218,4 @@ glersResponseStatus :: Lens' GetLogEventsResponse Int glersResponseStatus = lens _glersResponseStatus (\ s a -> s{_glersResponseStatus = a}); -instance NFData GetLogEventsResponse+instance NFData GetLogEventsResponse where

@@ -0,0 +1,133 @@+{-# LANGUAGE DeriveDataTypeable #-}+{-# LANGUAGE DeriveGeneric      #-}+{-# LANGUAGE OverloadedStrings  #-}+{-# LANGUAGE RecordWildCards    #-}+{-# LANGUAGE TypeFamilies       #-}++{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-binds   #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Network.AWS.CloudWatchLogs.ListTagsLogGroup+-- Copyright   : (c) 2013-2017 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Lists the tags for the specified log group.+--+--+module Network.AWS.CloudWatchLogs.ListTagsLogGroup+    (+    -- * Creating a Request+      listTagsLogGroup+    , ListTagsLogGroup+    -- * Request Lenses+    , ltlgLogGroupName++    -- * Destructuring the Response+    , listTagsLogGroupResponse+    , ListTagsLogGroupResponse+    -- * Response Lenses+    , ltlgrsTags+    , ltlgrsResponseStatus+    ) where++import Network.AWS.CloudWatchLogs.Types+import Network.AWS.CloudWatchLogs.Types.Product+import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response++-- | /See:/ 'listTagsLogGroup' smart constructor.+newtype ListTagsLogGroup = ListTagsLogGroup'+  { _ltlgLogGroupName :: Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'ListTagsLogGroup' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'ltlgLogGroupName' - The name of the log group.+listTagsLogGroup+    :: Text -- ^ 'ltlgLogGroupName'+    -> ListTagsLogGroup+listTagsLogGroup pLogGroupName_ =+  ListTagsLogGroup' {_ltlgLogGroupName = pLogGroupName_}+++-- | The name of the log group.+ltlgLogGroupName :: Lens' ListTagsLogGroup Text+ltlgLogGroupName = lens _ltlgLogGroupName (\ s a -> s{_ltlgLogGroupName = a});++instance AWSRequest ListTagsLogGroup where+        type Rs ListTagsLogGroup = ListTagsLogGroupResponse+        request = postJSON cloudWatchLogs+        response+          = receiveJSON+              (\ s h x ->+                 ListTagsLogGroupResponse' <$>+                   (x .?> "tags" .!@ mempty) <*> (pure (fromEnum s)))++instance Hashable ListTagsLogGroup where++instance NFData ListTagsLogGroup where++instance ToHeaders ListTagsLogGroup where+        toHeaders+          = const+              (mconcat+                 ["X-Amz-Target" =#+                    ("Logs_20140328.ListTagsLogGroup" :: ByteString),+                  "Content-Type" =#+                    ("application/x-amz-json-1.1" :: ByteString)])++instance ToJSON ListTagsLogGroup where+        toJSON ListTagsLogGroup'{..}+          = object+              (catMaybes+                 [Just ("logGroupName" .= _ltlgLogGroupName)])++instance ToPath ListTagsLogGroup where+        toPath = const "/"++instance ToQuery ListTagsLogGroup where+        toQuery = const mempty++-- | /See:/ 'listTagsLogGroupResponse' smart constructor.+data ListTagsLogGroupResponse = ListTagsLogGroupResponse'+  { _ltlgrsTags           :: !(Maybe (Map Text Text))+  , _ltlgrsResponseStatus :: !Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'ListTagsLogGroupResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'ltlgrsTags' - The tags for the log group.+--+-- * 'ltlgrsResponseStatus' - -- | The response status code.+listTagsLogGroupResponse+    :: Int -- ^ 'ltlgrsResponseStatus'+    -> ListTagsLogGroupResponse+listTagsLogGroupResponse pResponseStatus_ =+  ListTagsLogGroupResponse'+  {_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;++-- | -- | The response status code.+ltlgrsResponseStatus :: Lens' ListTagsLogGroupResponse Int+ltlgrsResponseStatus = lens _ltlgrsResponseStatus (\ s a -> s{_ltlgrsResponseStatus = a});++instance NFData ListTagsLogGroupResponse where

@@ -12,16 +12,16 @@  -- | -- Module      : Network.AWS.CloudWatchLogs.PutDestination--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Creates or updates a destination. A destination encapsulates a physical resource (such as a Kinesis stream) and enables you to subscribe to a real-time stream of log events of a different account, ingested using 'PutLogEvents' . Currently, the only supported physical resource is a Amazon Kinesis stream belonging to the same account as the destination.+-- Creates or updates a destination. A destination encapsulates a physical resource (such as an Amazon Kinesis stream) and enables you to subscribe to a real-time stream of log events for a different account, ingested using 'PutLogEvents' . Currently, the only supported physical resource is a Kinesis stream belonging to the same account as the destination. -- ----- A destination controls what is written to its Amazon Kinesis stream through an access policy. By default, @PutDestination@ does not set any access policy with the destination, which means a cross-account user cannot call 'PutSubscriptionFilter' against this destination. To enable this, the destination owner must call 'PutDestinationPolicy' after @PutDestination@ .+-- Through an access policy, a destination controls what is written to its Kinesis stream. By default, @PutDestination@ does not set any access policy with the destination, which means a cross-account user cannot call 'PutSubscriptionFilter' against this destination. To enable this, the destination owner must call 'PutDestinationPolicy' after @PutDestination@ . -- module Network.AWS.CloudWatchLogs.PutDestination     (@@ -41,50 +41,52 @@     , pdrsResponseStatus     ) where -import           Network.AWS.CloudWatchLogs.Types-import           Network.AWS.CloudWatchLogs.Types.Product-import           Network.AWS.Lens-import           Network.AWS.Prelude-import           Network.AWS.Request-import           Network.AWS.Response+import Network.AWS.CloudWatchLogs.Types+import Network.AWS.CloudWatchLogs.Types.Product+import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response  -- | /See:/ 'putDestination' smart constructor. data PutDestination = PutDestination'-    { _pdDestinationName :: !Text-    , _pdTargetARN       :: !Text-    , _pdRoleARN         :: !Text-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _pdDestinationName :: !Text+  , _pdTargetARN       :: !Text+  , _pdRoleARN         :: !Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'PutDestination' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: -- -- * 'pdDestinationName' - A name for the destination. ----- * 'pdTargetARN' - The ARN of an Amazon Kinesis stream to deliver matching log events to.+-- * 'pdTargetARN' - The ARN of an Amazon Kinesis stream to which to deliver matching log events. ----- * 'pdRoleARN' - The ARN of an IAM role that grants CloudWatch Logs permissions to call Amazon Kinesis PutRecord on the destination stream.+-- * 'pdRoleARN' - The ARN of an IAM role that grants CloudWatch Logs permissions to call the Amazon Kinesis PutRecord operation on the destination stream. putDestination     :: Text -- ^ 'pdDestinationName'     -> Text -- ^ 'pdTargetARN'     -> Text -- ^ 'pdRoleARN'     -> PutDestination putDestination pDestinationName_ pTargetARN_ pRoleARN_ =-    PutDestination'-    { _pdDestinationName = pDestinationName_-    , _pdTargetARN = pTargetARN_-    , _pdRoleARN = pRoleARN_-    }+  PutDestination'+  { _pdDestinationName = pDestinationName_+  , _pdTargetARN = pTargetARN_+  , _pdRoleARN = pRoleARN_+  } + -- | A name for the destination. pdDestinationName :: Lens' PutDestination Text pdDestinationName = lens _pdDestinationName (\ s a -> s{_pdDestinationName = a}); --- | The ARN of an Amazon Kinesis stream to deliver matching log events to.+-- | 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}); --- | The ARN of an IAM role that grants CloudWatch Logs permissions to call Amazon Kinesis PutRecord on the destination stream.+-- | 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}); @@ -97,9 +99,9 @@                  PutDestinationResponse' <$>                    (x .?> "destination") <*> (pure (fromEnum s))) -instance Hashable PutDestination+instance Hashable PutDestination where -instance NFData PutDestination+instance NFData PutDestination where  instance ToHeaders PutDestination where         toHeaders@@ -126,10 +128,11 @@  -- | /See:/ 'putDestinationResponse' smart constructor. data PutDestinationResponse = PutDestinationResponse'-    { _pdrsDestination    :: !(Maybe Destination)-    , _pdrsResponseStatus :: !Int-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _pdrsDestination    :: !(Maybe Destination)+  , _pdrsResponseStatus :: !Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'PutDestinationResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -141,11 +144,10 @@     :: Int -- ^ 'pdrsResponseStatus'     -> PutDestinationResponse putDestinationResponse pResponseStatus_ =-    PutDestinationResponse'-    { _pdrsDestination = Nothing-    , _pdrsResponseStatus = pResponseStatus_-    }+  PutDestinationResponse'+  {_pdrsDestination = Nothing, _pdrsResponseStatus = pResponseStatus_} + -- | The destination. pdrsDestination :: Lens' PutDestinationResponse (Maybe Destination) pdrsDestination = lens _pdrsDestination (\ s a -> s{_pdrsDestination = a});@@ -154,4 +156,4 @@ pdrsResponseStatus :: Lens' PutDestinationResponse Int pdrsResponseStatus = lens _pdrsResponseStatus (\ s a -> s{_pdrsResponseStatus = a}); -instance NFData PutDestinationResponse+instance NFData PutDestinationResponse where

@@ -12,9 +12,9 @@  -- | -- Module      : Network.AWS.CloudWatchLogs.PutDestinationPolicy--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) --@@ -35,19 +35,20 @@     , PutDestinationPolicyResponse     ) where -import           Network.AWS.CloudWatchLogs.Types-import           Network.AWS.CloudWatchLogs.Types.Product-import           Network.AWS.Lens-import           Network.AWS.Prelude-import           Network.AWS.Request-import           Network.AWS.Response+import Network.AWS.CloudWatchLogs.Types+import Network.AWS.CloudWatchLogs.Types.Product+import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response  -- | /See:/ 'putDestinationPolicy' smart constructor. data PutDestinationPolicy = PutDestinationPolicy'-    { _pdpDestinationName :: !Text-    , _pdpAccessPolicy    :: !Text-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _pdpDestinationName :: !Text+  , _pdpAccessPolicy    :: !Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'PutDestinationPolicy' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -60,11 +61,10 @@     -> Text -- ^ 'pdpAccessPolicy'     -> PutDestinationPolicy putDestinationPolicy pDestinationName_ pAccessPolicy_ =-    PutDestinationPolicy'-    { _pdpDestinationName = pDestinationName_-    , _pdpAccessPolicy = pAccessPolicy_-    }+  PutDestinationPolicy'+  {_pdpDestinationName = pDestinationName_, _pdpAccessPolicy = pAccessPolicy_} + -- | A name for an existing destination. pdpDestinationName :: Lens' PutDestinationPolicy Text pdpDestinationName = lens _pdpDestinationName (\ s a -> s{_pdpDestinationName = a});@@ -79,9 +79,9 @@         request = postJSON cloudWatchLogs         response = receiveNull PutDestinationPolicyResponse' -instance Hashable PutDestinationPolicy+instance Hashable PutDestinationPolicy where -instance NFData PutDestinationPolicy+instance NFData PutDestinationPolicy where  instance ToHeaders PutDestinationPolicy where         toHeaders@@ -107,13 +107,15 @@  -- | /See:/ 'putDestinationPolicyResponse' smart constructor. data PutDestinationPolicyResponse =-    PutDestinationPolicyResponse'-    deriving (Eq,Read,Show,Data,Typeable,Generic)+  PutDestinationPolicyResponse'+  deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'PutDestinationPolicyResponse' with the minimum fields required to make a request. -- putDestinationPolicyResponse     :: PutDestinationPolicyResponse putDestinationPolicyResponse = PutDestinationPolicyResponse' -instance NFData PutDestinationPolicyResponse++instance NFData PutDestinationPolicyResponse where

@@ -12,16 +12,16 @@  -- | -- Module      : Network.AWS.CloudWatchLogs.PutLogEvents--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) -- -- Uploads a batch of log events to the specified log stream. -- ----- You must include the sequence token obtained from the response of the previous call. An upload in a newly created log stream does not require a sequence token. You can also get the sequence token using 'DescribeLogStreams' .+-- You must include the sequence token obtained from the response of the previous 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. -- -- The batch of events must satisfy the following constraints: --@@ -31,11 +31,11 @@ -- --     * None of the log events in the batch can be older than 14 days or the retention period of the log group. -----     * The log events in the batch must be in chronological ordered by their timestamp.+--     * The log events in the batch must be in chronological ordered by their time stamp (the time the event occurred, expressed as the number of milliseconds after Jan 1, 1970 00:00:00 UTC). -- --     * The maximum number of log events in a batch is 10,000. -----     * A batch of log events in a single PutLogEvents request cannot span more than 24 hours. Otherwise, the PutLogEvents operation will fail.+--     * A batch of log events in a single request cannot span more than 24 hours. Otherwise, the operation fails. -- -- --@@ -59,26 +59,27 @@     , plersResponseStatus     ) where -import           Network.AWS.CloudWatchLogs.Types-import           Network.AWS.CloudWatchLogs.Types.Product-import           Network.AWS.Lens-import           Network.AWS.Prelude-import           Network.AWS.Request-import           Network.AWS.Response+import Network.AWS.CloudWatchLogs.Types+import Network.AWS.CloudWatchLogs.Types.Product+import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response  -- | /See:/ 'putLogEvents' smart constructor. data PutLogEvents = PutLogEvents'-    { _pleSequenceToken :: !(Maybe Text)-    , _pleLogGroupName  :: !Text-    , _pleLogStreamName :: !Text-    , _pleLogEvents     :: !(List1 InputLogEvent)-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _pleSequenceToken :: !(Maybe Text)+  , _pleLogGroupName  :: !Text+  , _pleLogStreamName :: !Text+  , _pleLogEvents     :: !(List1 InputLogEvent)+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'PutLogEvents' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: ----- * 'pleSequenceToken' - The sequence token.+-- * 'pleSequenceToken' - 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. -- -- * 'pleLogGroupName' - The name of the log group. --@@ -91,14 +92,15 @@     -> NonEmpty InputLogEvent -- ^ 'pleLogEvents'     -> PutLogEvents putLogEvents pLogGroupName_ pLogStreamName_ pLogEvents_ =-    PutLogEvents'-    { _pleSequenceToken = Nothing-    , _pleLogGroupName = pLogGroupName_-    , _pleLogStreamName = pLogStreamName_-    , _pleLogEvents = _List1 # pLogEvents_-    }+  PutLogEvents'+  { _pleSequenceToken = Nothing+  , _pleLogGroupName = pLogGroupName_+  , _pleLogStreamName = pLogStreamName_+  , _pleLogEvents = _List1 # pLogEvents_+  } --- | The sequence token.++-- | 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}); @@ -125,9 +127,9 @@                      (x .?> "nextSequenceToken")                      <*> (pure (fromEnum s))) -instance Hashable PutLogEvents+instance Hashable PutLogEvents where -instance NFData PutLogEvents+instance NFData PutLogEvents where  instance ToHeaders PutLogEvents where         toHeaders@@ -155,11 +157,12 @@  -- | /See:/ 'putLogEventsResponse' smart constructor. data PutLogEventsResponse = PutLogEventsResponse'-    { _plersRejectedLogEventsInfo :: !(Maybe RejectedLogEventsInfo)-    , _plersNextSequenceToken     :: !(Maybe Text)-    , _plersResponseStatus        :: !Int-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _plersRejectedLogEventsInfo :: !(Maybe RejectedLogEventsInfo)+  , _plersNextSequenceToken     :: !(Maybe Text)+  , _plersResponseStatus        :: !Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'PutLogEventsResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -173,12 +176,13 @@     :: Int -- ^ 'plersResponseStatus'     -> PutLogEventsResponse putLogEventsResponse pResponseStatus_ =-    PutLogEventsResponse'-    { _plersRejectedLogEventsInfo = Nothing-    , _plersNextSequenceToken = Nothing-    , _plersResponseStatus = pResponseStatus_-    }+  PutLogEventsResponse'+  { _plersRejectedLogEventsInfo = Nothing+  , _plersNextSequenceToken = Nothing+  , _plersResponseStatus = pResponseStatus_+  } + -- | The rejected events. plersRejectedLogEventsInfo :: Lens' PutLogEventsResponse (Maybe RejectedLogEventsInfo) plersRejectedLogEventsInfo = lens _plersRejectedLogEventsInfo (\ s a -> s{_plersRejectedLogEventsInfo = a});@@ -191,4 +195,4 @@ plersResponseStatus :: Lens' PutLogEventsResponse Int plersResponseStatus = lens _plersResponseStatus (\ s a -> s{_plersResponseStatus = a}); -instance NFData PutLogEventsResponse+instance NFData PutLogEventsResponse where

@@ -12,9 +12,9 @@  -- | -- Module      : Network.AWS.CloudWatchLogs.PutMetricFilter--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) --@@ -39,21 +39,22 @@     , PutMetricFilterResponse     ) where -import           Network.AWS.CloudWatchLogs.Types-import           Network.AWS.CloudWatchLogs.Types.Product-import           Network.AWS.Lens-import           Network.AWS.Prelude-import           Network.AWS.Request-import           Network.AWS.Response+import Network.AWS.CloudWatchLogs.Types+import Network.AWS.CloudWatchLogs.Types.Product+import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response  -- | /See:/ 'putMetricFilter' smart constructor. data PutMetricFilter = PutMetricFilter'-    { _pmfLogGroupName          :: !Text-    , _pmfFilterName            :: !Text-    , _pmfFilterPattern         :: !Text-    , _pmfMetricTransformations :: !(List1 MetricTransformation)-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _pmfLogGroupName          :: !Text+  , _pmfFilterName            :: !Text+  , _pmfFilterPattern         :: !Text+  , _pmfMetricTransformations :: !(List1 MetricTransformation)+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'PutMetricFilter' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -64,7 +65,7 @@ -- -- * 'pmfFilterPattern' - A filter pattern for extracting metric data out of ingested log events. ----- * 'pmfMetricTransformations' - A collection of information needed to define how metric data gets emitted.+-- * 'pmfMetricTransformations' - A collection of information that defines how metric data gets emitted. putMetricFilter     :: Text -- ^ 'pmfLogGroupName'     -> Text -- ^ 'pmfFilterName'@@ -72,13 +73,14 @@     -> NonEmpty MetricTransformation -- ^ 'pmfMetricTransformations'     -> PutMetricFilter putMetricFilter pLogGroupName_ pFilterName_ pFilterPattern_ pMetricTransformations_ =-    PutMetricFilter'-    { _pmfLogGroupName = pLogGroupName_-    , _pmfFilterName = pFilterName_-    , _pmfFilterPattern = pFilterPattern_-    , _pmfMetricTransformations = _List1 # pMetricTransformations_-    }+  PutMetricFilter'+  { _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});@@ -91,7 +93,7 @@ pmfFilterPattern :: Lens' PutMetricFilter Text pmfFilterPattern = lens _pmfFilterPattern (\ s a -> s{_pmfFilterPattern = a}); --- | A collection of information needed to define how metric data gets emitted.+-- | 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; @@ -100,9 +102,9 @@         request = postJSON cloudWatchLogs         response = receiveNull PutMetricFilterResponse' -instance Hashable PutMetricFilter+instance Hashable PutMetricFilter where -instance NFData PutMetricFilter+instance NFData PutMetricFilter where  instance ToHeaders PutMetricFilter where         toHeaders@@ -132,13 +134,15 @@  -- | /See:/ 'putMetricFilterResponse' smart constructor. data PutMetricFilterResponse =-    PutMetricFilterResponse'-    deriving (Eq,Read,Show,Data,Typeable,Generic)+  PutMetricFilterResponse'+  deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'PutMetricFilterResponse' with the minimum fields required to make a request. -- putMetricFilterResponse     :: PutMetricFilterResponse putMetricFilterResponse = PutMetricFilterResponse' -instance NFData PutMetricFilterResponse++instance NFData PutMetricFilterResponse where

@@ -0,0 +1,141 @@+{-# LANGUAGE DeriveDataTypeable #-}+{-# LANGUAGE DeriveGeneric      #-}+{-# LANGUAGE OverloadedStrings  #-}+{-# LANGUAGE RecordWildCards    #-}+{-# LANGUAGE TypeFamilies       #-}++{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-binds   #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Network.AWS.CloudWatchLogs.PutResourcePolicy+-- Copyright   : (c) 2013-2017 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Creates or updates a resource policy allowing other AWS services to put log events to this account, such as Amazon Route 53. An account can have up to 50 resource policies per region.+--+--+module Network.AWS.CloudWatchLogs.PutResourcePolicy+    (+    -- * Creating a Request+      putResourcePolicy+    , PutResourcePolicy+    -- * Request Lenses+    , prpPolicyName+    , prpPolicyDocument++    -- * Destructuring the Response+    , putResourcePolicyResponse+    , PutResourcePolicyResponse+    -- * Response Lenses+    , prprsResourcePolicy+    , prprsResponseStatus+    ) where++import Network.AWS.CloudWatchLogs.Types+import Network.AWS.CloudWatchLogs.Types.Product+import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response++-- | /See:/ 'putResourcePolicy' smart constructor.+data PutResourcePolicy = PutResourcePolicy'+  { _prpPolicyName     :: !(Maybe Text)+  , _prpPolicyDocument :: !(Maybe Text)+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'PutResourcePolicy' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'prpPolicyName' - Name of the new policy. This parameter is required.+--+-- * 'prpPolicyDocument' - 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 } ] }+putResourcePolicy+    :: PutResourcePolicy+putResourcePolicy =+  PutResourcePolicy' {_prpPolicyName = Nothing, _prpPolicyDocument = Nothing}+++-- | Name of the new policy. This parameter is required.+prpPolicyName :: Lens' PutResourcePolicy (Maybe Text)+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});++instance AWSRequest PutResourcePolicy where+        type Rs PutResourcePolicy = PutResourcePolicyResponse+        request = postJSON cloudWatchLogs+        response+          = receiveJSON+              (\ s h x ->+                 PutResourcePolicyResponse' <$>+                   (x .?> "resourcePolicy") <*> (pure (fromEnum s)))++instance Hashable PutResourcePolicy where++instance NFData PutResourcePolicy where++instance ToHeaders PutResourcePolicy where+        toHeaders+          = const+              (mconcat+                 ["X-Amz-Target" =#+                    ("Logs_20140328.PutResourcePolicy" :: ByteString),+                  "Content-Type" =#+                    ("application/x-amz-json-1.1" :: ByteString)])++instance ToJSON PutResourcePolicy where+        toJSON PutResourcePolicy'{..}+          = object+              (catMaybes+                 [("policyName" .=) <$> _prpPolicyName,+                  ("policyDocument" .=) <$> _prpPolicyDocument])++instance ToPath PutResourcePolicy where+        toPath = const "/"++instance ToQuery PutResourcePolicy where+        toQuery = const mempty++-- | /See:/ 'putResourcePolicyResponse' smart constructor.+data PutResourcePolicyResponse = PutResourcePolicyResponse'+  { _prprsResourcePolicy :: !(Maybe ResourcePolicy)+  , _prprsResponseStatus :: !Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'PutResourcePolicyResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'prprsResourcePolicy' - The new policy.+--+-- * 'prprsResponseStatus' - -- | The response status code.+putResourcePolicyResponse+    :: Int -- ^ 'prprsResponseStatus'+    -> PutResourcePolicyResponse+putResourcePolicyResponse pResponseStatus_ =+  PutResourcePolicyResponse'+  {_prprsResourcePolicy = Nothing, _prprsResponseStatus = pResponseStatus_}+++-- | The new policy.+prprsResourcePolicy :: Lens' PutResourcePolicyResponse (Maybe ResourcePolicy)+prprsResourcePolicy = lens _prprsResourcePolicy (\ s a -> s{_prprsResourcePolicy = a});++-- | -- | The response status code.+prprsResponseStatus :: Lens' PutResourcePolicyResponse Int+prprsResponseStatus = lens _prprsResponseStatus (\ s a -> s{_prprsResponseStatus = a});++instance NFData PutResourcePolicyResponse where

@@ -12,13 +12,13 @@  -- | -- Module      : Network.AWS.CloudWatchLogs.PutRetentionPolicy--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Sets the retention of the specified log group. A retention policy allows you to configure the number of days you want to retain log events in the specified log group.+-- Sets the retention of the specified log group. A retention policy allows you to configure the number of days for which to retain log events in the specified log group. -- -- module Network.AWS.CloudWatchLogs.PutRetentionPolicy@@ -35,19 +35,20 @@     , PutRetentionPolicyResponse     ) where -import           Network.AWS.CloudWatchLogs.Types-import           Network.AWS.CloudWatchLogs.Types.Product-import           Network.AWS.Lens-import           Network.AWS.Prelude-import           Network.AWS.Request-import           Network.AWS.Response+import Network.AWS.CloudWatchLogs.Types+import Network.AWS.CloudWatchLogs.Types.Product+import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response  -- | /See:/ 'putRetentionPolicy' smart constructor. data PutRetentionPolicy = PutRetentionPolicy'-    { _prpLogGroupName    :: !Text-    , _prpRetentionInDays :: !Int-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _prpLogGroupName    :: !Text+  , _prpRetentionInDays :: !Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'PutRetentionPolicy' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -60,11 +61,10 @@     -> Int -- ^ 'prpRetentionInDays'     -> PutRetentionPolicy putRetentionPolicy pLogGroupName_ pRetentionInDays_ =-    PutRetentionPolicy'-    { _prpLogGroupName = pLogGroupName_-    , _prpRetentionInDays = pRetentionInDays_-    }+  PutRetentionPolicy'+  {_prpLogGroupName = pLogGroupName_, _prpRetentionInDays = pRetentionInDays_} + -- | The name of the log group. prpLogGroupName :: Lens' PutRetentionPolicy Text prpLogGroupName = lens _prpLogGroupName (\ s a -> s{_prpLogGroupName = a});@@ -79,9 +79,9 @@         request = postJSON cloudWatchLogs         response = receiveNull PutRetentionPolicyResponse' -instance Hashable PutRetentionPolicy+instance Hashable PutRetentionPolicy where -instance NFData PutRetentionPolicy+instance NFData PutRetentionPolicy where  instance ToHeaders PutRetentionPolicy where         toHeaders@@ -107,13 +107,15 @@  -- | /See:/ 'putRetentionPolicyResponse' smart constructor. data PutRetentionPolicyResponse =-    PutRetentionPolicyResponse'-    deriving (Eq,Read,Show,Data,Typeable,Generic)+  PutRetentionPolicyResponse'+  deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'PutRetentionPolicyResponse' with the minimum fields required to make a request. -- putRetentionPolicyResponse     :: PutRetentionPolicyResponse putRetentionPolicyResponse = PutRetentionPolicyResponse' -instance NFData PutRetentionPolicyResponse++instance NFData PutRetentionPolicyResponse where

@@ -12,9 +12,9 @@  -- | -- Module      : Network.AWS.CloudWatchLogs.PutSubscriptionFilter--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) --@@ -25,13 +25,13 @@ -- --     * A logical destination that belongs to a different account, for cross-account delivery. -----     * An Amazon Kinesis Firehose stream that belongs to the same account as the subscription filter, for same-account delivery.+--     * An Amazon Kinesis Firehose delivery stream that belongs to the same account as the subscription filter, for same-account delivery. -- --     * An AWS Lambda function that belongs to the same account as the subscription filter, for same-account delivery. -- -- ----- There can only be one subscription filter associated with a log group.+-- There can only be one subscription filter associated with a log group. 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. -- module Network.AWS.CloudWatchLogs.PutSubscriptionFilter     (@@ -39,6 +39,7 @@       putSubscriptionFilter     , PutSubscriptionFilter     -- * Request Lenses+    , psfDistribution     , psfRoleARN     , psfLogGroupName     , psfFilterName@@ -50,35 +51,39 @@     , PutSubscriptionFilterResponse     ) where -import           Network.AWS.CloudWatchLogs.Types-import           Network.AWS.CloudWatchLogs.Types.Product-import           Network.AWS.Lens-import           Network.AWS.Prelude-import           Network.AWS.Request-import           Network.AWS.Response+import Network.AWS.CloudWatchLogs.Types+import Network.AWS.CloudWatchLogs.Types.Product+import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response  -- | /See:/ 'putSubscriptionFilter' smart constructor. data PutSubscriptionFilter = PutSubscriptionFilter'-    { _psfRoleARN        :: !(Maybe Text)-    , _psfLogGroupName   :: !Text-    , _psfFilterName     :: !Text-    , _psfFilterPattern  :: !Text-    , _psfDestinationARN :: !Text-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _psfDistribution   :: !(Maybe Distribution)+  , _psfRoleARN        :: !(Maybe Text)+  , _psfLogGroupName   :: !Text+  , _psfFilterName     :: !Text+  , _psfFilterPattern  :: !Text+  , _psfDestinationARN :: !Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'PutSubscriptionFilter' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: --+-- * 'psfDistribution' - 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.+-- -- * 'psfRoleARN' - 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. -- -- * 'psfLogGroupName' - The name of the log group. ----- * 'psfFilterName' - A name for the subscription filter.+-- * 'psfFilterName' - 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' . -- -- * 'psfFilterPattern' - A filter pattern for subscribing to a filtered stream of log events. ----- * 'psfDestinationARN' - 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 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' - 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. putSubscriptionFilter     :: Text -- ^ 'psfLogGroupName'     -> Text -- ^ 'psfFilterName'@@ -86,14 +91,20 @@     -> Text -- ^ 'psfDestinationARN'     -> PutSubscriptionFilter putSubscriptionFilter pLogGroupName_ pFilterName_ pFilterPattern_ pDestinationARN_ =-    PutSubscriptionFilter'-    { _psfRoleARN = Nothing-    , _psfLogGroupName = pLogGroupName_-    , _psfFilterName = pFilterName_-    , _psfFilterPattern = pFilterPattern_-    , _psfDestinationARN = pDestinationARN_-    }+  PutSubscriptionFilter'+  { _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});+ -- | 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});@@ -102,7 +113,7 @@ psfLogGroupName :: Lens' PutSubscriptionFilter Text psfLogGroupName = lens _psfLogGroupName (\ s a -> s{_psfLogGroupName = a}); --- | A name for the subscription filter.+-- | 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}); @@ -110,7 +121,7 @@ psfFilterPattern :: Lens' PutSubscriptionFilter Text 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 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.+-- | 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}); @@ -120,9 +131,9 @@         request = postJSON cloudWatchLogs         response = receiveNull PutSubscriptionFilterResponse' -instance Hashable PutSubscriptionFilter+instance Hashable PutSubscriptionFilter where -instance NFData PutSubscriptionFilter+instance NFData PutSubscriptionFilter where  instance ToHeaders PutSubscriptionFilter where         toHeaders@@ -138,7 +149,8 @@         toJSON PutSubscriptionFilter'{..}           = object               (catMaybes-                 [("roleArn" .=) <$> _psfRoleARN,+                 [("distribution" .=) <$> _psfDistribution,+                  ("roleArn" .=) <$> _psfRoleARN,                   Just ("logGroupName" .= _psfLogGroupName),                   Just ("filterName" .= _psfFilterName),                   Just ("filterPattern" .= _psfFilterPattern),@@ -152,13 +164,15 @@  -- | /See:/ 'putSubscriptionFilterResponse' smart constructor. data PutSubscriptionFilterResponse =-    PutSubscriptionFilterResponse'-    deriving (Eq,Read,Show,Data,Typeable,Generic)+  PutSubscriptionFilterResponse'+  deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'PutSubscriptionFilterResponse' with the minimum fields required to make a request. -- putSubscriptionFilterResponse     :: PutSubscriptionFilterResponse putSubscriptionFilterResponse = PutSubscriptionFilterResponse' -instance NFData PutSubscriptionFilterResponse++instance NFData PutSubscriptionFilterResponse where

@@ -0,0 +1,122 @@+{-# LANGUAGE DeriveDataTypeable #-}+{-# LANGUAGE DeriveGeneric      #-}+{-# LANGUAGE OverloadedStrings  #-}+{-# LANGUAGE RecordWildCards    #-}+{-# LANGUAGE TypeFamilies       #-}++{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-binds   #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Network.AWS.CloudWatchLogs.TagLogGroup+-- Copyright   : (c) 2013-2017 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Adds or updates the specified tags for the specified log group.+--+--+-- To list the tags for a log group, use 'ListTagsLogGroup' . To remove tags, use 'UntagLogGroup' .+--+-- For more information about tags, see <http://docs.aws.amazon.com/AmazonCloudWatch/latest/logs/log-group-tagging.html Tag Log Groups in Amazon CloudWatch Logs> in the /Amazon CloudWatch Logs User Guide/ .+--+module Network.AWS.CloudWatchLogs.TagLogGroup+    (+    -- * Creating a Request+      tagLogGroup+    , TagLogGroup+    -- * Request Lenses+    , tlgLogGroupName+    , tlgTags++    -- * Destructuring the Response+    , tagLogGroupResponse+    , TagLogGroupResponse+    ) where++import Network.AWS.CloudWatchLogs.Types+import Network.AWS.CloudWatchLogs.Types.Product+import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response++-- | /See:/ 'tagLogGroup' smart constructor.+data TagLogGroup = TagLogGroup'+  { _tlgLogGroupName :: !Text+  , _tlgTags         :: !(Map Text Text)+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'TagLogGroup' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'tlgLogGroupName' - The name of the log group.+--+-- * 'tlgTags' - The key-value pairs to use for the tags.+tagLogGroup+    :: Text -- ^ 'tlgLogGroupName'+    -> TagLogGroup+tagLogGroup pLogGroupName_ =+  TagLogGroup' {_tlgLogGroupName = pLogGroupName_, _tlgTags = mempty}+++-- | The name of the log group.+tlgLogGroupName :: Lens' TagLogGroup Text+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;++instance AWSRequest TagLogGroup where+        type Rs TagLogGroup = TagLogGroupResponse+        request = postJSON cloudWatchLogs+        response = receiveNull TagLogGroupResponse'++instance Hashable TagLogGroup where++instance NFData TagLogGroup where++instance ToHeaders TagLogGroup where+        toHeaders+          = const+              (mconcat+                 ["X-Amz-Target" =#+                    ("Logs_20140328.TagLogGroup" :: ByteString),+                  "Content-Type" =#+                    ("application/x-amz-json-1.1" :: ByteString)])++instance ToJSON TagLogGroup where+        toJSON TagLogGroup'{..}+          = object+              (catMaybes+                 [Just ("logGroupName" .= _tlgLogGroupName),+                  Just ("tags" .= _tlgTags)])++instance ToPath TagLogGroup where+        toPath = const "/"++instance ToQuery TagLogGroup where+        toQuery = const mempty++-- | /See:/ 'tagLogGroupResponse' smart constructor.+data TagLogGroupResponse =+  TagLogGroupResponse'+  deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'TagLogGroupResponse' with the minimum fields required to make a request.+--+tagLogGroupResponse+    :: TagLogGroupResponse+tagLogGroupResponse = TagLogGroupResponse'+++instance NFData TagLogGroupResponse where

@@ -12,9 +12,9 @@  -- | -- Module      : Network.AWS.CloudWatchLogs.TestMetricFilter--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) --@@ -38,19 +38,20 @@     , tmfrsResponseStatus     ) where -import           Network.AWS.CloudWatchLogs.Types-import           Network.AWS.CloudWatchLogs.Types.Product-import           Network.AWS.Lens-import           Network.AWS.Prelude-import           Network.AWS.Request-import           Network.AWS.Response+import Network.AWS.CloudWatchLogs.Types+import Network.AWS.CloudWatchLogs.Types.Product+import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response  -- | /See:/ 'testMetricFilter' smart constructor. data TestMetricFilter = TestMetricFilter'-    { _tmfFilterPattern    :: !Text-    , _tmfLogEventMessages :: !(List1 Text)-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _tmfFilterPattern    :: !Text+  , _tmfLogEventMessages :: !(List1 Text)+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'TestMetricFilter' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -63,11 +64,12 @@     -> NonEmpty Text -- ^ 'tmfLogEventMessages'     -> TestMetricFilter testMetricFilter pFilterPattern_ pLogEventMessages_ =-    TestMetricFilter'-    { _tmfFilterPattern = pFilterPattern_-    , _tmfLogEventMessages = _List1 # pLogEventMessages_-    }+  TestMetricFilter'+  { _tmfFilterPattern = pFilterPattern_+  , _tmfLogEventMessages = _List1 # pLogEventMessages_+  } + -- | Undocumented member. tmfFilterPattern :: Lens' TestMetricFilter Text tmfFilterPattern = lens _tmfFilterPattern (\ s a -> s{_tmfFilterPattern = a});@@ -85,9 +87,9 @@                  TestMetricFilterResponse' <$>                    (x .?> "matches" .!@ mempty) <*> (pure (fromEnum s))) -instance Hashable TestMetricFilter+instance Hashable TestMetricFilter where -instance NFData TestMetricFilter+instance NFData TestMetricFilter where  instance ToHeaders TestMetricFilter where         toHeaders@@ -113,10 +115,11 @@  -- | /See:/ 'testMetricFilterResponse' smart constructor. data TestMetricFilterResponse = TestMetricFilterResponse'-    { _tmfrsMatches        :: !(Maybe [MetricFilterMatchRecord])-    , _tmfrsResponseStatus :: !Int-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _tmfrsMatches        :: !(Maybe [MetricFilterMatchRecord])+  , _tmfrsResponseStatus :: !Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'TestMetricFilterResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -128,11 +131,10 @@     :: Int -- ^ 'tmfrsResponseStatus'     -> TestMetricFilterResponse testMetricFilterResponse pResponseStatus_ =-    TestMetricFilterResponse'-    { _tmfrsMatches = Nothing-    , _tmfrsResponseStatus = pResponseStatus_-    }+  TestMetricFilterResponse'+  {_tmfrsMatches = Nothing, _tmfrsResponseStatus = pResponseStatus_} + -- | The matched events. tmfrsMatches :: Lens' TestMetricFilterResponse [MetricFilterMatchRecord] tmfrsMatches = lens _tmfrsMatches (\ s a -> s{_tmfrsMatches = a}) . _Default . _Coerce;@@ -141,4 +143,4 @@ tmfrsResponseStatus :: Lens' TestMetricFilterResponse Int tmfrsResponseStatus = lens _tmfrsResponseStatus (\ s a -> s{_tmfrsResponseStatus = a}); -instance NFData TestMetricFilterResponse+instance NFData TestMetricFilterResponse where

@@ -4,9 +4,9 @@  -- | -- Module      : Network.AWS.CloudWatchLogs.Types--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) --@@ -26,6 +26,9 @@     , _ResourceNotFoundException     , _LimitExceededException +    -- * Distribution+    , Distribution (..)+     -- * ExportTaskStatusCode     , ExportTaskStatusCode (..) @@ -90,6 +93,7 @@     , lgArn     , lgLogGroupName     , lgRetentionInDays+    , lgKmsKeyId     , lgStoredBytes      -- * LogStream@@ -142,6 +146,13 @@     , rleiTooNewLogEventStartIndex     , rleiExpiredLogEventEndIndex +    -- * ResourcePolicy+    , ResourcePolicy+    , resourcePolicy+    , rpPolicyName+    , rpPolicyDocument+    , rpLastUpdatedTime+     -- * SearchedLogStream     , SearchedLogStream     , searchedLogStream@@ -153,44 +164,47 @@     , subscriptionFilter     , sfCreationTime     , sfFilterName+    , sfDistribution     , sfDestinationARN     , sfLogGroupName     , sfFilterPattern     , sfRoleARN     ) where -import           Network.AWS.CloudWatchLogs.Types.Product-import           Network.AWS.CloudWatchLogs.Types.Sum-import           Network.AWS.Lens-import           Network.AWS.Prelude-import           Network.AWS.Sign.V4+import Network.AWS.CloudWatchLogs.Types.Product+import Network.AWS.CloudWatchLogs.Types.Sum+import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Sign.V4  -- | API version @2014-03-28@ of the Amazon CloudWatch Logs SDK configuration. 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-    }+  Service+  { _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-        }+      Exponential+      { _retryBase = 5.0e-2+      , _retryGrowth = 2+      , _retryAttempts = 5+      , _retryCheck = check+      }     check e+      | has (hasCode "ThrottledException" . hasStatus 400) e =+        Just "throttled_exception"       | has (hasStatus 429) e = Just "too_many_requests"       | has (hasCode "ThrottlingException" . hasStatus 400) e =-          Just "throttling_exception"+        Just "throttling_exception"       | has (hasCode "Throttling" . hasStatus 400) e = Just "throttling"       | has (hasStatus 504) e = Just "gateway_timeout"       | has (hasStatus 502) e = Just "bad_gateway"@@ -199,64 +213,75 @@       | has (hasStatus 509) e = Just "limit_exceeded"       | otherwise = Nothing + -- | A parameter is specified incorrectly. -- -- _InvalidParameterException :: AsError a => Getting (First ServiceError) a ServiceError _InvalidParameterException =-    _ServiceError . hasCode "InvalidParameterException"+  _MatchServiceError cloudWatchLogs "InvalidParameterException" + -- | The sequence token is not valid. -- -- _InvalidSequenceTokenException :: AsError a => Getting (First ServiceError) a ServiceError _InvalidSequenceTokenException =-    _ServiceError . hasCode "InvalidSequenceTokenException"+  _MatchServiceError cloudWatchLogs "InvalidSequenceTokenException" + -- | The specified resource already exists. -- -- _ResourceAlreadyExistsException :: AsError a => Getting (First ServiceError) a ServiceError _ResourceAlreadyExistsException =-    _ServiceError . hasCode "ResourceAlreadyExistsException"+  _MatchServiceError cloudWatchLogs "ResourceAlreadyExistsException" + -- | Multiple requests to update the same resource were in conflict. -- -- _OperationAbortedException :: AsError a => Getting (First ServiceError) a ServiceError _OperationAbortedException =-    _ServiceError . hasCode "OperationAbortedException"+  _MatchServiceError cloudWatchLogs "OperationAbortedException" + -- | The service cannot complete the request. -- -- _ServiceUnavailableException :: AsError a => Getting (First ServiceError) a ServiceError _ServiceUnavailableException =-    _ServiceError . hasCode "ServiceUnavailableException"+  _MatchServiceError cloudWatchLogs "ServiceUnavailableException" + -- | The event was already logged. -- -- _DataAlreadyAcceptedException :: AsError a => Getting (First ServiceError) a ServiceError _DataAlreadyAcceptedException =-    _ServiceError . hasCode "DataAlreadyAcceptedException"+  _MatchServiceError cloudWatchLogs "DataAlreadyAcceptedException" + -- | The operation is not valid on the specified resource. -- -- _InvalidOperationException :: AsError a => Getting (First ServiceError) a ServiceError _InvalidOperationException =-    _ServiceError . hasCode "InvalidOperationException"+  _MatchServiceError cloudWatchLogs "InvalidOperationException" + -- | The specified resource does not exist. -- -- _ResourceNotFoundException :: AsError a => Getting (First ServiceError) a ServiceError _ResourceNotFoundException =-    _ServiceError . hasCode "ResourceNotFoundException"+  _MatchServiceError cloudWatchLogs "ResourceNotFoundException" + -- | You have reached the maximum number of resources that can be created. -- -- _LimitExceededException :: AsError a => Getting (First ServiceError) a ServiceError-_LimitExceededException = _ServiceError . hasCode "LimitExceededException"+_LimitExceededException =+  _MatchServiceError cloudWatchLogs "LimitExceededException"+

@@ -9,17 +9,17 @@  -- | -- Module      : Network.AWS.CloudWatchLogs.Types.Product--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) -- module Network.AWS.CloudWatchLogs.Types.Product where -import           Network.AWS.CloudWatchLogs.Types.Sum-import           Network.AWS.Lens-import           Network.AWS.Prelude+import Network.AWS.CloudWatchLogs.Types.Sum+import Network.AWS.Lens+import Network.AWS.Prelude  -- | Represents a cross-account destination that receives subscription log events. --@@ -27,21 +27,22 @@ -- -- /See:/ 'destination' smart constructor. data Destination = Destination'-    { _dTargetARN       :: !(Maybe Text)-    , _dCreationTime    :: !(Maybe Nat)-    , _dArn             :: !(Maybe Text)-    , _dAccessPolicy    :: !(Maybe Text)-    , _dDestinationName :: !(Maybe Text)-    , _dRoleARN         :: !(Maybe Text)-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _dTargetARN       :: !(Maybe Text)+  , _dCreationTime    :: !(Maybe Nat)+  , _dArn             :: !(Maybe Text)+  , _dAccessPolicy    :: !(Maybe Text)+  , _dDestinationName :: !(Maybe Text)+  , _dRoleARN         :: !(Maybe Text)+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'Destination' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: ----- * 'dTargetARN' - The Amazon Resource Name (ARN) of the physical target where the log events will be delivered (for example, a Kinesis stream).+-- * 'dTargetARN' - The Amazon Resource Name (ARN) of the physical target to where the log events are delivered (for example, a Kinesis stream). ----- * 'dCreationTime' - The creation time of the destination.+-- * 'dCreationTime' - The creation time of the destination, expressed as the number of milliseconds after Jan 1, 1970 00:00:00 UTC. -- -- * 'dArn' - The ARN of this destination. --@@ -53,20 +54,21 @@ destination     :: Destination destination =-    Destination'-    { _dTargetARN = Nothing-    , _dCreationTime = Nothing-    , _dArn = Nothing-    , _dAccessPolicy = Nothing-    , _dDestinationName = Nothing-    , _dRoleARN = Nothing-    }+  Destination'+  { _dTargetARN = Nothing+  , _dCreationTime = Nothing+  , _dArn = Nothing+  , _dAccessPolicy = Nothing+  , _dDestinationName = Nothing+  , _dRoleARN = Nothing+  } --- | The Amazon Resource Name (ARN) of the physical target where the log events will be delivered (for example, a Kinesis stream).++-- | 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}); --- | The creation time of the destination.+-- | 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; @@ -97,9 +99,9 @@                      <*> (x .:? "destinationName")                      <*> (x .:? "roleArn")) -instance Hashable Destination+instance Hashable Destination where -instance NFData Destination+instance NFData Destination where  -- | Represents an export task. --@@ -107,17 +109,18 @@ -- -- /See:/ 'exportTask' smart constructor. data ExportTask = ExportTask'-    { _etDestinationPrefix :: !(Maybe Text)-    , _etDestination       :: !(Maybe Text)-    , _etStatus            :: !(Maybe ExportTaskStatus)-    , _etTaskName          :: !(Maybe Text)-    , _etTaskId            :: !(Maybe Text)-    , _etTo                :: !(Maybe Nat)-    , _etFrom              :: !(Maybe Nat)-    , _etLogGroupName      :: !(Maybe Text)-    , _etExecutionInfo     :: !(Maybe ExportTaskExecutionInfo)-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _etDestinationPrefix :: !(Maybe Text)+  , _etDestination       :: !(Maybe Text)+  , _etStatus            :: !(Maybe ExportTaskStatus)+  , _etTaskName          :: !(Maybe Text)+  , _etTaskId            :: !(Maybe Text)+  , _etTo                :: !(Maybe Nat)+  , _etFrom              :: !(Maybe Nat)+  , _etLogGroupName      :: !(Maybe Text)+  , _etExecutionInfo     :: !(Maybe ExportTaskExecutionInfo)+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'ExportTask' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -132,9 +135,9 @@ -- -- * 'etTaskId' - The ID of the export task. ----- * 'etTo' - The end time. Events with a timestamp later than this time are not exported.+-- * 'etTo' - 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. ----- * 'etFrom' - The start time. Events with a timestamp prior to this time are not exported.+-- * 'etFrom' - 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. -- -- * 'etLogGroupName' - The name of the log group from which logs data was exported. --@@ -142,18 +145,19 @@ exportTask     :: ExportTask exportTask =-    ExportTask'-    { _etDestinationPrefix = Nothing-    , _etDestination = Nothing-    , _etStatus = Nothing-    , _etTaskName = Nothing-    , _etTaskId = Nothing-    , _etTo = Nothing-    , _etFrom = Nothing-    , _etLogGroupName = Nothing-    , _etExecutionInfo = Nothing-    }+  ExportTask'+  { _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});@@ -174,11 +178,11 @@ etTaskId :: Lens' ExportTask (Maybe Text) etTaskId = lens _etTaskId (\ s a -> s{_etTaskId = a}); --- | The end time. Events with a timestamp later than this time are not exported.+-- | 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; --- | The start time. Events with a timestamp prior to this time are not exported.+-- | 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; @@ -204,9 +208,9 @@                      <*> (x .:? "logGroupName")                      <*> (x .:? "executionInfo")) -instance Hashable ExportTask+instance Hashable ExportTask where -instance NFData ExportTask+instance NFData ExportTask where  -- | Represents the status of an export task. --@@ -214,30 +218,30 @@ -- -- /See:/ 'exportTaskExecutionInfo' smart constructor. data ExportTaskExecutionInfo = ExportTaskExecutionInfo'-    { _eteiCreationTime   :: !(Maybe Nat)-    , _eteiCompletionTime :: !(Maybe Nat)-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _eteiCreationTime   :: !(Maybe Nat)+  , _eteiCompletionTime :: !(Maybe Nat)+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'ExportTaskExecutionInfo' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: ----- * 'eteiCreationTime' - The creation time of the export task.+-- * 'eteiCreationTime' - The creation time of the export task, expressed as the number of milliseconds after Jan 1, 1970 00:00:00 UTC. ----- * 'eteiCompletionTime' - The completion time of the export task.+-- * 'eteiCompletionTime' - The completion time of the export task, expressed as the number of milliseconds after Jan 1, 1970 00:00:00 UTC. exportTaskExecutionInfo     :: ExportTaskExecutionInfo exportTaskExecutionInfo =-    ExportTaskExecutionInfo'-    { _eteiCreationTime = Nothing-    , _eteiCompletionTime = Nothing-    }+  ExportTaskExecutionInfo'+  {_eteiCreationTime = Nothing, _eteiCompletionTime = Nothing} --- | The creation time of the export task.++-- | 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; --- | The completion time of the export task.+-- | 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; @@ -248,9 +252,9 @@                  ExportTaskExecutionInfo' <$>                    (x .:? "creationTime") <*> (x .:? "completionTime")) -instance Hashable ExportTaskExecutionInfo+instance Hashable ExportTaskExecutionInfo where -instance NFData ExportTaskExecutionInfo+instance NFData ExportTaskExecutionInfo where  -- | Represents the status of an export task. --@@ -258,10 +262,11 @@ -- -- /See:/ 'exportTaskStatus' smart constructor. data ExportTaskStatus = ExportTaskStatus'-    { _etsCode    :: !(Maybe ExportTaskStatusCode)-    , _etsMessage :: !(Maybe Text)-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _etsCode    :: !(Maybe ExportTaskStatusCode)+  , _etsMessage :: !(Maybe Text)+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'ExportTaskStatus' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -271,12 +276,9 @@ -- * 'etsMessage' - The status message related to the status code. exportTaskStatus     :: ExportTaskStatus-exportTaskStatus =-    ExportTaskStatus'-    { _etsCode = Nothing-    , _etsMessage = Nothing-    }+exportTaskStatus = ExportTaskStatus' {_etsCode = Nothing, _etsMessage = Nothing} + -- | The status code of the export task. etsCode :: Lens' ExportTaskStatus (Maybe ExportTaskStatusCode) etsCode = lens _etsCode (\ s a -> s{_etsCode = a});@@ -292,9 +294,9 @@                  ExportTaskStatus' <$>                    (x .:? "code") <*> (x .:? "message")) -instance Hashable ExportTaskStatus+instance Hashable ExportTaskStatus where -instance NFData ExportTaskStatus+instance NFData ExportTaskStatus where  -- | Represents a matched event. --@@ -302,38 +304,40 @@ -- -- /See:/ 'filteredLogEvent' smart constructor. data FilteredLogEvent = FilteredLogEvent'-    { _fleIngestionTime :: !(Maybe Nat)-    , _fleLogStreamName :: !(Maybe Text)-    , _fleMessage       :: !(Maybe Text)-    , _fleTimestamp     :: !(Maybe Nat)-    , _fleEventId       :: !(Maybe Text)-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _fleIngestionTime :: !(Maybe Nat)+  , _fleLogStreamName :: !(Maybe Text)+  , _fleMessage       :: !(Maybe Text)+  , _fleTimestamp     :: !(Maybe Nat)+  , _fleEventId       :: !(Maybe Text)+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'FilteredLogEvent' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: ----- * 'fleIngestionTime' - The time the event was ingested.+-- * 'fleIngestionTime' - The time the event was ingested, expressed as the number of milliseconds after Jan 1, 1970 00:00:00 UTC. -- -- * 'fleLogStreamName' - The name of the log stream this event belongs to. -- -- * 'fleMessage' - The data contained in the log event. ----- * 'fleTimestamp' - The time the event occurred.+-- * 'fleTimestamp' - The time the event occurred, expressed as the number of milliseconds after Jan 1, 1970 00:00:00 UTC. -- -- * 'fleEventId' - The ID of the event. filteredLogEvent     :: FilteredLogEvent filteredLogEvent =-    FilteredLogEvent'-    { _fleIngestionTime = Nothing-    , _fleLogStreamName = Nothing-    , _fleMessage = Nothing-    , _fleTimestamp = Nothing-    , _fleEventId = Nothing-    }+  FilteredLogEvent'+  { _fleIngestionTime = Nothing+  , _fleLogStreamName = Nothing+  , _fleMessage = Nothing+  , _fleTimestamp = Nothing+  , _fleEventId = Nothing+  } --- | The time the event was ingested.++-- | 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; @@ -345,7 +349,7 @@ fleMessage :: Lens' FilteredLogEvent (Maybe Text) fleMessage = lens _fleMessage (\ s a -> s{_fleMessage = a}); --- | The time the event occurred.+-- | 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; @@ -363,9 +367,9 @@                      <*> (x .:? "timestamp")                      <*> (x .:? "eventId")) -instance Hashable FilteredLogEvent+instance Hashable FilteredLogEvent where -instance NFData FilteredLogEvent+instance NFData FilteredLogEvent where  -- | Represents a log event, which is a record of activity that was recorded by the application or resource being monitored. --@@ -373,15 +377,16 @@ -- -- /See:/ 'inputLogEvent' smart constructor. data InputLogEvent = InputLogEvent'-    { _ileTimestamp :: !Nat-    , _ileMessage   :: !Text-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _ileTimestamp :: !Nat+  , _ileMessage   :: !Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'InputLogEvent' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: ----- * 'ileTimestamp' - The time the event occurred.+-- * 'ileTimestamp' - The time the event occurred, expressed as the number of milliseconds fter Jan 1, 1970 00:00:00 UTC. -- -- * 'ileMessage' - The raw event message. inputLogEvent@@ -389,12 +394,10 @@     -> Text -- ^ 'ileMessage'     -> InputLogEvent inputLogEvent pTimestamp_ pMessage_ =-    InputLogEvent'-    { _ileTimestamp = _Nat # pTimestamp_-    , _ileMessage = pMessage_-    }+  InputLogEvent' {_ileTimestamp = _Nat # pTimestamp_, _ileMessage = pMessage_} --- | The time the event occurred.++-- | 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; @@ -402,9 +405,9 @@ ileMessage :: Lens' InputLogEvent Text ileMessage = lens _ileMessage (\ s a -> s{_ileMessage = a}); -instance Hashable InputLogEvent+instance Hashable InputLogEvent where -instance NFData InputLogEvent+instance NFData InputLogEvent where  instance ToJSON InputLogEvent where         toJSON InputLogEvent'{..}@@ -419,19 +422,21 @@ -- -- /See:/ 'logGroup' smart constructor. data LogGroup = LogGroup'-    { _lgCreationTime      :: !(Maybe Nat)-    , _lgMetricFilterCount :: !(Maybe Int)-    , _lgArn               :: !(Maybe Text)-    , _lgLogGroupName      :: !(Maybe Text)-    , _lgRetentionInDays   :: !(Maybe Int)-    , _lgStoredBytes       :: !(Maybe Nat)-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _lgCreationTime      :: !(Maybe Nat)+  , _lgMetricFilterCount :: !(Maybe Int)+  , _lgArn               :: !(Maybe Text)+  , _lgLogGroupName      :: !(Maybe Text)+  , _lgRetentionInDays   :: !(Maybe Int)+  , _lgKmsKeyId          :: !(Maybe Text)+  , _lgStoredBytes       :: !(Maybe Nat)+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'LogGroup' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: ----- * 'lgCreationTime' - The creation time of the log group.+-- * 'lgCreationTime' - The creation time of the log group, expressed as the number of milliseconds after Jan 1, 1970 00:00:00 UTC. -- -- * 'lgMetricFilterCount' - The number of metric filters. --@@ -441,20 +446,24 @@ -- -- * 'lgRetentionInDays' - Undocumented member. --+-- * 'lgKmsKeyId' - The Amazon Resource Name (ARN) of the CMK to use when encrypting log data.+-- -- * 'lgStoredBytes' - The number of bytes stored. logGroup     :: LogGroup logGroup =-    LogGroup'-    { _lgCreationTime = Nothing-    , _lgMetricFilterCount = Nothing-    , _lgArn = Nothing-    , _lgLogGroupName = Nothing-    , _lgRetentionInDays = Nothing-    , _lgStoredBytes = Nothing-    }+  LogGroup'+  { _lgCreationTime = Nothing+  , _lgMetricFilterCount = Nothing+  , _lgArn = Nothing+  , _lgLogGroupName = Nothing+  , _lgRetentionInDays = Nothing+  , _lgKmsKeyId = Nothing+  , _lgStoredBytes = Nothing+  } --- | The creation time of the log group.++-- | 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; @@ -474,6 +483,10 @@ lgRetentionInDays :: Lens' LogGroup (Maybe Int) 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});+ -- | The number of bytes stored. lgStoredBytes :: Lens' LogGroup (Maybe Natural) lgStoredBytes = lens _lgStoredBytes (\ s a -> s{_lgStoredBytes = a}) . mapping _Nat;@@ -488,11 +501,12 @@                      <*> (x .:? "arn")                      <*> (x .:? "logGroupName")                      <*> (x .:? "retentionInDays")+                     <*> (x .:? "kmsKeyId")                      <*> (x .:? "storedBytes")) -instance Hashable LogGroup+instance Hashable LogGroup where -instance NFData LogGroup+instance NFData LogGroup where  -- | Represents a log stream, which is a sequence of log events from a single emitter of logs. --@@ -500,50 +514,52 @@ -- -- /See:/ 'logStream' smart constructor. data LogStream = LogStream'-    { _lsCreationTime        :: !(Maybe Nat)-    , _lsUploadSequenceToken :: !(Maybe Text)-    , _lsArn                 :: !(Maybe Text)-    , _lsFirstEventTimestamp :: !(Maybe Nat)-    , _lsLogStreamName       :: !(Maybe Text)-    , _lsStoredBytes         :: !(Maybe Nat)-    , _lsLastIngestionTime   :: !(Maybe Nat)-    , _lsLastEventTimestamp  :: !(Maybe Nat)-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _lsCreationTime        :: !(Maybe Nat)+  , _lsUploadSequenceToken :: !(Maybe Text)+  , _lsArn                 :: !(Maybe Text)+  , _lsFirstEventTimestamp :: !(Maybe Nat)+  , _lsLogStreamName       :: !(Maybe Text)+  , _lsStoredBytes         :: !(Maybe Nat)+  , _lsLastIngestionTime   :: !(Maybe Nat)+  , _lsLastEventTimestamp  :: !(Maybe Nat)+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'LogStream' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: ----- * 'lsCreationTime' - The creation time of the stream.+-- * 'lsCreationTime' - The creation time of the stream, expressed as the number of milliseconds after Jan 1, 1970 00:00:00 UTC. -- -- * 'lsUploadSequenceToken' - The sequence token. -- -- * 'lsArn' - The Amazon Resource Name (ARN) of the log stream. ----- * 'lsFirstEventTimestamp' - The time of the first event.+-- * 'lsFirstEventTimestamp' - The time of the first event, expressed as the number of milliseconds after Jan 1, 1970 00:00:00 UTC. -- -- * 'lsLogStreamName' - The name of the log stream. -- -- * 'lsStoredBytes' - The number of bytes stored. ----- * 'lsLastIngestionTime' - The ingestion time.+-- * 'lsLastIngestionTime' - The ingestion time, expressed as the number of milliseconds after Jan 1, 1970 00:00:00 UTC. ----- * 'lsLastEventTimestamp' - The time of the last event.+-- * 'lsLastEventTimestamp' - 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. logStream     :: LogStream logStream =-    LogStream'-    { _lsCreationTime = Nothing-    , _lsUploadSequenceToken = Nothing-    , _lsArn = Nothing-    , _lsFirstEventTimestamp = Nothing-    , _lsLogStreamName = Nothing-    , _lsStoredBytes = Nothing-    , _lsLastIngestionTime = Nothing-    , _lsLastEventTimestamp = Nothing-    }+  LogStream'+  { _lsCreationTime = Nothing+  , _lsUploadSequenceToken = Nothing+  , _lsArn = Nothing+  , _lsFirstEventTimestamp = Nothing+  , _lsLogStreamName = Nothing+  , _lsStoredBytes = Nothing+  , _lsLastIngestionTime = Nothing+  , _lsLastEventTimestamp = Nothing+  } --- | The creation time of the stream.++-- | 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; @@ -555,7 +571,7 @@ lsArn :: Lens' LogStream (Maybe Text) lsArn = lens _lsArn (\ s a -> s{_lsArn = a}); --- | The time of the first event.+-- | 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; @@ -567,11 +583,11 @@ lsStoredBytes :: Lens' LogStream (Maybe Natural) lsStoredBytes = lens _lsStoredBytes (\ s a -> s{_lsStoredBytes = a}) . mapping _Nat; --- | The ingestion time.+-- | 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; --- | The time of the last event.+-- | 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; @@ -589,9 +605,9 @@                      <*> (x .:? "lastIngestionTime")                      <*> (x .:? "lastEventTimestamp")) -instance Hashable LogStream+instance Hashable LogStream where -instance NFData LogStream+instance NFData LogStream where  -- | Metric filters express how CloudWatch Logs would extract metric observations from ingested log events and transform them into metric data in a CloudWatch metric. --@@ -599,18 +615,19 @@ -- -- /See:/ 'metricFilter' smart constructor. data MetricFilter = MetricFilter'-    { _mfCreationTime          :: !(Maybe Nat)-    , _mfFilterName            :: !(Maybe Text)-    , _mfLogGroupName          :: !(Maybe Text)-    , _mfFilterPattern         :: !(Maybe Text)-    , _mfMetricTransformations :: !(Maybe (List1 MetricTransformation))-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _mfCreationTime          :: !(Maybe Nat)+  , _mfFilterName            :: !(Maybe Text)+  , _mfLogGroupName          :: !(Maybe Text)+  , _mfFilterPattern         :: !(Maybe Text)+  , _mfMetricTransformations :: !(Maybe (List1 MetricTransformation))+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'MetricFilter' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: ----- * 'mfCreationTime' - The creation time of the metric filter.+-- * 'mfCreationTime' - The creation time of the metric filter, expressed as the number of milliseconds after Jan 1, 1970 00:00:00 UTC. -- -- * 'mfFilterName' - The name of the metric filter. --@@ -622,15 +639,16 @@ metricFilter     :: MetricFilter metricFilter =-    MetricFilter'-    { _mfCreationTime = Nothing-    , _mfFilterName = Nothing-    , _mfLogGroupName = Nothing-    , _mfFilterPattern = Nothing-    , _mfMetricTransformations = Nothing-    }+  MetricFilter'+  { _mfCreationTime = Nothing+  , _mfFilterName = Nothing+  , _mfLogGroupName = Nothing+  , _mfFilterPattern = Nothing+  , _mfMetricTransformations = Nothing+  } --- | The creation time of the metric filter.++-- | 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; @@ -660,9 +678,9 @@                      <*> (x .:? "filterPattern")                      <*> (x .:? "metricTransformations")) -instance Hashable MetricFilter+instance Hashable MetricFilter where -instance NFData MetricFilter+instance NFData MetricFilter where  -- | Represents a matched event. --@@ -670,11 +688,12 @@ -- -- /See:/ 'metricFilterMatchRecord' smart constructor. data MetricFilterMatchRecord = MetricFilterMatchRecord'-    { _mfmrExtractedValues :: !(Maybe (Map Text Text))-    , _mfmrEventNumber     :: !(Maybe Integer)-    , _mfmrEventMessage    :: !(Maybe Text)-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _mfmrExtractedValues :: !(Maybe (Map Text Text))+  , _mfmrEventNumber     :: !(Maybe Integer)+  , _mfmrEventMessage    :: !(Maybe Text)+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'MetricFilterMatchRecord' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -687,12 +706,13 @@ metricFilterMatchRecord     :: MetricFilterMatchRecord metricFilterMatchRecord =-    MetricFilterMatchRecord'-    { _mfmrExtractedValues = Nothing-    , _mfmrEventNumber = Nothing-    , _mfmrEventMessage = Nothing-    }+  MetricFilterMatchRecord'+  { _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;@@ -714,22 +734,23 @@                      (x .:? "eventNumber")                      <*> (x .:? "eventMessage")) -instance Hashable MetricFilterMatchRecord+instance Hashable MetricFilterMatchRecord where -instance NFData MetricFilterMatchRecord+instance NFData MetricFilterMatchRecord where --- | Indicates how to transform ingested log events into metric data in a CloudWatch metric.+-- | Indicates how to transform ingested log events in to metric data in a CloudWatch metric. -- -- -- -- /See:/ 'metricTransformation' smart constructor. data MetricTransformation = MetricTransformation'-    { _mtDefaultValue    :: !(Maybe Double)-    , _mtMetricName      :: !Text-    , _mtMetricNamespace :: !Text-    , _mtMetricValue     :: !Text-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _mtDefaultValue    :: !(Maybe Double)+  , _mtMetricName      :: !Text+  , _mtMetricNamespace :: !Text+  , _mtMetricValue     :: !Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'MetricTransformation' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -747,13 +768,14 @@     -> Text -- ^ 'mtMetricValue'     -> MetricTransformation metricTransformation pMetricName_ pMetricNamespace_ pMetricValue_ =-    MetricTransformation'-    { _mtDefaultValue = Nothing-    , _mtMetricName = pMetricName_-    , _mtMetricNamespace = pMetricNamespace_-    , _mtMetricValue = pMetricValue_-    }+  MetricTransformation'+  { _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});@@ -779,9 +801,9 @@                      (x .: "metricNamespace")                      <*> (x .: "metricValue")) -instance Hashable MetricTransformation+instance Hashable MetricTransformation where -instance NFData MetricTransformation+instance NFData MetricTransformation where  instance ToJSON MetricTransformation where         toJSON MetricTransformation'{..}@@ -798,30 +820,29 @@ -- -- /See:/ 'outputLogEvent' smart constructor. data OutputLogEvent = OutputLogEvent'-    { _oleIngestionTime :: !(Maybe Nat)-    , _oleMessage       :: !(Maybe Text)-    , _oleTimestamp     :: !(Maybe Nat)-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _oleIngestionTime :: !(Maybe Nat)+  , _oleMessage       :: !(Maybe Text)+  , _oleTimestamp     :: !(Maybe Nat)+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'OutputLogEvent' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: ----- * 'oleIngestionTime' - The time the event was ingested.+-- * 'oleIngestionTime' - The time the event was ingested, expressed as the number of milliseconds after Jan 1, 1970 00:00:00 UTC. -- -- * 'oleMessage' - The data contained in the log event. ----- * 'oleTimestamp' - The time the event occurred.+-- * 'oleTimestamp' - The time the event occurred, expressed as the number of milliseconds after Jan 1, 1970 00:00:00 UTC. outputLogEvent     :: OutputLogEvent outputLogEvent =-    OutputLogEvent'-    { _oleIngestionTime = Nothing-    , _oleMessage = Nothing-    , _oleTimestamp = Nothing-    }+  OutputLogEvent'+  {_oleIngestionTime = Nothing, _oleMessage = Nothing, _oleTimestamp = Nothing} --- | The time the event was ingested.++-- | 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; @@ -829,7 +850,7 @@ oleMessage :: Lens' OutputLogEvent (Maybe Text) oleMessage = lens _oleMessage (\ s a -> s{_oleMessage = a}); --- | The time the event occurred.+-- | 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; @@ -841,9 +862,9 @@                    (x .:? "ingestionTime") <*> (x .:? "message") <*>                      (x .:? "timestamp")) -instance Hashable OutputLogEvent+instance Hashable OutputLogEvent where -instance NFData OutputLogEvent+instance NFData OutputLogEvent where  -- | Represents the rejected events. --@@ -851,11 +872,12 @@ -- -- /See:/ 'rejectedLogEventsInfo' smart constructor. data RejectedLogEventsInfo = RejectedLogEventsInfo'-    { _rleiTooOldLogEventEndIndex   :: !(Maybe Int)-    , _rleiTooNewLogEventStartIndex :: !(Maybe Int)-    , _rleiExpiredLogEventEndIndex  :: !(Maybe Int)-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _rleiTooOldLogEventEndIndex   :: !(Maybe Int)+  , _rleiTooNewLogEventStartIndex :: !(Maybe Int)+  , _rleiExpiredLogEventEndIndex  :: !(Maybe Int)+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'RejectedLogEventsInfo' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -868,12 +890,13 @@ rejectedLogEventsInfo     :: RejectedLogEventsInfo rejectedLogEventsInfo =-    RejectedLogEventsInfo'-    { _rleiTooOldLogEventEndIndex = Nothing-    , _rleiTooNewLogEventStartIndex = Nothing-    , _rleiExpiredLogEventEndIndex = Nothing-    }+  RejectedLogEventsInfo'+  { _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});@@ -895,20 +918,76 @@                      (x .:? "tooNewLogEventStartIndex")                      <*> (x .:? "expiredLogEventEndIndex")) -instance Hashable RejectedLogEventsInfo+instance Hashable RejectedLogEventsInfo where -instance NFData RejectedLogEventsInfo+instance NFData RejectedLogEventsInfo where +-- | A policy enabling one or more entities to put logs to a log group in this account.+--+--+--+-- /See:/ 'resourcePolicy' smart constructor.+data ResourcePolicy = ResourcePolicy'+  { _rpPolicyName      :: !(Maybe Text)+  , _rpPolicyDocument  :: !(Maybe Text)+  , _rpLastUpdatedTime :: !(Maybe Nat)+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'ResourcePolicy' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'rpPolicyName' - The name of the resource policy.+--+-- * 'rpPolicyDocument' - The details of the policy.+--+-- * 'rpLastUpdatedTime' - Time stamp showing when this policy was last updated, expressed as the number of milliseconds after Jan 1, 1970 00:00:00 UTC.+resourcePolicy+    :: ResourcePolicy+resourcePolicy =+  ResourcePolicy'+  { _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});++-- | The details of the policy.+rpPolicyDocument :: Lens' ResourcePolicy (Maybe Text)+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;++instance FromJSON ResourcePolicy where+        parseJSON+          = withObject "ResourcePolicy"+              (\ x ->+                 ResourcePolicy' <$>+                   (x .:? "policyName") <*> (x .:? "policyDocument") <*>+                     (x .:? "lastUpdatedTime"))++instance Hashable ResourcePolicy where++instance NFData ResourcePolicy where+ -- | Represents the search status of a log stream. -- -- -- -- /See:/ 'searchedLogStream' smart constructor. data SearchedLogStream = SearchedLogStream'-    { _slsLogStreamName      :: !(Maybe Text)-    , _slsSearchedCompletely :: !(Maybe Bool)-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _slsLogStreamName      :: !(Maybe Text)+  , _slsSearchedCompletely :: !(Maybe Bool)+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'SearchedLogStream' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -919,11 +998,10 @@ searchedLogStream     :: SearchedLogStream searchedLogStream =-    SearchedLogStream'-    { _slsLogStreamName = Nothing-    , _slsSearchedCompletely = Nothing-    }+  SearchedLogStream'+  {_slsLogStreamName = Nothing, _slsSearchedCompletely = Nothing} + -- | The name of the log stream. slsLogStreamName :: Lens' SearchedLogStream (Maybe Text) slsLogStreamName = lens _slsLogStreamName (\ s a -> s{_slsLogStreamName = a});@@ -940,9 +1018,9 @@                    (x .:? "logStreamName") <*>                      (x .:? "searchedCompletely")) -instance Hashable SearchedLogStream+instance Hashable SearchedLogStream where -instance NFData SearchedLogStream+instance NFData SearchedLogStream where  -- | Represents a subscription filter. --@@ -950,22 +1028,26 @@ -- -- /See:/ 'subscriptionFilter' smart constructor. data SubscriptionFilter = SubscriptionFilter'-    { _sfCreationTime   :: !(Maybe Nat)-    , _sfFilterName     :: !(Maybe Text)-    , _sfDestinationARN :: !(Maybe Text)-    , _sfLogGroupName   :: !(Maybe Text)-    , _sfFilterPattern  :: !(Maybe Text)-    , _sfRoleARN        :: !(Maybe Text)-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _sfCreationTime   :: !(Maybe Nat)+  , _sfFilterName     :: !(Maybe Text)+  , _sfDistribution   :: !(Maybe Distribution)+  , _sfDestinationARN :: !(Maybe Text)+  , _sfLogGroupName   :: !(Maybe Text)+  , _sfFilterPattern  :: !(Maybe Text)+  , _sfRoleARN        :: !(Maybe Text)+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'SubscriptionFilter' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: ----- * 'sfCreationTime' - The creation time of the subscription filter.+-- * 'sfCreationTime' - The creation time of the subscription filter, expressed as the number of milliseconds after Jan 1, 1970 00:00:00 UTC. -- -- * 'sfFilterName' - The name of the subscription filter. --+-- * 'sfDistribution' - Undocumented member.+-- -- * 'sfDestinationARN' - The Amazon Resource Name (ARN) of the destination. -- -- * 'sfLogGroupName' - The name of the log group.@@ -976,16 +1058,18 @@ subscriptionFilter     :: SubscriptionFilter subscriptionFilter =-    SubscriptionFilter'-    { _sfCreationTime = Nothing-    , _sfFilterName = Nothing-    , _sfDestinationARN = Nothing-    , _sfLogGroupName = Nothing-    , _sfFilterPattern = Nothing-    , _sfRoleARN = Nothing-    }+  SubscriptionFilter'+  { _sfCreationTime = Nothing+  , _sfFilterName = Nothing+  , _sfDistribution = Nothing+  , _sfDestinationARN = Nothing+  , _sfLogGroupName = Nothing+  , _sfFilterPattern = Nothing+  , _sfRoleARN = Nothing+  } --- | The creation time of the subscription filter.++-- | 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; @@ -993,6 +1077,10 @@ sfFilterName :: Lens' SubscriptionFilter (Maybe Text) sfFilterName = lens _sfFilterName (\ s a -> s{_sfFilterName = a}); +-- | Undocumented member.+sfDistribution :: Lens' SubscriptionFilter (Maybe Distribution)+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});@@ -1015,11 +1103,12 @@               (\ x ->                  SubscriptionFilter' <$>                    (x .:? "creationTime") <*> (x .:? "filterName") <*>-                     (x .:? "destinationArn")+                     (x .:? "distribution")+                     <*> (x .:? "destinationArn")                      <*> (x .:? "logGroupName")                      <*> (x .:? "filterPattern")                      <*> (x .:? "roleArn")) -instance Hashable SubscriptionFilter+instance Hashable SubscriptionFilter where -instance NFData SubscriptionFilter+instance NFData SubscriptionFilter where

@@ -9,25 +9,59 @@  -- | -- Module      : Network.AWS.CloudWatchLogs.Types.Sum--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) -- module Network.AWS.CloudWatchLogs.Types.Sum where -import           Network.AWS.Prelude+import Network.AWS.Prelude +-- | The method used to distribute log data to the destination, which can be either random or grouped by log stream.+--+--+data Distribution+  = ByLogStream+  | Random+  deriving (Eq, Ord, Read, Show, Enum, Bounded, Data, Typeable, Generic)+++instance FromText Distribution where+    parser = takeLowerText >>= \case+        "bylogstream" -> pure ByLogStream+        "random" -> pure Random+        e -> fromTextError $ "Failure parsing Distribution from value: '" <> e+           <> "'. Accepted values: bylogstream, random"++instance ToText Distribution where+    toText = \case+        ByLogStream -> "ByLogStream"+        Random -> "Random"++instance Hashable     Distribution+instance NFData       Distribution+instance ToByteString Distribution+instance ToQuery      Distribution+instance ToHeader     Distribution++instance ToJSON Distribution where+    toJSON = toJSONText++instance FromJSON Distribution where+    parseJSON = parseJSONText "Distribution"+ data ExportTaskStatusCode-    = Cancelled-    | Completed-    | Failed-    | Pending-    | PendingCancel-    | Running-    deriving (Eq,Ord,Read,Show,Enum,Bounded,Data,Typeable,Generic)+  = Cancelled+  | Completed+  | Failed+  | Pending+  | PendingCancel+  | Running+  deriving (Eq, Ord, Read, Show, Enum, Bounded, Data, Typeable, Generic) + instance FromText ExportTaskStatusCode where     parser = takeLowerText >>= \case         "cancelled" -> pure Cancelled@@ -61,9 +95,10 @@     parseJSON = parseJSONText "ExportTaskStatusCode"  data OrderBy-    = LastEventTime-    | LogStreamName-    deriving (Eq,Ord,Read,Show,Enum,Bounded,Data,Typeable,Generic)+  = LastEventTime+  | LogStreamName+  deriving (Eq, Ord, Read, Show, Enum, Bounded, Data, Typeable, Generic)+  instance FromText OrderBy where     parser = takeLowerText >>= \case

@@ -0,0 +1,121 @@+{-# LANGUAGE DeriveDataTypeable #-}+{-# LANGUAGE DeriveGeneric      #-}+{-# LANGUAGE OverloadedStrings  #-}+{-# LANGUAGE RecordWildCards    #-}+{-# LANGUAGE TypeFamilies       #-}++{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-binds   #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Network.AWS.CloudWatchLogs.UntagLogGroup+-- Copyright   : (c) 2013-2017 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Removes the specified tags from the specified log group.+--+--+-- To list the tags for a log group, use 'ListTagsLogGroup' . To add tags, use 'UntagLogGroup' .+--+module Network.AWS.CloudWatchLogs.UntagLogGroup+    (+    -- * Creating a Request+      untagLogGroup+    , UntagLogGroup+    -- * Request Lenses+    , ulgLogGroupName+    , ulgTags++    -- * Destructuring the Response+    , untagLogGroupResponse+    , UntagLogGroupResponse+    ) where++import Network.AWS.CloudWatchLogs.Types+import Network.AWS.CloudWatchLogs.Types.Product+import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response++-- | /See:/ 'untagLogGroup' smart constructor.+data UntagLogGroup = UntagLogGroup'+  { _ulgLogGroupName :: !Text+  , _ulgTags         :: !(List1 Text)+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'UntagLogGroup' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'ulgLogGroupName' - The name of the log group.+--+-- * 'ulgTags' - The tag keys. The corresponding tags are removed from the log group.+untagLogGroup+    :: Text -- ^ 'ulgLogGroupName'+    -> NonEmpty Text -- ^ 'ulgTags'+    -> UntagLogGroup+untagLogGroup pLogGroupName_ pTags_ =+  UntagLogGroup' {_ulgLogGroupName = pLogGroupName_, _ulgTags = _List1 # pTags_}+++-- | The name of the log group.+ulgLogGroupName :: Lens' UntagLogGroup Text+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;++instance AWSRequest UntagLogGroup where+        type Rs UntagLogGroup = UntagLogGroupResponse+        request = postJSON cloudWatchLogs+        response = receiveNull UntagLogGroupResponse'++instance Hashable UntagLogGroup where++instance NFData UntagLogGroup where++instance ToHeaders UntagLogGroup where+        toHeaders+          = const+              (mconcat+                 ["X-Amz-Target" =#+                    ("Logs_20140328.UntagLogGroup" :: ByteString),+                  "Content-Type" =#+                    ("application/x-amz-json-1.1" :: ByteString)])++instance ToJSON UntagLogGroup where+        toJSON UntagLogGroup'{..}+          = object+              (catMaybes+                 [Just ("logGroupName" .= _ulgLogGroupName),+                  Just ("tags" .= _ulgTags)])++instance ToPath UntagLogGroup where+        toPath = const "/"++instance ToQuery UntagLogGroup where+        toQuery = const mempty++-- | /See:/ 'untagLogGroupResponse' smart constructor.+data UntagLogGroupResponse =+  UntagLogGroupResponse'+  deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'UntagLogGroupResponse' with the minimum fields required to make a request.+--+untagLogGroupResponse+    :: UntagLogGroupResponse+untagLogGroupResponse = UntagLogGroupResponse'+++instance NFData UntagLogGroupResponse where

@@ -7,15 +7,15 @@  -- | -- Module      : Network.AWS.CloudWatchLogs.Waiters--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) -- module Network.AWS.CloudWatchLogs.Waiters where -import           Network.AWS.CloudWatchLogs.Types-import           Network.AWS.Lens-import           Network.AWS.Prelude-import           Network.AWS.Waiter+import Network.AWS.CloudWatchLogs.Types+import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Waiter

@@ -2,9 +2,9 @@  -- | -- Module      : Main--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) --

@@ -5,20 +5,20 @@  -- | -- Module      : Test.AWS.Gen.CloudWatchLogs--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) -- module Test.AWS.Gen.CloudWatchLogs where  import Data.Proxy+import Network.AWS.CloudWatchLogs+import Test.AWS.CloudWatchLogs.Internal import Test.AWS.Fixture import Test.AWS.Prelude import Test.Tasty-import Network.AWS.CloudWatchLogs-import Test.AWS.CloudWatchLogs.Internal  -- Auto-generated: the actual test selection needs to be manually placed into -- the top-level so that real test data can be incrementally added.@@ -31,6 +31,9 @@ --         [ requestDescribeDestinations $ --             describeDestinations --+--         , requestUntagLogGroup $+--             untagLogGroup+-- --         , requestCreateExportTask $ --             createExportTask --@@ -49,9 +52,18 @@ --         , requestDeleteDestination $ --             deleteDestination --+--         , requestDisassociateKMSKey $+--             disassociateKMSKey+-- --         , requestFilterLogEvents $ --             filterLogEvents --+--         , requestTagLogGroup $+--             tagLogGroup+--+--         , requestDescribeResourcePolicies $+--             describeResourcePolicies+-- --         , requestDeleteLogStream $ --             deleteLogStream --@@ -100,6 +112,18 @@ --         , requestPutRetentionPolicy $ --             putRetentionPolicy --+--         , requestListTagsLogGroup $+--             listTagsLogGroup+--+--         , requestPutResourcePolicy $+--             putResourcePolicy+--+--         , requestDeleteResourcePolicy $+--             deleteResourcePolicy+--+--         , requestAssociateKMSKey $+--             associateKMSKey+-- --         , requestDescribeLogStreams $ --             describeLogStreams --@@ -109,6 +133,9 @@ --         [ responseDescribeDestinations $ --             describeDestinationsResponse --+--         , responseUntagLogGroup $+--             untagLogGroupResponse+-- --         , responseCreateExportTask $ --             createExportTaskResponse --@@ -127,9 +154,18 @@ --         , responseDeleteDestination $ --             deleteDestinationResponse --+--         , responseDisassociateKMSKey $+--             disassociateKMSKeyResponse+-- --         , responseFilterLogEvents $ --             filterLogEventsResponse --+--         , responseTagLogGroup $+--             tagLogGroupResponse+--+--         , responseDescribeResourcePolicies $+--             describeResourcePoliciesResponse+-- --         , responseDeleteLogStream $ --             deleteLogStreamResponse --@@ -178,6 +214,18 @@ --         , responsePutRetentionPolicy $ --             putRetentionPolicyResponse --+--         , responseListTagsLogGroup $+--             listTagsLogGroupResponse+--+--         , responsePutResourcePolicy $+--             putResourcePolicyResponse+--+--         , responseDeleteResourcePolicy $+--             deleteResourcePolicyResponse+--+--         , responseAssociateKMSKey $+--             associateKMSKeyResponse+-- --         , responseDescribeLogStreams $ --             describeLogStreamsResponse --@@ -191,6 +239,11 @@     "DescribeDestinations"     "fixture/DescribeDestinations.yaml" +requestUntagLogGroup :: UntagLogGroup -> TestTree+requestUntagLogGroup = req+    "UntagLogGroup"+    "fixture/UntagLogGroup.yaml"+ requestCreateExportTask :: CreateExportTask -> TestTree requestCreateExportTask = req     "CreateExportTask"@@ -221,11 +274,26 @@     "DeleteDestination"     "fixture/DeleteDestination.yaml" +requestDisassociateKMSKey :: DisassociateKMSKey -> TestTree+requestDisassociateKMSKey = req+    "DisassociateKMSKey"+    "fixture/DisassociateKMSKey.yaml"+ requestFilterLogEvents :: FilterLogEvents -> TestTree requestFilterLogEvents = req     "FilterLogEvents"     "fixture/FilterLogEvents.yaml" +requestTagLogGroup :: TagLogGroup -> TestTree+requestTagLogGroup = req+    "TagLogGroup"+    "fixture/TagLogGroup.yaml"++requestDescribeResourcePolicies :: DescribeResourcePolicies -> TestTree+requestDescribeResourcePolicies = req+    "DescribeResourcePolicies"+    "fixture/DescribeResourcePolicies.yaml"+ requestDeleteLogStream :: DeleteLogStream -> TestTree requestDeleteLogStream = req     "DeleteLogStream"@@ -306,6 +374,26 @@     "PutRetentionPolicy"     "fixture/PutRetentionPolicy.yaml" +requestListTagsLogGroup :: ListTagsLogGroup -> TestTree+requestListTagsLogGroup = req+    "ListTagsLogGroup"+    "fixture/ListTagsLogGroup.yaml"++requestPutResourcePolicy :: PutResourcePolicy -> TestTree+requestPutResourcePolicy = req+    "PutResourcePolicy"+    "fixture/PutResourcePolicy.yaml"++requestDeleteResourcePolicy :: DeleteResourcePolicy -> TestTree+requestDeleteResourcePolicy = req+    "DeleteResourcePolicy"+    "fixture/DeleteResourcePolicy.yaml"++requestAssociateKMSKey :: AssociateKMSKey -> TestTree+requestAssociateKMSKey = req+    "AssociateKMSKey"+    "fixture/AssociateKMSKey.yaml"+ requestDescribeLogStreams :: DescribeLogStreams -> TestTree requestDescribeLogStreams = req     "DescribeLogStreams"@@ -320,6 +408,13 @@     cloudWatchLogs     (Proxy :: Proxy DescribeDestinations) +responseUntagLogGroup :: UntagLogGroupResponse -> TestTree+responseUntagLogGroup = res+    "UntagLogGroupResponse"+    "fixture/UntagLogGroupResponse.proto"+    cloudWatchLogs+    (Proxy :: Proxy UntagLogGroup)+ responseCreateExportTask :: CreateExportTaskResponse -> TestTree responseCreateExportTask = res     "CreateExportTaskResponse"@@ -362,6 +457,13 @@     cloudWatchLogs     (Proxy :: Proxy DeleteDestination) +responseDisassociateKMSKey :: DisassociateKMSKeyResponse -> TestTree+responseDisassociateKMSKey = res+    "DisassociateKMSKeyResponse"+    "fixture/DisassociateKMSKeyResponse.proto"+    cloudWatchLogs+    (Proxy :: Proxy DisassociateKMSKey)+ responseFilterLogEvents :: FilterLogEventsResponse -> TestTree responseFilterLogEvents = res     "FilterLogEventsResponse"@@ -369,6 +471,20 @@     cloudWatchLogs     (Proxy :: Proxy FilterLogEvents) +responseTagLogGroup :: TagLogGroupResponse -> TestTree+responseTagLogGroup = res+    "TagLogGroupResponse"+    "fixture/TagLogGroupResponse.proto"+    cloudWatchLogs+    (Proxy :: Proxy TagLogGroup)++responseDescribeResourcePolicies :: DescribeResourcePoliciesResponse -> TestTree+responseDescribeResourcePolicies = res+    "DescribeResourcePoliciesResponse"+    "fixture/DescribeResourcePoliciesResponse.proto"+    cloudWatchLogs+    (Proxy :: Proxy DescribeResourcePolicies)+ responseDeleteLogStream :: DeleteLogStreamResponse -> TestTree responseDeleteLogStream = res     "DeleteLogStreamResponse"@@ -480,6 +596,34 @@     "fixture/PutRetentionPolicyResponse.proto"     cloudWatchLogs     (Proxy :: Proxy PutRetentionPolicy)++responseListTagsLogGroup :: ListTagsLogGroupResponse -> TestTree+responseListTagsLogGroup = res+    "ListTagsLogGroupResponse"+    "fixture/ListTagsLogGroupResponse.proto"+    cloudWatchLogs+    (Proxy :: Proxy ListTagsLogGroup)++responsePutResourcePolicy :: PutResourcePolicyResponse -> TestTree+responsePutResourcePolicy = res+    "PutResourcePolicyResponse"+    "fixture/PutResourcePolicyResponse.proto"+    cloudWatchLogs+    (Proxy :: Proxy PutResourcePolicy)++responseDeleteResourcePolicy :: DeleteResourcePolicyResponse -> TestTree+responseDeleteResourcePolicy = res+    "DeleteResourcePolicyResponse"+    "fixture/DeleteResourcePolicyResponse.proto"+    cloudWatchLogs+    (Proxy :: Proxy DeleteResourcePolicy)++responseAssociateKMSKey :: AssociateKMSKeyResponse -> TestTree+responseAssociateKMSKey = res+    "AssociateKMSKeyResponse"+    "fixture/AssociateKMSKeyResponse.proto"+    cloudWatchLogs+    (Proxy :: Proxy AssociateKMSKey)  responseDescribeLogStreams :: DescribeLogStreamsResponse -> TestTree responseDescribeLogStreams = res