{-# 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.DeleteTransitGatewayPolicyTable
(
DeleteTransitGatewayPolicyTable (..),
newDeleteTransitGatewayPolicyTable,
deleteTransitGatewayPolicyTable_dryRun,
deleteTransitGatewayPolicyTable_transitGatewayPolicyTableId,
DeleteTransitGatewayPolicyTableResponse (..),
newDeleteTransitGatewayPolicyTableResponse,
deleteTransitGatewayPolicyTableResponse_transitGatewayPolicyTable,
deleteTransitGatewayPolicyTableResponse_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 DeleteTransitGatewayPolicyTable = DeleteTransitGatewayPolicyTable'
{
DeleteTransitGatewayPolicyTable -> Maybe Bool
dryRun :: Prelude.Maybe Prelude.Bool,
DeleteTransitGatewayPolicyTable -> Text
transitGatewayPolicyTableId :: Prelude.Text
}
deriving (DeleteTransitGatewayPolicyTable
-> DeleteTransitGatewayPolicyTable -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: DeleteTransitGatewayPolicyTable
-> DeleteTransitGatewayPolicyTable -> Bool
$c/= :: DeleteTransitGatewayPolicyTable
-> DeleteTransitGatewayPolicyTable -> Bool
== :: DeleteTransitGatewayPolicyTable
-> DeleteTransitGatewayPolicyTable -> Bool
$c== :: DeleteTransitGatewayPolicyTable
-> DeleteTransitGatewayPolicyTable -> Bool
Prelude.Eq, ReadPrec [DeleteTransitGatewayPolicyTable]
ReadPrec DeleteTransitGatewayPolicyTable
Int -> ReadS DeleteTransitGatewayPolicyTable
ReadS [DeleteTransitGatewayPolicyTable]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [DeleteTransitGatewayPolicyTable]
$creadListPrec :: ReadPrec [DeleteTransitGatewayPolicyTable]
readPrec :: ReadPrec DeleteTransitGatewayPolicyTable
$creadPrec :: ReadPrec DeleteTransitGatewayPolicyTable
readList :: ReadS [DeleteTransitGatewayPolicyTable]
$creadList :: ReadS [DeleteTransitGatewayPolicyTable]
readsPrec :: Int -> ReadS DeleteTransitGatewayPolicyTable
$creadsPrec :: Int -> ReadS DeleteTransitGatewayPolicyTable
Prelude.Read, Int -> DeleteTransitGatewayPolicyTable -> ShowS
[DeleteTransitGatewayPolicyTable] -> ShowS
DeleteTransitGatewayPolicyTable -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [DeleteTransitGatewayPolicyTable] -> ShowS
$cshowList :: [DeleteTransitGatewayPolicyTable] -> ShowS
show :: DeleteTransitGatewayPolicyTable -> String
$cshow :: DeleteTransitGatewayPolicyTable -> String
showsPrec :: Int -> DeleteTransitGatewayPolicyTable -> ShowS
$cshowsPrec :: Int -> DeleteTransitGatewayPolicyTable -> ShowS
Prelude.Show, forall x.
Rep DeleteTransitGatewayPolicyTable x
-> DeleteTransitGatewayPolicyTable
forall x.
DeleteTransitGatewayPolicyTable
-> Rep DeleteTransitGatewayPolicyTable x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep DeleteTransitGatewayPolicyTable x
-> DeleteTransitGatewayPolicyTable
$cfrom :: forall x.
DeleteTransitGatewayPolicyTable
-> Rep DeleteTransitGatewayPolicyTable x
Prelude.Generic)
newDeleteTransitGatewayPolicyTable ::
Prelude.Text ->
DeleteTransitGatewayPolicyTable
newDeleteTransitGatewayPolicyTable :: Text -> DeleteTransitGatewayPolicyTable
newDeleteTransitGatewayPolicyTable
Text
pTransitGatewayPolicyTableId_ =
DeleteTransitGatewayPolicyTable'
{ $sel:dryRun:DeleteTransitGatewayPolicyTable' :: Maybe Bool
dryRun =
forall a. Maybe a
Prelude.Nothing,
$sel:transitGatewayPolicyTableId:DeleteTransitGatewayPolicyTable' :: Text
transitGatewayPolicyTableId =
Text
pTransitGatewayPolicyTableId_
}
deleteTransitGatewayPolicyTable_dryRun :: Lens.Lens' DeleteTransitGatewayPolicyTable (Prelude.Maybe Prelude.Bool)
deleteTransitGatewayPolicyTable_dryRun :: Lens' DeleteTransitGatewayPolicyTable (Maybe Bool)
deleteTransitGatewayPolicyTable_dryRun = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DeleteTransitGatewayPolicyTable' {Maybe Bool
dryRun :: Maybe Bool
$sel:dryRun:DeleteTransitGatewayPolicyTable' :: DeleteTransitGatewayPolicyTable -> Maybe Bool
dryRun} -> Maybe Bool
dryRun) (\s :: DeleteTransitGatewayPolicyTable
s@DeleteTransitGatewayPolicyTable' {} Maybe Bool
a -> DeleteTransitGatewayPolicyTable
s {$sel:dryRun:DeleteTransitGatewayPolicyTable' :: Maybe Bool
dryRun = Maybe Bool
a} :: DeleteTransitGatewayPolicyTable)
deleteTransitGatewayPolicyTable_transitGatewayPolicyTableId :: Lens.Lens' DeleteTransitGatewayPolicyTable Prelude.Text
deleteTransitGatewayPolicyTable_transitGatewayPolicyTableId :: Lens' DeleteTransitGatewayPolicyTable Text
deleteTransitGatewayPolicyTable_transitGatewayPolicyTableId = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DeleteTransitGatewayPolicyTable' {Text
transitGatewayPolicyTableId :: Text
$sel:transitGatewayPolicyTableId:DeleteTransitGatewayPolicyTable' :: DeleteTransitGatewayPolicyTable -> Text
transitGatewayPolicyTableId} -> Text
transitGatewayPolicyTableId) (\s :: DeleteTransitGatewayPolicyTable
s@DeleteTransitGatewayPolicyTable' {} Text
a -> DeleteTransitGatewayPolicyTable
s {$sel:transitGatewayPolicyTableId:DeleteTransitGatewayPolicyTable' :: Text
transitGatewayPolicyTableId = Text
a} :: DeleteTransitGatewayPolicyTable)
instance
Core.AWSRequest
DeleteTransitGatewayPolicyTable
where
type
AWSResponse DeleteTransitGatewayPolicyTable =
DeleteTransitGatewayPolicyTableResponse
request :: (Service -> Service)
-> DeleteTransitGatewayPolicyTable
-> Request DeleteTransitGatewayPolicyTable
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 DeleteTransitGatewayPolicyTable
-> ClientResponse ClientBody
-> m (Either
Error
(ClientResponse (AWSResponse DeleteTransitGatewayPolicyTable)))
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 TransitGatewayPolicyTable
-> Int -> DeleteTransitGatewayPolicyTableResponse
DeleteTransitGatewayPolicyTableResponse'
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
"transitGatewayPolicyTable")
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
DeleteTransitGatewayPolicyTable
where
hashWithSalt :: Int -> DeleteTransitGatewayPolicyTable -> Int
hashWithSalt
Int
_salt
DeleteTransitGatewayPolicyTable' {Maybe Bool
Text
transitGatewayPolicyTableId :: Text
dryRun :: Maybe Bool
$sel:transitGatewayPolicyTableId:DeleteTransitGatewayPolicyTable' :: DeleteTransitGatewayPolicyTable -> Text
$sel:dryRun:DeleteTransitGatewayPolicyTable' :: DeleteTransitGatewayPolicyTable -> 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
transitGatewayPolicyTableId
instance
Prelude.NFData
DeleteTransitGatewayPolicyTable
where
rnf :: DeleteTransitGatewayPolicyTable -> ()
rnf DeleteTransitGatewayPolicyTable' {Maybe Bool
Text
transitGatewayPolicyTableId :: Text
dryRun :: Maybe Bool
$sel:transitGatewayPolicyTableId:DeleteTransitGatewayPolicyTable' :: DeleteTransitGatewayPolicyTable -> Text
$sel:dryRun:DeleteTransitGatewayPolicyTable' :: DeleteTransitGatewayPolicyTable -> 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
transitGatewayPolicyTableId
instance
Data.ToHeaders
DeleteTransitGatewayPolicyTable
where
toHeaders :: DeleteTransitGatewayPolicyTable -> ResponseHeaders
toHeaders = forall a b. a -> b -> a
Prelude.const forall a. Monoid a => a
Prelude.mempty
instance Data.ToPath DeleteTransitGatewayPolicyTable where
toPath :: DeleteTransitGatewayPolicyTable -> ByteString
toPath = forall a b. a -> b -> a
Prelude.const ByteString
"/"
instance Data.ToQuery DeleteTransitGatewayPolicyTable where
toQuery :: DeleteTransitGatewayPolicyTable -> QueryString
toQuery DeleteTransitGatewayPolicyTable' {Maybe Bool
Text
transitGatewayPolicyTableId :: Text
dryRun :: Maybe Bool
$sel:transitGatewayPolicyTableId:DeleteTransitGatewayPolicyTable' :: DeleteTransitGatewayPolicyTable -> Text
$sel:dryRun:DeleteTransitGatewayPolicyTable' :: DeleteTransitGatewayPolicyTable -> Maybe Bool
..} =
forall a. Monoid a => [a] -> a
Prelude.mconcat
[ ByteString
"Action"
forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: ( ByteString
"DeleteTransitGatewayPolicyTable" ::
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
"TransitGatewayPolicyTableId"
forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: Text
transitGatewayPolicyTableId
]
data DeleteTransitGatewayPolicyTableResponse = DeleteTransitGatewayPolicyTableResponse'
{
DeleteTransitGatewayPolicyTableResponse
-> Maybe TransitGatewayPolicyTable
transitGatewayPolicyTable :: Prelude.Maybe TransitGatewayPolicyTable,
DeleteTransitGatewayPolicyTableResponse -> Int
httpStatus :: Prelude.Int
}
deriving (DeleteTransitGatewayPolicyTableResponse
-> DeleteTransitGatewayPolicyTableResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: DeleteTransitGatewayPolicyTableResponse
-> DeleteTransitGatewayPolicyTableResponse -> Bool
$c/= :: DeleteTransitGatewayPolicyTableResponse
-> DeleteTransitGatewayPolicyTableResponse -> Bool
== :: DeleteTransitGatewayPolicyTableResponse
-> DeleteTransitGatewayPolicyTableResponse -> Bool
$c== :: DeleteTransitGatewayPolicyTableResponse
-> DeleteTransitGatewayPolicyTableResponse -> Bool
Prelude.Eq, ReadPrec [DeleteTransitGatewayPolicyTableResponse]
ReadPrec DeleteTransitGatewayPolicyTableResponse
Int -> ReadS DeleteTransitGatewayPolicyTableResponse
ReadS [DeleteTransitGatewayPolicyTableResponse]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [DeleteTransitGatewayPolicyTableResponse]
$creadListPrec :: ReadPrec [DeleteTransitGatewayPolicyTableResponse]
readPrec :: ReadPrec DeleteTransitGatewayPolicyTableResponse
$creadPrec :: ReadPrec DeleteTransitGatewayPolicyTableResponse
readList :: ReadS [DeleteTransitGatewayPolicyTableResponse]
$creadList :: ReadS [DeleteTransitGatewayPolicyTableResponse]
readsPrec :: Int -> ReadS DeleteTransitGatewayPolicyTableResponse
$creadsPrec :: Int -> ReadS DeleteTransitGatewayPolicyTableResponse
Prelude.Read, Int -> DeleteTransitGatewayPolicyTableResponse -> ShowS
[DeleteTransitGatewayPolicyTableResponse] -> ShowS
DeleteTransitGatewayPolicyTableResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [DeleteTransitGatewayPolicyTableResponse] -> ShowS
$cshowList :: [DeleteTransitGatewayPolicyTableResponse] -> ShowS
show :: DeleteTransitGatewayPolicyTableResponse -> String
$cshow :: DeleteTransitGatewayPolicyTableResponse -> String
showsPrec :: Int -> DeleteTransitGatewayPolicyTableResponse -> ShowS
$cshowsPrec :: Int -> DeleteTransitGatewayPolicyTableResponse -> ShowS
Prelude.Show, forall x.
Rep DeleteTransitGatewayPolicyTableResponse x
-> DeleteTransitGatewayPolicyTableResponse
forall x.
DeleteTransitGatewayPolicyTableResponse
-> Rep DeleteTransitGatewayPolicyTableResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep DeleteTransitGatewayPolicyTableResponse x
-> DeleteTransitGatewayPolicyTableResponse
$cfrom :: forall x.
DeleteTransitGatewayPolicyTableResponse
-> Rep DeleteTransitGatewayPolicyTableResponse x
Prelude.Generic)
newDeleteTransitGatewayPolicyTableResponse ::
Prelude.Int ->
DeleteTransitGatewayPolicyTableResponse
newDeleteTransitGatewayPolicyTableResponse :: Int -> DeleteTransitGatewayPolicyTableResponse
newDeleteTransitGatewayPolicyTableResponse
Int
pHttpStatus_ =
DeleteTransitGatewayPolicyTableResponse'
{ $sel:transitGatewayPolicyTable:DeleteTransitGatewayPolicyTableResponse' :: Maybe TransitGatewayPolicyTable
transitGatewayPolicyTable =
forall a. Maybe a
Prelude.Nothing,
$sel:httpStatus:DeleteTransitGatewayPolicyTableResponse' :: Int
httpStatus = Int
pHttpStatus_
}
deleteTransitGatewayPolicyTableResponse_transitGatewayPolicyTable :: Lens.Lens' DeleteTransitGatewayPolicyTableResponse (Prelude.Maybe TransitGatewayPolicyTable)
deleteTransitGatewayPolicyTableResponse_transitGatewayPolicyTable :: Lens'
DeleteTransitGatewayPolicyTableResponse
(Maybe TransitGatewayPolicyTable)
deleteTransitGatewayPolicyTableResponse_transitGatewayPolicyTable = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DeleteTransitGatewayPolicyTableResponse' {Maybe TransitGatewayPolicyTable
transitGatewayPolicyTable :: Maybe TransitGatewayPolicyTable
$sel:transitGatewayPolicyTable:DeleteTransitGatewayPolicyTableResponse' :: DeleteTransitGatewayPolicyTableResponse
-> Maybe TransitGatewayPolicyTable
transitGatewayPolicyTable} -> Maybe TransitGatewayPolicyTable
transitGatewayPolicyTable) (\s :: DeleteTransitGatewayPolicyTableResponse
s@DeleteTransitGatewayPolicyTableResponse' {} Maybe TransitGatewayPolicyTable
a -> DeleteTransitGatewayPolicyTableResponse
s {$sel:transitGatewayPolicyTable:DeleteTransitGatewayPolicyTableResponse' :: Maybe TransitGatewayPolicyTable
transitGatewayPolicyTable = Maybe TransitGatewayPolicyTable
a} :: DeleteTransitGatewayPolicyTableResponse)
deleteTransitGatewayPolicyTableResponse_httpStatus :: Lens.Lens' DeleteTransitGatewayPolicyTableResponse Prelude.Int
deleteTransitGatewayPolicyTableResponse_httpStatus :: Lens' DeleteTransitGatewayPolicyTableResponse Int
deleteTransitGatewayPolicyTableResponse_httpStatus = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DeleteTransitGatewayPolicyTableResponse' {Int
httpStatus :: Int
$sel:httpStatus:DeleteTransitGatewayPolicyTableResponse' :: DeleteTransitGatewayPolicyTableResponse -> Int
httpStatus} -> Int
httpStatus) (\s :: DeleteTransitGatewayPolicyTableResponse
s@DeleteTransitGatewayPolicyTableResponse' {} Int
a -> DeleteTransitGatewayPolicyTableResponse
s {$sel:httpStatus:DeleteTransitGatewayPolicyTableResponse' :: Int
httpStatus = Int
a} :: DeleteTransitGatewayPolicyTableResponse)
instance
Prelude.NFData
DeleteTransitGatewayPolicyTableResponse
where
rnf :: DeleteTransitGatewayPolicyTableResponse -> ()
rnf DeleteTransitGatewayPolicyTableResponse' {Int
Maybe TransitGatewayPolicyTable
httpStatus :: Int
transitGatewayPolicyTable :: Maybe TransitGatewayPolicyTable
$sel:httpStatus:DeleteTransitGatewayPolicyTableResponse' :: DeleteTransitGatewayPolicyTableResponse -> Int
$sel:transitGatewayPolicyTable:DeleteTransitGatewayPolicyTableResponse' :: DeleteTransitGatewayPolicyTableResponse
-> Maybe TransitGatewayPolicyTable
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe TransitGatewayPolicyTable
transitGatewayPolicyTable
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Int
httpStatus