amazonka-cloudwatch-logs 1.2.0.2 → 1.3.0

raw patch · 16 files changed

+291/−280 lines, 16 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 +5/−5
• gen/Network/AWS/CloudWatchLogs.hs +24/−24
• gen/Network/AWS/CloudWatchLogs/DescribeDestinations.hs +20/−10
• gen/Network/AWS/CloudWatchLogs/DescribeLogGroups.hs +25/−24
• gen/Network/AWS/CloudWatchLogs/DescribeLogStreams.hs +10/−10
• gen/Network/AWS/CloudWatchLogs/DescribeMetricFilters.hs +10/−10
• gen/Network/AWS/CloudWatchLogs/DescribeSubscriptionFilters.hs +8/−8
• gen/Network/AWS/CloudWatchLogs/FilterLogEvents.hs +19/−19
• gen/Network/AWS/CloudWatchLogs/GetLogEvents.hs +8/−8
• gen/Network/AWS/CloudWatchLogs/PutDestination.hs +9/−9
• gen/Network/AWS/CloudWatchLogs/PutLogEvents.hs +8/−8
• gen/Network/AWS/CloudWatchLogs/TestMetricFilter.hs +9/−9
• gen/Network/AWS/CloudWatchLogs/Types.hs +7/−7
• gen/Network/AWS/CloudWatchLogs/Types/Product.hs +10/−10
• test/Test/AWS/Gen/CloudWatchLogs.hs +118/−118

@@ -8,7 +8,7 @@  ## Version -`1.2.0.2`+`1.3.0`   ## Description

@@ -1,5 +1,5 @@ name:                  amazonka-cloudwatch-logs-version:               1.2.0.2+version:               1.3.0 synopsis:              Amazon CloudWatch Logs SDK. homepage:              https://github.com/brendanhay/amazonka bug-reports:           https://github.com/brendanhay/amazonka/issues@@ -111,7 +111,7 @@         , Network.AWS.CloudWatchLogs.Types.Sum      build-depends:-          amazonka-core == 1.2.0.*+          amazonka-core == 1.3.0.*         , base          >= 4.7     && < 5  test-suite amazonka-cloudwatch-logs-test@@ -131,9 +131,9 @@         , Test.AWS.CloudWatchLogs.Internal      build-depends:-          amazonka-core == 1.2.0.*-        , amazonka-test == 1.2.0.*-        , amazonka-cloudwatch-logs == 1.2.0.*+          amazonka-core == 1.3.0.*+        , amazonka-test == 1.3.0.*+        , amazonka-cloudwatch-logs == 1.3.0.*         , base         , bytestring         , lens

@@ -74,12 +74,12 @@     -- ** OperationAbortedException     , _OperationAbortedException -    -- ** DataAlreadyAcceptedException-    , _DataAlreadyAcceptedException-     -- ** ServiceUnavailableException     , _ServiceUnavailableException +    -- ** DataAlreadyAcceptedException+    , _DataAlreadyAcceptedException+     -- ** ResourceNotFoundException     , _ResourceNotFoundException @@ -92,12 +92,9 @@     -- * Operations     -- $operations -    -- ** DescribeDestinations+    -- ** DescribeDestinations (Paginated)     , module Network.AWS.CloudWatchLogs.DescribeDestinations -    -- ** DeleteDestination-    , module Network.AWS.CloudWatchLogs.DeleteDestination-     -- ** PutDestination     , module Network.AWS.CloudWatchLogs.PutDestination @@ -110,6 +107,9 @@     -- ** DescribeLogGroups (Paginated)     , module Network.AWS.CloudWatchLogs.DescribeLogGroups +    -- ** DeleteDestination+    , module Network.AWS.CloudWatchLogs.DeleteDestination+     -- ** FilterLogEvents (Paginated)     , module Network.AWS.CloudWatchLogs.FilterLogEvents @@ -122,38 +122,38 @@     -- ** CreateLogGroup     , module Network.AWS.CloudWatchLogs.CreateLogGroup -    -- ** PutLogEvents-    , module Network.AWS.CloudWatchLogs.PutLogEvents--    -- ** DeleteSubscriptionFilter-    , module Network.AWS.CloudWatchLogs.DeleteSubscriptionFilter-     -- ** PutSubscriptionFilter     , module Network.AWS.CloudWatchLogs.PutSubscriptionFilter      -- ** DeleteLogGroup     , module Network.AWS.CloudWatchLogs.DeleteLogGroup -    -- ** TestMetricFilter-    , module Network.AWS.CloudWatchLogs.TestMetricFilter+    -- ** DeleteSubscriptionFilter+    , module Network.AWS.CloudWatchLogs.DeleteSubscriptionFilter +    -- ** PutLogEvents+    , module Network.AWS.CloudWatchLogs.PutLogEvents+     -- ** DescribeMetricFilters (Paginated)     , module Network.AWS.CloudWatchLogs.DescribeMetricFilters -    -- ** DeleteMetricFilter-    , module Network.AWS.CloudWatchLogs.DeleteMetricFilter+    -- ** TestMetricFilter+    , module Network.AWS.CloudWatchLogs.TestMetricFilter -    -- ** PutRetentionPolicy-    , module Network.AWS.CloudWatchLogs.PutRetentionPolicy+    -- ** PutDestinationPolicy+    , module Network.AWS.CloudWatchLogs.PutDestinationPolicy +    -- ** PutMetricFilter+    , module Network.AWS.CloudWatchLogs.PutMetricFilter+     -- ** DeleteRetentionPolicy     , module Network.AWS.CloudWatchLogs.DeleteRetentionPolicy -    -- ** PutMetricFilter-    , module Network.AWS.CloudWatchLogs.PutMetricFilter+    -- ** DeleteMetricFilter+    , module Network.AWS.CloudWatchLogs.DeleteMetricFilter -    -- ** PutDestinationPolicy-    , module Network.AWS.CloudWatchLogs.PutDestinationPolicy+    -- ** PutRetentionPolicy+    , module Network.AWS.CloudWatchLogs.PutRetentionPolicy      -- ** DescribeLogStreams (Paginated)     , module Network.AWS.CloudWatchLogs.DescribeLogStreams@@ -222,8 +222,8 @@     , MetricFilterMatchRecord     , metricFilterMatchRecord     , mfmrExtractedValues-    , mfmrEventMessage     , mfmrEventNumber+    , mfmrEventMessage      -- ** MetricTransformation     , MetricTransformation

@@ -29,6 +29,8 @@ -- parameter in the request. -- -- /See:/ <http://docs.aws.amazon.com/AmazonCloudWatchLogs/latest/APIReference/API_DescribeDestinations.html AWS API Reference> for DescribeDestinations.+--+-- This operation returns paginated results. module Network.AWS.CloudWatchLogs.DescribeDestinations     (     -- * Creating a Request@@ -45,11 +47,12 @@     -- * Response Lenses     , ddrsNextToken     , ddrsDestinations-    , ddrsStatus+    , ddrsResponseStatus     ) where  import           Network.AWS.CloudWatchLogs.Types import           Network.AWS.CloudWatchLogs.Types.Product+import           Network.AWS.Pager import           Network.AWS.Prelude import           Network.AWS.Request import           Network.AWS.Response@@ -93,6 +96,13 @@ ddDestinationNamePrefix :: Lens' DescribeDestinations (Maybe Text) ddDestinationNamePrefix = lens _ddDestinationNamePrefix (\ s a -> s{_ddDestinationNamePrefix = a}); +instance AWSPager DescribeDestinations where+        page rq rs+          | stop (rs ^. ddrsNextToken) = Nothing+          | stop (rs ^. ddrsDestinations) = Nothing+          | otherwise =+            Just $ rq & ddNextToken .~ rs ^. ddrsNextToken+ instance AWSRequest DescribeDestinations where         type Rs DescribeDestinations =              DescribeDestinationsResponse@@ -131,9 +141,9 @@  -- | /See:/ 'describeDestinationsResponse' smart constructor. data DescribeDestinationsResponse = DescribeDestinationsResponse'-    { _ddrsNextToken    :: !(Maybe Text)-    , _ddrsDestinations :: !(Maybe [Destination])-    , _ddrsStatus       :: !Int+    { _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.@@ -144,15 +154,15 @@ -- -- * 'ddrsDestinations' ----- * 'ddrsStatus'+-- * 'ddrsResponseStatus' describeDestinationsResponse-    :: Int -- ^ 'ddrsStatus'+    :: Int -- ^ 'ddrsResponseStatus'     -> DescribeDestinationsResponse-describeDestinationsResponse pStatus_ =+describeDestinationsResponse pResponseStatus_ =     DescribeDestinationsResponse'     { _ddrsNextToken = Nothing     , _ddrsDestinations = Nothing-    , _ddrsStatus = pStatus_+    , _ddrsResponseStatus = pResponseStatus_     }  -- | Undocumented member.@@ -164,5 +174,5 @@ ddrsDestinations = lens _ddrsDestinations (\ s a -> s{_ddrsDestinations = a}) . _Default . _Coerce;  -- | The response status code.-ddrsStatus :: Lens' DescribeDestinationsResponse Int-ddrsStatus = lens _ddrsStatus (\ s a -> s{_ddrsStatus = a});+ddrsResponseStatus :: Lens' DescribeDestinationsResponse Int+ddrsResponseStatus = lens _ddrsResponseStatus (\ s a -> s{_ddrsResponseStatus = a});

@@ -37,8 +37,8 @@       describeLogGroups     , DescribeLogGroups     -- * Request Lenses-    , dlgNextToken     , dlgLogGroupNamePrefix+    , dlgNextToken     , dlgLimit      -- * Destructuring the Response@@ -47,7 +47,7 @@     -- * Response Lenses     , dlgrsLogGroups     , dlgrsNextToken-    , dlgrsStatus+    , dlgrsResponseStatus     ) where  import           Network.AWS.CloudWatchLogs.Types@@ -59,8 +59,8 @@  -- | /See:/ 'describeLogGroups' smart constructor. data DescribeLogGroups = DescribeLogGroups'-    { _dlgNextToken          :: !(Maybe Text)-    , _dlgLogGroupNamePrefix :: !(Maybe Text)+    { _dlgLogGroupNamePrefix :: !(Maybe Text)+    , _dlgNextToken          :: !(Maybe Text)     , _dlgLimit              :: !(Maybe Nat)     } deriving (Eq,Read,Show,Data,Typeable,Generic) @@ -68,31 +68,31 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'dlgNextToken'--- -- * 'dlgLogGroupNamePrefix' --+-- * 'dlgNextToken'+-- -- * 'dlgLimit' describeLogGroups     :: DescribeLogGroups describeLogGroups =     DescribeLogGroups'-    { _dlgNextToken = Nothing-    , _dlgLogGroupNamePrefix = Nothing+    { _dlgLogGroupNamePrefix = Nothing+    , _dlgNextToken = Nothing     , _dlgLimit = Nothing     } +-- | Will only return log groups that match the provided logGroupNamePrefix.+-- If you don\'t specify a value, no prefix filter is applied.+dlgLogGroupNamePrefix :: Lens' DescribeLogGroups (Maybe Text)+dlgLogGroupNamePrefix = lens _dlgLogGroupNamePrefix (\ s a -> s{_dlgLogGroupNamePrefix = a});+ -- | A string token used for pagination that points to the next page of -- results. It must be a value obtained from the response of the previous -- 'DescribeLogGroups' request. dlgNextToken :: Lens' DescribeLogGroups (Maybe Text) dlgNextToken = lens _dlgNextToken (\ s a -> s{_dlgNextToken = a}); --- | Will only return log groups that match the provided logGroupNamePrefix.--- If you don\'t specify a value, no prefix filter is applied.-dlgLogGroupNamePrefix :: Lens' DescribeLogGroups (Maybe Text)-dlgLogGroupNamePrefix = lens _dlgLogGroupNamePrefix (\ s a -> s{_dlgLogGroupNamePrefix = a});- -- | The maximum number of items returned in the response. If you don\'t -- specify a value, the request would return up to 50 items. dlgLimit :: Lens' DescribeLogGroups (Maybe Natural)@@ -129,8 +129,9 @@         toJSON DescribeLogGroups'{..}           = object               (catMaybes-                 [("nextToken" .=) <$> _dlgNextToken,-                  ("logGroupNamePrefix" .=) <$> _dlgLogGroupNamePrefix,+                 [("logGroupNamePrefix" .=) <$>+                    _dlgLogGroupNamePrefix,+                  ("nextToken" .=) <$> _dlgNextToken,                   ("limit" .=) <$> _dlgLimit])  instance ToPath DescribeLogGroups where@@ -141,9 +142,9 @@  -- | /See:/ 'describeLogGroupsResponse' smart constructor. data DescribeLogGroupsResponse = DescribeLogGroupsResponse'-    { _dlgrsLogGroups :: !(Maybe [LogGroup])-    , _dlgrsNextToken :: !(Maybe Text)-    , _dlgrsStatus    :: !Int+    { _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.@@ -154,15 +155,15 @@ -- -- * 'dlgrsNextToken' ----- * 'dlgrsStatus'+-- * 'dlgrsResponseStatus' describeLogGroupsResponse-    :: Int -- ^ 'dlgrsStatus'+    :: Int -- ^ 'dlgrsResponseStatus'     -> DescribeLogGroupsResponse-describeLogGroupsResponse pStatus_ =+describeLogGroupsResponse pResponseStatus_ =     DescribeLogGroupsResponse'     { _dlgrsLogGroups = Nothing     , _dlgrsNextToken = Nothing-    , _dlgrsStatus = pStatus_+    , _dlgrsResponseStatus = pResponseStatus_     }  -- | Undocumented member.@@ -174,5 +175,5 @@ dlgrsNextToken = lens _dlgrsNextToken (\ s a -> s{_dlgrsNextToken = a});  -- | The response status code.-dlgrsStatus :: Lens' DescribeLogGroupsResponse Int-dlgrsStatus = lens _dlgrsStatus (\ s a -> s{_dlgrsStatus = a});+dlgrsResponseStatus :: Lens' DescribeLogGroupsResponse Int+dlgrsResponseStatus = lens _dlgrsResponseStatus (\ s a -> s{_dlgrsResponseStatus = a});

@@ -51,7 +51,7 @@     -- * Response Lenses     , dlsrsNextToken     , dlsrsLogStreams-    , dlsrsStatus+    , dlsrsResponseStatus     ) where  import           Network.AWS.CloudWatchLogs.Types@@ -181,9 +181,9 @@  -- | /See:/ 'describeLogStreamsResponse' smart constructor. data DescribeLogStreamsResponse = DescribeLogStreamsResponse'-    { _dlsrsNextToken  :: !(Maybe Text)-    , _dlsrsLogStreams :: !(Maybe [LogStream])-    , _dlsrsStatus     :: !Int+    { _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.@@ -194,15 +194,15 @@ -- -- * 'dlsrsLogStreams' ----- * 'dlsrsStatus'+-- * 'dlsrsResponseStatus' describeLogStreamsResponse-    :: Int -- ^ 'dlsrsStatus'+    :: Int -- ^ 'dlsrsResponseStatus'     -> DescribeLogStreamsResponse-describeLogStreamsResponse pStatus_ =+describeLogStreamsResponse pResponseStatus_ =     DescribeLogStreamsResponse'     { _dlsrsNextToken = Nothing     , _dlsrsLogStreams = Nothing-    , _dlsrsStatus = pStatus_+    , _dlsrsResponseStatus = pResponseStatus_     }  -- | Undocumented member.@@ -214,5 +214,5 @@ dlsrsLogStreams = lens _dlsrsLogStreams (\ s a -> s{_dlsrsLogStreams = a}) . _Default . _Coerce;  -- | The response status code.-dlsrsStatus :: Lens' DescribeLogStreamsResponse Int-dlsrsStatus = lens _dlsrsStatus (\ s a -> s{_dlsrsStatus = a});+dlsrsResponseStatus :: Lens' DescribeLogStreamsResponse Int+dlsrsResponseStatus = lens _dlsrsResponseStatus (\ s a -> s{_dlsrsResponseStatus = a});

@@ -47,7 +47,7 @@     -- * Response Lenses     , dmfrsNextToken     , dmfrsMetricFilters-    , dmfrsStatus+    , dmfrsResponseStatus     ) where  import           Network.AWS.CloudWatchLogs.Types@@ -154,9 +154,9 @@  -- | /See:/ 'describeMetricFiltersResponse' smart constructor. data DescribeMetricFiltersResponse = DescribeMetricFiltersResponse'-    { _dmfrsNextToken     :: !(Maybe Text)-    , _dmfrsMetricFilters :: !(Maybe [MetricFilter])-    , _dmfrsStatus        :: !Int+    { _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.@@ -167,15 +167,15 @@ -- -- * 'dmfrsMetricFilters' ----- * 'dmfrsStatus'+-- * 'dmfrsResponseStatus' describeMetricFiltersResponse-    :: Int -- ^ 'dmfrsStatus'+    :: Int -- ^ 'dmfrsResponseStatus'     -> DescribeMetricFiltersResponse-describeMetricFiltersResponse pStatus_ =+describeMetricFiltersResponse pResponseStatus_ =     DescribeMetricFiltersResponse'     { _dmfrsNextToken = Nothing     , _dmfrsMetricFilters = Nothing-    , _dmfrsStatus = pStatus_+    , _dmfrsResponseStatus = pResponseStatus_     }  -- | Undocumented member.@@ -187,5 +187,5 @@ dmfrsMetricFilters = lens _dmfrsMetricFilters (\ s a -> s{_dmfrsMetricFilters = a}) . _Default . _Coerce;  -- | The response status code.-dmfrsStatus :: Lens' DescribeMetricFiltersResponse Int-dmfrsStatus = lens _dmfrsStatus (\ s a -> s{_dmfrsStatus = a});+dmfrsResponseStatus :: Lens' DescribeMetricFiltersResponse Int+dmfrsResponseStatus = lens _dmfrsResponseStatus (\ s a -> s{_dmfrsResponseStatus = a});

@@ -47,7 +47,7 @@     -- * Response Lenses     , dsfrsSubscriptionFilters     , dsfrsNextToken-    , dsfrsStatus+    , dsfrsResponseStatus     ) where  import           Network.AWS.CloudWatchLogs.Types@@ -153,7 +153,7 @@ data DescribeSubscriptionFiltersResponse = DescribeSubscriptionFiltersResponse'     { _dsfrsSubscriptionFilters :: !(Maybe [SubscriptionFilter])     , _dsfrsNextToken           :: !(Maybe Text)-    , _dsfrsStatus              :: !Int+    , _dsfrsResponseStatus      :: !Int     } deriving (Eq,Read,Show,Data,Typeable,Generic)  -- | Creates a value of 'DescribeSubscriptionFiltersResponse' with the minimum fields required to make a request.@@ -164,15 +164,15 @@ -- -- * 'dsfrsNextToken' ----- * 'dsfrsStatus'+-- * 'dsfrsResponseStatus' describeSubscriptionFiltersResponse-    :: Int -- ^ 'dsfrsStatus'+    :: Int -- ^ 'dsfrsResponseStatus'     -> DescribeSubscriptionFiltersResponse-describeSubscriptionFiltersResponse pStatus_ =+describeSubscriptionFiltersResponse pResponseStatus_ =     DescribeSubscriptionFiltersResponse'     { _dsfrsSubscriptionFilters = Nothing     , _dsfrsNextToken = Nothing-    , _dsfrsStatus = pStatus_+    , _dsfrsResponseStatus = pResponseStatus_     }  -- | Undocumented member.@@ -184,5 +184,5 @@ dsfrsNextToken = lens _dsfrsNextToken (\ s a -> s{_dsfrsNextToken = a});  -- | The response status code.-dsfrsStatus :: Lens' DescribeSubscriptionFiltersResponse Int-dsfrsStatus = lens _dsfrsStatus (\ s a -> s{_dsfrsStatus = a});+dsfrsResponseStatus :: Lens' DescribeSubscriptionFiltersResponse Int+dsfrsResponseStatus = lens _dsfrsResponseStatus (\ s a -> s{_dsfrsResponseStatus = a});

@@ -44,8 +44,8 @@     , FilterLogEvents     -- * Request Lenses     , fleStartTime-    , fleLogStreamNames     , fleNextToken+    , fleLogStreamNames     , fleEndTime     , fleLimit     , fleFilterPattern@@ -59,7 +59,7 @@     , flersSearchedLogStreams     , flersNextToken     , flersEvents-    , flersStatus+    , flersResponseStatus     ) where  import           Network.AWS.CloudWatchLogs.Types@@ -72,8 +72,8 @@ -- | /See:/ 'filterLogEvents' smart constructor. data FilterLogEvents = FilterLogEvents'     { _fleStartTime      :: !(Maybe Nat)-    , _fleLogStreamNames :: !(Maybe (List1 Text))     , _fleNextToken      :: !(Maybe Text)+    , _fleLogStreamNames :: !(Maybe (List1 Text))     , _fleEndTime        :: !(Maybe Nat)     , _fleLimit          :: !(Maybe Nat)     , _fleFilterPattern  :: !(Maybe Text)@@ -87,10 +87,10 @@ -- -- * 'fleStartTime' ----- * 'fleLogStreamNames'--- -- * 'fleNextToken' --+-- * 'fleLogStreamNames'+-- -- * 'fleEndTime' -- -- * 'fleLimit'@@ -106,8 +106,8 @@ filterLogEvents pLogGroupName_ =     FilterLogEvents'     { _fleStartTime = Nothing-    , _fleLogStreamNames = Nothing     , _fleNextToken = Nothing+    , _fleLogStreamNames = Nothing     , _fleEndTime = Nothing     , _fleLimit = Nothing     , _fleFilterPattern = Nothing@@ -121,16 +121,16 @@ fleStartTime :: Lens' FilterLogEvents (Maybe Natural) fleStartTime = lens _fleStartTime (\ s a -> s{_fleStartTime = a}) . mapping _Nat; --- | Optional list of log stream names within the specified log group to--- search. Defaults to all the log streams in the log group.-fleLogStreamNames :: Lens' FilterLogEvents (Maybe (NonEmpty Text))-fleLogStreamNames = lens _fleLogStreamNames (\ s a -> s{_fleLogStreamNames = a}) . mapping _List1;- -- | A pagination token obtained from a 'FilterLogEvents' response to -- continue paginating the FilterLogEvents results. fleNextToken :: Lens' FilterLogEvents (Maybe Text) fleNextToken = lens _fleNextToken (\ s a -> s{_fleNextToken = a}); +-- | Optional list of log stream names within the specified log group to+-- search. Defaults to all the log streams in the log group.+fleLogStreamNames :: Lens' FilterLogEvents (Maybe (NonEmpty Text))+fleLogStreamNames = lens _fleLogStreamNames (\ s a -> s{_fleLogStreamNames = a}) . mapping _List1;+ -- | A unix timestamp indicating the end time of the range for the request. -- If provided, events with a timestamp later than this time will not be -- returned.@@ -192,8 +192,8 @@           = object               (catMaybes                  [("startTime" .=) <$> _fleStartTime,-                  ("logStreamNames" .=) <$> _fleLogStreamNames,                   ("nextToken" .=) <$> _fleNextToken,+                  ("logStreamNames" .=) <$> _fleLogStreamNames,                   ("endTime" .=) <$> _fleEndTime,                   ("limit" .=) <$> _fleLimit,                   ("filterPattern" .=) <$> _fleFilterPattern,@@ -211,7 +211,7 @@     { _flersSearchedLogStreams :: !(Maybe [SearchedLogStream])     , _flersNextToken          :: !(Maybe Text)     , _flersEvents             :: !(Maybe [FilteredLogEvent])-    , _flersStatus             :: !Int+    , _flersResponseStatus     :: !Int     } deriving (Eq,Read,Show,Data,Typeable,Generic)  -- | Creates a value of 'FilterLogEventsResponse' with the minimum fields required to make a request.@@ -224,16 +224,16 @@ -- -- * 'flersEvents' ----- * 'flersStatus'+-- * 'flersResponseStatus' filterLogEventsResponse-    :: Int -- ^ 'flersStatus'+    :: Int -- ^ 'flersResponseStatus'     -> FilterLogEventsResponse-filterLogEventsResponse pStatus_ =+filterLogEventsResponse pResponseStatus_ =     FilterLogEventsResponse'     { _flersSearchedLogStreams = Nothing     , _flersNextToken = Nothing     , _flersEvents = Nothing-    , _flersStatus = pStatus_+    , _flersResponseStatus = pResponseStatus_     }  -- | A list of 'SearchedLogStream' objects indicating which log streams have@@ -253,5 +253,5 @@ flersEvents = lens _flersEvents (\ s a -> s{_flersEvents = a}) . _Default . _Coerce;  -- | The response status code.-flersStatus :: Lens' FilterLogEventsResponse Int-flersStatus = lens _flersStatus (\ s a -> s{_flersStatus = a});+flersResponseStatus :: Lens' FilterLogEventsResponse Int+flersResponseStatus = lens _flersResponseStatus (\ s a -> s{_flersResponseStatus = a});

@@ -51,7 +51,7 @@     , glersNextBackwardToken     , glersNextForwardToken     , glersEvents-    , glersStatus+    , glersResponseStatus     ) where  import           Network.AWS.CloudWatchLogs.Types@@ -181,7 +181,7 @@     { _glersNextBackwardToken :: !(Maybe Text)     , _glersNextForwardToken  :: !(Maybe Text)     , _glersEvents            :: !(Maybe [OutputLogEvent])-    , _glersStatus            :: !Int+    , _glersResponseStatus    :: !Int     } deriving (Eq,Read,Show,Data,Typeable,Generic)  -- | Creates a value of 'GetLogEventsResponse' with the minimum fields required to make a request.@@ -194,16 +194,16 @@ -- -- * 'glersEvents' ----- * 'glersStatus'+-- * 'glersResponseStatus' getLogEventsResponse-    :: Int -- ^ 'glersStatus'+    :: Int -- ^ 'glersResponseStatus'     -> GetLogEventsResponse-getLogEventsResponse pStatus_ =+getLogEventsResponse pResponseStatus_ =     GetLogEventsResponse'     { _glersNextBackwardToken = Nothing     , _glersNextForwardToken = Nothing     , _glersEvents = Nothing-    , _glersStatus = pStatus_+    , _glersResponseStatus = pResponseStatus_     }  -- | Undocumented member.@@ -219,5 +219,5 @@ glersEvents = lens _glersEvents (\ s a -> s{_glersEvents = a}) . _Default . _Coerce;  -- | The response status code.-glersStatus :: Lens' GetLogEventsResponse Int-glersStatus = lens _glersStatus (\ s a -> s{_glersStatus = a});+glersResponseStatus :: Lens' GetLogEventsResponse Int+glersResponseStatus = lens _glersResponseStatus (\ s a -> s{_glersResponseStatus = a});

@@ -48,7 +48,7 @@     , PutDestinationResponse     -- * Response Lenses     , pdrsDestination-    , pdrsStatus+    , pdrsResponseStatus     ) where  import           Network.AWS.CloudWatchLogs.Types@@ -132,8 +132,8 @@  -- | /See:/ 'putDestinationResponse' smart constructor. data PutDestinationResponse = PutDestinationResponse'-    { _pdrsDestination :: !(Maybe Destination)-    , _pdrsStatus      :: !Int+    { _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.@@ -142,14 +142,14 @@ -- -- * 'pdrsDestination' ----- * 'pdrsStatus'+-- * 'pdrsResponseStatus' putDestinationResponse-    :: Int -- ^ 'pdrsStatus'+    :: Int -- ^ 'pdrsResponseStatus'     -> PutDestinationResponse-putDestinationResponse pStatus_ =+putDestinationResponse pResponseStatus_ =     PutDestinationResponse'     { _pdrsDestination = Nothing-    , _pdrsStatus = pStatus_+    , _pdrsResponseStatus = pResponseStatus_     }  -- | Undocumented member.@@ -157,5 +157,5 @@ pdrsDestination = lens _pdrsDestination (\ s a -> s{_pdrsDestination = a});  -- | The response status code.-pdrsStatus :: Lens' PutDestinationResponse Int-pdrsStatus = lens _pdrsStatus (\ s a -> s{_pdrsStatus = a});+pdrsResponseStatus :: Lens' PutDestinationResponse Int+pdrsResponseStatus = lens _pdrsResponseStatus (\ s a -> s{_pdrsResponseStatus = a});

@@ -55,7 +55,7 @@     -- * Response Lenses     , plersRejectedLogEventsInfo     , plersNextSequenceToken-    , plersStatus+    , plersResponseStatus     ) where  import           Network.AWS.CloudWatchLogs.Types@@ -152,7 +152,7 @@ data PutLogEventsResponse = PutLogEventsResponse'     { _plersRejectedLogEventsInfo :: !(Maybe RejectedLogEventsInfo)     , _plersNextSequenceToken     :: !(Maybe Text)-    , _plersStatus                :: !Int+    , _plersResponseStatus        :: !Int     } deriving (Eq,Read,Show,Data,Typeable,Generic)  -- | Creates a value of 'PutLogEventsResponse' with the minimum fields required to make a request.@@ -163,15 +163,15 @@ -- -- * 'plersNextSequenceToken' ----- * 'plersStatus'+-- * 'plersResponseStatus' putLogEventsResponse-    :: Int -- ^ 'plersStatus'+    :: Int -- ^ 'plersResponseStatus'     -> PutLogEventsResponse-putLogEventsResponse pStatus_ =+putLogEventsResponse pResponseStatus_ =     PutLogEventsResponse'     { _plersRejectedLogEventsInfo = Nothing     , _plersNextSequenceToken = Nothing-    , _plersStatus = pStatus_+    , _plersResponseStatus = pResponseStatus_     }  -- | Undocumented member.@@ -183,5 +183,5 @@ plersNextSequenceToken = lens _plersNextSequenceToken (\ s a -> s{_plersNextSequenceToken = a});  -- | The response status code.-plersStatus :: Lens' PutLogEventsResponse Int-plersStatus = lens _plersStatus (\ s a -> s{_plersStatus = a});+plersResponseStatus :: Lens' PutLogEventsResponse Int+plersResponseStatus = lens _plersResponseStatus (\ s a -> s{_plersResponseStatus = a});

@@ -37,7 +37,7 @@     , TestMetricFilterResponse     -- * Response Lenses     , tmfrsMatches-    , tmfrsStatus+    , tmfrsResponseStatus     ) where  import           Network.AWS.CloudWatchLogs.Types@@ -110,8 +110,8 @@  -- | /See:/ 'testMetricFilterResponse' smart constructor. data TestMetricFilterResponse = TestMetricFilterResponse'-    { _tmfrsMatches :: !(Maybe [MetricFilterMatchRecord])-    , _tmfrsStatus  :: !Int+    { _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.@@ -120,14 +120,14 @@ -- -- * 'tmfrsMatches' ----- * 'tmfrsStatus'+-- * 'tmfrsResponseStatus' testMetricFilterResponse-    :: Int -- ^ 'tmfrsStatus'+    :: Int -- ^ 'tmfrsResponseStatus'     -> TestMetricFilterResponse-testMetricFilterResponse pStatus_ =+testMetricFilterResponse pResponseStatus_ =     TestMetricFilterResponse'     { _tmfrsMatches = Nothing-    , _tmfrsStatus = pStatus_+    , _tmfrsResponseStatus = pResponseStatus_     }  -- | Undocumented member.@@ -135,5 +135,5 @@ tmfrsMatches = lens _tmfrsMatches (\ s a -> s{_tmfrsMatches = a}) . _Default . _Coerce;  -- | The response status code.-tmfrsStatus :: Lens' TestMetricFilterResponse Int-tmfrsStatus = lens _tmfrsStatus (\ s a -> s{_tmfrsStatus = a});+tmfrsResponseStatus :: Lens' TestMetricFilterResponse Int+tmfrsResponseStatus = lens _tmfrsResponseStatus (\ s a -> s{_tmfrsResponseStatus = a});

@@ -20,8 +20,8 @@     , _InvalidSequenceTokenException     , _ResourceAlreadyExistsException     , _OperationAbortedException-    , _DataAlreadyAcceptedException     , _ServiceUnavailableException+    , _DataAlreadyAcceptedException     , _ResourceNotFoundException     , _LimitExceededException @@ -87,8 +87,8 @@     , MetricFilterMatchRecord     , metricFilterMatchRecord     , mfmrExtractedValues-    , mfmrEventMessage     , mfmrEventNumber+    , mfmrEventMessage      -- * MetricTransformation     , MetricTransformation@@ -185,15 +185,15 @@ _OperationAbortedException =     _ServiceError . hasCode "OperationAbortedException" --- | Prism for DataAlreadyAcceptedException' errors.-_DataAlreadyAcceptedException :: AsError a => Getting (First ServiceError) a ServiceError-_DataAlreadyAcceptedException =-    _ServiceError . hasCode "DataAlreadyAcceptedException"- -- | Returned if the service cannot complete the request. _ServiceUnavailableException :: AsError a => Getting (First ServiceError) a ServiceError _ServiceUnavailableException =     _ServiceError . hasCode "ServiceUnavailableException"++-- | Prism for DataAlreadyAcceptedException' errors.+_DataAlreadyAcceptedException :: AsError a => Getting (First ServiceError) a ServiceError+_DataAlreadyAcceptedException =+    _ServiceError . hasCode "DataAlreadyAcceptedException"  -- | Returned if the specified resource does not exist. _ResourceNotFoundException :: AsError a => Getting (First ServiceError) a ServiceError

@@ -427,8 +427,8 @@ -- | /See:/ 'metricFilterMatchRecord' smart constructor. data MetricFilterMatchRecord = MetricFilterMatchRecord'     { _mfmrExtractedValues :: !(Maybe (Map Text Text))-    , _mfmrEventMessage    :: !(Maybe 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.@@ -437,16 +437,16 @@ -- -- * 'mfmrExtractedValues' ----- * 'mfmrEventMessage'--- -- * 'mfmrEventNumber'+--+-- * 'mfmrEventMessage' metricFilterMatchRecord     :: MetricFilterMatchRecord metricFilterMatchRecord =     MetricFilterMatchRecord'     { _mfmrExtractedValues = Nothing-    , _mfmrEventMessage = Nothing     , _mfmrEventNumber = Nothing+    , _mfmrEventMessage = Nothing     }  -- | Undocumented member.@@ -454,21 +454,21 @@ mfmrExtractedValues = lens _mfmrExtractedValues (\ s a -> s{_mfmrExtractedValues = a}) . _Default . _Map;  -- | Undocumented member.-mfmrEventMessage :: Lens' MetricFilterMatchRecord (Maybe Text)-mfmrEventMessage = lens _mfmrEventMessage (\ s a -> s{_mfmrEventMessage = a});---- | Undocumented member. mfmrEventNumber :: Lens' MetricFilterMatchRecord (Maybe Integer) mfmrEventNumber = lens _mfmrEventNumber (\ s a -> s{_mfmrEventNumber = a}); +-- | Undocumented member.+mfmrEventMessage :: Lens' MetricFilterMatchRecord (Maybe Text)+mfmrEventMessage = lens _mfmrEventMessage (\ s a -> s{_mfmrEventMessage = a});+ instance FromJSON MetricFilterMatchRecord where         parseJSON           = withObject "MetricFilterMatchRecord"               (\ x ->                  MetricFilterMatchRecord' <$>                    (x .:? "extractedValues" .!= mempty) <*>-                     (x .:? "eventMessage")-                     <*> (x .:? "eventNumber"))+                     (x .:? "eventNumber")+                     <*> (x .:? "eventMessage"))  -- | /See:/ 'metricTransformation' smart constructor. data MetricTransformation = MetricTransformation'

@@ -31,9 +31,6 @@ --         [ testDescribeDestinations $ --             describeDestinations -----         , testDeleteDestination $---             deleteDestination--- --         , testPutDestination $ --             putDestination --@@ -46,6 +43,9 @@ --         , testDescribeLogGroups $ --             describeLogGroups --+--         , testDeleteDestination $+--             deleteDestination+-- --         , testFilterLogEvents $ --             filterLogEvents --@@ -58,38 +58,38 @@ --         , testCreateLogGroup $ --             createLogGroup -----         , testPutLogEvents $---             putLogEvents------         , testDeleteSubscriptionFilter $---             deleteSubscriptionFilter--- --         , testPutSubscriptionFilter $ --             putSubscriptionFilter -- --         , testDeleteLogGroup $ --             deleteLogGroup -----         , testTestMetricFilter $---             testMetricFilter+--         , testDeleteSubscriptionFilter $+--             deleteSubscriptionFilter --+--         , testPutLogEvents $+--             putLogEvents+-- --         , testDescribeMetricFilters $ --             describeMetricFilters -----         , testDeleteMetricFilter $---             deleteMetricFilter+--         , testTestMetricFilter $+--             testMetricFilter -----         , testPutRetentionPolicy $---             putRetentionPolicy+--         , testPutDestinationPolicy $+--             putDestinationPolicy --+--         , testPutMetricFilter $+--             putMetricFilter+-- --         , testDeleteRetentionPolicy $ --             deleteRetentionPolicy -----         , testPutMetricFilter $---             putMetricFilter+--         , testDeleteMetricFilter $+--             deleteMetricFilter -----         , testPutDestinationPolicy $---             putDestinationPolicy+--         , testPutRetentionPolicy $+--             putRetentionPolicy -- --         , testDescribeLogStreams $ --             describeLogStreams@@ -100,9 +100,6 @@ --         [ testDescribeDestinationsResponse $ --             describeDestinationsResponse -----         , testDeleteDestinationResponse $---             deleteDestinationResponse--- --         , testPutDestinationResponse $ --             putDestinationResponse --@@ -115,6 +112,9 @@ --         , testDescribeLogGroupsResponse $ --             describeLogGroupsResponse --+--         , testDeleteDestinationResponse $+--             deleteDestinationResponse+-- --         , testFilterLogEventsResponse $ --             filterLogEventsResponse --@@ -127,38 +127,38 @@ --         , testCreateLogGroupResponse $ --             createLogGroupResponse -----         , testPutLogEventsResponse $---             putLogEventsResponse------         , testDeleteSubscriptionFilterResponse $---             deleteSubscriptionFilterResponse--- --         , testPutSubscriptionFilterResponse $ --             putSubscriptionFilterResponse -- --         , testDeleteLogGroupResponse $ --             deleteLogGroupResponse -----         , testTestMetricFilterResponse $---             testMetricFilterResponse+--         , testDeleteSubscriptionFilterResponse $+--             deleteSubscriptionFilterResponse --+--         , testPutLogEventsResponse $+--             putLogEventsResponse+-- --         , testDescribeMetricFiltersResponse $ --             describeMetricFiltersResponse -----         , testDeleteMetricFilterResponse $---             deleteMetricFilterResponse+--         , testTestMetricFilterResponse $+--             testMetricFilterResponse -----         , testPutRetentionPolicyResponse $---             putRetentionPolicyResponse+--         , testPutDestinationPolicyResponse $+--             putDestinationPolicyResponse --+--         , testPutMetricFilterResponse $+--             putMetricFilterResponse+-- --         , testDeleteRetentionPolicyResponse $ --             deleteRetentionPolicyResponse -----         , testPutMetricFilterResponse $---             putMetricFilterResponse+--         , testDeleteMetricFilterResponse $+--             deleteMetricFilterResponse -----         , testPutDestinationPolicyResponse $---             putDestinationPolicyResponse+--         , testPutRetentionPolicyResponse $+--             putRetentionPolicyResponse -- --         , testDescribeLogStreamsResponse $ --             describeLogStreamsResponse@@ -173,11 +173,6 @@     "DescribeDestinations"     "fixture/DescribeDestinations.yaml" -testDeleteDestination :: DeleteDestination -> TestTree-testDeleteDestination = req-    "DeleteDestination"-    "fixture/DeleteDestination.yaml"- testPutDestination :: PutDestination -> TestTree testPutDestination = req     "PutDestination"@@ -198,6 +193,11 @@     "DescribeLogGroups"     "fixture/DescribeLogGroups.yaml" +testDeleteDestination :: DeleteDestination -> TestTree+testDeleteDestination = req+    "DeleteDestination"+    "fixture/DeleteDestination.yaml"+ testFilterLogEvents :: FilterLogEvents -> TestTree testFilterLogEvents = req     "FilterLogEvents"@@ -218,16 +218,6 @@     "CreateLogGroup"     "fixture/CreateLogGroup.yaml" -testPutLogEvents :: PutLogEvents -> TestTree-testPutLogEvents = req-    "PutLogEvents"-    "fixture/PutLogEvents.yaml"--testDeleteSubscriptionFilter :: DeleteSubscriptionFilter -> TestTree-testDeleteSubscriptionFilter = req-    "DeleteSubscriptionFilter"-    "fixture/DeleteSubscriptionFilter.yaml"- testPutSubscriptionFilter :: PutSubscriptionFilter -> TestTree testPutSubscriptionFilter = req     "PutSubscriptionFilter"@@ -238,16 +228,41 @@     "DeleteLogGroup"     "fixture/DeleteLogGroup.yaml" -testTestMetricFilter :: TestMetricFilter -> TestTree-testTestMetricFilter = req-    "TestMetricFilter"-    "fixture/TestMetricFilter.yaml"+testDeleteSubscriptionFilter :: DeleteSubscriptionFilter -> TestTree+testDeleteSubscriptionFilter = req+    "DeleteSubscriptionFilter"+    "fixture/DeleteSubscriptionFilter.yaml" +testPutLogEvents :: PutLogEvents -> TestTree+testPutLogEvents = req+    "PutLogEvents"+    "fixture/PutLogEvents.yaml"+ testDescribeMetricFilters :: DescribeMetricFilters -> TestTree testDescribeMetricFilters = req     "DescribeMetricFilters"     "fixture/DescribeMetricFilters.yaml" +testTestMetricFilter :: TestMetricFilter -> TestTree+testTestMetricFilter = req+    "TestMetricFilter"+    "fixture/TestMetricFilter.yaml"++testPutDestinationPolicy :: PutDestinationPolicy -> TestTree+testPutDestinationPolicy = req+    "PutDestinationPolicy"+    "fixture/PutDestinationPolicy.yaml"++testPutMetricFilter :: PutMetricFilter -> TestTree+testPutMetricFilter = req+    "PutMetricFilter"+    "fixture/PutMetricFilter.yaml"++testDeleteRetentionPolicy :: DeleteRetentionPolicy -> TestTree+testDeleteRetentionPolicy = req+    "DeleteRetentionPolicy"+    "fixture/DeleteRetentionPolicy.yaml"+ testDeleteMetricFilter :: DeleteMetricFilter -> TestTree testDeleteMetricFilter = req     "DeleteMetricFilter"@@ -258,21 +273,6 @@     "PutRetentionPolicy"     "fixture/PutRetentionPolicy.yaml" -testDeleteRetentionPolicy :: DeleteRetentionPolicy -> TestTree-testDeleteRetentionPolicy = req-    "DeleteRetentionPolicy"-    "fixture/DeleteRetentionPolicy.yaml"--testPutMetricFilter :: PutMetricFilter -> TestTree-testPutMetricFilter = req-    "PutMetricFilter"-    "fixture/PutMetricFilter.yaml"--testPutDestinationPolicy :: PutDestinationPolicy -> TestTree-testPutDestinationPolicy = req-    "PutDestinationPolicy"-    "fixture/PutDestinationPolicy.yaml"- testDescribeLogStreams :: DescribeLogStreams -> TestTree testDescribeLogStreams = req     "DescribeLogStreams"@@ -287,13 +287,6 @@     cloudWatchLogs     (Proxy :: Proxy DescribeDestinations) -testDeleteDestinationResponse :: DeleteDestinationResponse -> TestTree-testDeleteDestinationResponse = res-    "DeleteDestinationResponse"-    "fixture/DeleteDestinationResponse.proto"-    cloudWatchLogs-    (Proxy :: Proxy DeleteDestination)- testPutDestinationResponse :: PutDestinationResponse -> TestTree testPutDestinationResponse = res     "PutDestinationResponse"@@ -322,6 +315,13 @@     cloudWatchLogs     (Proxy :: Proxy DescribeLogGroups) +testDeleteDestinationResponse :: DeleteDestinationResponse -> TestTree+testDeleteDestinationResponse = res+    "DeleteDestinationResponse"+    "fixture/DeleteDestinationResponse.proto"+    cloudWatchLogs+    (Proxy :: Proxy DeleteDestination)+ testFilterLogEventsResponse :: FilterLogEventsResponse -> TestTree testFilterLogEventsResponse = res     "FilterLogEventsResponse"@@ -350,20 +350,6 @@     cloudWatchLogs     (Proxy :: Proxy CreateLogGroup) -testPutLogEventsResponse :: PutLogEventsResponse -> TestTree-testPutLogEventsResponse = res-    "PutLogEventsResponse"-    "fixture/PutLogEventsResponse.proto"-    cloudWatchLogs-    (Proxy :: Proxy PutLogEvents)--testDeleteSubscriptionFilterResponse :: DeleteSubscriptionFilterResponse -> TestTree-testDeleteSubscriptionFilterResponse = res-    "DeleteSubscriptionFilterResponse"-    "fixture/DeleteSubscriptionFilterResponse.proto"-    cloudWatchLogs-    (Proxy :: Proxy DeleteSubscriptionFilter)- testPutSubscriptionFilterResponse :: PutSubscriptionFilterResponse -> TestTree testPutSubscriptionFilterResponse = res     "PutSubscriptionFilterResponse"@@ -378,13 +364,20 @@     cloudWatchLogs     (Proxy :: Proxy DeleteLogGroup) -testTestMetricFilterResponse :: TestMetricFilterResponse -> TestTree-testTestMetricFilterResponse = res-    "TestMetricFilterResponse"-    "fixture/TestMetricFilterResponse.proto"+testDeleteSubscriptionFilterResponse :: DeleteSubscriptionFilterResponse -> TestTree+testDeleteSubscriptionFilterResponse = res+    "DeleteSubscriptionFilterResponse"+    "fixture/DeleteSubscriptionFilterResponse.proto"     cloudWatchLogs-    (Proxy :: Proxy TestMetricFilter)+    (Proxy :: Proxy DeleteSubscriptionFilter) +testPutLogEventsResponse :: PutLogEventsResponse -> TestTree+testPutLogEventsResponse = res+    "PutLogEventsResponse"+    "fixture/PutLogEventsResponse.proto"+    cloudWatchLogs+    (Proxy :: Proxy PutLogEvents)+ testDescribeMetricFiltersResponse :: DescribeMetricFiltersResponse -> TestTree testDescribeMetricFiltersResponse = res     "DescribeMetricFiltersResponse"@@ -392,20 +385,27 @@     cloudWatchLogs     (Proxy :: Proxy DescribeMetricFilters) -testDeleteMetricFilterResponse :: DeleteMetricFilterResponse -> TestTree-testDeleteMetricFilterResponse = res-    "DeleteMetricFilterResponse"-    "fixture/DeleteMetricFilterResponse.proto"+testTestMetricFilterResponse :: TestMetricFilterResponse -> TestTree+testTestMetricFilterResponse = res+    "TestMetricFilterResponse"+    "fixture/TestMetricFilterResponse.proto"     cloudWatchLogs-    (Proxy :: Proxy DeleteMetricFilter)+    (Proxy :: Proxy TestMetricFilter) -testPutRetentionPolicyResponse :: PutRetentionPolicyResponse -> TestTree-testPutRetentionPolicyResponse = res-    "PutRetentionPolicyResponse"-    "fixture/PutRetentionPolicyResponse.proto"+testPutDestinationPolicyResponse :: PutDestinationPolicyResponse -> TestTree+testPutDestinationPolicyResponse = res+    "PutDestinationPolicyResponse"+    "fixture/PutDestinationPolicyResponse.proto"     cloudWatchLogs-    (Proxy :: Proxy PutRetentionPolicy)+    (Proxy :: Proxy PutDestinationPolicy) +testPutMetricFilterResponse :: PutMetricFilterResponse -> TestTree+testPutMetricFilterResponse = res+    "PutMetricFilterResponse"+    "fixture/PutMetricFilterResponse.proto"+    cloudWatchLogs+    (Proxy :: Proxy PutMetricFilter)+ testDeleteRetentionPolicyResponse :: DeleteRetentionPolicyResponse -> TestTree testDeleteRetentionPolicyResponse = res     "DeleteRetentionPolicyResponse"@@ -413,19 +413,19 @@     cloudWatchLogs     (Proxy :: Proxy DeleteRetentionPolicy) -testPutMetricFilterResponse :: PutMetricFilterResponse -> TestTree-testPutMetricFilterResponse = res-    "PutMetricFilterResponse"-    "fixture/PutMetricFilterResponse.proto"+testDeleteMetricFilterResponse :: DeleteMetricFilterResponse -> TestTree+testDeleteMetricFilterResponse = res+    "DeleteMetricFilterResponse"+    "fixture/DeleteMetricFilterResponse.proto"     cloudWatchLogs-    (Proxy :: Proxy PutMetricFilter)+    (Proxy :: Proxy DeleteMetricFilter) -testPutDestinationPolicyResponse :: PutDestinationPolicyResponse -> TestTree-testPutDestinationPolicyResponse = res-    "PutDestinationPolicyResponse"-    "fixture/PutDestinationPolicyResponse.proto"+testPutRetentionPolicyResponse :: PutRetentionPolicyResponse -> TestTree+testPutRetentionPolicyResponse = res+    "PutRetentionPolicyResponse"+    "fixture/PutRetentionPolicyResponse.proto"     cloudWatchLogs-    (Proxy :: Proxy PutDestinationPolicy)+    (Proxy :: Proxy PutRetentionPolicy)  testDescribeLogStreamsResponse :: DescribeLogStreamsResponse -> TestTree testDescribeLogStreamsResponse = res