{-# 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.DeregisterTargets
(
deregisterTargets
, DeregisterTargets
, dtTargetGroupARN
, dtTargets
, deregisterTargetsResponse
, DeregisterTargetsResponse
, dtsrsResponseStatus
) 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
data DeregisterTargets = DeregisterTargets'
{ _dtTargetGroupARN :: !Text
, _dtTargets :: ![TargetDescription]
} deriving (Eq, Read, Show, Data, Typeable, Generic)
deregisterTargets
:: Text
-> DeregisterTargets
deregisterTargets pTargetGroupARN_ =
DeregisterTargets' {_dtTargetGroupARN = pTargetGroupARN_, _dtTargets = mempty}
dtTargetGroupARN :: Lens' DeregisterTargets Text
dtTargetGroupARN = lens _dtTargetGroupARN (\ s a -> s{_dtTargetGroupARN = a})
dtTargets :: Lens' DeregisterTargets [TargetDescription]
dtTargets = lens _dtTargets (\ s a -> s{_dtTargets = a}) . _Coerce
instance AWSRequest DeregisterTargets where
type Rs DeregisterTargets = DeregisterTargetsResponse
request = postQuery eLBv2
response
= receiveXMLWrapper "DeregisterTargetsResult"
(\ s h x ->
DeregisterTargetsResponse' <$> (pure (fromEnum s)))
instance Hashable DeregisterTargets where
instance NFData DeregisterTargets where
instance ToHeaders DeregisterTargets where
toHeaders = const mempty
instance ToPath DeregisterTargets where
toPath = const "/"
instance ToQuery DeregisterTargets where
toQuery DeregisterTargets'{..}
= mconcat
["Action" =: ("DeregisterTargets" :: ByteString),
"Version" =: ("2015-12-01" :: ByteString),
"TargetGroupArn" =: _dtTargetGroupARN,
"Targets" =: toQueryList "member" _dtTargets]
newtype DeregisterTargetsResponse = DeregisterTargetsResponse'
{ _dtsrsResponseStatus :: Int
} deriving (Eq, Read, Show, Data, Typeable, Generic)
deregisterTargetsResponse
:: Int
-> DeregisterTargetsResponse
deregisterTargetsResponse pResponseStatus_ =
DeregisterTargetsResponse' {_dtsrsResponseStatus = pResponseStatus_}
dtsrsResponseStatus :: Lens' DeregisterTargetsResponse Int
dtsrsResponseStatus = lens _dtsrsResponseStatus (\ s a -> s{_dtsrsResponseStatus = a})
instance NFData DeregisterTargetsResponse where