{-# 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.ELBv2.DeleteTargetGroup
(
deleteTargetGroup
, DeleteTargetGroup
, dtgTargetGroupARN
, deleteTargetGroupResponse
, DeleteTargetGroupResponse
, dtgrsResponseStatus
) where
import Network.AWS.ELBv2.Types
import Network.AWS.ELBv2.Types.Product
import Network.AWS.Lens
import Network.AWS.Prelude
import Network.AWS.Request
import Network.AWS.Response
newtype DeleteTargetGroup = DeleteTargetGroup'
{ _dtgTargetGroupARN :: Text
} deriving (Eq, Read, Show, Data, Typeable, Generic)
deleteTargetGroup
:: Text
-> DeleteTargetGroup
deleteTargetGroup pTargetGroupARN_ =
DeleteTargetGroup' {_dtgTargetGroupARN = pTargetGroupARN_}
dtgTargetGroupARN :: Lens' DeleteTargetGroup Text
dtgTargetGroupARN = lens _dtgTargetGroupARN (\ s a -> s{_dtgTargetGroupARN = a})
instance AWSRequest DeleteTargetGroup where
type Rs DeleteTargetGroup = DeleteTargetGroupResponse
request = postQuery eLBv2
response
= receiveXMLWrapper "DeleteTargetGroupResult"
(\ s h x ->
DeleteTargetGroupResponse' <$> (pure (fromEnum s)))
instance Hashable DeleteTargetGroup where
instance NFData DeleteTargetGroup where
instance ToHeaders DeleteTargetGroup where
toHeaders = const mempty
instance ToPath DeleteTargetGroup where
toPath = const "/"
instance ToQuery DeleteTargetGroup where
toQuery DeleteTargetGroup'{..}
= mconcat
["Action" =: ("DeleteTargetGroup" :: ByteString),
"Version" =: ("2015-12-01" :: ByteString),
"TargetGroupArn" =: _dtgTargetGroupARN]
newtype DeleteTargetGroupResponse = DeleteTargetGroupResponse'
{ _dtgrsResponseStatus :: Int
} deriving (Eq, Read, Show, Data, Typeable, Generic)
deleteTargetGroupResponse
:: Int
-> DeleteTargetGroupResponse
deleteTargetGroupResponse pResponseStatus_ =
DeleteTargetGroupResponse' {_dtgrsResponseStatus = pResponseStatus_}
dtgrsResponseStatus :: Lens' DeleteTargetGroupResponse Int
dtgrsResponseStatus = lens _dtgrsResponseStatus (\ s a -> s{_dtgrsResponseStatus = a})
instance NFData DeleteTargetGroupResponse where