-
-
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 #221 from mbj/regen/services
Regen services
- Loading branch information
Showing
3,355 changed files
with
154,568 additions
and
10,960 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
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
60,366 changes: 51,122 additions & 9,244 deletions
60,366
generator/model/CloudFormationResourceSpecification.json
Large diffs are not rendered by default.
Oops, something went wrong.
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
79 changes: 79 additions & 0 deletions
79
...mplifyuibuilder/gen/Stratosphere/AmplifyUIBuilder/Form/FileUploaderFieldConfigProperty.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,79 @@ | ||
module Stratosphere.AmplifyUIBuilder.Form.FileUploaderFieldConfigProperty ( | ||
FileUploaderFieldConfigProperty(..), | ||
mkFileUploaderFieldConfigProperty | ||
) where | ||
import qualified Data.Aeson as JSON | ||
import qualified Stratosphere.Prelude as Prelude | ||
import Stratosphere.Property | ||
import Stratosphere.ResourceProperties | ||
import Stratosphere.Value | ||
data FileUploaderFieldConfigProperty | ||
= FileUploaderFieldConfigProperty {acceptedFileTypes :: (ValueList Prelude.Text), | ||
accessLevel :: (Value Prelude.Text), | ||
isResumable :: (Prelude.Maybe (Value Prelude.Bool)), | ||
maxFileCount :: (Prelude.Maybe (Value Prelude.Double)), | ||
maxSize :: (Prelude.Maybe (Value Prelude.Double)), | ||
showThumbnails :: (Prelude.Maybe (Value Prelude.Bool))} | ||
mkFileUploaderFieldConfigProperty :: | ||
ValueList Prelude.Text | ||
-> Value Prelude.Text -> FileUploaderFieldConfigProperty | ||
mkFileUploaderFieldConfigProperty acceptedFileTypes accessLevel | ||
= FileUploaderFieldConfigProperty | ||
{acceptedFileTypes = acceptedFileTypes, accessLevel = accessLevel, | ||
isResumable = Prelude.Nothing, maxFileCount = Prelude.Nothing, | ||
maxSize = Prelude.Nothing, showThumbnails = Prelude.Nothing} | ||
instance ToResourceProperties FileUploaderFieldConfigProperty where | ||
toResourceProperties FileUploaderFieldConfigProperty {..} | ||
= ResourceProperties | ||
{awsType = "AWS::AmplifyUIBuilder::Form.FileUploaderFieldConfig", | ||
supportsTags = Prelude.False, | ||
properties = Prelude.fromList | ||
((Prelude.<>) | ||
["AcceptedFileTypes" JSON..= acceptedFileTypes, | ||
"AccessLevel" JSON..= accessLevel] | ||
(Prelude.catMaybes | ||
[(JSON..=) "IsResumable" Prelude.<$> isResumable, | ||
(JSON..=) "MaxFileCount" Prelude.<$> maxFileCount, | ||
(JSON..=) "MaxSize" Prelude.<$> maxSize, | ||
(JSON..=) "ShowThumbnails" Prelude.<$> showThumbnails]))} | ||
instance JSON.ToJSON FileUploaderFieldConfigProperty where | ||
toJSON FileUploaderFieldConfigProperty {..} | ||
= JSON.object | ||
(Prelude.fromList | ||
((Prelude.<>) | ||
["AcceptedFileTypes" JSON..= acceptedFileTypes, | ||
"AccessLevel" JSON..= accessLevel] | ||
(Prelude.catMaybes | ||
[(JSON..=) "IsResumable" Prelude.<$> isResumable, | ||
(JSON..=) "MaxFileCount" Prelude.<$> maxFileCount, | ||
(JSON..=) "MaxSize" Prelude.<$> maxSize, | ||
(JSON..=) "ShowThumbnails" Prelude.<$> showThumbnails]))) | ||
instance Property "AcceptedFileTypes" FileUploaderFieldConfigProperty where | ||
type PropertyType "AcceptedFileTypes" FileUploaderFieldConfigProperty = ValueList Prelude.Text | ||
set newValue FileUploaderFieldConfigProperty {..} | ||
= FileUploaderFieldConfigProperty | ||
{acceptedFileTypes = newValue, ..} | ||
instance Property "AccessLevel" FileUploaderFieldConfigProperty where | ||
type PropertyType "AccessLevel" FileUploaderFieldConfigProperty = Value Prelude.Text | ||
set newValue FileUploaderFieldConfigProperty {..} | ||
= FileUploaderFieldConfigProperty {accessLevel = newValue, ..} | ||
instance Property "IsResumable" FileUploaderFieldConfigProperty where | ||
type PropertyType "IsResumable" FileUploaderFieldConfigProperty = Value Prelude.Bool | ||
set newValue FileUploaderFieldConfigProperty {..} | ||
= FileUploaderFieldConfigProperty | ||
{isResumable = Prelude.pure newValue, ..} | ||
instance Property "MaxFileCount" FileUploaderFieldConfigProperty where | ||
type PropertyType "MaxFileCount" FileUploaderFieldConfigProperty = Value Prelude.Double | ||
set newValue FileUploaderFieldConfigProperty {..} | ||
= FileUploaderFieldConfigProperty | ||
{maxFileCount = Prelude.pure newValue, ..} | ||
instance Property "MaxSize" FileUploaderFieldConfigProperty where | ||
type PropertyType "MaxSize" FileUploaderFieldConfigProperty = Value Prelude.Double | ||
set newValue FileUploaderFieldConfigProperty {..} | ||
= FileUploaderFieldConfigProperty | ||
{maxSize = Prelude.pure newValue, ..} | ||
instance Property "ShowThumbnails" FileUploaderFieldConfigProperty where | ||
type PropertyType "ShowThumbnails" FileUploaderFieldConfigProperty = Value Prelude.Bool | ||
set newValue FileUploaderFieldConfigProperty {..} | ||
= FileUploaderFieldConfigProperty | ||
{showThumbnails = Prelude.pure newValue, ..} |
7 changes: 7 additions & 0 deletions
7
...yuibuilder/gen/Stratosphere/AmplifyUIBuilder/Form/FileUploaderFieldConfigProperty.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,7 @@ | ||
module Stratosphere.AmplifyUIBuilder.Form.FileUploaderFieldConfigProperty where | ||
import qualified Data.Aeson as JSON | ||
import qualified Stratosphere.Prelude as Prelude | ||
import Stratosphere.ResourceProperties | ||
data FileUploaderFieldConfigProperty :: Prelude.Type | ||
instance ToResourceProperties FileUploaderFieldConfigProperty | ||
instance JSON.ToJSON FileUploaderFieldConfigProperty |
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
2 changes: 1 addition & 1 deletion
2
...oute/ParameterConstraintsProperty.hs-boot → ...onse/ParameterConstraintsProperty.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
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.