{-# 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.ResourceGroups.DeleteGroup
(
deleteGroup
, DeleteGroup
, dgGroupName
, deleteGroupResponse
, DeleteGroupResponse
, dgrsGroup
, dgrsResponseStatus
) where
import Network.AWS.Lens
import Network.AWS.Prelude
import Network.AWS.Request
import Network.AWS.ResourceGroups.Types
import Network.AWS.ResourceGroups.Types.Product
import Network.AWS.Response
newtype DeleteGroup = DeleteGroup'
{ _dgGroupName :: Text
} deriving (Eq, Read, Show, Data, Typeable, Generic)
deleteGroup
:: Text
-> DeleteGroup
deleteGroup pGroupName_ = DeleteGroup' {_dgGroupName = pGroupName_}
dgGroupName :: Lens' DeleteGroup Text
dgGroupName = lens _dgGroupName (\ s a -> s{_dgGroupName = a})
instance AWSRequest DeleteGroup where
type Rs DeleteGroup = DeleteGroupResponse
request = delete resourceGroups
response
= receiveJSON
(\ s h x ->
DeleteGroupResponse' <$>
(x .?> "Group") <*> (pure (fromEnum s)))
instance Hashable DeleteGroup where
instance NFData DeleteGroup where
instance ToHeaders DeleteGroup where
toHeaders = const mempty
instance ToPath DeleteGroup where
toPath DeleteGroup'{..}
= mconcat ["/groups/", toBS _dgGroupName]
instance ToQuery DeleteGroup where
toQuery = const mempty
data DeleteGroupResponse = DeleteGroupResponse'
{ _dgrsGroup :: !(Maybe Group)
, _dgrsResponseStatus :: !Int
} deriving (Eq, Read, Show, Data, Typeable, Generic)
deleteGroupResponse
:: Int
-> DeleteGroupResponse
deleteGroupResponse pResponseStatus_ =
DeleteGroupResponse'
{_dgrsGroup = Nothing, _dgrsResponseStatus = pResponseStatus_}
dgrsGroup :: Lens' DeleteGroupResponse (Maybe Group)
dgrsGroup = lens _dgrsGroup (\ s a -> s{_dgrsGroup = a})
dgrsResponseStatus :: Lens' DeleteGroupResponse Int
dgrsResponseStatus = lens _dgrsResponseStatus (\ s a -> s{_dgrsResponseStatus = a})
instance NFData DeleteGroupResponse where