{-# 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.IAM.DeleteRolePolicy
(
deleteRolePolicy
, DeleteRolePolicy
, delRoleName
, delPolicyName
, deleteRolePolicyResponse
, DeleteRolePolicyResponse
) 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 DeleteRolePolicy = DeleteRolePolicy'
{ _delRoleName :: !Text
, _delPolicyName :: !Text
} deriving (Eq,Read,Show,Data,Typeable,Generic)
deleteRolePolicy
:: Text
-> Text
-> DeleteRolePolicy
deleteRolePolicy pRoleName_ pPolicyName_ =
DeleteRolePolicy'
{ _delRoleName = pRoleName_
, _delPolicyName = pPolicyName_
}
delRoleName :: Lens' DeleteRolePolicy Text
delRoleName = lens _delRoleName (\ s a -> s{_delRoleName = a});
delPolicyName :: Lens' DeleteRolePolicy Text
delPolicyName = lens _delPolicyName (\ s a -> s{_delPolicyName = a});
instance AWSRequest DeleteRolePolicy where
type Rs DeleteRolePolicy = DeleteRolePolicyResponse
request = postQuery iam
response = receiveNull DeleteRolePolicyResponse'
instance Hashable DeleteRolePolicy
instance NFData DeleteRolePolicy
instance ToHeaders DeleteRolePolicy where
toHeaders = const mempty
instance ToPath DeleteRolePolicy where
toPath = const "/"
instance ToQuery DeleteRolePolicy where
toQuery DeleteRolePolicy'{..}
= mconcat
["Action" =: ("DeleteRolePolicy" :: ByteString),
"Version" =: ("2010-05-08" :: ByteString),
"RoleName" =: _delRoleName,
"PolicyName" =: _delPolicyName]
data DeleteRolePolicyResponse =
DeleteRolePolicyResponse'
deriving (Eq,Read,Show,Data,Typeable,Generic)
deleteRolePolicyResponse
:: DeleteRolePolicyResponse
deleteRolePolicyResponse = DeleteRolePolicyResponse'
instance NFData DeleteRolePolicyResponse