{-# 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.ElastiCache.DescribeCacheEngineVersions
(
DescribeCacheEngineVersions (..),
newDescribeCacheEngineVersions,
describeCacheEngineVersions_cacheParameterGroupFamily,
describeCacheEngineVersions_defaultOnly,
describeCacheEngineVersions_engine,
describeCacheEngineVersions_engineVersion,
describeCacheEngineVersions_marker,
describeCacheEngineVersions_maxRecords,
DescribeCacheEngineVersionsResponse (..),
newDescribeCacheEngineVersionsResponse,
describeCacheEngineVersionsResponse_cacheEngineVersions,
describeCacheEngineVersionsResponse_marker,
describeCacheEngineVersionsResponse_httpStatus,
)
where
import qualified Amazonka.Core as Core
import qualified Amazonka.Core.Lens.Internal as Lens
import qualified Amazonka.Data as Data
import Amazonka.ElastiCache.Types
import qualified Amazonka.Prelude as Prelude
import qualified Amazonka.Request as Request
import qualified Amazonka.Response as Response
data DescribeCacheEngineVersions = DescribeCacheEngineVersions'
{
DescribeCacheEngineVersions -> Maybe Text
cacheParameterGroupFamily :: Prelude.Maybe Prelude.Text,
DescribeCacheEngineVersions -> Maybe Bool
defaultOnly :: Prelude.Maybe Prelude.Bool,
DescribeCacheEngineVersions -> Maybe Text
engine :: Prelude.Maybe Prelude.Text,
DescribeCacheEngineVersions -> Maybe Text
engineVersion :: Prelude.Maybe Prelude.Text,
DescribeCacheEngineVersions -> Maybe Text
marker :: Prelude.Maybe Prelude.Text,
DescribeCacheEngineVersions -> Maybe Int
maxRecords :: Prelude.Maybe Prelude.Int
}
deriving (DescribeCacheEngineVersions -> DescribeCacheEngineVersions -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: DescribeCacheEngineVersions -> DescribeCacheEngineVersions -> Bool
$c/= :: DescribeCacheEngineVersions -> DescribeCacheEngineVersions -> Bool
== :: DescribeCacheEngineVersions -> DescribeCacheEngineVersions -> Bool
$c== :: DescribeCacheEngineVersions -> DescribeCacheEngineVersions -> Bool
Prelude.Eq, ReadPrec [DescribeCacheEngineVersions]
ReadPrec DescribeCacheEngineVersions
Int -> ReadS DescribeCacheEngineVersions
ReadS [DescribeCacheEngineVersions]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [DescribeCacheEngineVersions]
$creadListPrec :: ReadPrec [DescribeCacheEngineVersions]
readPrec :: ReadPrec DescribeCacheEngineVersions
$creadPrec :: ReadPrec DescribeCacheEngineVersions
readList :: ReadS [DescribeCacheEngineVersions]
$creadList :: ReadS [DescribeCacheEngineVersions]
readsPrec :: Int -> ReadS DescribeCacheEngineVersions
$creadsPrec :: Int -> ReadS DescribeCacheEngineVersions
Prelude.Read, Int -> DescribeCacheEngineVersions -> ShowS
[DescribeCacheEngineVersions] -> ShowS
DescribeCacheEngineVersions -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [DescribeCacheEngineVersions] -> ShowS
$cshowList :: [DescribeCacheEngineVersions] -> ShowS
show :: DescribeCacheEngineVersions -> String
$cshow :: DescribeCacheEngineVersions -> String
showsPrec :: Int -> DescribeCacheEngineVersions -> ShowS
$cshowsPrec :: Int -> DescribeCacheEngineVersions -> ShowS
Prelude.Show, forall x.
Rep DescribeCacheEngineVersions x -> DescribeCacheEngineVersions
forall x.
DescribeCacheEngineVersions -> Rep DescribeCacheEngineVersions x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep DescribeCacheEngineVersions x -> DescribeCacheEngineVersions
$cfrom :: forall x.
DescribeCacheEngineVersions -> Rep DescribeCacheEngineVersions x
Prelude.Generic)
newDescribeCacheEngineVersions ::
DescribeCacheEngineVersions
newDescribeCacheEngineVersions :: DescribeCacheEngineVersions
newDescribeCacheEngineVersions =
DescribeCacheEngineVersions'
{ $sel:cacheParameterGroupFamily:DescribeCacheEngineVersions' :: Maybe Text
cacheParameterGroupFamily =
forall a. Maybe a
Prelude.Nothing,
$sel:defaultOnly:DescribeCacheEngineVersions' :: Maybe Bool
defaultOnly = forall a. Maybe a
Prelude.Nothing,
$sel:engine:DescribeCacheEngineVersions' :: Maybe Text
engine = forall a. Maybe a
Prelude.Nothing,
$sel:engineVersion:DescribeCacheEngineVersions' :: Maybe Text
engineVersion = forall a. Maybe a
Prelude.Nothing,
$sel:marker:DescribeCacheEngineVersions' :: Maybe Text
marker = forall a. Maybe a
Prelude.Nothing,
$sel:maxRecords:DescribeCacheEngineVersions' :: Maybe Int
maxRecords = forall a. Maybe a
Prelude.Nothing
}
describeCacheEngineVersions_cacheParameterGroupFamily :: Lens.Lens' DescribeCacheEngineVersions (Prelude.Maybe Prelude.Text)
describeCacheEngineVersions_cacheParameterGroupFamily :: Lens' DescribeCacheEngineVersions (Maybe Text)
describeCacheEngineVersions_cacheParameterGroupFamily = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeCacheEngineVersions' {Maybe Text
cacheParameterGroupFamily :: Maybe Text
$sel:cacheParameterGroupFamily:DescribeCacheEngineVersions' :: DescribeCacheEngineVersions -> Maybe Text
cacheParameterGroupFamily} -> Maybe Text
cacheParameterGroupFamily) (\s :: DescribeCacheEngineVersions
s@DescribeCacheEngineVersions' {} Maybe Text
a -> DescribeCacheEngineVersions
s {$sel:cacheParameterGroupFamily:DescribeCacheEngineVersions' :: Maybe Text
cacheParameterGroupFamily = Maybe Text
a} :: DescribeCacheEngineVersions)
describeCacheEngineVersions_defaultOnly :: Lens.Lens' DescribeCacheEngineVersions (Prelude.Maybe Prelude.Bool)
describeCacheEngineVersions_defaultOnly :: Lens' DescribeCacheEngineVersions (Maybe Bool)
describeCacheEngineVersions_defaultOnly = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeCacheEngineVersions' {Maybe Bool
defaultOnly :: Maybe Bool
$sel:defaultOnly:DescribeCacheEngineVersions' :: DescribeCacheEngineVersions -> Maybe Bool
defaultOnly} -> Maybe Bool
defaultOnly) (\s :: DescribeCacheEngineVersions
s@DescribeCacheEngineVersions' {} Maybe Bool
a -> DescribeCacheEngineVersions
s {$sel:defaultOnly:DescribeCacheEngineVersions' :: Maybe Bool
defaultOnly = Maybe Bool
a} :: DescribeCacheEngineVersions)
describeCacheEngineVersions_engine :: Lens.Lens' DescribeCacheEngineVersions (Prelude.Maybe Prelude.Text)
describeCacheEngineVersions_engine :: Lens' DescribeCacheEngineVersions (Maybe Text)
describeCacheEngineVersions_engine = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeCacheEngineVersions' {Maybe Text
engine :: Maybe Text
$sel:engine:DescribeCacheEngineVersions' :: DescribeCacheEngineVersions -> Maybe Text
engine} -> Maybe Text
engine) (\s :: DescribeCacheEngineVersions
s@DescribeCacheEngineVersions' {} Maybe Text
a -> DescribeCacheEngineVersions
s {$sel:engine:DescribeCacheEngineVersions' :: Maybe Text
engine = Maybe Text
a} :: DescribeCacheEngineVersions)
describeCacheEngineVersions_engineVersion :: Lens.Lens' DescribeCacheEngineVersions (Prelude.Maybe Prelude.Text)
describeCacheEngineVersions_engineVersion :: Lens' DescribeCacheEngineVersions (Maybe Text)
describeCacheEngineVersions_engineVersion = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeCacheEngineVersions' {Maybe Text
engineVersion :: Maybe Text
$sel:engineVersion:DescribeCacheEngineVersions' :: DescribeCacheEngineVersions -> Maybe Text
engineVersion} -> Maybe Text
engineVersion) (\s :: DescribeCacheEngineVersions
s@DescribeCacheEngineVersions' {} Maybe Text
a -> DescribeCacheEngineVersions
s {$sel:engineVersion:DescribeCacheEngineVersions' :: Maybe Text
engineVersion = Maybe Text
a} :: DescribeCacheEngineVersions)
describeCacheEngineVersions_marker :: Lens.Lens' DescribeCacheEngineVersions (Prelude.Maybe Prelude.Text)
describeCacheEngineVersions_marker :: Lens' DescribeCacheEngineVersions (Maybe Text)
describeCacheEngineVersions_marker = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeCacheEngineVersions' {Maybe Text
marker :: Maybe Text
$sel:marker:DescribeCacheEngineVersions' :: DescribeCacheEngineVersions -> Maybe Text
marker} -> Maybe Text
marker) (\s :: DescribeCacheEngineVersions
s@DescribeCacheEngineVersions' {} Maybe Text
a -> DescribeCacheEngineVersions
s {$sel:marker:DescribeCacheEngineVersions' :: Maybe Text
marker = Maybe Text
a} :: DescribeCacheEngineVersions)
describeCacheEngineVersions_maxRecords :: Lens.Lens' DescribeCacheEngineVersions (Prelude.Maybe Prelude.Int)
describeCacheEngineVersions_maxRecords :: Lens' DescribeCacheEngineVersions (Maybe Int)
describeCacheEngineVersions_maxRecords = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeCacheEngineVersions' {Maybe Int
maxRecords :: Maybe Int
$sel:maxRecords:DescribeCacheEngineVersions' :: DescribeCacheEngineVersions -> Maybe Int
maxRecords} -> Maybe Int
maxRecords) (\s :: DescribeCacheEngineVersions
s@DescribeCacheEngineVersions' {} Maybe Int
a -> DescribeCacheEngineVersions
s {$sel:maxRecords:DescribeCacheEngineVersions' :: Maybe Int
maxRecords = Maybe Int
a} :: DescribeCacheEngineVersions)
instance Core.AWSPager DescribeCacheEngineVersions where
page :: DescribeCacheEngineVersions
-> AWSResponse DescribeCacheEngineVersions
-> Maybe DescribeCacheEngineVersions
page DescribeCacheEngineVersions
rq AWSResponse DescribeCacheEngineVersions
rs
| forall a. AWSTruncated a => a -> Bool
Core.stop
( AWSResponse DescribeCacheEngineVersions
rs
forall s a. s -> Getting (First a) s a -> Maybe a
Lens.^? Lens' DescribeCacheEngineVersionsResponse (Maybe Text)
describeCacheEngineVersionsResponse_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 DescribeCacheEngineVersions
rs
forall s a. s -> Getting (First a) s a -> Maybe a
Lens.^? Lens'
DescribeCacheEngineVersionsResponse (Maybe [CacheEngineVersion])
describeCacheEngineVersionsResponse_cacheEngineVersions
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.$ DescribeCacheEngineVersions
rq
forall a b. a -> (a -> b) -> b
Prelude.& Lens' DescribeCacheEngineVersions (Maybe Text)
describeCacheEngineVersions_marker
forall s t a b. ASetter s t a b -> b -> s -> t
Lens..~ AWSResponse DescribeCacheEngineVersions
rs
forall s a. s -> Getting (First a) s a -> Maybe a
Lens.^? Lens' DescribeCacheEngineVersionsResponse (Maybe Text)
describeCacheEngineVersionsResponse_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 DescribeCacheEngineVersions where
type
AWSResponse DescribeCacheEngineVersions =
DescribeCacheEngineVersionsResponse
request :: (Service -> Service)
-> DescribeCacheEngineVersions
-> Request DescribeCacheEngineVersions
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 DescribeCacheEngineVersions
-> ClientResponse ClientBody
-> m (Either
Error (ClientResponse (AWSResponse DescribeCacheEngineVersions)))
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
"DescribeCacheEngineVersionsResult"
( \Int
s ResponseHeaders
h [Node]
x ->
Maybe [CacheEngineVersion]
-> Maybe Text -> Int -> DescribeCacheEngineVersionsResponse
DescribeCacheEngineVersionsResponse'
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
"CacheEngineVersions"
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
"CacheEngineVersion")
)
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 DescribeCacheEngineVersions where
hashWithSalt :: Int -> DescribeCacheEngineVersions -> Int
hashWithSalt Int
_salt DescribeCacheEngineVersions' {Maybe Bool
Maybe Int
Maybe Text
maxRecords :: Maybe Int
marker :: Maybe Text
engineVersion :: Maybe Text
engine :: Maybe Text
defaultOnly :: Maybe Bool
cacheParameterGroupFamily :: Maybe Text
$sel:maxRecords:DescribeCacheEngineVersions' :: DescribeCacheEngineVersions -> Maybe Int
$sel:marker:DescribeCacheEngineVersions' :: DescribeCacheEngineVersions -> Maybe Text
$sel:engineVersion:DescribeCacheEngineVersions' :: DescribeCacheEngineVersions -> Maybe Text
$sel:engine:DescribeCacheEngineVersions' :: DescribeCacheEngineVersions -> Maybe Text
$sel:defaultOnly:DescribeCacheEngineVersions' :: DescribeCacheEngineVersions -> Maybe Bool
$sel:cacheParameterGroupFamily:DescribeCacheEngineVersions' :: DescribeCacheEngineVersions -> Maybe Text
..} =
Int
_salt
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
cacheParameterGroupFamily
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 Text
marker
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Int
maxRecords
instance Prelude.NFData DescribeCacheEngineVersions where
rnf :: DescribeCacheEngineVersions -> ()
rnf DescribeCacheEngineVersions' {Maybe Bool
Maybe Int
Maybe Text
maxRecords :: Maybe Int
marker :: Maybe Text
engineVersion :: Maybe Text
engine :: Maybe Text
defaultOnly :: Maybe Bool
cacheParameterGroupFamily :: Maybe Text
$sel:maxRecords:DescribeCacheEngineVersions' :: DescribeCacheEngineVersions -> Maybe Int
$sel:marker:DescribeCacheEngineVersions' :: DescribeCacheEngineVersions -> Maybe Text
$sel:engineVersion:DescribeCacheEngineVersions' :: DescribeCacheEngineVersions -> Maybe Text
$sel:engine:DescribeCacheEngineVersions' :: DescribeCacheEngineVersions -> Maybe Text
$sel:defaultOnly:DescribeCacheEngineVersions' :: DescribeCacheEngineVersions -> Maybe Bool
$sel:cacheParameterGroupFamily:DescribeCacheEngineVersions' :: DescribeCacheEngineVersions -> Maybe Text
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
cacheParameterGroupFamily
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 Text
marker
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Int
maxRecords
instance Data.ToHeaders DescribeCacheEngineVersions where
toHeaders :: DescribeCacheEngineVersions -> ResponseHeaders
toHeaders = forall a b. a -> b -> a
Prelude.const forall a. Monoid a => a
Prelude.mempty
instance Data.ToPath DescribeCacheEngineVersions where
toPath :: DescribeCacheEngineVersions -> ByteString
toPath = forall a b. a -> b -> a
Prelude.const ByteString
"/"
instance Data.ToQuery DescribeCacheEngineVersions where
toQuery :: DescribeCacheEngineVersions -> QueryString
toQuery DescribeCacheEngineVersions' {Maybe Bool
Maybe Int
Maybe Text
maxRecords :: Maybe Int
marker :: Maybe Text
engineVersion :: Maybe Text
engine :: Maybe Text
defaultOnly :: Maybe Bool
cacheParameterGroupFamily :: Maybe Text
$sel:maxRecords:DescribeCacheEngineVersions' :: DescribeCacheEngineVersions -> Maybe Int
$sel:marker:DescribeCacheEngineVersions' :: DescribeCacheEngineVersions -> Maybe Text
$sel:engineVersion:DescribeCacheEngineVersions' :: DescribeCacheEngineVersions -> Maybe Text
$sel:engine:DescribeCacheEngineVersions' :: DescribeCacheEngineVersions -> Maybe Text
$sel:defaultOnly:DescribeCacheEngineVersions' :: DescribeCacheEngineVersions -> Maybe Bool
$sel:cacheParameterGroupFamily:DescribeCacheEngineVersions' :: DescribeCacheEngineVersions -> Maybe Text
..} =
forall a. Monoid a => [a] -> a
Prelude.mconcat
[ ByteString
"Action"
forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: ( ByteString
"DescribeCacheEngineVersions" ::
Prelude.ByteString
),
ByteString
"Version"
forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: (ByteString
"2015-02-02" :: Prelude.ByteString),
ByteString
"CacheParameterGroupFamily"
forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: Maybe Text
cacheParameterGroupFamily,
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
"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 DescribeCacheEngineVersionsResponse = DescribeCacheEngineVersionsResponse'
{
DescribeCacheEngineVersionsResponse -> Maybe [CacheEngineVersion]
cacheEngineVersions :: Prelude.Maybe [CacheEngineVersion],
DescribeCacheEngineVersionsResponse -> Maybe Text
marker :: Prelude.Maybe Prelude.Text,
DescribeCacheEngineVersionsResponse -> Int
httpStatus :: Prelude.Int
}
deriving (DescribeCacheEngineVersionsResponse
-> DescribeCacheEngineVersionsResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: DescribeCacheEngineVersionsResponse
-> DescribeCacheEngineVersionsResponse -> Bool
$c/= :: DescribeCacheEngineVersionsResponse
-> DescribeCacheEngineVersionsResponse -> Bool
== :: DescribeCacheEngineVersionsResponse
-> DescribeCacheEngineVersionsResponse -> Bool
$c== :: DescribeCacheEngineVersionsResponse
-> DescribeCacheEngineVersionsResponse -> Bool
Prelude.Eq, ReadPrec [DescribeCacheEngineVersionsResponse]
ReadPrec DescribeCacheEngineVersionsResponse
Int -> ReadS DescribeCacheEngineVersionsResponse
ReadS [DescribeCacheEngineVersionsResponse]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [DescribeCacheEngineVersionsResponse]
$creadListPrec :: ReadPrec [DescribeCacheEngineVersionsResponse]
readPrec :: ReadPrec DescribeCacheEngineVersionsResponse
$creadPrec :: ReadPrec DescribeCacheEngineVersionsResponse
readList :: ReadS [DescribeCacheEngineVersionsResponse]
$creadList :: ReadS [DescribeCacheEngineVersionsResponse]
readsPrec :: Int -> ReadS DescribeCacheEngineVersionsResponse
$creadsPrec :: Int -> ReadS DescribeCacheEngineVersionsResponse
Prelude.Read, Int -> DescribeCacheEngineVersionsResponse -> ShowS
[DescribeCacheEngineVersionsResponse] -> ShowS
DescribeCacheEngineVersionsResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [DescribeCacheEngineVersionsResponse] -> ShowS
$cshowList :: [DescribeCacheEngineVersionsResponse] -> ShowS
show :: DescribeCacheEngineVersionsResponse -> String
$cshow :: DescribeCacheEngineVersionsResponse -> String
showsPrec :: Int -> DescribeCacheEngineVersionsResponse -> ShowS
$cshowsPrec :: Int -> DescribeCacheEngineVersionsResponse -> ShowS
Prelude.Show, forall x.
Rep DescribeCacheEngineVersionsResponse x
-> DescribeCacheEngineVersionsResponse
forall x.
DescribeCacheEngineVersionsResponse
-> Rep DescribeCacheEngineVersionsResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep DescribeCacheEngineVersionsResponse x
-> DescribeCacheEngineVersionsResponse
$cfrom :: forall x.
DescribeCacheEngineVersionsResponse
-> Rep DescribeCacheEngineVersionsResponse x
Prelude.Generic)
newDescribeCacheEngineVersionsResponse ::
Prelude.Int ->
DescribeCacheEngineVersionsResponse
newDescribeCacheEngineVersionsResponse :: Int -> DescribeCacheEngineVersionsResponse
newDescribeCacheEngineVersionsResponse Int
pHttpStatus_ =
DescribeCacheEngineVersionsResponse'
{ $sel:cacheEngineVersions:DescribeCacheEngineVersionsResponse' :: Maybe [CacheEngineVersion]
cacheEngineVersions =
forall a. Maybe a
Prelude.Nothing,
$sel:marker:DescribeCacheEngineVersionsResponse' :: Maybe Text
marker = forall a. Maybe a
Prelude.Nothing,
$sel:httpStatus:DescribeCacheEngineVersionsResponse' :: Int
httpStatus = Int
pHttpStatus_
}
describeCacheEngineVersionsResponse_cacheEngineVersions :: Lens.Lens' DescribeCacheEngineVersionsResponse (Prelude.Maybe [CacheEngineVersion])
describeCacheEngineVersionsResponse_cacheEngineVersions :: Lens'
DescribeCacheEngineVersionsResponse (Maybe [CacheEngineVersion])
describeCacheEngineVersionsResponse_cacheEngineVersions = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeCacheEngineVersionsResponse' {Maybe [CacheEngineVersion]
cacheEngineVersions :: Maybe [CacheEngineVersion]
$sel:cacheEngineVersions:DescribeCacheEngineVersionsResponse' :: DescribeCacheEngineVersionsResponse -> Maybe [CacheEngineVersion]
cacheEngineVersions} -> Maybe [CacheEngineVersion]
cacheEngineVersions) (\s :: DescribeCacheEngineVersionsResponse
s@DescribeCacheEngineVersionsResponse' {} Maybe [CacheEngineVersion]
a -> DescribeCacheEngineVersionsResponse
s {$sel:cacheEngineVersions:DescribeCacheEngineVersionsResponse' :: Maybe [CacheEngineVersion]
cacheEngineVersions = Maybe [CacheEngineVersion]
a} :: DescribeCacheEngineVersionsResponse) 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
describeCacheEngineVersionsResponse_marker :: Lens.Lens' DescribeCacheEngineVersionsResponse (Prelude.Maybe Prelude.Text)
describeCacheEngineVersionsResponse_marker :: Lens' DescribeCacheEngineVersionsResponse (Maybe Text)
describeCacheEngineVersionsResponse_marker = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeCacheEngineVersionsResponse' {Maybe Text
marker :: Maybe Text
$sel:marker:DescribeCacheEngineVersionsResponse' :: DescribeCacheEngineVersionsResponse -> Maybe Text
marker} -> Maybe Text
marker) (\s :: DescribeCacheEngineVersionsResponse
s@DescribeCacheEngineVersionsResponse' {} Maybe Text
a -> DescribeCacheEngineVersionsResponse
s {$sel:marker:DescribeCacheEngineVersionsResponse' :: Maybe Text
marker = Maybe Text
a} :: DescribeCacheEngineVersionsResponse)
describeCacheEngineVersionsResponse_httpStatus :: Lens.Lens' DescribeCacheEngineVersionsResponse Prelude.Int
describeCacheEngineVersionsResponse_httpStatus :: Lens' DescribeCacheEngineVersionsResponse Int
describeCacheEngineVersionsResponse_httpStatus = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeCacheEngineVersionsResponse' {Int
httpStatus :: Int
$sel:httpStatus:DescribeCacheEngineVersionsResponse' :: DescribeCacheEngineVersionsResponse -> Int
httpStatus} -> Int
httpStatus) (\s :: DescribeCacheEngineVersionsResponse
s@DescribeCacheEngineVersionsResponse' {} Int
a -> DescribeCacheEngineVersionsResponse
s {$sel:httpStatus:DescribeCacheEngineVersionsResponse' :: Int
httpStatus = Int
a} :: DescribeCacheEngineVersionsResponse)
instance
Prelude.NFData
DescribeCacheEngineVersionsResponse
where
rnf :: DescribeCacheEngineVersionsResponse -> ()
rnf DescribeCacheEngineVersionsResponse' {Int
Maybe [CacheEngineVersion]
Maybe Text
httpStatus :: Int
marker :: Maybe Text
cacheEngineVersions :: Maybe [CacheEngineVersion]
$sel:httpStatus:DescribeCacheEngineVersionsResponse' :: DescribeCacheEngineVersionsResponse -> Int
$sel:marker:DescribeCacheEngineVersionsResponse' :: DescribeCacheEngineVersionsResponse -> Maybe Text
$sel:cacheEngineVersions:DescribeCacheEngineVersionsResponse' :: DescribeCacheEngineVersionsResponse -> Maybe [CacheEngineVersion]
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe [CacheEngineVersion]
cacheEngineVersions
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