{-# 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.AcceptTransitGatewayPeeringAttachment
(
AcceptTransitGatewayPeeringAttachment (..),
newAcceptTransitGatewayPeeringAttachment,
acceptTransitGatewayPeeringAttachment_dryRun,
acceptTransitGatewayPeeringAttachment_transitGatewayAttachmentId,
AcceptTransitGatewayPeeringAttachmentResponse (..),
newAcceptTransitGatewayPeeringAttachmentResponse,
acceptTransitGatewayPeeringAttachmentResponse_transitGatewayPeeringAttachment,
acceptTransitGatewayPeeringAttachmentResponse_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 AcceptTransitGatewayPeeringAttachment = AcceptTransitGatewayPeeringAttachment'
{
AcceptTransitGatewayPeeringAttachment -> Maybe Bool
dryRun :: Prelude.Maybe Prelude.Bool,
AcceptTransitGatewayPeeringAttachment -> Text
transitGatewayAttachmentId :: Prelude.Text
}
deriving (AcceptTransitGatewayPeeringAttachment
-> AcceptTransitGatewayPeeringAttachment -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: AcceptTransitGatewayPeeringAttachment
-> AcceptTransitGatewayPeeringAttachment -> Bool
$c/= :: AcceptTransitGatewayPeeringAttachment
-> AcceptTransitGatewayPeeringAttachment -> Bool
== :: AcceptTransitGatewayPeeringAttachment
-> AcceptTransitGatewayPeeringAttachment -> Bool
$c== :: AcceptTransitGatewayPeeringAttachment
-> AcceptTransitGatewayPeeringAttachment -> Bool
Prelude.Eq, ReadPrec [AcceptTransitGatewayPeeringAttachment]
ReadPrec AcceptTransitGatewayPeeringAttachment
Int -> ReadS AcceptTransitGatewayPeeringAttachment
ReadS [AcceptTransitGatewayPeeringAttachment]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [AcceptTransitGatewayPeeringAttachment]
$creadListPrec :: ReadPrec [AcceptTransitGatewayPeeringAttachment]
readPrec :: ReadPrec AcceptTransitGatewayPeeringAttachment
$creadPrec :: ReadPrec AcceptTransitGatewayPeeringAttachment
readList :: ReadS [AcceptTransitGatewayPeeringAttachment]
$creadList :: ReadS [AcceptTransitGatewayPeeringAttachment]
readsPrec :: Int -> ReadS AcceptTransitGatewayPeeringAttachment
$creadsPrec :: Int -> ReadS AcceptTransitGatewayPeeringAttachment
Prelude.Read, Int -> AcceptTransitGatewayPeeringAttachment -> ShowS
[AcceptTransitGatewayPeeringAttachment] -> ShowS
AcceptTransitGatewayPeeringAttachment -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [AcceptTransitGatewayPeeringAttachment] -> ShowS
$cshowList :: [AcceptTransitGatewayPeeringAttachment] -> ShowS
show :: AcceptTransitGatewayPeeringAttachment -> String
$cshow :: AcceptTransitGatewayPeeringAttachment -> String
showsPrec :: Int -> AcceptTransitGatewayPeeringAttachment -> ShowS
$cshowsPrec :: Int -> AcceptTransitGatewayPeeringAttachment -> ShowS
Prelude.Show, forall x.
Rep AcceptTransitGatewayPeeringAttachment x
-> AcceptTransitGatewayPeeringAttachment
forall x.
AcceptTransitGatewayPeeringAttachment
-> Rep AcceptTransitGatewayPeeringAttachment x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep AcceptTransitGatewayPeeringAttachment x
-> AcceptTransitGatewayPeeringAttachment
$cfrom :: forall x.
AcceptTransitGatewayPeeringAttachment
-> Rep AcceptTransitGatewayPeeringAttachment x
Prelude.Generic)
newAcceptTransitGatewayPeeringAttachment ::
Prelude.Text ->
AcceptTransitGatewayPeeringAttachment
newAcceptTransitGatewayPeeringAttachment :: Text -> AcceptTransitGatewayPeeringAttachment
newAcceptTransitGatewayPeeringAttachment
Text
pTransitGatewayAttachmentId_ =
AcceptTransitGatewayPeeringAttachment'
{ $sel:dryRun:AcceptTransitGatewayPeeringAttachment' :: Maybe Bool
dryRun =
forall a. Maybe a
Prelude.Nothing,
$sel:transitGatewayAttachmentId:AcceptTransitGatewayPeeringAttachment' :: Text
transitGatewayAttachmentId =
Text
pTransitGatewayAttachmentId_
}
acceptTransitGatewayPeeringAttachment_dryRun :: Lens.Lens' AcceptTransitGatewayPeeringAttachment (Prelude.Maybe Prelude.Bool)
acceptTransitGatewayPeeringAttachment_dryRun :: Lens' AcceptTransitGatewayPeeringAttachment (Maybe Bool)
acceptTransitGatewayPeeringAttachment_dryRun = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\AcceptTransitGatewayPeeringAttachment' {Maybe Bool
dryRun :: Maybe Bool
$sel:dryRun:AcceptTransitGatewayPeeringAttachment' :: AcceptTransitGatewayPeeringAttachment -> Maybe Bool
dryRun} -> Maybe Bool
dryRun) (\s :: AcceptTransitGatewayPeeringAttachment
s@AcceptTransitGatewayPeeringAttachment' {} Maybe Bool
a -> AcceptTransitGatewayPeeringAttachment
s {$sel:dryRun:AcceptTransitGatewayPeeringAttachment' :: Maybe Bool
dryRun = Maybe Bool
a} :: AcceptTransitGatewayPeeringAttachment)
acceptTransitGatewayPeeringAttachment_transitGatewayAttachmentId :: Lens.Lens' AcceptTransitGatewayPeeringAttachment Prelude.Text
acceptTransitGatewayPeeringAttachment_transitGatewayAttachmentId :: Lens' AcceptTransitGatewayPeeringAttachment Text
acceptTransitGatewayPeeringAttachment_transitGatewayAttachmentId = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\AcceptTransitGatewayPeeringAttachment' {Text
transitGatewayAttachmentId :: Text
$sel:transitGatewayAttachmentId:AcceptTransitGatewayPeeringAttachment' :: AcceptTransitGatewayPeeringAttachment -> Text
transitGatewayAttachmentId} -> Text
transitGatewayAttachmentId) (\s :: AcceptTransitGatewayPeeringAttachment
s@AcceptTransitGatewayPeeringAttachment' {} Text
a -> AcceptTransitGatewayPeeringAttachment
s {$sel:transitGatewayAttachmentId:AcceptTransitGatewayPeeringAttachment' :: Text
transitGatewayAttachmentId = Text
a} :: AcceptTransitGatewayPeeringAttachment)
instance
Core.AWSRequest
AcceptTransitGatewayPeeringAttachment
where
type
AWSResponse
AcceptTransitGatewayPeeringAttachment =
AcceptTransitGatewayPeeringAttachmentResponse
request :: (Service -> Service)
-> AcceptTransitGatewayPeeringAttachment
-> Request AcceptTransitGatewayPeeringAttachment
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 AcceptTransitGatewayPeeringAttachment
-> ClientResponse ClientBody
-> m (Either
Error
(ClientResponse
(AWSResponse AcceptTransitGatewayPeeringAttachment)))
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 TransitGatewayPeeringAttachment
-> Int -> AcceptTransitGatewayPeeringAttachmentResponse
AcceptTransitGatewayPeeringAttachmentResponse'
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
"transitGatewayPeeringAttachment")
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
AcceptTransitGatewayPeeringAttachment
where
hashWithSalt :: Int -> AcceptTransitGatewayPeeringAttachment -> Int
hashWithSalt
Int
_salt
AcceptTransitGatewayPeeringAttachment' {Maybe Bool
Text
transitGatewayAttachmentId :: Text
dryRun :: Maybe Bool
$sel:transitGatewayAttachmentId:AcceptTransitGatewayPeeringAttachment' :: AcceptTransitGatewayPeeringAttachment -> Text
$sel:dryRun:AcceptTransitGatewayPeeringAttachment' :: AcceptTransitGatewayPeeringAttachment -> 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` Text
transitGatewayAttachmentId
instance
Prelude.NFData
AcceptTransitGatewayPeeringAttachment
where
rnf :: AcceptTransitGatewayPeeringAttachment -> ()
rnf AcceptTransitGatewayPeeringAttachment' {Maybe Bool
Text
transitGatewayAttachmentId :: Text
dryRun :: Maybe Bool
$sel:transitGatewayAttachmentId:AcceptTransitGatewayPeeringAttachment' :: AcceptTransitGatewayPeeringAttachment -> Text
$sel:dryRun:AcceptTransitGatewayPeeringAttachment' :: AcceptTransitGatewayPeeringAttachment -> 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 Text
transitGatewayAttachmentId
instance
Data.ToHeaders
AcceptTransitGatewayPeeringAttachment
where
toHeaders :: AcceptTransitGatewayPeeringAttachment -> ResponseHeaders
toHeaders = forall a b. a -> b -> a
Prelude.const forall a. Monoid a => a
Prelude.mempty
instance
Data.ToPath
AcceptTransitGatewayPeeringAttachment
where
toPath :: AcceptTransitGatewayPeeringAttachment -> ByteString
toPath = forall a b. a -> b -> a
Prelude.const ByteString
"/"
instance
Data.ToQuery
AcceptTransitGatewayPeeringAttachment
where
toQuery :: AcceptTransitGatewayPeeringAttachment -> QueryString
toQuery AcceptTransitGatewayPeeringAttachment' {Maybe Bool
Text
transitGatewayAttachmentId :: Text
dryRun :: Maybe Bool
$sel:transitGatewayAttachmentId:AcceptTransitGatewayPeeringAttachment' :: AcceptTransitGatewayPeeringAttachment -> Text
$sel:dryRun:AcceptTransitGatewayPeeringAttachment' :: AcceptTransitGatewayPeeringAttachment -> Maybe Bool
..} =
forall a. Monoid a => [a] -> a
Prelude.mconcat
[ ByteString
"Action"
forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: ( ByteString
"AcceptTransitGatewayPeeringAttachment" ::
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
"TransitGatewayAttachmentId"
forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: Text
transitGatewayAttachmentId
]
data AcceptTransitGatewayPeeringAttachmentResponse = AcceptTransitGatewayPeeringAttachmentResponse'
{
AcceptTransitGatewayPeeringAttachmentResponse
-> Maybe TransitGatewayPeeringAttachment
transitGatewayPeeringAttachment :: Prelude.Maybe TransitGatewayPeeringAttachment,
AcceptTransitGatewayPeeringAttachmentResponse -> Int
httpStatus :: Prelude.Int
}
deriving (AcceptTransitGatewayPeeringAttachmentResponse
-> AcceptTransitGatewayPeeringAttachmentResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: AcceptTransitGatewayPeeringAttachmentResponse
-> AcceptTransitGatewayPeeringAttachmentResponse -> Bool
$c/= :: AcceptTransitGatewayPeeringAttachmentResponse
-> AcceptTransitGatewayPeeringAttachmentResponse -> Bool
== :: AcceptTransitGatewayPeeringAttachmentResponse
-> AcceptTransitGatewayPeeringAttachmentResponse -> Bool
$c== :: AcceptTransitGatewayPeeringAttachmentResponse
-> AcceptTransitGatewayPeeringAttachmentResponse -> Bool
Prelude.Eq, ReadPrec [AcceptTransitGatewayPeeringAttachmentResponse]
ReadPrec AcceptTransitGatewayPeeringAttachmentResponse
Int -> ReadS AcceptTransitGatewayPeeringAttachmentResponse
ReadS [AcceptTransitGatewayPeeringAttachmentResponse]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [AcceptTransitGatewayPeeringAttachmentResponse]
$creadListPrec :: ReadPrec [AcceptTransitGatewayPeeringAttachmentResponse]
readPrec :: ReadPrec AcceptTransitGatewayPeeringAttachmentResponse
$creadPrec :: ReadPrec AcceptTransitGatewayPeeringAttachmentResponse
readList :: ReadS [AcceptTransitGatewayPeeringAttachmentResponse]
$creadList :: ReadS [AcceptTransitGatewayPeeringAttachmentResponse]
readsPrec :: Int -> ReadS AcceptTransitGatewayPeeringAttachmentResponse
$creadsPrec :: Int -> ReadS AcceptTransitGatewayPeeringAttachmentResponse
Prelude.Read, Int -> AcceptTransitGatewayPeeringAttachmentResponse -> ShowS
[AcceptTransitGatewayPeeringAttachmentResponse] -> ShowS
AcceptTransitGatewayPeeringAttachmentResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [AcceptTransitGatewayPeeringAttachmentResponse] -> ShowS
$cshowList :: [AcceptTransitGatewayPeeringAttachmentResponse] -> ShowS
show :: AcceptTransitGatewayPeeringAttachmentResponse -> String
$cshow :: AcceptTransitGatewayPeeringAttachmentResponse -> String
showsPrec :: Int -> AcceptTransitGatewayPeeringAttachmentResponse -> ShowS
$cshowsPrec :: Int -> AcceptTransitGatewayPeeringAttachmentResponse -> ShowS
Prelude.Show, forall x.
Rep AcceptTransitGatewayPeeringAttachmentResponse x
-> AcceptTransitGatewayPeeringAttachmentResponse
forall x.
AcceptTransitGatewayPeeringAttachmentResponse
-> Rep AcceptTransitGatewayPeeringAttachmentResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep AcceptTransitGatewayPeeringAttachmentResponse x
-> AcceptTransitGatewayPeeringAttachmentResponse
$cfrom :: forall x.
AcceptTransitGatewayPeeringAttachmentResponse
-> Rep AcceptTransitGatewayPeeringAttachmentResponse x
Prelude.Generic)
newAcceptTransitGatewayPeeringAttachmentResponse ::
Prelude.Int ->
AcceptTransitGatewayPeeringAttachmentResponse
newAcceptTransitGatewayPeeringAttachmentResponse :: Int -> AcceptTransitGatewayPeeringAttachmentResponse
newAcceptTransitGatewayPeeringAttachmentResponse
Int
pHttpStatus_ =
AcceptTransitGatewayPeeringAttachmentResponse'
{ $sel:transitGatewayPeeringAttachment:AcceptTransitGatewayPeeringAttachmentResponse' :: Maybe TransitGatewayPeeringAttachment
transitGatewayPeeringAttachment =
forall a. Maybe a
Prelude.Nothing,
$sel:httpStatus:AcceptTransitGatewayPeeringAttachmentResponse' :: Int
httpStatus = Int
pHttpStatus_
}
acceptTransitGatewayPeeringAttachmentResponse_transitGatewayPeeringAttachment :: Lens.Lens' AcceptTransitGatewayPeeringAttachmentResponse (Prelude.Maybe TransitGatewayPeeringAttachment)
acceptTransitGatewayPeeringAttachmentResponse_transitGatewayPeeringAttachment :: Lens'
AcceptTransitGatewayPeeringAttachmentResponse
(Maybe TransitGatewayPeeringAttachment)
acceptTransitGatewayPeeringAttachmentResponse_transitGatewayPeeringAttachment = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\AcceptTransitGatewayPeeringAttachmentResponse' {Maybe TransitGatewayPeeringAttachment
transitGatewayPeeringAttachment :: Maybe TransitGatewayPeeringAttachment
$sel:transitGatewayPeeringAttachment:AcceptTransitGatewayPeeringAttachmentResponse' :: AcceptTransitGatewayPeeringAttachmentResponse
-> Maybe TransitGatewayPeeringAttachment
transitGatewayPeeringAttachment} -> Maybe TransitGatewayPeeringAttachment
transitGatewayPeeringAttachment) (\s :: AcceptTransitGatewayPeeringAttachmentResponse
s@AcceptTransitGatewayPeeringAttachmentResponse' {} Maybe TransitGatewayPeeringAttachment
a -> AcceptTransitGatewayPeeringAttachmentResponse
s {$sel:transitGatewayPeeringAttachment:AcceptTransitGatewayPeeringAttachmentResponse' :: Maybe TransitGatewayPeeringAttachment
transitGatewayPeeringAttachment = Maybe TransitGatewayPeeringAttachment
a} :: AcceptTransitGatewayPeeringAttachmentResponse)
acceptTransitGatewayPeeringAttachmentResponse_httpStatus :: Lens.Lens' AcceptTransitGatewayPeeringAttachmentResponse Prelude.Int
acceptTransitGatewayPeeringAttachmentResponse_httpStatus :: Lens' AcceptTransitGatewayPeeringAttachmentResponse Int
acceptTransitGatewayPeeringAttachmentResponse_httpStatus = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\AcceptTransitGatewayPeeringAttachmentResponse' {Int
httpStatus :: Int
$sel:httpStatus:AcceptTransitGatewayPeeringAttachmentResponse' :: AcceptTransitGatewayPeeringAttachmentResponse -> Int
httpStatus} -> Int
httpStatus) (\s :: AcceptTransitGatewayPeeringAttachmentResponse
s@AcceptTransitGatewayPeeringAttachmentResponse' {} Int
a -> AcceptTransitGatewayPeeringAttachmentResponse
s {$sel:httpStatus:AcceptTransitGatewayPeeringAttachmentResponse' :: Int
httpStatus = Int
a} :: AcceptTransitGatewayPeeringAttachmentResponse)
instance
Prelude.NFData
AcceptTransitGatewayPeeringAttachmentResponse
where
rnf :: AcceptTransitGatewayPeeringAttachmentResponse -> ()
rnf
AcceptTransitGatewayPeeringAttachmentResponse' {Int
Maybe TransitGatewayPeeringAttachment
httpStatus :: Int
transitGatewayPeeringAttachment :: Maybe TransitGatewayPeeringAttachment
$sel:httpStatus:AcceptTransitGatewayPeeringAttachmentResponse' :: AcceptTransitGatewayPeeringAttachmentResponse -> Int
$sel:transitGatewayPeeringAttachment:AcceptTransitGatewayPeeringAttachmentResponse' :: AcceptTransitGatewayPeeringAttachmentResponse
-> Maybe TransitGatewayPeeringAttachment
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe TransitGatewayPeeringAttachment
transitGatewayPeeringAttachment
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Int
httpStatus