diff --git a/LICENSE.md b/LICENSE.md
new file mode 100644
--- /dev/null
+++ b/LICENSE.md
@@ -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.
diff --git a/gen/Stratosphere/DocDBElastic/Cluster.hs b/gen/Stratosphere/DocDBElastic/Cluster.hs
new file mode 100644
--- /dev/null
+++ b/gen/Stratosphere/DocDBElastic/Cluster.hs
@@ -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, ..}
diff --git a/stratosphere-docdbelastic.cabal b/stratosphere-docdbelastic.cabal
new file mode 100644
--- /dev/null
+++ b/stratosphere-docdbelastic.cabal
@@ -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