module Stratosphere.ResourceProperties.ApiGatewayUsagePlanQuotaSettings where
import Control.Lens
import Data.Aeson
import Data.Aeson.Types
import Data.Text
import GHC.Generics
import Stratosphere.Values
import Stratosphere.Types
data ApiGatewayUsagePlanQuotaSettings =
ApiGatewayUsagePlanQuotaSettings
{ _apiGatewayUsagePlanQuotaSettingsLimit :: Maybe (Val Integer')
, _apiGatewayUsagePlanQuotaSettingsOffset :: Maybe (Val Integer')
, _apiGatewayUsagePlanQuotaSettingsPeriod :: Maybe Period
} deriving (Show, Generic)
instance ToJSON ApiGatewayUsagePlanQuotaSettings where
toJSON = genericToJSON defaultOptions { fieldLabelModifier = Prelude.drop 33, omitNothingFields = True }
instance FromJSON ApiGatewayUsagePlanQuotaSettings where
parseJSON = genericParseJSON defaultOptions { fieldLabelModifier = Prelude.drop 33, omitNothingFields = True }
apiGatewayUsagePlanQuotaSettings
:: ApiGatewayUsagePlanQuotaSettings
apiGatewayUsagePlanQuotaSettings =
ApiGatewayUsagePlanQuotaSettings
{ _apiGatewayUsagePlanQuotaSettingsLimit = Nothing
, _apiGatewayUsagePlanQuotaSettingsOffset = Nothing
, _apiGatewayUsagePlanQuotaSettingsPeriod = Nothing
}
agupqsLimit :: Lens' ApiGatewayUsagePlanQuotaSettings (Maybe (Val Integer'))
agupqsLimit = lens _apiGatewayUsagePlanQuotaSettingsLimit (\s a -> s { _apiGatewayUsagePlanQuotaSettingsLimit = a })
agupqsOffset :: Lens' ApiGatewayUsagePlanQuotaSettings (Maybe (Val Integer'))
agupqsOffset = lens _apiGatewayUsagePlanQuotaSettingsOffset (\s a -> s { _apiGatewayUsagePlanQuotaSettingsOffset = a })
agupqsPeriod :: Lens' ApiGatewayUsagePlanQuotaSettings (Maybe Period)
agupqsPeriod = lens _apiGatewayUsagePlanQuotaSettingsPeriod (\s a -> s { _apiGatewayUsagePlanQuotaSettingsPeriod = a })