module Network.AWS.ELB.SetLoadBalancerListenerSSLCertificate
(
SetLoadBalancerListenerSSLCertificate
, setLoadBalancerListenerSSLCertificate
, slblsslcLoadBalancerName
, slblsslcLoadBalancerPort
, slblsslcSSLCertificateId
, SetLoadBalancerListenerSSLCertificateResponse
, setLoadBalancerListenerSSLCertificateResponse
) where
import Network.AWS.Prelude
import Network.AWS.Request.Query
import Network.AWS.ELB.Types
import qualified GHC.Exts
data SetLoadBalancerListenerSSLCertificate = SetLoadBalancerListenerSSLCertificate
{ _slblsslcLoadBalancerName :: Text
, _slblsslcLoadBalancerPort :: Int
, _slblsslcSSLCertificateId :: Text
} deriving (Eq, Ord, Show)
setLoadBalancerListenerSSLCertificate :: Text
-> Int
-> Text
-> SetLoadBalancerListenerSSLCertificate
setLoadBalancerListenerSSLCertificate p1 p2 p3 = SetLoadBalancerListenerSSLCertificate
{ _slblsslcLoadBalancerName = p1
, _slblsslcLoadBalancerPort = p2
, _slblsslcSSLCertificateId = p3
}
slblsslcLoadBalancerName :: Lens' SetLoadBalancerListenerSSLCertificate Text
slblsslcLoadBalancerName =
lens _slblsslcLoadBalancerName
(\s a -> s { _slblsslcLoadBalancerName = a })
slblsslcLoadBalancerPort :: Lens' SetLoadBalancerListenerSSLCertificate Int
slblsslcLoadBalancerPort =
lens _slblsslcLoadBalancerPort
(\s a -> s { _slblsslcLoadBalancerPort = a })
slblsslcSSLCertificateId :: Lens' SetLoadBalancerListenerSSLCertificate Text
slblsslcSSLCertificateId =
lens _slblsslcSSLCertificateId
(\s a -> s { _slblsslcSSLCertificateId = a })
data SetLoadBalancerListenerSSLCertificateResponse = SetLoadBalancerListenerSSLCertificateResponse
deriving (Eq, Ord, Show, Generic)
setLoadBalancerListenerSSLCertificateResponse :: SetLoadBalancerListenerSSLCertificateResponse
setLoadBalancerListenerSSLCertificateResponse = SetLoadBalancerListenerSSLCertificateResponse
instance ToPath SetLoadBalancerListenerSSLCertificate where
toPath = const "/"
instance ToQuery SetLoadBalancerListenerSSLCertificate where
toQuery SetLoadBalancerListenerSSLCertificate{..} = mconcat
[ "LoadBalancerName" =? _slblsslcLoadBalancerName
, "LoadBalancerPort" =? _slblsslcLoadBalancerPort
, "SSLCertificateId" =? _slblsslcSSLCertificateId
]
instance ToHeaders SetLoadBalancerListenerSSLCertificate
instance AWSRequest SetLoadBalancerListenerSSLCertificate where
type Sv SetLoadBalancerListenerSSLCertificate = ELB
type Rs SetLoadBalancerListenerSSLCertificate = SetLoadBalancerListenerSSLCertificateResponse
request = post "SetLoadBalancerListenerSSLCertificate"
response = nullResponse SetLoadBalancerListenerSSLCertificateResponse