{-# 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.DescribeSSLPolicies
(
describeSSLPolicies
, DescribeSSLPolicies
, dspNames
, dspMarker
, dspPageSize
, describeSSLPoliciesResponse
, DescribeSSLPoliciesResponse
, dsprsSSLPolicies
, dsprsNextMarker
, dsprsResponseStatus
) 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 DescribeSSLPolicies = DescribeSSLPolicies'
{ _dspNames :: !(Maybe [Text])
, _dspMarker :: !(Maybe Text)
, _dspPageSize :: !(Maybe Nat)
} deriving (Eq, Read, Show, Data, Typeable, Generic)
describeSSLPolicies
:: DescribeSSLPolicies
describeSSLPolicies =
DescribeSSLPolicies'
{_dspNames = Nothing, _dspMarker = Nothing, _dspPageSize = Nothing}
dspNames :: Lens' DescribeSSLPolicies [Text]
dspNames = lens _dspNames (\ s a -> s{_dspNames = a}) . _Default . _Coerce
dspMarker :: Lens' DescribeSSLPolicies (Maybe Text)
dspMarker = lens _dspMarker (\ s a -> s{_dspMarker = a})
dspPageSize :: Lens' DescribeSSLPolicies (Maybe Natural)
dspPageSize = lens _dspPageSize (\ s a -> s{_dspPageSize = a}) . mapping _Nat
instance AWSRequest DescribeSSLPolicies where
type Rs DescribeSSLPolicies =
DescribeSSLPoliciesResponse
request = postQuery eLBv2
response
= receiveXMLWrapper "DescribeSSLPoliciesResult"
(\ s h x ->
DescribeSSLPoliciesResponse' <$>
(x .@? "SslPolicies" .!@ mempty >>=
may (parseXMLList "member"))
<*> (x .@? "NextMarker")
<*> (pure (fromEnum s)))
instance Hashable DescribeSSLPolicies where
instance NFData DescribeSSLPolicies where
instance ToHeaders DescribeSSLPolicies where
toHeaders = const mempty
instance ToPath DescribeSSLPolicies where
toPath = const "/"
instance ToQuery DescribeSSLPolicies where
toQuery DescribeSSLPolicies'{..}
= mconcat
["Action" =: ("DescribeSSLPolicies" :: ByteString),
"Version" =: ("2015-12-01" :: ByteString),
"Names" =:
toQuery (toQueryList "member" <$> _dspNames),
"Marker" =: _dspMarker, "PageSize" =: _dspPageSize]
data DescribeSSLPoliciesResponse = DescribeSSLPoliciesResponse'
{ _dsprsSSLPolicies :: !(Maybe [SSLPolicy])
, _dsprsNextMarker :: !(Maybe Text)
, _dsprsResponseStatus :: !Int
} deriving (Eq, Read, Show, Data, Typeable, Generic)
describeSSLPoliciesResponse
:: Int
-> DescribeSSLPoliciesResponse
describeSSLPoliciesResponse pResponseStatus_ =
DescribeSSLPoliciesResponse'
{ _dsprsSSLPolicies = Nothing
, _dsprsNextMarker = Nothing
, _dsprsResponseStatus = pResponseStatus_
}
dsprsSSLPolicies :: Lens' DescribeSSLPoliciesResponse [SSLPolicy]
dsprsSSLPolicies = lens _dsprsSSLPolicies (\ s a -> s{_dsprsSSLPolicies = a}) . _Default . _Coerce
dsprsNextMarker :: Lens' DescribeSSLPoliciesResponse (Maybe Text)
dsprsNextMarker = lens _dsprsNextMarker (\ s a -> s{_dsprsNextMarker = a})
dsprsResponseStatus :: Lens' DescribeSSLPoliciesResponse Int
dsprsResponseStatus = lens _dsprsResponseStatus (\ s a -> s{_dsprsResponseStatus = a})
instance NFData DescribeSSLPoliciesResponse where