module Network.AWS.CloudWatchLogs.DescribeLogStreams
(
describeLogStreams
, DescribeLogStreams
, dlssOrderBy
, dlssDescending
, dlssNextToken
, dlssLogStreamNamePrefix
, dlssLimit
, dlssLogGroupName
, describeLogStreamsResponse
, DescribeLogStreamsResponse
, dlsrsNextToken
, dlsrsLogStreams
, dlsrsStatus
) 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
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)
describeLogStreams
:: Text
-> DescribeLogStreams
describeLogStreams pLogGroupName_ =
DescribeLogStreams'
{ _dlssOrderBy = Nothing
, _dlssDescending = Nothing
, _dlssNextToken = Nothing
, _dlssLogStreamNamePrefix = Nothing
, _dlssLimit = Nothing
, _dlssLogGroupName = pLogGroupName_
}
dlssOrderBy :: Lens' DescribeLogStreams (Maybe OrderBy)
dlssOrderBy = lens _dlssOrderBy (\ s a -> s{_dlssOrderBy = a});
dlssDescending :: Lens' DescribeLogStreams (Maybe Bool)
dlssDescending = lens _dlssDescending (\ s a -> s{_dlssDescending = a});
dlssNextToken :: Lens' DescribeLogStreams (Maybe Text)
dlssNextToken = lens _dlssNextToken (\ s a -> s{_dlssNextToken = a});
dlssLogStreamNamePrefix :: Lens' DescribeLogStreams (Maybe Text)
dlssLogStreamNamePrefix = lens _dlssLogStreamNamePrefix (\ s a -> s{_dlssLogStreamNamePrefix = a});
dlssLimit :: Lens' DescribeLogStreams (Maybe Natural)
dlssLimit = lens _dlssLimit (\ s a -> s{_dlssLimit = a}) . mapping _Nat;
dlssLogGroupName :: Lens' DescribeLogStreams Text
dlssLogGroupName = lens _dlssLogGroupName (\ s a -> s{_dlssLogGroupName = a});
instance AWSPager DescribeLogStreams where
page rq rs
| stop (rs ^. dlsrsNextToken) = Nothing
| stop (rs ^. dlsrsLogStreams) = Nothing
| otherwise =
Just $ rq & dlssNextToken .~ rs ^. dlsrsNextToken
instance AWSRequest DescribeLogStreams where
type Sv DescribeLogStreams = CloudWatchLogs
type Rs DescribeLogStreams =
DescribeLogStreamsResponse
request = postJSON
response
= receiveJSON
(\ s h x ->
DescribeLogStreamsResponse' <$>
(x .?> "nextToken") <*>
(x .?> "logStreams" .!@ mempty)
<*> (pure (fromEnum s)))
instance ToHeaders DescribeLogStreams where
toHeaders
= const
(mconcat
["X-Amz-Target" =#
("Logs_20140328.DescribeLogStreams" :: ByteString),
"Content-Type" =#
("application/x-amz-json-1.1" :: ByteString)])
instance ToJSON DescribeLogStreams where
toJSON DescribeLogStreams'{..}
= object
["orderBy" .= _dlssOrderBy,
"descending" .= _dlssDescending,
"nextToken" .= _dlssNextToken,
"logStreamNamePrefix" .= _dlssLogStreamNamePrefix,
"limit" .= _dlssLimit,
"logGroupName" .= _dlssLogGroupName]
instance ToPath DescribeLogStreams where
toPath = const "/"
instance ToQuery DescribeLogStreams where
toQuery = const mempty
data DescribeLogStreamsResponse = DescribeLogStreamsResponse'
{ _dlsrsNextToken :: !(Maybe Text)
, _dlsrsLogStreams :: !(Maybe [LogStream])
, _dlsrsStatus :: !Int
} deriving (Eq,Read,Show,Data,Typeable,Generic)
describeLogStreamsResponse
:: Int
-> DescribeLogStreamsResponse
describeLogStreamsResponse pStatus_ =
DescribeLogStreamsResponse'
{ _dlsrsNextToken = Nothing
, _dlsrsLogStreams = Nothing
, _dlsrsStatus = pStatus_
}
dlsrsNextToken :: Lens' DescribeLogStreamsResponse (Maybe Text)
dlsrsNextToken = lens _dlsrsNextToken (\ s a -> s{_dlsrsNextToken = a});
dlsrsLogStreams :: Lens' DescribeLogStreamsResponse [LogStream]
dlsrsLogStreams = lens _dlsrsLogStreams (\ s a -> s{_dlsrsLogStreams = a}) . _Default . _Coerce;
dlsrsStatus :: Lens' DescribeLogStreamsResponse Int
dlsrsStatus = lens _dlsrsStatus (\ s a -> s{_dlsrsStatus = a});