{-# 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.DescribeVirtualNode
(
DescribeVirtualNode (..),
newDescribeVirtualNode,
describeVirtualNode_meshOwner,
describeVirtualNode_meshName,
describeVirtualNode_virtualNodeName,
DescribeVirtualNodeResponse (..),
newDescribeVirtualNodeResponse,
describeVirtualNodeResponse_httpStatus,
describeVirtualNodeResponse_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 DescribeVirtualNode = DescribeVirtualNode'
{
DescribeVirtualNode -> Maybe Text
meshOwner :: Prelude.Maybe Prelude.Text,
DescribeVirtualNode -> Text
meshName :: Prelude.Text,
DescribeVirtualNode -> Text
virtualNodeName :: Prelude.Text
}
deriving (DescribeVirtualNode -> DescribeVirtualNode -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: DescribeVirtualNode -> DescribeVirtualNode -> Bool
$c/= :: DescribeVirtualNode -> DescribeVirtualNode -> Bool
== :: DescribeVirtualNode -> DescribeVirtualNode -> Bool
$c== :: DescribeVirtualNode -> DescribeVirtualNode -> Bool
Prelude.Eq, ReadPrec [DescribeVirtualNode]
ReadPrec DescribeVirtualNode
Int -> ReadS DescribeVirtualNode
ReadS [DescribeVirtualNode]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [DescribeVirtualNode]
$creadListPrec :: ReadPrec [DescribeVirtualNode]
readPrec :: ReadPrec DescribeVirtualNode
$creadPrec :: ReadPrec DescribeVirtualNode
readList :: ReadS [DescribeVirtualNode]
$creadList :: ReadS [DescribeVirtualNode]
readsPrec :: Int -> ReadS DescribeVirtualNode
$creadsPrec :: Int -> ReadS DescribeVirtualNode
Prelude.Read, Int -> DescribeVirtualNode -> ShowS
[DescribeVirtualNode] -> ShowS
DescribeVirtualNode -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [DescribeVirtualNode] -> ShowS
$cshowList :: [DescribeVirtualNode] -> ShowS
show :: DescribeVirtualNode -> String
$cshow :: DescribeVirtualNode -> String
showsPrec :: Int -> DescribeVirtualNode -> ShowS
$cshowsPrec :: Int -> DescribeVirtualNode -> ShowS
Prelude.Show, forall x. Rep DescribeVirtualNode x -> DescribeVirtualNode
forall x. DescribeVirtualNode -> Rep DescribeVirtualNode x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep DescribeVirtualNode x -> DescribeVirtualNode
$cfrom :: forall x. DescribeVirtualNode -> Rep DescribeVirtualNode x
Prelude.Generic)
newDescribeVirtualNode ::
Prelude.Text ->
Prelude.Text ->
DescribeVirtualNode
newDescribeVirtualNode :: Text -> Text -> DescribeVirtualNode
newDescribeVirtualNode Text
pMeshName_ Text
pVirtualNodeName_ =
DescribeVirtualNode'
{ $sel:meshOwner:DescribeVirtualNode' :: Maybe Text
meshOwner = forall a. Maybe a
Prelude.Nothing,
$sel:meshName:DescribeVirtualNode' :: Text
meshName = Text
pMeshName_,
$sel:virtualNodeName:DescribeVirtualNode' :: Text
virtualNodeName = Text
pVirtualNodeName_
}
describeVirtualNode_meshOwner :: Lens.Lens' DescribeVirtualNode (Prelude.Maybe Prelude.Text)
describeVirtualNode_meshOwner :: Lens' DescribeVirtualNode (Maybe Text)
describeVirtualNode_meshOwner = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeVirtualNode' {Maybe Text
meshOwner :: Maybe Text
$sel:meshOwner:DescribeVirtualNode' :: DescribeVirtualNode -> Maybe Text
meshOwner} -> Maybe Text
meshOwner) (\s :: DescribeVirtualNode
s@DescribeVirtualNode' {} Maybe Text
a -> DescribeVirtualNode
s {$sel:meshOwner:DescribeVirtualNode' :: Maybe Text
meshOwner = Maybe Text
a} :: DescribeVirtualNode)
describeVirtualNode_meshName :: Lens.Lens' DescribeVirtualNode Prelude.Text
describeVirtualNode_meshName :: Lens' DescribeVirtualNode Text
describeVirtualNode_meshName = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeVirtualNode' {Text
meshName :: Text
$sel:meshName:DescribeVirtualNode' :: DescribeVirtualNode -> Text
meshName} -> Text
meshName) (\s :: DescribeVirtualNode
s@DescribeVirtualNode' {} Text
a -> DescribeVirtualNode
s {$sel:meshName:DescribeVirtualNode' :: Text
meshName = Text
a} :: DescribeVirtualNode)
describeVirtualNode_virtualNodeName :: Lens.Lens' DescribeVirtualNode Prelude.Text
describeVirtualNode_virtualNodeName :: Lens' DescribeVirtualNode Text
describeVirtualNode_virtualNodeName = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeVirtualNode' {Text
virtualNodeName :: Text
$sel:virtualNodeName:DescribeVirtualNode' :: DescribeVirtualNode -> Text
virtualNodeName} -> Text
virtualNodeName) (\s :: DescribeVirtualNode
s@DescribeVirtualNode' {} Text
a -> DescribeVirtualNode
s {$sel:virtualNodeName:DescribeVirtualNode' :: Text
virtualNodeName = Text
a} :: DescribeVirtualNode)
instance Core.AWSRequest DescribeVirtualNode where
type
AWSResponse DescribeVirtualNode =
DescribeVirtualNodeResponse
request :: (Service -> Service)
-> DescribeVirtualNode -> Request DescribeVirtualNode
request Service -> Service
overrides =
forall a. ToRequest a => Service -> a -> Request a
Request.get (Service -> Service
overrides Service
defaultService)
response :: forall (m :: * -> *).
MonadResource m =>
(ByteStringLazy -> IO ByteStringLazy)
-> Service
-> Proxy DescribeVirtualNode
-> ClientResponse ClientBody
-> m (Either
Error (ClientResponse (AWSResponse DescribeVirtualNode)))
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 -> DescribeVirtualNodeResponse
DescribeVirtualNodeResponse'
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 DescribeVirtualNode where
hashWithSalt :: Int -> DescribeVirtualNode -> Int
hashWithSalt Int
_salt DescribeVirtualNode' {Maybe Text
Text
virtualNodeName :: Text
meshName :: Text
meshOwner :: Maybe Text
$sel:virtualNodeName:DescribeVirtualNode' :: DescribeVirtualNode -> Text
$sel:meshName:DescribeVirtualNode' :: DescribeVirtualNode -> Text
$sel:meshOwner:DescribeVirtualNode' :: DescribeVirtualNode -> 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 DescribeVirtualNode where
rnf :: DescribeVirtualNode -> ()
rnf DescribeVirtualNode' {Maybe Text
Text
virtualNodeName :: Text
meshName :: Text
meshOwner :: Maybe Text
$sel:virtualNodeName:DescribeVirtualNode' :: DescribeVirtualNode -> Text
$sel:meshName:DescribeVirtualNode' :: DescribeVirtualNode -> Text
$sel:meshOwner:DescribeVirtualNode' :: DescribeVirtualNode -> 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 DescribeVirtualNode where
toHeaders :: DescribeVirtualNode -> 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 DescribeVirtualNode where
toPath :: DescribeVirtualNode -> ByteString
toPath DescribeVirtualNode' {Maybe Text
Text
virtualNodeName :: Text
meshName :: Text
meshOwner :: Maybe Text
$sel:virtualNodeName:DescribeVirtualNode' :: DescribeVirtualNode -> Text
$sel:meshName:DescribeVirtualNode' :: DescribeVirtualNode -> Text
$sel:meshOwner:DescribeVirtualNode' :: DescribeVirtualNode -> 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 DescribeVirtualNode where
toQuery :: DescribeVirtualNode -> QueryString
toQuery DescribeVirtualNode' {Maybe Text
Text
virtualNodeName :: Text
meshName :: Text
meshOwner :: Maybe Text
$sel:virtualNodeName:DescribeVirtualNode' :: DescribeVirtualNode -> Text
$sel:meshName:DescribeVirtualNode' :: DescribeVirtualNode -> Text
$sel:meshOwner:DescribeVirtualNode' :: DescribeVirtualNode -> Maybe Text
..} =
forall a. Monoid a => [a] -> a
Prelude.mconcat [ByteString
"meshOwner" forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: Maybe Text
meshOwner]
data DescribeVirtualNodeResponse = DescribeVirtualNodeResponse'
{
DescribeVirtualNodeResponse -> Int
httpStatus :: Prelude.Int,
DescribeVirtualNodeResponse -> VirtualNodeData
virtualNode :: VirtualNodeData
}
deriving (DescribeVirtualNodeResponse -> DescribeVirtualNodeResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: DescribeVirtualNodeResponse -> DescribeVirtualNodeResponse -> Bool
$c/= :: DescribeVirtualNodeResponse -> DescribeVirtualNodeResponse -> Bool
== :: DescribeVirtualNodeResponse -> DescribeVirtualNodeResponse -> Bool
$c== :: DescribeVirtualNodeResponse -> DescribeVirtualNodeResponse -> Bool
Prelude.Eq, ReadPrec [DescribeVirtualNodeResponse]
ReadPrec DescribeVirtualNodeResponse
Int -> ReadS DescribeVirtualNodeResponse
ReadS [DescribeVirtualNodeResponse]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [DescribeVirtualNodeResponse]
$creadListPrec :: ReadPrec [DescribeVirtualNodeResponse]
readPrec :: ReadPrec DescribeVirtualNodeResponse
$creadPrec :: ReadPrec DescribeVirtualNodeResponse
readList :: ReadS [DescribeVirtualNodeResponse]
$creadList :: ReadS [DescribeVirtualNodeResponse]
readsPrec :: Int -> ReadS DescribeVirtualNodeResponse
$creadsPrec :: Int -> ReadS DescribeVirtualNodeResponse
Prelude.Read, Int -> DescribeVirtualNodeResponse -> ShowS
[DescribeVirtualNodeResponse] -> ShowS
DescribeVirtualNodeResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [DescribeVirtualNodeResponse] -> ShowS
$cshowList :: [DescribeVirtualNodeResponse] -> ShowS
show :: DescribeVirtualNodeResponse -> String
$cshow :: DescribeVirtualNodeResponse -> String
showsPrec :: Int -> DescribeVirtualNodeResponse -> ShowS
$cshowsPrec :: Int -> DescribeVirtualNodeResponse -> ShowS
Prelude.Show, forall x.
Rep DescribeVirtualNodeResponse x -> DescribeVirtualNodeResponse
forall x.
DescribeVirtualNodeResponse -> Rep DescribeVirtualNodeResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep DescribeVirtualNodeResponse x -> DescribeVirtualNodeResponse
$cfrom :: forall x.
DescribeVirtualNodeResponse -> Rep DescribeVirtualNodeResponse x
Prelude.Generic)
newDescribeVirtualNodeResponse ::
Prelude.Int ->
VirtualNodeData ->
DescribeVirtualNodeResponse
newDescribeVirtualNodeResponse :: Int -> VirtualNodeData -> DescribeVirtualNodeResponse
newDescribeVirtualNodeResponse
Int
pHttpStatus_
VirtualNodeData
pVirtualNode_ =
DescribeVirtualNodeResponse'
{ $sel:httpStatus:DescribeVirtualNodeResponse' :: Int
httpStatus =
Int
pHttpStatus_,
$sel:virtualNode:DescribeVirtualNodeResponse' :: VirtualNodeData
virtualNode = VirtualNodeData
pVirtualNode_
}
describeVirtualNodeResponse_httpStatus :: Lens.Lens' DescribeVirtualNodeResponse Prelude.Int
describeVirtualNodeResponse_httpStatus :: Lens' DescribeVirtualNodeResponse Int
describeVirtualNodeResponse_httpStatus = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeVirtualNodeResponse' {Int
httpStatus :: Int
$sel:httpStatus:DescribeVirtualNodeResponse' :: DescribeVirtualNodeResponse -> Int
httpStatus} -> Int
httpStatus) (\s :: DescribeVirtualNodeResponse
s@DescribeVirtualNodeResponse' {} Int
a -> DescribeVirtualNodeResponse
s {$sel:httpStatus:DescribeVirtualNodeResponse' :: Int
httpStatus = Int
a} :: DescribeVirtualNodeResponse)
describeVirtualNodeResponse_virtualNode :: Lens.Lens' DescribeVirtualNodeResponse VirtualNodeData
describeVirtualNodeResponse_virtualNode :: Lens' DescribeVirtualNodeResponse VirtualNodeData
describeVirtualNodeResponse_virtualNode = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeVirtualNodeResponse' {VirtualNodeData
virtualNode :: VirtualNodeData
$sel:virtualNode:DescribeVirtualNodeResponse' :: DescribeVirtualNodeResponse -> VirtualNodeData
virtualNode} -> VirtualNodeData
virtualNode) (\s :: DescribeVirtualNodeResponse
s@DescribeVirtualNodeResponse' {} VirtualNodeData
a -> DescribeVirtualNodeResponse
s {$sel:virtualNode:DescribeVirtualNodeResponse' :: VirtualNodeData
virtualNode = VirtualNodeData
a} :: DescribeVirtualNodeResponse)
instance Prelude.NFData DescribeVirtualNodeResponse where
rnf :: DescribeVirtualNodeResponse -> ()
rnf DescribeVirtualNodeResponse' {Int
VirtualNodeData
virtualNode :: VirtualNodeData
httpStatus :: Int
$sel:virtualNode:DescribeVirtualNodeResponse' :: DescribeVirtualNodeResponse -> VirtualNodeData
$sel:httpStatus:DescribeVirtualNodeResponse' :: DescribeVirtualNodeResponse -> 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