module Network.AWS.EC2.DescribeAvailabilityZones
(
DescribeAvailabilityZones
, describeAvailabilityZones
, dazDryRun
, dazFilters
, dazZoneNames
, DescribeAvailabilityZonesResponse
, describeAvailabilityZonesResponse
, dazrAvailabilityZones
) where
import Network.AWS.Prelude
import Network.AWS.Request.Query
import Network.AWS.EC2.Types
import qualified GHC.Exts
data DescribeAvailabilityZones = DescribeAvailabilityZones
{ _dazDryRun :: Maybe Bool
, _dazFilters :: List "Filter" Filter
, _dazZoneNames :: List "ZoneName" Text
} deriving (Eq, Show)
describeAvailabilityZones :: DescribeAvailabilityZones
describeAvailabilityZones = DescribeAvailabilityZones
{ _dazDryRun = Nothing
, _dazZoneNames = mempty
, _dazFilters = mempty
}
dazDryRun :: Lens' DescribeAvailabilityZones (Maybe Bool)
dazDryRun = lens _dazDryRun (\s a -> s { _dazDryRun = a })
dazFilters :: Lens' DescribeAvailabilityZones [Filter]
dazFilters = lens _dazFilters (\s a -> s { _dazFilters = a }) . _List
dazZoneNames :: Lens' DescribeAvailabilityZones [Text]
dazZoneNames = lens _dazZoneNames (\s a -> s { _dazZoneNames = a }) . _List
newtype DescribeAvailabilityZonesResponse = DescribeAvailabilityZonesResponse
{ _dazrAvailabilityZones :: List "item" AvailabilityZone
} deriving (Eq, Show, Monoid, Semigroup)
instance GHC.Exts.IsList DescribeAvailabilityZonesResponse where
type Item DescribeAvailabilityZonesResponse = AvailabilityZone
fromList = DescribeAvailabilityZonesResponse . GHC.Exts.fromList
toList = GHC.Exts.toList . _dazrAvailabilityZones
describeAvailabilityZonesResponse :: DescribeAvailabilityZonesResponse
describeAvailabilityZonesResponse = DescribeAvailabilityZonesResponse
{ _dazrAvailabilityZones = mempty
}
dazrAvailabilityZones :: Lens' DescribeAvailabilityZonesResponse [AvailabilityZone]
dazrAvailabilityZones =
lens _dazrAvailabilityZones (\s a -> s { _dazrAvailabilityZones = a })
. _List
instance ToPath DescribeAvailabilityZones where
toPath = const "/"
instance ToQuery DescribeAvailabilityZones where
toQuery DescribeAvailabilityZones{..} = mconcat
[ "dryRun" =? _dazDryRun
, "Filter" =? _dazFilters
, "ZoneName" =? _dazZoneNames
]
instance ToHeaders DescribeAvailabilityZones
instance AWSRequest DescribeAvailabilityZones where
type Sv DescribeAvailabilityZones = EC2
type Rs DescribeAvailabilityZones = DescribeAvailabilityZonesResponse
request = post "DescribeAvailabilityZones"
response = xmlResponse
instance FromXML DescribeAvailabilityZonesResponse where
parseXML x = DescribeAvailabilityZonesResponse
<$> x .@ "availabilityZoneInfo"