module Network.AWS.CloudSearch.DescribeScalingParameters
(
DescribeScalingParameters
, describeScalingParameters
, dspDomainName
, DescribeScalingParametersResponse
, describeScalingParametersResponse
, dsprScalingParameters
) where
import Network.AWS.Prelude
import Network.AWS.Request.Query
import Network.AWS.CloudSearch.Types
import qualified GHC.Exts
newtype DescribeScalingParameters = DescribeScalingParameters
{ _dspDomainName :: Text
} deriving (Eq, Ord, Show, Monoid, IsString)
describeScalingParameters :: Text
-> DescribeScalingParameters
describeScalingParameters p1 = DescribeScalingParameters
{ _dspDomainName = p1
}
dspDomainName :: Lens' DescribeScalingParameters Text
dspDomainName = lens _dspDomainName (\s a -> s { _dspDomainName = a })
newtype DescribeScalingParametersResponse = DescribeScalingParametersResponse
{ _dsprScalingParameters :: ScalingParametersStatus
} deriving (Eq, Show)
describeScalingParametersResponse :: ScalingParametersStatus
-> DescribeScalingParametersResponse
describeScalingParametersResponse p1 = DescribeScalingParametersResponse
{ _dsprScalingParameters = p1
}
dsprScalingParameters :: Lens' DescribeScalingParametersResponse ScalingParametersStatus
dsprScalingParameters =
lens _dsprScalingParameters (\s a -> s { _dsprScalingParameters = a })
instance ToPath DescribeScalingParameters where
toPath = const "/"
instance ToQuery DescribeScalingParameters where
toQuery DescribeScalingParameters{..} = mconcat
[ "DomainName" =? _dspDomainName
]
instance ToHeaders DescribeScalingParameters
instance AWSRequest DescribeScalingParameters where
type Sv DescribeScalingParameters = CloudSearch
type Rs DescribeScalingParameters = DescribeScalingParametersResponse
request = post "DescribeScalingParameters"
response = xmlResponse
instance FromXML DescribeScalingParametersResponse where
parseXML = withElement "DescribeScalingParametersResult" $ \x -> DescribeScalingParametersResponse
<$> x .@ "ScalingParameters"