{-# LANGUAGE DeriveDataTypeable #-}
{-# LANGUAGE DeriveGeneric #-}
{-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE RecordWildCards #-}
{-# LANGUAGE TypeFamilies #-}
{-# OPTIONS_GHC -fno-warn-unused-imports #-}
{-# OPTIONS_GHC -fno-warn-unused-binds #-}
{-# OPTIONS_GHC -fno-warn-unused-matches #-}
module Network.AWS.EC2.DescribeSpotFleetRequestHistory
(
describeSpotFleetRequestHistory
, DescribeSpotFleetRequestHistory
, dsfrhNextToken
, dsfrhEventType
, dsfrhDryRun
, dsfrhMaxResults
, dsfrhSpotFleetRequestId
, dsfrhStartTime
, describeSpotFleetRequestHistoryResponse
, DescribeSpotFleetRequestHistoryResponse
, dsfrhrsNextToken
, dsfrhrsResponseStatus
, dsfrhrsSpotFleetRequestId
, dsfrhrsStartTime
, dsfrhrsLastEvaluatedTime
, dsfrhrsHistoryRecords
) where
import Network.AWS.EC2.Types
import Network.AWS.EC2.Types.Product
import Network.AWS.Lens
import Network.AWS.Prelude
import Network.AWS.Request
import Network.AWS.Response
data DescribeSpotFleetRequestHistory = DescribeSpotFleetRequestHistory'
{ _dsfrhNextToken :: !(Maybe Text)
, _dsfrhEventType :: !(Maybe EventType)
, _dsfrhDryRun :: !(Maybe Bool)
, _dsfrhMaxResults :: !(Maybe Int)
, _dsfrhSpotFleetRequestId :: !Text
, _dsfrhStartTime :: !ISO8601
} deriving (Eq,Read,Show,Data,Typeable,Generic)
describeSpotFleetRequestHistory
:: Text
-> UTCTime
-> DescribeSpotFleetRequestHistory
describeSpotFleetRequestHistory pSpotFleetRequestId_ pStartTime_ =
DescribeSpotFleetRequestHistory'
{ _dsfrhNextToken = Nothing
, _dsfrhEventType = Nothing
, _dsfrhDryRun = Nothing
, _dsfrhMaxResults = Nothing
, _dsfrhSpotFleetRequestId = pSpotFleetRequestId_
, _dsfrhStartTime = _Time # pStartTime_
}
dsfrhNextToken :: Lens' DescribeSpotFleetRequestHistory (Maybe Text)
dsfrhNextToken = lens _dsfrhNextToken (\ s a -> s{_dsfrhNextToken = a});
dsfrhEventType :: Lens' DescribeSpotFleetRequestHistory (Maybe EventType)
dsfrhEventType = lens _dsfrhEventType (\ s a -> s{_dsfrhEventType = a});
dsfrhDryRun :: Lens' DescribeSpotFleetRequestHistory (Maybe Bool)
dsfrhDryRun = lens _dsfrhDryRun (\ s a -> s{_dsfrhDryRun = a});
dsfrhMaxResults :: Lens' DescribeSpotFleetRequestHistory (Maybe Int)
dsfrhMaxResults = lens _dsfrhMaxResults (\ s a -> s{_dsfrhMaxResults = a});
dsfrhSpotFleetRequestId :: Lens' DescribeSpotFleetRequestHistory Text
dsfrhSpotFleetRequestId = lens _dsfrhSpotFleetRequestId (\ s a -> s{_dsfrhSpotFleetRequestId = a});
dsfrhStartTime :: Lens' DescribeSpotFleetRequestHistory UTCTime
dsfrhStartTime = lens _dsfrhStartTime (\ s a -> s{_dsfrhStartTime = a}) . _Time;
instance AWSRequest DescribeSpotFleetRequestHistory
where
type Rs DescribeSpotFleetRequestHistory =
DescribeSpotFleetRequestHistoryResponse
request = postQuery ec2
response
= receiveXML
(\ s h x ->
DescribeSpotFleetRequestHistoryResponse' <$>
(x .@? "nextToken") <*> (pure (fromEnum s)) <*>
(x .@ "spotFleetRequestId")
<*> (x .@ "startTime")
<*> (x .@ "lastEvaluatedTime")
<*>
(x .@? "historyRecordSet" .!@ mempty >>=
parseXMLList "item"))
instance Hashable DescribeSpotFleetRequestHistory
instance NFData DescribeSpotFleetRequestHistory
instance ToHeaders DescribeSpotFleetRequestHistory
where
toHeaders = const mempty
instance ToPath DescribeSpotFleetRequestHistory where
toPath = const "/"
instance ToQuery DescribeSpotFleetRequestHistory
where
toQuery DescribeSpotFleetRequestHistory'{..}
= mconcat
["Action" =:
("DescribeSpotFleetRequestHistory" :: ByteString),
"Version" =: ("2016-04-01" :: ByteString),
"NextToken" =: _dsfrhNextToken,
"EventType" =: _dsfrhEventType,
"DryRun" =: _dsfrhDryRun,
"MaxResults" =: _dsfrhMaxResults,
"SpotFleetRequestId" =: _dsfrhSpotFleetRequestId,
"StartTime" =: _dsfrhStartTime]
data DescribeSpotFleetRequestHistoryResponse = DescribeSpotFleetRequestHistoryResponse'
{ _dsfrhrsNextToken :: !(Maybe Text)
, _dsfrhrsResponseStatus :: !Int
, _dsfrhrsSpotFleetRequestId :: !Text
, _dsfrhrsStartTime :: !ISO8601
, _dsfrhrsLastEvaluatedTime :: !ISO8601
, _dsfrhrsHistoryRecords :: ![HistoryRecord]
} deriving (Eq,Read,Show,Data,Typeable,Generic)
describeSpotFleetRequestHistoryResponse
:: Int
-> Text
-> UTCTime
-> UTCTime
-> DescribeSpotFleetRequestHistoryResponse
describeSpotFleetRequestHistoryResponse pResponseStatus_ pSpotFleetRequestId_ pStartTime_ pLastEvaluatedTime_ =
DescribeSpotFleetRequestHistoryResponse'
{ _dsfrhrsNextToken = Nothing
, _dsfrhrsResponseStatus = pResponseStatus_
, _dsfrhrsSpotFleetRequestId = pSpotFleetRequestId_
, _dsfrhrsStartTime = _Time # pStartTime_
, _dsfrhrsLastEvaluatedTime = _Time # pLastEvaluatedTime_
, _dsfrhrsHistoryRecords = mempty
}
dsfrhrsNextToken :: Lens' DescribeSpotFleetRequestHistoryResponse (Maybe Text)
dsfrhrsNextToken = lens _dsfrhrsNextToken (\ s a -> s{_dsfrhrsNextToken = a});
dsfrhrsResponseStatus :: Lens' DescribeSpotFleetRequestHistoryResponse Int
dsfrhrsResponseStatus = lens _dsfrhrsResponseStatus (\ s a -> s{_dsfrhrsResponseStatus = a});
dsfrhrsSpotFleetRequestId :: Lens' DescribeSpotFleetRequestHistoryResponse Text
dsfrhrsSpotFleetRequestId = lens _dsfrhrsSpotFleetRequestId (\ s a -> s{_dsfrhrsSpotFleetRequestId = a});
dsfrhrsStartTime :: Lens' DescribeSpotFleetRequestHistoryResponse UTCTime
dsfrhrsStartTime = lens _dsfrhrsStartTime (\ s a -> s{_dsfrhrsStartTime = a}) . _Time;
dsfrhrsLastEvaluatedTime :: Lens' DescribeSpotFleetRequestHistoryResponse UTCTime
dsfrhrsLastEvaluatedTime = lens _dsfrhrsLastEvaluatedTime (\ s a -> s{_dsfrhrsLastEvaluatedTime = a}) . _Time;
dsfrhrsHistoryRecords :: Lens' DescribeSpotFleetRequestHistoryResponse [HistoryRecord]
dsfrhrsHistoryRecords = lens _dsfrhrsHistoryRecords (\ s a -> s{_dsfrhrsHistoryRecords = a}) . _Coerce;
instance NFData
DescribeSpotFleetRequestHistoryResponse