{-# 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.DeleteTransitGatewayConnectPeer
(
DeleteTransitGatewayConnectPeer (..),
newDeleteTransitGatewayConnectPeer,
deleteTransitGatewayConnectPeer_dryRun,
deleteTransitGatewayConnectPeer_transitGatewayConnectPeerId,
DeleteTransitGatewayConnectPeerResponse (..),
newDeleteTransitGatewayConnectPeerResponse,
deleteTransitGatewayConnectPeerResponse_transitGatewayConnectPeer,
deleteTransitGatewayConnectPeerResponse_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 DeleteTransitGatewayConnectPeer = DeleteTransitGatewayConnectPeer'
{
DeleteTransitGatewayConnectPeer -> Maybe Bool
dryRun :: Prelude.Maybe Prelude.Bool,
DeleteTransitGatewayConnectPeer -> Text
transitGatewayConnectPeerId :: Prelude.Text
}
deriving (DeleteTransitGatewayConnectPeer
-> DeleteTransitGatewayConnectPeer -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: DeleteTransitGatewayConnectPeer
-> DeleteTransitGatewayConnectPeer -> Bool
$c/= :: DeleteTransitGatewayConnectPeer
-> DeleteTransitGatewayConnectPeer -> Bool
== :: DeleteTransitGatewayConnectPeer
-> DeleteTransitGatewayConnectPeer -> Bool
$c== :: DeleteTransitGatewayConnectPeer
-> DeleteTransitGatewayConnectPeer -> Bool
Prelude.Eq, ReadPrec [DeleteTransitGatewayConnectPeer]
ReadPrec DeleteTransitGatewayConnectPeer
Int -> ReadS DeleteTransitGatewayConnectPeer
ReadS [DeleteTransitGatewayConnectPeer]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [DeleteTransitGatewayConnectPeer]
$creadListPrec :: ReadPrec [DeleteTransitGatewayConnectPeer]
readPrec :: ReadPrec DeleteTransitGatewayConnectPeer
$creadPrec :: ReadPrec DeleteTransitGatewayConnectPeer
readList :: ReadS [DeleteTransitGatewayConnectPeer]
$creadList :: ReadS [DeleteTransitGatewayConnectPeer]
readsPrec :: Int -> ReadS DeleteTransitGatewayConnectPeer
$creadsPrec :: Int -> ReadS DeleteTransitGatewayConnectPeer
Prelude.Read, Int -> DeleteTransitGatewayConnectPeer -> ShowS
[DeleteTransitGatewayConnectPeer] -> ShowS
DeleteTransitGatewayConnectPeer -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [DeleteTransitGatewayConnectPeer] -> ShowS
$cshowList :: [DeleteTransitGatewayConnectPeer] -> ShowS
show :: DeleteTransitGatewayConnectPeer -> String
$cshow :: DeleteTransitGatewayConnectPeer -> String
showsPrec :: Int -> DeleteTransitGatewayConnectPeer -> ShowS
$cshowsPrec :: Int -> DeleteTransitGatewayConnectPeer -> ShowS
Prelude.Show, forall x.
Rep DeleteTransitGatewayConnectPeer x
-> DeleteTransitGatewayConnectPeer
forall x.
DeleteTransitGatewayConnectPeer
-> Rep DeleteTransitGatewayConnectPeer x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep DeleteTransitGatewayConnectPeer x
-> DeleteTransitGatewayConnectPeer
$cfrom :: forall x.
DeleteTransitGatewayConnectPeer
-> Rep DeleteTransitGatewayConnectPeer x
Prelude.Generic)
newDeleteTransitGatewayConnectPeer ::
Prelude.Text ->
DeleteTransitGatewayConnectPeer
newDeleteTransitGatewayConnectPeer :: Text -> DeleteTransitGatewayConnectPeer
newDeleteTransitGatewayConnectPeer
Text
pTransitGatewayConnectPeerId_ =
DeleteTransitGatewayConnectPeer'
{ $sel:dryRun:DeleteTransitGatewayConnectPeer' :: Maybe Bool
dryRun =
forall a. Maybe a
Prelude.Nothing,
$sel:transitGatewayConnectPeerId:DeleteTransitGatewayConnectPeer' :: Text
transitGatewayConnectPeerId =
Text
pTransitGatewayConnectPeerId_
}
deleteTransitGatewayConnectPeer_dryRun :: Lens.Lens' DeleteTransitGatewayConnectPeer (Prelude.Maybe Prelude.Bool)
deleteTransitGatewayConnectPeer_dryRun :: Lens' DeleteTransitGatewayConnectPeer (Maybe Bool)
deleteTransitGatewayConnectPeer_dryRun = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DeleteTransitGatewayConnectPeer' {Maybe Bool
dryRun :: Maybe Bool
$sel:dryRun:DeleteTransitGatewayConnectPeer' :: DeleteTransitGatewayConnectPeer -> Maybe Bool
dryRun} -> Maybe Bool
dryRun) (\s :: DeleteTransitGatewayConnectPeer
s@DeleteTransitGatewayConnectPeer' {} Maybe Bool
a -> DeleteTransitGatewayConnectPeer
s {$sel:dryRun:DeleteTransitGatewayConnectPeer' :: Maybe Bool
dryRun = Maybe Bool
a} :: DeleteTransitGatewayConnectPeer)
deleteTransitGatewayConnectPeer_transitGatewayConnectPeerId :: Lens.Lens' DeleteTransitGatewayConnectPeer Prelude.Text
deleteTransitGatewayConnectPeer_transitGatewayConnectPeerId :: Lens' DeleteTransitGatewayConnectPeer Text
deleteTransitGatewayConnectPeer_transitGatewayConnectPeerId = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DeleteTransitGatewayConnectPeer' {Text
transitGatewayConnectPeerId :: Text
$sel:transitGatewayConnectPeerId:DeleteTransitGatewayConnectPeer' :: DeleteTransitGatewayConnectPeer -> Text
transitGatewayConnectPeerId} -> Text
transitGatewayConnectPeerId) (\s :: DeleteTransitGatewayConnectPeer
s@DeleteTransitGatewayConnectPeer' {} Text
a -> DeleteTransitGatewayConnectPeer
s {$sel:transitGatewayConnectPeerId:DeleteTransitGatewayConnectPeer' :: Text
transitGatewayConnectPeerId = Text
a} :: DeleteTransitGatewayConnectPeer)
instance
Core.AWSRequest
DeleteTransitGatewayConnectPeer
where
type
AWSResponse DeleteTransitGatewayConnectPeer =
DeleteTransitGatewayConnectPeerResponse
request :: (Service -> Service)
-> DeleteTransitGatewayConnectPeer
-> Request DeleteTransitGatewayConnectPeer
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 DeleteTransitGatewayConnectPeer
-> ClientResponse ClientBody
-> m (Either
Error
(ClientResponse (AWSResponse DeleteTransitGatewayConnectPeer)))
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 TransitGatewayConnectPeer
-> Int -> DeleteTransitGatewayConnectPeerResponse
DeleteTransitGatewayConnectPeerResponse'
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
"transitGatewayConnectPeer")
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
DeleteTransitGatewayConnectPeer
where
hashWithSalt :: Int -> DeleteTransitGatewayConnectPeer -> Int
hashWithSalt
Int
_salt
DeleteTransitGatewayConnectPeer' {Maybe Bool
Text
transitGatewayConnectPeerId :: Text
dryRun :: Maybe Bool
$sel:transitGatewayConnectPeerId:DeleteTransitGatewayConnectPeer' :: DeleteTransitGatewayConnectPeer -> Text
$sel:dryRun:DeleteTransitGatewayConnectPeer' :: DeleteTransitGatewayConnectPeer -> 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
transitGatewayConnectPeerId
instance
Prelude.NFData
DeleteTransitGatewayConnectPeer
where
rnf :: DeleteTransitGatewayConnectPeer -> ()
rnf DeleteTransitGatewayConnectPeer' {Maybe Bool
Text
transitGatewayConnectPeerId :: Text
dryRun :: Maybe Bool
$sel:transitGatewayConnectPeerId:DeleteTransitGatewayConnectPeer' :: DeleteTransitGatewayConnectPeer -> Text
$sel:dryRun:DeleteTransitGatewayConnectPeer' :: DeleteTransitGatewayConnectPeer -> 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
transitGatewayConnectPeerId
instance
Data.ToHeaders
DeleteTransitGatewayConnectPeer
where
toHeaders :: DeleteTransitGatewayConnectPeer -> ResponseHeaders
toHeaders = forall a b. a -> b -> a
Prelude.const forall a. Monoid a => a
Prelude.mempty
instance Data.ToPath DeleteTransitGatewayConnectPeer where
toPath :: DeleteTransitGatewayConnectPeer -> ByteString
toPath = forall a b. a -> b -> a
Prelude.const ByteString
"/"
instance Data.ToQuery DeleteTransitGatewayConnectPeer where
toQuery :: DeleteTransitGatewayConnectPeer -> QueryString
toQuery DeleteTransitGatewayConnectPeer' {Maybe Bool
Text
transitGatewayConnectPeerId :: Text
dryRun :: Maybe Bool
$sel:transitGatewayConnectPeerId:DeleteTransitGatewayConnectPeer' :: DeleteTransitGatewayConnectPeer -> Text
$sel:dryRun:DeleteTransitGatewayConnectPeer' :: DeleteTransitGatewayConnectPeer -> Maybe Bool
..} =
forall a. Monoid a => [a] -> a
Prelude.mconcat
[ ByteString
"Action"
forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: ( ByteString
"DeleteTransitGatewayConnectPeer" ::
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
"TransitGatewayConnectPeerId"
forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: Text
transitGatewayConnectPeerId
]
data DeleteTransitGatewayConnectPeerResponse = DeleteTransitGatewayConnectPeerResponse'
{
DeleteTransitGatewayConnectPeerResponse
-> Maybe TransitGatewayConnectPeer
transitGatewayConnectPeer :: Prelude.Maybe TransitGatewayConnectPeer,
DeleteTransitGatewayConnectPeerResponse -> Int
httpStatus :: Prelude.Int
}
deriving (DeleteTransitGatewayConnectPeerResponse
-> DeleteTransitGatewayConnectPeerResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: DeleteTransitGatewayConnectPeerResponse
-> DeleteTransitGatewayConnectPeerResponse -> Bool
$c/= :: DeleteTransitGatewayConnectPeerResponse
-> DeleteTransitGatewayConnectPeerResponse -> Bool
== :: DeleteTransitGatewayConnectPeerResponse
-> DeleteTransitGatewayConnectPeerResponse -> Bool
$c== :: DeleteTransitGatewayConnectPeerResponse
-> DeleteTransitGatewayConnectPeerResponse -> Bool
Prelude.Eq, ReadPrec [DeleteTransitGatewayConnectPeerResponse]
ReadPrec DeleteTransitGatewayConnectPeerResponse
Int -> ReadS DeleteTransitGatewayConnectPeerResponse
ReadS [DeleteTransitGatewayConnectPeerResponse]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [DeleteTransitGatewayConnectPeerResponse]
$creadListPrec :: ReadPrec [DeleteTransitGatewayConnectPeerResponse]
readPrec :: ReadPrec DeleteTransitGatewayConnectPeerResponse
$creadPrec :: ReadPrec DeleteTransitGatewayConnectPeerResponse
readList :: ReadS [DeleteTransitGatewayConnectPeerResponse]
$creadList :: ReadS [DeleteTransitGatewayConnectPeerResponse]
readsPrec :: Int -> ReadS DeleteTransitGatewayConnectPeerResponse
$creadsPrec :: Int -> ReadS DeleteTransitGatewayConnectPeerResponse
Prelude.Read, Int -> DeleteTransitGatewayConnectPeerResponse -> ShowS
[DeleteTransitGatewayConnectPeerResponse] -> ShowS
DeleteTransitGatewayConnectPeerResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [DeleteTransitGatewayConnectPeerResponse] -> ShowS
$cshowList :: [DeleteTransitGatewayConnectPeerResponse] -> ShowS
show :: DeleteTransitGatewayConnectPeerResponse -> String
$cshow :: DeleteTransitGatewayConnectPeerResponse -> String
showsPrec :: Int -> DeleteTransitGatewayConnectPeerResponse -> ShowS
$cshowsPrec :: Int -> DeleteTransitGatewayConnectPeerResponse -> ShowS
Prelude.Show, forall x.
Rep DeleteTransitGatewayConnectPeerResponse x
-> DeleteTransitGatewayConnectPeerResponse
forall x.
DeleteTransitGatewayConnectPeerResponse
-> Rep DeleteTransitGatewayConnectPeerResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep DeleteTransitGatewayConnectPeerResponse x
-> DeleteTransitGatewayConnectPeerResponse
$cfrom :: forall x.
DeleteTransitGatewayConnectPeerResponse
-> Rep DeleteTransitGatewayConnectPeerResponse x
Prelude.Generic)
newDeleteTransitGatewayConnectPeerResponse ::
Prelude.Int ->
DeleteTransitGatewayConnectPeerResponse
newDeleteTransitGatewayConnectPeerResponse :: Int -> DeleteTransitGatewayConnectPeerResponse
newDeleteTransitGatewayConnectPeerResponse
Int
pHttpStatus_ =
DeleteTransitGatewayConnectPeerResponse'
{ $sel:transitGatewayConnectPeer:DeleteTransitGatewayConnectPeerResponse' :: Maybe TransitGatewayConnectPeer
transitGatewayConnectPeer =
forall a. Maybe a
Prelude.Nothing,
$sel:httpStatus:DeleteTransitGatewayConnectPeerResponse' :: Int
httpStatus = Int
pHttpStatus_
}
deleteTransitGatewayConnectPeerResponse_transitGatewayConnectPeer :: Lens.Lens' DeleteTransitGatewayConnectPeerResponse (Prelude.Maybe TransitGatewayConnectPeer)
deleteTransitGatewayConnectPeerResponse_transitGatewayConnectPeer :: Lens'
DeleteTransitGatewayConnectPeerResponse
(Maybe TransitGatewayConnectPeer)
deleteTransitGatewayConnectPeerResponse_transitGatewayConnectPeer = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DeleteTransitGatewayConnectPeerResponse' {Maybe TransitGatewayConnectPeer
transitGatewayConnectPeer :: Maybe TransitGatewayConnectPeer
$sel:transitGatewayConnectPeer:DeleteTransitGatewayConnectPeerResponse' :: DeleteTransitGatewayConnectPeerResponse
-> Maybe TransitGatewayConnectPeer
transitGatewayConnectPeer} -> Maybe TransitGatewayConnectPeer
transitGatewayConnectPeer) (\s :: DeleteTransitGatewayConnectPeerResponse
s@DeleteTransitGatewayConnectPeerResponse' {} Maybe TransitGatewayConnectPeer
a -> DeleteTransitGatewayConnectPeerResponse
s {$sel:transitGatewayConnectPeer:DeleteTransitGatewayConnectPeerResponse' :: Maybe TransitGatewayConnectPeer
transitGatewayConnectPeer = Maybe TransitGatewayConnectPeer
a} :: DeleteTransitGatewayConnectPeerResponse)
deleteTransitGatewayConnectPeerResponse_httpStatus :: Lens.Lens' DeleteTransitGatewayConnectPeerResponse Prelude.Int
deleteTransitGatewayConnectPeerResponse_httpStatus :: Lens' DeleteTransitGatewayConnectPeerResponse Int
deleteTransitGatewayConnectPeerResponse_httpStatus = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DeleteTransitGatewayConnectPeerResponse' {Int
httpStatus :: Int
$sel:httpStatus:DeleteTransitGatewayConnectPeerResponse' :: DeleteTransitGatewayConnectPeerResponse -> Int
httpStatus} -> Int
httpStatus) (\s :: DeleteTransitGatewayConnectPeerResponse
s@DeleteTransitGatewayConnectPeerResponse' {} Int
a -> DeleteTransitGatewayConnectPeerResponse
s {$sel:httpStatus:DeleteTransitGatewayConnectPeerResponse' :: Int
httpStatus = Int
a} :: DeleteTransitGatewayConnectPeerResponse)
instance
Prelude.NFData
DeleteTransitGatewayConnectPeerResponse
where
rnf :: DeleteTransitGatewayConnectPeerResponse -> ()
rnf DeleteTransitGatewayConnectPeerResponse' {Int
Maybe TransitGatewayConnectPeer
httpStatus :: Int
transitGatewayConnectPeer :: Maybe TransitGatewayConnectPeer
$sel:httpStatus:DeleteTransitGatewayConnectPeerResponse' :: DeleteTransitGatewayConnectPeerResponse -> Int
$sel:transitGatewayConnectPeer:DeleteTransitGatewayConnectPeerResponse' :: DeleteTransitGatewayConnectPeerResponse
-> Maybe TransitGatewayConnectPeer
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe TransitGatewayConnectPeer
transitGatewayConnectPeer
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Int
httpStatus