module Network.AWS.APIGateway.CreateRequestValidator
(
createRequestValidator
, CreateRequestValidator
, crvValidateRequestParameters
, crvName
, crvValidateRequestBody
, crvRestAPIId
, requestValidator
, RequestValidator
, rvValidateRequestParameters
, rvName
, rvValidateRequestBody
, rvId
) where
import Network.AWS.APIGateway.Types
import Network.AWS.APIGateway.Types.Product
import Network.AWS.Lens
import Network.AWS.Prelude
import Network.AWS.Request
import Network.AWS.Response
data CreateRequestValidator = CreateRequestValidator'
{ _crvValidateRequestParameters :: !(Maybe Bool)
, _crvName :: !(Maybe Text)
, _crvValidateRequestBody :: !(Maybe Bool)
, _crvRestAPIId :: !Text
} deriving (Eq, Read, Show, Data, Typeable, Generic)
createRequestValidator
:: Text
-> CreateRequestValidator
createRequestValidator pRestAPIId_ =
CreateRequestValidator'
{ _crvValidateRequestParameters = Nothing
, _crvName = Nothing
, _crvValidateRequestBody = Nothing
, _crvRestAPIId = pRestAPIId_
}
crvValidateRequestParameters :: Lens' CreateRequestValidator (Maybe Bool)
crvValidateRequestParameters = lens _crvValidateRequestParameters (\ s a -> s{_crvValidateRequestParameters = a});
crvName :: Lens' CreateRequestValidator (Maybe Text)
crvName = lens _crvName (\ s a -> s{_crvName = a});
crvValidateRequestBody :: Lens' CreateRequestValidator (Maybe Bool)
crvValidateRequestBody = lens _crvValidateRequestBody (\ s a -> s{_crvValidateRequestBody = a});
crvRestAPIId :: Lens' CreateRequestValidator Text
crvRestAPIId = lens _crvRestAPIId (\ s a -> s{_crvRestAPIId = a});
instance AWSRequest CreateRequestValidator where
type Rs CreateRequestValidator = RequestValidator
request = postJSON apiGateway
response = receiveJSON (\ s h x -> eitherParseJSON x)
instance Hashable CreateRequestValidator where
instance NFData CreateRequestValidator where
instance ToHeaders CreateRequestValidator where
toHeaders
= const
(mconcat
["Accept" =# ("application/json" :: ByteString)])
instance ToJSON CreateRequestValidator where
toJSON CreateRequestValidator'{..}
= object
(catMaybes
[("validateRequestParameters" .=) <$>
_crvValidateRequestParameters,
("name" .=) <$> _crvName,
("validateRequestBody" .=) <$>
_crvValidateRequestBody])
instance ToPath CreateRequestValidator where
toPath CreateRequestValidator'{..}
= mconcat
["/restapis/", toBS _crvRestAPIId,
"/requestvalidators"]
instance ToQuery CreateRequestValidator where
toQuery = const mempty