{-# 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.DeleteCoreNetworkPolicyVersion
(
DeleteCoreNetworkPolicyVersion (..),
newDeleteCoreNetworkPolicyVersion,
deleteCoreNetworkPolicyVersion_coreNetworkId,
deleteCoreNetworkPolicyVersion_policyVersionId,
DeleteCoreNetworkPolicyVersionResponse (..),
newDeleteCoreNetworkPolicyVersionResponse,
deleteCoreNetworkPolicyVersionResponse_coreNetworkPolicy,
deleteCoreNetworkPolicyVersionResponse_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 DeleteCoreNetworkPolicyVersion = DeleteCoreNetworkPolicyVersion'
{
DeleteCoreNetworkPolicyVersion -> Text
coreNetworkId :: Prelude.Text,
DeleteCoreNetworkPolicyVersion -> Int
policyVersionId :: Prelude.Int
}
deriving (DeleteCoreNetworkPolicyVersion
-> DeleteCoreNetworkPolicyVersion -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: DeleteCoreNetworkPolicyVersion
-> DeleteCoreNetworkPolicyVersion -> Bool
$c/= :: DeleteCoreNetworkPolicyVersion
-> DeleteCoreNetworkPolicyVersion -> Bool
== :: DeleteCoreNetworkPolicyVersion
-> DeleteCoreNetworkPolicyVersion -> Bool
$c== :: DeleteCoreNetworkPolicyVersion
-> DeleteCoreNetworkPolicyVersion -> Bool
Prelude.Eq, ReadPrec [DeleteCoreNetworkPolicyVersion]
ReadPrec DeleteCoreNetworkPolicyVersion
Int -> ReadS DeleteCoreNetworkPolicyVersion
ReadS [DeleteCoreNetworkPolicyVersion]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [DeleteCoreNetworkPolicyVersion]
$creadListPrec :: ReadPrec [DeleteCoreNetworkPolicyVersion]
readPrec :: ReadPrec DeleteCoreNetworkPolicyVersion
$creadPrec :: ReadPrec DeleteCoreNetworkPolicyVersion
readList :: ReadS [DeleteCoreNetworkPolicyVersion]
$creadList :: ReadS [DeleteCoreNetworkPolicyVersion]
readsPrec :: Int -> ReadS DeleteCoreNetworkPolicyVersion
$creadsPrec :: Int -> ReadS DeleteCoreNetworkPolicyVersion
Prelude.Read, Int -> DeleteCoreNetworkPolicyVersion -> ShowS
[DeleteCoreNetworkPolicyVersion] -> ShowS
DeleteCoreNetworkPolicyVersion -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [DeleteCoreNetworkPolicyVersion] -> ShowS
$cshowList :: [DeleteCoreNetworkPolicyVersion] -> ShowS
show :: DeleteCoreNetworkPolicyVersion -> String
$cshow :: DeleteCoreNetworkPolicyVersion -> String
showsPrec :: Int -> DeleteCoreNetworkPolicyVersion -> ShowS
$cshowsPrec :: Int -> DeleteCoreNetworkPolicyVersion -> ShowS
Prelude.Show, forall x.
Rep DeleteCoreNetworkPolicyVersion x
-> DeleteCoreNetworkPolicyVersion
forall x.
DeleteCoreNetworkPolicyVersion
-> Rep DeleteCoreNetworkPolicyVersion x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep DeleteCoreNetworkPolicyVersion x
-> DeleteCoreNetworkPolicyVersion
$cfrom :: forall x.
DeleteCoreNetworkPolicyVersion
-> Rep DeleteCoreNetworkPolicyVersion x
Prelude.Generic)
newDeleteCoreNetworkPolicyVersion ::
Prelude.Text ->
Prelude.Int ->
DeleteCoreNetworkPolicyVersion
newDeleteCoreNetworkPolicyVersion :: Text -> Int -> DeleteCoreNetworkPolicyVersion
newDeleteCoreNetworkPolicyVersion
Text
pCoreNetworkId_
Int
pPolicyVersionId_ =
DeleteCoreNetworkPolicyVersion'
{ $sel:coreNetworkId:DeleteCoreNetworkPolicyVersion' :: Text
coreNetworkId =
Text
pCoreNetworkId_,
$sel:policyVersionId:DeleteCoreNetworkPolicyVersion' :: Int
policyVersionId = Int
pPolicyVersionId_
}
deleteCoreNetworkPolicyVersion_coreNetworkId :: Lens.Lens' DeleteCoreNetworkPolicyVersion Prelude.Text
deleteCoreNetworkPolicyVersion_coreNetworkId :: Lens' DeleteCoreNetworkPolicyVersion Text
deleteCoreNetworkPolicyVersion_coreNetworkId = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DeleteCoreNetworkPolicyVersion' {Text
coreNetworkId :: Text
$sel:coreNetworkId:DeleteCoreNetworkPolicyVersion' :: DeleteCoreNetworkPolicyVersion -> Text
coreNetworkId} -> Text
coreNetworkId) (\s :: DeleteCoreNetworkPolicyVersion
s@DeleteCoreNetworkPolicyVersion' {} Text
a -> DeleteCoreNetworkPolicyVersion
s {$sel:coreNetworkId:DeleteCoreNetworkPolicyVersion' :: Text
coreNetworkId = Text
a} :: DeleteCoreNetworkPolicyVersion)
deleteCoreNetworkPolicyVersion_policyVersionId :: Lens.Lens' DeleteCoreNetworkPolicyVersion Prelude.Int
deleteCoreNetworkPolicyVersion_policyVersionId :: Lens' DeleteCoreNetworkPolicyVersion Int
deleteCoreNetworkPolicyVersion_policyVersionId = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DeleteCoreNetworkPolicyVersion' {Int
policyVersionId :: Int
$sel:policyVersionId:DeleteCoreNetworkPolicyVersion' :: DeleteCoreNetworkPolicyVersion -> Int
policyVersionId} -> Int
policyVersionId) (\s :: DeleteCoreNetworkPolicyVersion
s@DeleteCoreNetworkPolicyVersion' {} Int
a -> DeleteCoreNetworkPolicyVersion
s {$sel:policyVersionId:DeleteCoreNetworkPolicyVersion' :: Int
policyVersionId = Int
a} :: DeleteCoreNetworkPolicyVersion)
instance
Core.AWSRequest
DeleteCoreNetworkPolicyVersion
where
type
AWSResponse DeleteCoreNetworkPolicyVersion =
DeleteCoreNetworkPolicyVersionResponse
request :: (Service -> Service)
-> DeleteCoreNetworkPolicyVersion
-> Request DeleteCoreNetworkPolicyVersion
request Service -> Service
overrides =
forall a. ToRequest a => Service -> a -> Request a
Request.delete (Service -> Service
overrides Service
defaultService)
response :: forall (m :: * -> *).
MonadResource m =>
(ByteStringLazy -> IO ByteStringLazy)
-> Service
-> Proxy DeleteCoreNetworkPolicyVersion
-> ClientResponse ClientBody
-> m (Either
Error
(ClientResponse (AWSResponse DeleteCoreNetworkPolicyVersion)))
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 CoreNetworkPolicy
-> Int -> DeleteCoreNetworkPolicyVersionResponse
DeleteCoreNetworkPolicyVersionResponse'
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
"CoreNetworkPolicy")
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
DeleteCoreNetworkPolicyVersion
where
hashWithSalt :: Int -> DeleteCoreNetworkPolicyVersion -> Int
hashWithSalt
Int
_salt
DeleteCoreNetworkPolicyVersion' {Int
Text
policyVersionId :: Int
coreNetworkId :: Text
$sel:policyVersionId:DeleteCoreNetworkPolicyVersion' :: DeleteCoreNetworkPolicyVersion -> Int
$sel:coreNetworkId:DeleteCoreNetworkPolicyVersion' :: DeleteCoreNetworkPolicyVersion -> Text
..} =
Int
_salt
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
coreNetworkId
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Int
policyVersionId
instance
Prelude.NFData
DeleteCoreNetworkPolicyVersion
where
rnf :: DeleteCoreNetworkPolicyVersion -> ()
rnf DeleteCoreNetworkPolicyVersion' {Int
Text
policyVersionId :: Int
coreNetworkId :: Text
$sel:policyVersionId:DeleteCoreNetworkPolicyVersion' :: DeleteCoreNetworkPolicyVersion -> Int
$sel:coreNetworkId:DeleteCoreNetworkPolicyVersion' :: DeleteCoreNetworkPolicyVersion -> Text
..} =
forall a. NFData a => a -> ()
Prelude.rnf Text
coreNetworkId
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Int
policyVersionId
instance
Data.ToHeaders
DeleteCoreNetworkPolicyVersion
where
toHeaders :: DeleteCoreNetworkPolicyVersion -> 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 DeleteCoreNetworkPolicyVersion where
toPath :: DeleteCoreNetworkPolicyVersion -> ByteString
toPath DeleteCoreNetworkPolicyVersion' {Int
Text
policyVersionId :: Int
coreNetworkId :: Text
$sel:policyVersionId:DeleteCoreNetworkPolicyVersion' :: DeleteCoreNetworkPolicyVersion -> Int
$sel:coreNetworkId:DeleteCoreNetworkPolicyVersion' :: DeleteCoreNetworkPolicyVersion -> Text
..} =
forall a. Monoid a => [a] -> a
Prelude.mconcat
[ ByteString
"/core-networks/",
forall a. ToByteString a => a -> ByteString
Data.toBS Text
coreNetworkId,
ByteString
"/core-network-policy-versions/",
forall a. ToByteString a => a -> ByteString
Data.toBS Int
policyVersionId
]
instance Data.ToQuery DeleteCoreNetworkPolicyVersion where
toQuery :: DeleteCoreNetworkPolicyVersion -> QueryString
toQuery = forall a b. a -> b -> a
Prelude.const forall a. Monoid a => a
Prelude.mempty
data DeleteCoreNetworkPolicyVersionResponse = DeleteCoreNetworkPolicyVersionResponse'
{
DeleteCoreNetworkPolicyVersionResponse -> Maybe CoreNetworkPolicy
coreNetworkPolicy :: Prelude.Maybe CoreNetworkPolicy,
DeleteCoreNetworkPolicyVersionResponse -> Int
httpStatus :: Prelude.Int
}
deriving (DeleteCoreNetworkPolicyVersionResponse
-> DeleteCoreNetworkPolicyVersionResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: DeleteCoreNetworkPolicyVersionResponse
-> DeleteCoreNetworkPolicyVersionResponse -> Bool
$c/= :: DeleteCoreNetworkPolicyVersionResponse
-> DeleteCoreNetworkPolicyVersionResponse -> Bool
== :: DeleteCoreNetworkPolicyVersionResponse
-> DeleteCoreNetworkPolicyVersionResponse -> Bool
$c== :: DeleteCoreNetworkPolicyVersionResponse
-> DeleteCoreNetworkPolicyVersionResponse -> Bool
Prelude.Eq, ReadPrec [DeleteCoreNetworkPolicyVersionResponse]
ReadPrec DeleteCoreNetworkPolicyVersionResponse
Int -> ReadS DeleteCoreNetworkPolicyVersionResponse
ReadS [DeleteCoreNetworkPolicyVersionResponse]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [DeleteCoreNetworkPolicyVersionResponse]
$creadListPrec :: ReadPrec [DeleteCoreNetworkPolicyVersionResponse]
readPrec :: ReadPrec DeleteCoreNetworkPolicyVersionResponse
$creadPrec :: ReadPrec DeleteCoreNetworkPolicyVersionResponse
readList :: ReadS [DeleteCoreNetworkPolicyVersionResponse]
$creadList :: ReadS [DeleteCoreNetworkPolicyVersionResponse]
readsPrec :: Int -> ReadS DeleteCoreNetworkPolicyVersionResponse
$creadsPrec :: Int -> ReadS DeleteCoreNetworkPolicyVersionResponse
Prelude.Read, Int -> DeleteCoreNetworkPolicyVersionResponse -> ShowS
[DeleteCoreNetworkPolicyVersionResponse] -> ShowS
DeleteCoreNetworkPolicyVersionResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [DeleteCoreNetworkPolicyVersionResponse] -> ShowS
$cshowList :: [DeleteCoreNetworkPolicyVersionResponse] -> ShowS
show :: DeleteCoreNetworkPolicyVersionResponse -> String
$cshow :: DeleteCoreNetworkPolicyVersionResponse -> String
showsPrec :: Int -> DeleteCoreNetworkPolicyVersionResponse -> ShowS
$cshowsPrec :: Int -> DeleteCoreNetworkPolicyVersionResponse -> ShowS
Prelude.Show, forall x.
Rep DeleteCoreNetworkPolicyVersionResponse x
-> DeleteCoreNetworkPolicyVersionResponse
forall x.
DeleteCoreNetworkPolicyVersionResponse
-> Rep DeleteCoreNetworkPolicyVersionResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep DeleteCoreNetworkPolicyVersionResponse x
-> DeleteCoreNetworkPolicyVersionResponse
$cfrom :: forall x.
DeleteCoreNetworkPolicyVersionResponse
-> Rep DeleteCoreNetworkPolicyVersionResponse x
Prelude.Generic)
newDeleteCoreNetworkPolicyVersionResponse ::
Prelude.Int ->
DeleteCoreNetworkPolicyVersionResponse
newDeleteCoreNetworkPolicyVersionResponse :: Int -> DeleteCoreNetworkPolicyVersionResponse
newDeleteCoreNetworkPolicyVersionResponse
Int
pHttpStatus_ =
DeleteCoreNetworkPolicyVersionResponse'
{ $sel:coreNetworkPolicy:DeleteCoreNetworkPolicyVersionResponse' :: Maybe CoreNetworkPolicy
coreNetworkPolicy =
forall a. Maybe a
Prelude.Nothing,
$sel:httpStatus:DeleteCoreNetworkPolicyVersionResponse' :: Int
httpStatus = Int
pHttpStatus_
}
deleteCoreNetworkPolicyVersionResponse_coreNetworkPolicy :: Lens.Lens' DeleteCoreNetworkPolicyVersionResponse (Prelude.Maybe CoreNetworkPolicy)
deleteCoreNetworkPolicyVersionResponse_coreNetworkPolicy :: Lens'
DeleteCoreNetworkPolicyVersionResponse (Maybe CoreNetworkPolicy)
deleteCoreNetworkPolicyVersionResponse_coreNetworkPolicy = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DeleteCoreNetworkPolicyVersionResponse' {Maybe CoreNetworkPolicy
coreNetworkPolicy :: Maybe CoreNetworkPolicy
$sel:coreNetworkPolicy:DeleteCoreNetworkPolicyVersionResponse' :: DeleteCoreNetworkPolicyVersionResponse -> Maybe CoreNetworkPolicy
coreNetworkPolicy} -> Maybe CoreNetworkPolicy
coreNetworkPolicy) (\s :: DeleteCoreNetworkPolicyVersionResponse
s@DeleteCoreNetworkPolicyVersionResponse' {} Maybe CoreNetworkPolicy
a -> DeleteCoreNetworkPolicyVersionResponse
s {$sel:coreNetworkPolicy:DeleteCoreNetworkPolicyVersionResponse' :: Maybe CoreNetworkPolicy
coreNetworkPolicy = Maybe CoreNetworkPolicy
a} :: DeleteCoreNetworkPolicyVersionResponse)
deleteCoreNetworkPolicyVersionResponse_httpStatus :: Lens.Lens' DeleteCoreNetworkPolicyVersionResponse Prelude.Int
deleteCoreNetworkPolicyVersionResponse_httpStatus :: Lens' DeleteCoreNetworkPolicyVersionResponse Int
deleteCoreNetworkPolicyVersionResponse_httpStatus = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DeleteCoreNetworkPolicyVersionResponse' {Int
httpStatus :: Int
$sel:httpStatus:DeleteCoreNetworkPolicyVersionResponse' :: DeleteCoreNetworkPolicyVersionResponse -> Int
httpStatus} -> Int
httpStatus) (\s :: DeleteCoreNetworkPolicyVersionResponse
s@DeleteCoreNetworkPolicyVersionResponse' {} Int
a -> DeleteCoreNetworkPolicyVersionResponse
s {$sel:httpStatus:DeleteCoreNetworkPolicyVersionResponse' :: Int
httpStatus = Int
a} :: DeleteCoreNetworkPolicyVersionResponse)
instance
Prelude.NFData
DeleteCoreNetworkPolicyVersionResponse
where
rnf :: DeleteCoreNetworkPolicyVersionResponse -> ()
rnf DeleteCoreNetworkPolicyVersionResponse' {Int
Maybe CoreNetworkPolicy
httpStatus :: Int
coreNetworkPolicy :: Maybe CoreNetworkPolicy
$sel:httpStatus:DeleteCoreNetworkPolicyVersionResponse' :: DeleteCoreNetworkPolicyVersionResponse -> Int
$sel:coreNetworkPolicy:DeleteCoreNetworkPolicyVersionResponse' :: DeleteCoreNetworkPolicyVersionResponse -> Maybe CoreNetworkPolicy
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe CoreNetworkPolicy
coreNetworkPolicy
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Int
httpStatus