{-# 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.ElasticBeanstalk.DescribeEnvironmentManagedActions
(
describeEnvironmentManagedActions
, DescribeEnvironmentManagedActions
, demaStatus
, demaEnvironmentName
, demaEnvironmentId
, describeEnvironmentManagedActionsResponse
, DescribeEnvironmentManagedActionsResponse
, demarsManagedActions
, demarsResponseStatus
) 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 DescribeEnvironmentManagedActions = DescribeEnvironmentManagedActions'
{ _demaStatus :: !(Maybe ActionStatus)
, _demaEnvironmentName :: !(Maybe Text)
, _demaEnvironmentId :: !(Maybe Text)
} deriving (Eq, Read, Show, Data, Typeable, Generic)
describeEnvironmentManagedActions
:: DescribeEnvironmentManagedActions
describeEnvironmentManagedActions =
DescribeEnvironmentManagedActions'
{ _demaStatus = Nothing
, _demaEnvironmentName = Nothing
, _demaEnvironmentId = Nothing
}
demaStatus :: Lens' DescribeEnvironmentManagedActions (Maybe ActionStatus)
demaStatus = lens _demaStatus (\ s a -> s{_demaStatus = a})
demaEnvironmentName :: Lens' DescribeEnvironmentManagedActions (Maybe Text)
demaEnvironmentName = lens _demaEnvironmentName (\ s a -> s{_demaEnvironmentName = a})
demaEnvironmentId :: Lens' DescribeEnvironmentManagedActions (Maybe Text)
demaEnvironmentId = lens _demaEnvironmentId (\ s a -> s{_demaEnvironmentId = a})
instance AWSRequest DescribeEnvironmentManagedActions
where
type Rs DescribeEnvironmentManagedActions =
DescribeEnvironmentManagedActionsResponse
request = postQuery elasticBeanstalk
response
= receiveXMLWrapper
"DescribeEnvironmentManagedActionsResult"
(\ s h x ->
DescribeEnvironmentManagedActionsResponse' <$>
(x .@? "ManagedActions" .!@ mempty >>=
may (parseXMLList1 "member"))
<*> (pure (fromEnum s)))
instance Hashable DescribeEnvironmentManagedActions
where
instance NFData DescribeEnvironmentManagedActions
where
instance ToHeaders DescribeEnvironmentManagedActions
where
toHeaders = const mempty
instance ToPath DescribeEnvironmentManagedActions
where
toPath = const "/"
instance ToQuery DescribeEnvironmentManagedActions
where
toQuery DescribeEnvironmentManagedActions'{..}
= mconcat
["Action" =:
("DescribeEnvironmentManagedActions" :: ByteString),
"Version" =: ("2010-12-01" :: ByteString),
"Status" =: _demaStatus,
"EnvironmentName" =: _demaEnvironmentName,
"EnvironmentId" =: _demaEnvironmentId]
data DescribeEnvironmentManagedActionsResponse = DescribeEnvironmentManagedActionsResponse'
{ _demarsManagedActions :: !(Maybe (List1 ManagedAction))
, _demarsResponseStatus :: !Int
} deriving (Eq, Read, Show, Data, Typeable, Generic)
describeEnvironmentManagedActionsResponse
:: Int
-> DescribeEnvironmentManagedActionsResponse
describeEnvironmentManagedActionsResponse pResponseStatus_ =
DescribeEnvironmentManagedActionsResponse'
{_demarsManagedActions = Nothing, _demarsResponseStatus = pResponseStatus_}
demarsManagedActions :: Lens' DescribeEnvironmentManagedActionsResponse (Maybe (NonEmpty ManagedAction))
demarsManagedActions = lens _demarsManagedActions (\ s a -> s{_demarsManagedActions = a}) . mapping _List1
demarsResponseStatus :: Lens' DescribeEnvironmentManagedActionsResponse Int
demarsResponseStatus = lens _demarsResponseStatus (\ s a -> s{_demarsResponseStatus = a})
instance NFData
DescribeEnvironmentManagedActionsResponse
where