module Network.AWS.OpsWorks.DescribeElasticLoadBalancers
(
DescribeElasticLoadBalancers
, describeElasticLoadBalancers
, delbLayerIds
, delbStackId
, DescribeElasticLoadBalancersResponse
, describeElasticLoadBalancersResponse
, delbrElasticLoadBalancers
) where
import Network.AWS.Prelude
import Network.AWS.Request.JSON
import Network.AWS.OpsWorks.Types
import qualified GHC.Exts
data DescribeElasticLoadBalancers = DescribeElasticLoadBalancers
{ _delbLayerIds :: List "LayerIds" Text
, _delbStackId :: Maybe Text
} deriving (Eq, Ord, Show)
describeElasticLoadBalancers :: DescribeElasticLoadBalancers
describeElasticLoadBalancers = DescribeElasticLoadBalancers
{ _delbStackId = Nothing
, _delbLayerIds = mempty
}
delbLayerIds :: Lens' DescribeElasticLoadBalancers [Text]
delbLayerIds = lens _delbLayerIds (\s a -> s { _delbLayerIds = a }) . _List
delbStackId :: Lens' DescribeElasticLoadBalancers (Maybe Text)
delbStackId = lens _delbStackId (\s a -> s { _delbStackId = a })
newtype DescribeElasticLoadBalancersResponse = DescribeElasticLoadBalancersResponse
{ _delbrElasticLoadBalancers :: List "ElasticLoadBalancers" ElasticLoadBalancer
} deriving (Eq, Show, Monoid, Semigroup)
instance GHC.Exts.IsList DescribeElasticLoadBalancersResponse where
type Item DescribeElasticLoadBalancersResponse = ElasticLoadBalancer
fromList = DescribeElasticLoadBalancersResponse . GHC.Exts.fromList
toList = GHC.Exts.toList . _delbrElasticLoadBalancers
describeElasticLoadBalancersResponse :: DescribeElasticLoadBalancersResponse
describeElasticLoadBalancersResponse = DescribeElasticLoadBalancersResponse
{ _delbrElasticLoadBalancers = mempty
}
delbrElasticLoadBalancers :: Lens' DescribeElasticLoadBalancersResponse [ElasticLoadBalancer]
delbrElasticLoadBalancers =
lens _delbrElasticLoadBalancers
(\s a -> s { _delbrElasticLoadBalancers = a })
. _List
instance ToPath DescribeElasticLoadBalancers where
toPath = const "/"
instance ToQuery DescribeElasticLoadBalancers where
toQuery = const mempty
instance ToHeaders DescribeElasticLoadBalancers
instance ToJSON DescribeElasticLoadBalancers where
toJSON DescribeElasticLoadBalancers{..} = object
[ "StackId" .= _delbStackId
, "LayerIds" .= _delbLayerIds
]
instance AWSRequest DescribeElasticLoadBalancers where
type Sv DescribeElasticLoadBalancers = OpsWorks
type Rs DescribeElasticLoadBalancers = DescribeElasticLoadBalancersResponse
request = post "DescribeElasticLoadBalancers"
response = jsonResponse
instance FromJSON DescribeElasticLoadBalancersResponse where
parseJSON = withObject "DescribeElasticLoadBalancersResponse" $ \o -> DescribeElasticLoadBalancersResponse
<$> o .:? "ElasticLoadBalancers" .!= mempty