{-# 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.DescribeDBEngineVersions
(
DescribeDBEngineVersions (..),
newDescribeDBEngineVersions,
describeDBEngineVersions_dbParameterGroupFamily,
describeDBEngineVersions_defaultOnly,
describeDBEngineVersions_engine,
describeDBEngineVersions_engineVersion,
describeDBEngineVersions_filters,
describeDBEngineVersions_includeAll,
describeDBEngineVersions_listSupportedCharacterSets,
describeDBEngineVersions_listSupportedTimezones,
describeDBEngineVersions_marker,
describeDBEngineVersions_maxRecords,
DescribeDBEngineVersionsResponse (..),
newDescribeDBEngineVersionsResponse,
describeDBEngineVersionsResponse_dbEngineVersions,
describeDBEngineVersionsResponse_marker,
describeDBEngineVersionsResponse_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 DescribeDBEngineVersions = DescribeDBEngineVersions'
{
DescribeDBEngineVersions -> Maybe Text
dbParameterGroupFamily :: Prelude.Maybe Prelude.Text,
DescribeDBEngineVersions -> Maybe Bool
defaultOnly :: Prelude.Maybe Prelude.Bool,
DescribeDBEngineVersions -> Maybe Text
engine :: Prelude.Maybe Prelude.Text,
DescribeDBEngineVersions -> Maybe Text
engineVersion :: Prelude.Maybe Prelude.Text,
DescribeDBEngineVersions -> Maybe [Filter]
filters :: Prelude.Maybe [Filter],
DescribeDBEngineVersions -> Maybe Bool
includeAll :: Prelude.Maybe Prelude.Bool,
DescribeDBEngineVersions -> Maybe Bool
listSupportedCharacterSets :: Prelude.Maybe Prelude.Bool,
DescribeDBEngineVersions -> Maybe Bool
listSupportedTimezones :: Prelude.Maybe Prelude.Bool,
DescribeDBEngineVersions -> Maybe Text
marker :: Prelude.Maybe Prelude.Text,
DescribeDBEngineVersions -> Maybe Int
maxRecords :: Prelude.Maybe Prelude.Int
}
deriving (DescribeDBEngineVersions -> DescribeDBEngineVersions -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: DescribeDBEngineVersions -> DescribeDBEngineVersions -> Bool
$c/= :: DescribeDBEngineVersions -> DescribeDBEngineVersions -> Bool
== :: DescribeDBEngineVersions -> DescribeDBEngineVersions -> Bool
$c== :: DescribeDBEngineVersions -> DescribeDBEngineVersions -> Bool
Prelude.Eq, ReadPrec [DescribeDBEngineVersions]
ReadPrec DescribeDBEngineVersions
Int -> ReadS DescribeDBEngineVersions
ReadS [DescribeDBEngineVersions]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [DescribeDBEngineVersions]
$creadListPrec :: ReadPrec [DescribeDBEngineVersions]
readPrec :: ReadPrec DescribeDBEngineVersions
$creadPrec :: ReadPrec DescribeDBEngineVersions
readList :: ReadS [DescribeDBEngineVersions]
$creadList :: ReadS [DescribeDBEngineVersions]
readsPrec :: Int -> ReadS DescribeDBEngineVersions
$creadsPrec :: Int -> ReadS DescribeDBEngineVersions
Prelude.Read, Int -> DescribeDBEngineVersions -> ShowS
[DescribeDBEngineVersions] -> ShowS
DescribeDBEngineVersions -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [DescribeDBEngineVersions] -> ShowS
$cshowList :: [DescribeDBEngineVersions] -> ShowS
show :: DescribeDBEngineVersions -> String
$cshow :: DescribeDBEngineVersions -> String
showsPrec :: Int -> DescribeDBEngineVersions -> ShowS
$cshowsPrec :: Int -> DescribeDBEngineVersions -> ShowS
Prelude.Show, forall x.
Rep DescribeDBEngineVersions x -> DescribeDBEngineVersions
forall x.
DescribeDBEngineVersions -> Rep DescribeDBEngineVersions x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep DescribeDBEngineVersions x -> DescribeDBEngineVersions
$cfrom :: forall x.
DescribeDBEngineVersions -> Rep DescribeDBEngineVersions x
Prelude.Generic)
newDescribeDBEngineVersions ::
DescribeDBEngineVersions
newDescribeDBEngineVersions :: DescribeDBEngineVersions
newDescribeDBEngineVersions =
DescribeDBEngineVersions'
{ $sel:dbParameterGroupFamily:DescribeDBEngineVersions' :: Maybe Text
dbParameterGroupFamily =
forall a. Maybe a
Prelude.Nothing,
$sel:defaultOnly:DescribeDBEngineVersions' :: Maybe Bool
defaultOnly = forall a. Maybe a
Prelude.Nothing,
$sel:engine:DescribeDBEngineVersions' :: Maybe Text
engine = forall a. Maybe a
Prelude.Nothing,
$sel:engineVersion:DescribeDBEngineVersions' :: Maybe Text
engineVersion = forall a. Maybe a
Prelude.Nothing,
$sel:filters:DescribeDBEngineVersions' :: Maybe [Filter]
filters = forall a. Maybe a
Prelude.Nothing,
$sel:includeAll:DescribeDBEngineVersions' :: Maybe Bool
includeAll = forall a. Maybe a
Prelude.Nothing,
$sel:listSupportedCharacterSets:DescribeDBEngineVersions' :: Maybe Bool
listSupportedCharacterSets = forall a. Maybe a
Prelude.Nothing,
$sel:listSupportedTimezones:DescribeDBEngineVersions' :: Maybe Bool
listSupportedTimezones = forall a. Maybe a
Prelude.Nothing,
$sel:marker:DescribeDBEngineVersions' :: Maybe Text
marker = forall a. Maybe a
Prelude.Nothing,
$sel:maxRecords:DescribeDBEngineVersions' :: Maybe Int
maxRecords = forall a. Maybe a
Prelude.Nothing
}
describeDBEngineVersions_dbParameterGroupFamily :: Lens.Lens' DescribeDBEngineVersions (Prelude.Maybe Prelude.Text)
describeDBEngineVersions_dbParameterGroupFamily :: Lens' DescribeDBEngineVersions (Maybe Text)
describeDBEngineVersions_dbParameterGroupFamily = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeDBEngineVersions' {Maybe Text
dbParameterGroupFamily :: Maybe Text
$sel:dbParameterGroupFamily:DescribeDBEngineVersions' :: DescribeDBEngineVersions -> Maybe Text
dbParameterGroupFamily} -> Maybe Text
dbParameterGroupFamily) (\s :: DescribeDBEngineVersions
s@DescribeDBEngineVersions' {} Maybe Text
a -> DescribeDBEngineVersions
s {$sel:dbParameterGroupFamily:DescribeDBEngineVersions' :: Maybe Text
dbParameterGroupFamily = Maybe Text
a} :: DescribeDBEngineVersions)
describeDBEngineVersions_defaultOnly :: Lens.Lens' DescribeDBEngineVersions (Prelude.Maybe Prelude.Bool)
describeDBEngineVersions_defaultOnly :: Lens' DescribeDBEngineVersions (Maybe Bool)
describeDBEngineVersions_defaultOnly = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeDBEngineVersions' {Maybe Bool
defaultOnly :: Maybe Bool
$sel:defaultOnly:DescribeDBEngineVersions' :: DescribeDBEngineVersions -> Maybe Bool
defaultOnly} -> Maybe Bool
defaultOnly) (\s :: DescribeDBEngineVersions
s@DescribeDBEngineVersions' {} Maybe Bool
a -> DescribeDBEngineVersions
s {$sel:defaultOnly:DescribeDBEngineVersions' :: Maybe Bool
defaultOnly = Maybe Bool
a} :: DescribeDBEngineVersions)
describeDBEngineVersions_engine :: Lens.Lens' DescribeDBEngineVersions (Prelude.Maybe Prelude.Text)
describeDBEngineVersions_engine :: Lens' DescribeDBEngineVersions (Maybe Text)
describeDBEngineVersions_engine = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeDBEngineVersions' {Maybe Text
engine :: Maybe Text
$sel:engine:DescribeDBEngineVersions' :: DescribeDBEngineVersions -> Maybe Text
engine} -> Maybe Text
engine) (\s :: DescribeDBEngineVersions
s@DescribeDBEngineVersions' {} Maybe Text
a -> DescribeDBEngineVersions
s {$sel:engine:DescribeDBEngineVersions' :: Maybe Text
engine = Maybe Text
a} :: DescribeDBEngineVersions)
describeDBEngineVersions_engineVersion :: Lens.Lens' DescribeDBEngineVersions (Prelude.Maybe Prelude.Text)
describeDBEngineVersions_engineVersion :: Lens' DescribeDBEngineVersions (Maybe Text)
describeDBEngineVersions_engineVersion = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeDBEngineVersions' {Maybe Text
engineVersion :: Maybe Text
$sel:engineVersion:DescribeDBEngineVersions' :: DescribeDBEngineVersions -> Maybe Text
engineVersion} -> Maybe Text
engineVersion) (\s :: DescribeDBEngineVersions
s@DescribeDBEngineVersions' {} Maybe Text
a -> DescribeDBEngineVersions
s {$sel:engineVersion:DescribeDBEngineVersions' :: Maybe Text
engineVersion = Maybe Text
a} :: DescribeDBEngineVersions)
describeDBEngineVersions_filters :: Lens.Lens' DescribeDBEngineVersions (Prelude.Maybe [Filter])
describeDBEngineVersions_filters :: Lens' DescribeDBEngineVersions (Maybe [Filter])
describeDBEngineVersions_filters = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeDBEngineVersions' {Maybe [Filter]
filters :: Maybe [Filter]
$sel:filters:DescribeDBEngineVersions' :: DescribeDBEngineVersions -> Maybe [Filter]
filters} -> Maybe [Filter]
filters) (\s :: DescribeDBEngineVersions
s@DescribeDBEngineVersions' {} Maybe [Filter]
a -> DescribeDBEngineVersions
s {$sel:filters:DescribeDBEngineVersions' :: Maybe [Filter]
filters = Maybe [Filter]
a} :: DescribeDBEngineVersions) 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
describeDBEngineVersions_includeAll :: Lens.Lens' DescribeDBEngineVersions (Prelude.Maybe Prelude.Bool)
describeDBEngineVersions_includeAll :: Lens' DescribeDBEngineVersions (Maybe Bool)
describeDBEngineVersions_includeAll = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeDBEngineVersions' {Maybe Bool
includeAll :: Maybe Bool
$sel:includeAll:DescribeDBEngineVersions' :: DescribeDBEngineVersions -> Maybe Bool
includeAll} -> Maybe Bool
includeAll) (\s :: DescribeDBEngineVersions
s@DescribeDBEngineVersions' {} Maybe Bool
a -> DescribeDBEngineVersions
s {$sel:includeAll:DescribeDBEngineVersions' :: Maybe Bool
includeAll = Maybe Bool
a} :: DescribeDBEngineVersions)
describeDBEngineVersions_listSupportedCharacterSets :: Lens.Lens' DescribeDBEngineVersions (Prelude.Maybe Prelude.Bool)
describeDBEngineVersions_listSupportedCharacterSets :: Lens' DescribeDBEngineVersions (Maybe Bool)
describeDBEngineVersions_listSupportedCharacterSets = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeDBEngineVersions' {Maybe Bool
listSupportedCharacterSets :: Maybe Bool
$sel:listSupportedCharacterSets:DescribeDBEngineVersions' :: DescribeDBEngineVersions -> Maybe Bool
listSupportedCharacterSets} -> Maybe Bool
listSupportedCharacterSets) (\s :: DescribeDBEngineVersions
s@DescribeDBEngineVersions' {} Maybe Bool
a -> DescribeDBEngineVersions
s {$sel:listSupportedCharacterSets:DescribeDBEngineVersions' :: Maybe Bool
listSupportedCharacterSets = Maybe Bool
a} :: DescribeDBEngineVersions)
describeDBEngineVersions_listSupportedTimezones :: Lens.Lens' DescribeDBEngineVersions (Prelude.Maybe Prelude.Bool)
describeDBEngineVersions_listSupportedTimezones :: Lens' DescribeDBEngineVersions (Maybe Bool)
describeDBEngineVersions_listSupportedTimezones = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeDBEngineVersions' {Maybe Bool
listSupportedTimezones :: Maybe Bool
$sel:listSupportedTimezones:DescribeDBEngineVersions' :: DescribeDBEngineVersions -> Maybe Bool
listSupportedTimezones} -> Maybe Bool
listSupportedTimezones) (\s :: DescribeDBEngineVersions
s@DescribeDBEngineVersions' {} Maybe Bool
a -> DescribeDBEngineVersions
s {$sel:listSupportedTimezones:DescribeDBEngineVersions' :: Maybe Bool
listSupportedTimezones = Maybe Bool
a} :: DescribeDBEngineVersions)
describeDBEngineVersions_marker :: Lens.Lens' DescribeDBEngineVersions (Prelude.Maybe Prelude.Text)
describeDBEngineVersions_marker :: Lens' DescribeDBEngineVersions (Maybe Text)
describeDBEngineVersions_marker = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeDBEngineVersions' {Maybe Text
marker :: Maybe Text
$sel:marker:DescribeDBEngineVersions' :: DescribeDBEngineVersions -> Maybe Text
marker} -> Maybe Text
marker) (\s :: DescribeDBEngineVersions
s@DescribeDBEngineVersions' {} Maybe Text
a -> DescribeDBEngineVersions
s {$sel:marker:DescribeDBEngineVersions' :: Maybe Text
marker = Maybe Text
a} :: DescribeDBEngineVersions)
describeDBEngineVersions_maxRecords :: Lens.Lens' DescribeDBEngineVersions (Prelude.Maybe Prelude.Int)
describeDBEngineVersions_maxRecords :: Lens' DescribeDBEngineVersions (Maybe Int)
describeDBEngineVersions_maxRecords = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeDBEngineVersions' {Maybe Int
maxRecords :: Maybe Int
$sel:maxRecords:DescribeDBEngineVersions' :: DescribeDBEngineVersions -> Maybe Int
maxRecords} -> Maybe Int
maxRecords) (\s :: DescribeDBEngineVersions
s@DescribeDBEngineVersions' {} Maybe Int
a -> DescribeDBEngineVersions
s {$sel:maxRecords:DescribeDBEngineVersions' :: Maybe Int
maxRecords = Maybe Int
a} :: DescribeDBEngineVersions)
instance Core.AWSPager DescribeDBEngineVersions where
page :: DescribeDBEngineVersions
-> AWSResponse DescribeDBEngineVersions
-> Maybe DescribeDBEngineVersions
page DescribeDBEngineVersions
rq AWSResponse DescribeDBEngineVersions
rs
| forall a. AWSTruncated a => a -> Bool
Core.stop
( AWSResponse DescribeDBEngineVersions
rs
forall s a. s -> Getting (First a) s a -> Maybe a
Lens.^? Lens' DescribeDBEngineVersionsResponse (Maybe Text)
describeDBEngineVersionsResponse_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 DescribeDBEngineVersions
rs
forall s a. s -> Getting (First a) s a -> Maybe a
Lens.^? Lens' DescribeDBEngineVersionsResponse (Maybe [DBEngineVersion])
describeDBEngineVersionsResponse_dbEngineVersions
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.$ DescribeDBEngineVersions
rq
forall a b. a -> (a -> b) -> b
Prelude.& Lens' DescribeDBEngineVersions (Maybe Text)
describeDBEngineVersions_marker
forall s t a b. ASetter s t a b -> b -> s -> t
Lens..~ AWSResponse DescribeDBEngineVersions
rs
forall s a. s -> Getting (First a) s a -> Maybe a
Lens.^? Lens' DescribeDBEngineVersionsResponse (Maybe Text)
describeDBEngineVersionsResponse_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 DescribeDBEngineVersions where
type
AWSResponse DescribeDBEngineVersions =
DescribeDBEngineVersionsResponse
request :: (Service -> Service)
-> DescribeDBEngineVersions -> Request DescribeDBEngineVersions
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 DescribeDBEngineVersions
-> ClientResponse ClientBody
-> m (Either
Error (ClientResponse (AWSResponse DescribeDBEngineVersions)))
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
"DescribeDBEngineVersionsResult"
( \Int
s ResponseHeaders
h [Node]
x ->
Maybe [DBEngineVersion]
-> Maybe Text -> Int -> DescribeDBEngineVersionsResponse
DescribeDBEngineVersionsResponse'
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
"DBEngineVersions"
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
"DBEngineVersion")
)
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 DescribeDBEngineVersions where
hashWithSalt :: Int -> DescribeDBEngineVersions -> Int
hashWithSalt Int
_salt DescribeDBEngineVersions' {Maybe Bool
Maybe Int
Maybe [Filter]
Maybe Text
maxRecords :: Maybe Int
marker :: Maybe Text
listSupportedTimezones :: Maybe Bool
listSupportedCharacterSets :: Maybe Bool
includeAll :: Maybe Bool
filters :: Maybe [Filter]
engineVersion :: Maybe Text
engine :: Maybe Text
defaultOnly :: Maybe Bool
dbParameterGroupFamily :: Maybe Text
$sel:maxRecords:DescribeDBEngineVersions' :: DescribeDBEngineVersions -> Maybe Int
$sel:marker:DescribeDBEngineVersions' :: DescribeDBEngineVersions -> Maybe Text
$sel:listSupportedTimezones:DescribeDBEngineVersions' :: DescribeDBEngineVersions -> Maybe Bool
$sel:listSupportedCharacterSets:DescribeDBEngineVersions' :: DescribeDBEngineVersions -> Maybe Bool
$sel:includeAll:DescribeDBEngineVersions' :: DescribeDBEngineVersions -> Maybe Bool
$sel:filters:DescribeDBEngineVersions' :: DescribeDBEngineVersions -> Maybe [Filter]
$sel:engineVersion:DescribeDBEngineVersions' :: DescribeDBEngineVersions -> Maybe Text
$sel:engine:DescribeDBEngineVersions' :: DescribeDBEngineVersions -> Maybe Text
$sel:defaultOnly:DescribeDBEngineVersions' :: DescribeDBEngineVersions -> Maybe Bool
$sel:dbParameterGroupFamily:DescribeDBEngineVersions' :: DescribeDBEngineVersions -> Maybe Text
..} =
Int
_salt
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
dbParameterGroupFamily
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Bool
defaultOnly
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
engine
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
engineVersion
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe [Filter]
filters
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Bool
includeAll
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Bool
listSupportedCharacterSets
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Bool
listSupportedTimezones
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 DescribeDBEngineVersions where
rnf :: DescribeDBEngineVersions -> ()
rnf DescribeDBEngineVersions' {Maybe Bool
Maybe Int
Maybe [Filter]
Maybe Text
maxRecords :: Maybe Int
marker :: Maybe Text
listSupportedTimezones :: Maybe Bool
listSupportedCharacterSets :: Maybe Bool
includeAll :: Maybe Bool
filters :: Maybe [Filter]
engineVersion :: Maybe Text
engine :: Maybe Text
defaultOnly :: Maybe Bool
dbParameterGroupFamily :: Maybe Text
$sel:maxRecords:DescribeDBEngineVersions' :: DescribeDBEngineVersions -> Maybe Int
$sel:marker:DescribeDBEngineVersions' :: DescribeDBEngineVersions -> Maybe Text
$sel:listSupportedTimezones:DescribeDBEngineVersions' :: DescribeDBEngineVersions -> Maybe Bool
$sel:listSupportedCharacterSets:DescribeDBEngineVersions' :: DescribeDBEngineVersions -> Maybe Bool
$sel:includeAll:DescribeDBEngineVersions' :: DescribeDBEngineVersions -> Maybe Bool
$sel:filters:DescribeDBEngineVersions' :: DescribeDBEngineVersions -> Maybe [Filter]
$sel:engineVersion:DescribeDBEngineVersions' :: DescribeDBEngineVersions -> Maybe Text
$sel:engine:DescribeDBEngineVersions' :: DescribeDBEngineVersions -> Maybe Text
$sel:defaultOnly:DescribeDBEngineVersions' :: DescribeDBEngineVersions -> Maybe Bool
$sel:dbParameterGroupFamily:DescribeDBEngineVersions' :: DescribeDBEngineVersions -> Maybe Text
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
dbParameterGroupFamily
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Bool
defaultOnly
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
engine
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
engineVersion
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 Bool
includeAll
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Bool
listSupportedCharacterSets
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Bool
listSupportedTimezones
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 DescribeDBEngineVersions where
toHeaders :: DescribeDBEngineVersions -> ResponseHeaders
toHeaders = forall a b. a -> b -> a
Prelude.const forall a. Monoid a => a
Prelude.mempty
instance Data.ToPath DescribeDBEngineVersions where
toPath :: DescribeDBEngineVersions -> ByteString
toPath = forall a b. a -> b -> a
Prelude.const ByteString
"/"
instance Data.ToQuery DescribeDBEngineVersions where
toQuery :: DescribeDBEngineVersions -> QueryString
toQuery DescribeDBEngineVersions' {Maybe Bool
Maybe Int
Maybe [Filter]
Maybe Text
maxRecords :: Maybe Int
marker :: Maybe Text
listSupportedTimezones :: Maybe Bool
listSupportedCharacterSets :: Maybe Bool
includeAll :: Maybe Bool
filters :: Maybe [Filter]
engineVersion :: Maybe Text
engine :: Maybe Text
defaultOnly :: Maybe Bool
dbParameterGroupFamily :: Maybe Text
$sel:maxRecords:DescribeDBEngineVersions' :: DescribeDBEngineVersions -> Maybe Int
$sel:marker:DescribeDBEngineVersions' :: DescribeDBEngineVersions -> Maybe Text
$sel:listSupportedTimezones:DescribeDBEngineVersions' :: DescribeDBEngineVersions -> Maybe Bool
$sel:listSupportedCharacterSets:DescribeDBEngineVersions' :: DescribeDBEngineVersions -> Maybe Bool
$sel:includeAll:DescribeDBEngineVersions' :: DescribeDBEngineVersions -> Maybe Bool
$sel:filters:DescribeDBEngineVersions' :: DescribeDBEngineVersions -> Maybe [Filter]
$sel:engineVersion:DescribeDBEngineVersions' :: DescribeDBEngineVersions -> Maybe Text
$sel:engine:DescribeDBEngineVersions' :: DescribeDBEngineVersions -> Maybe Text
$sel:defaultOnly:DescribeDBEngineVersions' :: DescribeDBEngineVersions -> Maybe Bool
$sel:dbParameterGroupFamily:DescribeDBEngineVersions' :: DescribeDBEngineVersions -> Maybe Text
..} =
forall a. Monoid a => [a] -> a
Prelude.mconcat
[ ByteString
"Action"
forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: (ByteString
"DescribeDBEngineVersions" :: Prelude.ByteString),
ByteString
"Version"
forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: (ByteString
"2014-10-31" :: Prelude.ByteString),
ByteString
"DBParameterGroupFamily"
forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: Maybe Text
dbParameterGroupFamily,
ByteString
"DefaultOnly" forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: Maybe Bool
defaultOnly,
ByteString
"Engine" forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: Maybe Text
engine,
ByteString
"EngineVersion" forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: Maybe Text
engineVersion,
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
"IncludeAll" forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: Maybe Bool
includeAll,
ByteString
"ListSupportedCharacterSets"
forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: Maybe Bool
listSupportedCharacterSets,
ByteString
"ListSupportedTimezones"
forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: Maybe Bool
listSupportedTimezones,
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 DescribeDBEngineVersionsResponse = DescribeDBEngineVersionsResponse'
{
DescribeDBEngineVersionsResponse -> Maybe [DBEngineVersion]
dbEngineVersions :: Prelude.Maybe [DBEngineVersion],
DescribeDBEngineVersionsResponse -> Maybe Text
marker :: Prelude.Maybe Prelude.Text,
DescribeDBEngineVersionsResponse -> Int
httpStatus :: Prelude.Int
}
deriving (DescribeDBEngineVersionsResponse
-> DescribeDBEngineVersionsResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: DescribeDBEngineVersionsResponse
-> DescribeDBEngineVersionsResponse -> Bool
$c/= :: DescribeDBEngineVersionsResponse
-> DescribeDBEngineVersionsResponse -> Bool
== :: DescribeDBEngineVersionsResponse
-> DescribeDBEngineVersionsResponse -> Bool
$c== :: DescribeDBEngineVersionsResponse
-> DescribeDBEngineVersionsResponse -> Bool
Prelude.Eq, ReadPrec [DescribeDBEngineVersionsResponse]
ReadPrec DescribeDBEngineVersionsResponse
Int -> ReadS DescribeDBEngineVersionsResponse
ReadS [DescribeDBEngineVersionsResponse]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [DescribeDBEngineVersionsResponse]
$creadListPrec :: ReadPrec [DescribeDBEngineVersionsResponse]
readPrec :: ReadPrec DescribeDBEngineVersionsResponse
$creadPrec :: ReadPrec DescribeDBEngineVersionsResponse
readList :: ReadS [DescribeDBEngineVersionsResponse]
$creadList :: ReadS [DescribeDBEngineVersionsResponse]
readsPrec :: Int -> ReadS DescribeDBEngineVersionsResponse
$creadsPrec :: Int -> ReadS DescribeDBEngineVersionsResponse
Prelude.Read, Int -> DescribeDBEngineVersionsResponse -> ShowS
[DescribeDBEngineVersionsResponse] -> ShowS
DescribeDBEngineVersionsResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [DescribeDBEngineVersionsResponse] -> ShowS
$cshowList :: [DescribeDBEngineVersionsResponse] -> ShowS
show :: DescribeDBEngineVersionsResponse -> String
$cshow :: DescribeDBEngineVersionsResponse -> String
showsPrec :: Int -> DescribeDBEngineVersionsResponse -> ShowS
$cshowsPrec :: Int -> DescribeDBEngineVersionsResponse -> ShowS
Prelude.Show, forall x.
Rep DescribeDBEngineVersionsResponse x
-> DescribeDBEngineVersionsResponse
forall x.
DescribeDBEngineVersionsResponse
-> Rep DescribeDBEngineVersionsResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep DescribeDBEngineVersionsResponse x
-> DescribeDBEngineVersionsResponse
$cfrom :: forall x.
DescribeDBEngineVersionsResponse
-> Rep DescribeDBEngineVersionsResponse x
Prelude.Generic)
newDescribeDBEngineVersionsResponse ::
Prelude.Int ->
DescribeDBEngineVersionsResponse
newDescribeDBEngineVersionsResponse :: Int -> DescribeDBEngineVersionsResponse
newDescribeDBEngineVersionsResponse Int
pHttpStatus_ =
DescribeDBEngineVersionsResponse'
{ $sel:dbEngineVersions:DescribeDBEngineVersionsResponse' :: Maybe [DBEngineVersion]
dbEngineVersions =
forall a. Maybe a
Prelude.Nothing,
$sel:marker:DescribeDBEngineVersionsResponse' :: Maybe Text
marker = forall a. Maybe a
Prelude.Nothing,
$sel:httpStatus:DescribeDBEngineVersionsResponse' :: Int
httpStatus = Int
pHttpStatus_
}
describeDBEngineVersionsResponse_dbEngineVersions :: Lens.Lens' DescribeDBEngineVersionsResponse (Prelude.Maybe [DBEngineVersion])
describeDBEngineVersionsResponse_dbEngineVersions :: Lens' DescribeDBEngineVersionsResponse (Maybe [DBEngineVersion])
describeDBEngineVersionsResponse_dbEngineVersions = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeDBEngineVersionsResponse' {Maybe [DBEngineVersion]
dbEngineVersions :: Maybe [DBEngineVersion]
$sel:dbEngineVersions:DescribeDBEngineVersionsResponse' :: DescribeDBEngineVersionsResponse -> Maybe [DBEngineVersion]
dbEngineVersions} -> Maybe [DBEngineVersion]
dbEngineVersions) (\s :: DescribeDBEngineVersionsResponse
s@DescribeDBEngineVersionsResponse' {} Maybe [DBEngineVersion]
a -> DescribeDBEngineVersionsResponse
s {$sel:dbEngineVersions:DescribeDBEngineVersionsResponse' :: Maybe [DBEngineVersion]
dbEngineVersions = Maybe [DBEngineVersion]
a} :: DescribeDBEngineVersionsResponse) 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
describeDBEngineVersionsResponse_marker :: Lens.Lens' DescribeDBEngineVersionsResponse (Prelude.Maybe Prelude.Text)
describeDBEngineVersionsResponse_marker :: Lens' DescribeDBEngineVersionsResponse (Maybe Text)
describeDBEngineVersionsResponse_marker = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeDBEngineVersionsResponse' {Maybe Text
marker :: Maybe Text
$sel:marker:DescribeDBEngineVersionsResponse' :: DescribeDBEngineVersionsResponse -> Maybe Text
marker} -> Maybe Text
marker) (\s :: DescribeDBEngineVersionsResponse
s@DescribeDBEngineVersionsResponse' {} Maybe Text
a -> DescribeDBEngineVersionsResponse
s {$sel:marker:DescribeDBEngineVersionsResponse' :: Maybe Text
marker = Maybe Text
a} :: DescribeDBEngineVersionsResponse)
describeDBEngineVersionsResponse_httpStatus :: Lens.Lens' DescribeDBEngineVersionsResponse Prelude.Int
describeDBEngineVersionsResponse_httpStatus :: Lens' DescribeDBEngineVersionsResponse Int
describeDBEngineVersionsResponse_httpStatus = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeDBEngineVersionsResponse' {Int
httpStatus :: Int
$sel:httpStatus:DescribeDBEngineVersionsResponse' :: DescribeDBEngineVersionsResponse -> Int
httpStatus} -> Int
httpStatus) (\s :: DescribeDBEngineVersionsResponse
s@DescribeDBEngineVersionsResponse' {} Int
a -> DescribeDBEngineVersionsResponse
s {$sel:httpStatus:DescribeDBEngineVersionsResponse' :: Int
httpStatus = Int
a} :: DescribeDBEngineVersionsResponse)
instance
Prelude.NFData
DescribeDBEngineVersionsResponse
where
rnf :: DescribeDBEngineVersionsResponse -> ()
rnf DescribeDBEngineVersionsResponse' {Int
Maybe [DBEngineVersion]
Maybe Text
httpStatus :: Int
marker :: Maybe Text
dbEngineVersions :: Maybe [DBEngineVersion]
$sel:httpStatus:DescribeDBEngineVersionsResponse' :: DescribeDBEngineVersionsResponse -> Int
$sel:marker:DescribeDBEngineVersionsResponse' :: DescribeDBEngineVersionsResponse -> Maybe Text
$sel:dbEngineVersions:DescribeDBEngineVersionsResponse' :: DescribeDBEngineVersionsResponse -> Maybe [DBEngineVersion]
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe [DBEngineVersion]
dbEngineVersions
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