module Network.AWS.ElasticBeanstalk.DescribeEnvironmentResources
(
DescribeEnvironmentResources
, describeEnvironmentResources
, derEnvironmentId
, derEnvironmentName
, DescribeEnvironmentResourcesResponse
, describeEnvironmentResourcesResponse
, derrEnvironmentResources
) where
import Network.AWS.Prelude
import Network.AWS.Request.Query
import Network.AWS.ElasticBeanstalk.Types
import qualified GHC.Exts
data DescribeEnvironmentResources = DescribeEnvironmentResources
{ _derEnvironmentId :: Maybe Text
, _derEnvironmentName :: Maybe Text
} deriving (Eq, Ord, Show)
describeEnvironmentResources :: DescribeEnvironmentResources
describeEnvironmentResources = DescribeEnvironmentResources
{ _derEnvironmentId = Nothing
, _derEnvironmentName = Nothing
}
derEnvironmentId :: Lens' DescribeEnvironmentResources (Maybe Text)
derEnvironmentId = lens _derEnvironmentId (\s a -> s { _derEnvironmentId = a })
derEnvironmentName :: Lens' DescribeEnvironmentResources (Maybe Text)
derEnvironmentName =
lens _derEnvironmentName (\s a -> s { _derEnvironmentName = a })
newtype DescribeEnvironmentResourcesResponse = DescribeEnvironmentResourcesResponse
{ _derrEnvironmentResources :: Maybe EnvironmentResourceDescription
} deriving (Eq, Show)
describeEnvironmentResourcesResponse :: DescribeEnvironmentResourcesResponse
describeEnvironmentResourcesResponse = DescribeEnvironmentResourcesResponse
{ _derrEnvironmentResources = Nothing
}
derrEnvironmentResources :: Lens' DescribeEnvironmentResourcesResponse (Maybe EnvironmentResourceDescription)
derrEnvironmentResources =
lens _derrEnvironmentResources
(\s a -> s { _derrEnvironmentResources = a })
instance ToPath DescribeEnvironmentResources where
toPath = const "/"
instance ToQuery DescribeEnvironmentResources where
toQuery DescribeEnvironmentResources{..} = mconcat
[ "EnvironmentId" =? _derEnvironmentId
, "EnvironmentName" =? _derEnvironmentName
]
instance ToHeaders DescribeEnvironmentResources
instance AWSRequest DescribeEnvironmentResources where
type Sv DescribeEnvironmentResources = ElasticBeanstalk
type Rs DescribeEnvironmentResources = DescribeEnvironmentResourcesResponse
request = post "DescribeEnvironmentResources"
response = xmlResponse
instance FromXML DescribeEnvironmentResourcesResponse where
parseXML = withElement "DescribeEnvironmentResourcesResult" $ \x -> DescribeEnvironmentResourcesResponse
<$> x .@? "EnvironmentResources"