{-# 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.DeleteIntegrationResponse
(
deleteIntegrationResponse
, DeleteIntegrationResponse
, diRestAPIId
, diResourceId
, diHttpMethod
, diStatusCode
, deleteIntegrationResponseResponse
, DeleteIntegrationResponseResponse
) 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 DeleteIntegrationResponse = DeleteIntegrationResponse'
{ _diRestAPIId :: !Text
, _diResourceId :: !Text
, _diHttpMethod :: !Text
, _diStatusCode :: !Text
} deriving (Eq,Read,Show,Data,Typeable,Generic)
deleteIntegrationResponse
:: Text
-> Text
-> Text
-> Text
-> DeleteIntegrationResponse
deleteIntegrationResponse pRestAPIId_ pResourceId_ pHttpMethod_ pStatusCode_ =
DeleteIntegrationResponse'
{ _diRestAPIId = pRestAPIId_
, _diResourceId = pResourceId_
, _diHttpMethod = pHttpMethod_
, _diStatusCode = pStatusCode_
}
diRestAPIId :: Lens' DeleteIntegrationResponse Text
diRestAPIId = lens _diRestAPIId (\ s a -> s{_diRestAPIId = a});
diResourceId :: Lens' DeleteIntegrationResponse Text
diResourceId = lens _diResourceId (\ s a -> s{_diResourceId = a});
diHttpMethod :: Lens' DeleteIntegrationResponse Text
diHttpMethod = lens _diHttpMethod (\ s a -> s{_diHttpMethod = a});
diStatusCode :: Lens' DeleteIntegrationResponse Text
diStatusCode = lens _diStatusCode (\ s a -> s{_diStatusCode = a});
instance AWSRequest DeleteIntegrationResponse where
type Rs DeleteIntegrationResponse =
DeleteIntegrationResponseResponse
request = delete apiGateway
response
= receiveNull DeleteIntegrationResponseResponse'
instance Hashable DeleteIntegrationResponse
instance NFData DeleteIntegrationResponse
instance ToHeaders DeleteIntegrationResponse where
toHeaders
= const
(mconcat
["Accept" =# ("application/json" :: ByteString)])
instance ToPath DeleteIntegrationResponse where
toPath DeleteIntegrationResponse'{..}
= mconcat
["/restapis/", toBS _diRestAPIId, "/resources/",
toBS _diResourceId, "/methods/", toBS _diHttpMethod,
"/integration/responses/", toBS _diStatusCode]
instance ToQuery DeleteIntegrationResponse where
toQuery = const mempty
data DeleteIntegrationResponseResponse =
DeleteIntegrationResponseResponse'
deriving (Eq,Read,Show,Data,Typeable,Generic)
deleteIntegrationResponseResponse
:: DeleteIntegrationResponseResponse
deleteIntegrationResponseResponse = DeleteIntegrationResponseResponse'
instance NFData DeleteIntegrationResponseResponse