module Network.AWS.APIGateway.PutMethodResponse
(
putMethodResponse
, PutMethodResponse
, pmResponseModels
, pmResponseParameters
, pmRestAPIId
, pmResourceId
, pmHttpMethod
, pmStatusCode
, methodResponse
, MethodResponse
, mResponseModels
, mStatusCode
, mResponseParameters
) 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 PutMethodResponse = PutMethodResponse'
{ _pmResponseModels :: !(Maybe (Map Text Text))
, _pmResponseParameters :: !(Maybe (Map Text Bool))
, _pmRestAPIId :: !Text
, _pmResourceId :: !Text
, _pmHttpMethod :: !Text
, _pmStatusCode :: !Text
} deriving (Eq,Read,Show,Data,Typeable,Generic)
putMethodResponse
:: Text
-> Text
-> Text
-> Text
-> PutMethodResponse
putMethodResponse pRestAPIId_ pResourceId_ pHttpMethod_ pStatusCode_ =
PutMethodResponse'
{ _pmResponseModels = Nothing
, _pmResponseParameters = Nothing
, _pmRestAPIId = pRestAPIId_
, _pmResourceId = pResourceId_
, _pmHttpMethod = pHttpMethod_
, _pmStatusCode = pStatusCode_
}
pmResponseModels :: Lens' PutMethodResponse (HashMap Text Text)
pmResponseModels = lens _pmResponseModels (\ s a -> s{_pmResponseModels = a}) . _Default . _Map;
pmResponseParameters :: Lens' PutMethodResponse (HashMap Text Bool)
pmResponseParameters = lens _pmResponseParameters (\ s a -> s{_pmResponseParameters = a}) . _Default . _Map;
pmRestAPIId :: Lens' PutMethodResponse Text
pmRestAPIId = lens _pmRestAPIId (\ s a -> s{_pmRestAPIId = a});
pmResourceId :: Lens' PutMethodResponse Text
pmResourceId = lens _pmResourceId (\ s a -> s{_pmResourceId = a});
pmHttpMethod :: Lens' PutMethodResponse Text
pmHttpMethod = lens _pmHttpMethod (\ s a -> s{_pmHttpMethod = a});
pmStatusCode :: Lens' PutMethodResponse Text
pmStatusCode = lens _pmStatusCode (\ s a -> s{_pmStatusCode = a});
instance AWSRequest PutMethodResponse where
type Rs PutMethodResponse = MethodResponse
request = putJSON apiGateway
response = receiveJSON (\ s h x -> eitherParseJSON x)
instance Hashable PutMethodResponse
instance NFData PutMethodResponse
instance ToHeaders PutMethodResponse where
toHeaders
= const
(mconcat
["Accept" =# ("application/json" :: ByteString)])
instance ToJSON PutMethodResponse where
toJSON PutMethodResponse'{..}
= object
(catMaybes
[("responseModels" .=) <$> _pmResponseModels,
("responseParameters" .=) <$> _pmResponseParameters])
instance ToPath PutMethodResponse where
toPath PutMethodResponse'{..}
= mconcat
["/restapis/", toBS _pmRestAPIId, "/resources/",
toBS _pmResourceId, "/methods/", toBS _pmHttpMethod,
"/responses/", toBS _pmStatusCode]
instance ToQuery PutMethodResponse where
toQuery = const mempty