{-# 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.RDS.DescribeDBParameters
(
DescribeDBParameters (..),
newDescribeDBParameters,
describeDBParameters_filters,
describeDBParameters_marker,
describeDBParameters_maxRecords,
describeDBParameters_source,
describeDBParameters_dbParameterGroupName,
DescribeDBParametersResponse (..),
newDescribeDBParametersResponse,
describeDBParametersResponse_marker,
describeDBParametersResponse_parameters,
describeDBParametersResponse_httpStatus,
)
where
import qualified Amazonka.Core as Core
import qualified Amazonka.Core.Lens.Internal as Lens
import qualified Amazonka.Data as Data
import qualified Amazonka.Prelude as Prelude
import Amazonka.RDS.Types
import qualified Amazonka.Request as Request
import qualified Amazonka.Response as Response
data DescribeDBParameters = DescribeDBParameters'
{
DescribeDBParameters -> Maybe [Filter]
filters :: Prelude.Maybe [Filter],
DescribeDBParameters -> Maybe Text
marker :: Prelude.Maybe Prelude.Text,
DescribeDBParameters -> Maybe Int
maxRecords :: Prelude.Maybe Prelude.Int,
DescribeDBParameters -> Maybe Text
source :: Prelude.Maybe Prelude.Text,
DescribeDBParameters -> Text
dbParameterGroupName :: Prelude.Text
}
deriving (DescribeDBParameters -> DescribeDBParameters -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: DescribeDBParameters -> DescribeDBParameters -> Bool
$c/= :: DescribeDBParameters -> DescribeDBParameters -> Bool
== :: DescribeDBParameters -> DescribeDBParameters -> Bool
$c== :: DescribeDBParameters -> DescribeDBParameters -> Bool
Prelude.Eq, ReadPrec [DescribeDBParameters]
ReadPrec DescribeDBParameters
Int -> ReadS DescribeDBParameters
ReadS [DescribeDBParameters]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [DescribeDBParameters]
$creadListPrec :: ReadPrec [DescribeDBParameters]
readPrec :: ReadPrec DescribeDBParameters
$creadPrec :: ReadPrec DescribeDBParameters
readList :: ReadS [DescribeDBParameters]
$creadList :: ReadS [DescribeDBParameters]
readsPrec :: Int -> ReadS DescribeDBParameters
$creadsPrec :: Int -> ReadS DescribeDBParameters
Prelude.Read, Int -> DescribeDBParameters -> ShowS
[DescribeDBParameters] -> ShowS
DescribeDBParameters -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [DescribeDBParameters] -> ShowS
$cshowList :: [DescribeDBParameters] -> ShowS
show :: DescribeDBParameters -> String
$cshow :: DescribeDBParameters -> String
showsPrec :: Int -> DescribeDBParameters -> ShowS
$cshowsPrec :: Int -> DescribeDBParameters -> ShowS
Prelude.Show, forall x. Rep DescribeDBParameters x -> DescribeDBParameters
forall x. DescribeDBParameters -> Rep DescribeDBParameters x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep DescribeDBParameters x -> DescribeDBParameters
$cfrom :: forall x. DescribeDBParameters -> Rep DescribeDBParameters x
Prelude.Generic)
newDescribeDBParameters ::
Prelude.Text ->
DescribeDBParameters
newDescribeDBParameters :: Text -> DescribeDBParameters
newDescribeDBParameters Text
pDBParameterGroupName_ =
DescribeDBParameters'
{ $sel:filters:DescribeDBParameters' :: Maybe [Filter]
filters = forall a. Maybe a
Prelude.Nothing,
$sel:marker:DescribeDBParameters' :: Maybe Text
marker = forall a. Maybe a
Prelude.Nothing,
$sel:maxRecords:DescribeDBParameters' :: Maybe Int
maxRecords = forall a. Maybe a
Prelude.Nothing,
$sel:source:DescribeDBParameters' :: Maybe Text
source = forall a. Maybe a
Prelude.Nothing,
$sel:dbParameterGroupName:DescribeDBParameters' :: Text
dbParameterGroupName = Text
pDBParameterGroupName_
}
describeDBParameters_filters :: Lens.Lens' DescribeDBParameters (Prelude.Maybe [Filter])
describeDBParameters_filters :: Lens' DescribeDBParameters (Maybe [Filter])
describeDBParameters_filters = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeDBParameters' {Maybe [Filter]
filters :: Maybe [Filter]
$sel:filters:DescribeDBParameters' :: DescribeDBParameters -> Maybe [Filter]
filters} -> Maybe [Filter]
filters) (\s :: DescribeDBParameters
s@DescribeDBParameters' {} Maybe [Filter]
a -> DescribeDBParameters
s {$sel:filters:DescribeDBParameters' :: Maybe [Filter]
filters = Maybe [Filter]
a} :: DescribeDBParameters) 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
describeDBParameters_marker :: Lens.Lens' DescribeDBParameters (Prelude.Maybe Prelude.Text)
describeDBParameters_marker :: Lens' DescribeDBParameters (Maybe Text)
describeDBParameters_marker = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeDBParameters' {Maybe Text
marker :: Maybe Text
$sel:marker:DescribeDBParameters' :: DescribeDBParameters -> Maybe Text
marker} -> Maybe Text
marker) (\s :: DescribeDBParameters
s@DescribeDBParameters' {} Maybe Text
a -> DescribeDBParameters
s {$sel:marker:DescribeDBParameters' :: Maybe Text
marker = Maybe Text
a} :: DescribeDBParameters)
describeDBParameters_maxRecords :: Lens.Lens' DescribeDBParameters (Prelude.Maybe Prelude.Int)
describeDBParameters_maxRecords :: Lens' DescribeDBParameters (Maybe Int)
describeDBParameters_maxRecords = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeDBParameters' {Maybe Int
maxRecords :: Maybe Int
$sel:maxRecords:DescribeDBParameters' :: DescribeDBParameters -> Maybe Int
maxRecords} -> Maybe Int
maxRecords) (\s :: DescribeDBParameters
s@DescribeDBParameters' {} Maybe Int
a -> DescribeDBParameters
s {$sel:maxRecords:DescribeDBParameters' :: Maybe Int
maxRecords = Maybe Int
a} :: DescribeDBParameters)
describeDBParameters_source :: Lens.Lens' DescribeDBParameters (Prelude.Maybe Prelude.Text)
describeDBParameters_source :: Lens' DescribeDBParameters (Maybe Text)
describeDBParameters_source = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeDBParameters' {Maybe Text
source :: Maybe Text
$sel:source:DescribeDBParameters' :: DescribeDBParameters -> Maybe Text
source} -> Maybe Text
source) (\s :: DescribeDBParameters
s@DescribeDBParameters' {} Maybe Text
a -> DescribeDBParameters
s {$sel:source:DescribeDBParameters' :: Maybe Text
source = Maybe Text
a} :: DescribeDBParameters)
describeDBParameters_dbParameterGroupName :: Lens.Lens' DescribeDBParameters Prelude.Text
describeDBParameters_dbParameterGroupName :: Lens' DescribeDBParameters Text
describeDBParameters_dbParameterGroupName = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeDBParameters' {Text
dbParameterGroupName :: Text
$sel:dbParameterGroupName:DescribeDBParameters' :: DescribeDBParameters -> Text
dbParameterGroupName} -> Text
dbParameterGroupName) (\s :: DescribeDBParameters
s@DescribeDBParameters' {} Text
a -> DescribeDBParameters
s {$sel:dbParameterGroupName:DescribeDBParameters' :: Text
dbParameterGroupName = Text
a} :: DescribeDBParameters)
instance Core.AWSPager DescribeDBParameters where
page :: DescribeDBParameters
-> AWSResponse DescribeDBParameters -> Maybe DescribeDBParameters
page DescribeDBParameters
rq AWSResponse DescribeDBParameters
rs
| forall a. AWSTruncated a => a -> Bool
Core.stop
( AWSResponse DescribeDBParameters
rs
forall s a. s -> Getting (First a) s a -> Maybe a
Lens.^? Lens' DescribeDBParametersResponse (Maybe Text)
describeDBParametersResponse_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 DescribeDBParameters
rs
forall s a. s -> Getting (First a) s a -> Maybe a
Lens.^? Lens' DescribeDBParametersResponse (Maybe [Parameter])
describeDBParametersResponse_parameters
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.$ DescribeDBParameters
rq
forall a b. a -> (a -> b) -> b
Prelude.& Lens' DescribeDBParameters (Maybe Text)
describeDBParameters_marker
forall s t a b. ASetter s t a b -> b -> s -> t
Lens..~ AWSResponse DescribeDBParameters
rs
forall s a. s -> Getting (First a) s a -> Maybe a
Lens.^? Lens' DescribeDBParametersResponse (Maybe Text)
describeDBParametersResponse_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 DescribeDBParameters where
type
AWSResponse DescribeDBParameters =
DescribeDBParametersResponse
request :: (Service -> Service)
-> DescribeDBParameters -> Request DescribeDBParameters
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 DescribeDBParameters
-> ClientResponse ClientBody
-> m (Either
Error (ClientResponse (AWSResponse DescribeDBParameters)))
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
"DescribeDBParametersResult"
( \Int
s ResponseHeaders
h [Node]
x ->
Maybe Text
-> Maybe [Parameter] -> Int -> DescribeDBParametersResponse
DescribeDBParametersResponse'
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
"Marker")
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
"Parameters"
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
"Parameter")
)
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 DescribeDBParameters where
hashWithSalt :: Int -> DescribeDBParameters -> Int
hashWithSalt Int
_salt DescribeDBParameters' {Maybe Int
Maybe [Filter]
Maybe Text
Text
dbParameterGroupName :: Text
source :: Maybe Text
maxRecords :: Maybe Int
marker :: Maybe Text
filters :: Maybe [Filter]
$sel:dbParameterGroupName:DescribeDBParameters' :: DescribeDBParameters -> Text
$sel:source:DescribeDBParameters' :: DescribeDBParameters -> Maybe Text
$sel:maxRecords:DescribeDBParameters' :: DescribeDBParameters -> Maybe Int
$sel:marker:DescribeDBParameters' :: DescribeDBParameters -> Maybe Text
$sel:filters:DescribeDBParameters' :: DescribeDBParameters -> Maybe [Filter]
..} =
Int
_salt
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
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
source
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
dbParameterGroupName
instance Prelude.NFData DescribeDBParameters where
rnf :: DescribeDBParameters -> ()
rnf DescribeDBParameters' {Maybe Int
Maybe [Filter]
Maybe Text
Text
dbParameterGroupName :: Text
source :: Maybe Text
maxRecords :: Maybe Int
marker :: Maybe Text
filters :: Maybe [Filter]
$sel:dbParameterGroupName:DescribeDBParameters' :: DescribeDBParameters -> Text
$sel:source:DescribeDBParameters' :: DescribeDBParameters -> Maybe Text
$sel:maxRecords:DescribeDBParameters' :: DescribeDBParameters -> Maybe Int
$sel:marker:DescribeDBParameters' :: DescribeDBParameters -> Maybe Text
$sel:filters:DescribeDBParameters' :: DescribeDBParameters -> Maybe [Filter]
..} =
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
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
source
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Text
dbParameterGroupName
instance Data.ToHeaders DescribeDBParameters where
toHeaders :: DescribeDBParameters -> ResponseHeaders
toHeaders = forall a b. a -> b -> a
Prelude.const forall a. Monoid a => a
Prelude.mempty
instance Data.ToPath DescribeDBParameters where
toPath :: DescribeDBParameters -> ByteString
toPath = forall a b. a -> b -> a
Prelude.const ByteString
"/"
instance Data.ToQuery DescribeDBParameters where
toQuery :: DescribeDBParameters -> QueryString
toQuery DescribeDBParameters' {Maybe Int
Maybe [Filter]
Maybe Text
Text
dbParameterGroupName :: Text
source :: Maybe Text
maxRecords :: Maybe Int
marker :: Maybe Text
filters :: Maybe [Filter]
$sel:dbParameterGroupName:DescribeDBParameters' :: DescribeDBParameters -> Text
$sel:source:DescribeDBParameters' :: DescribeDBParameters -> Maybe Text
$sel:maxRecords:DescribeDBParameters' :: DescribeDBParameters -> Maybe Int
$sel:marker:DescribeDBParameters' :: DescribeDBParameters -> Maybe Text
$sel:filters:DescribeDBParameters' :: DescribeDBParameters -> Maybe [Filter]
..} =
forall a. Monoid a => [a] -> a
Prelude.mconcat
[ ByteString
"Action"
forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: (ByteString
"DescribeDBParameters" :: Prelude.ByteString),
ByteString
"Version"
forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: (ByteString
"2014-10-31" :: Prelude.ByteString),
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,
ByteString
"Source" forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: Maybe Text
source,
ByteString
"DBParameterGroupName" forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: Text
dbParameterGroupName
]
data DescribeDBParametersResponse = DescribeDBParametersResponse'
{
DescribeDBParametersResponse -> Maybe Text
marker :: Prelude.Maybe Prelude.Text,
DescribeDBParametersResponse -> Maybe [Parameter]
parameters :: Prelude.Maybe [Parameter],
DescribeDBParametersResponse -> Int
httpStatus :: Prelude.Int
}
deriving (DescribeDBParametersResponse
-> DescribeDBParametersResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: DescribeDBParametersResponse
-> DescribeDBParametersResponse -> Bool
$c/= :: DescribeDBParametersResponse
-> DescribeDBParametersResponse -> Bool
== :: DescribeDBParametersResponse
-> DescribeDBParametersResponse -> Bool
$c== :: DescribeDBParametersResponse
-> DescribeDBParametersResponse -> Bool
Prelude.Eq, ReadPrec [DescribeDBParametersResponse]
ReadPrec DescribeDBParametersResponse
Int -> ReadS DescribeDBParametersResponse
ReadS [DescribeDBParametersResponse]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [DescribeDBParametersResponse]
$creadListPrec :: ReadPrec [DescribeDBParametersResponse]
readPrec :: ReadPrec DescribeDBParametersResponse
$creadPrec :: ReadPrec DescribeDBParametersResponse
readList :: ReadS [DescribeDBParametersResponse]
$creadList :: ReadS [DescribeDBParametersResponse]
readsPrec :: Int -> ReadS DescribeDBParametersResponse
$creadsPrec :: Int -> ReadS DescribeDBParametersResponse
Prelude.Read, Int -> DescribeDBParametersResponse -> ShowS
[DescribeDBParametersResponse] -> ShowS
DescribeDBParametersResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [DescribeDBParametersResponse] -> ShowS
$cshowList :: [DescribeDBParametersResponse] -> ShowS
show :: DescribeDBParametersResponse -> String
$cshow :: DescribeDBParametersResponse -> String
showsPrec :: Int -> DescribeDBParametersResponse -> ShowS
$cshowsPrec :: Int -> DescribeDBParametersResponse -> ShowS
Prelude.Show, forall x.
Rep DescribeDBParametersResponse x -> DescribeDBParametersResponse
forall x.
DescribeDBParametersResponse -> Rep DescribeDBParametersResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep DescribeDBParametersResponse x -> DescribeDBParametersResponse
$cfrom :: forall x.
DescribeDBParametersResponse -> Rep DescribeDBParametersResponse x
Prelude.Generic)
newDescribeDBParametersResponse ::
Prelude.Int ->
DescribeDBParametersResponse
newDescribeDBParametersResponse :: Int -> DescribeDBParametersResponse
newDescribeDBParametersResponse Int
pHttpStatus_ =
DescribeDBParametersResponse'
{ $sel:marker:DescribeDBParametersResponse' :: Maybe Text
marker =
forall a. Maybe a
Prelude.Nothing,
$sel:parameters:DescribeDBParametersResponse' :: Maybe [Parameter]
parameters = forall a. Maybe a
Prelude.Nothing,
$sel:httpStatus:DescribeDBParametersResponse' :: Int
httpStatus = Int
pHttpStatus_
}
describeDBParametersResponse_marker :: Lens.Lens' DescribeDBParametersResponse (Prelude.Maybe Prelude.Text)
describeDBParametersResponse_marker :: Lens' DescribeDBParametersResponse (Maybe Text)
describeDBParametersResponse_marker = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeDBParametersResponse' {Maybe Text
marker :: Maybe Text
$sel:marker:DescribeDBParametersResponse' :: DescribeDBParametersResponse -> Maybe Text
marker} -> Maybe Text
marker) (\s :: DescribeDBParametersResponse
s@DescribeDBParametersResponse' {} Maybe Text
a -> DescribeDBParametersResponse
s {$sel:marker:DescribeDBParametersResponse' :: Maybe Text
marker = Maybe Text
a} :: DescribeDBParametersResponse)
describeDBParametersResponse_parameters :: Lens.Lens' DescribeDBParametersResponse (Prelude.Maybe [Parameter])
describeDBParametersResponse_parameters :: Lens' DescribeDBParametersResponse (Maybe [Parameter])
describeDBParametersResponse_parameters = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeDBParametersResponse' {Maybe [Parameter]
parameters :: Maybe [Parameter]
$sel:parameters:DescribeDBParametersResponse' :: DescribeDBParametersResponse -> Maybe [Parameter]
parameters} -> Maybe [Parameter]
parameters) (\s :: DescribeDBParametersResponse
s@DescribeDBParametersResponse' {} Maybe [Parameter]
a -> DescribeDBParametersResponse
s {$sel:parameters:DescribeDBParametersResponse' :: Maybe [Parameter]
parameters = Maybe [Parameter]
a} :: DescribeDBParametersResponse) 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
describeDBParametersResponse_httpStatus :: Lens.Lens' DescribeDBParametersResponse Prelude.Int
describeDBParametersResponse_httpStatus :: Lens' DescribeDBParametersResponse Int
describeDBParametersResponse_httpStatus = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeDBParametersResponse' {Int
httpStatus :: Int
$sel:httpStatus:DescribeDBParametersResponse' :: DescribeDBParametersResponse -> Int
httpStatus} -> Int
httpStatus) (\s :: DescribeDBParametersResponse
s@DescribeDBParametersResponse' {} Int
a -> DescribeDBParametersResponse
s {$sel:httpStatus:DescribeDBParametersResponse' :: Int
httpStatus = Int
a} :: DescribeDBParametersResponse)
instance Prelude.NFData DescribeDBParametersResponse where
rnf :: DescribeDBParametersResponse -> ()
rnf DescribeDBParametersResponse' {Int
Maybe [Parameter]
Maybe Text
httpStatus :: Int
parameters :: Maybe [Parameter]
marker :: Maybe Text
$sel:httpStatus:DescribeDBParametersResponse' :: DescribeDBParametersResponse -> Int
$sel:parameters:DescribeDBParametersResponse' :: DescribeDBParametersResponse -> Maybe [Parameter]
$sel:marker:DescribeDBParametersResponse' :: DescribeDBParametersResponse -> Maybe Text
..} =
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 [Parameter]
parameters
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Int
httpStatus