module Network.AWS.IAM.RemoveRoleFromInstanceProfile
(
removeRoleFromInstanceProfile
, RemoveRoleFromInstanceProfile
, rrfipInstanceProfileName
, rrfipRoleName
, removeRoleFromInstanceProfileResponse
, RemoveRoleFromInstanceProfileResponse
) where
import Network.AWS.IAM.Types
import Network.AWS.IAM.Types.Product
import Network.AWS.Lens
import Network.AWS.Prelude
import Network.AWS.Request
import Network.AWS.Response
data RemoveRoleFromInstanceProfile = RemoveRoleFromInstanceProfile'
{ _rrfipInstanceProfileName :: !Text
, _rrfipRoleName :: !Text
} deriving (Eq,Read,Show,Data,Typeable,Generic)
removeRoleFromInstanceProfile
:: Text
-> Text
-> RemoveRoleFromInstanceProfile
removeRoleFromInstanceProfile pInstanceProfileName_ pRoleName_ =
RemoveRoleFromInstanceProfile'
{ _rrfipInstanceProfileName = pInstanceProfileName_
, _rrfipRoleName = pRoleName_
}
rrfipInstanceProfileName :: Lens' RemoveRoleFromInstanceProfile Text
rrfipInstanceProfileName = lens _rrfipInstanceProfileName (\ s a -> s{_rrfipInstanceProfileName = a});
rrfipRoleName :: Lens' RemoveRoleFromInstanceProfile Text
rrfipRoleName = lens _rrfipRoleName (\ s a -> s{_rrfipRoleName = a});
instance AWSRequest RemoveRoleFromInstanceProfile
where
type Rs RemoveRoleFromInstanceProfile =
RemoveRoleFromInstanceProfileResponse
request = postQuery iam
response
= receiveNull RemoveRoleFromInstanceProfileResponse'
instance Hashable RemoveRoleFromInstanceProfile
instance ToHeaders RemoveRoleFromInstanceProfile
where
toHeaders = const mempty
instance ToPath RemoveRoleFromInstanceProfile where
toPath = const "/"
instance ToQuery RemoveRoleFromInstanceProfile where
toQuery RemoveRoleFromInstanceProfile'{..}
= mconcat
["Action" =:
("RemoveRoleFromInstanceProfile" :: ByteString),
"Version" =: ("2010-05-08" :: ByteString),
"InstanceProfileName" =: _rrfipInstanceProfileName,
"RoleName" =: _rrfipRoleName]
data RemoveRoleFromInstanceProfileResponse =
RemoveRoleFromInstanceProfileResponse'
deriving (Eq,Read,Show,Data,Typeable,Generic)
removeRoleFromInstanceProfileResponse
:: RemoveRoleFromInstanceProfileResponse
removeRoleFromInstanceProfileResponse = RemoveRoleFromInstanceProfileResponse'