module Network.AWS.EC2.DescribeSpotFleetRequestHistory
(
DescribeSpotFleetRequestHistory
, describeSpotFleetRequestHistory
, dsfrhDryRun
, dsfrhEventType
, dsfrhMaxResults
, dsfrhNextToken
, dsfrhSpotFleetRequestId
, dsfrhStartTime
, DescribeSpotFleetRequestHistoryResponse
, describeSpotFleetRequestHistoryResponse
, dsfrhrHistoryRecords
, dsfrhrLastEvaluatedTime
, dsfrhrNextToken
, dsfrhrSpotFleetRequestId
, dsfrhrStartTime
) where
import Network.AWS.Prelude
import Network.AWS.Request.Query
import Network.AWS.EC2.Types
import qualified GHC.Exts
data DescribeSpotFleetRequestHistory = DescribeSpotFleetRequestHistory
{ _dsfrhDryRun :: Maybe Bool
, _dsfrhEventType :: Maybe EventType
, _dsfrhMaxResults :: Maybe Int
, _dsfrhNextToken :: Maybe Text
, _dsfrhSpotFleetRequestId :: Text
, _dsfrhStartTime :: ISO8601
} deriving (Eq, Read, Show)
describeSpotFleetRequestHistory :: Text
-> UTCTime
-> DescribeSpotFleetRequestHistory
describeSpotFleetRequestHistory p1 p2 = DescribeSpotFleetRequestHistory
{ _dsfrhSpotFleetRequestId = p1
, _dsfrhStartTime = withIso _Time (const id) p2
, _dsfrhDryRun = Nothing
, _dsfrhEventType = Nothing
, _dsfrhNextToken = Nothing
, _dsfrhMaxResults = Nothing
}
dsfrhDryRun :: Lens' DescribeSpotFleetRequestHistory (Maybe Bool)
dsfrhDryRun = lens _dsfrhDryRun (\s a -> s { _dsfrhDryRun = a })
dsfrhEventType :: Lens' DescribeSpotFleetRequestHistory (Maybe EventType)
dsfrhEventType = lens _dsfrhEventType (\s a -> s { _dsfrhEventType = a })
dsfrhMaxResults :: Lens' DescribeSpotFleetRequestHistory (Maybe Int)
dsfrhMaxResults = lens _dsfrhMaxResults (\s a -> s { _dsfrhMaxResults = a })
dsfrhNextToken :: Lens' DescribeSpotFleetRequestHistory (Maybe Text)
dsfrhNextToken = lens _dsfrhNextToken (\s a -> s { _dsfrhNextToken = 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
data DescribeSpotFleetRequestHistoryResponse = DescribeSpotFleetRequestHistoryResponse
{ _dsfrhrHistoryRecords :: List "item" HistoryRecord
, _dsfrhrLastEvaluatedTime :: ISO8601
, _dsfrhrNextToken :: Maybe Text
, _dsfrhrSpotFleetRequestId :: Text
, _dsfrhrStartTime :: ISO8601
} deriving (Eq, Read, Show)
describeSpotFleetRequestHistoryResponse :: Text
-> UTCTime
-> UTCTime
-> DescribeSpotFleetRequestHistoryResponse
describeSpotFleetRequestHistoryResponse p1 p2 p3 = DescribeSpotFleetRequestHistoryResponse
{ _dsfrhrSpotFleetRequestId = p1
, _dsfrhrStartTime = withIso _Time (const id) p2
, _dsfrhrLastEvaluatedTime = withIso _Time (const id) p3
, _dsfrhrHistoryRecords = mempty
, _dsfrhrNextToken = Nothing
}
dsfrhrHistoryRecords :: Lens' DescribeSpotFleetRequestHistoryResponse [HistoryRecord]
dsfrhrHistoryRecords =
lens _dsfrhrHistoryRecords (\s a -> s { _dsfrhrHistoryRecords = a })
. _List
dsfrhrLastEvaluatedTime :: Lens' DescribeSpotFleetRequestHistoryResponse UTCTime
dsfrhrLastEvaluatedTime =
lens _dsfrhrLastEvaluatedTime (\s a -> s { _dsfrhrLastEvaluatedTime = a })
. _Time
dsfrhrNextToken :: Lens' DescribeSpotFleetRequestHistoryResponse (Maybe Text)
dsfrhrNextToken = lens _dsfrhrNextToken (\s a -> s { _dsfrhrNextToken = a })
dsfrhrSpotFleetRequestId :: Lens' DescribeSpotFleetRequestHistoryResponse Text
dsfrhrSpotFleetRequestId =
lens _dsfrhrSpotFleetRequestId
(\s a -> s { _dsfrhrSpotFleetRequestId = a })
dsfrhrStartTime :: Lens' DescribeSpotFleetRequestHistoryResponse UTCTime
dsfrhrStartTime = lens _dsfrhrStartTime (\s a -> s { _dsfrhrStartTime = a }) . _Time
instance ToPath DescribeSpotFleetRequestHistory where
toPath = const "/"
instance ToQuery DescribeSpotFleetRequestHistory where
toQuery DescribeSpotFleetRequestHistory{..} = mconcat
[ "DryRun" =? _dsfrhDryRun
, "EventType" =? _dsfrhEventType
, "MaxResults" =? _dsfrhMaxResults
, "NextToken" =? _dsfrhNextToken
, "SpotFleetRequestId" =? _dsfrhSpotFleetRequestId
, "StartTime" =? _dsfrhStartTime
]
instance ToHeaders DescribeSpotFleetRequestHistory
instance AWSRequest DescribeSpotFleetRequestHistory where
type Sv DescribeSpotFleetRequestHistory = EC2
type Rs DescribeSpotFleetRequestHistory = DescribeSpotFleetRequestHistoryResponse
request = post "DescribeSpotFleetRequestHistory"
response = xmlResponse
instance FromXML DescribeSpotFleetRequestHistoryResponse where
parseXML x = DescribeSpotFleetRequestHistoryResponse
<$> x .@? "historyRecordSet" .!@ mempty
<*> x .@ "lastEvaluatedTime"
<*> x .@? "nextToken"
<*> x .@ "spotFleetRequestId"
<*> x .@ "startTime"