module Network.AWS.ElastiCache.DescribeCacheSecurityGroups
(
DescribeCacheSecurityGroups
, describeCacheSecurityGroups
, dcsg1CacheSecurityGroupName
, dcsg1Marker
, dcsg1MaxRecords
, DescribeCacheSecurityGroupsResponse
, describeCacheSecurityGroupsResponse
, dcsgr1CacheSecurityGroups
, dcsgr1Marker
) where
import Network.AWS.Prelude
import Network.AWS.Request.Query
import Network.AWS.ElastiCache.Types
import qualified GHC.Exts
data DescribeCacheSecurityGroups = DescribeCacheSecurityGroups
{ _dcsg1CacheSecurityGroupName :: Maybe Text
, _dcsg1Marker :: Maybe Text
, _dcsg1MaxRecords :: Maybe Int
} deriving (Eq, Ord, Read, Show)
describeCacheSecurityGroups :: DescribeCacheSecurityGroups
describeCacheSecurityGroups = DescribeCacheSecurityGroups
{ _dcsg1CacheSecurityGroupName = Nothing
, _dcsg1MaxRecords = Nothing
, _dcsg1Marker = Nothing
}
dcsg1CacheSecurityGroupName :: Lens' DescribeCacheSecurityGroups (Maybe Text)
dcsg1CacheSecurityGroupName =
lens _dcsg1CacheSecurityGroupName
(\s a -> s { _dcsg1CacheSecurityGroupName = a })
dcsg1Marker :: Lens' DescribeCacheSecurityGroups (Maybe Text)
dcsg1Marker = lens _dcsg1Marker (\s a -> s { _dcsg1Marker = a })
dcsg1MaxRecords :: Lens' DescribeCacheSecurityGroups (Maybe Int)
dcsg1MaxRecords = lens _dcsg1MaxRecords (\s a -> s { _dcsg1MaxRecords = a })
data DescribeCacheSecurityGroupsResponse = DescribeCacheSecurityGroupsResponse
{ _dcsgr1CacheSecurityGroups :: List "member" CacheSecurityGroup
, _dcsgr1Marker :: Maybe Text
} deriving (Eq, Read, Show)
describeCacheSecurityGroupsResponse :: DescribeCacheSecurityGroupsResponse
describeCacheSecurityGroupsResponse = DescribeCacheSecurityGroupsResponse
{ _dcsgr1Marker = Nothing
, _dcsgr1CacheSecurityGroups = mempty
}
dcsgr1CacheSecurityGroups :: Lens' DescribeCacheSecurityGroupsResponse [CacheSecurityGroup]
dcsgr1CacheSecurityGroups =
lens _dcsgr1CacheSecurityGroups
(\s a -> s { _dcsgr1CacheSecurityGroups = a })
. _List
dcsgr1Marker :: Lens' DescribeCacheSecurityGroupsResponse (Maybe Text)
dcsgr1Marker = lens _dcsgr1Marker (\s a -> s { _dcsgr1Marker = a })
instance ToPath DescribeCacheSecurityGroups where
toPath = const "/"
instance ToQuery DescribeCacheSecurityGroups where
toQuery DescribeCacheSecurityGroups{..} = mconcat
[ "CacheSecurityGroupName" =? _dcsg1CacheSecurityGroupName
, "Marker" =? _dcsg1Marker
, "MaxRecords" =? _dcsg1MaxRecords
]
instance ToHeaders DescribeCacheSecurityGroups
instance AWSRequest DescribeCacheSecurityGroups where
type Sv DescribeCacheSecurityGroups = ElastiCache
type Rs DescribeCacheSecurityGroups = DescribeCacheSecurityGroupsResponse
request = post "DescribeCacheSecurityGroups"
response = xmlResponse
instance FromXML DescribeCacheSecurityGroupsResponse where
parseXML = withElement "DescribeCacheSecurityGroupsResult" $ \x -> DescribeCacheSecurityGroupsResponse
<$> x .@? "CacheSecurityGroups" .!@ mempty
<*> x .@? "Marker"
instance AWSPager DescribeCacheSecurityGroups where
page rq rs
| stop (rs ^. dcsgr1Marker) = Nothing
| otherwise = (\x -> rq & dcsg1Marker ?~ x)
<$> (rs ^. dcsgr1Marker)