-
-
Notifications
You must be signed in to change notification settings - Fork 19
Commit
This commit does not belong to any branch on this repository, and may belong to a fork outside of the repository.
Merge pull request #232 from mbj/upgrade/model
Upgrade model and regen
- Loading branch information
Showing
5,055 changed files
with
133,875 additions
and
178,405 deletions.
The diff you're trying to view is too large. We only load the first 3000 changed files.
There are no files selected for viewing
150,509 changes: 70,144 additions & 80,365 deletions
150,509
generator/model/CloudFormationResourceSpecification.json
Large diffs are not rendered by default.
Oops, something went wrong.
42 changes: 42 additions & 0 deletions
42
...s/accessanalyzer/gen/Stratosphere/AccessAnalyzer/Analyzer/AnalysisRuleCriteriaProperty.hs
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| Original file line number | Diff line number | Diff line change |
|---|---|---|
| @@ -0,0 +1,42 @@ | ||
| module Stratosphere.AccessAnalyzer.Analyzer.AnalysisRuleCriteriaProperty ( | ||
| AnalysisRuleCriteriaProperty(..), mkAnalysisRuleCriteriaProperty | ||
| ) where | ||
| import qualified Data.Aeson as JSON | ||
| import qualified Stratosphere.Prelude as Prelude | ||
| import Stratosphere.Property | ||
| import Stratosphere.ResourceProperties | ||
| import Stratosphere.Value | ||
| data AnalysisRuleCriteriaProperty | ||
| = AnalysisRuleCriteriaProperty {accountIds :: (Prelude.Maybe (ValueList Prelude.Text)), | ||
| resourceTags :: (Prelude.Maybe JSON.Object)} | ||
| deriving stock (Prelude.Eq, Prelude.Show) | ||
| mkAnalysisRuleCriteriaProperty :: AnalysisRuleCriteriaProperty | ||
| mkAnalysisRuleCriteriaProperty | ||
| = AnalysisRuleCriteriaProperty | ||
| {accountIds = Prelude.Nothing, resourceTags = Prelude.Nothing} | ||
| instance ToResourceProperties AnalysisRuleCriteriaProperty where | ||
| toResourceProperties AnalysisRuleCriteriaProperty {..} | ||
| = ResourceProperties | ||
| {awsType = "AWS::AccessAnalyzer::Analyzer.AnalysisRuleCriteria", | ||
| supportsTags = Prelude.False, | ||
| properties = Prelude.fromList | ||
| (Prelude.catMaybes | ||
| [(JSON..=) "AccountIds" Prelude.<$> accountIds, | ||
| (JSON..=) "ResourceTags" Prelude.<$> resourceTags])} | ||
| instance JSON.ToJSON AnalysisRuleCriteriaProperty where | ||
| toJSON AnalysisRuleCriteriaProperty {..} | ||
| = JSON.object | ||
| (Prelude.fromList | ||
| (Prelude.catMaybes | ||
| [(JSON..=) "AccountIds" Prelude.<$> accountIds, | ||
| (JSON..=) "ResourceTags" Prelude.<$> resourceTags])) | ||
| instance Property "AccountIds" AnalysisRuleCriteriaProperty where | ||
| type PropertyType "AccountIds" AnalysisRuleCriteriaProperty = ValueList Prelude.Text | ||
| set newValue AnalysisRuleCriteriaProperty {..} | ||
| = AnalysisRuleCriteriaProperty | ||
| {accountIds = Prelude.pure newValue, ..} | ||
| instance Property "ResourceTags" AnalysisRuleCriteriaProperty where | ||
| type PropertyType "ResourceTags" AnalysisRuleCriteriaProperty = JSON.Object | ||
| set newValue AnalysisRuleCriteriaProperty {..} | ||
| = AnalysisRuleCriteriaProperty | ||
| {resourceTags = Prelude.pure newValue, ..} |
9 changes: 9 additions & 0 deletions
9
...essanalyzer/gen/Stratosphere/AccessAnalyzer/Analyzer/AnalysisRuleCriteriaProperty.hs-boot
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| Original file line number | Diff line number | Diff line change |
|---|---|---|
| @@ -0,0 +1,9 @@ | ||
| module Stratosphere.AccessAnalyzer.Analyzer.AnalysisRuleCriteriaProperty where | ||
| import qualified Data.Aeson as JSON | ||
| import qualified Stratosphere.Prelude as Prelude | ||
| import Stratosphere.ResourceProperties | ||
| data AnalysisRuleCriteriaProperty :: Prelude.Type | ||
| instance ToResourceProperties AnalysisRuleCriteriaProperty | ||
| instance Prelude.Eq AnalysisRuleCriteriaProperty | ||
| instance Prelude.Show AnalysisRuleCriteriaProperty | ||
| instance JSON.ToJSON AnalysisRuleCriteriaProperty |
32 changes: 32 additions & 0 deletions
32
services/accessanalyzer/gen/Stratosphere/AccessAnalyzer/Analyzer/AnalysisRuleProperty.hs
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| Original file line number | Diff line number | Diff line change |
|---|---|---|
| @@ -0,0 +1,32 @@ | ||
| module Stratosphere.AccessAnalyzer.Analyzer.AnalysisRuleProperty ( | ||
| module Exports, AnalysisRuleProperty(..), mkAnalysisRuleProperty | ||
| ) where | ||
| import qualified Data.Aeson as JSON | ||
| import qualified Stratosphere.Prelude as Prelude | ||
| import Stratosphere.Property | ||
| import {-# SOURCE #-} Stratosphere.AccessAnalyzer.Analyzer.AnalysisRuleCriteriaProperty as Exports | ||
| import Stratosphere.ResourceProperties | ||
| data AnalysisRuleProperty | ||
| = AnalysisRuleProperty {exclusions :: (Prelude.Maybe [AnalysisRuleCriteriaProperty])} | ||
| deriving stock (Prelude.Eq, Prelude.Show) | ||
| mkAnalysisRuleProperty :: AnalysisRuleProperty | ||
| mkAnalysisRuleProperty | ||
| = AnalysisRuleProperty {exclusions = Prelude.Nothing} | ||
| instance ToResourceProperties AnalysisRuleProperty where | ||
| toResourceProperties AnalysisRuleProperty {..} | ||
| = ResourceProperties | ||
| {awsType = "AWS::AccessAnalyzer::Analyzer.AnalysisRule", | ||
| supportsTags = Prelude.False, | ||
| properties = Prelude.fromList | ||
| (Prelude.catMaybes | ||
| [(JSON..=) "Exclusions" Prelude.<$> exclusions])} | ||
| instance JSON.ToJSON AnalysisRuleProperty where | ||
| toJSON AnalysisRuleProperty {..} | ||
| = JSON.object | ||
| (Prelude.fromList | ||
| (Prelude.catMaybes | ||
| [(JSON..=) "Exclusions" Prelude.<$> exclusions])) | ||
| instance Property "Exclusions" AnalysisRuleProperty where | ||
| type PropertyType "Exclusions" AnalysisRuleProperty = [AnalysisRuleCriteriaProperty] | ||
| set newValue AnalysisRuleProperty {} | ||
| = AnalysisRuleProperty {exclusions = Prelude.pure newValue, ..} |
9 changes: 9 additions & 0 deletions
9
...ices/accessanalyzer/gen/Stratosphere/AccessAnalyzer/Analyzer/AnalysisRuleProperty.hs-boot
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| Original file line number | Diff line number | Diff line change |
|---|---|---|
| @@ -0,0 +1,9 @@ | ||
| module Stratosphere.AccessAnalyzer.Analyzer.AnalysisRuleProperty where | ||
| import qualified Data.Aeson as JSON | ||
| import qualified Stratosphere.Prelude as Prelude | ||
| import Stratosphere.ResourceProperties | ||
| data AnalysisRuleProperty :: Prelude.Type | ||
| instance ToResourceProperties AnalysisRuleProperty | ||
| instance Prelude.Eq AnalysisRuleProperty | ||
| instance Prelude.Show AnalysisRuleProperty | ||
| instance JSON.ToJSON AnalysisRuleProperty |
21 changes: 15 additions & 6 deletions
21
...essanalyzer/gen/Stratosphere/AccessAnalyzer/Analyzer/UnusedAccessConfigurationProperty.hs
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| Original file line number | Diff line number | Diff line change |
|---|---|---|
| @@ -1,36 +1,45 @@ | ||
| module Stratosphere.AccessAnalyzer.Analyzer.UnusedAccessConfigurationProperty ( | ||
| UnusedAccessConfigurationProperty(..), | ||
| module Exports, UnusedAccessConfigurationProperty(..), | ||
| mkUnusedAccessConfigurationProperty | ||
| ) where | ||
| import qualified Data.Aeson as JSON | ||
| import qualified Stratosphere.Prelude as Prelude | ||
| import Stratosphere.Property | ||
| import {-# SOURCE #-} Stratosphere.AccessAnalyzer.Analyzer.AnalysisRuleProperty as Exports | ||
| import Stratosphere.ResourceProperties | ||
| import Stratosphere.Value | ||
| data UnusedAccessConfigurationProperty | ||
| = UnusedAccessConfigurationProperty {unusedAccessAge :: (Prelude.Maybe (Value Prelude.Integer))} | ||
| = UnusedAccessConfigurationProperty {analysisRule :: (Prelude.Maybe AnalysisRuleProperty), | ||
| unusedAccessAge :: (Prelude.Maybe (Value Prelude.Integer))} | ||
| deriving stock (Prelude.Eq, Prelude.Show) | ||
| mkUnusedAccessConfigurationProperty :: | ||
| UnusedAccessConfigurationProperty | ||
| mkUnusedAccessConfigurationProperty | ||
| = UnusedAccessConfigurationProperty | ||
| {unusedAccessAge = Prelude.Nothing} | ||
| {analysisRule = Prelude.Nothing, unusedAccessAge = Prelude.Nothing} | ||
| instance ToResourceProperties UnusedAccessConfigurationProperty where | ||
| toResourceProperties UnusedAccessConfigurationProperty {..} | ||
| = ResourceProperties | ||
| {awsType = "AWS::AccessAnalyzer::Analyzer.UnusedAccessConfiguration", | ||
| supportsTags = Prelude.False, | ||
| properties = Prelude.fromList | ||
| (Prelude.catMaybes | ||
| [(JSON..=) "UnusedAccessAge" Prelude.<$> unusedAccessAge])} | ||
| [(JSON..=) "AnalysisRule" Prelude.<$> analysisRule, | ||
| (JSON..=) "UnusedAccessAge" Prelude.<$> unusedAccessAge])} | ||
| instance JSON.ToJSON UnusedAccessConfigurationProperty where | ||
| toJSON UnusedAccessConfigurationProperty {..} | ||
| = JSON.object | ||
| (Prelude.fromList | ||
| (Prelude.catMaybes | ||
| [(JSON..=) "UnusedAccessAge" Prelude.<$> unusedAccessAge])) | ||
| [(JSON..=) "AnalysisRule" Prelude.<$> analysisRule, | ||
| (JSON..=) "UnusedAccessAge" Prelude.<$> unusedAccessAge])) | ||
| instance Property "AnalysisRule" UnusedAccessConfigurationProperty where | ||
| type PropertyType "AnalysisRule" UnusedAccessConfigurationProperty = AnalysisRuleProperty | ||
| set newValue UnusedAccessConfigurationProperty {..} | ||
| = UnusedAccessConfigurationProperty | ||
| {analysisRule = Prelude.pure newValue, ..} | ||
| instance Property "UnusedAccessAge" UnusedAccessConfigurationProperty where | ||
| type PropertyType "UnusedAccessAge" UnusedAccessConfigurationProperty = Value Prelude.Integer | ||
| set newValue UnusedAccessConfigurationProperty {} | ||
| set newValue UnusedAccessConfigurationProperty {..} | ||
| = UnusedAccessConfigurationProperty | ||
| {unusedAccessAge = Prelude.pure newValue, ..} |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
Oops, something went wrong.