{-# LANGUAGE DeriveDataTypeable #-}
{-# LANGUAGE DeriveGeneric #-}
{-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE RecordWildCards #-}
{-# LANGUAGE TypeFamilies #-}
{-# OPTIONS_GHC -fno-warn-unused-imports #-}
{-# OPTIONS_GHC -fno-warn-unused-binds #-}
{-# OPTIONS_GHC -fno-warn-unused-matches #-}
module Network.AWS.CodeStar.DisassociateTeamMember
(
disassociateTeamMember
, DisassociateTeamMember
, dtmProjectId
, dtmUserARN
, disassociateTeamMemberResponse
, DisassociateTeamMemberResponse
, dtmrsResponseStatus
) where
import Network.AWS.CodeStar.Types
import Network.AWS.CodeStar.Types.Product
import Network.AWS.Lens
import Network.AWS.Prelude
import Network.AWS.Request
import Network.AWS.Response
data DisassociateTeamMember = DisassociateTeamMember'
{ _dtmProjectId :: !Text
, _dtmUserARN :: !Text
} deriving (Eq, Read, Show, Data, Typeable, Generic)
disassociateTeamMember
:: Text
-> Text
-> DisassociateTeamMember
disassociateTeamMember pProjectId_ pUserARN_ =
DisassociateTeamMember' {_dtmProjectId = pProjectId_, _dtmUserARN = pUserARN_}
dtmProjectId :: Lens' DisassociateTeamMember Text
dtmProjectId = lens _dtmProjectId (\ s a -> s{_dtmProjectId = a})
dtmUserARN :: Lens' DisassociateTeamMember Text
dtmUserARN = lens _dtmUserARN (\ s a -> s{_dtmUserARN = a})
instance AWSRequest DisassociateTeamMember where
type Rs DisassociateTeamMember =
DisassociateTeamMemberResponse
request = postJSON codeStar
response
= receiveEmpty
(\ s h x ->
DisassociateTeamMemberResponse' <$>
(pure (fromEnum s)))
instance Hashable DisassociateTeamMember where
instance NFData DisassociateTeamMember where
instance ToHeaders DisassociateTeamMember where
toHeaders
= const
(mconcat
["X-Amz-Target" =#
("CodeStar_20170419.DisassociateTeamMember" ::
ByteString),
"Content-Type" =#
("application/x-amz-json-1.1" :: ByteString)])
instance ToJSON DisassociateTeamMember where
toJSON DisassociateTeamMember'{..}
= object
(catMaybes
[Just ("projectId" .= _dtmProjectId),
Just ("userArn" .= _dtmUserARN)])
instance ToPath DisassociateTeamMember where
toPath = const "/"
instance ToQuery DisassociateTeamMember where
toQuery = const mempty
newtype DisassociateTeamMemberResponse = DisassociateTeamMemberResponse'
{ _dtmrsResponseStatus :: Int
} deriving (Eq, Read, Show, Data, Typeable, Generic)
disassociateTeamMemberResponse
:: Int
-> DisassociateTeamMemberResponse
disassociateTeamMemberResponse pResponseStatus_ =
DisassociateTeamMemberResponse' {_dtmrsResponseStatus = pResponseStatus_}
dtmrsResponseStatus :: Lens' DisassociateTeamMemberResponse Int
dtmrsResponseStatus = lens _dtmrsResponseStatus (\ s a -> s{_dtmrsResponseStatus = a})
instance NFData DisassociateTeamMemberResponse where