{-# 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.Redshift.DescribeClusterVersions
(
DescribeClusterVersions (..),
newDescribeClusterVersions,
describeClusterVersions_clusterParameterGroupFamily,
describeClusterVersions_clusterVersion,
describeClusterVersions_marker,
describeClusterVersions_maxRecords,
DescribeClusterVersionsResponse (..),
newDescribeClusterVersionsResponse,
describeClusterVersionsResponse_clusterVersions,
describeClusterVersionsResponse_marker,
describeClusterVersionsResponse_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.Redshift.Types
import qualified Amazonka.Request as Request
import qualified Amazonka.Response as Response
data DescribeClusterVersions = DescribeClusterVersions'
{
DescribeClusterVersions -> Maybe Text
clusterParameterGroupFamily :: Prelude.Maybe Prelude.Text,
DescribeClusterVersions -> Maybe Text
clusterVersion :: Prelude.Maybe Prelude.Text,
DescribeClusterVersions -> Maybe Text
marker :: Prelude.Maybe Prelude.Text,
DescribeClusterVersions -> Maybe Int
maxRecords :: Prelude.Maybe Prelude.Int
}
deriving (DescribeClusterVersions -> DescribeClusterVersions -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: DescribeClusterVersions -> DescribeClusterVersions -> Bool
$c/= :: DescribeClusterVersions -> DescribeClusterVersions -> Bool
== :: DescribeClusterVersions -> DescribeClusterVersions -> Bool
$c== :: DescribeClusterVersions -> DescribeClusterVersions -> Bool
Prelude.Eq, ReadPrec [DescribeClusterVersions]
ReadPrec DescribeClusterVersions
Int -> ReadS DescribeClusterVersions
ReadS [DescribeClusterVersions]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [DescribeClusterVersions]
$creadListPrec :: ReadPrec [DescribeClusterVersions]
readPrec :: ReadPrec DescribeClusterVersions
$creadPrec :: ReadPrec DescribeClusterVersions
readList :: ReadS [DescribeClusterVersions]
$creadList :: ReadS [DescribeClusterVersions]
readsPrec :: Int -> ReadS DescribeClusterVersions
$creadsPrec :: Int -> ReadS DescribeClusterVersions
Prelude.Read, Int -> DescribeClusterVersions -> ShowS
[DescribeClusterVersions] -> ShowS
DescribeClusterVersions -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [DescribeClusterVersions] -> ShowS
$cshowList :: [DescribeClusterVersions] -> ShowS
show :: DescribeClusterVersions -> String
$cshow :: DescribeClusterVersions -> String
showsPrec :: Int -> DescribeClusterVersions -> ShowS
$cshowsPrec :: Int -> DescribeClusterVersions -> ShowS
Prelude.Show, forall x. Rep DescribeClusterVersions x -> DescribeClusterVersions
forall x. DescribeClusterVersions -> Rep DescribeClusterVersions x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep DescribeClusterVersions x -> DescribeClusterVersions
$cfrom :: forall x. DescribeClusterVersions -> Rep DescribeClusterVersions x
Prelude.Generic)
newDescribeClusterVersions ::
DescribeClusterVersions
newDescribeClusterVersions :: DescribeClusterVersions
newDescribeClusterVersions =
DescribeClusterVersions'
{ $sel:clusterParameterGroupFamily:DescribeClusterVersions' :: Maybe Text
clusterParameterGroupFamily =
forall a. Maybe a
Prelude.Nothing,
$sel:clusterVersion:DescribeClusterVersions' :: Maybe Text
clusterVersion = forall a. Maybe a
Prelude.Nothing,
$sel:marker:DescribeClusterVersions' :: Maybe Text
marker = forall a. Maybe a
Prelude.Nothing,
$sel:maxRecords:DescribeClusterVersions' :: Maybe Int
maxRecords = forall a. Maybe a
Prelude.Nothing
}
describeClusterVersions_clusterParameterGroupFamily :: Lens.Lens' DescribeClusterVersions (Prelude.Maybe Prelude.Text)
describeClusterVersions_clusterParameterGroupFamily :: Lens' DescribeClusterVersions (Maybe Text)
describeClusterVersions_clusterParameterGroupFamily = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeClusterVersions' {Maybe Text
clusterParameterGroupFamily :: Maybe Text
$sel:clusterParameterGroupFamily:DescribeClusterVersions' :: DescribeClusterVersions -> Maybe Text
clusterParameterGroupFamily} -> Maybe Text
clusterParameterGroupFamily) (\s :: DescribeClusterVersions
s@DescribeClusterVersions' {} Maybe Text
a -> DescribeClusterVersions
s {$sel:clusterParameterGroupFamily:DescribeClusterVersions' :: Maybe Text
clusterParameterGroupFamily = Maybe Text
a} :: DescribeClusterVersions)
describeClusterVersions_clusterVersion :: Lens.Lens' DescribeClusterVersions (Prelude.Maybe Prelude.Text)
describeClusterVersions_clusterVersion :: Lens' DescribeClusterVersions (Maybe Text)
describeClusterVersions_clusterVersion = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeClusterVersions' {Maybe Text
clusterVersion :: Maybe Text
$sel:clusterVersion:DescribeClusterVersions' :: DescribeClusterVersions -> Maybe Text
clusterVersion} -> Maybe Text
clusterVersion) (\s :: DescribeClusterVersions
s@DescribeClusterVersions' {} Maybe Text
a -> DescribeClusterVersions
s {$sel:clusterVersion:DescribeClusterVersions' :: Maybe Text
clusterVersion = Maybe Text
a} :: DescribeClusterVersions)
describeClusterVersions_marker :: Lens.Lens' DescribeClusterVersions (Prelude.Maybe Prelude.Text)
describeClusterVersions_marker :: Lens' DescribeClusterVersions (Maybe Text)
describeClusterVersions_marker = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeClusterVersions' {Maybe Text
marker :: Maybe Text
$sel:marker:DescribeClusterVersions' :: DescribeClusterVersions -> Maybe Text
marker} -> Maybe Text
marker) (\s :: DescribeClusterVersions
s@DescribeClusterVersions' {} Maybe Text
a -> DescribeClusterVersions
s {$sel:marker:DescribeClusterVersions' :: Maybe Text
marker = Maybe Text
a} :: DescribeClusterVersions)
describeClusterVersions_maxRecords :: Lens.Lens' DescribeClusterVersions (Prelude.Maybe Prelude.Int)
describeClusterVersions_maxRecords :: Lens' DescribeClusterVersions (Maybe Int)
describeClusterVersions_maxRecords = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeClusterVersions' {Maybe Int
maxRecords :: Maybe Int
$sel:maxRecords:DescribeClusterVersions' :: DescribeClusterVersions -> Maybe Int
maxRecords} -> Maybe Int
maxRecords) (\s :: DescribeClusterVersions
s@DescribeClusterVersions' {} Maybe Int
a -> DescribeClusterVersions
s {$sel:maxRecords:DescribeClusterVersions' :: Maybe Int
maxRecords = Maybe Int
a} :: DescribeClusterVersions)
instance Core.AWSPager DescribeClusterVersions where
page :: DescribeClusterVersions
-> AWSResponse DescribeClusterVersions
-> Maybe DescribeClusterVersions
page DescribeClusterVersions
rq AWSResponse DescribeClusterVersions
rs
| forall a. AWSTruncated a => a -> Bool
Core.stop
( AWSResponse DescribeClusterVersions
rs
forall s a. s -> Getting (First a) s a -> Maybe a
Lens.^? Lens' DescribeClusterVersionsResponse (Maybe Text)
describeClusterVersionsResponse_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 DescribeClusterVersions
rs
forall s a. s -> Getting (First a) s a -> Maybe a
Lens.^? Lens' DescribeClusterVersionsResponse (Maybe [ClusterVersion])
describeClusterVersionsResponse_clusterVersions
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.$ DescribeClusterVersions
rq
forall a b. a -> (a -> b) -> b
Prelude.& Lens' DescribeClusterVersions (Maybe Text)
describeClusterVersions_marker
forall s t a b. ASetter s t a b -> b -> s -> t
Lens..~ AWSResponse DescribeClusterVersions
rs
forall s a. s -> Getting (First a) s a -> Maybe a
Lens.^? Lens' DescribeClusterVersionsResponse (Maybe Text)
describeClusterVersionsResponse_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 DescribeClusterVersions where
type
AWSResponse DescribeClusterVersions =
DescribeClusterVersionsResponse
request :: (Service -> Service)
-> DescribeClusterVersions -> Request DescribeClusterVersions
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 DescribeClusterVersions
-> ClientResponse ClientBody
-> m (Either
Error (ClientResponse (AWSResponse DescribeClusterVersions)))
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
"DescribeClusterVersionsResult"
( \Int
s ResponseHeaders
h [Node]
x ->
Maybe [ClusterVersion]
-> Maybe Text -> Int -> DescribeClusterVersionsResponse
DescribeClusterVersionsResponse'
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
"ClusterVersions"
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
"ClusterVersion")
)
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 DescribeClusterVersions where
hashWithSalt :: Int -> DescribeClusterVersions -> Int
hashWithSalt Int
_salt DescribeClusterVersions' {Maybe Int
Maybe Text
maxRecords :: Maybe Int
marker :: Maybe Text
clusterVersion :: Maybe Text
clusterParameterGroupFamily :: Maybe Text
$sel:maxRecords:DescribeClusterVersions' :: DescribeClusterVersions -> Maybe Int
$sel:marker:DescribeClusterVersions' :: DescribeClusterVersions -> Maybe Text
$sel:clusterVersion:DescribeClusterVersions' :: DescribeClusterVersions -> Maybe Text
$sel:clusterParameterGroupFamily:DescribeClusterVersions' :: DescribeClusterVersions -> Maybe Text
..} =
Int
_salt
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
clusterParameterGroupFamily
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
clusterVersion
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 DescribeClusterVersions where
rnf :: DescribeClusterVersions -> ()
rnf DescribeClusterVersions' {Maybe Int
Maybe Text
maxRecords :: Maybe Int
marker :: Maybe Text
clusterVersion :: Maybe Text
clusterParameterGroupFamily :: Maybe Text
$sel:maxRecords:DescribeClusterVersions' :: DescribeClusterVersions -> Maybe Int
$sel:marker:DescribeClusterVersions' :: DescribeClusterVersions -> Maybe Text
$sel:clusterVersion:DescribeClusterVersions' :: DescribeClusterVersions -> Maybe Text
$sel:clusterParameterGroupFamily:DescribeClusterVersions' :: DescribeClusterVersions -> Maybe Text
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
clusterParameterGroupFamily
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
clusterVersion
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 DescribeClusterVersions where
toHeaders :: DescribeClusterVersions -> ResponseHeaders
toHeaders = forall a b. a -> b -> a
Prelude.const forall a. Monoid a => a
Prelude.mempty
instance Data.ToPath DescribeClusterVersions where
toPath :: DescribeClusterVersions -> ByteString
toPath = forall a b. a -> b -> a
Prelude.const ByteString
"/"
instance Data.ToQuery DescribeClusterVersions where
toQuery :: DescribeClusterVersions -> QueryString
toQuery DescribeClusterVersions' {Maybe Int
Maybe Text
maxRecords :: Maybe Int
marker :: Maybe Text
clusterVersion :: Maybe Text
clusterParameterGroupFamily :: Maybe Text
$sel:maxRecords:DescribeClusterVersions' :: DescribeClusterVersions -> Maybe Int
$sel:marker:DescribeClusterVersions' :: DescribeClusterVersions -> Maybe Text
$sel:clusterVersion:DescribeClusterVersions' :: DescribeClusterVersions -> Maybe Text
$sel:clusterParameterGroupFamily:DescribeClusterVersions' :: DescribeClusterVersions -> Maybe Text
..} =
forall a. Monoid a => [a] -> a
Prelude.mconcat
[ ByteString
"Action"
forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: (ByteString
"DescribeClusterVersions" :: Prelude.ByteString),
ByteString
"Version"
forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: (ByteString
"2012-12-01" :: Prelude.ByteString),
ByteString
"ClusterParameterGroupFamily"
forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: Maybe Text
clusterParameterGroupFamily,
ByteString
"ClusterVersion" forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: Maybe Text
clusterVersion,
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 DescribeClusterVersionsResponse = DescribeClusterVersionsResponse'
{
DescribeClusterVersionsResponse -> Maybe [ClusterVersion]
clusterVersions :: Prelude.Maybe [ClusterVersion],
DescribeClusterVersionsResponse -> Maybe Text
marker :: Prelude.Maybe Prelude.Text,
DescribeClusterVersionsResponse -> Int
httpStatus :: Prelude.Int
}
deriving (DescribeClusterVersionsResponse
-> DescribeClusterVersionsResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: DescribeClusterVersionsResponse
-> DescribeClusterVersionsResponse -> Bool
$c/= :: DescribeClusterVersionsResponse
-> DescribeClusterVersionsResponse -> Bool
== :: DescribeClusterVersionsResponse
-> DescribeClusterVersionsResponse -> Bool
$c== :: DescribeClusterVersionsResponse
-> DescribeClusterVersionsResponse -> Bool
Prelude.Eq, ReadPrec [DescribeClusterVersionsResponse]
ReadPrec DescribeClusterVersionsResponse
Int -> ReadS DescribeClusterVersionsResponse
ReadS [DescribeClusterVersionsResponse]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [DescribeClusterVersionsResponse]
$creadListPrec :: ReadPrec [DescribeClusterVersionsResponse]
readPrec :: ReadPrec DescribeClusterVersionsResponse
$creadPrec :: ReadPrec DescribeClusterVersionsResponse
readList :: ReadS [DescribeClusterVersionsResponse]
$creadList :: ReadS [DescribeClusterVersionsResponse]
readsPrec :: Int -> ReadS DescribeClusterVersionsResponse
$creadsPrec :: Int -> ReadS DescribeClusterVersionsResponse
Prelude.Read, Int -> DescribeClusterVersionsResponse -> ShowS
[DescribeClusterVersionsResponse] -> ShowS
DescribeClusterVersionsResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [DescribeClusterVersionsResponse] -> ShowS
$cshowList :: [DescribeClusterVersionsResponse] -> ShowS
show :: DescribeClusterVersionsResponse -> String
$cshow :: DescribeClusterVersionsResponse -> String
showsPrec :: Int -> DescribeClusterVersionsResponse -> ShowS
$cshowsPrec :: Int -> DescribeClusterVersionsResponse -> ShowS
Prelude.Show, forall x.
Rep DescribeClusterVersionsResponse x
-> DescribeClusterVersionsResponse
forall x.
DescribeClusterVersionsResponse
-> Rep DescribeClusterVersionsResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep DescribeClusterVersionsResponse x
-> DescribeClusterVersionsResponse
$cfrom :: forall x.
DescribeClusterVersionsResponse
-> Rep DescribeClusterVersionsResponse x
Prelude.Generic)
newDescribeClusterVersionsResponse ::
Prelude.Int ->
DescribeClusterVersionsResponse
newDescribeClusterVersionsResponse :: Int -> DescribeClusterVersionsResponse
newDescribeClusterVersionsResponse Int
pHttpStatus_ =
DescribeClusterVersionsResponse'
{ $sel:clusterVersions:DescribeClusterVersionsResponse' :: Maybe [ClusterVersion]
clusterVersions =
forall a. Maybe a
Prelude.Nothing,
$sel:marker:DescribeClusterVersionsResponse' :: Maybe Text
marker = forall a. Maybe a
Prelude.Nothing,
$sel:httpStatus:DescribeClusterVersionsResponse' :: Int
httpStatus = Int
pHttpStatus_
}
describeClusterVersionsResponse_clusterVersions :: Lens.Lens' DescribeClusterVersionsResponse (Prelude.Maybe [ClusterVersion])
describeClusterVersionsResponse_clusterVersions :: Lens' DescribeClusterVersionsResponse (Maybe [ClusterVersion])
describeClusterVersionsResponse_clusterVersions = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeClusterVersionsResponse' {Maybe [ClusterVersion]
clusterVersions :: Maybe [ClusterVersion]
$sel:clusterVersions:DescribeClusterVersionsResponse' :: DescribeClusterVersionsResponse -> Maybe [ClusterVersion]
clusterVersions} -> Maybe [ClusterVersion]
clusterVersions) (\s :: DescribeClusterVersionsResponse
s@DescribeClusterVersionsResponse' {} Maybe [ClusterVersion]
a -> DescribeClusterVersionsResponse
s {$sel:clusterVersions:DescribeClusterVersionsResponse' :: Maybe [ClusterVersion]
clusterVersions = Maybe [ClusterVersion]
a} :: DescribeClusterVersionsResponse) 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
describeClusterVersionsResponse_marker :: Lens.Lens' DescribeClusterVersionsResponse (Prelude.Maybe Prelude.Text)
describeClusterVersionsResponse_marker :: Lens' DescribeClusterVersionsResponse (Maybe Text)
describeClusterVersionsResponse_marker = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeClusterVersionsResponse' {Maybe Text
marker :: Maybe Text
$sel:marker:DescribeClusterVersionsResponse' :: DescribeClusterVersionsResponse -> Maybe Text
marker} -> Maybe Text
marker) (\s :: DescribeClusterVersionsResponse
s@DescribeClusterVersionsResponse' {} Maybe Text
a -> DescribeClusterVersionsResponse
s {$sel:marker:DescribeClusterVersionsResponse' :: Maybe Text
marker = Maybe Text
a} :: DescribeClusterVersionsResponse)
describeClusterVersionsResponse_httpStatus :: Lens.Lens' DescribeClusterVersionsResponse Prelude.Int
describeClusterVersionsResponse_httpStatus :: Lens' DescribeClusterVersionsResponse Int
describeClusterVersionsResponse_httpStatus = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeClusterVersionsResponse' {Int
httpStatus :: Int
$sel:httpStatus:DescribeClusterVersionsResponse' :: DescribeClusterVersionsResponse -> Int
httpStatus} -> Int
httpStatus) (\s :: DescribeClusterVersionsResponse
s@DescribeClusterVersionsResponse' {} Int
a -> DescribeClusterVersionsResponse
s {$sel:httpStatus:DescribeClusterVersionsResponse' :: Int
httpStatus = Int
a} :: DescribeClusterVersionsResponse)
instance
Prelude.NFData
DescribeClusterVersionsResponse
where
rnf :: DescribeClusterVersionsResponse -> ()
rnf DescribeClusterVersionsResponse' {Int
Maybe [ClusterVersion]
Maybe Text
httpStatus :: Int
marker :: Maybe Text
clusterVersions :: Maybe [ClusterVersion]
$sel:httpStatus:DescribeClusterVersionsResponse' :: DescribeClusterVersionsResponse -> Int
$sel:marker:DescribeClusterVersionsResponse' :: DescribeClusterVersionsResponse -> Maybe Text
$sel:clusterVersions:DescribeClusterVersionsResponse' :: DescribeClusterVersionsResponse -> Maybe [ClusterVersion]
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe [ClusterVersion]
clusterVersions
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