{-# 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.EC2.DescribeRegions
(
describeRegions
, DescribeRegions
, drsRegionNames
, drsFilters
, drsDryRun
, describeRegionsResponse
, DescribeRegionsResponse
, drrsRegions
, drrsResponseStatus
) where
import Network.AWS.EC2.Types
import Network.AWS.EC2.Types.Product
import Network.AWS.Lens
import Network.AWS.Prelude
import Network.AWS.Request
import Network.AWS.Response
data DescribeRegions = DescribeRegions'
{ _drsRegionNames :: !(Maybe [Text])
, _drsFilters :: !(Maybe [Filter])
, _drsDryRun :: !(Maybe Bool)
} deriving (Eq,Read,Show,Data,Typeable,Generic)
describeRegions
:: DescribeRegions
describeRegions =
DescribeRegions'
{ _drsRegionNames = Nothing
, _drsFilters = Nothing
, _drsDryRun = Nothing
}
drsRegionNames :: Lens' DescribeRegions [Text]
drsRegionNames = lens _drsRegionNames (\ s a -> s{_drsRegionNames = a}) . _Default . _Coerce;
drsFilters :: Lens' DescribeRegions [Filter]
drsFilters = lens _drsFilters (\ s a -> s{_drsFilters = a}) . _Default . _Coerce;
drsDryRun :: Lens' DescribeRegions (Maybe Bool)
drsDryRun = lens _drsDryRun (\ s a -> s{_drsDryRun = a});
instance AWSRequest DescribeRegions where
type Rs DescribeRegions = DescribeRegionsResponse
request = postQuery ec2
response
= receiveXML
(\ s h x ->
DescribeRegionsResponse' <$>
(x .@? "regionInfo" .!@ mempty >>=
may (parseXMLList "item"))
<*> (pure (fromEnum s)))
instance Hashable DescribeRegions
instance NFData DescribeRegions
instance ToHeaders DescribeRegions where
toHeaders = const mempty
instance ToPath DescribeRegions where
toPath = const "/"
instance ToQuery DescribeRegions where
toQuery DescribeRegions'{..}
= mconcat
["Action" =: ("DescribeRegions" :: ByteString),
"Version" =: ("2016-04-01" :: ByteString),
toQuery
(toQueryList "RegionName" <$> _drsRegionNames),
toQuery (toQueryList "Filter" <$> _drsFilters),
"DryRun" =: _drsDryRun]
data DescribeRegionsResponse = DescribeRegionsResponse'
{ _drrsRegions :: !(Maybe [RegionInfo])
, _drrsResponseStatus :: !Int
} deriving (Eq,Read,Show,Data,Typeable,Generic)
describeRegionsResponse
:: Int
-> DescribeRegionsResponse
describeRegionsResponse pResponseStatus_ =
DescribeRegionsResponse'
{ _drrsRegions = Nothing
, _drrsResponseStatus = pResponseStatus_
}
drrsRegions :: Lens' DescribeRegionsResponse [RegionInfo]
drrsRegions = lens _drrsRegions (\ s a -> s{_drrsRegions = a}) . _Default . _Coerce;
drrsResponseStatus :: Lens' DescribeRegionsResponse Int
drrsResponseStatus = lens _drrsResponseStatus (\ s a -> s{_drrsResponseStatus = a});
instance NFData DescribeRegionsResponse