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 where
instance NFData DeleteMethodResponse where
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 where