{-# 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.UpdateEnvironmentMembership
(
updateEnvironmentMembership
, UpdateEnvironmentMembership
, uemEnvironmentId
, uemUserARN
, uemPermissions
, updateEnvironmentMembershipResponse
, UpdateEnvironmentMembershipResponse
, uemrsMembership
, uemrsResponseStatus
) 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 UpdateEnvironmentMembership = UpdateEnvironmentMembership'
{ _uemEnvironmentId :: !Text
, _uemUserARN :: !Text
, _uemPermissions :: !MemberPermissions
} deriving (Eq, Read, Show, Data, Typeable, Generic)
updateEnvironmentMembership
:: Text
-> Text
-> MemberPermissions
-> UpdateEnvironmentMembership
updateEnvironmentMembership pEnvironmentId_ pUserARN_ pPermissions_ =
UpdateEnvironmentMembership'
{ _uemEnvironmentId = pEnvironmentId_
, _uemUserARN = pUserARN_
, _uemPermissions = pPermissions_
}
uemEnvironmentId :: Lens' UpdateEnvironmentMembership Text
uemEnvironmentId = lens _uemEnvironmentId (\ s a -> s{_uemEnvironmentId = a})
uemUserARN :: Lens' UpdateEnvironmentMembership Text
uemUserARN = lens _uemUserARN (\ s a -> s{_uemUserARN = a})
uemPermissions :: Lens' UpdateEnvironmentMembership MemberPermissions
uemPermissions = lens _uemPermissions (\ s a -> s{_uemPermissions = a})
instance AWSRequest UpdateEnvironmentMembership where
type Rs UpdateEnvironmentMembership =
UpdateEnvironmentMembershipResponse
request = postJSON cloud9
response
= receiveJSON
(\ s h x ->
UpdateEnvironmentMembershipResponse' <$>
(x .?> "membership") <*> (pure (fromEnum s)))
instance Hashable UpdateEnvironmentMembership where
instance NFData UpdateEnvironmentMembership where
instance ToHeaders UpdateEnvironmentMembership where
toHeaders
= const
(mconcat
["X-Amz-Target" =#
("AWSCloud9WorkspaceManagementService.UpdateEnvironmentMembership"
:: ByteString),
"Content-Type" =#
("application/x-amz-json-1.1" :: ByteString)])
instance ToJSON UpdateEnvironmentMembership where
toJSON UpdateEnvironmentMembership'{..}
= object
(catMaybes
[Just ("environmentId" .= _uemEnvironmentId),
Just ("userArn" .= _uemUserARN),
Just ("permissions" .= _uemPermissions)])
instance ToPath UpdateEnvironmentMembership where
toPath = const "/"
instance ToQuery UpdateEnvironmentMembership where
toQuery = const mempty
data UpdateEnvironmentMembershipResponse = UpdateEnvironmentMembershipResponse'
{ _uemrsMembership :: !(Maybe EnvironmentMember)
, _uemrsResponseStatus :: !Int
} deriving (Eq, Read, Show, Data, Typeable, Generic)
updateEnvironmentMembershipResponse
:: Int
-> UpdateEnvironmentMembershipResponse
updateEnvironmentMembershipResponse pResponseStatus_ =
UpdateEnvironmentMembershipResponse'
{_uemrsMembership = Nothing, _uemrsResponseStatus = pResponseStatus_}
uemrsMembership :: Lens' UpdateEnvironmentMembershipResponse (Maybe EnvironmentMember)
uemrsMembership = lens _uemrsMembership (\ s a -> s{_uemrsMembership = a})
uemrsResponseStatus :: Lens' UpdateEnvironmentMembershipResponse Int
uemrsResponseStatus = lens _uemrsResponseStatus (\ s a -> s{_uemrsResponseStatus = a})
instance NFData UpdateEnvironmentMembershipResponse
where