stratosphere-detective (empty) → 1.0.0
raw patch · 5 files changed
+248/−0 lines, 5 filesdep +aesondep +basedep +stratosphere
Dependencies added: aeson, base, stratosphere
Files
- LICENSE.md +20/−0
- gen/Stratosphere/Detective/Graph.hs +44/−0
- gen/Stratosphere/Detective/MemberInvitation.hs +78/−0
- gen/Stratosphere/Detective/OrganizationAdmin.hs +31/−0
- stratosphere-detective.cabal +75/−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/Detective/Graph.hs view
@@ -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, ..}
+ gen/Stratosphere/Detective/MemberInvitation.hs view
@@ -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, ..}
+ gen/Stratosphere/Detective/OrganizationAdmin.hs view
@@ -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, ..}
+ stratosphere-detective.cabal view
@@ -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