{-# 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 #-}

-- Derived from AWS service descriptions, licensed under Apache 2.0.

-- |
-- Module      : Amazonka.NetworkManager.GetTransitGatewayPeering
-- Copyright   : (c) 2013-2023 Brendan Hay
-- License     : Mozilla Public License, v. 2.0.
-- Maintainer  : Brendan Hay
-- Stability   : auto-generated
-- Portability : non-portable (GHC extensions)
--
-- Returns information about a transit gateway peer.
module Amazonka.NetworkManager.GetTransitGatewayPeering
  ( -- * Creating a Request
    GetTransitGatewayPeering (..),
    newGetTransitGatewayPeering,

    -- * Request Lenses
    getTransitGatewayPeering_peeringId,

    -- * Destructuring the Response
    GetTransitGatewayPeeringResponse (..),
    newGetTransitGatewayPeeringResponse,

    -- * Response Lenses
    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

-- | /See:/ 'newGetTransitGatewayPeering' smart constructor.
data GetTransitGatewayPeering = GetTransitGatewayPeering'
  { -- | The ID of the peering request.
    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)

-- |
-- Create a value of 'GetTransitGatewayPeering' with all optional fields omitted.
--
-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.
--
-- The following record fields are available, with the corresponding lenses provided
-- for backwards compatibility:
--
-- 'peeringId', 'getTransitGatewayPeering_peeringId' - The ID of the peering request.
newGetTransitGatewayPeering ::
  -- | 'peeringId'
  Prelude.Text ->
  GetTransitGatewayPeering
newGetTransitGatewayPeering :: Text -> GetTransitGatewayPeering
newGetTransitGatewayPeering Text
pPeeringId_ =
  GetTransitGatewayPeering' {$sel:peeringId:GetTransitGatewayPeering' :: Text
peeringId = Text
pPeeringId_}

-- | The ID of the peering request.
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

-- | /See:/ 'newGetTransitGatewayPeeringResponse' smart constructor.
data GetTransitGatewayPeeringResponse = GetTransitGatewayPeeringResponse'
  { -- | Returns information about a transit gateway peering.
    GetTransitGatewayPeeringResponse -> Maybe TransitGatewayPeering
transitGatewayPeering :: Prelude.Maybe TransitGatewayPeering,
    -- | The response's http status code.
    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)

-- |
-- Create a value of 'GetTransitGatewayPeeringResponse' with all optional fields omitted.
--
-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.
--
-- The following record fields are available, with the corresponding lenses provided
-- for backwards compatibility:
--
-- 'transitGatewayPeering', 'getTransitGatewayPeeringResponse_transitGatewayPeering' - Returns information about a transit gateway peering.
--
-- 'httpStatus', 'getTransitGatewayPeeringResponse_httpStatus' - The response's http status code.
newGetTransitGatewayPeeringResponse ::
  -- | 'httpStatus'
  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_
    }

-- | Returns information about a transit gateway peering.
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)

-- | The response's http status code.
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