packages feed

stratosphere 0.23.0 → 0.24.0

raw patch · 9 files changed

+538/−9 lines, 9 files

Files

CHANGELOG.md view
@@ -1,5 +1,9 @@ # Change Log +## 0.24.0++* Update resource specification document to version 2.4.0+ ## 0.23.0  * Update resource specification document to version 2.3.0
library-gen/Stratosphere/Resources.hs view
@@ -247,6 +247,11 @@ import Stratosphere.Resources.LogsLogStream as X import Stratosphere.Resources.LogsMetricFilter as X import Stratosphere.Resources.LogsSubscriptionFilter as X+import Stratosphere.Resources.NeptuneDBCluster as X+import Stratosphere.Resources.NeptuneDBClusterParameterGroup as X+import Stratosphere.Resources.NeptuneDBInstance as X+import Stratosphere.Resources.NeptuneDBParameterGroup as X+import Stratosphere.Resources.NeptuneDBSubnetGroup as X import Stratosphere.Resources.OpsWorksApp as X import Stratosphere.Resources.OpsWorksElasticLoadBalancerAttachment as X import Stratosphere.Resources.OpsWorksInstance as X@@ -1096,6 +1101,11 @@   | LogsLogStreamProperties LogsLogStream   | LogsMetricFilterProperties LogsMetricFilter   | LogsSubscriptionFilterProperties LogsSubscriptionFilter+  | NeptuneDBClusterProperties NeptuneDBCluster+  | NeptuneDBClusterParameterGroupProperties NeptuneDBClusterParameterGroup+  | NeptuneDBInstanceProperties NeptuneDBInstance+  | NeptuneDBParameterGroupProperties NeptuneDBParameterGroup+  | NeptuneDBSubnetGroupProperties NeptuneDBSubnetGroup   | OpsWorksAppProperties OpsWorksApp   | OpsWorksElasticLoadBalancerAttachmentProperties OpsWorksElasticLoadBalancerAttachment   | OpsWorksInstanceProperties OpsWorksInstance@@ -1629,6 +1639,16 @@   [ "Type" .= ("AWS::Logs::MetricFilter" :: String), "Properties" .= toJSON x] resourcePropertiesJSON (LogsSubscriptionFilterProperties x) =   [ "Type" .= ("AWS::Logs::SubscriptionFilter" :: String), "Properties" .= toJSON x]+resourcePropertiesJSON (NeptuneDBClusterProperties x) =+  [ "Type" .= ("AWS::Neptune::DBCluster" :: String), "Properties" .= toJSON x]+resourcePropertiesJSON (NeptuneDBClusterParameterGroupProperties x) =+  [ "Type" .= ("AWS::Neptune::DBClusterParameterGroup" :: String), "Properties" .= toJSON x]+resourcePropertiesJSON (NeptuneDBInstanceProperties x) =+  [ "Type" .= ("AWS::Neptune::DBInstance" :: String), "Properties" .= toJSON x]+resourcePropertiesJSON (NeptuneDBParameterGroupProperties x) =+  [ "Type" .= ("AWS::Neptune::DBParameterGroup" :: String), "Properties" .= toJSON x]+resourcePropertiesJSON (NeptuneDBSubnetGroupProperties x) =+  [ "Type" .= ("AWS::Neptune::DBSubnetGroup" :: String), "Properties" .= toJSON x] resourcePropertiesJSON (OpsWorksAppProperties x) =   [ "Type" .= ("AWS::OpsWorks::App" :: String), "Properties" .= toJSON x] resourcePropertiesJSON (OpsWorksElasticLoadBalancerAttachmentProperties x) =@@ -1991,6 +2011,11 @@          "AWS::Logs::LogStream" -> LogsLogStreamProperties <$> (o .: "Properties")          "AWS::Logs::MetricFilter" -> LogsMetricFilterProperties <$> (o .: "Properties")          "AWS::Logs::SubscriptionFilter" -> LogsSubscriptionFilterProperties <$> (o .: "Properties")+         "AWS::Neptune::DBCluster" -> NeptuneDBClusterProperties <$> (o .: "Properties")+         "AWS::Neptune::DBClusterParameterGroup" -> NeptuneDBClusterParameterGroupProperties <$> (o .: "Properties")+         "AWS::Neptune::DBInstance" -> NeptuneDBInstanceProperties <$> (o .: "Properties")+         "AWS::Neptune::DBParameterGroup" -> NeptuneDBParameterGroupProperties <$> (o .: "Properties")+         "AWS::Neptune::DBSubnetGroup" -> NeptuneDBSubnetGroupProperties <$> (o .: "Properties")          "AWS::OpsWorks::App" -> OpsWorksAppProperties <$> (o .: "Properties")          "AWS::OpsWorks::ElasticLoadBalancerAttachment" -> OpsWorksElasticLoadBalancerAttachmentProperties <$> (o .: "Properties")          "AWS::OpsWorks::Instance" -> OpsWorksInstanceProperties <$> (o .: "Properties")
library-gen/Stratosphere/Resources/GuardDutyMaster.hs view
@@ -14,7 +14,7 @@ data GuardDutyMaster =   GuardDutyMaster   { _guardDutyMasterDetectorId :: Val Text-  , _guardDutyMasterInvitationId :: Val Text+  , _guardDutyMasterInvitationId :: Maybe (Val Text)   , _guardDutyMasterMasterId :: Val Text   } deriving (Show, Eq) @@ -23,7 +23,7 @@     object $     catMaybes     [ (Just . ("DetectorId",) . toJSON) _guardDutyMasterDetectorId-    , (Just . ("InvitationId",) . toJSON) _guardDutyMasterInvitationId+    , fmap (("InvitationId",) . toJSON) _guardDutyMasterInvitationId     , (Just . ("MasterId",) . toJSON) _guardDutyMasterMasterId     ] @@ -31,7 +31,7 @@   parseJSON (Object obj) =     GuardDutyMaster <$>       (obj .: "DetectorId") <*>-      (obj .: "InvitationId") <*>+      (obj .:? "InvitationId") <*>       (obj .: "MasterId")   parseJSON _ = mempty @@ -39,13 +39,12 @@ -- arguments. guardDutyMaster   :: Val Text -- ^ 'gdmaDetectorId'-  -> Val Text -- ^ 'gdmaInvitationId'   -> Val Text -- ^ 'gdmaMasterId'   -> GuardDutyMaster-guardDutyMaster detectorIdarg invitationIdarg masterIdarg =+guardDutyMaster detectorIdarg masterIdarg =   GuardDutyMaster   { _guardDutyMasterDetectorId = detectorIdarg-  , _guardDutyMasterInvitationId = invitationIdarg+  , _guardDutyMasterInvitationId = Nothing   , _guardDutyMasterMasterId = masterIdarg   } @@ -54,7 +53,7 @@ gdmaDetectorId = lens _guardDutyMasterDetectorId (\s a -> s { _guardDutyMasterDetectorId = a })  -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-guardduty-master.html#cfn-guardduty-master-invitationid-gdmaInvitationId :: Lens' GuardDutyMaster (Val Text)+gdmaInvitationId :: Lens' GuardDutyMaster (Maybe (Val Text)) gdmaInvitationId = lens _guardDutyMasterInvitationId (\s a -> s { _guardDutyMasterInvitationId = a })  -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-guardduty-master.html#cfn-guardduty-master-masterid
+ library-gen/Stratosphere/Resources/NeptuneDBCluster.hs view
@@ -0,0 +1,147 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-neptune-dbcluster.html++module Stratosphere.Resources.NeptuneDBCluster where++import Stratosphere.ResourceImports+import Stratosphere.ResourceProperties.Tag++-- | Full data type definition for NeptuneDBCluster. See 'neptuneDBCluster'+-- for a more convenient constructor.+data NeptuneDBCluster =+  NeptuneDBCluster+  { _neptuneDBClusterAvailabilityZones :: Maybe (ValList Text)+  , _neptuneDBClusterBackupRetentionPeriod :: Maybe (Val Integer)+  , _neptuneDBClusterDBClusterIdentifier :: Maybe (Val Text)+  , _neptuneDBClusterDBClusterParameterGroupName :: Maybe (Val Text)+  , _neptuneDBClusterDBSubnetGroupName :: Maybe (Val Text)+  , _neptuneDBClusterIamAuthEnabled :: Maybe (Val Bool)+  , _neptuneDBClusterKmsKeyId :: Maybe (Val Text)+  , _neptuneDBClusterPort :: Maybe (Val Integer)+  , _neptuneDBClusterPreferredBackupWindow :: Maybe (Val Text)+  , _neptuneDBClusterPreferredMaintenanceWindow :: Maybe (Val Text)+  , _neptuneDBClusterSnapshotIdentifier :: Maybe (Val Text)+  , _neptuneDBClusterStorageEncrypted :: Maybe (Val Bool)+  , _neptuneDBClusterTags :: Maybe [Tag]+  , _neptuneDBClusterVpcSecurityGroupIds :: Maybe (ValList Text)+  } deriving (Show, Eq)++instance ToJSON NeptuneDBCluster where+  toJSON NeptuneDBCluster{..} =+    object $+    catMaybes+    [ fmap (("AvailabilityZones",) . toJSON) _neptuneDBClusterAvailabilityZones+    , fmap (("BackupRetentionPeriod",) . toJSON . fmap Integer') _neptuneDBClusterBackupRetentionPeriod+    , fmap (("DBClusterIdentifier",) . toJSON) _neptuneDBClusterDBClusterIdentifier+    , fmap (("DBClusterParameterGroupName",) . toJSON) _neptuneDBClusterDBClusterParameterGroupName+    , fmap (("DBSubnetGroupName",) . toJSON) _neptuneDBClusterDBSubnetGroupName+    , fmap (("IamAuthEnabled",) . toJSON . fmap Bool') _neptuneDBClusterIamAuthEnabled+    , fmap (("KmsKeyId",) . toJSON) _neptuneDBClusterKmsKeyId+    , fmap (("Port",) . toJSON . fmap Integer') _neptuneDBClusterPort+    , fmap (("PreferredBackupWindow",) . toJSON) _neptuneDBClusterPreferredBackupWindow+    , fmap (("PreferredMaintenanceWindow",) . toJSON) _neptuneDBClusterPreferredMaintenanceWindow+    , fmap (("SnapshotIdentifier",) . toJSON) _neptuneDBClusterSnapshotIdentifier+    , fmap (("StorageEncrypted",) . toJSON . fmap Bool') _neptuneDBClusterStorageEncrypted+    , fmap (("Tags",) . toJSON) _neptuneDBClusterTags+    , fmap (("VpcSecurityGroupIds",) . toJSON) _neptuneDBClusterVpcSecurityGroupIds+    ]++instance FromJSON NeptuneDBCluster where+  parseJSON (Object obj) =+    NeptuneDBCluster <$>+      (obj .:? "AvailabilityZones") <*>+      fmap (fmap (fmap unInteger')) (obj .:? "BackupRetentionPeriod") <*>+      (obj .:? "DBClusterIdentifier") <*>+      (obj .:? "DBClusterParameterGroupName") <*>+      (obj .:? "DBSubnetGroupName") <*>+      fmap (fmap (fmap unBool')) (obj .:? "IamAuthEnabled") <*>+      (obj .:? "KmsKeyId") <*>+      fmap (fmap (fmap unInteger')) (obj .:? "Port") <*>+      (obj .:? "PreferredBackupWindow") <*>+      (obj .:? "PreferredMaintenanceWindow") <*>+      (obj .:? "SnapshotIdentifier") <*>+      fmap (fmap (fmap unBool')) (obj .:? "StorageEncrypted") <*>+      (obj .:? "Tags") <*>+      (obj .:? "VpcSecurityGroupIds")+  parseJSON _ = mempty++-- | Constructor for 'NeptuneDBCluster' containing required fields as+-- arguments.+neptuneDBCluster+  :: NeptuneDBCluster+neptuneDBCluster  =+  NeptuneDBCluster+  { _neptuneDBClusterAvailabilityZones = Nothing+  , _neptuneDBClusterBackupRetentionPeriod = Nothing+  , _neptuneDBClusterDBClusterIdentifier = Nothing+  , _neptuneDBClusterDBClusterParameterGroupName = Nothing+  , _neptuneDBClusterDBSubnetGroupName = Nothing+  , _neptuneDBClusterIamAuthEnabled = Nothing+  , _neptuneDBClusterKmsKeyId = Nothing+  , _neptuneDBClusterPort = Nothing+  , _neptuneDBClusterPreferredBackupWindow = Nothing+  , _neptuneDBClusterPreferredMaintenanceWindow = Nothing+  , _neptuneDBClusterSnapshotIdentifier = Nothing+  , _neptuneDBClusterStorageEncrypted = Nothing+  , _neptuneDBClusterTags = Nothing+  , _neptuneDBClusterVpcSecurityGroupIds = Nothing+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-neptune-dbcluster.html#cfn-neptune-dbcluster-availabilityzones+ndbcAvailabilityZones :: Lens' NeptuneDBCluster (Maybe (ValList Text))+ndbcAvailabilityZones = lens _neptuneDBClusterAvailabilityZones (\s a -> s { _neptuneDBClusterAvailabilityZones = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-neptune-dbcluster.html#cfn-neptune-dbcluster-backupretentionperiod+ndbcBackupRetentionPeriod :: Lens' NeptuneDBCluster (Maybe (Val Integer))+ndbcBackupRetentionPeriod = lens _neptuneDBClusterBackupRetentionPeriod (\s a -> s { _neptuneDBClusterBackupRetentionPeriod = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-neptune-dbcluster.html#cfn-neptune-dbcluster-dbclusteridentifier+ndbcDBClusterIdentifier :: Lens' NeptuneDBCluster (Maybe (Val Text))+ndbcDBClusterIdentifier = lens _neptuneDBClusterDBClusterIdentifier (\s a -> s { _neptuneDBClusterDBClusterIdentifier = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-neptune-dbcluster.html#cfn-neptune-dbcluster-dbclusterparametergroupname+ndbcDBClusterParameterGroupName :: Lens' NeptuneDBCluster (Maybe (Val Text))+ndbcDBClusterParameterGroupName = lens _neptuneDBClusterDBClusterParameterGroupName (\s a -> s { _neptuneDBClusterDBClusterParameterGroupName = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-neptune-dbcluster.html#cfn-neptune-dbcluster-dbsubnetgroupname+ndbcDBSubnetGroupName :: Lens' NeptuneDBCluster (Maybe (Val Text))+ndbcDBSubnetGroupName = lens _neptuneDBClusterDBSubnetGroupName (\s a -> s { _neptuneDBClusterDBSubnetGroupName = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-neptune-dbcluster.html#cfn-neptune-dbcluster-iamauthenabled+ndbcIamAuthEnabled :: Lens' NeptuneDBCluster (Maybe (Val Bool))+ndbcIamAuthEnabled = lens _neptuneDBClusterIamAuthEnabled (\s a -> s { _neptuneDBClusterIamAuthEnabled = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-neptune-dbcluster.html#cfn-neptune-dbcluster-kmskeyid+ndbcKmsKeyId :: Lens' NeptuneDBCluster (Maybe (Val Text))+ndbcKmsKeyId = lens _neptuneDBClusterKmsKeyId (\s a -> s { _neptuneDBClusterKmsKeyId = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-neptune-dbcluster.html#cfn-neptune-dbcluster-port+ndbcPort :: Lens' NeptuneDBCluster (Maybe (Val Integer))+ndbcPort = lens _neptuneDBClusterPort (\s a -> s { _neptuneDBClusterPort = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-neptune-dbcluster.html#cfn-neptune-dbcluster-preferredbackupwindow+ndbcPreferredBackupWindow :: Lens' NeptuneDBCluster (Maybe (Val Text))+ndbcPreferredBackupWindow = lens _neptuneDBClusterPreferredBackupWindow (\s a -> s { _neptuneDBClusterPreferredBackupWindow = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-neptune-dbcluster.html#cfn-neptune-dbcluster-preferredmaintenancewindow+ndbcPreferredMaintenanceWindow :: Lens' NeptuneDBCluster (Maybe (Val Text))+ndbcPreferredMaintenanceWindow = lens _neptuneDBClusterPreferredMaintenanceWindow (\s a -> s { _neptuneDBClusterPreferredMaintenanceWindow = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-neptune-dbcluster.html#cfn-neptune-dbcluster-snapshotidentifier+ndbcSnapshotIdentifier :: Lens' NeptuneDBCluster (Maybe (Val Text))+ndbcSnapshotIdentifier = lens _neptuneDBClusterSnapshotIdentifier (\s a -> s { _neptuneDBClusterSnapshotIdentifier = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-neptune-dbcluster.html#cfn-neptune-dbcluster-storageencrypted+ndbcStorageEncrypted :: Lens' NeptuneDBCluster (Maybe (Val Bool))+ndbcStorageEncrypted = lens _neptuneDBClusterStorageEncrypted (\s a -> s { _neptuneDBClusterStorageEncrypted = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-neptune-dbcluster.html#cfn-neptune-dbcluster-tags+ndbcTags :: Lens' NeptuneDBCluster (Maybe [Tag])+ndbcTags = lens _neptuneDBClusterTags (\s a -> s { _neptuneDBClusterTags = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-neptune-dbcluster.html#cfn-neptune-dbcluster-vpcsecuritygroupids+ndbcVpcSecurityGroupIds :: Lens' NeptuneDBCluster (Maybe (ValList Text))+ndbcVpcSecurityGroupIds = lens _neptuneDBClusterVpcSecurityGroupIds (\s a -> s { _neptuneDBClusterVpcSecurityGroupIds = a })
+ library-gen/Stratosphere/Resources/NeptuneDBClusterParameterGroup.hs view
@@ -0,0 +1,78 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-neptune-dbclusterparametergroup.html++module Stratosphere.Resources.NeptuneDBClusterParameterGroup where++import Stratosphere.ResourceImports+import Stratosphere.ResourceProperties.Tag++-- | Full data type definition for NeptuneDBClusterParameterGroup. See+-- 'neptuneDBClusterParameterGroup' for a more convenient constructor.+data NeptuneDBClusterParameterGroup =+  NeptuneDBClusterParameterGroup+  { _neptuneDBClusterParameterGroupDescription :: Val Text+  , _neptuneDBClusterParameterGroupFamily :: Val Text+  , _neptuneDBClusterParameterGroupName :: Maybe (Val Text)+  , _neptuneDBClusterParameterGroupParameters :: Object+  , _neptuneDBClusterParameterGroupTags :: Maybe [Tag]+  } deriving (Show, Eq)++instance ToJSON NeptuneDBClusterParameterGroup where+  toJSON NeptuneDBClusterParameterGroup{..} =+    object $+    catMaybes+    [ (Just . ("Description",) . toJSON) _neptuneDBClusterParameterGroupDescription+    , (Just . ("Family",) . toJSON) _neptuneDBClusterParameterGroupFamily+    , fmap (("Name",) . toJSON) _neptuneDBClusterParameterGroupName+    , (Just . ("Parameters",) . toJSON) _neptuneDBClusterParameterGroupParameters+    , fmap (("Tags",) . toJSON) _neptuneDBClusterParameterGroupTags+    ]++instance FromJSON NeptuneDBClusterParameterGroup where+  parseJSON (Object obj) =+    NeptuneDBClusterParameterGroup <$>+      (obj .: "Description") <*>+      (obj .: "Family") <*>+      (obj .:? "Name") <*>+      (obj .: "Parameters") <*>+      (obj .:? "Tags")+  parseJSON _ = mempty++-- | Constructor for 'NeptuneDBClusterParameterGroup' containing required+-- fields as arguments.+neptuneDBClusterParameterGroup+  :: Val Text -- ^ 'ndbcpgDescription'+  -> Val Text -- ^ 'ndbcpgFamily'+  -> Object -- ^ 'ndbcpgParameters'+  -> NeptuneDBClusterParameterGroup+neptuneDBClusterParameterGroup descriptionarg familyarg parametersarg =+  NeptuneDBClusterParameterGroup+  { _neptuneDBClusterParameterGroupDescription = descriptionarg+  , _neptuneDBClusterParameterGroupFamily = familyarg+  , _neptuneDBClusterParameterGroupName = Nothing+  , _neptuneDBClusterParameterGroupParameters = parametersarg+  , _neptuneDBClusterParameterGroupTags = Nothing+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-neptune-dbclusterparametergroup.html#cfn-neptune-dbclusterparametergroup-description+ndbcpgDescription :: Lens' NeptuneDBClusterParameterGroup (Val Text)+ndbcpgDescription = lens _neptuneDBClusterParameterGroupDescription (\s a -> s { _neptuneDBClusterParameterGroupDescription = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-neptune-dbclusterparametergroup.html#cfn-neptune-dbclusterparametergroup-family+ndbcpgFamily :: Lens' NeptuneDBClusterParameterGroup (Val Text)+ndbcpgFamily = lens _neptuneDBClusterParameterGroupFamily (\s a -> s { _neptuneDBClusterParameterGroupFamily = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-neptune-dbclusterparametergroup.html#cfn-neptune-dbclusterparametergroup-name+ndbcpgName :: Lens' NeptuneDBClusterParameterGroup (Maybe (Val Text))+ndbcpgName = lens _neptuneDBClusterParameterGroupName (\s a -> s { _neptuneDBClusterParameterGroupName = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-neptune-dbclusterparametergroup.html#cfn-neptune-dbclusterparametergroup-parameters+ndbcpgParameters :: Lens' NeptuneDBClusterParameterGroup Object+ndbcpgParameters = lens _neptuneDBClusterParameterGroupParameters (\s a -> s { _neptuneDBClusterParameterGroupParameters = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-neptune-dbclusterparametergroup.html#cfn-neptune-dbclusterparametergroup-tags+ndbcpgTags :: Lens' NeptuneDBClusterParameterGroup (Maybe [Tag])+ndbcpgTags = lens _neptuneDBClusterParameterGroupTags (\s a -> s { _neptuneDBClusterParameterGroupTags = a })
+ library-gen/Stratosphere/Resources/NeptuneDBInstance.hs view
@@ -0,0 +1,124 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-neptune-dbinstance.html++module Stratosphere.Resources.NeptuneDBInstance where++import Stratosphere.ResourceImports+import Stratosphere.ResourceProperties.Tag++-- | Full data type definition for NeptuneDBInstance. See 'neptuneDBInstance'+-- for a more convenient constructor.+data NeptuneDBInstance =+  NeptuneDBInstance+  { _neptuneDBInstanceAllowMajorVersionUpgrade :: Maybe (Val Bool)+  , _neptuneDBInstanceAutoMinorVersionUpgrade :: Maybe (Val Bool)+  , _neptuneDBInstanceAvailabilityZone :: Maybe (Val Text)+  , _neptuneDBInstanceDBClusterIdentifier :: Maybe (Val Text)+  , _neptuneDBInstanceDBInstanceClass :: Val Text+  , _neptuneDBInstanceDBInstanceIdentifier :: Maybe (Val Text)+  , _neptuneDBInstanceDBParameterGroupName :: Maybe (Val Text)+  , _neptuneDBInstanceDBSnapshotIdentifier :: Maybe (Val Text)+  , _neptuneDBInstanceDBSubnetGroupName :: Maybe (Val Text)+  , _neptuneDBInstancePreferredMaintenanceWindow :: Maybe (Val Text)+  , _neptuneDBInstanceTags :: Maybe [Tag]+  } deriving (Show, Eq)++instance ToJSON NeptuneDBInstance where+  toJSON NeptuneDBInstance{..} =+    object $+    catMaybes+    [ fmap (("AllowMajorVersionUpgrade",) . toJSON . fmap Bool') _neptuneDBInstanceAllowMajorVersionUpgrade+    , fmap (("AutoMinorVersionUpgrade",) . toJSON . fmap Bool') _neptuneDBInstanceAutoMinorVersionUpgrade+    , fmap (("AvailabilityZone",) . toJSON) _neptuneDBInstanceAvailabilityZone+    , fmap (("DBClusterIdentifier",) . toJSON) _neptuneDBInstanceDBClusterIdentifier+    , (Just . ("DBInstanceClass",) . toJSON) _neptuneDBInstanceDBInstanceClass+    , fmap (("DBInstanceIdentifier",) . toJSON) _neptuneDBInstanceDBInstanceIdentifier+    , fmap (("DBParameterGroupName",) . toJSON) _neptuneDBInstanceDBParameterGroupName+    , fmap (("DBSnapshotIdentifier",) . toJSON) _neptuneDBInstanceDBSnapshotIdentifier+    , fmap (("DBSubnetGroupName",) . toJSON) _neptuneDBInstanceDBSubnetGroupName+    , fmap (("PreferredMaintenanceWindow",) . toJSON) _neptuneDBInstancePreferredMaintenanceWindow+    , fmap (("Tags",) . toJSON) _neptuneDBInstanceTags+    ]++instance FromJSON NeptuneDBInstance where+  parseJSON (Object obj) =+    NeptuneDBInstance <$>+      fmap (fmap (fmap unBool')) (obj .:? "AllowMajorVersionUpgrade") <*>+      fmap (fmap (fmap unBool')) (obj .:? "AutoMinorVersionUpgrade") <*>+      (obj .:? "AvailabilityZone") <*>+      (obj .:? "DBClusterIdentifier") <*>+      (obj .: "DBInstanceClass") <*>+      (obj .:? "DBInstanceIdentifier") <*>+      (obj .:? "DBParameterGroupName") <*>+      (obj .:? "DBSnapshotIdentifier") <*>+      (obj .:? "DBSubnetGroupName") <*>+      (obj .:? "PreferredMaintenanceWindow") <*>+      (obj .:? "Tags")+  parseJSON _ = mempty++-- | Constructor for 'NeptuneDBInstance' containing required fields as+-- arguments.+neptuneDBInstance+  :: Val Text -- ^ 'ndbiDBInstanceClass'+  -> NeptuneDBInstance+neptuneDBInstance dBInstanceClassarg =+  NeptuneDBInstance+  { _neptuneDBInstanceAllowMajorVersionUpgrade = Nothing+  , _neptuneDBInstanceAutoMinorVersionUpgrade = Nothing+  , _neptuneDBInstanceAvailabilityZone = Nothing+  , _neptuneDBInstanceDBClusterIdentifier = Nothing+  , _neptuneDBInstanceDBInstanceClass = dBInstanceClassarg+  , _neptuneDBInstanceDBInstanceIdentifier = Nothing+  , _neptuneDBInstanceDBParameterGroupName = Nothing+  , _neptuneDBInstanceDBSnapshotIdentifier = Nothing+  , _neptuneDBInstanceDBSubnetGroupName = Nothing+  , _neptuneDBInstancePreferredMaintenanceWindow = Nothing+  , _neptuneDBInstanceTags = Nothing+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-neptune-dbinstance.html#cfn-neptune-dbinstance-allowmajorversionupgrade+ndbiAllowMajorVersionUpgrade :: Lens' NeptuneDBInstance (Maybe (Val Bool))+ndbiAllowMajorVersionUpgrade = lens _neptuneDBInstanceAllowMajorVersionUpgrade (\s a -> s { _neptuneDBInstanceAllowMajorVersionUpgrade = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-neptune-dbinstance.html#cfn-neptune-dbinstance-autominorversionupgrade+ndbiAutoMinorVersionUpgrade :: Lens' NeptuneDBInstance (Maybe (Val Bool))+ndbiAutoMinorVersionUpgrade = lens _neptuneDBInstanceAutoMinorVersionUpgrade (\s a -> s { _neptuneDBInstanceAutoMinorVersionUpgrade = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-neptune-dbinstance.html#cfn-neptune-dbinstance-availabilityzone+ndbiAvailabilityZone :: Lens' NeptuneDBInstance (Maybe (Val Text))+ndbiAvailabilityZone = lens _neptuneDBInstanceAvailabilityZone (\s a -> s { _neptuneDBInstanceAvailabilityZone = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-neptune-dbinstance.html#cfn-neptune-dbinstance-dbclusteridentifier+ndbiDBClusterIdentifier :: Lens' NeptuneDBInstance (Maybe (Val Text))+ndbiDBClusterIdentifier = lens _neptuneDBInstanceDBClusterIdentifier (\s a -> s { _neptuneDBInstanceDBClusterIdentifier = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-neptune-dbinstance.html#cfn-neptune-dbinstance-dbinstanceclass+ndbiDBInstanceClass :: Lens' NeptuneDBInstance (Val Text)+ndbiDBInstanceClass = lens _neptuneDBInstanceDBInstanceClass (\s a -> s { _neptuneDBInstanceDBInstanceClass = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-neptune-dbinstance.html#cfn-neptune-dbinstance-dbinstanceidentifier+ndbiDBInstanceIdentifier :: Lens' NeptuneDBInstance (Maybe (Val Text))+ndbiDBInstanceIdentifier = lens _neptuneDBInstanceDBInstanceIdentifier (\s a -> s { _neptuneDBInstanceDBInstanceIdentifier = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-neptune-dbinstance.html#cfn-neptune-dbinstance-dbparametergroupname+ndbiDBParameterGroupName :: Lens' NeptuneDBInstance (Maybe (Val Text))+ndbiDBParameterGroupName = lens _neptuneDBInstanceDBParameterGroupName (\s a -> s { _neptuneDBInstanceDBParameterGroupName = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-neptune-dbinstance.html#cfn-neptune-dbinstance-dbsnapshotidentifier+ndbiDBSnapshotIdentifier :: Lens' NeptuneDBInstance (Maybe (Val Text))+ndbiDBSnapshotIdentifier = lens _neptuneDBInstanceDBSnapshotIdentifier (\s a -> s { _neptuneDBInstanceDBSnapshotIdentifier = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-neptune-dbinstance.html#cfn-neptune-dbinstance-dbsubnetgroupname+ndbiDBSubnetGroupName :: Lens' NeptuneDBInstance (Maybe (Val Text))+ndbiDBSubnetGroupName = lens _neptuneDBInstanceDBSubnetGroupName (\s a -> s { _neptuneDBInstanceDBSubnetGroupName = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-neptune-dbinstance.html#cfn-neptune-dbinstance-preferredmaintenancewindow+ndbiPreferredMaintenanceWindow :: Lens' NeptuneDBInstance (Maybe (Val Text))+ndbiPreferredMaintenanceWindow = lens _neptuneDBInstancePreferredMaintenanceWindow (\s a -> s { _neptuneDBInstancePreferredMaintenanceWindow = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-neptune-dbinstance.html#cfn-neptune-dbinstance-tags+ndbiTags :: Lens' NeptuneDBInstance (Maybe [Tag])+ndbiTags = lens _neptuneDBInstanceTags (\s a -> s { _neptuneDBInstanceTags = a })
+ library-gen/Stratosphere/Resources/NeptuneDBParameterGroup.hs view
@@ -0,0 +1,78 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-neptune-dbparametergroup.html++module Stratosphere.Resources.NeptuneDBParameterGroup where++import Stratosphere.ResourceImports+import Stratosphere.ResourceProperties.Tag++-- | Full data type definition for NeptuneDBParameterGroup. See+-- 'neptuneDBParameterGroup' for a more convenient constructor.+data NeptuneDBParameterGroup =+  NeptuneDBParameterGroup+  { _neptuneDBParameterGroupDescription :: Val Text+  , _neptuneDBParameterGroupFamily :: Val Text+  , _neptuneDBParameterGroupName :: Maybe (Val Text)+  , _neptuneDBParameterGroupParameters :: Object+  , _neptuneDBParameterGroupTags :: Maybe [Tag]+  } deriving (Show, Eq)++instance ToJSON NeptuneDBParameterGroup where+  toJSON NeptuneDBParameterGroup{..} =+    object $+    catMaybes+    [ (Just . ("Description",) . toJSON) _neptuneDBParameterGroupDescription+    , (Just . ("Family",) . toJSON) _neptuneDBParameterGroupFamily+    , fmap (("Name",) . toJSON) _neptuneDBParameterGroupName+    , (Just . ("Parameters",) . toJSON) _neptuneDBParameterGroupParameters+    , fmap (("Tags",) . toJSON) _neptuneDBParameterGroupTags+    ]++instance FromJSON NeptuneDBParameterGroup where+  parseJSON (Object obj) =+    NeptuneDBParameterGroup <$>+      (obj .: "Description") <*>+      (obj .: "Family") <*>+      (obj .:? "Name") <*>+      (obj .: "Parameters") <*>+      (obj .:? "Tags")+  parseJSON _ = mempty++-- | Constructor for 'NeptuneDBParameterGroup' containing required fields as+-- arguments.+neptuneDBParameterGroup+  :: Val Text -- ^ 'ndbpgDescription'+  -> Val Text -- ^ 'ndbpgFamily'+  -> Object -- ^ 'ndbpgParameters'+  -> NeptuneDBParameterGroup+neptuneDBParameterGroup descriptionarg familyarg parametersarg =+  NeptuneDBParameterGroup+  { _neptuneDBParameterGroupDescription = descriptionarg+  , _neptuneDBParameterGroupFamily = familyarg+  , _neptuneDBParameterGroupName = Nothing+  , _neptuneDBParameterGroupParameters = parametersarg+  , _neptuneDBParameterGroupTags = Nothing+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-neptune-dbparametergroup.html#cfn-neptune-dbparametergroup-description+ndbpgDescription :: Lens' NeptuneDBParameterGroup (Val Text)+ndbpgDescription = lens _neptuneDBParameterGroupDescription (\s a -> s { _neptuneDBParameterGroupDescription = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-neptune-dbparametergroup.html#cfn-neptune-dbparametergroup-family+ndbpgFamily :: Lens' NeptuneDBParameterGroup (Val Text)+ndbpgFamily = lens _neptuneDBParameterGroupFamily (\s a -> s { _neptuneDBParameterGroupFamily = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-neptune-dbparametergroup.html#cfn-neptune-dbparametergroup-name+ndbpgName :: Lens' NeptuneDBParameterGroup (Maybe (Val Text))+ndbpgName = lens _neptuneDBParameterGroupName (\s a -> s { _neptuneDBParameterGroupName = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-neptune-dbparametergroup.html#cfn-neptune-dbparametergroup-parameters+ndbpgParameters :: Lens' NeptuneDBParameterGroup Object+ndbpgParameters = lens _neptuneDBParameterGroupParameters (\s a -> s { _neptuneDBParameterGroupParameters = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-neptune-dbparametergroup.html#cfn-neptune-dbparametergroup-tags+ndbpgTags :: Lens' NeptuneDBParameterGroup (Maybe [Tag])+ndbpgTags = lens _neptuneDBParameterGroupTags (\s a -> s { _neptuneDBParameterGroupTags = a })
+ library-gen/Stratosphere/Resources/NeptuneDBSubnetGroup.hs view
@@ -0,0 +1,69 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-neptune-dbsubnetgroup.html++module Stratosphere.Resources.NeptuneDBSubnetGroup where++import Stratosphere.ResourceImports+import Stratosphere.ResourceProperties.Tag++-- | Full data type definition for NeptuneDBSubnetGroup. See+-- 'neptuneDBSubnetGroup' for a more convenient constructor.+data NeptuneDBSubnetGroup =+  NeptuneDBSubnetGroup+  { _neptuneDBSubnetGroupDBSubnetGroupDescription :: Val Text+  , _neptuneDBSubnetGroupDBSubnetGroupName :: Maybe (Val Text)+  , _neptuneDBSubnetGroupSubnetIds :: ValList Text+  , _neptuneDBSubnetGroupTags :: Maybe [Tag]+  } deriving (Show, Eq)++instance ToJSON NeptuneDBSubnetGroup where+  toJSON NeptuneDBSubnetGroup{..} =+    object $+    catMaybes+    [ (Just . ("DBSubnetGroupDescription",) . toJSON) _neptuneDBSubnetGroupDBSubnetGroupDescription+    , fmap (("DBSubnetGroupName",) . toJSON) _neptuneDBSubnetGroupDBSubnetGroupName+    , (Just . ("SubnetIds",) . toJSON) _neptuneDBSubnetGroupSubnetIds+    , fmap (("Tags",) . toJSON) _neptuneDBSubnetGroupTags+    ]++instance FromJSON NeptuneDBSubnetGroup where+  parseJSON (Object obj) =+    NeptuneDBSubnetGroup <$>+      (obj .: "DBSubnetGroupDescription") <*>+      (obj .:? "DBSubnetGroupName") <*>+      (obj .: "SubnetIds") <*>+      (obj .:? "Tags")+  parseJSON _ = mempty++-- | Constructor for 'NeptuneDBSubnetGroup' containing required fields as+-- arguments.+neptuneDBSubnetGroup+  :: Val Text -- ^ 'ndbsgDBSubnetGroupDescription'+  -> ValList Text -- ^ 'ndbsgSubnetIds'+  -> NeptuneDBSubnetGroup+neptuneDBSubnetGroup dBSubnetGroupDescriptionarg subnetIdsarg =+  NeptuneDBSubnetGroup+  { _neptuneDBSubnetGroupDBSubnetGroupDescription = dBSubnetGroupDescriptionarg+  , _neptuneDBSubnetGroupDBSubnetGroupName = Nothing+  , _neptuneDBSubnetGroupSubnetIds = subnetIdsarg+  , _neptuneDBSubnetGroupTags = Nothing+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-neptune-dbsubnetgroup.html#cfn-neptune-dbsubnetgroup-dbsubnetgroupdescription+ndbsgDBSubnetGroupDescription :: Lens' NeptuneDBSubnetGroup (Val Text)+ndbsgDBSubnetGroupDescription = lens _neptuneDBSubnetGroupDBSubnetGroupDescription (\s a -> s { _neptuneDBSubnetGroupDBSubnetGroupDescription = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-neptune-dbsubnetgroup.html#cfn-neptune-dbsubnetgroup-dbsubnetgroupname+ndbsgDBSubnetGroupName :: Lens' NeptuneDBSubnetGroup (Maybe (Val Text))+ndbsgDBSubnetGroupName = lens _neptuneDBSubnetGroupDBSubnetGroupName (\s a -> s { _neptuneDBSubnetGroupDBSubnetGroupName = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-neptune-dbsubnetgroup.html#cfn-neptune-dbsubnetgroup-subnetids+ndbsgSubnetIds :: Lens' NeptuneDBSubnetGroup (ValList Text)+ndbsgSubnetIds = lens _neptuneDBSubnetGroupSubnetIds (\s a -> s { _neptuneDBSubnetGroupSubnetIds = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-neptune-dbsubnetgroup.html#cfn-neptune-dbsubnetgroup-tags+ndbsgTags :: Lens' NeptuneDBSubnetGroup (Maybe [Tag])+ndbsgTags = lens _neptuneDBSubnetGroupTags (\s a -> s { _neptuneDBSubnetGroupTags = a })
stratosphere.cabal view
@@ -2,10 +2,10 @@ -- -- see: https://github.com/sol/hpack ----- hash: 25ad1cd2934b657afc03d91e33e6feb4e362e74d07e17020816c620ebe939fab+-- hash: 022f0189a0f205833c775f6ab3297da52a97aa3de6c111dfbd7bbbb2406ead91  name:           stratosphere-version:        0.23.0+version:        0.24.0 synopsis:       EDSL for AWS CloudFormation description:    EDSL for AWS CloudFormation category:       AWS, Cloud@@ -823,6 +823,11 @@       Stratosphere.Resources.LogsLogStream       Stratosphere.Resources.LogsMetricFilter       Stratosphere.Resources.LogsSubscriptionFilter+      Stratosphere.Resources.NeptuneDBCluster+      Stratosphere.Resources.NeptuneDBClusterParameterGroup+      Stratosphere.Resources.NeptuneDBInstance+      Stratosphere.Resources.NeptuneDBParameterGroup+      Stratosphere.Resources.NeptuneDBSubnetGroup       Stratosphere.Resources.OpsWorksApp       Stratosphere.Resources.OpsWorksElasticLoadBalancerAttachment       Stratosphere.Resources.OpsWorksInstance