{-# 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.RemoveListenerCertificates
(
removeListenerCertificates
, RemoveListenerCertificates
, rlcListenerARN
, rlcCertificates
, removeListenerCertificatesResponse
, RemoveListenerCertificatesResponse
, rlcrsResponseStatus
) 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 RemoveListenerCertificates = RemoveListenerCertificates'
{ _rlcListenerARN :: !Text
, _rlcCertificates :: ![Certificate]
} deriving (Eq, Read, Show, Data, Typeable, Generic)
removeListenerCertificates
:: Text
-> RemoveListenerCertificates
removeListenerCertificates pListenerARN_ =
RemoveListenerCertificates'
{_rlcListenerARN = pListenerARN_, _rlcCertificates = mempty}
rlcListenerARN :: Lens' RemoveListenerCertificates Text
rlcListenerARN = lens _rlcListenerARN (\ s a -> s{_rlcListenerARN = a})
rlcCertificates :: Lens' RemoveListenerCertificates [Certificate]
rlcCertificates = lens _rlcCertificates (\ s a -> s{_rlcCertificates = a}) . _Coerce
instance AWSRequest RemoveListenerCertificates where
type Rs RemoveListenerCertificates =
RemoveListenerCertificatesResponse
request = postQuery eLBv2
response
= receiveXMLWrapper
"RemoveListenerCertificatesResult"
(\ s h x ->
RemoveListenerCertificatesResponse' <$>
(pure (fromEnum s)))
instance Hashable RemoveListenerCertificates where
instance NFData RemoveListenerCertificates where
instance ToHeaders RemoveListenerCertificates where
toHeaders = const mempty
instance ToPath RemoveListenerCertificates where
toPath = const "/"
instance ToQuery RemoveListenerCertificates where
toQuery RemoveListenerCertificates'{..}
= mconcat
["Action" =:
("RemoveListenerCertificates" :: ByteString),
"Version" =: ("2015-12-01" :: ByteString),
"ListenerArn" =: _rlcListenerARN,
"Certificates" =:
toQueryList "member" _rlcCertificates]
newtype RemoveListenerCertificatesResponse = RemoveListenerCertificatesResponse'
{ _rlcrsResponseStatus :: Int
} deriving (Eq, Read, Show, Data, Typeable, Generic)
removeListenerCertificatesResponse
:: Int
-> RemoveListenerCertificatesResponse
removeListenerCertificatesResponse pResponseStatus_ =
RemoveListenerCertificatesResponse' {_rlcrsResponseStatus = pResponseStatus_}
rlcrsResponseStatus :: Lens' RemoveListenerCertificatesResponse Int
rlcrsResponseStatus = lens _rlcrsResponseStatus (\ s a -> s{_rlcrsResponseStatus = a})
instance NFData RemoveListenerCertificatesResponse
where