module Network.AWS.IAM.DeleteGroupPolicy
(
DeleteGroupPolicy
, deleteGroupPolicy
, dgpGroupName
, dgpPolicyName
, DeleteGroupPolicyResponse
, deleteGroupPolicyResponse
) where
import Network.AWS.Prelude
import Network.AWS.Request.Query
import Network.AWS.IAM.Types
import qualified GHC.Exts
data DeleteGroupPolicy = DeleteGroupPolicy
{ _dgpGroupName :: Text
, _dgpPolicyName :: Text
} deriving (Eq, Ord, Show)
deleteGroupPolicy :: Text
-> Text
-> DeleteGroupPolicy
deleteGroupPolicy p1 p2 = DeleteGroupPolicy
{ _dgpGroupName = p1
, _dgpPolicyName = p2
}
dgpGroupName :: Lens' DeleteGroupPolicy Text
dgpGroupName = lens _dgpGroupName (\s a -> s { _dgpGroupName = a })
dgpPolicyName :: Lens' DeleteGroupPolicy Text
dgpPolicyName = lens _dgpPolicyName (\s a -> s { _dgpPolicyName = a })
data DeleteGroupPolicyResponse = DeleteGroupPolicyResponse
deriving (Eq, Ord, Show, Generic)
deleteGroupPolicyResponse :: DeleteGroupPolicyResponse
deleteGroupPolicyResponse = DeleteGroupPolicyResponse
instance ToPath DeleteGroupPolicy where
toPath = const "/"
instance ToQuery DeleteGroupPolicy where
toQuery DeleteGroupPolicy{..} = mconcat
[ "GroupName" =? _dgpGroupName
, "PolicyName" =? _dgpPolicyName
]
instance ToHeaders DeleteGroupPolicy
instance AWSRequest DeleteGroupPolicy where
type Sv DeleteGroupPolicy = IAM
type Rs DeleteGroupPolicy = DeleteGroupPolicyResponse
request = post "DeleteGroupPolicy"
response = nullResponse DeleteGroupPolicyResponse