diff --git a/README.md b/README.md --- a/README.md +++ b/README.md @@ -8,7 +8,7 @@ ## Version -`1.2.0.2` +`1.3.0` ## Description diff --git a/amazonka-cloudwatch-logs.cabal b/amazonka-cloudwatch-logs.cabal --- a/amazonka-cloudwatch-logs.cabal +++ b/amazonka-cloudwatch-logs.cabal @@ -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 diff --git a/gen/Network/AWS/CloudWatchLogs.hs b/gen/Network/AWS/CloudWatchLogs.hs --- a/gen/Network/AWS/CloudWatchLogs.hs +++ b/gen/Network/AWS/CloudWatchLogs.hs @@ -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 diff --git a/gen/Network/AWS/CloudWatchLogs/DescribeDestinations.hs b/gen/Network/AWS/CloudWatchLogs/DescribeDestinations.hs --- a/gen/Network/AWS/CloudWatchLogs/DescribeDestinations.hs +++ b/gen/Network/AWS/CloudWatchLogs/DescribeDestinations.hs @@ -29,6 +29,8 @@ -- parameter in the request. -- -- /See:/ 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}); diff --git a/gen/Network/AWS/CloudWatchLogs/DescribeLogGroups.hs b/gen/Network/AWS/CloudWatchLogs/DescribeLogGroups.hs --- a/gen/Network/AWS/CloudWatchLogs/DescribeLogGroups.hs +++ b/gen/Network/AWS/CloudWatchLogs/DescribeLogGroups.hs @@ -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}); diff --git a/gen/Network/AWS/CloudWatchLogs/DescribeLogStreams.hs b/gen/Network/AWS/CloudWatchLogs/DescribeLogStreams.hs --- a/gen/Network/AWS/CloudWatchLogs/DescribeLogStreams.hs +++ b/gen/Network/AWS/CloudWatchLogs/DescribeLogStreams.hs @@ -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}); diff --git a/gen/Network/AWS/CloudWatchLogs/DescribeMetricFilters.hs b/gen/Network/AWS/CloudWatchLogs/DescribeMetricFilters.hs --- a/gen/Network/AWS/CloudWatchLogs/DescribeMetricFilters.hs +++ b/gen/Network/AWS/CloudWatchLogs/DescribeMetricFilters.hs @@ -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}); diff --git a/gen/Network/AWS/CloudWatchLogs/DescribeSubscriptionFilters.hs b/gen/Network/AWS/CloudWatchLogs/DescribeSubscriptionFilters.hs --- a/gen/Network/AWS/CloudWatchLogs/DescribeSubscriptionFilters.hs +++ b/gen/Network/AWS/CloudWatchLogs/DescribeSubscriptionFilters.hs @@ -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}); diff --git a/gen/Network/AWS/CloudWatchLogs/FilterLogEvents.hs b/gen/Network/AWS/CloudWatchLogs/FilterLogEvents.hs --- a/gen/Network/AWS/CloudWatchLogs/FilterLogEvents.hs +++ b/gen/Network/AWS/CloudWatchLogs/FilterLogEvents.hs @@ -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}); diff --git a/gen/Network/AWS/CloudWatchLogs/GetLogEvents.hs b/gen/Network/AWS/CloudWatchLogs/GetLogEvents.hs --- a/gen/Network/AWS/CloudWatchLogs/GetLogEvents.hs +++ b/gen/Network/AWS/CloudWatchLogs/GetLogEvents.hs @@ -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}); diff --git a/gen/Network/AWS/CloudWatchLogs/PutDestination.hs b/gen/Network/AWS/CloudWatchLogs/PutDestination.hs --- a/gen/Network/AWS/CloudWatchLogs/PutDestination.hs +++ b/gen/Network/AWS/CloudWatchLogs/PutDestination.hs @@ -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}); diff --git a/gen/Network/AWS/CloudWatchLogs/PutLogEvents.hs b/gen/Network/AWS/CloudWatchLogs/PutLogEvents.hs --- a/gen/Network/AWS/CloudWatchLogs/PutLogEvents.hs +++ b/gen/Network/AWS/CloudWatchLogs/PutLogEvents.hs @@ -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}); diff --git a/gen/Network/AWS/CloudWatchLogs/TestMetricFilter.hs b/gen/Network/AWS/CloudWatchLogs/TestMetricFilter.hs --- a/gen/Network/AWS/CloudWatchLogs/TestMetricFilter.hs +++ b/gen/Network/AWS/CloudWatchLogs/TestMetricFilter.hs @@ -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}); diff --git a/gen/Network/AWS/CloudWatchLogs/Types.hs b/gen/Network/AWS/CloudWatchLogs/Types.hs --- a/gen/Network/AWS/CloudWatchLogs/Types.hs +++ b/gen/Network/AWS/CloudWatchLogs/Types.hs @@ -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 diff --git a/gen/Network/AWS/CloudWatchLogs/Types/Product.hs b/gen/Network/AWS/CloudWatchLogs/Types/Product.hs --- a/gen/Network/AWS/CloudWatchLogs/Types/Product.hs +++ b/gen/Network/AWS/CloudWatchLogs/Types/Product.hs @@ -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' diff --git a/test/Test/AWS/Gen/CloudWatchLogs.hs b/test/Test/AWS/Gen/CloudWatchLogs.hs --- a/test/Test/AWS/Gen/CloudWatchLogs.hs +++ b/test/Test/AWS/Gen/CloudWatchLogs.hs @@ -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