{-# 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.MemoryDb.DescribeEngineVersions
(
DescribeEngineVersions (..),
newDescribeEngineVersions,
describeEngineVersions_defaultOnly,
describeEngineVersions_engineVersion,
describeEngineVersions_maxResults,
describeEngineVersions_nextToken,
describeEngineVersions_parameterGroupFamily,
DescribeEngineVersionsResponse (..),
newDescribeEngineVersionsResponse,
describeEngineVersionsResponse_engineVersions,
describeEngineVersionsResponse_nextToken,
describeEngineVersionsResponse_httpStatus,
)
where
import qualified Amazonka.Core as Core
import qualified Amazonka.Core.Lens.Internal as Lens
import qualified Amazonka.Data as Data
import Amazonka.MemoryDb.Types
import qualified Amazonka.Prelude as Prelude
import qualified Amazonka.Request as Request
import qualified Amazonka.Response as Response
data DescribeEngineVersions = DescribeEngineVersions'
{
DescribeEngineVersions -> Maybe Bool
defaultOnly :: Prelude.Maybe Prelude.Bool,
DescribeEngineVersions -> Maybe Text
engineVersion :: Prelude.Maybe Prelude.Text,
DescribeEngineVersions -> Maybe Int
maxResults :: Prelude.Maybe Prelude.Int,
DescribeEngineVersions -> Maybe Text
nextToken :: Prelude.Maybe Prelude.Text,
DescribeEngineVersions -> Maybe Text
parameterGroupFamily :: Prelude.Maybe Prelude.Text
}
deriving (DescribeEngineVersions -> DescribeEngineVersions -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: DescribeEngineVersions -> DescribeEngineVersions -> Bool
$c/= :: DescribeEngineVersions -> DescribeEngineVersions -> Bool
== :: DescribeEngineVersions -> DescribeEngineVersions -> Bool
$c== :: DescribeEngineVersions -> DescribeEngineVersions -> Bool
Prelude.Eq, ReadPrec [DescribeEngineVersions]
ReadPrec DescribeEngineVersions
Int -> ReadS DescribeEngineVersions
ReadS [DescribeEngineVersions]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [DescribeEngineVersions]
$creadListPrec :: ReadPrec [DescribeEngineVersions]
readPrec :: ReadPrec DescribeEngineVersions
$creadPrec :: ReadPrec DescribeEngineVersions
readList :: ReadS [DescribeEngineVersions]
$creadList :: ReadS [DescribeEngineVersions]
readsPrec :: Int -> ReadS DescribeEngineVersions
$creadsPrec :: Int -> ReadS DescribeEngineVersions
Prelude.Read, Int -> DescribeEngineVersions -> ShowS
[DescribeEngineVersions] -> ShowS
DescribeEngineVersions -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [DescribeEngineVersions] -> ShowS
$cshowList :: [DescribeEngineVersions] -> ShowS
show :: DescribeEngineVersions -> String
$cshow :: DescribeEngineVersions -> String
showsPrec :: Int -> DescribeEngineVersions -> ShowS
$cshowsPrec :: Int -> DescribeEngineVersions -> ShowS
Prelude.Show, forall x. Rep DescribeEngineVersions x -> DescribeEngineVersions
forall x. DescribeEngineVersions -> Rep DescribeEngineVersions x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep DescribeEngineVersions x -> DescribeEngineVersions
$cfrom :: forall x. DescribeEngineVersions -> Rep DescribeEngineVersions x
Prelude.Generic)
newDescribeEngineVersions ::
DescribeEngineVersions
newDescribeEngineVersions :: DescribeEngineVersions
newDescribeEngineVersions =
DescribeEngineVersions'
{ $sel:defaultOnly:DescribeEngineVersions' :: Maybe Bool
defaultOnly =
forall a. Maybe a
Prelude.Nothing,
$sel:engineVersion:DescribeEngineVersions' :: Maybe Text
engineVersion = forall a. Maybe a
Prelude.Nothing,
$sel:maxResults:DescribeEngineVersions' :: Maybe Int
maxResults = forall a. Maybe a
Prelude.Nothing,
$sel:nextToken:DescribeEngineVersions' :: Maybe Text
nextToken = forall a. Maybe a
Prelude.Nothing,
$sel:parameterGroupFamily:DescribeEngineVersions' :: Maybe Text
parameterGroupFamily = forall a. Maybe a
Prelude.Nothing
}
describeEngineVersions_defaultOnly :: Lens.Lens' DescribeEngineVersions (Prelude.Maybe Prelude.Bool)
describeEngineVersions_defaultOnly :: Lens' DescribeEngineVersions (Maybe Bool)
describeEngineVersions_defaultOnly = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeEngineVersions' {Maybe Bool
defaultOnly :: Maybe Bool
$sel:defaultOnly:DescribeEngineVersions' :: DescribeEngineVersions -> Maybe Bool
defaultOnly} -> Maybe Bool
defaultOnly) (\s :: DescribeEngineVersions
s@DescribeEngineVersions' {} Maybe Bool
a -> DescribeEngineVersions
s {$sel:defaultOnly:DescribeEngineVersions' :: Maybe Bool
defaultOnly = Maybe Bool
a} :: DescribeEngineVersions)
describeEngineVersions_engineVersion :: Lens.Lens' DescribeEngineVersions (Prelude.Maybe Prelude.Text)
describeEngineVersions_engineVersion :: Lens' DescribeEngineVersions (Maybe Text)
describeEngineVersions_engineVersion = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeEngineVersions' {Maybe Text
engineVersion :: Maybe Text
$sel:engineVersion:DescribeEngineVersions' :: DescribeEngineVersions -> Maybe Text
engineVersion} -> Maybe Text
engineVersion) (\s :: DescribeEngineVersions
s@DescribeEngineVersions' {} Maybe Text
a -> DescribeEngineVersions
s {$sel:engineVersion:DescribeEngineVersions' :: Maybe Text
engineVersion = Maybe Text
a} :: DescribeEngineVersions)
describeEngineVersions_maxResults :: Lens.Lens' DescribeEngineVersions (Prelude.Maybe Prelude.Int)
describeEngineVersions_maxResults :: Lens' DescribeEngineVersions (Maybe Int)
describeEngineVersions_maxResults = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeEngineVersions' {Maybe Int
maxResults :: Maybe Int
$sel:maxResults:DescribeEngineVersions' :: DescribeEngineVersions -> Maybe Int
maxResults} -> Maybe Int
maxResults) (\s :: DescribeEngineVersions
s@DescribeEngineVersions' {} Maybe Int
a -> DescribeEngineVersions
s {$sel:maxResults:DescribeEngineVersions' :: Maybe Int
maxResults = Maybe Int
a} :: DescribeEngineVersions)
describeEngineVersions_nextToken :: Lens.Lens' DescribeEngineVersions (Prelude.Maybe Prelude.Text)
describeEngineVersions_nextToken :: Lens' DescribeEngineVersions (Maybe Text)
describeEngineVersions_nextToken = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeEngineVersions' {Maybe Text
nextToken :: Maybe Text
$sel:nextToken:DescribeEngineVersions' :: DescribeEngineVersions -> Maybe Text
nextToken} -> Maybe Text
nextToken) (\s :: DescribeEngineVersions
s@DescribeEngineVersions' {} Maybe Text
a -> DescribeEngineVersions
s {$sel:nextToken:DescribeEngineVersions' :: Maybe Text
nextToken = Maybe Text
a} :: DescribeEngineVersions)
describeEngineVersions_parameterGroupFamily :: Lens.Lens' DescribeEngineVersions (Prelude.Maybe Prelude.Text)
describeEngineVersions_parameterGroupFamily :: Lens' DescribeEngineVersions (Maybe Text)
describeEngineVersions_parameterGroupFamily = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeEngineVersions' {Maybe Text
parameterGroupFamily :: Maybe Text
$sel:parameterGroupFamily:DescribeEngineVersions' :: DescribeEngineVersions -> Maybe Text
parameterGroupFamily} -> Maybe Text
parameterGroupFamily) (\s :: DescribeEngineVersions
s@DescribeEngineVersions' {} Maybe Text
a -> DescribeEngineVersions
s {$sel:parameterGroupFamily:DescribeEngineVersions' :: Maybe Text
parameterGroupFamily = Maybe Text
a} :: DescribeEngineVersions)
instance Core.AWSPager DescribeEngineVersions where
page :: DescribeEngineVersions
-> AWSResponse DescribeEngineVersions
-> Maybe DescribeEngineVersions
page DescribeEngineVersions
rq AWSResponse DescribeEngineVersions
rs
| forall a. AWSTruncated a => a -> Bool
Core.stop
( AWSResponse DescribeEngineVersions
rs
forall s a. s -> Getting (First a) s a -> Maybe a
Lens.^? Lens' DescribeEngineVersionsResponse (Maybe Text)
describeEngineVersionsResponse_nextToken
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 DescribeEngineVersions
rs
forall s a. s -> Getting (First a) s a -> Maybe a
Lens.^? Lens' DescribeEngineVersionsResponse (Maybe [EngineVersionInfo])
describeEngineVersionsResponse_engineVersions
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.$ DescribeEngineVersions
rq
forall a b. a -> (a -> b) -> b
Prelude.& Lens' DescribeEngineVersions (Maybe Text)
describeEngineVersions_nextToken
forall s t a b. ASetter s t a b -> b -> s -> t
Lens..~ AWSResponse DescribeEngineVersions
rs
forall s a. s -> Getting (First a) s a -> Maybe a
Lens.^? Lens' DescribeEngineVersionsResponse (Maybe Text)
describeEngineVersionsResponse_nextToken
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 DescribeEngineVersions where
type
AWSResponse DescribeEngineVersions =
DescribeEngineVersionsResponse
request :: (Service -> Service)
-> DescribeEngineVersions -> Request DescribeEngineVersions
request Service -> Service
overrides =
forall a. (ToRequest a, ToJSON a) => Service -> a -> Request a
Request.postJSON (Service -> Service
overrides Service
defaultService)
response :: forall (m :: * -> *).
MonadResource m =>
(ByteStringLazy -> IO ByteStringLazy)
-> Service
-> Proxy DescribeEngineVersions
-> ClientResponse ClientBody
-> m (Either
Error (ClientResponse (AWSResponse DescribeEngineVersions)))
response =
forall (m :: * -> *) a.
MonadResource m =>
(Int -> ResponseHeaders -> Object -> Either String (AWSResponse a))
-> (ByteStringLazy -> IO ByteStringLazy)
-> Service
-> Proxy a
-> ClientResponse ClientBody
-> m (Either Error (ClientResponse (AWSResponse a)))
Response.receiveJSON
( \Int
s ResponseHeaders
h Object
x ->
Maybe [EngineVersionInfo]
-> Maybe Text -> Int -> DescribeEngineVersionsResponse
DescribeEngineVersionsResponse'
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> (Object
x forall a. FromJSON a => Object -> Key -> Either String (Maybe a)
Data..?> Key
"EngineVersions" forall (f :: * -> *) a. Functor f => f (Maybe a) -> a -> f a
Core..!@ forall a. Monoid a => a
Prelude.mempty)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Either String (Maybe a)
Data..?> Key
"NextToken")
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 DescribeEngineVersions where
hashWithSalt :: Int -> DescribeEngineVersions -> Int
hashWithSalt Int
_salt DescribeEngineVersions' {Maybe Bool
Maybe Int
Maybe Text
parameterGroupFamily :: Maybe Text
nextToken :: Maybe Text
maxResults :: Maybe Int
engineVersion :: Maybe Text
defaultOnly :: Maybe Bool
$sel:parameterGroupFamily:DescribeEngineVersions' :: DescribeEngineVersions -> Maybe Text
$sel:nextToken:DescribeEngineVersions' :: DescribeEngineVersions -> Maybe Text
$sel:maxResults:DescribeEngineVersions' :: DescribeEngineVersions -> Maybe Int
$sel:engineVersion:DescribeEngineVersions' :: DescribeEngineVersions -> Maybe Text
$sel:defaultOnly:DescribeEngineVersions' :: DescribeEngineVersions -> Maybe Bool
..} =
Int
_salt
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Bool
defaultOnly
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
engineVersion
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Int
maxResults
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
nextToken
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
parameterGroupFamily
instance Prelude.NFData DescribeEngineVersions where
rnf :: DescribeEngineVersions -> ()
rnf DescribeEngineVersions' {Maybe Bool
Maybe Int
Maybe Text
parameterGroupFamily :: Maybe Text
nextToken :: Maybe Text
maxResults :: Maybe Int
engineVersion :: Maybe Text
defaultOnly :: Maybe Bool
$sel:parameterGroupFamily:DescribeEngineVersions' :: DescribeEngineVersions -> Maybe Text
$sel:nextToken:DescribeEngineVersions' :: DescribeEngineVersions -> Maybe Text
$sel:maxResults:DescribeEngineVersions' :: DescribeEngineVersions -> Maybe Int
$sel:engineVersion:DescribeEngineVersions' :: DescribeEngineVersions -> Maybe Text
$sel:defaultOnly:DescribeEngineVersions' :: DescribeEngineVersions -> Maybe Bool
..} =
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
engineVersion
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Int
maxResults
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
nextToken
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
parameterGroupFamily
instance Data.ToHeaders DescribeEngineVersions where
toHeaders :: DescribeEngineVersions -> ResponseHeaders
toHeaders =
forall a b. a -> b -> a
Prelude.const
( forall a. Monoid a => [a] -> a
Prelude.mconcat
[ HeaderName
"X-Amz-Target"
forall a. ToHeader a => HeaderName -> a -> ResponseHeaders
Data.=# ( ByteString
"AmazonMemoryDB.DescribeEngineVersions" ::
Prelude.ByteString
),
HeaderName
"Content-Type"
forall a. ToHeader a => HeaderName -> a -> ResponseHeaders
Data.=# ( ByteString
"application/x-amz-json-1.1" ::
Prelude.ByteString
)
]
)
instance Data.ToJSON DescribeEngineVersions where
toJSON :: DescribeEngineVersions -> Value
toJSON DescribeEngineVersions' {Maybe Bool
Maybe Int
Maybe Text
parameterGroupFamily :: Maybe Text
nextToken :: Maybe Text
maxResults :: Maybe Int
engineVersion :: Maybe Text
defaultOnly :: Maybe Bool
$sel:parameterGroupFamily:DescribeEngineVersions' :: DescribeEngineVersions -> Maybe Text
$sel:nextToken:DescribeEngineVersions' :: DescribeEngineVersions -> Maybe Text
$sel:maxResults:DescribeEngineVersions' :: DescribeEngineVersions -> Maybe Int
$sel:engineVersion:DescribeEngineVersions' :: DescribeEngineVersions -> Maybe Text
$sel:defaultOnly:DescribeEngineVersions' :: DescribeEngineVersions -> Maybe Bool
..} =
[Pair] -> Value
Data.object
( forall a. [Maybe a] -> [a]
Prelude.catMaybes
[ (Key
"DefaultOnly" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..=) forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe Bool
defaultOnly,
(Key
"EngineVersion" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..=) forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe Text
engineVersion,
(Key
"MaxResults" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..=) forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe Int
maxResults,
(Key
"NextToken" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..=) forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe Text
nextToken,
(Key
"ParameterGroupFamily" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..=)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe Text
parameterGroupFamily
]
)
instance Data.ToPath DescribeEngineVersions where
toPath :: DescribeEngineVersions -> ByteString
toPath = forall a b. a -> b -> a
Prelude.const ByteString
"/"
instance Data.ToQuery DescribeEngineVersions where
toQuery :: DescribeEngineVersions -> QueryString
toQuery = forall a b. a -> b -> a
Prelude.const forall a. Monoid a => a
Prelude.mempty
data DescribeEngineVersionsResponse = DescribeEngineVersionsResponse'
{
DescribeEngineVersionsResponse -> Maybe [EngineVersionInfo]
engineVersions :: Prelude.Maybe [EngineVersionInfo],
DescribeEngineVersionsResponse -> Maybe Text
nextToken :: Prelude.Maybe Prelude.Text,
DescribeEngineVersionsResponse -> Int
httpStatus :: Prelude.Int
}
deriving (DescribeEngineVersionsResponse
-> DescribeEngineVersionsResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: DescribeEngineVersionsResponse
-> DescribeEngineVersionsResponse -> Bool
$c/= :: DescribeEngineVersionsResponse
-> DescribeEngineVersionsResponse -> Bool
== :: DescribeEngineVersionsResponse
-> DescribeEngineVersionsResponse -> Bool
$c== :: DescribeEngineVersionsResponse
-> DescribeEngineVersionsResponse -> Bool
Prelude.Eq, ReadPrec [DescribeEngineVersionsResponse]
ReadPrec DescribeEngineVersionsResponse
Int -> ReadS DescribeEngineVersionsResponse
ReadS [DescribeEngineVersionsResponse]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [DescribeEngineVersionsResponse]
$creadListPrec :: ReadPrec [DescribeEngineVersionsResponse]
readPrec :: ReadPrec DescribeEngineVersionsResponse
$creadPrec :: ReadPrec DescribeEngineVersionsResponse
readList :: ReadS [DescribeEngineVersionsResponse]
$creadList :: ReadS [DescribeEngineVersionsResponse]
readsPrec :: Int -> ReadS DescribeEngineVersionsResponse
$creadsPrec :: Int -> ReadS DescribeEngineVersionsResponse
Prelude.Read, Int -> DescribeEngineVersionsResponse -> ShowS
[DescribeEngineVersionsResponse] -> ShowS
DescribeEngineVersionsResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [DescribeEngineVersionsResponse] -> ShowS
$cshowList :: [DescribeEngineVersionsResponse] -> ShowS
show :: DescribeEngineVersionsResponse -> String
$cshow :: DescribeEngineVersionsResponse -> String
showsPrec :: Int -> DescribeEngineVersionsResponse -> ShowS
$cshowsPrec :: Int -> DescribeEngineVersionsResponse -> ShowS
Prelude.Show, forall x.
Rep DescribeEngineVersionsResponse x
-> DescribeEngineVersionsResponse
forall x.
DescribeEngineVersionsResponse
-> Rep DescribeEngineVersionsResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep DescribeEngineVersionsResponse x
-> DescribeEngineVersionsResponse
$cfrom :: forall x.
DescribeEngineVersionsResponse
-> Rep DescribeEngineVersionsResponse x
Prelude.Generic)
newDescribeEngineVersionsResponse ::
Prelude.Int ->
DescribeEngineVersionsResponse
newDescribeEngineVersionsResponse :: Int -> DescribeEngineVersionsResponse
newDescribeEngineVersionsResponse Int
pHttpStatus_ =
DescribeEngineVersionsResponse'
{ $sel:engineVersions:DescribeEngineVersionsResponse' :: Maybe [EngineVersionInfo]
engineVersions =
forall a. Maybe a
Prelude.Nothing,
$sel:nextToken:DescribeEngineVersionsResponse' :: Maybe Text
nextToken = forall a. Maybe a
Prelude.Nothing,
$sel:httpStatus:DescribeEngineVersionsResponse' :: Int
httpStatus = Int
pHttpStatus_
}
describeEngineVersionsResponse_engineVersions :: Lens.Lens' DescribeEngineVersionsResponse (Prelude.Maybe [EngineVersionInfo])
describeEngineVersionsResponse_engineVersions :: Lens' DescribeEngineVersionsResponse (Maybe [EngineVersionInfo])
describeEngineVersionsResponse_engineVersions = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeEngineVersionsResponse' {Maybe [EngineVersionInfo]
engineVersions :: Maybe [EngineVersionInfo]
$sel:engineVersions:DescribeEngineVersionsResponse' :: DescribeEngineVersionsResponse -> Maybe [EngineVersionInfo]
engineVersions} -> Maybe [EngineVersionInfo]
engineVersions) (\s :: DescribeEngineVersionsResponse
s@DescribeEngineVersionsResponse' {} Maybe [EngineVersionInfo]
a -> DescribeEngineVersionsResponse
s {$sel:engineVersions:DescribeEngineVersionsResponse' :: Maybe [EngineVersionInfo]
engineVersions = Maybe [EngineVersionInfo]
a} :: DescribeEngineVersionsResponse) 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
describeEngineVersionsResponse_nextToken :: Lens.Lens' DescribeEngineVersionsResponse (Prelude.Maybe Prelude.Text)
describeEngineVersionsResponse_nextToken :: Lens' DescribeEngineVersionsResponse (Maybe Text)
describeEngineVersionsResponse_nextToken = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeEngineVersionsResponse' {Maybe Text
nextToken :: Maybe Text
$sel:nextToken:DescribeEngineVersionsResponse' :: DescribeEngineVersionsResponse -> Maybe Text
nextToken} -> Maybe Text
nextToken) (\s :: DescribeEngineVersionsResponse
s@DescribeEngineVersionsResponse' {} Maybe Text
a -> DescribeEngineVersionsResponse
s {$sel:nextToken:DescribeEngineVersionsResponse' :: Maybe Text
nextToken = Maybe Text
a} :: DescribeEngineVersionsResponse)
describeEngineVersionsResponse_httpStatus :: Lens.Lens' DescribeEngineVersionsResponse Prelude.Int
describeEngineVersionsResponse_httpStatus :: Lens' DescribeEngineVersionsResponse Int
describeEngineVersionsResponse_httpStatus = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeEngineVersionsResponse' {Int
httpStatus :: Int
$sel:httpStatus:DescribeEngineVersionsResponse' :: DescribeEngineVersionsResponse -> Int
httpStatus} -> Int
httpStatus) (\s :: DescribeEngineVersionsResponse
s@DescribeEngineVersionsResponse' {} Int
a -> DescribeEngineVersionsResponse
s {$sel:httpStatus:DescribeEngineVersionsResponse' :: Int
httpStatus = Int
a} :: DescribeEngineVersionsResponse)
instance
Prelude.NFData
DescribeEngineVersionsResponse
where
rnf :: DescribeEngineVersionsResponse -> ()
rnf DescribeEngineVersionsResponse' {Int
Maybe [EngineVersionInfo]
Maybe Text
httpStatus :: Int
nextToken :: Maybe Text
engineVersions :: Maybe [EngineVersionInfo]
$sel:httpStatus:DescribeEngineVersionsResponse' :: DescribeEngineVersionsResponse -> Int
$sel:nextToken:DescribeEngineVersionsResponse' :: DescribeEngineVersionsResponse -> Maybe Text
$sel:engineVersions:DescribeEngineVersionsResponse' :: DescribeEngineVersionsResponse -> Maybe [EngineVersionInfo]
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe [EngineVersionInfo]
engineVersions
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
nextToken
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Int
httpStatus