{-# 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.DeleteMethodResponse
(
deleteMethodResponse
, DeleteMethodResponse
, dmRestAPIId
, dmResourceId
, dmHttpMethod
, dmStatusCode
, deleteMethodResponseResponse
, DeleteMethodResponseResponse
) 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 DeleteMethodResponse = DeleteMethodResponse'
{ _dmRestAPIId :: !Text
, _dmResourceId :: !Text
, _dmHttpMethod :: !Text
, _dmStatusCode :: !Text
} deriving (Eq,Read,Show,Data,Typeable,Generic)
deleteMethodResponse
:: Text
-> Text
-> Text
-> Text
-> DeleteMethodResponse
deleteMethodResponse pRestAPIId_ pResourceId_ pHttpMethod_ pStatusCode_ =
DeleteMethodResponse'
{ _dmRestAPIId = pRestAPIId_
, _dmResourceId = pResourceId_
, _dmHttpMethod = pHttpMethod_
, _dmStatusCode = pStatusCode_
}
dmRestAPIId :: Lens' DeleteMethodResponse Text
dmRestAPIId = lens _dmRestAPIId (\ s a -> s{_dmRestAPIId = a});
dmResourceId :: Lens' DeleteMethodResponse Text
dmResourceId = lens _dmResourceId (\ s a -> s{_dmResourceId = a});
dmHttpMethod :: Lens' DeleteMethodResponse Text
dmHttpMethod = lens _dmHttpMethod (\ s a -> s{_dmHttpMethod = a});
dmStatusCode :: Lens' DeleteMethodResponse Text
dmStatusCode = lens _dmStatusCode (\ s a -> s{_dmStatusCode = a});
instance AWSRequest DeleteMethodResponse where
type Rs DeleteMethodResponse =
DeleteMethodResponseResponse
request = delete apiGateway
response = receiveNull DeleteMethodResponseResponse'
instance Hashable DeleteMethodResponse
instance NFData DeleteMethodResponse
instance ToHeaders DeleteMethodResponse where
toHeaders
= const
(mconcat
["Accept" =# ("application/json" :: ByteString)])
instance ToPath DeleteMethodResponse where
toPath DeleteMethodResponse'{..}
= mconcat
["/restapis/", toBS _dmRestAPIId, "/resources/",
toBS _dmResourceId, "/methods/", toBS _dmHttpMethod,
"/responses/", toBS _dmStatusCode]
instance ToQuery DeleteMethodResponse where
toQuery = const mempty
data DeleteMethodResponseResponse =
DeleteMethodResponseResponse'
deriving (Eq,Read,Show,Data,Typeable,Generic)
deleteMethodResponseResponse
:: DeleteMethodResponseResponse
deleteMethodResponseResponse = DeleteMethodResponseResponse'
instance NFData DeleteMethodResponseResponse