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/BackupGateway/Hypervisor.hs b/gen/Stratosphere/BackupGateway/Hypervisor.hs
new file mode 100644
--- /dev/null
+++ b/gen/Stratosphere/BackupGateway/Hypervisor.hs
@@ -0,0 +1,88 @@
+module Stratosphere.BackupGateway.Hypervisor (
+        Hypervisor(..), mkHypervisor
+    ) 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 Hypervisor
+  = -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-backupgateway-hypervisor.html>
+    Hypervisor {haddock_workaround_ :: (),
+                -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-backupgateway-hypervisor.html#cfn-backupgateway-hypervisor-host>
+                host :: (Prelude.Maybe (Value Prelude.Text)),
+                -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-backupgateway-hypervisor.html#cfn-backupgateway-hypervisor-kmskeyarn>
+                kmsKeyArn :: (Prelude.Maybe (Value Prelude.Text)),
+                -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-backupgateway-hypervisor.html#cfn-backupgateway-hypervisor-loggrouparn>
+                logGroupArn :: (Prelude.Maybe (Value Prelude.Text)),
+                -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-backupgateway-hypervisor.html#cfn-backupgateway-hypervisor-name>
+                name :: (Prelude.Maybe (Value Prelude.Text)),
+                -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-backupgateway-hypervisor.html#cfn-backupgateway-hypervisor-password>
+                password :: (Prelude.Maybe (Value Prelude.Text)),
+                -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-backupgateway-hypervisor.html#cfn-backupgateway-hypervisor-tags>
+                tags :: (Prelude.Maybe [Tag]),
+                -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-backupgateway-hypervisor.html#cfn-backupgateway-hypervisor-username>
+                username :: (Prelude.Maybe (Value Prelude.Text))}
+  deriving stock (Prelude.Eq, Prelude.Show)
+mkHypervisor :: Hypervisor
+mkHypervisor
+  = Hypervisor
+      {haddock_workaround_ = (), host = Prelude.Nothing,
+       kmsKeyArn = Prelude.Nothing, logGroupArn = Prelude.Nothing,
+       name = Prelude.Nothing, password = Prelude.Nothing,
+       tags = Prelude.Nothing, username = Prelude.Nothing}
+instance ToResourceProperties Hypervisor where
+  toResourceProperties Hypervisor {..}
+    = ResourceProperties
+        {awsType = "AWS::BackupGateway::Hypervisor",
+         supportsTags = Prelude.True,
+         properties = Prelude.fromList
+                        (Prelude.catMaybes
+                           [(JSON..=) "Host" Prelude.<$> host,
+                            (JSON..=) "KmsKeyArn" Prelude.<$> kmsKeyArn,
+                            (JSON..=) "LogGroupArn" Prelude.<$> logGroupArn,
+                            (JSON..=) "Name" Prelude.<$> name,
+                            (JSON..=) "Password" Prelude.<$> password,
+                            (JSON..=) "Tags" Prelude.<$> tags,
+                            (JSON..=) "Username" Prelude.<$> username])}
+instance JSON.ToJSON Hypervisor where
+  toJSON Hypervisor {..}
+    = JSON.object
+        (Prelude.fromList
+           (Prelude.catMaybes
+              [(JSON..=) "Host" Prelude.<$> host,
+               (JSON..=) "KmsKeyArn" Prelude.<$> kmsKeyArn,
+               (JSON..=) "LogGroupArn" Prelude.<$> logGroupArn,
+               (JSON..=) "Name" Prelude.<$> name,
+               (JSON..=) "Password" Prelude.<$> password,
+               (JSON..=) "Tags" Prelude.<$> tags,
+               (JSON..=) "Username" Prelude.<$> username]))
+instance Property "Host" Hypervisor where
+  type PropertyType "Host" Hypervisor = Value Prelude.Text
+  set newValue Hypervisor {..}
+    = Hypervisor {host = Prelude.pure newValue, ..}
+instance Property "KmsKeyArn" Hypervisor where
+  type PropertyType "KmsKeyArn" Hypervisor = Value Prelude.Text
+  set newValue Hypervisor {..}
+    = Hypervisor {kmsKeyArn = Prelude.pure newValue, ..}
+instance Property "LogGroupArn" Hypervisor where
+  type PropertyType "LogGroupArn" Hypervisor = Value Prelude.Text
+  set newValue Hypervisor {..}
+    = Hypervisor {logGroupArn = Prelude.pure newValue, ..}
+instance Property "Name" Hypervisor where
+  type PropertyType "Name" Hypervisor = Value Prelude.Text
+  set newValue Hypervisor {..}
+    = Hypervisor {name = Prelude.pure newValue, ..}
+instance Property "Password" Hypervisor where
+  type PropertyType "Password" Hypervisor = Value Prelude.Text
+  set newValue Hypervisor {..}
+    = Hypervisor {password = Prelude.pure newValue, ..}
+instance Property "Tags" Hypervisor where
+  type PropertyType "Tags" Hypervisor = [Tag]
+  set newValue Hypervisor {..}
+    = Hypervisor {tags = Prelude.pure newValue, ..}
+instance Property "Username" Hypervisor where
+  type PropertyType "Username" Hypervisor = Value Prelude.Text
+  set newValue Hypervisor {..}
+    = Hypervisor {username = Prelude.pure newValue, ..}
diff --git a/stratosphere-backupgateway.cabal b/stratosphere-backupgateway.cabal
new file mode 100644
--- /dev/null
+++ b/stratosphere-backupgateway.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-backupgateway
+version:        1.0.0
+synopsis:       Stratosphere integration for AWS BackupGateway.
+description:    Integration into stratosphere to generate resources and properties for AWS BackupGateway
+category:       AWS, Cloud, BackupGateway
+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.BackupGateway.Hypervisor
+  other-modules:
+      Paths_stratosphere_backupgateway
+  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