stratosphere-docdbelastic (empty) → 1.0.0
raw patch · 3 files changed
+253/−0 lines, 3 filesdep +aesondep +basedep +stratosphere
Dependencies added: aeson, base, stratosphere
Files
- LICENSE.md +20/−0
- gen/Stratosphere/DocDBElastic/Cluster.hs +160/−0
- stratosphere-docdbelastic.cabal +73/−0
+ LICENSE.md view
@@ -0,0 +1,20 @@+Copyright (c) 2016 David Reaver+Copyright (c) 2022 Markus Schirp++Permission is hereby granted, free of charge, to any person obtaining a copy of+this software and associated documentation files (the "Software"), to deal in+the Software without restriction, including without limitation the rights to+use, copy, modify, merge, publish, distribute, sublicense, and/or sell copies+of the Software, and to permit persons to whom the Software is furnished to do+so, subject to the following conditions:++The above copyright notice and this permission notice shall be included in all+copies or substantial portions of the Software.++THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR+IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,+FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE+AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER+LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,+OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE+SOFTWARE.
+ gen/Stratosphere/DocDBElastic/Cluster.hs view
@@ -0,0 +1,160 @@+module Stratosphere.DocDBElastic.Cluster (+ Cluster(..), mkCluster+ ) where+import qualified Data.Aeson as JSON+import qualified Stratosphere.Prelude as Prelude+import Stratosphere.Property+import Stratosphere.ResourceProperties+import Stratosphere.Tag+import Stratosphere.Value+data Cluster+ = -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-docdbelastic-cluster.html>+ Cluster {haddock_workaround_ :: (),+ -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-docdbelastic-cluster.html#cfn-docdbelastic-cluster-adminusername>+ adminUserName :: (Value Prelude.Text),+ -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-docdbelastic-cluster.html#cfn-docdbelastic-cluster-adminuserpassword>+ adminUserPassword :: (Prelude.Maybe (Value Prelude.Text)),+ -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-docdbelastic-cluster.html#cfn-docdbelastic-cluster-authtype>+ authType :: (Value Prelude.Text),+ -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-docdbelastic-cluster.html#cfn-docdbelastic-cluster-backupretentionperiod>+ backupRetentionPeriod :: (Prelude.Maybe (Value Prelude.Integer)),+ -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-docdbelastic-cluster.html#cfn-docdbelastic-cluster-clustername>+ clusterName :: (Value Prelude.Text),+ -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-docdbelastic-cluster.html#cfn-docdbelastic-cluster-kmskeyid>+ kmsKeyId :: (Prelude.Maybe (Value Prelude.Text)),+ -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-docdbelastic-cluster.html#cfn-docdbelastic-cluster-preferredbackupwindow>+ preferredBackupWindow :: (Prelude.Maybe (Value Prelude.Text)),+ -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-docdbelastic-cluster.html#cfn-docdbelastic-cluster-preferredmaintenancewindow>+ preferredMaintenanceWindow :: (Prelude.Maybe (Value Prelude.Text)),+ -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-docdbelastic-cluster.html#cfn-docdbelastic-cluster-shardcapacity>+ shardCapacity :: (Value Prelude.Integer),+ -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-docdbelastic-cluster.html#cfn-docdbelastic-cluster-shardcount>+ shardCount :: (Value Prelude.Integer),+ -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-docdbelastic-cluster.html#cfn-docdbelastic-cluster-shardinstancecount>+ shardInstanceCount :: (Prelude.Maybe (Value Prelude.Integer)),+ -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-docdbelastic-cluster.html#cfn-docdbelastic-cluster-subnetids>+ subnetIds :: (Prelude.Maybe (ValueList Prelude.Text)),+ -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-docdbelastic-cluster.html#cfn-docdbelastic-cluster-tags>+ tags :: (Prelude.Maybe [Tag]),+ -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-docdbelastic-cluster.html#cfn-docdbelastic-cluster-vpcsecuritygroupids>+ vpcSecurityGroupIds :: (Prelude.Maybe (ValueList Prelude.Text))}+ deriving stock (Prelude.Eq, Prelude.Show)+mkCluster ::+ Value Prelude.Text+ -> Value Prelude.Text+ -> Value Prelude.Text+ -> Value Prelude.Integer -> Value Prelude.Integer -> Cluster+mkCluster+ adminUserName+ authType+ clusterName+ shardCapacity+ shardCount+ = Cluster+ {haddock_workaround_ = (), adminUserName = adminUserName,+ authType = authType, clusterName = clusterName,+ shardCapacity = shardCapacity, shardCount = shardCount,+ adminUserPassword = Prelude.Nothing,+ backupRetentionPeriod = Prelude.Nothing,+ kmsKeyId = Prelude.Nothing,+ preferredBackupWindow = Prelude.Nothing,+ preferredMaintenanceWindow = Prelude.Nothing,+ shardInstanceCount = Prelude.Nothing, subnetIds = Prelude.Nothing,+ tags = Prelude.Nothing, vpcSecurityGroupIds = Prelude.Nothing}+instance ToResourceProperties Cluster where+ toResourceProperties Cluster {..}+ = ResourceProperties+ {awsType = "AWS::DocDBElastic::Cluster",+ supportsTags = Prelude.True,+ properties = Prelude.fromList+ ((Prelude.<>)+ ["AdminUserName" JSON..= adminUserName,+ "AuthType" JSON..= authType, "ClusterName" JSON..= clusterName,+ "ShardCapacity" JSON..= shardCapacity,+ "ShardCount" JSON..= shardCount]+ (Prelude.catMaybes+ [(JSON..=) "AdminUserPassword" Prelude.<$> adminUserPassword,+ (JSON..=) "BackupRetentionPeriod"+ Prelude.<$> backupRetentionPeriod,+ (JSON..=) "KmsKeyId" Prelude.<$> kmsKeyId,+ (JSON..=) "PreferredBackupWindow"+ Prelude.<$> preferredBackupWindow,+ (JSON..=) "PreferredMaintenanceWindow"+ Prelude.<$> preferredMaintenanceWindow,+ (JSON..=) "ShardInstanceCount" Prelude.<$> shardInstanceCount,+ (JSON..=) "SubnetIds" Prelude.<$> subnetIds,+ (JSON..=) "Tags" Prelude.<$> tags,+ (JSON..=) "VpcSecurityGroupIds" Prelude.<$> vpcSecurityGroupIds]))}+instance JSON.ToJSON Cluster where+ toJSON Cluster {..}+ = JSON.object+ (Prelude.fromList+ ((Prelude.<>)+ ["AdminUserName" JSON..= adminUserName,+ "AuthType" JSON..= authType, "ClusterName" JSON..= clusterName,+ "ShardCapacity" JSON..= shardCapacity,+ "ShardCount" JSON..= shardCount]+ (Prelude.catMaybes+ [(JSON..=) "AdminUserPassword" Prelude.<$> adminUserPassword,+ (JSON..=) "BackupRetentionPeriod"+ Prelude.<$> backupRetentionPeriod,+ (JSON..=) "KmsKeyId" Prelude.<$> kmsKeyId,+ (JSON..=) "PreferredBackupWindow"+ Prelude.<$> preferredBackupWindow,+ (JSON..=) "PreferredMaintenanceWindow"+ Prelude.<$> preferredMaintenanceWindow,+ (JSON..=) "ShardInstanceCount" Prelude.<$> shardInstanceCount,+ (JSON..=) "SubnetIds" Prelude.<$> subnetIds,+ (JSON..=) "Tags" Prelude.<$> tags,+ (JSON..=) "VpcSecurityGroupIds" Prelude.<$> vpcSecurityGroupIds])))+instance Property "AdminUserName" Cluster where+ type PropertyType "AdminUserName" Cluster = Value Prelude.Text+ set newValue Cluster {..} = Cluster {adminUserName = newValue, ..}+instance Property "AdminUserPassword" Cluster where+ type PropertyType "AdminUserPassword" Cluster = Value Prelude.Text+ set newValue Cluster {..}+ = Cluster {adminUserPassword = Prelude.pure newValue, ..}+instance Property "AuthType" Cluster where+ type PropertyType "AuthType" Cluster = Value Prelude.Text+ set newValue Cluster {..} = Cluster {authType = newValue, ..}+instance Property "BackupRetentionPeriod" Cluster where+ type PropertyType "BackupRetentionPeriod" Cluster = Value Prelude.Integer+ set newValue Cluster {..}+ = Cluster {backupRetentionPeriod = Prelude.pure newValue, ..}+instance Property "ClusterName" Cluster where+ type PropertyType "ClusterName" Cluster = Value Prelude.Text+ set newValue Cluster {..} = Cluster {clusterName = newValue, ..}+instance Property "KmsKeyId" Cluster where+ type PropertyType "KmsKeyId" Cluster = Value Prelude.Text+ set newValue Cluster {..}+ = Cluster {kmsKeyId = Prelude.pure newValue, ..}+instance Property "PreferredBackupWindow" Cluster where+ type PropertyType "PreferredBackupWindow" Cluster = Value Prelude.Text+ set newValue Cluster {..}+ = Cluster {preferredBackupWindow = Prelude.pure newValue, ..}+instance Property "PreferredMaintenanceWindow" Cluster where+ type PropertyType "PreferredMaintenanceWindow" Cluster = Value Prelude.Text+ set newValue Cluster {..}+ = Cluster {preferredMaintenanceWindow = Prelude.pure newValue, ..}+instance Property "ShardCapacity" Cluster where+ type PropertyType "ShardCapacity" Cluster = Value Prelude.Integer+ set newValue Cluster {..} = Cluster {shardCapacity = newValue, ..}+instance Property "ShardCount" Cluster where+ type PropertyType "ShardCount" Cluster = Value Prelude.Integer+ set newValue Cluster {..} = Cluster {shardCount = newValue, ..}+instance Property "ShardInstanceCount" Cluster where+ type PropertyType "ShardInstanceCount" Cluster = Value Prelude.Integer+ set newValue Cluster {..}+ = Cluster {shardInstanceCount = Prelude.pure newValue, ..}+instance Property "SubnetIds" Cluster where+ type PropertyType "SubnetIds" Cluster = ValueList Prelude.Text+ set newValue Cluster {..}+ = Cluster {subnetIds = Prelude.pure newValue, ..}+instance Property "Tags" Cluster where+ type PropertyType "Tags" Cluster = [Tag]+ set newValue Cluster {..}+ = Cluster {tags = Prelude.pure newValue, ..}+instance Property "VpcSecurityGroupIds" Cluster where+ type PropertyType "VpcSecurityGroupIds" Cluster = ValueList Prelude.Text+ set newValue Cluster {..}+ = Cluster {vpcSecurityGroupIds = Prelude.pure newValue, ..}
+ stratosphere-docdbelastic.cabal view
@@ -0,0 +1,73 @@+cabal-version: 1.12++-- This file has been generated from package.yaml by hpack version 0.38.2.+--+-- see: https://github.com/sol/hpack++name: stratosphere-docdbelastic+version: 1.0.0+synopsis: Stratosphere integration for AWS DocDBElastic.+description: Integration into stratosphere to generate resources and properties for AWS DocDBElastic+category: AWS, Cloud, DocDBElastic+stability: experimental+homepage: https://github.com/mbj/stratosphere#readme+bug-reports: https://github.com/mbj/stratosphere/issues+maintainer: Markus Schirp+license: MIT+license-file: LICENSE.md+build-type: Simple++source-repository head+ type: git+ location: https://github.com/mbj/stratosphere++flag development+ description: Run GHC with development flags+ manual: True+ default: False++library+ exposed-modules:+ Stratosphere.DocDBElastic.Cluster+ other-modules:+ Paths_stratosphere_docdbelastic+ hs-source-dirs:+ gen+ default-extensions:+ DataKinds+ DeriveGeneric+ DerivingStrategies+ DerivingVia+ DuplicateRecordFields+ FlexibleContexts+ FlexibleInstances+ GADTs+ GeneralizedNewtypeDeriving+ InstanceSigs+ LambdaCase+ MultiParamTypeClasses+ NoFieldSelectors+ NoImplicitPrelude+ NumericUnderscores+ OverloadedLists+ OverloadedRecordDot+ OverloadedStrings+ PolyKinds+ RecordWildCards+ ScopedTypeVariables+ StandaloneDeriving+ Strict+ TemplateHaskell+ TupleSections+ TypeApplications+ TypeFamilies+ ghc-options: -Wall -Wcompat -Widentities -Wimplicit-prelude -Wincomplete-record-updates -Wincomplete-uni-patterns -Wmissing-local-signatures -Wmissing-signatures -Wmonomorphism-restriction -Wredundant-constraints -fhide-source-paths -funbox-strict-fields -optP-Wno-nonportable-include-path -Wno-unused-imports+ build-depends:+ aeson ==2.*+ , base >=4.8 && <4.22+ , stratosphere ==1.0.0+ default-language: Haskell2010+ if flag(development)+ ghc-options: -Werror+ else+ ghc-options: -Wwarn