module Stratosphere.Resources.ApiGatewayRestApi where
import Control.Lens
import Data.Aeson
import Data.Aeson.Types
import Data.Text
import GHC.Generics
import Stratosphere.Values
import Stratosphere.ResourceProperties.ApiGatewayRestApiS3Location
data ApiGatewayRestApi =
ApiGatewayRestApi
{ _apiGatewayRestApiBody :: Maybe Object
, _apiGatewayRestApiBodyS3Location :: Maybe ApiGatewayRestApiS3Location
, _apiGatewayRestApiCloneFrom :: Maybe (Val Text)
, _apiGatewayRestApiDescription :: Maybe (Val Text)
, _apiGatewayRestApiFailOnWarnings :: Maybe (Val Bool')
, _apiGatewayRestApiName :: Val Text
, _apiGatewayRestApiParameters :: Maybe [Val Text]
} deriving (Show, Generic)
instance ToJSON ApiGatewayRestApi where
toJSON = genericToJSON defaultOptions { fieldLabelModifier = Prelude.drop 18, omitNothingFields = True }
instance FromJSON ApiGatewayRestApi where
parseJSON = genericParseJSON defaultOptions { fieldLabelModifier = Prelude.drop 18, omitNothingFields = True }
apiGatewayRestApi
:: Val Text
-> ApiGatewayRestApi
apiGatewayRestApi namearg =
ApiGatewayRestApi
{ _apiGatewayRestApiBody = Nothing
, _apiGatewayRestApiBodyS3Location = Nothing
, _apiGatewayRestApiCloneFrom = Nothing
, _apiGatewayRestApiDescription = Nothing
, _apiGatewayRestApiFailOnWarnings = Nothing
, _apiGatewayRestApiName = namearg
, _apiGatewayRestApiParameters = Nothing
}
agraBody :: Lens' ApiGatewayRestApi (Maybe Object)
agraBody = lens _apiGatewayRestApiBody (\s a -> s { _apiGatewayRestApiBody = a })
agraBodyS3Location :: Lens' ApiGatewayRestApi (Maybe ApiGatewayRestApiS3Location)
agraBodyS3Location = lens _apiGatewayRestApiBodyS3Location (\s a -> s { _apiGatewayRestApiBodyS3Location = a })
agraCloneFrom :: Lens' ApiGatewayRestApi (Maybe (Val Text))
agraCloneFrom = lens _apiGatewayRestApiCloneFrom (\s a -> s { _apiGatewayRestApiCloneFrom = a })
agraDescription :: Lens' ApiGatewayRestApi (Maybe (Val Text))
agraDescription = lens _apiGatewayRestApiDescription (\s a -> s { _apiGatewayRestApiDescription = a })
agraFailOnWarnings :: Lens' ApiGatewayRestApi (Maybe (Val Bool'))
agraFailOnWarnings = lens _apiGatewayRestApiFailOnWarnings (\s a -> s { _apiGatewayRestApiFailOnWarnings = a })
agraName :: Lens' ApiGatewayRestApi (Val Text)
agraName = lens _apiGatewayRestApiName (\s a -> s { _apiGatewayRestApiName = a })
agraParameters :: Lens' ApiGatewayRestApi (Maybe [Val Text])
agraParameters = lens _apiGatewayRestApiParameters (\s a -> s { _apiGatewayRestApiParameters = a })