{-# 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.CreateVirtualService
(
CreateVirtualService (..),
newCreateVirtualService,
createVirtualService_clientToken,
createVirtualService_meshOwner,
createVirtualService_tags,
createVirtualService_meshName,
createVirtualService_spec,
createVirtualService_virtualServiceName,
CreateVirtualServiceResponse (..),
newCreateVirtualServiceResponse,
createVirtualServiceResponse_httpStatus,
createVirtualServiceResponse_virtualService,
)
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 CreateVirtualService = CreateVirtualService'
{
CreateVirtualService -> Maybe Text
clientToken :: Prelude.Maybe Prelude.Text,
CreateVirtualService -> Maybe Text
meshOwner :: Prelude.Maybe Prelude.Text,
CreateVirtualService -> Maybe [TagRef]
tags :: Prelude.Maybe [TagRef],
CreateVirtualService -> Text
meshName :: Prelude.Text,
CreateVirtualService -> VirtualServiceSpec
spec :: VirtualServiceSpec,
CreateVirtualService -> Text
virtualServiceName :: Prelude.Text
}
deriving (CreateVirtualService -> CreateVirtualService -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: CreateVirtualService -> CreateVirtualService -> Bool
$c/= :: CreateVirtualService -> CreateVirtualService -> Bool
== :: CreateVirtualService -> CreateVirtualService -> Bool
$c== :: CreateVirtualService -> CreateVirtualService -> Bool
Prelude.Eq, ReadPrec [CreateVirtualService]
ReadPrec CreateVirtualService
Int -> ReadS CreateVirtualService
ReadS [CreateVirtualService]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [CreateVirtualService]
$creadListPrec :: ReadPrec [CreateVirtualService]
readPrec :: ReadPrec CreateVirtualService
$creadPrec :: ReadPrec CreateVirtualService
readList :: ReadS [CreateVirtualService]
$creadList :: ReadS [CreateVirtualService]
readsPrec :: Int -> ReadS CreateVirtualService
$creadsPrec :: Int -> ReadS CreateVirtualService
Prelude.Read, Int -> CreateVirtualService -> ShowS
[CreateVirtualService] -> ShowS
CreateVirtualService -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [CreateVirtualService] -> ShowS
$cshowList :: [CreateVirtualService] -> ShowS
show :: CreateVirtualService -> String
$cshow :: CreateVirtualService -> String
showsPrec :: Int -> CreateVirtualService -> ShowS
$cshowsPrec :: Int -> CreateVirtualService -> ShowS
Prelude.Show, forall x. Rep CreateVirtualService x -> CreateVirtualService
forall x. CreateVirtualService -> Rep CreateVirtualService x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep CreateVirtualService x -> CreateVirtualService
$cfrom :: forall x. CreateVirtualService -> Rep CreateVirtualService x
Prelude.Generic)
newCreateVirtualService ::
Prelude.Text ->
VirtualServiceSpec ->
Prelude.Text ->
CreateVirtualService
newCreateVirtualService :: Text -> VirtualServiceSpec -> Text -> CreateVirtualService
newCreateVirtualService
Text
pMeshName_
VirtualServiceSpec
pSpec_
Text
pVirtualServiceName_ =
CreateVirtualService'
{ $sel:clientToken:CreateVirtualService' :: Maybe Text
clientToken =
forall a. Maybe a
Prelude.Nothing,
$sel:meshOwner:CreateVirtualService' :: Maybe Text
meshOwner = forall a. Maybe a
Prelude.Nothing,
$sel:tags:CreateVirtualService' :: Maybe [TagRef]
tags = forall a. Maybe a
Prelude.Nothing,
$sel:meshName:CreateVirtualService' :: Text
meshName = Text
pMeshName_,
$sel:spec:CreateVirtualService' :: VirtualServiceSpec
spec = VirtualServiceSpec
pSpec_,
$sel:virtualServiceName:CreateVirtualService' :: Text
virtualServiceName = Text
pVirtualServiceName_
}
createVirtualService_clientToken :: Lens.Lens' CreateVirtualService (Prelude.Maybe Prelude.Text)
createVirtualService_clientToken :: Lens' CreateVirtualService (Maybe Text)
createVirtualService_clientToken = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateVirtualService' {Maybe Text
clientToken :: Maybe Text
$sel:clientToken:CreateVirtualService' :: CreateVirtualService -> Maybe Text
clientToken} -> Maybe Text
clientToken) (\s :: CreateVirtualService
s@CreateVirtualService' {} Maybe Text
a -> CreateVirtualService
s {$sel:clientToken:CreateVirtualService' :: Maybe Text
clientToken = Maybe Text
a} :: CreateVirtualService)
createVirtualService_meshOwner :: Lens.Lens' CreateVirtualService (Prelude.Maybe Prelude.Text)
createVirtualService_meshOwner :: Lens' CreateVirtualService (Maybe Text)
createVirtualService_meshOwner = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateVirtualService' {Maybe Text
meshOwner :: Maybe Text
$sel:meshOwner:CreateVirtualService' :: CreateVirtualService -> Maybe Text
meshOwner} -> Maybe Text
meshOwner) (\s :: CreateVirtualService
s@CreateVirtualService' {} Maybe Text
a -> CreateVirtualService
s {$sel:meshOwner:CreateVirtualService' :: Maybe Text
meshOwner = Maybe Text
a} :: CreateVirtualService)
createVirtualService_tags :: Lens.Lens' CreateVirtualService (Prelude.Maybe [TagRef])
createVirtualService_tags :: Lens' CreateVirtualService (Maybe [TagRef])
createVirtualService_tags = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateVirtualService' {Maybe [TagRef]
tags :: Maybe [TagRef]
$sel:tags:CreateVirtualService' :: CreateVirtualService -> Maybe [TagRef]
tags} -> Maybe [TagRef]
tags) (\s :: CreateVirtualService
s@CreateVirtualService' {} Maybe [TagRef]
a -> CreateVirtualService
s {$sel:tags:CreateVirtualService' :: Maybe [TagRef]
tags = Maybe [TagRef]
a} :: CreateVirtualService) forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. forall (f :: * -> *) (g :: * -> *) s t a b.
(Functor f, Functor g) =>
AnIso s t a b -> Iso (f s) (g t) (f a) (g b)
Lens.mapping forall s t a b. (Coercible s a, Coercible t b) => Iso s t a b
Lens.coerced
createVirtualService_meshName :: Lens.Lens' CreateVirtualService Prelude.Text
createVirtualService_meshName :: Lens' CreateVirtualService Text
createVirtualService_meshName = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateVirtualService' {Text
meshName :: Text
$sel:meshName:CreateVirtualService' :: CreateVirtualService -> Text
meshName} -> Text
meshName) (\s :: CreateVirtualService
s@CreateVirtualService' {} Text
a -> CreateVirtualService
s {$sel:meshName:CreateVirtualService' :: Text
meshName = Text
a} :: CreateVirtualService)
createVirtualService_spec :: Lens.Lens' CreateVirtualService VirtualServiceSpec
createVirtualService_spec :: Lens' CreateVirtualService VirtualServiceSpec
createVirtualService_spec = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateVirtualService' {VirtualServiceSpec
spec :: VirtualServiceSpec
$sel:spec:CreateVirtualService' :: CreateVirtualService -> VirtualServiceSpec
spec} -> VirtualServiceSpec
spec) (\s :: CreateVirtualService
s@CreateVirtualService' {} VirtualServiceSpec
a -> CreateVirtualService
s {$sel:spec:CreateVirtualService' :: VirtualServiceSpec
spec = VirtualServiceSpec
a} :: CreateVirtualService)
createVirtualService_virtualServiceName :: Lens.Lens' CreateVirtualService Prelude.Text
createVirtualService_virtualServiceName :: Lens' CreateVirtualService Text
createVirtualService_virtualServiceName = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateVirtualService' {Text
virtualServiceName :: Text
$sel:virtualServiceName:CreateVirtualService' :: CreateVirtualService -> Text
virtualServiceName} -> Text
virtualServiceName) (\s :: CreateVirtualService
s@CreateVirtualService' {} Text
a -> CreateVirtualService
s {$sel:virtualServiceName:CreateVirtualService' :: Text
virtualServiceName = Text
a} :: CreateVirtualService)
instance Core.AWSRequest CreateVirtualService where
type
AWSResponse CreateVirtualService =
CreateVirtualServiceResponse
request :: (Service -> Service)
-> CreateVirtualService -> Request CreateVirtualService
request Service -> Service
overrides =
forall a. (ToRequest a, ToJSON a) => Service -> a -> Request a
Request.putJSON (Service -> Service
overrides Service
defaultService)
response :: forall (m :: * -> *).
MonadResource m =>
(ByteStringLazy -> IO ByteStringLazy)
-> Service
-> Proxy CreateVirtualService
-> ClientResponse ClientBody
-> m (Either
Error (ClientResponse (AWSResponse CreateVirtualService)))
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 -> VirtualServiceData -> CreateVirtualServiceResponse
CreateVirtualServiceResponse'
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 CreateVirtualService where
hashWithSalt :: Int -> CreateVirtualService -> Int
hashWithSalt Int
_salt CreateVirtualService' {Maybe [TagRef]
Maybe Text
Text
VirtualServiceSpec
virtualServiceName :: Text
spec :: VirtualServiceSpec
meshName :: Text
tags :: Maybe [TagRef]
meshOwner :: Maybe Text
clientToken :: Maybe Text
$sel:virtualServiceName:CreateVirtualService' :: CreateVirtualService -> Text
$sel:spec:CreateVirtualService' :: CreateVirtualService -> VirtualServiceSpec
$sel:meshName:CreateVirtualService' :: CreateVirtualService -> Text
$sel:tags:CreateVirtualService' :: CreateVirtualService -> Maybe [TagRef]
$sel:meshOwner:CreateVirtualService' :: CreateVirtualService -> Maybe Text
$sel:clientToken:CreateVirtualService' :: CreateVirtualService -> Maybe Text
..} =
Int
_salt
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
clientToken
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
meshOwner
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe [TagRef]
tags
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
meshName
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` VirtualServiceSpec
spec
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
virtualServiceName
instance Prelude.NFData CreateVirtualService where
rnf :: CreateVirtualService -> ()
rnf CreateVirtualService' {Maybe [TagRef]
Maybe Text
Text
VirtualServiceSpec
virtualServiceName :: Text
spec :: VirtualServiceSpec
meshName :: Text
tags :: Maybe [TagRef]
meshOwner :: Maybe Text
clientToken :: Maybe Text
$sel:virtualServiceName:CreateVirtualService' :: CreateVirtualService -> Text
$sel:spec:CreateVirtualService' :: CreateVirtualService -> VirtualServiceSpec
$sel:meshName:CreateVirtualService' :: CreateVirtualService -> Text
$sel:tags:CreateVirtualService' :: CreateVirtualService -> Maybe [TagRef]
$sel:meshOwner:CreateVirtualService' :: CreateVirtualService -> Maybe Text
$sel:clientToken:CreateVirtualService' :: CreateVirtualService -> Maybe Text
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
clientToken
seq :: forall a b. a -> b -> b
`Prelude.seq` 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 Maybe [TagRef]
tags
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 VirtualServiceSpec
spec
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Text
virtualServiceName
instance Data.ToHeaders CreateVirtualService where
toHeaders :: CreateVirtualService -> 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.ToJSON CreateVirtualService where
toJSON :: CreateVirtualService -> Value
toJSON CreateVirtualService' {Maybe [TagRef]
Maybe Text
Text
VirtualServiceSpec
virtualServiceName :: Text
spec :: VirtualServiceSpec
meshName :: Text
tags :: Maybe [TagRef]
meshOwner :: Maybe Text
clientToken :: Maybe Text
$sel:virtualServiceName:CreateVirtualService' :: CreateVirtualService -> Text
$sel:spec:CreateVirtualService' :: CreateVirtualService -> VirtualServiceSpec
$sel:meshName:CreateVirtualService' :: CreateVirtualService -> Text
$sel:tags:CreateVirtualService' :: CreateVirtualService -> Maybe [TagRef]
$sel:meshOwner:CreateVirtualService' :: CreateVirtualService -> Maybe Text
$sel:clientToken:CreateVirtualService' :: CreateVirtualService -> Maybe Text
..} =
[Pair] -> Value
Data.object
( forall a. [Maybe a] -> [a]
Prelude.catMaybes
[ (Key
"clientToken" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..=) forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe Text
clientToken,
(Key
"tags" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..=) forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe [TagRef]
tags,
forall a. a -> Maybe a
Prelude.Just (Key
"spec" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..= VirtualServiceSpec
spec),
forall a. a -> Maybe a
Prelude.Just
(Key
"virtualServiceName" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..= Text
virtualServiceName)
]
)
instance Data.ToPath CreateVirtualService where
toPath :: CreateVirtualService -> ByteString
toPath CreateVirtualService' {Maybe [TagRef]
Maybe Text
Text
VirtualServiceSpec
virtualServiceName :: Text
spec :: VirtualServiceSpec
meshName :: Text
tags :: Maybe [TagRef]
meshOwner :: Maybe Text
clientToken :: Maybe Text
$sel:virtualServiceName:CreateVirtualService' :: CreateVirtualService -> Text
$sel:spec:CreateVirtualService' :: CreateVirtualService -> VirtualServiceSpec
$sel:meshName:CreateVirtualService' :: CreateVirtualService -> Text
$sel:tags:CreateVirtualService' :: CreateVirtualService -> Maybe [TagRef]
$sel:meshOwner:CreateVirtualService' :: CreateVirtualService -> Maybe Text
$sel:clientToken:CreateVirtualService' :: CreateVirtualService -> Maybe Text
..} =
forall a. Monoid a => [a] -> a
Prelude.mconcat
[ ByteString
"/v20190125/meshes/",
forall a. ToByteString a => a -> ByteString
Data.toBS Text
meshName,
ByteString
"/virtualServices"
]
instance Data.ToQuery CreateVirtualService where
toQuery :: CreateVirtualService -> QueryString
toQuery CreateVirtualService' {Maybe [TagRef]
Maybe Text
Text
VirtualServiceSpec
virtualServiceName :: Text
spec :: VirtualServiceSpec
meshName :: Text
tags :: Maybe [TagRef]
meshOwner :: Maybe Text
clientToken :: Maybe Text
$sel:virtualServiceName:CreateVirtualService' :: CreateVirtualService -> Text
$sel:spec:CreateVirtualService' :: CreateVirtualService -> VirtualServiceSpec
$sel:meshName:CreateVirtualService' :: CreateVirtualService -> Text
$sel:tags:CreateVirtualService' :: CreateVirtualService -> Maybe [TagRef]
$sel:meshOwner:CreateVirtualService' :: CreateVirtualService -> Maybe Text
$sel:clientToken:CreateVirtualService' :: CreateVirtualService -> Maybe Text
..} =
forall a. Monoid a => [a] -> a
Prelude.mconcat [ByteString
"meshOwner" forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: Maybe Text
meshOwner]
data CreateVirtualServiceResponse = CreateVirtualServiceResponse'
{
CreateVirtualServiceResponse -> Int
httpStatus :: Prelude.Int,
CreateVirtualServiceResponse -> VirtualServiceData
virtualService :: VirtualServiceData
}
deriving (CreateVirtualServiceResponse
-> CreateVirtualServiceResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: CreateVirtualServiceResponse
-> CreateVirtualServiceResponse -> Bool
$c/= :: CreateVirtualServiceResponse
-> CreateVirtualServiceResponse -> Bool
== :: CreateVirtualServiceResponse
-> CreateVirtualServiceResponse -> Bool
$c== :: CreateVirtualServiceResponse
-> CreateVirtualServiceResponse -> Bool
Prelude.Eq, ReadPrec [CreateVirtualServiceResponse]
ReadPrec CreateVirtualServiceResponse
Int -> ReadS CreateVirtualServiceResponse
ReadS [CreateVirtualServiceResponse]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [CreateVirtualServiceResponse]
$creadListPrec :: ReadPrec [CreateVirtualServiceResponse]
readPrec :: ReadPrec CreateVirtualServiceResponse
$creadPrec :: ReadPrec CreateVirtualServiceResponse
readList :: ReadS [CreateVirtualServiceResponse]
$creadList :: ReadS [CreateVirtualServiceResponse]
readsPrec :: Int -> ReadS CreateVirtualServiceResponse
$creadsPrec :: Int -> ReadS CreateVirtualServiceResponse
Prelude.Read, Int -> CreateVirtualServiceResponse -> ShowS
[CreateVirtualServiceResponse] -> ShowS
CreateVirtualServiceResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [CreateVirtualServiceResponse] -> ShowS
$cshowList :: [CreateVirtualServiceResponse] -> ShowS
show :: CreateVirtualServiceResponse -> String
$cshow :: CreateVirtualServiceResponse -> String
showsPrec :: Int -> CreateVirtualServiceResponse -> ShowS
$cshowsPrec :: Int -> CreateVirtualServiceResponse -> ShowS
Prelude.Show, forall x.
Rep CreateVirtualServiceResponse x -> CreateVirtualServiceResponse
forall x.
CreateVirtualServiceResponse -> Rep CreateVirtualServiceResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep CreateVirtualServiceResponse x -> CreateVirtualServiceResponse
$cfrom :: forall x.
CreateVirtualServiceResponse -> Rep CreateVirtualServiceResponse x
Prelude.Generic)
newCreateVirtualServiceResponse ::
Prelude.Int ->
VirtualServiceData ->
CreateVirtualServiceResponse
newCreateVirtualServiceResponse :: Int -> VirtualServiceData -> CreateVirtualServiceResponse
newCreateVirtualServiceResponse
Int
pHttpStatus_
VirtualServiceData
pVirtualService_ =
CreateVirtualServiceResponse'
{ $sel:httpStatus:CreateVirtualServiceResponse' :: Int
httpStatus =
Int
pHttpStatus_,
$sel:virtualService:CreateVirtualServiceResponse' :: VirtualServiceData
virtualService = VirtualServiceData
pVirtualService_
}
createVirtualServiceResponse_httpStatus :: Lens.Lens' CreateVirtualServiceResponse Prelude.Int
createVirtualServiceResponse_httpStatus :: Lens' CreateVirtualServiceResponse Int
createVirtualServiceResponse_httpStatus = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateVirtualServiceResponse' {Int
httpStatus :: Int
$sel:httpStatus:CreateVirtualServiceResponse' :: CreateVirtualServiceResponse -> Int
httpStatus} -> Int
httpStatus) (\s :: CreateVirtualServiceResponse
s@CreateVirtualServiceResponse' {} Int
a -> CreateVirtualServiceResponse
s {$sel:httpStatus:CreateVirtualServiceResponse' :: Int
httpStatus = Int
a} :: CreateVirtualServiceResponse)
createVirtualServiceResponse_virtualService :: Lens.Lens' CreateVirtualServiceResponse VirtualServiceData
createVirtualServiceResponse_virtualService :: Lens' CreateVirtualServiceResponse VirtualServiceData
createVirtualServiceResponse_virtualService = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateVirtualServiceResponse' {VirtualServiceData
virtualService :: VirtualServiceData
$sel:virtualService:CreateVirtualServiceResponse' :: CreateVirtualServiceResponse -> VirtualServiceData
virtualService} -> VirtualServiceData
virtualService) (\s :: CreateVirtualServiceResponse
s@CreateVirtualServiceResponse' {} VirtualServiceData
a -> CreateVirtualServiceResponse
s {$sel:virtualService:CreateVirtualServiceResponse' :: VirtualServiceData
virtualService = VirtualServiceData
a} :: CreateVirtualServiceResponse)
instance Prelude.NFData CreateVirtualServiceResponse where
rnf :: CreateVirtualServiceResponse -> ()
rnf CreateVirtualServiceResponse' {Int
VirtualServiceData
virtualService :: VirtualServiceData
httpStatus :: Int
$sel:virtualService:CreateVirtualServiceResponse' :: CreateVirtualServiceResponse -> VirtualServiceData
$sel:httpStatus:CreateVirtualServiceResponse' :: CreateVirtualServiceResponse -> 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 VirtualServiceData
virtualService