{-# 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.DAX.DescribeDefaultParameters
(
describeDefaultParameters
, DescribeDefaultParameters
, ddpNextToken
, ddpMaxResults
, describeDefaultParametersResponse
, DescribeDefaultParametersResponse
, ddprsNextToken
, ddprsParameters
, ddprsResponseStatus
) where
import Network.AWS.DAX.Types
import Network.AWS.DAX.Types.Product
import Network.AWS.Lens
import Network.AWS.Prelude
import Network.AWS.Request
import Network.AWS.Response
data DescribeDefaultParameters = DescribeDefaultParameters'
{ _ddpNextToken :: !(Maybe Text)
, _ddpMaxResults :: !(Maybe Int)
} deriving (Eq, Read, Show, Data, Typeable, Generic)
describeDefaultParameters
:: DescribeDefaultParameters
describeDefaultParameters =
DescribeDefaultParameters' {_ddpNextToken = Nothing, _ddpMaxResults = Nothing}
ddpNextToken :: Lens' DescribeDefaultParameters (Maybe Text)
ddpNextToken = lens _ddpNextToken (\ s a -> s{_ddpNextToken = a})
ddpMaxResults :: Lens' DescribeDefaultParameters (Maybe Int)
ddpMaxResults = lens _ddpMaxResults (\ s a -> s{_ddpMaxResults = a})
instance AWSRequest DescribeDefaultParameters where
type Rs DescribeDefaultParameters =
DescribeDefaultParametersResponse
request = postJSON dax
response
= receiveJSON
(\ s h x ->
DescribeDefaultParametersResponse' <$>
(x .?> "NextToken") <*>
(x .?> "Parameters" .!@ mempty)
<*> (pure (fromEnum s)))
instance Hashable DescribeDefaultParameters where
instance NFData DescribeDefaultParameters where
instance ToHeaders DescribeDefaultParameters where
toHeaders
= const
(mconcat
["X-Amz-Target" =#
("AmazonDAXV3.DescribeDefaultParameters" ::
ByteString),
"Content-Type" =#
("application/x-amz-json-1.1" :: ByteString)])
instance ToJSON DescribeDefaultParameters where
toJSON DescribeDefaultParameters'{..}
= object
(catMaybes
[("NextToken" .=) <$> _ddpNextToken,
("MaxResults" .=) <$> _ddpMaxResults])
instance ToPath DescribeDefaultParameters where
toPath = const "/"
instance ToQuery DescribeDefaultParameters where
toQuery = const mempty
data DescribeDefaultParametersResponse = DescribeDefaultParametersResponse'
{ _ddprsNextToken :: !(Maybe Text)
, _ddprsParameters :: !(Maybe [Parameter])
, _ddprsResponseStatus :: !Int
} deriving (Eq, Read, Show, Data, Typeable, Generic)
describeDefaultParametersResponse
:: Int
-> DescribeDefaultParametersResponse
describeDefaultParametersResponse pResponseStatus_ =
DescribeDefaultParametersResponse'
{ _ddprsNextToken = Nothing
, _ddprsParameters = Nothing
, _ddprsResponseStatus = pResponseStatus_
}
ddprsNextToken :: Lens' DescribeDefaultParametersResponse (Maybe Text)
ddprsNextToken = lens _ddprsNextToken (\ s a -> s{_ddprsNextToken = a})
ddprsParameters :: Lens' DescribeDefaultParametersResponse [Parameter]
ddprsParameters = lens _ddprsParameters (\ s a -> s{_ddprsParameters = a}) . _Default . _Coerce
ddprsResponseStatus :: Lens' DescribeDefaultParametersResponse Int
ddprsResponseStatus = lens _ddprsResponseStatus (\ s a -> s{_ddprsResponseStatus = a})
instance NFData DescribeDefaultParametersResponse
where