{-# 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.SearchTransitGatewayRoutes
(
SearchTransitGatewayRoutes (..),
newSearchTransitGatewayRoutes,
searchTransitGatewayRoutes_dryRun,
searchTransitGatewayRoutes_maxResults,
searchTransitGatewayRoutes_transitGatewayRouteTableId,
searchTransitGatewayRoutes_filters,
SearchTransitGatewayRoutesResponse (..),
newSearchTransitGatewayRoutesResponse,
searchTransitGatewayRoutesResponse_additionalRoutesAvailable,
searchTransitGatewayRoutesResponse_routes,
searchTransitGatewayRoutesResponse_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 SearchTransitGatewayRoutes = SearchTransitGatewayRoutes'
{
SearchTransitGatewayRoutes -> Maybe Bool
dryRun :: Prelude.Maybe Prelude.Bool,
SearchTransitGatewayRoutes -> Maybe Natural
maxResults :: Prelude.Maybe Prelude.Natural,
SearchTransitGatewayRoutes -> Text
transitGatewayRouteTableId :: Prelude.Text,
SearchTransitGatewayRoutes -> [Filter]
filters :: [Filter]
}
deriving (SearchTransitGatewayRoutes -> SearchTransitGatewayRoutes -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: SearchTransitGatewayRoutes -> SearchTransitGatewayRoutes -> Bool
$c/= :: SearchTransitGatewayRoutes -> SearchTransitGatewayRoutes -> Bool
== :: SearchTransitGatewayRoutes -> SearchTransitGatewayRoutes -> Bool
$c== :: SearchTransitGatewayRoutes -> SearchTransitGatewayRoutes -> Bool
Prelude.Eq, ReadPrec [SearchTransitGatewayRoutes]
ReadPrec SearchTransitGatewayRoutes
Int -> ReadS SearchTransitGatewayRoutes
ReadS [SearchTransitGatewayRoutes]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [SearchTransitGatewayRoutes]
$creadListPrec :: ReadPrec [SearchTransitGatewayRoutes]
readPrec :: ReadPrec SearchTransitGatewayRoutes
$creadPrec :: ReadPrec SearchTransitGatewayRoutes
readList :: ReadS [SearchTransitGatewayRoutes]
$creadList :: ReadS [SearchTransitGatewayRoutes]
readsPrec :: Int -> ReadS SearchTransitGatewayRoutes
$creadsPrec :: Int -> ReadS SearchTransitGatewayRoutes
Prelude.Read, Int -> SearchTransitGatewayRoutes -> ShowS
[SearchTransitGatewayRoutes] -> ShowS
SearchTransitGatewayRoutes -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [SearchTransitGatewayRoutes] -> ShowS
$cshowList :: [SearchTransitGatewayRoutes] -> ShowS
show :: SearchTransitGatewayRoutes -> String
$cshow :: SearchTransitGatewayRoutes -> String
showsPrec :: Int -> SearchTransitGatewayRoutes -> ShowS
$cshowsPrec :: Int -> SearchTransitGatewayRoutes -> ShowS
Prelude.Show, forall x.
Rep SearchTransitGatewayRoutes x -> SearchTransitGatewayRoutes
forall x.
SearchTransitGatewayRoutes -> Rep SearchTransitGatewayRoutes x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep SearchTransitGatewayRoutes x -> SearchTransitGatewayRoutes
$cfrom :: forall x.
SearchTransitGatewayRoutes -> Rep SearchTransitGatewayRoutes x
Prelude.Generic)
newSearchTransitGatewayRoutes ::
Prelude.Text ->
SearchTransitGatewayRoutes
newSearchTransitGatewayRoutes :: Text -> SearchTransitGatewayRoutes
newSearchTransitGatewayRoutes
Text
pTransitGatewayRouteTableId_ =
SearchTransitGatewayRoutes'
{ $sel:dryRun:SearchTransitGatewayRoutes' :: Maybe Bool
dryRun =
forall a. Maybe a
Prelude.Nothing,
$sel:maxResults:SearchTransitGatewayRoutes' :: Maybe Natural
maxResults = forall a. Maybe a
Prelude.Nothing,
$sel:transitGatewayRouteTableId:SearchTransitGatewayRoutes' :: Text
transitGatewayRouteTableId =
Text
pTransitGatewayRouteTableId_,
$sel:filters:SearchTransitGatewayRoutes' :: [Filter]
filters = forall a. Monoid a => a
Prelude.mempty
}
searchTransitGatewayRoutes_dryRun :: Lens.Lens' SearchTransitGatewayRoutes (Prelude.Maybe Prelude.Bool)
searchTransitGatewayRoutes_dryRun :: Lens' SearchTransitGatewayRoutes (Maybe Bool)
searchTransitGatewayRoutes_dryRun = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\SearchTransitGatewayRoutes' {Maybe Bool
dryRun :: Maybe Bool
$sel:dryRun:SearchTransitGatewayRoutes' :: SearchTransitGatewayRoutes -> Maybe Bool
dryRun} -> Maybe Bool
dryRun) (\s :: SearchTransitGatewayRoutes
s@SearchTransitGatewayRoutes' {} Maybe Bool
a -> SearchTransitGatewayRoutes
s {$sel:dryRun:SearchTransitGatewayRoutes' :: Maybe Bool
dryRun = Maybe Bool
a} :: SearchTransitGatewayRoutes)
searchTransitGatewayRoutes_maxResults :: Lens.Lens' SearchTransitGatewayRoutes (Prelude.Maybe Prelude.Natural)
searchTransitGatewayRoutes_maxResults :: Lens' SearchTransitGatewayRoutes (Maybe Natural)
searchTransitGatewayRoutes_maxResults = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\SearchTransitGatewayRoutes' {Maybe Natural
maxResults :: Maybe Natural
$sel:maxResults:SearchTransitGatewayRoutes' :: SearchTransitGatewayRoutes -> Maybe Natural
maxResults} -> Maybe Natural
maxResults) (\s :: SearchTransitGatewayRoutes
s@SearchTransitGatewayRoutes' {} Maybe Natural
a -> SearchTransitGatewayRoutes
s {$sel:maxResults:SearchTransitGatewayRoutes' :: Maybe Natural
maxResults = Maybe Natural
a} :: SearchTransitGatewayRoutes)
searchTransitGatewayRoutes_transitGatewayRouteTableId :: Lens.Lens' SearchTransitGatewayRoutes Prelude.Text
searchTransitGatewayRoutes_transitGatewayRouteTableId :: Lens' SearchTransitGatewayRoutes Text
searchTransitGatewayRoutes_transitGatewayRouteTableId = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\SearchTransitGatewayRoutes' {Text
transitGatewayRouteTableId :: Text
$sel:transitGatewayRouteTableId:SearchTransitGatewayRoutes' :: SearchTransitGatewayRoutes -> Text
transitGatewayRouteTableId} -> Text
transitGatewayRouteTableId) (\s :: SearchTransitGatewayRoutes
s@SearchTransitGatewayRoutes' {} Text
a -> SearchTransitGatewayRoutes
s {$sel:transitGatewayRouteTableId:SearchTransitGatewayRoutes' :: Text
transitGatewayRouteTableId = Text
a} :: SearchTransitGatewayRoutes)
searchTransitGatewayRoutes_filters :: Lens.Lens' SearchTransitGatewayRoutes [Filter]
searchTransitGatewayRoutes_filters :: Lens' SearchTransitGatewayRoutes [Filter]
searchTransitGatewayRoutes_filters = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\SearchTransitGatewayRoutes' {[Filter]
filters :: [Filter]
$sel:filters:SearchTransitGatewayRoutes' :: SearchTransitGatewayRoutes -> [Filter]
filters} -> [Filter]
filters) (\s :: SearchTransitGatewayRoutes
s@SearchTransitGatewayRoutes' {} [Filter]
a -> SearchTransitGatewayRoutes
s {$sel:filters:SearchTransitGatewayRoutes' :: [Filter]
filters = [Filter]
a} :: SearchTransitGatewayRoutes) forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. forall s t a b. (Coercible s a, Coercible t b) => Iso s t a b
Lens.coerced
instance Core.AWSRequest SearchTransitGatewayRoutes where
type
AWSResponse SearchTransitGatewayRoutes =
SearchTransitGatewayRoutesResponse
request :: (Service -> Service)
-> SearchTransitGatewayRoutes -> Request SearchTransitGatewayRoutes
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 SearchTransitGatewayRoutes
-> ClientResponse ClientBody
-> m (Either
Error (ClientResponse (AWSResponse SearchTransitGatewayRoutes)))
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 Bool
-> Maybe [TransitGatewayRoute]
-> Int
-> SearchTransitGatewayRoutesResponse
SearchTransitGatewayRoutesResponse'
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
"additionalRoutesAvailable")
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
"routeSet"
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.<*> (forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure (forall a. Enum a => a -> Int
Prelude.fromEnum Int
s))
)
instance Prelude.Hashable SearchTransitGatewayRoutes where
hashWithSalt :: Int -> SearchTransitGatewayRoutes -> Int
hashWithSalt Int
_salt SearchTransitGatewayRoutes' {[Filter]
Maybe Bool
Maybe Natural
Text
filters :: [Filter]
transitGatewayRouteTableId :: Text
maxResults :: Maybe Natural
dryRun :: Maybe Bool
$sel:filters:SearchTransitGatewayRoutes' :: SearchTransitGatewayRoutes -> [Filter]
$sel:transitGatewayRouteTableId:SearchTransitGatewayRoutes' :: SearchTransitGatewayRoutes -> Text
$sel:maxResults:SearchTransitGatewayRoutes' :: SearchTransitGatewayRoutes -> Maybe Natural
$sel:dryRun:SearchTransitGatewayRoutes' :: SearchTransitGatewayRoutes -> 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 Natural
maxResults
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
transitGatewayRouteTableId
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` [Filter]
filters
instance Prelude.NFData SearchTransitGatewayRoutes where
rnf :: SearchTransitGatewayRoutes -> ()
rnf SearchTransitGatewayRoutes' {[Filter]
Maybe Bool
Maybe Natural
Text
filters :: [Filter]
transitGatewayRouteTableId :: Text
maxResults :: Maybe Natural
dryRun :: Maybe Bool
$sel:filters:SearchTransitGatewayRoutes' :: SearchTransitGatewayRoutes -> [Filter]
$sel:transitGatewayRouteTableId:SearchTransitGatewayRoutes' :: SearchTransitGatewayRoutes -> Text
$sel:maxResults:SearchTransitGatewayRoutes' :: SearchTransitGatewayRoutes -> Maybe Natural
$sel:dryRun:SearchTransitGatewayRoutes' :: SearchTransitGatewayRoutes -> 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 Natural
maxResults
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Text
transitGatewayRouteTableId
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf [Filter]
filters
instance Data.ToHeaders SearchTransitGatewayRoutes where
toHeaders :: SearchTransitGatewayRoutes -> ResponseHeaders
toHeaders = forall a b. a -> b -> a
Prelude.const forall a. Monoid a => a
Prelude.mempty
instance Data.ToPath SearchTransitGatewayRoutes where
toPath :: SearchTransitGatewayRoutes -> ByteString
toPath = forall a b. a -> b -> a
Prelude.const ByteString
"/"
instance Data.ToQuery SearchTransitGatewayRoutes where
toQuery :: SearchTransitGatewayRoutes -> QueryString
toQuery SearchTransitGatewayRoutes' {[Filter]
Maybe Bool
Maybe Natural
Text
filters :: [Filter]
transitGatewayRouteTableId :: Text
maxResults :: Maybe Natural
dryRun :: Maybe Bool
$sel:filters:SearchTransitGatewayRoutes' :: SearchTransitGatewayRoutes -> [Filter]
$sel:transitGatewayRouteTableId:SearchTransitGatewayRoutes' :: SearchTransitGatewayRoutes -> Text
$sel:maxResults:SearchTransitGatewayRoutes' :: SearchTransitGatewayRoutes -> Maybe Natural
$sel:dryRun:SearchTransitGatewayRoutes' :: SearchTransitGatewayRoutes -> Maybe Bool
..} =
forall a. Monoid a => [a] -> a
Prelude.mconcat
[ ByteString
"Action"
forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: (ByteString
"SearchTransitGatewayRoutes" :: 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,
ByteString
"MaxResults" forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: Maybe Natural
maxResults,
ByteString
"TransitGatewayRouteTableId"
forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: Text
transitGatewayRouteTableId,
forall a.
(IsList a, ToQuery (Item a)) =>
ByteString -> a -> QueryString
Data.toQueryList ByteString
"Filter" [Filter]
filters
]
data SearchTransitGatewayRoutesResponse = SearchTransitGatewayRoutesResponse'
{
SearchTransitGatewayRoutesResponse -> Maybe Bool
additionalRoutesAvailable :: Prelude.Maybe Prelude.Bool,
SearchTransitGatewayRoutesResponse -> Maybe [TransitGatewayRoute]
routes :: Prelude.Maybe [TransitGatewayRoute],
SearchTransitGatewayRoutesResponse -> Int
httpStatus :: Prelude.Int
}
deriving (SearchTransitGatewayRoutesResponse
-> SearchTransitGatewayRoutesResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: SearchTransitGatewayRoutesResponse
-> SearchTransitGatewayRoutesResponse -> Bool
$c/= :: SearchTransitGatewayRoutesResponse
-> SearchTransitGatewayRoutesResponse -> Bool
== :: SearchTransitGatewayRoutesResponse
-> SearchTransitGatewayRoutesResponse -> Bool
$c== :: SearchTransitGatewayRoutesResponse
-> SearchTransitGatewayRoutesResponse -> Bool
Prelude.Eq, ReadPrec [SearchTransitGatewayRoutesResponse]
ReadPrec SearchTransitGatewayRoutesResponse
Int -> ReadS SearchTransitGatewayRoutesResponse
ReadS [SearchTransitGatewayRoutesResponse]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [SearchTransitGatewayRoutesResponse]
$creadListPrec :: ReadPrec [SearchTransitGatewayRoutesResponse]
readPrec :: ReadPrec SearchTransitGatewayRoutesResponse
$creadPrec :: ReadPrec SearchTransitGatewayRoutesResponse
readList :: ReadS [SearchTransitGatewayRoutesResponse]
$creadList :: ReadS [SearchTransitGatewayRoutesResponse]
readsPrec :: Int -> ReadS SearchTransitGatewayRoutesResponse
$creadsPrec :: Int -> ReadS SearchTransitGatewayRoutesResponse
Prelude.Read, Int -> SearchTransitGatewayRoutesResponse -> ShowS
[SearchTransitGatewayRoutesResponse] -> ShowS
SearchTransitGatewayRoutesResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [SearchTransitGatewayRoutesResponse] -> ShowS
$cshowList :: [SearchTransitGatewayRoutesResponse] -> ShowS
show :: SearchTransitGatewayRoutesResponse -> String
$cshow :: SearchTransitGatewayRoutesResponse -> String
showsPrec :: Int -> SearchTransitGatewayRoutesResponse -> ShowS
$cshowsPrec :: Int -> SearchTransitGatewayRoutesResponse -> ShowS
Prelude.Show, forall x.
Rep SearchTransitGatewayRoutesResponse x
-> SearchTransitGatewayRoutesResponse
forall x.
SearchTransitGatewayRoutesResponse
-> Rep SearchTransitGatewayRoutesResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep SearchTransitGatewayRoutesResponse x
-> SearchTransitGatewayRoutesResponse
$cfrom :: forall x.
SearchTransitGatewayRoutesResponse
-> Rep SearchTransitGatewayRoutesResponse x
Prelude.Generic)
newSearchTransitGatewayRoutesResponse ::
Prelude.Int ->
SearchTransitGatewayRoutesResponse
newSearchTransitGatewayRoutesResponse :: Int -> SearchTransitGatewayRoutesResponse
newSearchTransitGatewayRoutesResponse Int
pHttpStatus_ =
SearchTransitGatewayRoutesResponse'
{ $sel:additionalRoutesAvailable:SearchTransitGatewayRoutesResponse' :: Maybe Bool
additionalRoutesAvailable =
forall a. Maybe a
Prelude.Nothing,
$sel:routes:SearchTransitGatewayRoutesResponse' :: Maybe [TransitGatewayRoute]
routes = forall a. Maybe a
Prelude.Nothing,
$sel:httpStatus:SearchTransitGatewayRoutesResponse' :: Int
httpStatus = Int
pHttpStatus_
}
searchTransitGatewayRoutesResponse_additionalRoutesAvailable :: Lens.Lens' SearchTransitGatewayRoutesResponse (Prelude.Maybe Prelude.Bool)
searchTransitGatewayRoutesResponse_additionalRoutesAvailable :: Lens' SearchTransitGatewayRoutesResponse (Maybe Bool)
searchTransitGatewayRoutesResponse_additionalRoutesAvailable = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\SearchTransitGatewayRoutesResponse' {Maybe Bool
additionalRoutesAvailable :: Maybe Bool
$sel:additionalRoutesAvailable:SearchTransitGatewayRoutesResponse' :: SearchTransitGatewayRoutesResponse -> Maybe Bool
additionalRoutesAvailable} -> Maybe Bool
additionalRoutesAvailable) (\s :: SearchTransitGatewayRoutesResponse
s@SearchTransitGatewayRoutesResponse' {} Maybe Bool
a -> SearchTransitGatewayRoutesResponse
s {$sel:additionalRoutesAvailable:SearchTransitGatewayRoutesResponse' :: Maybe Bool
additionalRoutesAvailable = Maybe Bool
a} :: SearchTransitGatewayRoutesResponse)
searchTransitGatewayRoutesResponse_routes :: Lens.Lens' SearchTransitGatewayRoutesResponse (Prelude.Maybe [TransitGatewayRoute])
searchTransitGatewayRoutesResponse_routes :: Lens'
SearchTransitGatewayRoutesResponse (Maybe [TransitGatewayRoute])
searchTransitGatewayRoutesResponse_routes = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\SearchTransitGatewayRoutesResponse' {Maybe [TransitGatewayRoute]
routes :: Maybe [TransitGatewayRoute]
$sel:routes:SearchTransitGatewayRoutesResponse' :: SearchTransitGatewayRoutesResponse -> Maybe [TransitGatewayRoute]
routes} -> Maybe [TransitGatewayRoute]
routes) (\s :: SearchTransitGatewayRoutesResponse
s@SearchTransitGatewayRoutesResponse' {} Maybe [TransitGatewayRoute]
a -> SearchTransitGatewayRoutesResponse
s {$sel:routes:SearchTransitGatewayRoutesResponse' :: Maybe [TransitGatewayRoute]
routes = Maybe [TransitGatewayRoute]
a} :: SearchTransitGatewayRoutesResponse) 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
searchTransitGatewayRoutesResponse_httpStatus :: Lens.Lens' SearchTransitGatewayRoutesResponse Prelude.Int
searchTransitGatewayRoutesResponse_httpStatus :: Lens' SearchTransitGatewayRoutesResponse Int
searchTransitGatewayRoutesResponse_httpStatus = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\SearchTransitGatewayRoutesResponse' {Int
httpStatus :: Int
$sel:httpStatus:SearchTransitGatewayRoutesResponse' :: SearchTransitGatewayRoutesResponse -> Int
httpStatus} -> Int
httpStatus) (\s :: SearchTransitGatewayRoutesResponse
s@SearchTransitGatewayRoutesResponse' {} Int
a -> SearchTransitGatewayRoutesResponse
s {$sel:httpStatus:SearchTransitGatewayRoutesResponse' :: Int
httpStatus = Int
a} :: SearchTransitGatewayRoutesResponse)
instance
Prelude.NFData
SearchTransitGatewayRoutesResponse
where
rnf :: SearchTransitGatewayRoutesResponse -> ()
rnf SearchTransitGatewayRoutesResponse' {Int
Maybe Bool
Maybe [TransitGatewayRoute]
httpStatus :: Int
routes :: Maybe [TransitGatewayRoute]
additionalRoutesAvailable :: Maybe Bool
$sel:httpStatus:SearchTransitGatewayRoutesResponse' :: SearchTransitGatewayRoutesResponse -> Int
$sel:routes:SearchTransitGatewayRoutesResponse' :: SearchTransitGatewayRoutesResponse -> Maybe [TransitGatewayRoute]
$sel:additionalRoutesAvailable:SearchTransitGatewayRoutesResponse' :: SearchTransitGatewayRoutesResponse -> Maybe Bool
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe Bool
additionalRoutesAvailable
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe [TransitGatewayRoute]
routes
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Int
httpStatus