stratosphere 0.19.1 → 0.20.0

raw patch · 4 files changed

+45/−16 lines, 4 files

Files

• CHANGELOG.md +5/−0
• library/Stratosphere/ResourceAttributes/AutoScalingRollingUpdatePolicy.hs +6/−6
• library/Stratosphere/Types.hs +32/−8
• stratosphere.cabal +2/−2

@@ -1,5 +1,10 @@ # Change Log +## 0.20.0++* Fix name of `AutoScalingRollingUpdatePolicy` `SuspendProcesses` parameter+* Update list of AWS Lambda `Runtime` values+ ## 0.19.1  * Add compatibility with GHC 8.4.1

@@ -18,7 +18,7 @@   , _autoScalingRollingUpdatePolicyMinInstancesInService :: Maybe (Val Integer)   , _autoScalingRollingUpdatePolicyMinSuccessfulInstancesPercent :: Maybe (Val Integer)   , _autoScalingRollingUpdatePolicyPauseTime :: Maybe (Val Text)-  , _autoScalingRollingUpdatePolicySuspendProcess :: Maybe (ValList Text)+  , _autoScalingRollingUpdatePolicySuspendProcesses :: Maybe (ValList Text)   , _autoScalingRollingUpdatePolicyWaitOnResourceSignals :: Maybe (Val Bool)   } deriving (Show, Eq) @@ -30,7 +30,7 @@     , fmap (("MinInstancesInService",) . toJSON . fmap Integer') _autoScalingRollingUpdatePolicyMinInstancesInService     , fmap (("MinSuccessfulInstancesPercent",) . toJSON . fmap Integer') _autoScalingRollingUpdatePolicyMinSuccessfulInstancesPercent     , fmap (("PauseTime",) . toJSON) _autoScalingRollingUpdatePolicyPauseTime-    , fmap (("SuspendProcess",) . toJSON) _autoScalingRollingUpdatePolicySuspendProcess+    , fmap (("SuspendProcesses",) . toJSON) _autoScalingRollingUpdatePolicySuspendProcesses     , fmap (("WaitOnResourceSignals",) . toJSON . fmap Bool') _autoScalingRollingUpdatePolicyWaitOnResourceSignals     ] @@ -41,7 +41,7 @@       fmap (fmap (fmap unInteger')) (obj .:? "MinInstancesInService") <*>       fmap (fmap (fmap unInteger')) (obj .:? "MinSuccessfulInstancesPercent") <*>       (obj .:? "PauseTime") <*>-      (obj .:? "SuspendProcess") <*>+      (obj .:? "SuspendProcesses") <*>       fmap (fmap (fmap unBool')) (obj .:? "WaitOnResourceSignals")   parseJSON _ = mempty @@ -55,7 +55,7 @@   , _autoScalingRollingUpdatePolicyMinInstancesInService = Nothing   , _autoScalingRollingUpdatePolicyMinSuccessfulInstancesPercent = Nothing   , _autoScalingRollingUpdatePolicyPauseTime = Nothing-  , _autoScalingRollingUpdatePolicySuspendProcess = Nothing+  , _autoScalingRollingUpdatePolicySuspendProcesses = Nothing   , _autoScalingRollingUpdatePolicyWaitOnResourceSignals = Nothing   } @@ -105,8 +105,8 @@ -- execute scaling policies associated with an alarm. For valid values, see -- the ScalingProcesses.member.N parameter for the SuspendProcesses action in -- the Auto Scaling API Reference.-asrupSuspendProcess :: Lens' AutoScalingRollingUpdatePolicy (Maybe (ValList Text))-asrupSuspendProcess = lens _autoScalingRollingUpdatePolicySuspendProcess (\s a -> s { _autoScalingRollingUpdatePolicySuspendProcess = a })+asrupSuspendProcesses :: Lens' AutoScalingRollingUpdatePolicy (Maybe (ValList Text))+asrupSuspendProcesses = lens _autoScalingRollingUpdatePolicySuspendProcesses (\s a -> s { _autoScalingRollingUpdatePolicySuspendProcesses = a })  -- | Specifies whether the Auto Scaling group waits on signals from new -- instances during an update. AWS CloudFormation suspends the update of an

@@ -26,7 +26,7 @@   ) where  import Data.Aeson-import Data.Text (unpack)+import Data.Text (Text, unpack) import GHC.Generics  @@ -163,29 +163,53 @@   toJSON SnsApplication = String "application"   toJSON SnsLambda      = String "lambda" -+-- | Possible values for AWS Lambda Runtimes. Note that if a valid runtime is+-- missing, please open an issue on the Github repo. In the meantime, however,+-- you can use the 'OtherRuntime' constructor.+--+-- Valid values here+-- https://docs.aws.amazon.com/lambda/latest/dg/API_CreateFunction.html#SSS-CreateFunction-request-Runtime data Runtime   = NodeJS   | NodeJS43+  | NodeJS43Edge+  | NodeJS610   | Java8   | Python27+  | Python36+  | DotNetCore10+  | DotNetCore20+  | Go1X+  | OtherRuntime Text   deriving (Show, Read, Eq, Generic)  instance FromJSON Runtime where   parseJSON = withText "Runtime" parse     where-      parse "nodejs"    = pure NodeJS+      parse "nodejs" = pure NodeJS       parse "nodejs4.3" = pure NodeJS43-      parse "java8"     = pure Java8+      parse "nodejs4.3-edge" = pure NodeJS43Edge+      parse "nodejs6.10" = pure NodeJS610+      parse "java8" = pure Java8       parse "python2.7" = pure Python27-      parse runtime     = fail ("Unexpected Runtime " ++ unpack runtime)+      parse "python3.6" = pure Python36+      parse "dotnetcore1.0" = pure DotNetCore10+      parse "dotnetcore2.0" = pure DotNetCore20+      parse "go1.x" = pure Go1X+      parse runtime = pure $ OtherRuntime runtime  instance ToJSON Runtime where-  toJSON NodeJS   = String "nodejs"+  toJSON NodeJS = String "nodejs"   toJSON NodeJS43 = String "nodejs4.3"-  toJSON Java8    = String "java8"+  toJSON NodeJS43Edge = String "nodejs4.3-edge"+  toJSON NodeJS610 = String "nodejs6.10"+  toJSON Java8 = String "java8"   toJSON Python27 = String "python2.7"-+  toJSON Python36 = String "python3.6"+  toJSON DotNetCore10 = String "dotnetcore1.0"+  toJSON DotNetCore20 = String "dotnetcore2.0"+  toJSON Go1X = String "go1.x"+  toJSON (OtherRuntime other) = String other  -- | See: -- https://docs.aws.amazon.com/apigateway/api-reference/link-relation/integration-put/#passthroughBehavior

@@ -2,10 +2,10 @@ -- -- see: https://github.com/sol/hpack ----- hash: 8086c2442cf5608aaa960050cc8b2978b698bb94f68cc293d256602a13ac1289+-- hash: 93a50095a8cd5df309de96dfda03a59ead7c055c1d2b062b951190f09ec7c2b3  name:           stratosphere-version:        0.19.1+version:        0.20.0 synopsis:       EDSL for AWS CloudFormation description:    EDSL for AWS CloudFormation category:       AWS, Cloud