module Network.AWS.ElasticBeanstalk.DescribeEvents
(
DescribeEvents
, describeEvents
, deApplicationName
, deEndTime
, deEnvironmentId
, deEnvironmentName
, deMaxRecords
, deNextToken
, deRequestId
, deSeverity
, deStartTime
, deTemplateName
, deVersionLabel
, DescribeEventsResponse
, describeEventsResponse
, derEvents
, derNextToken
) where
import Network.AWS.Prelude
import Network.AWS.Request.Query
import Network.AWS.ElasticBeanstalk.Types
import qualified GHC.Exts
data DescribeEvents = DescribeEvents
{ _deApplicationName :: Maybe Text
, _deEndTime :: Maybe ISO8601
, _deEnvironmentId :: Maybe Text
, _deEnvironmentName :: Maybe Text
, _deMaxRecords :: Maybe Nat
, _deNextToken :: Maybe Text
, _deRequestId :: Maybe Text
, _deSeverity :: Maybe EventSeverity
, _deStartTime :: Maybe ISO8601
, _deTemplateName :: Maybe Text
, _deVersionLabel :: Maybe Text
} deriving (Eq, Show)
describeEvents :: DescribeEvents
describeEvents = DescribeEvents
{ _deApplicationName = Nothing
, _deVersionLabel = Nothing
, _deTemplateName = Nothing
, _deEnvironmentId = Nothing
, _deEnvironmentName = Nothing
, _deRequestId = Nothing
, _deSeverity = Nothing
, _deStartTime = Nothing
, _deEndTime = Nothing
, _deMaxRecords = Nothing
, _deNextToken = Nothing
}
deApplicationName :: Lens' DescribeEvents (Maybe Text)
deApplicationName =
lens _deApplicationName (\s a -> s { _deApplicationName = a })
deEndTime :: Lens' DescribeEvents (Maybe UTCTime)
deEndTime = lens _deEndTime (\s a -> s { _deEndTime = a }) . mapping _Time
deEnvironmentId :: Lens' DescribeEvents (Maybe Text)
deEnvironmentId = lens _deEnvironmentId (\s a -> s { _deEnvironmentId = a })
deEnvironmentName :: Lens' DescribeEvents (Maybe Text)
deEnvironmentName =
lens _deEnvironmentName (\s a -> s { _deEnvironmentName = a })
deMaxRecords :: Lens' DescribeEvents (Maybe Natural)
deMaxRecords = lens _deMaxRecords (\s a -> s { _deMaxRecords = a }) . mapping _Nat
deNextToken :: Lens' DescribeEvents (Maybe Text)
deNextToken = lens _deNextToken (\s a -> s { _deNextToken = a })
deRequestId :: Lens' DescribeEvents (Maybe Text)
deRequestId = lens _deRequestId (\s a -> s { _deRequestId = a })
deSeverity :: Lens' DescribeEvents (Maybe EventSeverity)
deSeverity = lens _deSeverity (\s a -> s { _deSeverity = a })
deStartTime :: Lens' DescribeEvents (Maybe UTCTime)
deStartTime = lens _deStartTime (\s a -> s { _deStartTime = a }) . mapping _Time
deTemplateName :: Lens' DescribeEvents (Maybe Text)
deTemplateName = lens _deTemplateName (\s a -> s { _deTemplateName = a })
deVersionLabel :: Lens' DescribeEvents (Maybe Text)
deVersionLabel = lens _deVersionLabel (\s a -> s { _deVersionLabel = a })
data DescribeEventsResponse = DescribeEventsResponse
{ _derEvents :: List "member" EventDescription
, _derNextToken :: Maybe Text
} deriving (Eq, Show)
describeEventsResponse :: DescribeEventsResponse
describeEventsResponse = DescribeEventsResponse
{ _derEvents = mempty
, _derNextToken = Nothing
}
derEvents :: Lens' DescribeEventsResponse [EventDescription]
derEvents = lens _derEvents (\s a -> s { _derEvents = a }) . _List
derNextToken :: Lens' DescribeEventsResponse (Maybe Text)
derNextToken = lens _derNextToken (\s a -> s { _derNextToken = a })
instance ToPath DescribeEvents where
toPath = const "/"
instance ToQuery DescribeEvents where
toQuery DescribeEvents{..} = mconcat
[ "ApplicationName" =? _deApplicationName
, "EndTime" =? _deEndTime
, "EnvironmentId" =? _deEnvironmentId
, "EnvironmentName" =? _deEnvironmentName
, "MaxRecords" =? _deMaxRecords
, "NextToken" =? _deNextToken
, "RequestId" =? _deRequestId
, "Severity" =? _deSeverity
, "StartTime" =? _deStartTime
, "TemplateName" =? _deTemplateName
, "VersionLabel" =? _deVersionLabel
]
instance ToHeaders DescribeEvents
instance AWSRequest DescribeEvents where
type Sv DescribeEvents = ElasticBeanstalk
type Rs DescribeEvents = DescribeEventsResponse
request = post "DescribeEvents"
response = xmlResponse
instance FromXML DescribeEventsResponse where
parseXML = withElement "DescribeEventsResult" $ \x -> DescribeEventsResponse
<$> x .@? "Events" .!@ mempty
<*> x .@? "NextToken"
instance AWSPager DescribeEvents where
page rq rs
| stop (rq ^. deNextToken) = Nothing
| otherwise = (\x -> rq & deNextToken ?~ x)
<$> (rs ^. derNextToken)