module Network.AWS.IAM.RemoveRoleFromInstanceProfile
(
RemoveRoleFromInstanceProfile
, removeRoleFromInstanceProfile
, rrfipInstanceProfileName
, rrfipRoleName
, RemoveRoleFromInstanceProfileResponse
, removeRoleFromInstanceProfileResponse
) where
import Network.AWS.Prelude
import Network.AWS.Request.Query
import Network.AWS.IAM.Types
import qualified GHC.Exts
data RemoveRoleFromInstanceProfile = RemoveRoleFromInstanceProfile
{ _rrfipInstanceProfileName :: Text
, _rrfipRoleName :: Text
} deriving (Eq, Ord, Show)
removeRoleFromInstanceProfile :: Text
-> Text
-> RemoveRoleFromInstanceProfile
removeRoleFromInstanceProfile p1 p2 = RemoveRoleFromInstanceProfile
{ _rrfipInstanceProfileName = p1
, _rrfipRoleName = p2
}
rrfipInstanceProfileName :: Lens' RemoveRoleFromInstanceProfile Text
rrfipInstanceProfileName =
lens _rrfipInstanceProfileName
(\s a -> s { _rrfipInstanceProfileName = a })
rrfipRoleName :: Lens' RemoveRoleFromInstanceProfile Text
rrfipRoleName = lens _rrfipRoleName (\s a -> s { _rrfipRoleName = a })
data RemoveRoleFromInstanceProfileResponse = RemoveRoleFromInstanceProfileResponse
deriving (Eq, Ord, Show, Generic)
removeRoleFromInstanceProfileResponse :: RemoveRoleFromInstanceProfileResponse
removeRoleFromInstanceProfileResponse = RemoveRoleFromInstanceProfileResponse
instance ToPath RemoveRoleFromInstanceProfile where
toPath = const "/"
instance ToQuery RemoveRoleFromInstanceProfile where
toQuery RemoveRoleFromInstanceProfile{..} = mconcat
[ "InstanceProfileName" =? _rrfipInstanceProfileName
, "RoleName" =? _rrfipRoleName
]
instance ToHeaders RemoveRoleFromInstanceProfile
instance AWSRequest RemoveRoleFromInstanceProfile where
type Sv RemoveRoleFromInstanceProfile = IAM
type Rs RemoveRoleFromInstanceProfile = RemoveRoleFromInstanceProfileResponse
request = post "RemoveRoleFromInstanceProfile"
response = nullResponse RemoveRoleFromInstanceProfileResponse