{-# 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.EC2.DescribeNatGateways
(
DescribeNatGateways (..),
newDescribeNatGateways,
describeNatGateways_dryRun,
describeNatGateways_filter,
describeNatGateways_maxResults,
describeNatGateways_natGatewayIds,
describeNatGateways_nextToken,
DescribeNatGatewaysResponse (..),
newDescribeNatGatewaysResponse,
describeNatGatewaysResponse_natGateways,
describeNatGatewaysResponse_nextToken,
describeNatGatewaysResponse_httpStatus,
)
where
import qualified Amazonka.Core as Core
import qualified Amazonka.Core.Lens.Internal as Lens
import qualified Amazonka.Data as Data
import Amazonka.EC2.Types
import qualified Amazonka.Prelude as Prelude
import qualified Amazonka.Request as Request
import qualified Amazonka.Response as Response
data DescribeNatGateways = DescribeNatGateways'
{
DescribeNatGateways -> Maybe Bool
dryRun :: Prelude.Maybe Prelude.Bool,
DescribeNatGateways -> Maybe [Filter]
filter' :: Prelude.Maybe [Filter],
DescribeNatGateways -> Maybe Natural
maxResults :: Prelude.Maybe Prelude.Natural,
DescribeNatGateways -> Maybe [Text]
natGatewayIds :: Prelude.Maybe [Prelude.Text],
DescribeNatGateways -> Maybe Text
nextToken :: Prelude.Maybe Prelude.Text
}
deriving (DescribeNatGateways -> DescribeNatGateways -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: DescribeNatGateways -> DescribeNatGateways -> Bool
$c/= :: DescribeNatGateways -> DescribeNatGateways -> Bool
== :: DescribeNatGateways -> DescribeNatGateways -> Bool
$c== :: DescribeNatGateways -> DescribeNatGateways -> Bool
Prelude.Eq, ReadPrec [DescribeNatGateways]
ReadPrec DescribeNatGateways
Int -> ReadS DescribeNatGateways
ReadS [DescribeNatGateways]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [DescribeNatGateways]
$creadListPrec :: ReadPrec [DescribeNatGateways]
readPrec :: ReadPrec DescribeNatGateways
$creadPrec :: ReadPrec DescribeNatGateways
readList :: ReadS [DescribeNatGateways]
$creadList :: ReadS [DescribeNatGateways]
readsPrec :: Int -> ReadS DescribeNatGateways
$creadsPrec :: Int -> ReadS DescribeNatGateways
Prelude.Read, Int -> DescribeNatGateways -> ShowS
[DescribeNatGateways] -> ShowS
DescribeNatGateways -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [DescribeNatGateways] -> ShowS
$cshowList :: [DescribeNatGateways] -> ShowS
show :: DescribeNatGateways -> String
$cshow :: DescribeNatGateways -> String
showsPrec :: Int -> DescribeNatGateways -> ShowS
$cshowsPrec :: Int -> DescribeNatGateways -> ShowS
Prelude.Show, forall x. Rep DescribeNatGateways x -> DescribeNatGateways
forall x. DescribeNatGateways -> Rep DescribeNatGateways x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep DescribeNatGateways x -> DescribeNatGateways
$cfrom :: forall x. DescribeNatGateways -> Rep DescribeNatGateways x
Prelude.Generic)
newDescribeNatGateways ::
DescribeNatGateways
newDescribeNatGateways :: DescribeNatGateways
newDescribeNatGateways =
DescribeNatGateways'
{ $sel:dryRun:DescribeNatGateways' :: Maybe Bool
dryRun = forall a. Maybe a
Prelude.Nothing,
$sel:filter':DescribeNatGateways' :: Maybe [Filter]
filter' = forall a. Maybe a
Prelude.Nothing,
$sel:maxResults:DescribeNatGateways' :: Maybe Natural
maxResults = forall a. Maybe a
Prelude.Nothing,
$sel:natGatewayIds:DescribeNatGateways' :: Maybe [Text]
natGatewayIds = forall a. Maybe a
Prelude.Nothing,
$sel:nextToken:DescribeNatGateways' :: Maybe Text
nextToken = forall a. Maybe a
Prelude.Nothing
}
describeNatGateways_dryRun :: Lens.Lens' DescribeNatGateways (Prelude.Maybe Prelude.Bool)
describeNatGateways_dryRun :: Lens' DescribeNatGateways (Maybe Bool)
describeNatGateways_dryRun = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeNatGateways' {Maybe Bool
dryRun :: Maybe Bool
$sel:dryRun:DescribeNatGateways' :: DescribeNatGateways -> Maybe Bool
dryRun} -> Maybe Bool
dryRun) (\s :: DescribeNatGateways
s@DescribeNatGateways' {} Maybe Bool
a -> DescribeNatGateways
s {$sel:dryRun:DescribeNatGateways' :: Maybe Bool
dryRun = Maybe Bool
a} :: DescribeNatGateways)
describeNatGateways_filter :: Lens.Lens' DescribeNatGateways (Prelude.Maybe [Filter])
describeNatGateways_filter :: Lens' DescribeNatGateways (Maybe [Filter])
describeNatGateways_filter = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeNatGateways' {Maybe [Filter]
filter' :: Maybe [Filter]
$sel:filter':DescribeNatGateways' :: DescribeNatGateways -> Maybe [Filter]
filter'} -> Maybe [Filter]
filter') (\s :: DescribeNatGateways
s@DescribeNatGateways' {} Maybe [Filter]
a -> DescribeNatGateways
s {$sel:filter':DescribeNatGateways' :: Maybe [Filter]
filter' = Maybe [Filter]
a} :: DescribeNatGateways) 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
describeNatGateways_maxResults :: Lens.Lens' DescribeNatGateways (Prelude.Maybe Prelude.Natural)
describeNatGateways_maxResults :: Lens' DescribeNatGateways (Maybe Natural)
describeNatGateways_maxResults = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeNatGateways' {Maybe Natural
maxResults :: Maybe Natural
$sel:maxResults:DescribeNatGateways' :: DescribeNatGateways -> Maybe Natural
maxResults} -> Maybe Natural
maxResults) (\s :: DescribeNatGateways
s@DescribeNatGateways' {} Maybe Natural
a -> DescribeNatGateways
s {$sel:maxResults:DescribeNatGateways' :: Maybe Natural
maxResults = Maybe Natural
a} :: DescribeNatGateways)
describeNatGateways_natGatewayIds :: Lens.Lens' DescribeNatGateways (Prelude.Maybe [Prelude.Text])
describeNatGateways_natGatewayIds :: Lens' DescribeNatGateways (Maybe [Text])
describeNatGateways_natGatewayIds = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeNatGateways' {Maybe [Text]
natGatewayIds :: Maybe [Text]
$sel:natGatewayIds:DescribeNatGateways' :: DescribeNatGateways -> Maybe [Text]
natGatewayIds} -> Maybe [Text]
natGatewayIds) (\s :: DescribeNatGateways
s@DescribeNatGateways' {} Maybe [Text]
a -> DescribeNatGateways
s {$sel:natGatewayIds:DescribeNatGateways' :: Maybe [Text]
natGatewayIds = Maybe [Text]
a} :: DescribeNatGateways) 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
describeNatGateways_nextToken :: Lens.Lens' DescribeNatGateways (Prelude.Maybe Prelude.Text)
describeNatGateways_nextToken :: Lens' DescribeNatGateways (Maybe Text)
describeNatGateways_nextToken = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeNatGateways' {Maybe Text
nextToken :: Maybe Text
$sel:nextToken:DescribeNatGateways' :: DescribeNatGateways -> Maybe Text
nextToken} -> Maybe Text
nextToken) (\s :: DescribeNatGateways
s@DescribeNatGateways' {} Maybe Text
a -> DescribeNatGateways
s {$sel:nextToken:DescribeNatGateways' :: Maybe Text
nextToken = Maybe Text
a} :: DescribeNatGateways)
instance Core.AWSPager DescribeNatGateways where
page :: DescribeNatGateways
-> AWSResponse DescribeNatGateways -> Maybe DescribeNatGateways
page DescribeNatGateways
rq AWSResponse DescribeNatGateways
rs
| forall a. AWSTruncated a => a -> Bool
Core.stop
( AWSResponse DescribeNatGateways
rs
forall s a. s -> Getting (First a) s a -> Maybe a
Lens.^? Lens' DescribeNatGatewaysResponse (Maybe Text)
describeNatGatewaysResponse_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 DescribeNatGateways
rs
forall s a. s -> Getting (First a) s a -> Maybe a
Lens.^? Lens' DescribeNatGatewaysResponse (Maybe [NatGateway])
describeNatGatewaysResponse_natGateways
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.$ DescribeNatGateways
rq
forall a b. a -> (a -> b) -> b
Prelude.& Lens' DescribeNatGateways (Maybe Text)
describeNatGateways_nextToken
forall s t a b. ASetter s t a b -> b -> s -> t
Lens..~ AWSResponse DescribeNatGateways
rs
forall s a. s -> Getting (First a) s a -> Maybe a
Lens.^? Lens' DescribeNatGatewaysResponse (Maybe Text)
describeNatGatewaysResponse_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 DescribeNatGateways where
type
AWSResponse DescribeNatGateways =
DescribeNatGatewaysResponse
request :: (Service -> Service)
-> DescribeNatGateways -> Request DescribeNatGateways
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 DescribeNatGateways
-> ClientResponse ClientBody
-> m (Either
Error (ClientResponse (AWSResponse DescribeNatGateways)))
response =
forall (m :: * -> *) a.
MonadResource m =>
(Int -> ResponseHeaders -> [Node] -> Either String (AWSResponse a))
-> (ByteStringLazy -> IO ByteStringLazy)
-> Service
-> Proxy a
-> ClientResponse ClientBody
-> m (Either Error (ClientResponse (AWSResponse a)))
Response.receiveXML
( \Int
s ResponseHeaders
h [Node]
x ->
Maybe [NatGateway]
-> Maybe Text -> Int -> DescribeNatGatewaysResponse
DescribeNatGatewaysResponse'
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
"natGatewaySet"
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
"item")
)
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
"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 DescribeNatGateways where
hashWithSalt :: Int -> DescribeNatGateways -> Int
hashWithSalt Int
_salt DescribeNatGateways' {Maybe Bool
Maybe Natural
Maybe [Text]
Maybe [Filter]
Maybe Text
nextToken :: Maybe Text
natGatewayIds :: Maybe [Text]
maxResults :: Maybe Natural
filter' :: Maybe [Filter]
dryRun :: Maybe Bool
$sel:nextToken:DescribeNatGateways' :: DescribeNatGateways -> Maybe Text
$sel:natGatewayIds:DescribeNatGateways' :: DescribeNatGateways -> Maybe [Text]
$sel:maxResults:DescribeNatGateways' :: DescribeNatGateways -> Maybe Natural
$sel:filter':DescribeNatGateways' :: DescribeNatGateways -> Maybe [Filter]
$sel:dryRun:DescribeNatGateways' :: DescribeNatGateways -> Maybe Bool
..} =
Int
_salt
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Bool
dryRun
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe [Filter]
filter'
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Natural
maxResults
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe [Text]
natGatewayIds
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
nextToken
instance Prelude.NFData DescribeNatGateways where
rnf :: DescribeNatGateways -> ()
rnf DescribeNatGateways' {Maybe Bool
Maybe Natural
Maybe [Text]
Maybe [Filter]
Maybe Text
nextToken :: Maybe Text
natGatewayIds :: Maybe [Text]
maxResults :: Maybe Natural
filter' :: Maybe [Filter]
dryRun :: Maybe Bool
$sel:nextToken:DescribeNatGateways' :: DescribeNatGateways -> Maybe Text
$sel:natGatewayIds:DescribeNatGateways' :: DescribeNatGateways -> Maybe [Text]
$sel:maxResults:DescribeNatGateways' :: DescribeNatGateways -> Maybe Natural
$sel:filter':DescribeNatGateways' :: DescribeNatGateways -> Maybe [Filter]
$sel:dryRun:DescribeNatGateways' :: DescribeNatGateways -> Maybe Bool
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe Bool
dryRun
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe [Filter]
filter'
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Natural
maxResults
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe [Text]
natGatewayIds
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
nextToken
instance Data.ToHeaders DescribeNatGateways where
toHeaders :: DescribeNatGateways -> ResponseHeaders
toHeaders = forall a b. a -> b -> a
Prelude.const forall a. Monoid a => a
Prelude.mempty
instance Data.ToPath DescribeNatGateways where
toPath :: DescribeNatGateways -> ByteString
toPath = forall a b. a -> b -> a
Prelude.const ByteString
"/"
instance Data.ToQuery DescribeNatGateways where
toQuery :: DescribeNatGateways -> QueryString
toQuery DescribeNatGateways' {Maybe Bool
Maybe Natural
Maybe [Text]
Maybe [Filter]
Maybe Text
nextToken :: Maybe Text
natGatewayIds :: Maybe [Text]
maxResults :: Maybe Natural
filter' :: Maybe [Filter]
dryRun :: Maybe Bool
$sel:nextToken:DescribeNatGateways' :: DescribeNatGateways -> Maybe Text
$sel:natGatewayIds:DescribeNatGateways' :: DescribeNatGateways -> Maybe [Text]
$sel:maxResults:DescribeNatGateways' :: DescribeNatGateways -> Maybe Natural
$sel:filter':DescribeNatGateways' :: DescribeNatGateways -> Maybe [Filter]
$sel:dryRun:DescribeNatGateways' :: DescribeNatGateways -> Maybe Bool
..} =
forall a. Monoid a => [a] -> a
Prelude.mconcat
[ ByteString
"Action"
forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: (ByteString
"DescribeNatGateways" :: Prelude.ByteString),
ByteString
"Version"
forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: (ByteString
"2016-11-15" :: Prelude.ByteString),
ByteString
"DryRun" forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: Maybe Bool
dryRun,
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]
filter'),
ByteString
"MaxResults" forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: Maybe Natural
maxResults,
forall a. ToQuery a => a -> QueryString
Data.toQuery
( forall a.
(IsList a, ToQuery (Item a)) =>
ByteString -> a -> QueryString
Data.toQueryList ByteString
"NatGatewayId"
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe [Text]
natGatewayIds
),
ByteString
"NextToken" forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: Maybe Text
nextToken
]
data DescribeNatGatewaysResponse = DescribeNatGatewaysResponse'
{
DescribeNatGatewaysResponse -> Maybe [NatGateway]
natGateways :: Prelude.Maybe [NatGateway],
DescribeNatGatewaysResponse -> Maybe Text
nextToken :: Prelude.Maybe Prelude.Text,
DescribeNatGatewaysResponse -> Int
httpStatus :: Prelude.Int
}
deriving (DescribeNatGatewaysResponse -> DescribeNatGatewaysResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: DescribeNatGatewaysResponse -> DescribeNatGatewaysResponse -> Bool
$c/= :: DescribeNatGatewaysResponse -> DescribeNatGatewaysResponse -> Bool
== :: DescribeNatGatewaysResponse -> DescribeNatGatewaysResponse -> Bool
$c== :: DescribeNatGatewaysResponse -> DescribeNatGatewaysResponse -> Bool
Prelude.Eq, ReadPrec [DescribeNatGatewaysResponse]
ReadPrec DescribeNatGatewaysResponse
Int -> ReadS DescribeNatGatewaysResponse
ReadS [DescribeNatGatewaysResponse]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [DescribeNatGatewaysResponse]
$creadListPrec :: ReadPrec [DescribeNatGatewaysResponse]
readPrec :: ReadPrec DescribeNatGatewaysResponse
$creadPrec :: ReadPrec DescribeNatGatewaysResponse
readList :: ReadS [DescribeNatGatewaysResponse]
$creadList :: ReadS [DescribeNatGatewaysResponse]
readsPrec :: Int -> ReadS DescribeNatGatewaysResponse
$creadsPrec :: Int -> ReadS DescribeNatGatewaysResponse
Prelude.Read, Int -> DescribeNatGatewaysResponse -> ShowS
[DescribeNatGatewaysResponse] -> ShowS
DescribeNatGatewaysResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [DescribeNatGatewaysResponse] -> ShowS
$cshowList :: [DescribeNatGatewaysResponse] -> ShowS
show :: DescribeNatGatewaysResponse -> String
$cshow :: DescribeNatGatewaysResponse -> String
showsPrec :: Int -> DescribeNatGatewaysResponse -> ShowS
$cshowsPrec :: Int -> DescribeNatGatewaysResponse -> ShowS
Prelude.Show, forall x.
Rep DescribeNatGatewaysResponse x -> DescribeNatGatewaysResponse
forall x.
DescribeNatGatewaysResponse -> Rep DescribeNatGatewaysResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep DescribeNatGatewaysResponse x -> DescribeNatGatewaysResponse
$cfrom :: forall x.
DescribeNatGatewaysResponse -> Rep DescribeNatGatewaysResponse x
Prelude.Generic)
newDescribeNatGatewaysResponse ::
Prelude.Int ->
DescribeNatGatewaysResponse
newDescribeNatGatewaysResponse :: Int -> DescribeNatGatewaysResponse
newDescribeNatGatewaysResponse Int
pHttpStatus_ =
DescribeNatGatewaysResponse'
{ $sel:natGateways:DescribeNatGatewaysResponse' :: Maybe [NatGateway]
natGateways =
forall a. Maybe a
Prelude.Nothing,
$sel:nextToken:DescribeNatGatewaysResponse' :: Maybe Text
nextToken = forall a. Maybe a
Prelude.Nothing,
$sel:httpStatus:DescribeNatGatewaysResponse' :: Int
httpStatus = Int
pHttpStatus_
}
describeNatGatewaysResponse_natGateways :: Lens.Lens' DescribeNatGatewaysResponse (Prelude.Maybe [NatGateway])
describeNatGatewaysResponse_natGateways :: Lens' DescribeNatGatewaysResponse (Maybe [NatGateway])
describeNatGatewaysResponse_natGateways = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeNatGatewaysResponse' {Maybe [NatGateway]
natGateways :: Maybe [NatGateway]
$sel:natGateways:DescribeNatGatewaysResponse' :: DescribeNatGatewaysResponse -> Maybe [NatGateway]
natGateways} -> Maybe [NatGateway]
natGateways) (\s :: DescribeNatGatewaysResponse
s@DescribeNatGatewaysResponse' {} Maybe [NatGateway]
a -> DescribeNatGatewaysResponse
s {$sel:natGateways:DescribeNatGatewaysResponse' :: Maybe [NatGateway]
natGateways = Maybe [NatGateway]
a} :: DescribeNatGatewaysResponse) 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
describeNatGatewaysResponse_nextToken :: Lens.Lens' DescribeNatGatewaysResponse (Prelude.Maybe Prelude.Text)
describeNatGatewaysResponse_nextToken :: Lens' DescribeNatGatewaysResponse (Maybe Text)
describeNatGatewaysResponse_nextToken = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeNatGatewaysResponse' {Maybe Text
nextToken :: Maybe Text
$sel:nextToken:DescribeNatGatewaysResponse' :: DescribeNatGatewaysResponse -> Maybe Text
nextToken} -> Maybe Text
nextToken) (\s :: DescribeNatGatewaysResponse
s@DescribeNatGatewaysResponse' {} Maybe Text
a -> DescribeNatGatewaysResponse
s {$sel:nextToken:DescribeNatGatewaysResponse' :: Maybe Text
nextToken = Maybe Text
a} :: DescribeNatGatewaysResponse)
describeNatGatewaysResponse_httpStatus :: Lens.Lens' DescribeNatGatewaysResponse Prelude.Int
describeNatGatewaysResponse_httpStatus :: Lens' DescribeNatGatewaysResponse Int
describeNatGatewaysResponse_httpStatus = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeNatGatewaysResponse' {Int
httpStatus :: Int
$sel:httpStatus:DescribeNatGatewaysResponse' :: DescribeNatGatewaysResponse -> Int
httpStatus} -> Int
httpStatus) (\s :: DescribeNatGatewaysResponse
s@DescribeNatGatewaysResponse' {} Int
a -> DescribeNatGatewaysResponse
s {$sel:httpStatus:DescribeNatGatewaysResponse' :: Int
httpStatus = Int
a} :: DescribeNatGatewaysResponse)
instance Prelude.NFData DescribeNatGatewaysResponse where
rnf :: DescribeNatGatewaysResponse -> ()
rnf DescribeNatGatewaysResponse' {Int
Maybe [NatGateway]
Maybe Text
httpStatus :: Int
nextToken :: Maybe Text
natGateways :: Maybe [NatGateway]
$sel:httpStatus:DescribeNatGatewaysResponse' :: DescribeNatGatewaysResponse -> Int
$sel:nextToken:DescribeNatGatewaysResponse' :: DescribeNatGatewaysResponse -> Maybe Text
$sel:natGateways:DescribeNatGatewaysResponse' :: DescribeNatGatewaysResponse -> Maybe [NatGateway]
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe [NatGateway]
natGateways
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