{-# 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.CodeStar.UpdateTeamMember
(
UpdateTeamMember (..),
newUpdateTeamMember,
updateTeamMember_projectRole,
updateTeamMember_remoteAccessAllowed,
updateTeamMember_projectId,
updateTeamMember_userArn,
UpdateTeamMemberResponse (..),
newUpdateTeamMemberResponse,
updateTeamMemberResponse_projectRole,
updateTeamMemberResponse_remoteAccessAllowed,
updateTeamMemberResponse_userArn,
updateTeamMemberResponse_httpStatus,
)
where
import Amazonka.CodeStar.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 UpdateTeamMember = UpdateTeamMember'
{
UpdateTeamMember -> Maybe Text
projectRole :: Prelude.Maybe Prelude.Text,
UpdateTeamMember -> Maybe Bool
remoteAccessAllowed :: Prelude.Maybe Prelude.Bool,
UpdateTeamMember -> Text
projectId :: Prelude.Text,
UpdateTeamMember -> Text
userArn :: Prelude.Text
}
deriving (UpdateTeamMember -> UpdateTeamMember -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: UpdateTeamMember -> UpdateTeamMember -> Bool
$c/= :: UpdateTeamMember -> UpdateTeamMember -> Bool
== :: UpdateTeamMember -> UpdateTeamMember -> Bool
$c== :: UpdateTeamMember -> UpdateTeamMember -> Bool
Prelude.Eq, ReadPrec [UpdateTeamMember]
ReadPrec UpdateTeamMember
Int -> ReadS UpdateTeamMember
ReadS [UpdateTeamMember]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [UpdateTeamMember]
$creadListPrec :: ReadPrec [UpdateTeamMember]
readPrec :: ReadPrec UpdateTeamMember
$creadPrec :: ReadPrec UpdateTeamMember
readList :: ReadS [UpdateTeamMember]
$creadList :: ReadS [UpdateTeamMember]
readsPrec :: Int -> ReadS UpdateTeamMember
$creadsPrec :: Int -> ReadS UpdateTeamMember
Prelude.Read, Int -> UpdateTeamMember -> ShowS
[UpdateTeamMember] -> ShowS
UpdateTeamMember -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [UpdateTeamMember] -> ShowS
$cshowList :: [UpdateTeamMember] -> ShowS
show :: UpdateTeamMember -> String
$cshow :: UpdateTeamMember -> String
showsPrec :: Int -> UpdateTeamMember -> ShowS
$cshowsPrec :: Int -> UpdateTeamMember -> ShowS
Prelude.Show, forall x. Rep UpdateTeamMember x -> UpdateTeamMember
forall x. UpdateTeamMember -> Rep UpdateTeamMember x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep UpdateTeamMember x -> UpdateTeamMember
$cfrom :: forall x. UpdateTeamMember -> Rep UpdateTeamMember x
Prelude.Generic)
newUpdateTeamMember ::
Prelude.Text ->
Prelude.Text ->
UpdateTeamMember
newUpdateTeamMember :: Text -> Text -> UpdateTeamMember
newUpdateTeamMember Text
pProjectId_ Text
pUserArn_ =
UpdateTeamMember'
{ $sel:projectRole:UpdateTeamMember' :: Maybe Text
projectRole = forall a. Maybe a
Prelude.Nothing,
$sel:remoteAccessAllowed:UpdateTeamMember' :: Maybe Bool
remoteAccessAllowed = forall a. Maybe a
Prelude.Nothing,
$sel:projectId:UpdateTeamMember' :: Text
projectId = Text
pProjectId_,
$sel:userArn:UpdateTeamMember' :: Text
userArn = Text
pUserArn_
}
updateTeamMember_projectRole :: Lens.Lens' UpdateTeamMember (Prelude.Maybe Prelude.Text)
updateTeamMember_projectRole :: Lens' UpdateTeamMember (Maybe Text)
updateTeamMember_projectRole = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\UpdateTeamMember' {Maybe Text
projectRole :: Maybe Text
$sel:projectRole:UpdateTeamMember' :: UpdateTeamMember -> Maybe Text
projectRole} -> Maybe Text
projectRole) (\s :: UpdateTeamMember
s@UpdateTeamMember' {} Maybe Text
a -> UpdateTeamMember
s {$sel:projectRole:UpdateTeamMember' :: Maybe Text
projectRole = Maybe Text
a} :: UpdateTeamMember)
updateTeamMember_remoteAccessAllowed :: Lens.Lens' UpdateTeamMember (Prelude.Maybe Prelude.Bool)
updateTeamMember_remoteAccessAllowed :: Lens' UpdateTeamMember (Maybe Bool)
updateTeamMember_remoteAccessAllowed = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\UpdateTeamMember' {Maybe Bool
remoteAccessAllowed :: Maybe Bool
$sel:remoteAccessAllowed:UpdateTeamMember' :: UpdateTeamMember -> Maybe Bool
remoteAccessAllowed} -> Maybe Bool
remoteAccessAllowed) (\s :: UpdateTeamMember
s@UpdateTeamMember' {} Maybe Bool
a -> UpdateTeamMember
s {$sel:remoteAccessAllowed:UpdateTeamMember' :: Maybe Bool
remoteAccessAllowed = Maybe Bool
a} :: UpdateTeamMember)
updateTeamMember_projectId :: Lens.Lens' UpdateTeamMember Prelude.Text
updateTeamMember_projectId :: Lens' UpdateTeamMember Text
updateTeamMember_projectId = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\UpdateTeamMember' {Text
projectId :: Text
$sel:projectId:UpdateTeamMember' :: UpdateTeamMember -> Text
projectId} -> Text
projectId) (\s :: UpdateTeamMember
s@UpdateTeamMember' {} Text
a -> UpdateTeamMember
s {$sel:projectId:UpdateTeamMember' :: Text
projectId = Text
a} :: UpdateTeamMember)
updateTeamMember_userArn :: Lens.Lens' UpdateTeamMember Prelude.Text
updateTeamMember_userArn :: Lens' UpdateTeamMember Text
updateTeamMember_userArn = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\UpdateTeamMember' {Text
userArn :: Text
$sel:userArn:UpdateTeamMember' :: UpdateTeamMember -> Text
userArn} -> Text
userArn) (\s :: UpdateTeamMember
s@UpdateTeamMember' {} Text
a -> UpdateTeamMember
s {$sel:userArn:UpdateTeamMember' :: Text
userArn = Text
a} :: UpdateTeamMember)
instance Core.AWSRequest UpdateTeamMember where
type
AWSResponse UpdateTeamMember =
UpdateTeamMemberResponse
request :: (Service -> Service)
-> UpdateTeamMember -> Request UpdateTeamMember
request Service -> Service
overrides =
forall a. (ToRequest a, ToJSON a) => Service -> a -> Request a
Request.postJSON (Service -> Service
overrides Service
defaultService)
response :: forall (m :: * -> *).
MonadResource m =>
(ByteStringLazy -> IO ByteStringLazy)
-> Service
-> Proxy UpdateTeamMember
-> ClientResponse ClientBody
-> m (Either Error (ClientResponse (AWSResponse UpdateTeamMember)))
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 Text
-> Maybe Bool -> Maybe Text -> Int -> UpdateTeamMemberResponse
UpdateTeamMemberResponse'
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
"projectRole")
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Either String (Maybe a)
Data..?> Key
"remoteAccessAllowed")
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Either String (Maybe a)
Data..?> Key
"userArn")
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 UpdateTeamMember where
hashWithSalt :: Int -> UpdateTeamMember -> Int
hashWithSalt Int
_salt UpdateTeamMember' {Maybe Bool
Maybe Text
Text
userArn :: Text
projectId :: Text
remoteAccessAllowed :: Maybe Bool
projectRole :: Maybe Text
$sel:userArn:UpdateTeamMember' :: UpdateTeamMember -> Text
$sel:projectId:UpdateTeamMember' :: UpdateTeamMember -> Text
$sel:remoteAccessAllowed:UpdateTeamMember' :: UpdateTeamMember -> Maybe Bool
$sel:projectRole:UpdateTeamMember' :: UpdateTeamMember -> Maybe Text
..} =
Int
_salt
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
projectRole
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Bool
remoteAccessAllowed
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
projectId
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
userArn
instance Prelude.NFData UpdateTeamMember where
rnf :: UpdateTeamMember -> ()
rnf UpdateTeamMember' {Maybe Bool
Maybe Text
Text
userArn :: Text
projectId :: Text
remoteAccessAllowed :: Maybe Bool
projectRole :: Maybe Text
$sel:userArn:UpdateTeamMember' :: UpdateTeamMember -> Text
$sel:projectId:UpdateTeamMember' :: UpdateTeamMember -> Text
$sel:remoteAccessAllowed:UpdateTeamMember' :: UpdateTeamMember -> Maybe Bool
$sel:projectRole:UpdateTeamMember' :: UpdateTeamMember -> Maybe Text
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
projectRole
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Bool
remoteAccessAllowed
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Text
projectId
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Text
userArn
instance Data.ToHeaders UpdateTeamMember where
toHeaders :: UpdateTeamMember -> ResponseHeaders
toHeaders =
forall a b. a -> b -> a
Prelude.const
( forall a. Monoid a => [a] -> a
Prelude.mconcat
[ HeaderName
"X-Amz-Target"
forall a. ToHeader a => HeaderName -> a -> ResponseHeaders
Data.=# ( ByteString
"CodeStar_20170419.UpdateTeamMember" ::
Prelude.ByteString
),
HeaderName
"Content-Type"
forall a. ToHeader a => HeaderName -> a -> ResponseHeaders
Data.=# ( ByteString
"application/x-amz-json-1.1" ::
Prelude.ByteString
)
]
)
instance Data.ToJSON UpdateTeamMember where
toJSON :: UpdateTeamMember -> Value
toJSON UpdateTeamMember' {Maybe Bool
Maybe Text
Text
userArn :: Text
projectId :: Text
remoteAccessAllowed :: Maybe Bool
projectRole :: Maybe Text
$sel:userArn:UpdateTeamMember' :: UpdateTeamMember -> Text
$sel:projectId:UpdateTeamMember' :: UpdateTeamMember -> Text
$sel:remoteAccessAllowed:UpdateTeamMember' :: UpdateTeamMember -> Maybe Bool
$sel:projectRole:UpdateTeamMember' :: UpdateTeamMember -> Maybe Text
..} =
[Pair] -> Value
Data.object
( forall a. [Maybe a] -> [a]
Prelude.catMaybes
[ (Key
"projectRole" 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
projectRole,
(Key
"remoteAccessAllowed" 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 Bool
remoteAccessAllowed,
forall a. a -> Maybe a
Prelude.Just (Key
"projectId" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..= Text
projectId),
forall a. a -> Maybe a
Prelude.Just (Key
"userArn" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..= Text
userArn)
]
)
instance Data.ToPath UpdateTeamMember where
toPath :: UpdateTeamMember -> ByteString
toPath = forall a b. a -> b -> a
Prelude.const ByteString
"/"
instance Data.ToQuery UpdateTeamMember where
toQuery :: UpdateTeamMember -> QueryString
toQuery = forall a b. a -> b -> a
Prelude.const forall a. Monoid a => a
Prelude.mempty
data UpdateTeamMemberResponse = UpdateTeamMemberResponse'
{
UpdateTeamMemberResponse -> Maybe Text
projectRole :: Prelude.Maybe Prelude.Text,
UpdateTeamMemberResponse -> Maybe Bool
remoteAccessAllowed :: Prelude.Maybe Prelude.Bool,
UpdateTeamMemberResponse -> Maybe Text
userArn :: Prelude.Maybe Prelude.Text,
UpdateTeamMemberResponse -> Int
httpStatus :: Prelude.Int
}
deriving (UpdateTeamMemberResponse -> UpdateTeamMemberResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: UpdateTeamMemberResponse -> UpdateTeamMemberResponse -> Bool
$c/= :: UpdateTeamMemberResponse -> UpdateTeamMemberResponse -> Bool
== :: UpdateTeamMemberResponse -> UpdateTeamMemberResponse -> Bool
$c== :: UpdateTeamMemberResponse -> UpdateTeamMemberResponse -> Bool
Prelude.Eq, ReadPrec [UpdateTeamMemberResponse]
ReadPrec UpdateTeamMemberResponse
Int -> ReadS UpdateTeamMemberResponse
ReadS [UpdateTeamMemberResponse]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [UpdateTeamMemberResponse]
$creadListPrec :: ReadPrec [UpdateTeamMemberResponse]
readPrec :: ReadPrec UpdateTeamMemberResponse
$creadPrec :: ReadPrec UpdateTeamMemberResponse
readList :: ReadS [UpdateTeamMemberResponse]
$creadList :: ReadS [UpdateTeamMemberResponse]
readsPrec :: Int -> ReadS UpdateTeamMemberResponse
$creadsPrec :: Int -> ReadS UpdateTeamMemberResponse
Prelude.Read, Int -> UpdateTeamMemberResponse -> ShowS
[UpdateTeamMemberResponse] -> ShowS
UpdateTeamMemberResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [UpdateTeamMemberResponse] -> ShowS
$cshowList :: [UpdateTeamMemberResponse] -> ShowS
show :: UpdateTeamMemberResponse -> String
$cshow :: UpdateTeamMemberResponse -> String
showsPrec :: Int -> UpdateTeamMemberResponse -> ShowS
$cshowsPrec :: Int -> UpdateTeamMemberResponse -> ShowS
Prelude.Show, forall x.
Rep UpdateTeamMemberResponse x -> UpdateTeamMemberResponse
forall x.
UpdateTeamMemberResponse -> Rep UpdateTeamMemberResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep UpdateTeamMemberResponse x -> UpdateTeamMemberResponse
$cfrom :: forall x.
UpdateTeamMemberResponse -> Rep UpdateTeamMemberResponse x
Prelude.Generic)
newUpdateTeamMemberResponse ::
Prelude.Int ->
UpdateTeamMemberResponse
newUpdateTeamMemberResponse :: Int -> UpdateTeamMemberResponse
newUpdateTeamMemberResponse Int
pHttpStatus_ =
UpdateTeamMemberResponse'
{ $sel:projectRole:UpdateTeamMemberResponse' :: Maybe Text
projectRole =
forall a. Maybe a
Prelude.Nothing,
$sel:remoteAccessAllowed:UpdateTeamMemberResponse' :: Maybe Bool
remoteAccessAllowed = forall a. Maybe a
Prelude.Nothing,
$sel:userArn:UpdateTeamMemberResponse' :: Maybe Text
userArn = forall a. Maybe a
Prelude.Nothing,
$sel:httpStatus:UpdateTeamMemberResponse' :: Int
httpStatus = Int
pHttpStatus_
}
updateTeamMemberResponse_projectRole :: Lens.Lens' UpdateTeamMemberResponse (Prelude.Maybe Prelude.Text)
updateTeamMemberResponse_projectRole :: Lens' UpdateTeamMemberResponse (Maybe Text)
updateTeamMemberResponse_projectRole = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\UpdateTeamMemberResponse' {Maybe Text
projectRole :: Maybe Text
$sel:projectRole:UpdateTeamMemberResponse' :: UpdateTeamMemberResponse -> Maybe Text
projectRole} -> Maybe Text
projectRole) (\s :: UpdateTeamMemberResponse
s@UpdateTeamMemberResponse' {} Maybe Text
a -> UpdateTeamMemberResponse
s {$sel:projectRole:UpdateTeamMemberResponse' :: Maybe Text
projectRole = Maybe Text
a} :: UpdateTeamMemberResponse)
updateTeamMemberResponse_remoteAccessAllowed :: Lens.Lens' UpdateTeamMemberResponse (Prelude.Maybe Prelude.Bool)
updateTeamMemberResponse_remoteAccessAllowed :: Lens' UpdateTeamMemberResponse (Maybe Bool)
updateTeamMemberResponse_remoteAccessAllowed = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\UpdateTeamMemberResponse' {Maybe Bool
remoteAccessAllowed :: Maybe Bool
$sel:remoteAccessAllowed:UpdateTeamMemberResponse' :: UpdateTeamMemberResponse -> Maybe Bool
remoteAccessAllowed} -> Maybe Bool
remoteAccessAllowed) (\s :: UpdateTeamMemberResponse
s@UpdateTeamMemberResponse' {} Maybe Bool
a -> UpdateTeamMemberResponse
s {$sel:remoteAccessAllowed:UpdateTeamMemberResponse' :: Maybe Bool
remoteAccessAllowed = Maybe Bool
a} :: UpdateTeamMemberResponse)
updateTeamMemberResponse_userArn :: Lens.Lens' UpdateTeamMemberResponse (Prelude.Maybe Prelude.Text)
updateTeamMemberResponse_userArn :: Lens' UpdateTeamMemberResponse (Maybe Text)
updateTeamMemberResponse_userArn = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\UpdateTeamMemberResponse' {Maybe Text
userArn :: Maybe Text
$sel:userArn:UpdateTeamMemberResponse' :: UpdateTeamMemberResponse -> Maybe Text
userArn} -> Maybe Text
userArn) (\s :: UpdateTeamMemberResponse
s@UpdateTeamMemberResponse' {} Maybe Text
a -> UpdateTeamMemberResponse
s {$sel:userArn:UpdateTeamMemberResponse' :: Maybe Text
userArn = Maybe Text
a} :: UpdateTeamMemberResponse)
updateTeamMemberResponse_httpStatus :: Lens.Lens' UpdateTeamMemberResponse Prelude.Int
updateTeamMemberResponse_httpStatus :: Lens' UpdateTeamMemberResponse Int
updateTeamMemberResponse_httpStatus = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\UpdateTeamMemberResponse' {Int
httpStatus :: Int
$sel:httpStatus:UpdateTeamMemberResponse' :: UpdateTeamMemberResponse -> Int
httpStatus} -> Int
httpStatus) (\s :: UpdateTeamMemberResponse
s@UpdateTeamMemberResponse' {} Int
a -> UpdateTeamMemberResponse
s {$sel:httpStatus:UpdateTeamMemberResponse' :: Int
httpStatus = Int
a} :: UpdateTeamMemberResponse)
instance Prelude.NFData UpdateTeamMemberResponse where
rnf :: UpdateTeamMemberResponse -> ()
rnf UpdateTeamMemberResponse' {Int
Maybe Bool
Maybe Text
httpStatus :: Int
userArn :: Maybe Text
remoteAccessAllowed :: Maybe Bool
projectRole :: Maybe Text
$sel:httpStatus:UpdateTeamMemberResponse' :: UpdateTeamMemberResponse -> Int
$sel:userArn:UpdateTeamMemberResponse' :: UpdateTeamMemberResponse -> Maybe Text
$sel:remoteAccessAllowed:UpdateTeamMemberResponse' :: UpdateTeamMemberResponse -> Maybe Bool
$sel:projectRole:UpdateTeamMemberResponse' :: UpdateTeamMemberResponse -> Maybe Text
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
projectRole
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Bool
remoteAccessAllowed
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
userArn
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Int
httpStatus