{-# 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.AddListenerCertificates
(
addListenerCertificates
, AddListenerCertificates
, alcListenerARN
, alcCertificates
, addListenerCertificatesResponse
, AddListenerCertificatesResponse
, alcrsCertificates
, alcrsResponseStatus
) 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 AddListenerCertificates = AddListenerCertificates'
{ _alcListenerARN :: !Text
, _alcCertificates :: ![Certificate]
} deriving (Eq, Read, Show, Data, Typeable, Generic)
addListenerCertificates
:: Text
-> AddListenerCertificates
addListenerCertificates pListenerARN_ =
AddListenerCertificates'
{_alcListenerARN = pListenerARN_, _alcCertificates = mempty}
alcListenerARN :: Lens' AddListenerCertificates Text
alcListenerARN = lens _alcListenerARN (\ s a -> s{_alcListenerARN = a})
alcCertificates :: Lens' AddListenerCertificates [Certificate]
alcCertificates = lens _alcCertificates (\ s a -> s{_alcCertificates = a}) . _Coerce
instance AWSRequest AddListenerCertificates where
type Rs AddListenerCertificates =
AddListenerCertificatesResponse
request = postQuery eLBv2
response
= receiveXMLWrapper "AddListenerCertificatesResult"
(\ s h x ->
AddListenerCertificatesResponse' <$>
(x .@? "Certificates" .!@ mempty >>=
may (parseXMLList "member"))
<*> (pure (fromEnum s)))
instance Hashable AddListenerCertificates where
instance NFData AddListenerCertificates where
instance ToHeaders AddListenerCertificates where
toHeaders = const mempty
instance ToPath AddListenerCertificates where
toPath = const "/"
instance ToQuery AddListenerCertificates where
toQuery AddListenerCertificates'{..}
= mconcat
["Action" =:
("AddListenerCertificates" :: ByteString),
"Version" =: ("2015-12-01" :: ByteString),
"ListenerArn" =: _alcListenerARN,
"Certificates" =:
toQueryList "member" _alcCertificates]
data AddListenerCertificatesResponse = AddListenerCertificatesResponse'
{ _alcrsCertificates :: !(Maybe [Certificate])
, _alcrsResponseStatus :: !Int
} deriving (Eq, Read, Show, Data, Typeable, Generic)
addListenerCertificatesResponse
:: Int
-> AddListenerCertificatesResponse
addListenerCertificatesResponse pResponseStatus_ =
AddListenerCertificatesResponse'
{_alcrsCertificates = Nothing, _alcrsResponseStatus = pResponseStatus_}
alcrsCertificates :: Lens' AddListenerCertificatesResponse [Certificate]
alcrsCertificates = lens _alcrsCertificates (\ s a -> s{_alcrsCertificates = a}) . _Default . _Coerce
alcrsResponseStatus :: Lens' AddListenerCertificatesResponse Int
alcrsResponseStatus = lens _alcrsResponseStatus (\ s a -> s{_alcrsResponseStatus = a})
instance NFData AddListenerCertificatesResponse where