{-# 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.Cloud9.DeleteEnvironmentMembership
(
deleteEnvironmentMembership
, DeleteEnvironmentMembership
, demEnvironmentId
, demUserARN
, deleteEnvironmentMembershipResponse
, DeleteEnvironmentMembershipResponse
, demrsResponseStatus
) where
import Network.AWS.Cloud9.Types
import Network.AWS.Cloud9.Types.Product
import Network.AWS.Lens
import Network.AWS.Prelude
import Network.AWS.Request
import Network.AWS.Response
data DeleteEnvironmentMembership = DeleteEnvironmentMembership'
{ _demEnvironmentId :: !Text
, _demUserARN :: !Text
} deriving (Eq, Read, Show, Data, Typeable, Generic)
deleteEnvironmentMembership
:: Text
-> Text
-> DeleteEnvironmentMembership
deleteEnvironmentMembership pEnvironmentId_ pUserARN_ =
DeleteEnvironmentMembership'
{_demEnvironmentId = pEnvironmentId_, _demUserARN = pUserARN_}
demEnvironmentId :: Lens' DeleteEnvironmentMembership Text
demEnvironmentId = lens _demEnvironmentId (\ s a -> s{_demEnvironmentId = a})
demUserARN :: Lens' DeleteEnvironmentMembership Text
demUserARN = lens _demUserARN (\ s a -> s{_demUserARN = a})
instance AWSRequest DeleteEnvironmentMembership where
type Rs DeleteEnvironmentMembership =
DeleteEnvironmentMembershipResponse
request = postJSON cloud9
response
= receiveEmpty
(\ s h x ->
DeleteEnvironmentMembershipResponse' <$>
(pure (fromEnum s)))
instance Hashable DeleteEnvironmentMembership where
instance NFData DeleteEnvironmentMembership where
instance ToHeaders DeleteEnvironmentMembership where
toHeaders
= const
(mconcat
["X-Amz-Target" =#
("AWSCloud9WorkspaceManagementService.DeleteEnvironmentMembership"
:: ByteString),
"Content-Type" =#
("application/x-amz-json-1.1" :: ByteString)])
instance ToJSON DeleteEnvironmentMembership where
toJSON DeleteEnvironmentMembership'{..}
= object
(catMaybes
[Just ("environmentId" .= _demEnvironmentId),
Just ("userArn" .= _demUserARN)])
instance ToPath DeleteEnvironmentMembership where
toPath = const "/"
instance ToQuery DeleteEnvironmentMembership where
toQuery = const mempty
newtype DeleteEnvironmentMembershipResponse = DeleteEnvironmentMembershipResponse'
{ _demrsResponseStatus :: Int
} deriving (Eq, Read, Show, Data, Typeable, Generic)
deleteEnvironmentMembershipResponse
:: Int
-> DeleteEnvironmentMembershipResponse
deleteEnvironmentMembershipResponse pResponseStatus_ =
DeleteEnvironmentMembershipResponse' {_demrsResponseStatus = pResponseStatus_}
demrsResponseStatus :: Lens' DeleteEnvironmentMembershipResponse Int
demrsResponseStatus = lens _demrsResponseStatus (\ s a -> s{_demrsResponseStatus = a})
instance NFData DeleteEnvironmentMembershipResponse
where