module Network.AWS.CloudWatch.DescribeAlarmHistory
(
describeAlarmHistory
, DescribeAlarmHistory
, dahAlarmName
, dahHistoryItemType
, dahEndDate
, dahStartDate
, dahNextToken
, dahMaxRecords
, describeAlarmHistoryResponse
, DescribeAlarmHistoryResponse
, dahrsAlarmHistoryItems
, dahrsNextToken
, dahrsStatus
) where
import Network.AWS.CloudWatch.Types
import Network.AWS.CloudWatch.Types.Product
import Network.AWS.Pager
import Network.AWS.Prelude
import Network.AWS.Request
import Network.AWS.Response
data DescribeAlarmHistory = DescribeAlarmHistory'
{ _dahAlarmName :: !(Maybe Text)
, _dahHistoryItemType :: !(Maybe HistoryItemType)
, _dahEndDate :: !(Maybe ISO8601)
, _dahStartDate :: !(Maybe ISO8601)
, _dahNextToken :: !(Maybe Text)
, _dahMaxRecords :: !(Maybe Nat)
} deriving (Eq,Read,Show,Data,Typeable,Generic)
describeAlarmHistory
:: DescribeAlarmHistory
describeAlarmHistory =
DescribeAlarmHistory'
{ _dahAlarmName = Nothing
, _dahHistoryItemType = Nothing
, _dahEndDate = Nothing
, _dahStartDate = Nothing
, _dahNextToken = Nothing
, _dahMaxRecords = Nothing
}
dahAlarmName :: Lens' DescribeAlarmHistory (Maybe Text)
dahAlarmName = lens _dahAlarmName (\ s a -> s{_dahAlarmName = a});
dahHistoryItemType :: Lens' DescribeAlarmHistory (Maybe HistoryItemType)
dahHistoryItemType = lens _dahHistoryItemType (\ s a -> s{_dahHistoryItemType = a});
dahEndDate :: Lens' DescribeAlarmHistory (Maybe UTCTime)
dahEndDate = lens _dahEndDate (\ s a -> s{_dahEndDate = a}) . mapping _Time;
dahStartDate :: Lens' DescribeAlarmHistory (Maybe UTCTime)
dahStartDate = lens _dahStartDate (\ s a -> s{_dahStartDate = a}) . mapping _Time;
dahNextToken :: Lens' DescribeAlarmHistory (Maybe Text)
dahNextToken = lens _dahNextToken (\ s a -> s{_dahNextToken = a});
dahMaxRecords :: Lens' DescribeAlarmHistory (Maybe Natural)
dahMaxRecords = lens _dahMaxRecords (\ s a -> s{_dahMaxRecords = a}) . mapping _Nat;
instance AWSPager DescribeAlarmHistory where
page rq rs
| stop (rs ^. dahrsNextToken) = Nothing
| stop (rs ^. dahrsAlarmHistoryItems) = Nothing
| otherwise =
Just $ rq & dahNextToken .~ rs ^. dahrsNextToken
instance AWSRequest DescribeAlarmHistory where
type Rs DescribeAlarmHistory =
DescribeAlarmHistoryResponse
request = postQuery cloudWatch
response
= receiveXMLWrapper "DescribeAlarmHistoryResult"
(\ s h x ->
DescribeAlarmHistoryResponse' <$>
(x .@? "AlarmHistoryItems" .!@ mempty >>=
may (parseXMLList "member"))
<*> (x .@? "NextToken")
<*> (pure (fromEnum s)))
instance ToHeaders DescribeAlarmHistory where
toHeaders = const mempty
instance ToPath DescribeAlarmHistory where
toPath = const "/"
instance ToQuery DescribeAlarmHistory where
toQuery DescribeAlarmHistory'{..}
= mconcat
["Action" =: ("DescribeAlarmHistory" :: ByteString),
"Version" =: ("2010-08-01" :: ByteString),
"AlarmName" =: _dahAlarmName,
"HistoryItemType" =: _dahHistoryItemType,
"EndDate" =: _dahEndDate,
"StartDate" =: _dahStartDate,
"NextToken" =: _dahNextToken,
"MaxRecords" =: _dahMaxRecords]
data DescribeAlarmHistoryResponse = DescribeAlarmHistoryResponse'
{ _dahrsAlarmHistoryItems :: !(Maybe [AlarmHistoryItem])
, _dahrsNextToken :: !(Maybe Text)
, _dahrsStatus :: !Int
} deriving (Eq,Read,Show,Data,Typeable,Generic)
describeAlarmHistoryResponse
:: Int
-> DescribeAlarmHistoryResponse
describeAlarmHistoryResponse pStatus_ =
DescribeAlarmHistoryResponse'
{ _dahrsAlarmHistoryItems = Nothing
, _dahrsNextToken = Nothing
, _dahrsStatus = pStatus_
}
dahrsAlarmHistoryItems :: Lens' DescribeAlarmHistoryResponse [AlarmHistoryItem]
dahrsAlarmHistoryItems = lens _dahrsAlarmHistoryItems (\ s a -> s{_dahrsAlarmHistoryItems = a}) . _Default . _Coerce;
dahrsNextToken :: Lens' DescribeAlarmHistoryResponse (Maybe Text)
dahrsNextToken = lens _dahrsNextToken (\ s a -> s{_dahrsNextToken = a});
dahrsStatus :: Lens' DescribeAlarmHistoryResponse Int
dahrsStatus = lens _dahrsStatus (\ s a -> s{_dahrsStatus = a});