module Network.AWS.CloudSearch.DescribeScalingParameters
(
describeScalingParameters
, DescribeScalingParameters
, dspDomainName
, describeScalingParametersResponse
, DescribeScalingParametersResponse
, dsprsResponseStatus
, dsprsScalingParameters
) where
import Network.AWS.CloudSearch.Types
import Network.AWS.CloudSearch.Types.Product
import Network.AWS.Lens
import Network.AWS.Prelude
import Network.AWS.Request
import Network.AWS.Response
newtype DescribeScalingParameters = DescribeScalingParameters'
{ _dspDomainName :: Text
} deriving (Eq,Read,Show,Data,Typeable,Generic)
describeScalingParameters
:: Text
-> DescribeScalingParameters
describeScalingParameters pDomainName_ =
DescribeScalingParameters'
{ _dspDomainName = pDomainName_
}
dspDomainName :: Lens' DescribeScalingParameters Text
dspDomainName = lens _dspDomainName (\ s a -> s{_dspDomainName = a});
instance AWSRequest DescribeScalingParameters where
type Rs DescribeScalingParameters =
DescribeScalingParametersResponse
request = postQuery cloudSearch
response
= receiveXMLWrapper "DescribeScalingParametersResult"
(\ s h x ->
DescribeScalingParametersResponse' <$>
(pure (fromEnum s)) <*> (x .@ "ScalingParameters"))
instance Hashable DescribeScalingParameters
instance ToHeaders DescribeScalingParameters where
toHeaders = const mempty
instance ToPath DescribeScalingParameters where
toPath = const "/"
instance ToQuery DescribeScalingParameters where
toQuery DescribeScalingParameters'{..}
= mconcat
["Action" =:
("DescribeScalingParameters" :: ByteString),
"Version" =: ("2013-01-01" :: ByteString),
"DomainName" =: _dspDomainName]
data DescribeScalingParametersResponse = DescribeScalingParametersResponse'
{ _dsprsResponseStatus :: !Int
, _dsprsScalingParameters :: !ScalingParametersStatus
} deriving (Eq,Read,Show,Data,Typeable,Generic)
describeScalingParametersResponse
:: Int
-> ScalingParametersStatus
-> DescribeScalingParametersResponse
describeScalingParametersResponse pResponseStatus_ pScalingParameters_ =
DescribeScalingParametersResponse'
{ _dsprsResponseStatus = pResponseStatus_
, _dsprsScalingParameters = pScalingParameters_
}
dsprsResponseStatus :: Lens' DescribeScalingParametersResponse Int
dsprsResponseStatus = lens _dsprsResponseStatus (\ s a -> s{_dsprsResponseStatus = a});
dsprsScalingParameters :: Lens' DescribeScalingParametersResponse ScalingParametersStatus
dsprsScalingParameters = lens _dsprsScalingParameters (\ s a -> s{_dsprsScalingParameters = a});