packages feed

stratosphere-cloud9 (empty) → 1.0.0

raw patch · 5 files changed

+265/−0 lines, 5 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/Cloud9/EnvironmentEC2.hs view
@@ -0,0 +1,120 @@+module Stratosphere.Cloud9.EnvironmentEC2 (+        module Exports, EnvironmentEC2(..), mkEnvironmentEC2+    ) where+import qualified Data.Aeson as JSON+import qualified Stratosphere.Prelude as Prelude+import Stratosphere.Property+import {-# SOURCE #-} Stratosphere.Cloud9.EnvironmentEC2.RepositoryProperty as Exports+import Stratosphere.ResourceProperties+import Stratosphere.Tag+import Stratosphere.Value+data EnvironmentEC2+  = -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-cloud9-environmentec2.html>+    EnvironmentEC2 {haddock_workaround_ :: (),+                    -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-cloud9-environmentec2.html#cfn-cloud9-environmentec2-automaticstoptimeminutes>+                    automaticStopTimeMinutes :: (Prelude.Maybe (Value Prelude.Integer)),+                    -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-cloud9-environmentec2.html#cfn-cloud9-environmentec2-connectiontype>+                    connectionType :: (Prelude.Maybe (Value Prelude.Text)),+                    -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-cloud9-environmentec2.html#cfn-cloud9-environmentec2-description>+                    description :: (Prelude.Maybe (Value Prelude.Text)),+                    -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-cloud9-environmentec2.html#cfn-cloud9-environmentec2-imageid>+                    imageId :: (Value Prelude.Text),+                    -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-cloud9-environmentec2.html#cfn-cloud9-environmentec2-instancetype>+                    instanceType :: (Value Prelude.Text),+                    -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-cloud9-environmentec2.html#cfn-cloud9-environmentec2-name>+                    name :: (Prelude.Maybe (Value Prelude.Text)),+                    -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-cloud9-environmentec2.html#cfn-cloud9-environmentec2-ownerarn>+                    ownerArn :: (Prelude.Maybe (Value Prelude.Text)),+                    -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-cloud9-environmentec2.html#cfn-cloud9-environmentec2-repositories>+                    repositories :: (Prelude.Maybe [RepositoryProperty]),+                    -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-cloud9-environmentec2.html#cfn-cloud9-environmentec2-subnetid>+                    subnetId :: (Prelude.Maybe (Value Prelude.Text)),+                    -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-cloud9-environmentec2.html#cfn-cloud9-environmentec2-tags>+                    tags :: (Prelude.Maybe [Tag])}+  deriving stock (Prelude.Eq, Prelude.Show)+mkEnvironmentEC2 ::+  Value Prelude.Text -> Value Prelude.Text -> EnvironmentEC2+mkEnvironmentEC2 imageId instanceType+  = EnvironmentEC2+      {haddock_workaround_ = (), imageId = imageId,+       instanceType = instanceType,+       automaticStopTimeMinutes = Prelude.Nothing,+       connectionType = Prelude.Nothing, description = Prelude.Nothing,+       name = Prelude.Nothing, ownerArn = Prelude.Nothing,+       repositories = Prelude.Nothing, subnetId = Prelude.Nothing,+       tags = Prelude.Nothing}+instance ToResourceProperties EnvironmentEC2 where+  toResourceProperties EnvironmentEC2 {..}+    = ResourceProperties+        {awsType = "AWS::Cloud9::EnvironmentEC2",+         supportsTags = Prelude.True,+         properties = Prelude.fromList+                        ((Prelude.<>)+                           ["ImageId" JSON..= imageId, "InstanceType" JSON..= instanceType]+                           (Prelude.catMaybes+                              [(JSON..=) "AutomaticStopTimeMinutes"+                                 Prelude.<$> automaticStopTimeMinutes,+                               (JSON..=) "ConnectionType" Prelude.<$> connectionType,+                               (JSON..=) "Description" Prelude.<$> description,+                               (JSON..=) "Name" Prelude.<$> name,+                               (JSON..=) "OwnerArn" Prelude.<$> ownerArn,+                               (JSON..=) "Repositories" Prelude.<$> repositories,+                               (JSON..=) "SubnetId" Prelude.<$> subnetId,+                               (JSON..=) "Tags" Prelude.<$> tags]))}+instance JSON.ToJSON EnvironmentEC2 where+  toJSON EnvironmentEC2 {..}+    = JSON.object+        (Prelude.fromList+           ((Prelude.<>)+              ["ImageId" JSON..= imageId, "InstanceType" JSON..= instanceType]+              (Prelude.catMaybes+                 [(JSON..=) "AutomaticStopTimeMinutes"+                    Prelude.<$> automaticStopTimeMinutes,+                  (JSON..=) "ConnectionType" Prelude.<$> connectionType,+                  (JSON..=) "Description" Prelude.<$> description,+                  (JSON..=) "Name" Prelude.<$> name,+                  (JSON..=) "OwnerArn" Prelude.<$> ownerArn,+                  (JSON..=) "Repositories" Prelude.<$> repositories,+                  (JSON..=) "SubnetId" Prelude.<$> subnetId,+                  (JSON..=) "Tags" Prelude.<$> tags])))+instance Property "AutomaticStopTimeMinutes" EnvironmentEC2 where+  type PropertyType "AutomaticStopTimeMinutes" EnvironmentEC2 = Value Prelude.Integer+  set newValue EnvironmentEC2 {..}+    = EnvironmentEC2+        {automaticStopTimeMinutes = Prelude.pure newValue, ..}+instance Property "ConnectionType" EnvironmentEC2 where+  type PropertyType "ConnectionType" EnvironmentEC2 = Value Prelude.Text+  set newValue EnvironmentEC2 {..}+    = EnvironmentEC2 {connectionType = Prelude.pure newValue, ..}+instance Property "Description" EnvironmentEC2 where+  type PropertyType "Description" EnvironmentEC2 = Value Prelude.Text+  set newValue EnvironmentEC2 {..}+    = EnvironmentEC2 {description = Prelude.pure newValue, ..}+instance Property "ImageId" EnvironmentEC2 where+  type PropertyType "ImageId" EnvironmentEC2 = Value Prelude.Text+  set newValue EnvironmentEC2 {..}+    = EnvironmentEC2 {imageId = newValue, ..}+instance Property "InstanceType" EnvironmentEC2 where+  type PropertyType "InstanceType" EnvironmentEC2 = Value Prelude.Text+  set newValue EnvironmentEC2 {..}+    = EnvironmentEC2 {instanceType = newValue, ..}+instance Property "Name" EnvironmentEC2 where+  type PropertyType "Name" EnvironmentEC2 = Value Prelude.Text+  set newValue EnvironmentEC2 {..}+    = EnvironmentEC2 {name = Prelude.pure newValue, ..}+instance Property "OwnerArn" EnvironmentEC2 where+  type PropertyType "OwnerArn" EnvironmentEC2 = Value Prelude.Text+  set newValue EnvironmentEC2 {..}+    = EnvironmentEC2 {ownerArn = Prelude.pure newValue, ..}+instance Property "Repositories" EnvironmentEC2 where+  type PropertyType "Repositories" EnvironmentEC2 = [RepositoryProperty]+  set newValue EnvironmentEC2 {..}+    = EnvironmentEC2 {repositories = Prelude.pure newValue, ..}+instance Property "SubnetId" EnvironmentEC2 where+  type PropertyType "SubnetId" EnvironmentEC2 = Value Prelude.Text+  set newValue EnvironmentEC2 {..}+    = EnvironmentEC2 {subnetId = Prelude.pure newValue, ..}+instance Property "Tags" EnvironmentEC2 where+  type PropertyType "Tags" EnvironmentEC2 = [Tag]+  set newValue EnvironmentEC2 {..}+    = EnvironmentEC2 {tags = Prelude.pure newValue, ..}
+ gen/Stratosphere/Cloud9/EnvironmentEC2/RepositoryProperty.hs view
@@ -0,0 +1,42 @@+module Stratosphere.Cloud9.EnvironmentEC2.RepositoryProperty (+        RepositoryProperty(..), mkRepositoryProperty+    ) where+import qualified Data.Aeson as JSON+import qualified Stratosphere.Prelude as Prelude+import Stratosphere.Property+import Stratosphere.ResourceProperties+import Stratosphere.Value+data RepositoryProperty+  = -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloud9-environmentec2-repository.html>+    RepositoryProperty {haddock_workaround_ :: (),+                        -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloud9-environmentec2-repository.html#cfn-cloud9-environmentec2-repository-pathcomponent>+                        pathComponent :: (Value Prelude.Text),+                        -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cloud9-environmentec2-repository.html#cfn-cloud9-environmentec2-repository-repositoryurl>+                        repositoryUrl :: (Value Prelude.Text)}+  deriving stock (Prelude.Eq, Prelude.Show)+mkRepositoryProperty ::+  Value Prelude.Text -> Value Prelude.Text -> RepositoryProperty+mkRepositoryProperty pathComponent repositoryUrl+  = RepositoryProperty+      {haddock_workaround_ = (), pathComponent = pathComponent,+       repositoryUrl = repositoryUrl}+instance ToResourceProperties RepositoryProperty where+  toResourceProperties RepositoryProperty {..}+    = ResourceProperties+        {awsType = "AWS::Cloud9::EnvironmentEC2.Repository",+         supportsTags = Prelude.False,+         properties = ["PathComponent" JSON..= pathComponent,+                       "RepositoryUrl" JSON..= repositoryUrl]}+instance JSON.ToJSON RepositoryProperty where+  toJSON RepositoryProperty {..}+    = JSON.object+        ["PathComponent" JSON..= pathComponent,+         "RepositoryUrl" JSON..= repositoryUrl]+instance Property "PathComponent" RepositoryProperty where+  type PropertyType "PathComponent" RepositoryProperty = Value Prelude.Text+  set newValue RepositoryProperty {..}+    = RepositoryProperty {pathComponent = newValue, ..}+instance Property "RepositoryUrl" RepositoryProperty where+  type PropertyType "RepositoryUrl" RepositoryProperty = Value Prelude.Text+  set newValue RepositoryProperty {..}+    = RepositoryProperty {repositoryUrl = newValue, ..}
+ gen/Stratosphere/Cloud9/EnvironmentEC2/RepositoryProperty.hs-boot view
@@ -0,0 +1,9 @@+module Stratosphere.Cloud9.EnvironmentEC2.RepositoryProperty where+import qualified Data.Aeson as JSON+import qualified Stratosphere.Prelude as Prelude+import Stratosphere.ResourceProperties+data RepositoryProperty :: Prelude.Type+instance ToResourceProperties RepositoryProperty+instance Prelude.Eq RepositoryProperty+instance Prelude.Show RepositoryProperty+instance JSON.ToJSON RepositoryProperty
+ stratosphere-cloud9.cabal view
@@ -0,0 +1,74 @@+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-cloud9+version:        1.0.0+synopsis:       Stratosphere integration for AWS Cloud9.+description:    Integration into stratosphere to generate resources and properties for AWS Cloud9+category:       AWS, Cloud, Cloud9+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.Cloud9.EnvironmentEC2+      Stratosphere.Cloud9.EnvironmentEC2.RepositoryProperty+  other-modules:+      Paths_stratosphere_cloud9+  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