{-# 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.CreateEnvironmentMembership
(
createEnvironmentMembership
, CreateEnvironmentMembership
, cemEnvironmentId
, cemUserARN
, cemPermissions
, createEnvironmentMembershipResponse
, CreateEnvironmentMembershipResponse
, cemrsMembership
, cemrsResponseStatus
) 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 CreateEnvironmentMembership = CreateEnvironmentMembership'
{ _cemEnvironmentId :: !Text
, _cemUserARN :: !Text
, _cemPermissions :: !MemberPermissions
} deriving (Eq, Read, Show, Data, Typeable, Generic)
createEnvironmentMembership
:: Text
-> Text
-> MemberPermissions
-> CreateEnvironmentMembership
createEnvironmentMembership pEnvironmentId_ pUserARN_ pPermissions_ =
CreateEnvironmentMembership'
{ _cemEnvironmentId = pEnvironmentId_
, _cemUserARN = pUserARN_
, _cemPermissions = pPermissions_
}
cemEnvironmentId :: Lens' CreateEnvironmentMembership Text
cemEnvironmentId = lens _cemEnvironmentId (\ s a -> s{_cemEnvironmentId = a})
cemUserARN :: Lens' CreateEnvironmentMembership Text
cemUserARN = lens _cemUserARN (\ s a -> s{_cemUserARN = a})
cemPermissions :: Lens' CreateEnvironmentMembership MemberPermissions
cemPermissions = lens _cemPermissions (\ s a -> s{_cemPermissions = a})
instance AWSRequest CreateEnvironmentMembership where
type Rs CreateEnvironmentMembership =
CreateEnvironmentMembershipResponse
request = postJSON cloud9
response
= receiveJSON
(\ s h x ->
CreateEnvironmentMembershipResponse' <$>
(x .?> "membership") <*> (pure (fromEnum s)))
instance Hashable CreateEnvironmentMembership where
instance NFData CreateEnvironmentMembership where
instance ToHeaders CreateEnvironmentMembership where
toHeaders
= const
(mconcat
["X-Amz-Target" =#
("AWSCloud9WorkspaceManagementService.CreateEnvironmentMembership"
:: ByteString),
"Content-Type" =#
("application/x-amz-json-1.1" :: ByteString)])
instance ToJSON CreateEnvironmentMembership where
toJSON CreateEnvironmentMembership'{..}
= object
(catMaybes
[Just ("environmentId" .= _cemEnvironmentId),
Just ("userArn" .= _cemUserARN),
Just ("permissions" .= _cemPermissions)])
instance ToPath CreateEnvironmentMembership where
toPath = const "/"
instance ToQuery CreateEnvironmentMembership where
toQuery = const mempty
data CreateEnvironmentMembershipResponse = CreateEnvironmentMembershipResponse'
{ _cemrsMembership :: !(Maybe EnvironmentMember)
, _cemrsResponseStatus :: !Int
} deriving (Eq, Read, Show, Data, Typeable, Generic)
createEnvironmentMembershipResponse
:: Int
-> CreateEnvironmentMembershipResponse
createEnvironmentMembershipResponse pResponseStatus_ =
CreateEnvironmentMembershipResponse'
{_cemrsMembership = Nothing, _cemrsResponseStatus = pResponseStatus_}
cemrsMembership :: Lens' CreateEnvironmentMembershipResponse (Maybe EnvironmentMember)
cemrsMembership = lens _cemrsMembership (\ s a -> s{_cemrsMembership = a})
cemrsResponseStatus :: Lens' CreateEnvironmentMembershipResponse Int
cemrsResponseStatus = lens _cemrsResponseStatus (\ s a -> s{_cemrsResponseStatus = a})
instance NFData CreateEnvironmentMembershipResponse
where