packages feed

stratosphere-codestar (empty) → 1.0.0

raw patch · 7 files changed

+299/−0 lines, 7 filesdep +aesondep +basedep +stratosphere

Dependencies added: aeson, base, stratosphere

Files

+ 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/CodeStar/GitHubRepository.hs view
@@ -0,0 +1,107 @@+module Stratosphere.CodeStar.GitHubRepository (+        module Exports, GitHubRepository(..), mkGitHubRepository+    ) where+import qualified Data.Aeson as JSON+import qualified Stratosphere.Prelude as Prelude+import Stratosphere.Property+import {-# SOURCE #-} Stratosphere.CodeStar.GitHubRepository.CodeProperty as Exports+import Stratosphere.ResourceProperties+import Stratosphere.Value+data GitHubRepository+  = -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-codestar-githubrepository.html>+    GitHubRepository {haddock_workaround_ :: (),+                      -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-codestar-githubrepository.html#cfn-codestar-githubrepository-code>+                      code :: (Prelude.Maybe CodeProperty),+                      -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-codestar-githubrepository.html#cfn-codestar-githubrepository-connectionarn>+                      connectionArn :: (Prelude.Maybe (Value Prelude.Text)),+                      -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-codestar-githubrepository.html#cfn-codestar-githubrepository-enableissues>+                      enableIssues :: (Prelude.Maybe (Value Prelude.Bool)),+                      -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-codestar-githubrepository.html#cfn-codestar-githubrepository-isprivate>+                      isPrivate :: (Prelude.Maybe (Value Prelude.Bool)),+                      -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-codestar-githubrepository.html#cfn-codestar-githubrepository-repositoryaccesstoken>+                      repositoryAccessToken :: (Prelude.Maybe (Value Prelude.Text)),+                      -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-codestar-githubrepository.html#cfn-codestar-githubrepository-repositorydescription>+                      repositoryDescription :: (Prelude.Maybe (Value Prelude.Text)),+                      -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-codestar-githubrepository.html#cfn-codestar-githubrepository-repositoryname>+                      repositoryName :: (Value Prelude.Text),+                      -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-codestar-githubrepository.html#cfn-codestar-githubrepository-repositoryowner>+                      repositoryOwner :: (Value Prelude.Text)}+  deriving stock (Prelude.Eq, Prelude.Show)+mkGitHubRepository ::+  Value Prelude.Text -> Value Prelude.Text -> GitHubRepository+mkGitHubRepository repositoryName repositoryOwner+  = GitHubRepository+      {haddock_workaround_ = (), repositoryName = repositoryName,+       repositoryOwner = repositoryOwner, code = Prelude.Nothing,+       connectionArn = Prelude.Nothing, enableIssues = Prelude.Nothing,+       isPrivate = Prelude.Nothing,+       repositoryAccessToken = Prelude.Nothing,+       repositoryDescription = Prelude.Nothing}+instance ToResourceProperties GitHubRepository where+  toResourceProperties GitHubRepository {..}+    = ResourceProperties+        {awsType = "AWS::CodeStar::GitHubRepository",+         supportsTags = Prelude.False,+         properties = Prelude.fromList+                        ((Prelude.<>)+                           ["RepositoryName" JSON..= repositoryName,+                            "RepositoryOwner" JSON..= repositoryOwner]+                           (Prelude.catMaybes+                              [(JSON..=) "Code" Prelude.<$> code,+                               (JSON..=) "ConnectionArn" Prelude.<$> connectionArn,+                               (JSON..=) "EnableIssues" Prelude.<$> enableIssues,+                               (JSON..=) "IsPrivate" Prelude.<$> isPrivate,+                               (JSON..=) "RepositoryAccessToken"+                                 Prelude.<$> repositoryAccessToken,+                               (JSON..=) "RepositoryDescription"+                                 Prelude.<$> repositoryDescription]))}+instance JSON.ToJSON GitHubRepository where+  toJSON GitHubRepository {..}+    = JSON.object+        (Prelude.fromList+           ((Prelude.<>)+              ["RepositoryName" JSON..= repositoryName,+               "RepositoryOwner" JSON..= repositoryOwner]+              (Prelude.catMaybes+                 [(JSON..=) "Code" Prelude.<$> code,+                  (JSON..=) "ConnectionArn" Prelude.<$> connectionArn,+                  (JSON..=) "EnableIssues" Prelude.<$> enableIssues,+                  (JSON..=) "IsPrivate" Prelude.<$> isPrivate,+                  (JSON..=) "RepositoryAccessToken"+                    Prelude.<$> repositoryAccessToken,+                  (JSON..=) "RepositoryDescription"+                    Prelude.<$> repositoryDescription])))+instance Property "Code" GitHubRepository where+  type PropertyType "Code" GitHubRepository = CodeProperty+  set newValue GitHubRepository {..}+    = GitHubRepository {code = Prelude.pure newValue, ..}+instance Property "ConnectionArn" GitHubRepository where+  type PropertyType "ConnectionArn" GitHubRepository = Value Prelude.Text+  set newValue GitHubRepository {..}+    = GitHubRepository {connectionArn = Prelude.pure newValue, ..}+instance Property "EnableIssues" GitHubRepository where+  type PropertyType "EnableIssues" GitHubRepository = Value Prelude.Bool+  set newValue GitHubRepository {..}+    = GitHubRepository {enableIssues = Prelude.pure newValue, ..}+instance Property "IsPrivate" GitHubRepository where+  type PropertyType "IsPrivate" GitHubRepository = Value Prelude.Bool+  set newValue GitHubRepository {..}+    = GitHubRepository {isPrivate = Prelude.pure newValue, ..}+instance Property "RepositoryAccessToken" GitHubRepository where+  type PropertyType "RepositoryAccessToken" GitHubRepository = Value Prelude.Text+  set newValue GitHubRepository {..}+    = GitHubRepository+        {repositoryAccessToken = Prelude.pure newValue, ..}+instance Property "RepositoryDescription" GitHubRepository where+  type PropertyType "RepositoryDescription" GitHubRepository = Value Prelude.Text+  set newValue GitHubRepository {..}+    = GitHubRepository+        {repositoryDescription = Prelude.pure newValue, ..}+instance Property "RepositoryName" GitHubRepository where+  type PropertyType "RepositoryName" GitHubRepository = Value Prelude.Text+  set newValue GitHubRepository {..}+    = GitHubRepository {repositoryName = newValue, ..}+instance Property "RepositoryOwner" GitHubRepository where+  type PropertyType "RepositoryOwner" GitHubRepository = Value Prelude.Text+  set newValue GitHubRepository {..}+    = GitHubRepository {repositoryOwner = newValue, ..}
+ gen/Stratosphere/CodeStar/GitHubRepository/CodeProperty.hs view
@@ -0,0 +1,27 @@+module Stratosphere.CodeStar.GitHubRepository.CodeProperty (+        module Exports, CodeProperty(..), mkCodeProperty+    ) where+import qualified Data.Aeson as JSON+import qualified Stratosphere.Prelude as Prelude+import Stratosphere.Property+import {-# SOURCE #-} Stratosphere.CodeStar.GitHubRepository.S3Property as Exports+import Stratosphere.ResourceProperties+data CodeProperty+  = -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-codestar-githubrepository-code.html>+    CodeProperty {haddock_workaround_ :: (),+                  -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-codestar-githubrepository-code.html#cfn-codestar-githubrepository-code-s3>+                  s3 :: S3Property}+  deriving stock (Prelude.Eq, Prelude.Show)+mkCodeProperty :: S3Property -> CodeProperty+mkCodeProperty s3+  = CodeProperty {haddock_workaround_ = (), s3 = s3}+instance ToResourceProperties CodeProperty where+  toResourceProperties CodeProperty {..}+    = ResourceProperties+        {awsType = "AWS::CodeStar::GitHubRepository.Code",+         supportsTags = Prelude.False, properties = ["S3" JSON..= s3]}+instance JSON.ToJSON CodeProperty where+  toJSON CodeProperty {..} = JSON.object ["S3" JSON..= s3]+instance Property "S3" CodeProperty where+  type PropertyType "S3" CodeProperty = S3Property+  set newValue CodeProperty {..} = CodeProperty {s3 = newValue, ..}
+ gen/Stratosphere/CodeStar/GitHubRepository/CodeProperty.hs-boot view
@@ -0,0 +1,9 @@+module Stratosphere.CodeStar.GitHubRepository.CodeProperty where+import qualified Data.Aeson as JSON+import qualified Stratosphere.Prelude as Prelude+import Stratosphere.ResourceProperties+data CodeProperty :: Prelude.Type+instance ToResourceProperties CodeProperty+instance Prelude.Eq CodeProperty+instance Prelude.Show CodeProperty+instance JSON.ToJSON CodeProperty
+ gen/Stratosphere/CodeStar/GitHubRepository/S3Property.hs view
@@ -0,0 +1,52 @@+module Stratosphere.CodeStar.GitHubRepository.S3Property (+        S3Property(..), mkS3Property+    ) where+import qualified Data.Aeson as JSON+import qualified Stratosphere.Prelude as Prelude+import Stratosphere.Property+import Stratosphere.ResourceProperties+import Stratosphere.Value+data S3Property+  = -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-codestar-githubrepository-s3.html>+    S3Property {haddock_workaround_ :: (),+                -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-codestar-githubrepository-s3.html#cfn-codestar-githubrepository-s3-bucket>+                bucket :: (Value Prelude.Text),+                -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-codestar-githubrepository-s3.html#cfn-codestar-githubrepository-s3-key>+                key :: (Value Prelude.Text),+                -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-codestar-githubrepository-s3.html#cfn-codestar-githubrepository-s3-objectversion>+                objectVersion :: (Prelude.Maybe (Value Prelude.Text))}+  deriving stock (Prelude.Eq, Prelude.Show)+mkS3Property ::+  Value Prelude.Text -> Value Prelude.Text -> S3Property+mkS3Property bucket key+  = S3Property+      {haddock_workaround_ = (), bucket = bucket, key = key,+       objectVersion = Prelude.Nothing}+instance ToResourceProperties S3Property where+  toResourceProperties S3Property {..}+    = ResourceProperties+        {awsType = "AWS::CodeStar::GitHubRepository.S3",+         supportsTags = Prelude.False,+         properties = Prelude.fromList+                        ((Prelude.<>)+                           ["Bucket" JSON..= bucket, "Key" JSON..= key]+                           (Prelude.catMaybes+                              [(JSON..=) "ObjectVersion" Prelude.<$> objectVersion]))}+instance JSON.ToJSON S3Property where+  toJSON S3Property {..}+    = JSON.object+        (Prelude.fromList+           ((Prelude.<>)+              ["Bucket" JSON..= bucket, "Key" JSON..= key]+              (Prelude.catMaybes+                 [(JSON..=) "ObjectVersion" Prelude.<$> objectVersion])))+instance Property "Bucket" S3Property where+  type PropertyType "Bucket" S3Property = Value Prelude.Text+  set newValue S3Property {..} = S3Property {bucket = newValue, ..}+instance Property "Key" S3Property where+  type PropertyType "Key" S3Property = Value Prelude.Text+  set newValue S3Property {..} = S3Property {key = newValue, ..}+instance Property "ObjectVersion" S3Property where+  type PropertyType "ObjectVersion" S3Property = Value Prelude.Text+  set newValue S3Property {..}+    = S3Property {objectVersion = Prelude.pure newValue, ..}
+ gen/Stratosphere/CodeStar/GitHubRepository/S3Property.hs-boot view
@@ -0,0 +1,9 @@+module Stratosphere.CodeStar.GitHubRepository.S3Property where+import qualified Data.Aeson as JSON+import qualified Stratosphere.Prelude as Prelude+import Stratosphere.ResourceProperties+data S3Property :: Prelude.Type+instance ToResourceProperties S3Property+instance Prelude.Eq S3Property+instance Prelude.Show S3Property+instance JSON.ToJSON S3Property
+ stratosphere-codestar.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-codestar+version:        1.0.0+synopsis:       Stratosphere integration for AWS CodeStar.+description:    Integration into stratosphere to generate resources and properties for AWS CodeStar+category:       AWS, Cloud, CodeStar+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.CodeStar.GitHubRepository+      Stratosphere.CodeStar.GitHubRepository.CodeProperty+      Stratosphere.CodeStar.GitHubRepository.S3Property+  other-modules:+      Paths_stratosphere_codestar+  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