module Stratosphere.ResourceProperties.ApiGatewayIntegrationResponse where
import Control.Lens
import Data.Aeson
import Data.Aeson.Types
import Data.Text
import GHC.Generics
import Stratosphere.Values
data ApiGatewayIntegrationResponse =
ApiGatewayIntegrationResponse
{ _apiGatewayIntegrationResponseResponseParameters :: Maybe Object
, _apiGatewayIntegrationResponseResponseTemplates :: Maybe Object
, _apiGatewayIntegrationResponseSelectionPattern :: Maybe (Val Text)
, _apiGatewayIntegrationResponseStatusCode :: Maybe (Val Text)
} deriving (Show, Generic)
instance ToJSON ApiGatewayIntegrationResponse where
toJSON = genericToJSON defaultOptions { fieldLabelModifier = Prelude.drop 30, omitNothingFields = True }
instance FromJSON ApiGatewayIntegrationResponse where
parseJSON = genericParseJSON defaultOptions { fieldLabelModifier = Prelude.drop 30, omitNothingFields = True }
apiGatewayIntegrationResponse
:: ApiGatewayIntegrationResponse
apiGatewayIntegrationResponse =
ApiGatewayIntegrationResponse
{ _apiGatewayIntegrationResponseResponseParameters = Nothing
, _apiGatewayIntegrationResponseResponseTemplates = Nothing
, _apiGatewayIntegrationResponseSelectionPattern = Nothing
, _apiGatewayIntegrationResponseStatusCode = Nothing
}
agirResponseParameters :: Lens' ApiGatewayIntegrationResponse (Maybe Object)
agirResponseParameters = lens _apiGatewayIntegrationResponseResponseParameters (\s a -> s { _apiGatewayIntegrationResponseResponseParameters = a })
agirResponseTemplates :: Lens' ApiGatewayIntegrationResponse (Maybe Object)
agirResponseTemplates = lens _apiGatewayIntegrationResponseResponseTemplates (\s a -> s { _apiGatewayIntegrationResponseResponseTemplates = a })
agirSelectionPattern :: Lens' ApiGatewayIntegrationResponse (Maybe (Val Text))
agirSelectionPattern = lens _apiGatewayIntegrationResponseSelectionPattern (\s a -> s { _apiGatewayIntegrationResponseSelectionPattern = a })
agirStatusCode :: Lens' ApiGatewayIntegrationResponse (Maybe (Val Text))
agirStatusCode = lens _apiGatewayIntegrationResponseStatusCode (\s a -> s { _apiGatewayIntegrationResponseStatusCode = a })