{-# 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.NetworkManager.GetTransitGatewayPeering
(
GetTransitGatewayPeering (..),
newGetTransitGatewayPeering,
getTransitGatewayPeering_peeringId,
GetTransitGatewayPeeringResponse (..),
newGetTransitGatewayPeeringResponse,
getTransitGatewayPeeringResponse_transitGatewayPeering,
getTransitGatewayPeeringResponse_httpStatus,
)
where
import qualified Amazonka.Core as Core
import qualified Amazonka.Core.Lens.Internal as Lens
import qualified Amazonka.Data as Data
import Amazonka.NetworkManager.Types
import qualified Amazonka.Prelude as Prelude
import qualified Amazonka.Request as Request
import qualified Amazonka.Response as Response
data GetTransitGatewayPeering = GetTransitGatewayPeering'
{
GetTransitGatewayPeering -> Text
peeringId :: Prelude.Text
}
deriving (GetTransitGatewayPeering -> GetTransitGatewayPeering -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: GetTransitGatewayPeering -> GetTransitGatewayPeering -> Bool
$c/= :: GetTransitGatewayPeering -> GetTransitGatewayPeering -> Bool
== :: GetTransitGatewayPeering -> GetTransitGatewayPeering -> Bool
$c== :: GetTransitGatewayPeering -> GetTransitGatewayPeering -> Bool
Prelude.Eq, ReadPrec [GetTransitGatewayPeering]
ReadPrec GetTransitGatewayPeering
Int -> ReadS GetTransitGatewayPeering
ReadS [GetTransitGatewayPeering]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [GetTransitGatewayPeering]
$creadListPrec :: ReadPrec [GetTransitGatewayPeering]
readPrec :: ReadPrec GetTransitGatewayPeering
$creadPrec :: ReadPrec GetTransitGatewayPeering
readList :: ReadS [GetTransitGatewayPeering]
$creadList :: ReadS [GetTransitGatewayPeering]
readsPrec :: Int -> ReadS GetTransitGatewayPeering
$creadsPrec :: Int -> ReadS GetTransitGatewayPeering
Prelude.Read, Int -> GetTransitGatewayPeering -> ShowS
[GetTransitGatewayPeering] -> ShowS
GetTransitGatewayPeering -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [GetTransitGatewayPeering] -> ShowS
$cshowList :: [GetTransitGatewayPeering] -> ShowS
show :: GetTransitGatewayPeering -> String
$cshow :: GetTransitGatewayPeering -> String
showsPrec :: Int -> GetTransitGatewayPeering -> ShowS
$cshowsPrec :: Int -> GetTransitGatewayPeering -> ShowS
Prelude.Show, forall x.
Rep GetTransitGatewayPeering x -> GetTransitGatewayPeering
forall x.
GetTransitGatewayPeering -> Rep GetTransitGatewayPeering x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep GetTransitGatewayPeering x -> GetTransitGatewayPeering
$cfrom :: forall x.
GetTransitGatewayPeering -> Rep GetTransitGatewayPeering x
Prelude.Generic)
newGetTransitGatewayPeering ::
Prelude.Text ->
GetTransitGatewayPeering
newGetTransitGatewayPeering :: Text -> GetTransitGatewayPeering
newGetTransitGatewayPeering Text
pPeeringId_ =
GetTransitGatewayPeering' {$sel:peeringId:GetTransitGatewayPeering' :: Text
peeringId = Text
pPeeringId_}
getTransitGatewayPeering_peeringId :: Lens.Lens' GetTransitGatewayPeering Prelude.Text
getTransitGatewayPeering_peeringId :: Lens' GetTransitGatewayPeering Text
getTransitGatewayPeering_peeringId = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GetTransitGatewayPeering' {Text
peeringId :: Text
$sel:peeringId:GetTransitGatewayPeering' :: GetTransitGatewayPeering -> Text
peeringId} -> Text
peeringId) (\s :: GetTransitGatewayPeering
s@GetTransitGatewayPeering' {} Text
a -> GetTransitGatewayPeering
s {$sel:peeringId:GetTransitGatewayPeering' :: Text
peeringId = Text
a} :: GetTransitGatewayPeering)
instance Core.AWSRequest GetTransitGatewayPeering where
type
AWSResponse GetTransitGatewayPeering =
GetTransitGatewayPeeringResponse
request :: (Service -> Service)
-> GetTransitGatewayPeering -> Request GetTransitGatewayPeering
request Service -> Service
overrides =
forall a. ToRequest a => Service -> a -> Request a
Request.get (Service -> Service
overrides Service
defaultService)
response :: forall (m :: * -> *).
MonadResource m =>
(ByteStringLazy -> IO ByteStringLazy)
-> Service
-> Proxy GetTransitGatewayPeering
-> ClientResponse ClientBody
-> m (Either
Error (ClientResponse (AWSResponse GetTransitGatewayPeering)))
response =
forall (m :: * -> *) a.
MonadResource m =>
(Int -> ResponseHeaders -> Object -> Either String (AWSResponse a))
-> (ByteStringLazy -> IO ByteStringLazy)
-> Service
-> Proxy a
-> ClientResponse ClientBody
-> m (Either Error (ClientResponse (AWSResponse a)))
Response.receiveJSON
( \Int
s ResponseHeaders
h Object
x ->
Maybe TransitGatewayPeering
-> Int -> GetTransitGatewayPeeringResponse
GetTransitGatewayPeeringResponse'
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> (Object
x forall a. FromJSON a => Object -> Key -> Either String (Maybe a)
Data..?> Key
"TransitGatewayPeering")
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 GetTransitGatewayPeering where
hashWithSalt :: Int -> GetTransitGatewayPeering -> Int
hashWithSalt Int
_salt GetTransitGatewayPeering' {Text
peeringId :: Text
$sel:peeringId:GetTransitGatewayPeering' :: GetTransitGatewayPeering -> Text
..} =
Int
_salt forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
peeringId
instance Prelude.NFData GetTransitGatewayPeering where
rnf :: GetTransitGatewayPeering -> ()
rnf GetTransitGatewayPeering' {Text
peeringId :: Text
$sel:peeringId:GetTransitGatewayPeering' :: GetTransitGatewayPeering -> Text
..} =
forall a. NFData a => a -> ()
Prelude.rnf Text
peeringId
instance Data.ToHeaders GetTransitGatewayPeering where
toHeaders :: GetTransitGatewayPeering -> ResponseHeaders
toHeaders =
forall a b. a -> b -> a
Prelude.const
( forall a. Monoid a => [a] -> a
Prelude.mconcat
[ HeaderName
"Content-Type"
forall a. ToHeader a => HeaderName -> a -> ResponseHeaders
Data.=# ( ByteString
"application/x-amz-json-1.1" ::
Prelude.ByteString
)
]
)
instance Data.ToPath GetTransitGatewayPeering where
toPath :: GetTransitGatewayPeering -> ByteString
toPath GetTransitGatewayPeering' {Text
peeringId :: Text
$sel:peeringId:GetTransitGatewayPeering' :: GetTransitGatewayPeering -> Text
..} =
forall a. Monoid a => [a] -> a
Prelude.mconcat
[ByteString
"/transit-gateway-peerings/", forall a. ToByteString a => a -> ByteString
Data.toBS Text
peeringId]
instance Data.ToQuery GetTransitGatewayPeering where
toQuery :: GetTransitGatewayPeering -> QueryString
toQuery = forall a b. a -> b -> a
Prelude.const forall a. Monoid a => a
Prelude.mempty
data GetTransitGatewayPeeringResponse = GetTransitGatewayPeeringResponse'
{
GetTransitGatewayPeeringResponse -> Maybe TransitGatewayPeering
transitGatewayPeering :: Prelude.Maybe TransitGatewayPeering,
GetTransitGatewayPeeringResponse -> Int
httpStatus :: Prelude.Int
}
deriving (GetTransitGatewayPeeringResponse
-> GetTransitGatewayPeeringResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: GetTransitGatewayPeeringResponse
-> GetTransitGatewayPeeringResponse -> Bool
$c/= :: GetTransitGatewayPeeringResponse
-> GetTransitGatewayPeeringResponse -> Bool
== :: GetTransitGatewayPeeringResponse
-> GetTransitGatewayPeeringResponse -> Bool
$c== :: GetTransitGatewayPeeringResponse
-> GetTransitGatewayPeeringResponse -> Bool
Prelude.Eq, ReadPrec [GetTransitGatewayPeeringResponse]
ReadPrec GetTransitGatewayPeeringResponse
Int -> ReadS GetTransitGatewayPeeringResponse
ReadS [GetTransitGatewayPeeringResponse]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [GetTransitGatewayPeeringResponse]
$creadListPrec :: ReadPrec [GetTransitGatewayPeeringResponse]
readPrec :: ReadPrec GetTransitGatewayPeeringResponse
$creadPrec :: ReadPrec GetTransitGatewayPeeringResponse
readList :: ReadS [GetTransitGatewayPeeringResponse]
$creadList :: ReadS [GetTransitGatewayPeeringResponse]
readsPrec :: Int -> ReadS GetTransitGatewayPeeringResponse
$creadsPrec :: Int -> ReadS GetTransitGatewayPeeringResponse
Prelude.Read, Int -> GetTransitGatewayPeeringResponse -> ShowS
[GetTransitGatewayPeeringResponse] -> ShowS
GetTransitGatewayPeeringResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [GetTransitGatewayPeeringResponse] -> ShowS
$cshowList :: [GetTransitGatewayPeeringResponse] -> ShowS
show :: GetTransitGatewayPeeringResponse -> String
$cshow :: GetTransitGatewayPeeringResponse -> String
showsPrec :: Int -> GetTransitGatewayPeeringResponse -> ShowS
$cshowsPrec :: Int -> GetTransitGatewayPeeringResponse -> ShowS
Prelude.Show, forall x.
Rep GetTransitGatewayPeeringResponse x
-> GetTransitGatewayPeeringResponse
forall x.
GetTransitGatewayPeeringResponse
-> Rep GetTransitGatewayPeeringResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep GetTransitGatewayPeeringResponse x
-> GetTransitGatewayPeeringResponse
$cfrom :: forall x.
GetTransitGatewayPeeringResponse
-> Rep GetTransitGatewayPeeringResponse x
Prelude.Generic)
newGetTransitGatewayPeeringResponse ::
Prelude.Int ->
GetTransitGatewayPeeringResponse
newGetTransitGatewayPeeringResponse :: Int -> GetTransitGatewayPeeringResponse
newGetTransitGatewayPeeringResponse Int
pHttpStatus_ =
GetTransitGatewayPeeringResponse'
{ $sel:transitGatewayPeering:GetTransitGatewayPeeringResponse' :: Maybe TransitGatewayPeering
transitGatewayPeering =
forall a. Maybe a
Prelude.Nothing,
$sel:httpStatus:GetTransitGatewayPeeringResponse' :: Int
httpStatus = Int
pHttpStatus_
}
getTransitGatewayPeeringResponse_transitGatewayPeering :: Lens.Lens' GetTransitGatewayPeeringResponse (Prelude.Maybe TransitGatewayPeering)
getTransitGatewayPeeringResponse_transitGatewayPeering :: Lens'
GetTransitGatewayPeeringResponse (Maybe TransitGatewayPeering)
getTransitGatewayPeeringResponse_transitGatewayPeering = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GetTransitGatewayPeeringResponse' {Maybe TransitGatewayPeering
transitGatewayPeering :: Maybe TransitGatewayPeering
$sel:transitGatewayPeering:GetTransitGatewayPeeringResponse' :: GetTransitGatewayPeeringResponse -> Maybe TransitGatewayPeering
transitGatewayPeering} -> Maybe TransitGatewayPeering
transitGatewayPeering) (\s :: GetTransitGatewayPeeringResponse
s@GetTransitGatewayPeeringResponse' {} Maybe TransitGatewayPeering
a -> GetTransitGatewayPeeringResponse
s {$sel:transitGatewayPeering:GetTransitGatewayPeeringResponse' :: Maybe TransitGatewayPeering
transitGatewayPeering = Maybe TransitGatewayPeering
a} :: GetTransitGatewayPeeringResponse)
getTransitGatewayPeeringResponse_httpStatus :: Lens.Lens' GetTransitGatewayPeeringResponse Prelude.Int
getTransitGatewayPeeringResponse_httpStatus :: Lens' GetTransitGatewayPeeringResponse Int
getTransitGatewayPeeringResponse_httpStatus = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GetTransitGatewayPeeringResponse' {Int
httpStatus :: Int
$sel:httpStatus:GetTransitGatewayPeeringResponse' :: GetTransitGatewayPeeringResponse -> Int
httpStatus} -> Int
httpStatus) (\s :: GetTransitGatewayPeeringResponse
s@GetTransitGatewayPeeringResponse' {} Int
a -> GetTransitGatewayPeeringResponse
s {$sel:httpStatus:GetTransitGatewayPeeringResponse' :: Int
httpStatus = Int
a} :: GetTransitGatewayPeeringResponse)
instance
Prelude.NFData
GetTransitGatewayPeeringResponse
where
rnf :: GetTransitGatewayPeeringResponse -> ()
rnf GetTransitGatewayPeeringResponse' {Int
Maybe TransitGatewayPeering
httpStatus :: Int
transitGatewayPeering :: Maybe TransitGatewayPeering
$sel:httpStatus:GetTransitGatewayPeeringResponse' :: GetTransitGatewayPeeringResponse -> Int
$sel:transitGatewayPeering:GetTransitGatewayPeeringResponse' :: GetTransitGatewayPeeringResponse -> Maybe TransitGatewayPeering
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe TransitGatewayPeering
transitGatewayPeering
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Int
httpStatus