{-# 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.AppMesh.DeleteVirtualNode
(
DeleteVirtualNode (..),
newDeleteVirtualNode,
deleteVirtualNode_meshOwner,
deleteVirtualNode_meshName,
deleteVirtualNode_virtualNodeName,
DeleteVirtualNodeResponse (..),
newDeleteVirtualNodeResponse,
deleteVirtualNodeResponse_httpStatus,
deleteVirtualNodeResponse_virtualNode,
)
where
import Amazonka.AppMesh.Types
import qualified Amazonka.Core as Core
import qualified Amazonka.Core.Lens.Internal as Lens
import qualified Amazonka.Data as Data
import qualified Amazonka.Prelude as Prelude
import qualified Amazonka.Request as Request
import qualified Amazonka.Response as Response
data DeleteVirtualNode = DeleteVirtualNode'
{
DeleteVirtualNode -> Maybe Text
meshOwner :: Prelude.Maybe Prelude.Text,
DeleteVirtualNode -> Text
meshName :: Prelude.Text,
DeleteVirtualNode -> Text
virtualNodeName :: Prelude.Text
}
deriving (DeleteVirtualNode -> DeleteVirtualNode -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: DeleteVirtualNode -> DeleteVirtualNode -> Bool
$c/= :: DeleteVirtualNode -> DeleteVirtualNode -> Bool
== :: DeleteVirtualNode -> DeleteVirtualNode -> Bool
$c== :: DeleteVirtualNode -> DeleteVirtualNode -> Bool
Prelude.Eq, ReadPrec [DeleteVirtualNode]
ReadPrec DeleteVirtualNode
Int -> ReadS DeleteVirtualNode
ReadS [DeleteVirtualNode]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [DeleteVirtualNode]
$creadListPrec :: ReadPrec [DeleteVirtualNode]
readPrec :: ReadPrec DeleteVirtualNode
$creadPrec :: ReadPrec DeleteVirtualNode
readList :: ReadS [DeleteVirtualNode]
$creadList :: ReadS [DeleteVirtualNode]
readsPrec :: Int -> ReadS DeleteVirtualNode
$creadsPrec :: Int -> ReadS DeleteVirtualNode
Prelude.Read, Int -> DeleteVirtualNode -> ShowS
[DeleteVirtualNode] -> ShowS
DeleteVirtualNode -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [DeleteVirtualNode] -> ShowS
$cshowList :: [DeleteVirtualNode] -> ShowS
show :: DeleteVirtualNode -> String
$cshow :: DeleteVirtualNode -> String
showsPrec :: Int -> DeleteVirtualNode -> ShowS
$cshowsPrec :: Int -> DeleteVirtualNode -> ShowS
Prelude.Show, forall x. Rep DeleteVirtualNode x -> DeleteVirtualNode
forall x. DeleteVirtualNode -> Rep DeleteVirtualNode x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep DeleteVirtualNode x -> DeleteVirtualNode
$cfrom :: forall x. DeleteVirtualNode -> Rep DeleteVirtualNode x
Prelude.Generic)
newDeleteVirtualNode ::
Prelude.Text ->
Prelude.Text ->
DeleteVirtualNode
newDeleteVirtualNode :: Text -> Text -> DeleteVirtualNode
newDeleteVirtualNode Text
pMeshName_ Text
pVirtualNodeName_ =
DeleteVirtualNode'
{ $sel:meshOwner:DeleteVirtualNode' :: Maybe Text
meshOwner = forall a. Maybe a
Prelude.Nothing,
$sel:meshName:DeleteVirtualNode' :: Text
meshName = Text
pMeshName_,
$sel:virtualNodeName:DeleteVirtualNode' :: Text
virtualNodeName = Text
pVirtualNodeName_
}
deleteVirtualNode_meshOwner :: Lens.Lens' DeleteVirtualNode (Prelude.Maybe Prelude.Text)
deleteVirtualNode_meshOwner :: Lens' DeleteVirtualNode (Maybe Text)
deleteVirtualNode_meshOwner = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DeleteVirtualNode' {Maybe Text
meshOwner :: Maybe Text
$sel:meshOwner:DeleteVirtualNode' :: DeleteVirtualNode -> Maybe Text
meshOwner} -> Maybe Text
meshOwner) (\s :: DeleteVirtualNode
s@DeleteVirtualNode' {} Maybe Text
a -> DeleteVirtualNode
s {$sel:meshOwner:DeleteVirtualNode' :: Maybe Text
meshOwner = Maybe Text
a} :: DeleteVirtualNode)
deleteVirtualNode_meshName :: Lens.Lens' DeleteVirtualNode Prelude.Text
deleteVirtualNode_meshName :: Lens' DeleteVirtualNode Text
deleteVirtualNode_meshName = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DeleteVirtualNode' {Text
meshName :: Text
$sel:meshName:DeleteVirtualNode' :: DeleteVirtualNode -> Text
meshName} -> Text
meshName) (\s :: DeleteVirtualNode
s@DeleteVirtualNode' {} Text
a -> DeleteVirtualNode
s {$sel:meshName:DeleteVirtualNode' :: Text
meshName = Text
a} :: DeleteVirtualNode)
deleteVirtualNode_virtualNodeName :: Lens.Lens' DeleteVirtualNode Prelude.Text
deleteVirtualNode_virtualNodeName :: Lens' DeleteVirtualNode Text
deleteVirtualNode_virtualNodeName = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DeleteVirtualNode' {Text
virtualNodeName :: Text
$sel:virtualNodeName:DeleteVirtualNode' :: DeleteVirtualNode -> Text
virtualNodeName} -> Text
virtualNodeName) (\s :: DeleteVirtualNode
s@DeleteVirtualNode' {} Text
a -> DeleteVirtualNode
s {$sel:virtualNodeName:DeleteVirtualNode' :: Text
virtualNodeName = Text
a} :: DeleteVirtualNode)
instance Core.AWSRequest DeleteVirtualNode where
type
AWSResponse DeleteVirtualNode =
DeleteVirtualNodeResponse
request :: (Service -> Service)
-> DeleteVirtualNode -> Request DeleteVirtualNode
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 DeleteVirtualNode
-> ClientResponse ClientBody
-> m (Either
Error (ClientResponse (AWSResponse DeleteVirtualNode)))
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 ->
Int -> VirtualNodeData -> DeleteVirtualNodeResponse
DeleteVirtualNodeResponse'
forall (f :: * -> *) a b. Functor 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))
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (forall a. FromJSON a => Object -> Either String a
Data.eitherParseJSON Object
x)
)
instance Prelude.Hashable DeleteVirtualNode where
hashWithSalt :: Int -> DeleteVirtualNode -> Int
hashWithSalt Int
_salt DeleteVirtualNode' {Maybe Text
Text
virtualNodeName :: Text
meshName :: Text
meshOwner :: Maybe Text
$sel:virtualNodeName:DeleteVirtualNode' :: DeleteVirtualNode -> Text
$sel:meshName:DeleteVirtualNode' :: DeleteVirtualNode -> Text
$sel:meshOwner:DeleteVirtualNode' :: DeleteVirtualNode -> Maybe Text
..} =
Int
_salt
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
meshOwner
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
meshName
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
virtualNodeName
instance Prelude.NFData DeleteVirtualNode where
rnf :: DeleteVirtualNode -> ()
rnf DeleteVirtualNode' {Maybe Text
Text
virtualNodeName :: Text
meshName :: Text
meshOwner :: Maybe Text
$sel:virtualNodeName:DeleteVirtualNode' :: DeleteVirtualNode -> Text
$sel:meshName:DeleteVirtualNode' :: DeleteVirtualNode -> Text
$sel:meshOwner:DeleteVirtualNode' :: DeleteVirtualNode -> Maybe Text
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
meshOwner
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Text
meshName
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Text
virtualNodeName
instance Data.ToHeaders DeleteVirtualNode where
toHeaders :: DeleteVirtualNode -> 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 DeleteVirtualNode where
toPath :: DeleteVirtualNode -> ByteString
toPath DeleteVirtualNode' {Maybe Text
Text
virtualNodeName :: Text
meshName :: Text
meshOwner :: Maybe Text
$sel:virtualNodeName:DeleteVirtualNode' :: DeleteVirtualNode -> Text
$sel:meshName:DeleteVirtualNode' :: DeleteVirtualNode -> Text
$sel:meshOwner:DeleteVirtualNode' :: DeleteVirtualNode -> Maybe Text
..} =
forall a. Monoid a => [a] -> a
Prelude.mconcat
[ ByteString
"/v20190125/meshes/",
forall a. ToByteString a => a -> ByteString
Data.toBS Text
meshName,
ByteString
"/virtualNodes/",
forall a. ToByteString a => a -> ByteString
Data.toBS Text
virtualNodeName
]
instance Data.ToQuery DeleteVirtualNode where
toQuery :: DeleteVirtualNode -> QueryString
toQuery DeleteVirtualNode' {Maybe Text
Text
virtualNodeName :: Text
meshName :: Text
meshOwner :: Maybe Text
$sel:virtualNodeName:DeleteVirtualNode' :: DeleteVirtualNode -> Text
$sel:meshName:DeleteVirtualNode' :: DeleteVirtualNode -> Text
$sel:meshOwner:DeleteVirtualNode' :: DeleteVirtualNode -> Maybe Text
..} =
forall a. Monoid a => [a] -> a
Prelude.mconcat [ByteString
"meshOwner" forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: Maybe Text
meshOwner]
data DeleteVirtualNodeResponse = DeleteVirtualNodeResponse'
{
DeleteVirtualNodeResponse -> Int
httpStatus :: Prelude.Int,
DeleteVirtualNodeResponse -> VirtualNodeData
virtualNode :: VirtualNodeData
}
deriving (DeleteVirtualNodeResponse -> DeleteVirtualNodeResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: DeleteVirtualNodeResponse -> DeleteVirtualNodeResponse -> Bool
$c/= :: DeleteVirtualNodeResponse -> DeleteVirtualNodeResponse -> Bool
== :: DeleteVirtualNodeResponse -> DeleteVirtualNodeResponse -> Bool
$c== :: DeleteVirtualNodeResponse -> DeleteVirtualNodeResponse -> Bool
Prelude.Eq, ReadPrec [DeleteVirtualNodeResponse]
ReadPrec DeleteVirtualNodeResponse
Int -> ReadS DeleteVirtualNodeResponse
ReadS [DeleteVirtualNodeResponse]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [DeleteVirtualNodeResponse]
$creadListPrec :: ReadPrec [DeleteVirtualNodeResponse]
readPrec :: ReadPrec DeleteVirtualNodeResponse
$creadPrec :: ReadPrec DeleteVirtualNodeResponse
readList :: ReadS [DeleteVirtualNodeResponse]
$creadList :: ReadS [DeleteVirtualNodeResponse]
readsPrec :: Int -> ReadS DeleteVirtualNodeResponse
$creadsPrec :: Int -> ReadS DeleteVirtualNodeResponse
Prelude.Read, Int -> DeleteVirtualNodeResponse -> ShowS
[DeleteVirtualNodeResponse] -> ShowS
DeleteVirtualNodeResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [DeleteVirtualNodeResponse] -> ShowS
$cshowList :: [DeleteVirtualNodeResponse] -> ShowS
show :: DeleteVirtualNodeResponse -> String
$cshow :: DeleteVirtualNodeResponse -> String
showsPrec :: Int -> DeleteVirtualNodeResponse -> ShowS
$cshowsPrec :: Int -> DeleteVirtualNodeResponse -> ShowS
Prelude.Show, forall x.
Rep DeleteVirtualNodeResponse x -> DeleteVirtualNodeResponse
forall x.
DeleteVirtualNodeResponse -> Rep DeleteVirtualNodeResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep DeleteVirtualNodeResponse x -> DeleteVirtualNodeResponse
$cfrom :: forall x.
DeleteVirtualNodeResponse -> Rep DeleteVirtualNodeResponse x
Prelude.Generic)
newDeleteVirtualNodeResponse ::
Prelude.Int ->
VirtualNodeData ->
DeleteVirtualNodeResponse
newDeleteVirtualNodeResponse :: Int -> VirtualNodeData -> DeleteVirtualNodeResponse
newDeleteVirtualNodeResponse
Int
pHttpStatus_
VirtualNodeData
pVirtualNode_ =
DeleteVirtualNodeResponse'
{ $sel:httpStatus:DeleteVirtualNodeResponse' :: Int
httpStatus =
Int
pHttpStatus_,
$sel:virtualNode:DeleteVirtualNodeResponse' :: VirtualNodeData
virtualNode = VirtualNodeData
pVirtualNode_
}
deleteVirtualNodeResponse_httpStatus :: Lens.Lens' DeleteVirtualNodeResponse Prelude.Int
deleteVirtualNodeResponse_httpStatus :: Lens' DeleteVirtualNodeResponse Int
deleteVirtualNodeResponse_httpStatus = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DeleteVirtualNodeResponse' {Int
httpStatus :: Int
$sel:httpStatus:DeleteVirtualNodeResponse' :: DeleteVirtualNodeResponse -> Int
httpStatus} -> Int
httpStatus) (\s :: DeleteVirtualNodeResponse
s@DeleteVirtualNodeResponse' {} Int
a -> DeleteVirtualNodeResponse
s {$sel:httpStatus:DeleteVirtualNodeResponse' :: Int
httpStatus = Int
a} :: DeleteVirtualNodeResponse)
deleteVirtualNodeResponse_virtualNode :: Lens.Lens' DeleteVirtualNodeResponse VirtualNodeData
deleteVirtualNodeResponse_virtualNode :: Lens' DeleteVirtualNodeResponse VirtualNodeData
deleteVirtualNodeResponse_virtualNode = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DeleteVirtualNodeResponse' {VirtualNodeData
virtualNode :: VirtualNodeData
$sel:virtualNode:DeleteVirtualNodeResponse' :: DeleteVirtualNodeResponse -> VirtualNodeData
virtualNode} -> VirtualNodeData
virtualNode) (\s :: DeleteVirtualNodeResponse
s@DeleteVirtualNodeResponse' {} VirtualNodeData
a -> DeleteVirtualNodeResponse
s {$sel:virtualNode:DeleteVirtualNodeResponse' :: VirtualNodeData
virtualNode = VirtualNodeData
a} :: DeleteVirtualNodeResponse)
instance Prelude.NFData DeleteVirtualNodeResponse where
rnf :: DeleteVirtualNodeResponse -> ()
rnf DeleteVirtualNodeResponse' {Int
VirtualNodeData
virtualNode :: VirtualNodeData
httpStatus :: Int
$sel:virtualNode:DeleteVirtualNodeResponse' :: DeleteVirtualNodeResponse -> VirtualNodeData
$sel:httpStatus:DeleteVirtualNodeResponse' :: DeleteVirtualNodeResponse -> Int
..} =
forall a. NFData a => a -> ()
Prelude.rnf Int
httpStatus
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf VirtualNodeData
virtualNode