{-# 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.DescribeEnvironmentResources
(
describeEnvironmentResources
, DescribeEnvironmentResources
, derEnvironmentName
, derEnvironmentId
, describeEnvironmentResourcesResponse
, DescribeEnvironmentResourcesResponse
, derrsEnvironmentResources
, derrsResponseStatus
) 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 DescribeEnvironmentResources = DescribeEnvironmentResources'
{ _derEnvironmentName :: !(Maybe Text)
, _derEnvironmentId :: !(Maybe Text)
} deriving (Eq,Read,Show,Data,Typeable,Generic)
describeEnvironmentResources
:: DescribeEnvironmentResources
describeEnvironmentResources =
DescribeEnvironmentResources'
{ _derEnvironmentName = Nothing
, _derEnvironmentId = Nothing
}
derEnvironmentName :: Lens' DescribeEnvironmentResources (Maybe Text)
derEnvironmentName = lens _derEnvironmentName (\ s a -> s{_derEnvironmentName = a});
derEnvironmentId :: Lens' DescribeEnvironmentResources (Maybe Text)
derEnvironmentId = lens _derEnvironmentId (\ s a -> s{_derEnvironmentId = a});
instance AWSRequest DescribeEnvironmentResources
where
type Rs DescribeEnvironmentResources =
DescribeEnvironmentResourcesResponse
request = postQuery elasticBeanstalk
response
= receiveXMLWrapper
"DescribeEnvironmentResourcesResult"
(\ s h x ->
DescribeEnvironmentResourcesResponse' <$>
(x .@? "EnvironmentResources") <*>
(pure (fromEnum s)))
instance Hashable DescribeEnvironmentResources
instance NFData DescribeEnvironmentResources
instance ToHeaders DescribeEnvironmentResources where
toHeaders = const mempty
instance ToPath DescribeEnvironmentResources where
toPath = const "/"
instance ToQuery DescribeEnvironmentResources where
toQuery DescribeEnvironmentResources'{..}
= mconcat
["Action" =:
("DescribeEnvironmentResources" :: ByteString),
"Version" =: ("2010-12-01" :: ByteString),
"EnvironmentName" =: _derEnvironmentName,
"EnvironmentId" =: _derEnvironmentId]
data DescribeEnvironmentResourcesResponse = DescribeEnvironmentResourcesResponse'
{ _derrsEnvironmentResources :: !(Maybe EnvironmentResourceDescription)
, _derrsResponseStatus :: !Int
} deriving (Eq,Read,Show,Data,Typeable,Generic)
describeEnvironmentResourcesResponse
:: Int
-> DescribeEnvironmentResourcesResponse
describeEnvironmentResourcesResponse pResponseStatus_ =
DescribeEnvironmentResourcesResponse'
{ _derrsEnvironmentResources = Nothing
, _derrsResponseStatus = pResponseStatus_
}
derrsEnvironmentResources :: Lens' DescribeEnvironmentResourcesResponse (Maybe EnvironmentResourceDescription)
derrsEnvironmentResources = lens _derrsEnvironmentResources (\ s a -> s{_derrsEnvironmentResources = a});
derrsResponseStatus :: Lens' DescribeEnvironmentResourcesResponse Int
derrsResponseStatus = lens _derrsResponseStatus (\ s a -> s{_derrsResponseStatus = a});
instance NFData DescribeEnvironmentResourcesResponse