module Stratosphere.ResourceProperties.ApiGatewayUsagePlanThrottleSettings where
import Control.Lens
import Data.Aeson
import Data.Aeson.Types
import Data.Text
import GHC.Generics
import Stratosphere.Values
data ApiGatewayUsagePlanThrottleSettings =
ApiGatewayUsagePlanThrottleSettings
{ _apiGatewayUsagePlanThrottleSettingsBurstLimit :: Maybe (Val Integer')
, _apiGatewayUsagePlanThrottleSettingsRateLimit :: Maybe Double'
} deriving (Show, Generic)
instance ToJSON ApiGatewayUsagePlanThrottleSettings where
toJSON = genericToJSON defaultOptions { fieldLabelModifier = Prelude.drop 36, omitNothingFields = True }
instance FromJSON ApiGatewayUsagePlanThrottleSettings where
parseJSON = genericParseJSON defaultOptions { fieldLabelModifier = Prelude.drop 36, omitNothingFields = True }
apiGatewayUsagePlanThrottleSettings
:: ApiGatewayUsagePlanThrottleSettings
apiGatewayUsagePlanThrottleSettings =
ApiGatewayUsagePlanThrottleSettings
{ _apiGatewayUsagePlanThrottleSettingsBurstLimit = Nothing
, _apiGatewayUsagePlanThrottleSettingsRateLimit = Nothing
}
aguptsBurstLimit :: Lens' ApiGatewayUsagePlanThrottleSettings (Maybe (Val Integer'))
aguptsBurstLimit = lens _apiGatewayUsagePlanThrottleSettingsBurstLimit (\s a -> s { _apiGatewayUsagePlanThrottleSettingsBurstLimit = a })
aguptsRateLimit :: Lens' ApiGatewayUsagePlanThrottleSettings (Maybe Double')
aguptsRateLimit = lens _apiGatewayUsagePlanThrottleSettingsRateLimit (\s a -> s { _apiGatewayUsagePlanThrottleSettingsRateLimit = a })