module Stratosphere.ResourceAttributes.UpdatePolicy where
import Control.Lens
import Data.Aeson
import Data.Aeson.Types
import Data.Text
import GHC.Generics
import Stratosphere.Values
import Stratosphere.ResourceAttributes.AutoScalingReplacingUpdate
import Stratosphere.ResourceAttributes.AutoScalingRollingUpdate
import Stratosphere.ResourceAttributes.AutoScalingScheduledAction
data UpdatePolicy =
UpdatePolicy
{ _updatePolicyAutoScalingReplacingUpdate :: Maybe AutoScalingReplacingUpdate
, _updatePolicyAutoScalingRollingUpdate :: Maybe AutoScalingRollingUpdate
, _updatePolicyAutoScalingScheduledAction :: Maybe AutoScalingScheduledAction
} deriving (Show, Generic)
instance ToJSON UpdatePolicy where
toJSON = genericToJSON defaultOptions { fieldLabelModifier = Prelude.drop 13, omitNothingFields = True }
instance FromJSON UpdatePolicy where
parseJSON = genericParseJSON defaultOptions { fieldLabelModifier = Prelude.drop 13, omitNothingFields = True }
updatePolicy
:: UpdatePolicy
updatePolicy =
UpdatePolicy
{ _updatePolicyAutoScalingReplacingUpdate = Nothing
, _updatePolicyAutoScalingRollingUpdate = Nothing
, _updatePolicyAutoScalingScheduledAction = Nothing
}
upAutoScalingReplacingUpdate :: Lens' UpdatePolicy (Maybe AutoScalingReplacingUpdate)
upAutoScalingReplacingUpdate = lens _updatePolicyAutoScalingReplacingUpdate (\s a -> s { _updatePolicyAutoScalingReplacingUpdate = a })
upAutoScalingRollingUpdate :: Lens' UpdatePolicy (Maybe AutoScalingRollingUpdate)
upAutoScalingRollingUpdate = lens _updatePolicyAutoScalingRollingUpdate (\s a -> s { _updatePolicyAutoScalingRollingUpdate = a })
upAutoScalingScheduledAction :: Lens' UpdatePolicy (Maybe AutoScalingScheduledAction)
upAutoScalingScheduledAction = lens _updatePolicyAutoScalingScheduledAction (\s a -> s { _updatePolicyAutoScalingScheduledAction = a })