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/Detective/Graph.hs b/gen/Stratosphere/Detective/Graph.hs
new file mode 100644
--- /dev/null
+++ b/gen/Stratosphere/Detective/Graph.hs
@@ -0,0 +1,44 @@
+module Stratosphere.Detective.Graph (
+        Graph(..), mkGraph
+    ) 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 Graph
+  = -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-detective-graph.html>
+    Graph {haddock_workaround_ :: (),
+           -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-detective-graph.html#cfn-detective-graph-autoenablemembers>
+           autoEnableMembers :: (Prelude.Maybe (Value Prelude.Bool)),
+           -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-detective-graph.html#cfn-detective-graph-tags>
+           tags :: (Prelude.Maybe [Tag])}
+  deriving stock (Prelude.Eq, Prelude.Show)
+mkGraph :: Graph
+mkGraph
+  = Graph
+      {haddock_workaround_ = (), autoEnableMembers = Prelude.Nothing,
+       tags = Prelude.Nothing}
+instance ToResourceProperties Graph where
+  toResourceProperties Graph {..}
+    = ResourceProperties
+        {awsType = "AWS::Detective::Graph", supportsTags = Prelude.True,
+         properties = Prelude.fromList
+                        (Prelude.catMaybes
+                           [(JSON..=) "AutoEnableMembers" Prelude.<$> autoEnableMembers,
+                            (JSON..=) "Tags" Prelude.<$> tags])}
+instance JSON.ToJSON Graph where
+  toJSON Graph {..}
+    = JSON.object
+        (Prelude.fromList
+           (Prelude.catMaybes
+              [(JSON..=) "AutoEnableMembers" Prelude.<$> autoEnableMembers,
+               (JSON..=) "Tags" Prelude.<$> tags]))
+instance Property "AutoEnableMembers" Graph where
+  type PropertyType "AutoEnableMembers" Graph = Value Prelude.Bool
+  set newValue Graph {..}
+    = Graph {autoEnableMembers = Prelude.pure newValue, ..}
+instance Property "Tags" Graph where
+  type PropertyType "Tags" Graph = [Tag]
+  set newValue Graph {..} = Graph {tags = Prelude.pure newValue, ..}
diff --git a/gen/Stratosphere/Detective/MemberInvitation.hs b/gen/Stratosphere/Detective/MemberInvitation.hs
new file mode 100644
--- /dev/null
+++ b/gen/Stratosphere/Detective/MemberInvitation.hs
@@ -0,0 +1,78 @@
+module Stratosphere.Detective.MemberInvitation (
+        MemberInvitation(..), mkMemberInvitation
+    ) where
+import qualified Data.Aeson as JSON
+import qualified Stratosphere.Prelude as Prelude
+import Stratosphere.Property
+import Stratosphere.ResourceProperties
+import Stratosphere.Value
+data MemberInvitation
+  = -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-detective-memberinvitation.html>
+    MemberInvitation {haddock_workaround_ :: (),
+                      -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-detective-memberinvitation.html#cfn-detective-memberinvitation-disableemailnotification>
+                      disableEmailNotification :: (Prelude.Maybe (Value Prelude.Bool)),
+                      -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-detective-memberinvitation.html#cfn-detective-memberinvitation-grapharn>
+                      graphArn :: (Value Prelude.Text),
+                      -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-detective-memberinvitation.html#cfn-detective-memberinvitation-memberemailaddress>
+                      memberEmailAddress :: (Value Prelude.Text),
+                      -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-detective-memberinvitation.html#cfn-detective-memberinvitation-memberid>
+                      memberId :: (Value Prelude.Text),
+                      -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-detective-memberinvitation.html#cfn-detective-memberinvitation-message>
+                      message :: (Prelude.Maybe (Value Prelude.Text))}
+  deriving stock (Prelude.Eq, Prelude.Show)
+mkMemberInvitation ::
+  Value Prelude.Text
+  -> Value Prelude.Text -> Value Prelude.Text -> MemberInvitation
+mkMemberInvitation graphArn memberEmailAddress memberId
+  = MemberInvitation
+      {haddock_workaround_ = (), graphArn = graphArn,
+       memberEmailAddress = memberEmailAddress, memberId = memberId,
+       disableEmailNotification = Prelude.Nothing,
+       message = Prelude.Nothing}
+instance ToResourceProperties MemberInvitation where
+  toResourceProperties MemberInvitation {..}
+    = ResourceProperties
+        {awsType = "AWS::Detective::MemberInvitation",
+         supportsTags = Prelude.False,
+         properties = Prelude.fromList
+                        ((Prelude.<>)
+                           ["GraphArn" JSON..= graphArn,
+                            "MemberEmailAddress" JSON..= memberEmailAddress,
+                            "MemberId" JSON..= memberId]
+                           (Prelude.catMaybes
+                              [(JSON..=) "DisableEmailNotification"
+                                 Prelude.<$> disableEmailNotification,
+                               (JSON..=) "Message" Prelude.<$> message]))}
+instance JSON.ToJSON MemberInvitation where
+  toJSON MemberInvitation {..}
+    = JSON.object
+        (Prelude.fromList
+           ((Prelude.<>)
+              ["GraphArn" JSON..= graphArn,
+               "MemberEmailAddress" JSON..= memberEmailAddress,
+               "MemberId" JSON..= memberId]
+              (Prelude.catMaybes
+                 [(JSON..=) "DisableEmailNotification"
+                    Prelude.<$> disableEmailNotification,
+                  (JSON..=) "Message" Prelude.<$> message])))
+instance Property "DisableEmailNotification" MemberInvitation where
+  type PropertyType "DisableEmailNotification" MemberInvitation = Value Prelude.Bool
+  set newValue MemberInvitation {..}
+    = MemberInvitation
+        {disableEmailNotification = Prelude.pure newValue, ..}
+instance Property "GraphArn" MemberInvitation where
+  type PropertyType "GraphArn" MemberInvitation = Value Prelude.Text
+  set newValue MemberInvitation {..}
+    = MemberInvitation {graphArn = newValue, ..}
+instance Property "MemberEmailAddress" MemberInvitation where
+  type PropertyType "MemberEmailAddress" MemberInvitation = Value Prelude.Text
+  set newValue MemberInvitation {..}
+    = MemberInvitation {memberEmailAddress = newValue, ..}
+instance Property "MemberId" MemberInvitation where
+  type PropertyType "MemberId" MemberInvitation = Value Prelude.Text
+  set newValue MemberInvitation {..}
+    = MemberInvitation {memberId = newValue, ..}
+instance Property "Message" MemberInvitation where
+  type PropertyType "Message" MemberInvitation = Value Prelude.Text
+  set newValue MemberInvitation {..}
+    = MemberInvitation {message = Prelude.pure newValue, ..}
diff --git a/gen/Stratosphere/Detective/OrganizationAdmin.hs b/gen/Stratosphere/Detective/OrganizationAdmin.hs
new file mode 100644
--- /dev/null
+++ b/gen/Stratosphere/Detective/OrganizationAdmin.hs
@@ -0,0 +1,31 @@
+module Stratosphere.Detective.OrganizationAdmin (
+        OrganizationAdmin(..), mkOrganizationAdmin
+    ) where
+import qualified Data.Aeson as JSON
+import qualified Stratosphere.Prelude as Prelude
+import Stratosphere.Property
+import Stratosphere.ResourceProperties
+import Stratosphere.Value
+data OrganizationAdmin
+  = -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-detective-organizationadmin.html>
+    OrganizationAdmin {haddock_workaround_ :: (),
+                       -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-detective-organizationadmin.html#cfn-detective-organizationadmin-accountid>
+                       accountId :: (Value Prelude.Text)}
+  deriving stock (Prelude.Eq, Prelude.Show)
+mkOrganizationAdmin :: Value Prelude.Text -> OrganizationAdmin
+mkOrganizationAdmin accountId
+  = OrganizationAdmin
+      {haddock_workaround_ = (), accountId = accountId}
+instance ToResourceProperties OrganizationAdmin where
+  toResourceProperties OrganizationAdmin {..}
+    = ResourceProperties
+        {awsType = "AWS::Detective::OrganizationAdmin",
+         supportsTags = Prelude.False,
+         properties = ["AccountId" JSON..= accountId]}
+instance JSON.ToJSON OrganizationAdmin where
+  toJSON OrganizationAdmin {..}
+    = JSON.object ["AccountId" JSON..= accountId]
+instance Property "AccountId" OrganizationAdmin where
+  type PropertyType "AccountId" OrganizationAdmin = Value Prelude.Text
+  set newValue OrganizationAdmin {..}
+    = OrganizationAdmin {accountId = newValue, ..}
diff --git a/stratosphere-detective.cabal b/stratosphere-detective.cabal
new file mode 100644
--- /dev/null
+++ b/stratosphere-detective.cabal
@@ -0,0 +1,75 @@
+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-detective
+version:        1.0.0
+synopsis:       Stratosphere integration for AWS Detective.
+description:    Integration into stratosphere to generate resources and properties for AWS Detective
+category:       AWS, Cloud, Detective
+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.Detective.Graph
+      Stratosphere.Detective.MemberInvitation
+      Stratosphere.Detective.OrganizationAdmin
+  other-modules:
+      Paths_stratosphere_detective
+  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