{-# 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.Nimble.UpdateLaunchProfileMember
(
UpdateLaunchProfileMember (..),
newUpdateLaunchProfileMember,
updateLaunchProfileMember_clientToken,
updateLaunchProfileMember_launchProfileId,
updateLaunchProfileMember_persona,
updateLaunchProfileMember_principalId,
updateLaunchProfileMember_studioId,
UpdateLaunchProfileMemberResponse (..),
newUpdateLaunchProfileMemberResponse,
updateLaunchProfileMemberResponse_member,
updateLaunchProfileMemberResponse_httpStatus,
)
where
import qualified Amazonka.Core as Core
import qualified Amazonka.Core.Lens.Internal as Lens
import qualified Amazonka.Data as Data
import Amazonka.Nimble.Types
import qualified Amazonka.Prelude as Prelude
import qualified Amazonka.Request as Request
import qualified Amazonka.Response as Response
data UpdateLaunchProfileMember = UpdateLaunchProfileMember'
{
UpdateLaunchProfileMember -> Maybe Text
clientToken :: Prelude.Maybe Prelude.Text,
UpdateLaunchProfileMember -> Text
launchProfileId :: Prelude.Text,
UpdateLaunchProfileMember -> LaunchProfilePersona
persona :: LaunchProfilePersona,
UpdateLaunchProfileMember -> Text
principalId :: Prelude.Text,
UpdateLaunchProfileMember -> Text
studioId :: Prelude.Text
}
deriving (UpdateLaunchProfileMember -> UpdateLaunchProfileMember -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: UpdateLaunchProfileMember -> UpdateLaunchProfileMember -> Bool
$c/= :: UpdateLaunchProfileMember -> UpdateLaunchProfileMember -> Bool
== :: UpdateLaunchProfileMember -> UpdateLaunchProfileMember -> Bool
$c== :: UpdateLaunchProfileMember -> UpdateLaunchProfileMember -> Bool
Prelude.Eq, ReadPrec [UpdateLaunchProfileMember]
ReadPrec UpdateLaunchProfileMember
Int -> ReadS UpdateLaunchProfileMember
ReadS [UpdateLaunchProfileMember]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [UpdateLaunchProfileMember]
$creadListPrec :: ReadPrec [UpdateLaunchProfileMember]
readPrec :: ReadPrec UpdateLaunchProfileMember
$creadPrec :: ReadPrec UpdateLaunchProfileMember
readList :: ReadS [UpdateLaunchProfileMember]
$creadList :: ReadS [UpdateLaunchProfileMember]
readsPrec :: Int -> ReadS UpdateLaunchProfileMember
$creadsPrec :: Int -> ReadS UpdateLaunchProfileMember
Prelude.Read, Int -> UpdateLaunchProfileMember -> ShowS
[UpdateLaunchProfileMember] -> ShowS
UpdateLaunchProfileMember -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [UpdateLaunchProfileMember] -> ShowS
$cshowList :: [UpdateLaunchProfileMember] -> ShowS
show :: UpdateLaunchProfileMember -> String
$cshow :: UpdateLaunchProfileMember -> String
showsPrec :: Int -> UpdateLaunchProfileMember -> ShowS
$cshowsPrec :: Int -> UpdateLaunchProfileMember -> ShowS
Prelude.Show, forall x.
Rep UpdateLaunchProfileMember x -> UpdateLaunchProfileMember
forall x.
UpdateLaunchProfileMember -> Rep UpdateLaunchProfileMember x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep UpdateLaunchProfileMember x -> UpdateLaunchProfileMember
$cfrom :: forall x.
UpdateLaunchProfileMember -> Rep UpdateLaunchProfileMember x
Prelude.Generic)
newUpdateLaunchProfileMember ::
Prelude.Text ->
LaunchProfilePersona ->
Prelude.Text ->
Prelude.Text ->
UpdateLaunchProfileMember
newUpdateLaunchProfileMember :: Text
-> LaunchProfilePersona
-> Text
-> Text
-> UpdateLaunchProfileMember
newUpdateLaunchProfileMember
Text
pLaunchProfileId_
LaunchProfilePersona
pPersona_
Text
pPrincipalId_
Text
pStudioId_ =
UpdateLaunchProfileMember'
{ $sel:clientToken:UpdateLaunchProfileMember' :: Maybe Text
clientToken =
forall a. Maybe a
Prelude.Nothing,
$sel:launchProfileId:UpdateLaunchProfileMember' :: Text
launchProfileId = Text
pLaunchProfileId_,
$sel:persona:UpdateLaunchProfileMember' :: LaunchProfilePersona
persona = LaunchProfilePersona
pPersona_,
$sel:principalId:UpdateLaunchProfileMember' :: Text
principalId = Text
pPrincipalId_,
$sel:studioId:UpdateLaunchProfileMember' :: Text
studioId = Text
pStudioId_
}
updateLaunchProfileMember_clientToken :: Lens.Lens' UpdateLaunchProfileMember (Prelude.Maybe Prelude.Text)
updateLaunchProfileMember_clientToken :: Lens' UpdateLaunchProfileMember (Maybe Text)
updateLaunchProfileMember_clientToken = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\UpdateLaunchProfileMember' {Maybe Text
clientToken :: Maybe Text
$sel:clientToken:UpdateLaunchProfileMember' :: UpdateLaunchProfileMember -> Maybe Text
clientToken} -> Maybe Text
clientToken) (\s :: UpdateLaunchProfileMember
s@UpdateLaunchProfileMember' {} Maybe Text
a -> UpdateLaunchProfileMember
s {$sel:clientToken:UpdateLaunchProfileMember' :: Maybe Text
clientToken = Maybe Text
a} :: UpdateLaunchProfileMember)
updateLaunchProfileMember_launchProfileId :: Lens.Lens' UpdateLaunchProfileMember Prelude.Text
updateLaunchProfileMember_launchProfileId :: Lens' UpdateLaunchProfileMember Text
updateLaunchProfileMember_launchProfileId = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\UpdateLaunchProfileMember' {Text
launchProfileId :: Text
$sel:launchProfileId:UpdateLaunchProfileMember' :: UpdateLaunchProfileMember -> Text
launchProfileId} -> Text
launchProfileId) (\s :: UpdateLaunchProfileMember
s@UpdateLaunchProfileMember' {} Text
a -> UpdateLaunchProfileMember
s {$sel:launchProfileId:UpdateLaunchProfileMember' :: Text
launchProfileId = Text
a} :: UpdateLaunchProfileMember)
updateLaunchProfileMember_persona :: Lens.Lens' UpdateLaunchProfileMember LaunchProfilePersona
updateLaunchProfileMember_persona :: Lens' UpdateLaunchProfileMember LaunchProfilePersona
updateLaunchProfileMember_persona = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\UpdateLaunchProfileMember' {LaunchProfilePersona
persona :: LaunchProfilePersona
$sel:persona:UpdateLaunchProfileMember' :: UpdateLaunchProfileMember -> LaunchProfilePersona
persona} -> LaunchProfilePersona
persona) (\s :: UpdateLaunchProfileMember
s@UpdateLaunchProfileMember' {} LaunchProfilePersona
a -> UpdateLaunchProfileMember
s {$sel:persona:UpdateLaunchProfileMember' :: LaunchProfilePersona
persona = LaunchProfilePersona
a} :: UpdateLaunchProfileMember)
updateLaunchProfileMember_principalId :: Lens.Lens' UpdateLaunchProfileMember Prelude.Text
updateLaunchProfileMember_principalId :: Lens' UpdateLaunchProfileMember Text
updateLaunchProfileMember_principalId = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\UpdateLaunchProfileMember' {Text
principalId :: Text
$sel:principalId:UpdateLaunchProfileMember' :: UpdateLaunchProfileMember -> Text
principalId} -> Text
principalId) (\s :: UpdateLaunchProfileMember
s@UpdateLaunchProfileMember' {} Text
a -> UpdateLaunchProfileMember
s {$sel:principalId:UpdateLaunchProfileMember' :: Text
principalId = Text
a} :: UpdateLaunchProfileMember)
updateLaunchProfileMember_studioId :: Lens.Lens' UpdateLaunchProfileMember Prelude.Text
updateLaunchProfileMember_studioId :: Lens' UpdateLaunchProfileMember Text
updateLaunchProfileMember_studioId = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\UpdateLaunchProfileMember' {Text
studioId :: Text
$sel:studioId:UpdateLaunchProfileMember' :: UpdateLaunchProfileMember -> Text
studioId} -> Text
studioId) (\s :: UpdateLaunchProfileMember
s@UpdateLaunchProfileMember' {} Text
a -> UpdateLaunchProfileMember
s {$sel:studioId:UpdateLaunchProfileMember' :: Text
studioId = Text
a} :: UpdateLaunchProfileMember)
instance Core.AWSRequest UpdateLaunchProfileMember where
type
AWSResponse UpdateLaunchProfileMember =
UpdateLaunchProfileMemberResponse
request :: (Service -> Service)
-> UpdateLaunchProfileMember -> Request UpdateLaunchProfileMember
request Service -> Service
overrides =
forall a. (ToRequest a, ToJSON a) => Service -> a -> Request a
Request.patchJSON (Service -> Service
overrides Service
defaultService)
response :: forall (m :: * -> *).
MonadResource m =>
(ByteStringLazy -> IO ByteStringLazy)
-> Service
-> Proxy UpdateLaunchProfileMember
-> ClientResponse ClientBody
-> m (Either
Error (ClientResponse (AWSResponse UpdateLaunchProfileMember)))
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 LaunchProfileMembership
-> Int -> UpdateLaunchProfileMemberResponse
UpdateLaunchProfileMemberResponse'
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
"member")
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 UpdateLaunchProfileMember where
hashWithSalt :: Int -> UpdateLaunchProfileMember -> Int
hashWithSalt Int
_salt UpdateLaunchProfileMember' {Maybe Text
Text
LaunchProfilePersona
studioId :: Text
principalId :: Text
persona :: LaunchProfilePersona
launchProfileId :: Text
clientToken :: Maybe Text
$sel:studioId:UpdateLaunchProfileMember' :: UpdateLaunchProfileMember -> Text
$sel:principalId:UpdateLaunchProfileMember' :: UpdateLaunchProfileMember -> Text
$sel:persona:UpdateLaunchProfileMember' :: UpdateLaunchProfileMember -> LaunchProfilePersona
$sel:launchProfileId:UpdateLaunchProfileMember' :: UpdateLaunchProfileMember -> Text
$sel:clientToken:UpdateLaunchProfileMember' :: UpdateLaunchProfileMember -> 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` Text
launchProfileId
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` LaunchProfilePersona
persona
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
principalId
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
studioId
instance Prelude.NFData UpdateLaunchProfileMember where
rnf :: UpdateLaunchProfileMember -> ()
rnf UpdateLaunchProfileMember' {Maybe Text
Text
LaunchProfilePersona
studioId :: Text
principalId :: Text
persona :: LaunchProfilePersona
launchProfileId :: Text
clientToken :: Maybe Text
$sel:studioId:UpdateLaunchProfileMember' :: UpdateLaunchProfileMember -> Text
$sel:principalId:UpdateLaunchProfileMember' :: UpdateLaunchProfileMember -> Text
$sel:persona:UpdateLaunchProfileMember' :: UpdateLaunchProfileMember -> LaunchProfilePersona
$sel:launchProfileId:UpdateLaunchProfileMember' :: UpdateLaunchProfileMember -> Text
$sel:clientToken:UpdateLaunchProfileMember' :: UpdateLaunchProfileMember -> 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 Text
launchProfileId
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf LaunchProfilePersona
persona
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Text
principalId
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Text
studioId
instance Data.ToHeaders UpdateLaunchProfileMember where
toHeaders :: UpdateLaunchProfileMember -> ResponseHeaders
toHeaders UpdateLaunchProfileMember' {Maybe Text
Text
LaunchProfilePersona
studioId :: Text
principalId :: Text
persona :: LaunchProfilePersona
launchProfileId :: Text
clientToken :: Maybe Text
$sel:studioId:UpdateLaunchProfileMember' :: UpdateLaunchProfileMember -> Text
$sel:principalId:UpdateLaunchProfileMember' :: UpdateLaunchProfileMember -> Text
$sel:persona:UpdateLaunchProfileMember' :: UpdateLaunchProfileMember -> LaunchProfilePersona
$sel:launchProfileId:UpdateLaunchProfileMember' :: UpdateLaunchProfileMember -> Text
$sel:clientToken:UpdateLaunchProfileMember' :: UpdateLaunchProfileMember -> Maybe Text
..} =
forall a. Monoid a => [a] -> a
Prelude.mconcat
[ HeaderName
"X-Amz-Client-Token" forall a. ToHeader a => HeaderName -> a -> ResponseHeaders
Data.=# Maybe Text
clientToken,
HeaderName
"Content-Type"
forall a. ToHeader a => HeaderName -> a -> ResponseHeaders
Data.=# (ByteString
"application/x-amz-json-1.1" :: Prelude.ByteString)
]
instance Data.ToJSON UpdateLaunchProfileMember where
toJSON :: UpdateLaunchProfileMember -> Value
toJSON UpdateLaunchProfileMember' {Maybe Text
Text
LaunchProfilePersona
studioId :: Text
principalId :: Text
persona :: LaunchProfilePersona
launchProfileId :: Text
clientToken :: Maybe Text
$sel:studioId:UpdateLaunchProfileMember' :: UpdateLaunchProfileMember -> Text
$sel:principalId:UpdateLaunchProfileMember' :: UpdateLaunchProfileMember -> Text
$sel:persona:UpdateLaunchProfileMember' :: UpdateLaunchProfileMember -> LaunchProfilePersona
$sel:launchProfileId:UpdateLaunchProfileMember' :: UpdateLaunchProfileMember -> Text
$sel:clientToken:UpdateLaunchProfileMember' :: UpdateLaunchProfileMember -> Maybe Text
..} =
[Pair] -> Value
Data.object
( forall a. [Maybe a] -> [a]
Prelude.catMaybes
[forall a. a -> Maybe a
Prelude.Just (Key
"persona" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..= LaunchProfilePersona
persona)]
)
instance Data.ToPath UpdateLaunchProfileMember where
toPath :: UpdateLaunchProfileMember -> ByteString
toPath UpdateLaunchProfileMember' {Maybe Text
Text
LaunchProfilePersona
studioId :: Text
principalId :: Text
persona :: LaunchProfilePersona
launchProfileId :: Text
clientToken :: Maybe Text
$sel:studioId:UpdateLaunchProfileMember' :: UpdateLaunchProfileMember -> Text
$sel:principalId:UpdateLaunchProfileMember' :: UpdateLaunchProfileMember -> Text
$sel:persona:UpdateLaunchProfileMember' :: UpdateLaunchProfileMember -> LaunchProfilePersona
$sel:launchProfileId:UpdateLaunchProfileMember' :: UpdateLaunchProfileMember -> Text
$sel:clientToken:UpdateLaunchProfileMember' :: UpdateLaunchProfileMember -> Maybe Text
..} =
forall a. Monoid a => [a] -> a
Prelude.mconcat
[ ByteString
"/2020-08-01/studios/",
forall a. ToByteString a => a -> ByteString
Data.toBS Text
studioId,
ByteString
"/launch-profiles/",
forall a. ToByteString a => a -> ByteString
Data.toBS Text
launchProfileId,
ByteString
"/membership/",
forall a. ToByteString a => a -> ByteString
Data.toBS Text
principalId
]
instance Data.ToQuery UpdateLaunchProfileMember where
toQuery :: UpdateLaunchProfileMember -> QueryString
toQuery = forall a b. a -> b -> a
Prelude.const forall a. Monoid a => a
Prelude.mempty
data UpdateLaunchProfileMemberResponse = UpdateLaunchProfileMemberResponse'
{
UpdateLaunchProfileMemberResponse -> Maybe LaunchProfileMembership
member :: Prelude.Maybe LaunchProfileMembership,
UpdateLaunchProfileMemberResponse -> Int
httpStatus :: Prelude.Int
}
deriving (UpdateLaunchProfileMemberResponse
-> UpdateLaunchProfileMemberResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: UpdateLaunchProfileMemberResponse
-> UpdateLaunchProfileMemberResponse -> Bool
$c/= :: UpdateLaunchProfileMemberResponse
-> UpdateLaunchProfileMemberResponse -> Bool
== :: UpdateLaunchProfileMemberResponse
-> UpdateLaunchProfileMemberResponse -> Bool
$c== :: UpdateLaunchProfileMemberResponse
-> UpdateLaunchProfileMemberResponse -> Bool
Prelude.Eq, ReadPrec [UpdateLaunchProfileMemberResponse]
ReadPrec UpdateLaunchProfileMemberResponse
Int -> ReadS UpdateLaunchProfileMemberResponse
ReadS [UpdateLaunchProfileMemberResponse]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [UpdateLaunchProfileMemberResponse]
$creadListPrec :: ReadPrec [UpdateLaunchProfileMemberResponse]
readPrec :: ReadPrec UpdateLaunchProfileMemberResponse
$creadPrec :: ReadPrec UpdateLaunchProfileMemberResponse
readList :: ReadS [UpdateLaunchProfileMemberResponse]
$creadList :: ReadS [UpdateLaunchProfileMemberResponse]
readsPrec :: Int -> ReadS UpdateLaunchProfileMemberResponse
$creadsPrec :: Int -> ReadS UpdateLaunchProfileMemberResponse
Prelude.Read, Int -> UpdateLaunchProfileMemberResponse -> ShowS
[UpdateLaunchProfileMemberResponse] -> ShowS
UpdateLaunchProfileMemberResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [UpdateLaunchProfileMemberResponse] -> ShowS
$cshowList :: [UpdateLaunchProfileMemberResponse] -> ShowS
show :: UpdateLaunchProfileMemberResponse -> String
$cshow :: UpdateLaunchProfileMemberResponse -> String
showsPrec :: Int -> UpdateLaunchProfileMemberResponse -> ShowS
$cshowsPrec :: Int -> UpdateLaunchProfileMemberResponse -> ShowS
Prelude.Show, forall x.
Rep UpdateLaunchProfileMemberResponse x
-> UpdateLaunchProfileMemberResponse
forall x.
UpdateLaunchProfileMemberResponse
-> Rep UpdateLaunchProfileMemberResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep UpdateLaunchProfileMemberResponse x
-> UpdateLaunchProfileMemberResponse
$cfrom :: forall x.
UpdateLaunchProfileMemberResponse
-> Rep UpdateLaunchProfileMemberResponse x
Prelude.Generic)
newUpdateLaunchProfileMemberResponse ::
Prelude.Int ->
UpdateLaunchProfileMemberResponse
newUpdateLaunchProfileMemberResponse :: Int -> UpdateLaunchProfileMemberResponse
newUpdateLaunchProfileMemberResponse Int
pHttpStatus_ =
UpdateLaunchProfileMemberResponse'
{ $sel:member:UpdateLaunchProfileMemberResponse' :: Maybe LaunchProfileMembership
member =
forall a. Maybe a
Prelude.Nothing,
$sel:httpStatus:UpdateLaunchProfileMemberResponse' :: Int
httpStatus = Int
pHttpStatus_
}
updateLaunchProfileMemberResponse_member :: Lens.Lens' UpdateLaunchProfileMemberResponse (Prelude.Maybe LaunchProfileMembership)
updateLaunchProfileMemberResponse_member :: Lens'
UpdateLaunchProfileMemberResponse (Maybe LaunchProfileMembership)
updateLaunchProfileMemberResponse_member = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\UpdateLaunchProfileMemberResponse' {Maybe LaunchProfileMembership
member :: Maybe LaunchProfileMembership
$sel:member:UpdateLaunchProfileMemberResponse' :: UpdateLaunchProfileMemberResponse -> Maybe LaunchProfileMembership
member} -> Maybe LaunchProfileMembership
member) (\s :: UpdateLaunchProfileMemberResponse
s@UpdateLaunchProfileMemberResponse' {} Maybe LaunchProfileMembership
a -> UpdateLaunchProfileMemberResponse
s {$sel:member:UpdateLaunchProfileMemberResponse' :: Maybe LaunchProfileMembership
member = Maybe LaunchProfileMembership
a} :: UpdateLaunchProfileMemberResponse)
updateLaunchProfileMemberResponse_httpStatus :: Lens.Lens' UpdateLaunchProfileMemberResponse Prelude.Int
updateLaunchProfileMemberResponse_httpStatus :: Lens' UpdateLaunchProfileMemberResponse Int
updateLaunchProfileMemberResponse_httpStatus = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\UpdateLaunchProfileMemberResponse' {Int
httpStatus :: Int
$sel:httpStatus:UpdateLaunchProfileMemberResponse' :: UpdateLaunchProfileMemberResponse -> Int
httpStatus} -> Int
httpStatus) (\s :: UpdateLaunchProfileMemberResponse
s@UpdateLaunchProfileMemberResponse' {} Int
a -> UpdateLaunchProfileMemberResponse
s {$sel:httpStatus:UpdateLaunchProfileMemberResponse' :: Int
httpStatus = Int
a} :: UpdateLaunchProfileMemberResponse)
instance
Prelude.NFData
UpdateLaunchProfileMemberResponse
where
rnf :: UpdateLaunchProfileMemberResponse -> ()
rnf UpdateLaunchProfileMemberResponse' {Int
Maybe LaunchProfileMembership
httpStatus :: Int
member :: Maybe LaunchProfileMembership
$sel:httpStatus:UpdateLaunchProfileMemberResponse' :: UpdateLaunchProfileMemberResponse -> Int
$sel:member:UpdateLaunchProfileMemberResponse' :: UpdateLaunchProfileMemberResponse -> Maybe LaunchProfileMembership
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe LaunchProfileMembership
member
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Int
httpStatus