module Network.AWS.ElasticBeanstalk.DescribeEnvironmentManagedActionHistory
(
describeEnvironmentManagedActionHistory
, DescribeEnvironmentManagedActionHistory
, demahNextToken
, demahEnvironmentName
, demahMaxItems
, demahEnvironmentId
, describeEnvironmentManagedActionHistoryResponse
, DescribeEnvironmentManagedActionHistoryResponse
, demahrsManagedActionHistoryItems
, demahrsNextToken
, demahrsResponseStatus
) where
import Network.AWS.ElasticBeanstalk.Types
import Network.AWS.ElasticBeanstalk.Types.Product
import Network.AWS.Lens
import Network.AWS.Prelude
import Network.AWS.Request
import Network.AWS.Response
data DescribeEnvironmentManagedActionHistory = DescribeEnvironmentManagedActionHistory'
{ _demahNextToken :: !(Maybe Text)
, _demahEnvironmentName :: !(Maybe Text)
, _demahMaxItems :: !(Maybe Int)
, _demahEnvironmentId :: !(Maybe Text)
} deriving (Eq,Read,Show,Data,Typeable,Generic)
describeEnvironmentManagedActionHistory
:: DescribeEnvironmentManagedActionHistory
describeEnvironmentManagedActionHistory =
DescribeEnvironmentManagedActionHistory'
{ _demahNextToken = Nothing
, _demahEnvironmentName = Nothing
, _demahMaxItems = Nothing
, _demahEnvironmentId = Nothing
}
demahNextToken :: Lens' DescribeEnvironmentManagedActionHistory (Maybe Text)
demahNextToken = lens _demahNextToken (\ s a -> s{_demahNextToken = a});
demahEnvironmentName :: Lens' DescribeEnvironmentManagedActionHistory (Maybe Text)
demahEnvironmentName = lens _demahEnvironmentName (\ s a -> s{_demahEnvironmentName = a});
demahMaxItems :: Lens' DescribeEnvironmentManagedActionHistory (Maybe Int)
demahMaxItems = lens _demahMaxItems (\ s a -> s{_demahMaxItems = a});
demahEnvironmentId :: Lens' DescribeEnvironmentManagedActionHistory (Maybe Text)
demahEnvironmentId = lens _demahEnvironmentId (\ s a -> s{_demahEnvironmentId = a});
instance AWSRequest
DescribeEnvironmentManagedActionHistory where
type Rs DescribeEnvironmentManagedActionHistory =
DescribeEnvironmentManagedActionHistoryResponse
request = postQuery elasticBeanstalk
response
= receiveXMLWrapper
"DescribeEnvironmentManagedActionHistoryResult"
(\ s h x ->
DescribeEnvironmentManagedActionHistoryResponse' <$>
(x .@? "ManagedActionHistoryItems" .!@ mempty >>=
may (parseXMLList1 "member"))
<*> (x .@? "NextToken")
<*> (pure (fromEnum s)))
instance Hashable
DescribeEnvironmentManagedActionHistory
instance NFData
DescribeEnvironmentManagedActionHistory
instance ToHeaders
DescribeEnvironmentManagedActionHistory where
toHeaders = const mempty
instance ToPath
DescribeEnvironmentManagedActionHistory where
toPath = const "/"
instance ToQuery
DescribeEnvironmentManagedActionHistory where
toQuery DescribeEnvironmentManagedActionHistory'{..}
= mconcat
["Action" =:
("DescribeEnvironmentManagedActionHistory" ::
ByteString),
"Version" =: ("2010-12-01" :: ByteString),
"NextToken" =: _demahNextToken,
"EnvironmentName" =: _demahEnvironmentName,
"MaxItems" =: _demahMaxItems,
"EnvironmentId" =: _demahEnvironmentId]
data DescribeEnvironmentManagedActionHistoryResponse = DescribeEnvironmentManagedActionHistoryResponse'
{ _demahrsManagedActionHistoryItems :: !(Maybe (List1 ManagedActionHistoryItem))
, _demahrsNextToken :: !(Maybe Text)
, _demahrsResponseStatus :: !Int
} deriving (Eq,Read,Show,Data,Typeable,Generic)
describeEnvironmentManagedActionHistoryResponse
:: Int
-> DescribeEnvironmentManagedActionHistoryResponse
describeEnvironmentManagedActionHistoryResponse pResponseStatus_ =
DescribeEnvironmentManagedActionHistoryResponse'
{ _demahrsManagedActionHistoryItems = Nothing
, _demahrsNextToken = Nothing
, _demahrsResponseStatus = pResponseStatus_
}
demahrsManagedActionHistoryItems :: Lens' DescribeEnvironmentManagedActionHistoryResponse (Maybe (NonEmpty ManagedActionHistoryItem))
demahrsManagedActionHistoryItems = lens _demahrsManagedActionHistoryItems (\ s a -> s{_demahrsManagedActionHistoryItems = a}) . mapping _List1;
demahrsNextToken :: Lens' DescribeEnvironmentManagedActionHistoryResponse (Maybe Text)
demahrsNextToken = lens _demahrsNextToken (\ s a -> s{_demahrsNextToken = a});
demahrsResponseStatus :: Lens' DescribeEnvironmentManagedActionHistoryResponse Int
demahrsResponseStatus = lens _demahrsResponseStatus (\ s a -> s{_demahrsResponseStatus = a});
instance NFData
DescribeEnvironmentManagedActionHistoryResponse