{-# 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.Lightsail.GetLoadBalancerTLSCertificates
(
getLoadBalancerTLSCertificates
, GetLoadBalancerTLSCertificates
, glbtcLoadBalancerName
, getLoadBalancerTLSCertificatesResponse
, GetLoadBalancerTLSCertificatesResponse
, glbtcrsTlsCertificates
, glbtcrsResponseStatus
) where
import Network.AWS.Lens
import Network.AWS.Lightsail.Types
import Network.AWS.Lightsail.Types.Product
import Network.AWS.Prelude
import Network.AWS.Request
import Network.AWS.Response
newtype GetLoadBalancerTLSCertificates = GetLoadBalancerTLSCertificates'
{ _glbtcLoadBalancerName :: Text
} deriving (Eq, Read, Show, Data, Typeable, Generic)
getLoadBalancerTLSCertificates
:: Text
-> GetLoadBalancerTLSCertificates
getLoadBalancerTLSCertificates pLoadBalancerName_ =
GetLoadBalancerTLSCertificates' {_glbtcLoadBalancerName = pLoadBalancerName_}
glbtcLoadBalancerName :: Lens' GetLoadBalancerTLSCertificates Text
glbtcLoadBalancerName = lens _glbtcLoadBalancerName (\ s a -> s{_glbtcLoadBalancerName = a})
instance AWSRequest GetLoadBalancerTLSCertificates
where
type Rs GetLoadBalancerTLSCertificates =
GetLoadBalancerTLSCertificatesResponse
request = postJSON lightsail
response
= receiveJSON
(\ s h x ->
GetLoadBalancerTLSCertificatesResponse' <$>
(x .?> "tlsCertificates" .!@ mempty) <*>
(pure (fromEnum s)))
instance Hashable GetLoadBalancerTLSCertificates
where
instance NFData GetLoadBalancerTLSCertificates where
instance ToHeaders GetLoadBalancerTLSCertificates
where
toHeaders
= const
(mconcat
["X-Amz-Target" =#
("Lightsail_20161128.GetLoadBalancerTlsCertificates"
:: ByteString),
"Content-Type" =#
("application/x-amz-json-1.1" :: ByteString)])
instance ToJSON GetLoadBalancerTLSCertificates where
toJSON GetLoadBalancerTLSCertificates'{..}
= object
(catMaybes
[Just
("loadBalancerName" .= _glbtcLoadBalancerName)])
instance ToPath GetLoadBalancerTLSCertificates where
toPath = const "/"
instance ToQuery GetLoadBalancerTLSCertificates where
toQuery = const mempty
data GetLoadBalancerTLSCertificatesResponse = GetLoadBalancerTLSCertificatesResponse'
{ _glbtcrsTlsCertificates :: !(Maybe [LoadBalancerTLSCertificate])
, _glbtcrsResponseStatus :: !Int
} deriving (Eq, Read, Show, Data, Typeable, Generic)
getLoadBalancerTLSCertificatesResponse
:: Int
-> GetLoadBalancerTLSCertificatesResponse
getLoadBalancerTLSCertificatesResponse pResponseStatus_ =
GetLoadBalancerTLSCertificatesResponse'
{ _glbtcrsTlsCertificates = Nothing
, _glbtcrsResponseStatus = pResponseStatus_
}
glbtcrsTlsCertificates :: Lens' GetLoadBalancerTLSCertificatesResponse [LoadBalancerTLSCertificate]
glbtcrsTlsCertificates = lens _glbtcrsTlsCertificates (\ s a -> s{_glbtcrsTlsCertificates = a}) . _Default . _Coerce
glbtcrsResponseStatus :: Lens' GetLoadBalancerTLSCertificatesResponse Int
glbtcrsResponseStatus = lens _glbtcrsResponseStatus (\ s a -> s{_glbtcrsResponseStatus = a})
instance NFData
GetLoadBalancerTLSCertificatesResponse
where