{-# 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.DescribeCacheSecurityGroups
(
DescribeCacheSecurityGroups (..),
newDescribeCacheSecurityGroups,
describeCacheSecurityGroups_cacheSecurityGroupName,
describeCacheSecurityGroups_marker,
describeCacheSecurityGroups_maxRecords,
DescribeCacheSecurityGroupsResponse (..),
newDescribeCacheSecurityGroupsResponse,
describeCacheSecurityGroupsResponse_cacheSecurityGroups,
describeCacheSecurityGroupsResponse_marker,
describeCacheSecurityGroupsResponse_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 DescribeCacheSecurityGroups = DescribeCacheSecurityGroups'
{
DescribeCacheSecurityGroups -> Maybe Text
cacheSecurityGroupName :: Prelude.Maybe Prelude.Text,
DescribeCacheSecurityGroups -> Maybe Text
marker :: Prelude.Maybe Prelude.Text,
DescribeCacheSecurityGroups -> Maybe Int
maxRecords :: Prelude.Maybe Prelude.Int
}
deriving (DescribeCacheSecurityGroups -> DescribeCacheSecurityGroups -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: DescribeCacheSecurityGroups -> DescribeCacheSecurityGroups -> Bool
$c/= :: DescribeCacheSecurityGroups -> DescribeCacheSecurityGroups -> Bool
== :: DescribeCacheSecurityGroups -> DescribeCacheSecurityGroups -> Bool
$c== :: DescribeCacheSecurityGroups -> DescribeCacheSecurityGroups -> Bool
Prelude.Eq, ReadPrec [DescribeCacheSecurityGroups]
ReadPrec DescribeCacheSecurityGroups
Int -> ReadS DescribeCacheSecurityGroups
ReadS [DescribeCacheSecurityGroups]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [DescribeCacheSecurityGroups]
$creadListPrec :: ReadPrec [DescribeCacheSecurityGroups]
readPrec :: ReadPrec DescribeCacheSecurityGroups
$creadPrec :: ReadPrec DescribeCacheSecurityGroups
readList :: ReadS [DescribeCacheSecurityGroups]
$creadList :: ReadS [DescribeCacheSecurityGroups]
readsPrec :: Int -> ReadS DescribeCacheSecurityGroups
$creadsPrec :: Int -> ReadS DescribeCacheSecurityGroups
Prelude.Read, Int -> DescribeCacheSecurityGroups -> ShowS
[DescribeCacheSecurityGroups] -> ShowS
DescribeCacheSecurityGroups -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [DescribeCacheSecurityGroups] -> ShowS
$cshowList :: [DescribeCacheSecurityGroups] -> ShowS
show :: DescribeCacheSecurityGroups -> String
$cshow :: DescribeCacheSecurityGroups -> String
showsPrec :: Int -> DescribeCacheSecurityGroups -> ShowS
$cshowsPrec :: Int -> DescribeCacheSecurityGroups -> ShowS
Prelude.Show, forall x.
Rep DescribeCacheSecurityGroups x -> DescribeCacheSecurityGroups
forall x.
DescribeCacheSecurityGroups -> Rep DescribeCacheSecurityGroups x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep DescribeCacheSecurityGroups x -> DescribeCacheSecurityGroups
$cfrom :: forall x.
DescribeCacheSecurityGroups -> Rep DescribeCacheSecurityGroups x
Prelude.Generic)
newDescribeCacheSecurityGroups ::
DescribeCacheSecurityGroups
newDescribeCacheSecurityGroups :: DescribeCacheSecurityGroups
newDescribeCacheSecurityGroups =
DescribeCacheSecurityGroups'
{ $sel:cacheSecurityGroupName:DescribeCacheSecurityGroups' :: Maybe Text
cacheSecurityGroupName =
forall a. Maybe a
Prelude.Nothing,
$sel:marker:DescribeCacheSecurityGroups' :: Maybe Text
marker = forall a. Maybe a
Prelude.Nothing,
$sel:maxRecords:DescribeCacheSecurityGroups' :: Maybe Int
maxRecords = forall a. Maybe a
Prelude.Nothing
}
describeCacheSecurityGroups_cacheSecurityGroupName :: Lens.Lens' DescribeCacheSecurityGroups (Prelude.Maybe Prelude.Text)
describeCacheSecurityGroups_cacheSecurityGroupName :: Lens' DescribeCacheSecurityGroups (Maybe Text)
describeCacheSecurityGroups_cacheSecurityGroupName = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeCacheSecurityGroups' {Maybe Text
cacheSecurityGroupName :: Maybe Text
$sel:cacheSecurityGroupName:DescribeCacheSecurityGroups' :: DescribeCacheSecurityGroups -> Maybe Text
cacheSecurityGroupName} -> Maybe Text
cacheSecurityGroupName) (\s :: DescribeCacheSecurityGroups
s@DescribeCacheSecurityGroups' {} Maybe Text
a -> DescribeCacheSecurityGroups
s {$sel:cacheSecurityGroupName:DescribeCacheSecurityGroups' :: Maybe Text
cacheSecurityGroupName = Maybe Text
a} :: DescribeCacheSecurityGroups)
describeCacheSecurityGroups_marker :: Lens.Lens' DescribeCacheSecurityGroups (Prelude.Maybe Prelude.Text)
describeCacheSecurityGroups_marker :: Lens' DescribeCacheSecurityGroups (Maybe Text)
describeCacheSecurityGroups_marker = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeCacheSecurityGroups' {Maybe Text
marker :: Maybe Text
$sel:marker:DescribeCacheSecurityGroups' :: DescribeCacheSecurityGroups -> Maybe Text
marker} -> Maybe Text
marker) (\s :: DescribeCacheSecurityGroups
s@DescribeCacheSecurityGroups' {} Maybe Text
a -> DescribeCacheSecurityGroups
s {$sel:marker:DescribeCacheSecurityGroups' :: Maybe Text
marker = Maybe Text
a} :: DescribeCacheSecurityGroups)
describeCacheSecurityGroups_maxRecords :: Lens.Lens' DescribeCacheSecurityGroups (Prelude.Maybe Prelude.Int)
describeCacheSecurityGroups_maxRecords :: Lens' DescribeCacheSecurityGroups (Maybe Int)
describeCacheSecurityGroups_maxRecords = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeCacheSecurityGroups' {Maybe Int
maxRecords :: Maybe Int
$sel:maxRecords:DescribeCacheSecurityGroups' :: DescribeCacheSecurityGroups -> Maybe Int
maxRecords} -> Maybe Int
maxRecords) (\s :: DescribeCacheSecurityGroups
s@DescribeCacheSecurityGroups' {} Maybe Int
a -> DescribeCacheSecurityGroups
s {$sel:maxRecords:DescribeCacheSecurityGroups' :: Maybe Int
maxRecords = Maybe Int
a} :: DescribeCacheSecurityGroups)
instance Core.AWSPager DescribeCacheSecurityGroups where
page :: DescribeCacheSecurityGroups
-> AWSResponse DescribeCacheSecurityGroups
-> Maybe DescribeCacheSecurityGroups
page DescribeCacheSecurityGroups
rq AWSResponse DescribeCacheSecurityGroups
rs
| forall a. AWSTruncated a => a -> Bool
Core.stop
( AWSResponse DescribeCacheSecurityGroups
rs
forall s a. s -> Getting (First a) s a -> Maybe a
Lens.^? Lens' DescribeCacheSecurityGroupsResponse (Maybe Text)
describeCacheSecurityGroupsResponse_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 DescribeCacheSecurityGroups
rs
forall s a. s -> Getting (First a) s a -> Maybe a
Lens.^? Lens'
DescribeCacheSecurityGroupsResponse (Maybe [CacheSecurityGroup])
describeCacheSecurityGroupsResponse_cacheSecurityGroups
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.$ DescribeCacheSecurityGroups
rq
forall a b. a -> (a -> b) -> b
Prelude.& Lens' DescribeCacheSecurityGroups (Maybe Text)
describeCacheSecurityGroups_marker
forall s t a b. ASetter s t a b -> b -> s -> t
Lens..~ AWSResponse DescribeCacheSecurityGroups
rs
forall s a. s -> Getting (First a) s a -> Maybe a
Lens.^? Lens' DescribeCacheSecurityGroupsResponse (Maybe Text)
describeCacheSecurityGroupsResponse_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 DescribeCacheSecurityGroups where
type
AWSResponse DescribeCacheSecurityGroups =
DescribeCacheSecurityGroupsResponse
request :: (Service -> Service)
-> DescribeCacheSecurityGroups
-> Request DescribeCacheSecurityGroups
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 DescribeCacheSecurityGroups
-> ClientResponse ClientBody
-> m (Either
Error (ClientResponse (AWSResponse DescribeCacheSecurityGroups)))
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
"DescribeCacheSecurityGroupsResult"
( \Int
s ResponseHeaders
h [Node]
x ->
Maybe [CacheSecurityGroup]
-> Maybe Text -> Int -> DescribeCacheSecurityGroupsResponse
DescribeCacheSecurityGroupsResponse'
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
"CacheSecurityGroups"
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
"CacheSecurityGroup")
)
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 DescribeCacheSecurityGroups where
hashWithSalt :: Int -> DescribeCacheSecurityGroups -> Int
hashWithSalt Int
_salt DescribeCacheSecurityGroups' {Maybe Int
Maybe Text
maxRecords :: Maybe Int
marker :: Maybe Text
cacheSecurityGroupName :: Maybe Text
$sel:maxRecords:DescribeCacheSecurityGroups' :: DescribeCacheSecurityGroups -> Maybe Int
$sel:marker:DescribeCacheSecurityGroups' :: DescribeCacheSecurityGroups -> Maybe Text
$sel:cacheSecurityGroupName:DescribeCacheSecurityGroups' :: DescribeCacheSecurityGroups -> Maybe Text
..} =
Int
_salt
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
cacheSecurityGroupName
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 DescribeCacheSecurityGroups where
rnf :: DescribeCacheSecurityGroups -> ()
rnf DescribeCacheSecurityGroups' {Maybe Int
Maybe Text
maxRecords :: Maybe Int
marker :: Maybe Text
cacheSecurityGroupName :: Maybe Text
$sel:maxRecords:DescribeCacheSecurityGroups' :: DescribeCacheSecurityGroups -> Maybe Int
$sel:marker:DescribeCacheSecurityGroups' :: DescribeCacheSecurityGroups -> Maybe Text
$sel:cacheSecurityGroupName:DescribeCacheSecurityGroups' :: DescribeCacheSecurityGroups -> Maybe Text
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
cacheSecurityGroupName
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 DescribeCacheSecurityGroups where
toHeaders :: DescribeCacheSecurityGroups -> ResponseHeaders
toHeaders = forall a b. a -> b -> a
Prelude.const forall a. Monoid a => a
Prelude.mempty
instance Data.ToPath DescribeCacheSecurityGroups where
toPath :: DescribeCacheSecurityGroups -> ByteString
toPath = forall a b. a -> b -> a
Prelude.const ByteString
"/"
instance Data.ToQuery DescribeCacheSecurityGroups where
toQuery :: DescribeCacheSecurityGroups -> QueryString
toQuery DescribeCacheSecurityGroups' {Maybe Int
Maybe Text
maxRecords :: Maybe Int
marker :: Maybe Text
cacheSecurityGroupName :: Maybe Text
$sel:maxRecords:DescribeCacheSecurityGroups' :: DescribeCacheSecurityGroups -> Maybe Int
$sel:marker:DescribeCacheSecurityGroups' :: DescribeCacheSecurityGroups -> Maybe Text
$sel:cacheSecurityGroupName:DescribeCacheSecurityGroups' :: DescribeCacheSecurityGroups -> Maybe Text
..} =
forall a. Monoid a => [a] -> a
Prelude.mconcat
[ ByteString
"Action"
forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: ( ByteString
"DescribeCacheSecurityGroups" ::
Prelude.ByteString
),
ByteString
"Version"
forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: (ByteString
"2015-02-02" :: Prelude.ByteString),
ByteString
"CacheSecurityGroupName"
forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: Maybe Text
cacheSecurityGroupName,
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 DescribeCacheSecurityGroupsResponse = DescribeCacheSecurityGroupsResponse'
{
DescribeCacheSecurityGroupsResponse -> Maybe [CacheSecurityGroup]
cacheSecurityGroups :: Prelude.Maybe [CacheSecurityGroup],
DescribeCacheSecurityGroupsResponse -> Maybe Text
marker :: Prelude.Maybe Prelude.Text,
DescribeCacheSecurityGroupsResponse -> Int
httpStatus :: Prelude.Int
}
deriving (DescribeCacheSecurityGroupsResponse
-> DescribeCacheSecurityGroupsResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: DescribeCacheSecurityGroupsResponse
-> DescribeCacheSecurityGroupsResponse -> Bool
$c/= :: DescribeCacheSecurityGroupsResponse
-> DescribeCacheSecurityGroupsResponse -> Bool
== :: DescribeCacheSecurityGroupsResponse
-> DescribeCacheSecurityGroupsResponse -> Bool
$c== :: DescribeCacheSecurityGroupsResponse
-> DescribeCacheSecurityGroupsResponse -> Bool
Prelude.Eq, ReadPrec [DescribeCacheSecurityGroupsResponse]
ReadPrec DescribeCacheSecurityGroupsResponse
Int -> ReadS DescribeCacheSecurityGroupsResponse
ReadS [DescribeCacheSecurityGroupsResponse]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [DescribeCacheSecurityGroupsResponse]
$creadListPrec :: ReadPrec [DescribeCacheSecurityGroupsResponse]
readPrec :: ReadPrec DescribeCacheSecurityGroupsResponse
$creadPrec :: ReadPrec DescribeCacheSecurityGroupsResponse
readList :: ReadS [DescribeCacheSecurityGroupsResponse]
$creadList :: ReadS [DescribeCacheSecurityGroupsResponse]
readsPrec :: Int -> ReadS DescribeCacheSecurityGroupsResponse
$creadsPrec :: Int -> ReadS DescribeCacheSecurityGroupsResponse
Prelude.Read, Int -> DescribeCacheSecurityGroupsResponse -> ShowS
[DescribeCacheSecurityGroupsResponse] -> ShowS
DescribeCacheSecurityGroupsResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [DescribeCacheSecurityGroupsResponse] -> ShowS
$cshowList :: [DescribeCacheSecurityGroupsResponse] -> ShowS
show :: DescribeCacheSecurityGroupsResponse -> String
$cshow :: DescribeCacheSecurityGroupsResponse -> String
showsPrec :: Int -> DescribeCacheSecurityGroupsResponse -> ShowS
$cshowsPrec :: Int -> DescribeCacheSecurityGroupsResponse -> ShowS
Prelude.Show, forall x.
Rep DescribeCacheSecurityGroupsResponse x
-> DescribeCacheSecurityGroupsResponse
forall x.
DescribeCacheSecurityGroupsResponse
-> Rep DescribeCacheSecurityGroupsResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep DescribeCacheSecurityGroupsResponse x
-> DescribeCacheSecurityGroupsResponse
$cfrom :: forall x.
DescribeCacheSecurityGroupsResponse
-> Rep DescribeCacheSecurityGroupsResponse x
Prelude.Generic)
newDescribeCacheSecurityGroupsResponse ::
Prelude.Int ->
DescribeCacheSecurityGroupsResponse
newDescribeCacheSecurityGroupsResponse :: Int -> DescribeCacheSecurityGroupsResponse
newDescribeCacheSecurityGroupsResponse Int
pHttpStatus_ =
DescribeCacheSecurityGroupsResponse'
{ $sel:cacheSecurityGroups:DescribeCacheSecurityGroupsResponse' :: Maybe [CacheSecurityGroup]
cacheSecurityGroups =
forall a. Maybe a
Prelude.Nothing,
$sel:marker:DescribeCacheSecurityGroupsResponse' :: Maybe Text
marker = forall a. Maybe a
Prelude.Nothing,
$sel:httpStatus:DescribeCacheSecurityGroupsResponse' :: Int
httpStatus = Int
pHttpStatus_
}
describeCacheSecurityGroupsResponse_cacheSecurityGroups :: Lens.Lens' DescribeCacheSecurityGroupsResponse (Prelude.Maybe [CacheSecurityGroup])
describeCacheSecurityGroupsResponse_cacheSecurityGroups :: Lens'
DescribeCacheSecurityGroupsResponse (Maybe [CacheSecurityGroup])
describeCacheSecurityGroupsResponse_cacheSecurityGroups = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeCacheSecurityGroupsResponse' {Maybe [CacheSecurityGroup]
cacheSecurityGroups :: Maybe [CacheSecurityGroup]
$sel:cacheSecurityGroups:DescribeCacheSecurityGroupsResponse' :: DescribeCacheSecurityGroupsResponse -> Maybe [CacheSecurityGroup]
cacheSecurityGroups} -> Maybe [CacheSecurityGroup]
cacheSecurityGroups) (\s :: DescribeCacheSecurityGroupsResponse
s@DescribeCacheSecurityGroupsResponse' {} Maybe [CacheSecurityGroup]
a -> DescribeCacheSecurityGroupsResponse
s {$sel:cacheSecurityGroups:DescribeCacheSecurityGroupsResponse' :: Maybe [CacheSecurityGroup]
cacheSecurityGroups = Maybe [CacheSecurityGroup]
a} :: DescribeCacheSecurityGroupsResponse) 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
describeCacheSecurityGroupsResponse_marker :: Lens.Lens' DescribeCacheSecurityGroupsResponse (Prelude.Maybe Prelude.Text)
describeCacheSecurityGroupsResponse_marker :: Lens' DescribeCacheSecurityGroupsResponse (Maybe Text)
describeCacheSecurityGroupsResponse_marker = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeCacheSecurityGroupsResponse' {Maybe Text
marker :: Maybe Text
$sel:marker:DescribeCacheSecurityGroupsResponse' :: DescribeCacheSecurityGroupsResponse -> Maybe Text
marker} -> Maybe Text
marker) (\s :: DescribeCacheSecurityGroupsResponse
s@DescribeCacheSecurityGroupsResponse' {} Maybe Text
a -> DescribeCacheSecurityGroupsResponse
s {$sel:marker:DescribeCacheSecurityGroupsResponse' :: Maybe Text
marker = Maybe Text
a} :: DescribeCacheSecurityGroupsResponse)
describeCacheSecurityGroupsResponse_httpStatus :: Lens.Lens' DescribeCacheSecurityGroupsResponse Prelude.Int
describeCacheSecurityGroupsResponse_httpStatus :: Lens' DescribeCacheSecurityGroupsResponse Int
describeCacheSecurityGroupsResponse_httpStatus = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeCacheSecurityGroupsResponse' {Int
httpStatus :: Int
$sel:httpStatus:DescribeCacheSecurityGroupsResponse' :: DescribeCacheSecurityGroupsResponse -> Int
httpStatus} -> Int
httpStatus) (\s :: DescribeCacheSecurityGroupsResponse
s@DescribeCacheSecurityGroupsResponse' {} Int
a -> DescribeCacheSecurityGroupsResponse
s {$sel:httpStatus:DescribeCacheSecurityGroupsResponse' :: Int
httpStatus = Int
a} :: DescribeCacheSecurityGroupsResponse)
instance
Prelude.NFData
DescribeCacheSecurityGroupsResponse
where
rnf :: DescribeCacheSecurityGroupsResponse -> ()
rnf DescribeCacheSecurityGroupsResponse' {Int
Maybe [CacheSecurityGroup]
Maybe Text
httpStatus :: Int
marker :: Maybe Text
cacheSecurityGroups :: Maybe [CacheSecurityGroup]
$sel:httpStatus:DescribeCacheSecurityGroupsResponse' :: DescribeCacheSecurityGroupsResponse -> Int
$sel:marker:DescribeCacheSecurityGroupsResponse' :: DescribeCacheSecurityGroupsResponse -> Maybe Text
$sel:cacheSecurityGroups:DescribeCacheSecurityGroupsResponse' :: DescribeCacheSecurityGroupsResponse -> Maybe [CacheSecurityGroup]
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe [CacheSecurityGroup]
cacheSecurityGroups
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