{-# LANGUAGE DeriveGeneric #-}
{-# LANGUAGE DuplicateRecordFields #-}
{-# LANGUAGE NamedFieldPuns #-}
{-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE RecordWildCards #-}
{-# LANGUAGE StrictData #-}
{-# LANGUAGE TypeFamilies #-}
{-# LANGUAGE NoImplicitPrelude #-}
{-# OPTIONS_GHC -fno-warn-unused-binds #-}
{-# OPTIONS_GHC -fno-warn-unused-imports #-}
{-# OPTIONS_GHC -fno-warn-unused-matches #-}
module Amazonka.DocumentDB.DescribeDBClusterParameterGroups
(
DescribeDBClusterParameterGroups (..),
newDescribeDBClusterParameterGroups,
describeDBClusterParameterGroups_dbClusterParameterGroupName,
describeDBClusterParameterGroups_filters,
describeDBClusterParameterGroups_marker,
describeDBClusterParameterGroups_maxRecords,
DescribeDBClusterParameterGroupsResponse (..),
newDescribeDBClusterParameterGroupsResponse,
describeDBClusterParameterGroupsResponse_dbClusterParameterGroups,
describeDBClusterParameterGroupsResponse_marker,
describeDBClusterParameterGroupsResponse_httpStatus,
)
where
import qualified Amazonka.Core as Core
import qualified Amazonka.Core.Lens.Internal as Lens
import qualified Amazonka.Data as Data
import Amazonka.DocumentDB.Types
import qualified Amazonka.Prelude as Prelude
import qualified Amazonka.Request as Request
import qualified Amazonka.Response as Response
data DescribeDBClusterParameterGroups = DescribeDBClusterParameterGroups'
{
DescribeDBClusterParameterGroups -> Maybe Text
dbClusterParameterGroupName :: Prelude.Maybe Prelude.Text,
DescribeDBClusterParameterGroups -> Maybe [Filter]
filters :: Prelude.Maybe [Filter],
DescribeDBClusterParameterGroups -> Maybe Text
marker :: Prelude.Maybe Prelude.Text,
DescribeDBClusterParameterGroups -> Maybe Int
maxRecords :: Prelude.Maybe Prelude.Int
}
deriving (DescribeDBClusterParameterGroups
-> DescribeDBClusterParameterGroups -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: DescribeDBClusterParameterGroups
-> DescribeDBClusterParameterGroups -> Bool
$c/= :: DescribeDBClusterParameterGroups
-> DescribeDBClusterParameterGroups -> Bool
== :: DescribeDBClusterParameterGroups
-> DescribeDBClusterParameterGroups -> Bool
$c== :: DescribeDBClusterParameterGroups
-> DescribeDBClusterParameterGroups -> Bool
Prelude.Eq, ReadPrec [DescribeDBClusterParameterGroups]
ReadPrec DescribeDBClusterParameterGroups
Int -> ReadS DescribeDBClusterParameterGroups
ReadS [DescribeDBClusterParameterGroups]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [DescribeDBClusterParameterGroups]
$creadListPrec :: ReadPrec [DescribeDBClusterParameterGroups]
readPrec :: ReadPrec DescribeDBClusterParameterGroups
$creadPrec :: ReadPrec DescribeDBClusterParameterGroups
readList :: ReadS [DescribeDBClusterParameterGroups]
$creadList :: ReadS [DescribeDBClusterParameterGroups]
readsPrec :: Int -> ReadS DescribeDBClusterParameterGroups
$creadsPrec :: Int -> ReadS DescribeDBClusterParameterGroups
Prelude.Read, Int -> DescribeDBClusterParameterGroups -> ShowS
[DescribeDBClusterParameterGroups] -> ShowS
DescribeDBClusterParameterGroups -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [DescribeDBClusterParameterGroups] -> ShowS
$cshowList :: [DescribeDBClusterParameterGroups] -> ShowS
show :: DescribeDBClusterParameterGroups -> String
$cshow :: DescribeDBClusterParameterGroups -> String
showsPrec :: Int -> DescribeDBClusterParameterGroups -> ShowS
$cshowsPrec :: Int -> DescribeDBClusterParameterGroups -> ShowS
Prelude.Show, forall x.
Rep DescribeDBClusterParameterGroups x
-> DescribeDBClusterParameterGroups
forall x.
DescribeDBClusterParameterGroups
-> Rep DescribeDBClusterParameterGroups x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep DescribeDBClusterParameterGroups x
-> DescribeDBClusterParameterGroups
$cfrom :: forall x.
DescribeDBClusterParameterGroups
-> Rep DescribeDBClusterParameterGroups x
Prelude.Generic)
newDescribeDBClusterParameterGroups ::
DescribeDBClusterParameterGroups
newDescribeDBClusterParameterGroups :: DescribeDBClusterParameterGroups
newDescribeDBClusterParameterGroups =
DescribeDBClusterParameterGroups'
{ $sel:dbClusterParameterGroupName:DescribeDBClusterParameterGroups' :: Maybe Text
dbClusterParameterGroupName =
forall a. Maybe a
Prelude.Nothing,
$sel:filters:DescribeDBClusterParameterGroups' :: Maybe [Filter]
filters = forall a. Maybe a
Prelude.Nothing,
$sel:marker:DescribeDBClusterParameterGroups' :: Maybe Text
marker = forall a. Maybe a
Prelude.Nothing,
$sel:maxRecords:DescribeDBClusterParameterGroups' :: Maybe Int
maxRecords = forall a. Maybe a
Prelude.Nothing
}
describeDBClusterParameterGroups_dbClusterParameterGroupName :: Lens.Lens' DescribeDBClusterParameterGroups (Prelude.Maybe Prelude.Text)
describeDBClusterParameterGroups_dbClusterParameterGroupName :: Lens' DescribeDBClusterParameterGroups (Maybe Text)
describeDBClusterParameterGroups_dbClusterParameterGroupName = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeDBClusterParameterGroups' {Maybe Text
dbClusterParameterGroupName :: Maybe Text
$sel:dbClusterParameterGroupName:DescribeDBClusterParameterGroups' :: DescribeDBClusterParameterGroups -> Maybe Text
dbClusterParameterGroupName} -> Maybe Text
dbClusterParameterGroupName) (\s :: DescribeDBClusterParameterGroups
s@DescribeDBClusterParameterGroups' {} Maybe Text
a -> DescribeDBClusterParameterGroups
s {$sel:dbClusterParameterGroupName:DescribeDBClusterParameterGroups' :: Maybe Text
dbClusterParameterGroupName = Maybe Text
a} :: DescribeDBClusterParameterGroups)
describeDBClusterParameterGroups_filters :: Lens.Lens' DescribeDBClusterParameterGroups (Prelude.Maybe [Filter])
describeDBClusterParameterGroups_filters :: Lens' DescribeDBClusterParameterGroups (Maybe [Filter])
describeDBClusterParameterGroups_filters = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeDBClusterParameterGroups' {Maybe [Filter]
filters :: Maybe [Filter]
$sel:filters:DescribeDBClusterParameterGroups' :: DescribeDBClusterParameterGroups -> Maybe [Filter]
filters} -> Maybe [Filter]
filters) (\s :: DescribeDBClusterParameterGroups
s@DescribeDBClusterParameterGroups' {} Maybe [Filter]
a -> DescribeDBClusterParameterGroups
s {$sel:filters:DescribeDBClusterParameterGroups' :: Maybe [Filter]
filters = Maybe [Filter]
a} :: DescribeDBClusterParameterGroups) forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. forall (f :: * -> *) (g :: * -> *) s t a b.
(Functor f, Functor g) =>
AnIso s t a b -> Iso (f s) (g t) (f a) (g b)
Lens.mapping forall s t a b. (Coercible s a, Coercible t b) => Iso s t a b
Lens.coerced
describeDBClusterParameterGroups_marker :: Lens.Lens' DescribeDBClusterParameterGroups (Prelude.Maybe Prelude.Text)
describeDBClusterParameterGroups_marker :: Lens' DescribeDBClusterParameterGroups (Maybe Text)
describeDBClusterParameterGroups_marker = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeDBClusterParameterGroups' {Maybe Text
marker :: Maybe Text
$sel:marker:DescribeDBClusterParameterGroups' :: DescribeDBClusterParameterGroups -> Maybe Text
marker} -> Maybe Text
marker) (\s :: DescribeDBClusterParameterGroups
s@DescribeDBClusterParameterGroups' {} Maybe Text
a -> DescribeDBClusterParameterGroups
s {$sel:marker:DescribeDBClusterParameterGroups' :: Maybe Text
marker = Maybe Text
a} :: DescribeDBClusterParameterGroups)
describeDBClusterParameterGroups_maxRecords :: Lens.Lens' DescribeDBClusterParameterGroups (Prelude.Maybe Prelude.Int)
describeDBClusterParameterGroups_maxRecords :: Lens' DescribeDBClusterParameterGroups (Maybe Int)
describeDBClusterParameterGroups_maxRecords = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeDBClusterParameterGroups' {Maybe Int
maxRecords :: Maybe Int
$sel:maxRecords:DescribeDBClusterParameterGroups' :: DescribeDBClusterParameterGroups -> Maybe Int
maxRecords} -> Maybe Int
maxRecords) (\s :: DescribeDBClusterParameterGroups
s@DescribeDBClusterParameterGroups' {} Maybe Int
a -> DescribeDBClusterParameterGroups
s {$sel:maxRecords:DescribeDBClusterParameterGroups' :: Maybe Int
maxRecords = Maybe Int
a} :: DescribeDBClusterParameterGroups)
instance
Core.AWSPager
DescribeDBClusterParameterGroups
where
page :: DescribeDBClusterParameterGroups
-> AWSResponse DescribeDBClusterParameterGroups
-> Maybe DescribeDBClusterParameterGroups
page DescribeDBClusterParameterGroups
rq AWSResponse DescribeDBClusterParameterGroups
rs
| forall a. AWSTruncated a => a -> Bool
Core.stop
( AWSResponse DescribeDBClusterParameterGroups
rs
forall s a. s -> Getting (First a) s a -> Maybe a
Lens.^? Lens' DescribeDBClusterParameterGroupsResponse (Maybe Text)
describeDBClusterParameterGroupsResponse_marker
forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. forall a b. Prism (Maybe a) (Maybe b) a b
Lens._Just
) =
forall a. Maybe a
Prelude.Nothing
| forall a. AWSTruncated a => a -> Bool
Core.stop
( AWSResponse DescribeDBClusterParameterGroups
rs
forall s a. s -> Getting (First a) s a -> Maybe a
Lens.^? Lens'
DescribeDBClusterParameterGroupsResponse
(Maybe [DBClusterParameterGroup])
describeDBClusterParameterGroupsResponse_dbClusterParameterGroups
forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. forall a b. Prism (Maybe a) (Maybe b) a b
Lens._Just
) =
forall a. Maybe a
Prelude.Nothing
| Bool
Prelude.otherwise =
forall a. a -> Maybe a
Prelude.Just
forall a b. (a -> b) -> a -> b
Prelude.$ DescribeDBClusterParameterGroups
rq
forall a b. a -> (a -> b) -> b
Prelude.& Lens' DescribeDBClusterParameterGroups (Maybe Text)
describeDBClusterParameterGroups_marker
forall s t a b. ASetter s t a b -> b -> s -> t
Lens..~ AWSResponse DescribeDBClusterParameterGroups
rs
forall s a. s -> Getting (First a) s a -> Maybe a
Lens.^? Lens' DescribeDBClusterParameterGroupsResponse (Maybe Text)
describeDBClusterParameterGroupsResponse_marker
forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. forall a b. Prism (Maybe a) (Maybe b) a b
Lens._Just
instance
Core.AWSRequest
DescribeDBClusterParameterGroups
where
type
AWSResponse DescribeDBClusterParameterGroups =
DescribeDBClusterParameterGroupsResponse
request :: (Service -> Service)
-> DescribeDBClusterParameterGroups
-> Request DescribeDBClusterParameterGroups
request Service -> Service
overrides =
forall a. ToRequest a => Service -> a -> Request a
Request.postQuery (Service -> Service
overrides Service
defaultService)
response :: forall (m :: * -> *).
MonadResource m =>
(ByteStringLazy -> IO ByteStringLazy)
-> Service
-> Proxy DescribeDBClusterParameterGroups
-> ClientResponse ClientBody
-> m (Either
Error
(ClientResponse (AWSResponse DescribeDBClusterParameterGroups)))
response =
forall (m :: * -> *) a.
MonadResource m =>
Text
-> (Int
-> ResponseHeaders -> [Node] -> Either String (AWSResponse a))
-> (ByteStringLazy -> IO ByteStringLazy)
-> Service
-> Proxy a
-> ClientResponse ClientBody
-> m (Either Error (ClientResponse (AWSResponse a)))
Response.receiveXMLWrapper
Text
"DescribeDBClusterParameterGroupsResult"
( \Int
s ResponseHeaders
h [Node]
x ->
Maybe [DBClusterParameterGroup]
-> Maybe Text -> Int -> DescribeDBClusterParameterGroupsResponse
DescribeDBClusterParameterGroupsResponse'
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> ( [Node]
x
forall a. FromXML a => [Node] -> Text -> Either String (Maybe a)
Data..@? Text
"DBClusterParameterGroups"
forall (f :: * -> *) a. Functor f => f (Maybe a) -> a -> f a
Core..!@ forall a. Monoid a => a
Prelude.mempty
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
Prelude.>>= forall (f :: * -> *) a b.
Applicative f =>
([a] -> f b) -> [a] -> f (Maybe b)
Core.may
(forall a. FromXML a => Text -> [Node] -> Either String [a]
Data.parseXMLList Text
"DBClusterParameterGroup")
)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> ([Node]
x forall a. FromXML a => [Node] -> Text -> Either String (Maybe a)
Data..@? Text
"Marker")
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure (forall a. Enum a => a -> Int
Prelude.fromEnum Int
s))
)
instance
Prelude.Hashable
DescribeDBClusterParameterGroups
where
hashWithSalt :: Int -> DescribeDBClusterParameterGroups -> Int
hashWithSalt
Int
_salt
DescribeDBClusterParameterGroups' {Maybe Int
Maybe [Filter]
Maybe Text
maxRecords :: Maybe Int
marker :: Maybe Text
filters :: Maybe [Filter]
dbClusterParameterGroupName :: Maybe Text
$sel:maxRecords:DescribeDBClusterParameterGroups' :: DescribeDBClusterParameterGroups -> Maybe Int
$sel:marker:DescribeDBClusterParameterGroups' :: DescribeDBClusterParameterGroups -> Maybe Text
$sel:filters:DescribeDBClusterParameterGroups' :: DescribeDBClusterParameterGroups -> Maybe [Filter]
$sel:dbClusterParameterGroupName:DescribeDBClusterParameterGroups' :: DescribeDBClusterParameterGroups -> Maybe Text
..} =
Int
_salt
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
dbClusterParameterGroupName
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe [Filter]
filters
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
marker
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Int
maxRecords
instance
Prelude.NFData
DescribeDBClusterParameterGroups
where
rnf :: DescribeDBClusterParameterGroups -> ()
rnf DescribeDBClusterParameterGroups' {Maybe Int
Maybe [Filter]
Maybe Text
maxRecords :: Maybe Int
marker :: Maybe Text
filters :: Maybe [Filter]
dbClusterParameterGroupName :: Maybe Text
$sel:maxRecords:DescribeDBClusterParameterGroups' :: DescribeDBClusterParameterGroups -> Maybe Int
$sel:marker:DescribeDBClusterParameterGroups' :: DescribeDBClusterParameterGroups -> Maybe Text
$sel:filters:DescribeDBClusterParameterGroups' :: DescribeDBClusterParameterGroups -> Maybe [Filter]
$sel:dbClusterParameterGroupName:DescribeDBClusterParameterGroups' :: DescribeDBClusterParameterGroups -> Maybe Text
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
dbClusterParameterGroupName
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe [Filter]
filters
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
marker
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Int
maxRecords
instance
Data.ToHeaders
DescribeDBClusterParameterGroups
where
toHeaders :: DescribeDBClusterParameterGroups -> ResponseHeaders
toHeaders = forall a b. a -> b -> a
Prelude.const forall a. Monoid a => a
Prelude.mempty
instance Data.ToPath DescribeDBClusterParameterGroups where
toPath :: DescribeDBClusterParameterGroups -> ByteString
toPath = forall a b. a -> b -> a
Prelude.const ByteString
"/"
instance
Data.ToQuery
DescribeDBClusterParameterGroups
where
toQuery :: DescribeDBClusterParameterGroups -> QueryString
toQuery DescribeDBClusterParameterGroups' {Maybe Int
Maybe [Filter]
Maybe Text
maxRecords :: Maybe Int
marker :: Maybe Text
filters :: Maybe [Filter]
dbClusterParameterGroupName :: Maybe Text
$sel:maxRecords:DescribeDBClusterParameterGroups' :: DescribeDBClusterParameterGroups -> Maybe Int
$sel:marker:DescribeDBClusterParameterGroups' :: DescribeDBClusterParameterGroups -> Maybe Text
$sel:filters:DescribeDBClusterParameterGroups' :: DescribeDBClusterParameterGroups -> Maybe [Filter]
$sel:dbClusterParameterGroupName:DescribeDBClusterParameterGroups' :: DescribeDBClusterParameterGroups -> Maybe Text
..} =
forall a. Monoid a => [a] -> a
Prelude.mconcat
[ ByteString
"Action"
forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: ( ByteString
"DescribeDBClusterParameterGroups" ::
Prelude.ByteString
),
ByteString
"Version"
forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: (ByteString
"2014-10-31" :: Prelude.ByteString),
ByteString
"DBClusterParameterGroupName"
forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: Maybe Text
dbClusterParameterGroupName,
ByteString
"Filters"
forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: forall a. ToQuery a => a -> QueryString
Data.toQuery
(forall a.
(IsList a, ToQuery (Item a)) =>
ByteString -> a -> QueryString
Data.toQueryList ByteString
"Filter" forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe [Filter]
filters),
ByteString
"Marker" forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: Maybe Text
marker,
ByteString
"MaxRecords" forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: Maybe Int
maxRecords
]
data DescribeDBClusterParameterGroupsResponse = DescribeDBClusterParameterGroupsResponse'
{
DescribeDBClusterParameterGroupsResponse
-> Maybe [DBClusterParameterGroup]
dbClusterParameterGroups :: Prelude.Maybe [DBClusterParameterGroup],
DescribeDBClusterParameterGroupsResponse -> Maybe Text
marker :: Prelude.Maybe Prelude.Text,
DescribeDBClusterParameterGroupsResponse -> Int
httpStatus :: Prelude.Int
}
deriving (DescribeDBClusterParameterGroupsResponse
-> DescribeDBClusterParameterGroupsResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: DescribeDBClusterParameterGroupsResponse
-> DescribeDBClusterParameterGroupsResponse -> Bool
$c/= :: DescribeDBClusterParameterGroupsResponse
-> DescribeDBClusterParameterGroupsResponse -> Bool
== :: DescribeDBClusterParameterGroupsResponse
-> DescribeDBClusterParameterGroupsResponse -> Bool
$c== :: DescribeDBClusterParameterGroupsResponse
-> DescribeDBClusterParameterGroupsResponse -> Bool
Prelude.Eq, ReadPrec [DescribeDBClusterParameterGroupsResponse]
ReadPrec DescribeDBClusterParameterGroupsResponse
Int -> ReadS DescribeDBClusterParameterGroupsResponse
ReadS [DescribeDBClusterParameterGroupsResponse]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [DescribeDBClusterParameterGroupsResponse]
$creadListPrec :: ReadPrec [DescribeDBClusterParameterGroupsResponse]
readPrec :: ReadPrec DescribeDBClusterParameterGroupsResponse
$creadPrec :: ReadPrec DescribeDBClusterParameterGroupsResponse
readList :: ReadS [DescribeDBClusterParameterGroupsResponse]
$creadList :: ReadS [DescribeDBClusterParameterGroupsResponse]
readsPrec :: Int -> ReadS DescribeDBClusterParameterGroupsResponse
$creadsPrec :: Int -> ReadS DescribeDBClusterParameterGroupsResponse
Prelude.Read, Int -> DescribeDBClusterParameterGroupsResponse -> ShowS
[DescribeDBClusterParameterGroupsResponse] -> ShowS
DescribeDBClusterParameterGroupsResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [DescribeDBClusterParameterGroupsResponse] -> ShowS
$cshowList :: [DescribeDBClusterParameterGroupsResponse] -> ShowS
show :: DescribeDBClusterParameterGroupsResponse -> String
$cshow :: DescribeDBClusterParameterGroupsResponse -> String
showsPrec :: Int -> DescribeDBClusterParameterGroupsResponse -> ShowS
$cshowsPrec :: Int -> DescribeDBClusterParameterGroupsResponse -> ShowS
Prelude.Show, forall x.
Rep DescribeDBClusterParameterGroupsResponse x
-> DescribeDBClusterParameterGroupsResponse
forall x.
DescribeDBClusterParameterGroupsResponse
-> Rep DescribeDBClusterParameterGroupsResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep DescribeDBClusterParameterGroupsResponse x
-> DescribeDBClusterParameterGroupsResponse
$cfrom :: forall x.
DescribeDBClusterParameterGroupsResponse
-> Rep DescribeDBClusterParameterGroupsResponse x
Prelude.Generic)
newDescribeDBClusterParameterGroupsResponse ::
Prelude.Int ->
DescribeDBClusterParameterGroupsResponse
newDescribeDBClusterParameterGroupsResponse :: Int -> DescribeDBClusterParameterGroupsResponse
newDescribeDBClusterParameterGroupsResponse
Int
pHttpStatus_ =
DescribeDBClusterParameterGroupsResponse'
{ $sel:dbClusterParameterGroups:DescribeDBClusterParameterGroupsResponse' :: Maybe [DBClusterParameterGroup]
dbClusterParameterGroups =
forall a. Maybe a
Prelude.Nothing,
$sel:marker:DescribeDBClusterParameterGroupsResponse' :: Maybe Text
marker = forall a. Maybe a
Prelude.Nothing,
$sel:httpStatus:DescribeDBClusterParameterGroupsResponse' :: Int
httpStatus = Int
pHttpStatus_
}
describeDBClusterParameterGroupsResponse_dbClusterParameterGroups :: Lens.Lens' DescribeDBClusterParameterGroupsResponse (Prelude.Maybe [DBClusterParameterGroup])
describeDBClusterParameterGroupsResponse_dbClusterParameterGroups :: Lens'
DescribeDBClusterParameterGroupsResponse
(Maybe [DBClusterParameterGroup])
describeDBClusterParameterGroupsResponse_dbClusterParameterGroups = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeDBClusterParameterGroupsResponse' {Maybe [DBClusterParameterGroup]
dbClusterParameterGroups :: Maybe [DBClusterParameterGroup]
$sel:dbClusterParameterGroups:DescribeDBClusterParameterGroupsResponse' :: DescribeDBClusterParameterGroupsResponse
-> Maybe [DBClusterParameterGroup]
dbClusterParameterGroups} -> Maybe [DBClusterParameterGroup]
dbClusterParameterGroups) (\s :: DescribeDBClusterParameterGroupsResponse
s@DescribeDBClusterParameterGroupsResponse' {} Maybe [DBClusterParameterGroup]
a -> DescribeDBClusterParameterGroupsResponse
s {$sel:dbClusterParameterGroups:DescribeDBClusterParameterGroupsResponse' :: Maybe [DBClusterParameterGroup]
dbClusterParameterGroups = Maybe [DBClusterParameterGroup]
a} :: DescribeDBClusterParameterGroupsResponse) forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. forall (f :: * -> *) (g :: * -> *) s t a b.
(Functor f, Functor g) =>
AnIso s t a b -> Iso (f s) (g t) (f a) (g b)
Lens.mapping forall s t a b. (Coercible s a, Coercible t b) => Iso s t a b
Lens.coerced
describeDBClusterParameterGroupsResponse_marker :: Lens.Lens' DescribeDBClusterParameterGroupsResponse (Prelude.Maybe Prelude.Text)
describeDBClusterParameterGroupsResponse_marker :: Lens' DescribeDBClusterParameterGroupsResponse (Maybe Text)
describeDBClusterParameterGroupsResponse_marker = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeDBClusterParameterGroupsResponse' {Maybe Text
marker :: Maybe Text
$sel:marker:DescribeDBClusterParameterGroupsResponse' :: DescribeDBClusterParameterGroupsResponse -> Maybe Text
marker} -> Maybe Text
marker) (\s :: DescribeDBClusterParameterGroupsResponse
s@DescribeDBClusterParameterGroupsResponse' {} Maybe Text
a -> DescribeDBClusterParameterGroupsResponse
s {$sel:marker:DescribeDBClusterParameterGroupsResponse' :: Maybe Text
marker = Maybe Text
a} :: DescribeDBClusterParameterGroupsResponse)
describeDBClusterParameterGroupsResponse_httpStatus :: Lens.Lens' DescribeDBClusterParameterGroupsResponse Prelude.Int
describeDBClusterParameterGroupsResponse_httpStatus :: Lens' DescribeDBClusterParameterGroupsResponse Int
describeDBClusterParameterGroupsResponse_httpStatus = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeDBClusterParameterGroupsResponse' {Int
httpStatus :: Int
$sel:httpStatus:DescribeDBClusterParameterGroupsResponse' :: DescribeDBClusterParameterGroupsResponse -> Int
httpStatus} -> Int
httpStatus) (\s :: DescribeDBClusterParameterGroupsResponse
s@DescribeDBClusterParameterGroupsResponse' {} Int
a -> DescribeDBClusterParameterGroupsResponse
s {$sel:httpStatus:DescribeDBClusterParameterGroupsResponse' :: Int
httpStatus = Int
a} :: DescribeDBClusterParameterGroupsResponse)
instance
Prelude.NFData
DescribeDBClusterParameterGroupsResponse
where
rnf :: DescribeDBClusterParameterGroupsResponse -> ()
rnf DescribeDBClusterParameterGroupsResponse' {Int
Maybe [DBClusterParameterGroup]
Maybe Text
httpStatus :: Int
marker :: Maybe Text
dbClusterParameterGroups :: Maybe [DBClusterParameterGroup]
$sel:httpStatus:DescribeDBClusterParameterGroupsResponse' :: DescribeDBClusterParameterGroupsResponse -> Int
$sel:marker:DescribeDBClusterParameterGroupsResponse' :: DescribeDBClusterParameterGroupsResponse -> Maybe Text
$sel:dbClusterParameterGroups:DescribeDBClusterParameterGroupsResponse' :: DescribeDBClusterParameterGroupsResponse
-> Maybe [DBClusterParameterGroup]
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe [DBClusterParameterGroup]
dbClusterParameterGroups
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
marker
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Int
httpStatus