{-# 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.APIGateway.DeleteRequestValidator
(
deleteRequestValidator
, DeleteRequestValidator
, drvRestAPIId
, drvRequestValidatorId
, deleteRequestValidatorResponse
, DeleteRequestValidatorResponse
) 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 DeleteRequestValidator = DeleteRequestValidator'
{ _drvRestAPIId :: !Text
, _drvRequestValidatorId :: !Text
} deriving (Eq, Read, Show, Data, Typeable, Generic)
deleteRequestValidator
:: Text
-> Text
-> DeleteRequestValidator
deleteRequestValidator pRestAPIId_ pRequestValidatorId_ =
DeleteRequestValidator'
{_drvRestAPIId = pRestAPIId_, _drvRequestValidatorId = pRequestValidatorId_}
drvRestAPIId :: Lens' DeleteRequestValidator Text
drvRestAPIId = lens _drvRestAPIId (\ s a -> s{_drvRestAPIId = a})
drvRequestValidatorId :: Lens' DeleteRequestValidator Text
drvRequestValidatorId = lens _drvRequestValidatorId (\ s a -> s{_drvRequestValidatorId = a})
instance AWSRequest DeleteRequestValidator where
type Rs DeleteRequestValidator =
DeleteRequestValidatorResponse
request = delete apiGateway
response
= receiveNull DeleteRequestValidatorResponse'
instance Hashable DeleteRequestValidator where
instance NFData DeleteRequestValidator where
instance ToHeaders DeleteRequestValidator where
toHeaders
= const
(mconcat
["Accept" =# ("application/json" :: ByteString)])
instance ToPath DeleteRequestValidator where
toPath DeleteRequestValidator'{..}
= mconcat
["/restapis/", toBS _drvRestAPIId,
"/requestvalidators/", toBS _drvRequestValidatorId]
instance ToQuery DeleteRequestValidator where
toQuery = const mempty
data DeleteRequestValidatorResponse =
DeleteRequestValidatorResponse'
deriving (Eq, Read, Show, Data, Typeable, Generic)
deleteRequestValidatorResponse
:: DeleteRequestValidatorResponse
deleteRequestValidatorResponse = DeleteRequestValidatorResponse'
instance NFData DeleteRequestValidatorResponse where