packages feed

stratosphere 0.31.0 → 0.32.0

raw patch · 1145 files changed

+26/−10890 lines, 1145 files

Files

CHANGELOG.md view
@@ -1,5 +1,12 @@ # Change Log +## 0.32.0++* **BREAKING CHANGE**: We removed all `FromJSON` instances to reduce compile+  time and memory, and also to allow us to make other improvements that+  `FromJSON` was blocking. See+  https://github.com/frontrowed/stratosphere/issues/117+ ## 0.31.0  * Update resource specification document to version 2.25.0
README.md view
@@ -140,7 +140,3 @@   are limits on the size of CloudFormation templates, and we want readable   output without hitting the limits. Also, we have some newtypes that just   exist to override aeson instances, and we could get rid of those.-* Use a custom JSON decoder with useful error messages. Although we don't use-  them, we have implemented FromJSON instances for everything. Theoretically,-  stratosphere could be used as a checker/linter for existing JSON-  CloudFormation templates.
library-gen/Stratosphere/ResourceProperties/ASKSkillAuthenticationConfiguration.hs view
@@ -27,14 +27,6 @@     , (Just . ("RefreshToken",) . toJSON) _aSKSkillAuthenticationConfigurationRefreshToken     ] -instance FromJSON ASKSkillAuthenticationConfiguration where-  parseJSON (Object obj) =-    ASKSkillAuthenticationConfiguration <$>-      (obj .: "ClientId") <*>-      (obj .: "ClientSecret") <*>-      (obj .: "RefreshToken")-  parseJSON _ = mempty- -- | Constructor for 'ASKSkillAuthenticationConfiguration' containing required -- fields as arguments. askSkillAuthenticationConfiguration
library-gen/Stratosphere/ResourceProperties/ASKSkillOverrides.hs view
@@ -23,12 +23,6 @@     [ fmap (("Manifest",) . toJSON) _aSKSkillOverridesManifest     ] -instance FromJSON ASKSkillOverrides where-  parseJSON (Object obj) =-    ASKSkillOverrides <$>-      (obj .:? "Manifest")-  parseJSON _ = mempty- -- | Constructor for 'ASKSkillOverrides' containing required fields as -- arguments. askSkillOverrides
library-gen/Stratosphere/ResourceProperties/ASKSkillSkillPackage.hs view
@@ -31,16 +31,6 @@     , fmap (("S3ObjectVersion",) . toJSON) _aSKSkillSkillPackageS3ObjectVersion     ] -instance FromJSON ASKSkillSkillPackage where-  parseJSON (Object obj) =-    ASKSkillSkillPackage <$>-      (obj .:? "Overrides") <*>-      (obj .: "S3Bucket") <*>-      (obj .:? "S3BucketRole") <*>-      (obj .: "S3Key") <*>-      (obj .:? "S3ObjectVersion")-  parseJSON _ = mempty- -- | Constructor for 'ASKSkillSkillPackage' containing required fields as -- arguments. askSkillSkillPackage
library-gen/Stratosphere/ResourceProperties/AmazonMQBrokerConfigurationId.hs view
@@ -25,13 +25,6 @@     , (Just . ("Revision",) . toJSON . fmap Integer') _amazonMQBrokerConfigurationIdRevision     ] -instance FromJSON AmazonMQBrokerConfigurationId where-  parseJSON (Object obj) =-    AmazonMQBrokerConfigurationId <$>-      (obj .: "Id") <*>-      fmap (fmap unInteger') (obj .: "Revision")-  parseJSON _ = mempty- -- | Constructor for 'AmazonMQBrokerConfigurationId' containing required -- fields as arguments. amazonMQBrokerConfigurationId
library-gen/Stratosphere/ResourceProperties/AmazonMQBrokerLogList.hs view
@@ -25,13 +25,6 @@     , fmap (("General",) . toJSON . fmap Bool') _amazonMQBrokerLogListGeneral     ] -instance FromJSON AmazonMQBrokerLogList where-  parseJSON (Object obj) =-    AmazonMQBrokerLogList <$>-      fmap (fmap (fmap unBool')) (obj .:? "Audit") <*>-      fmap (fmap (fmap unBool')) (obj .:? "General")-  parseJSON _ = mempty- -- | Constructor for 'AmazonMQBrokerLogList' containing required fields as -- arguments. amazonMQBrokerLogList
library-gen/Stratosphere/ResourceProperties/AmazonMQBrokerMaintenanceWindow.hs view
@@ -27,14 +27,6 @@     , (Just . ("TimeZone",) . toJSON) _amazonMQBrokerMaintenanceWindowTimeZone     ] -instance FromJSON AmazonMQBrokerMaintenanceWindow where-  parseJSON (Object obj) =-    AmazonMQBrokerMaintenanceWindow <$>-      (obj .: "DayOfWeek") <*>-      (obj .: "TimeOfDay") <*>-      (obj .: "TimeZone")-  parseJSON _ = mempty- -- | Constructor for 'AmazonMQBrokerMaintenanceWindow' containing required -- fields as arguments. amazonMQBrokerMaintenanceWindow
library-gen/Stratosphere/ResourceProperties/AmazonMQBrokerTagsEntry.hs view
@@ -25,13 +25,6 @@     , (Just . ("Value",) . toJSON) _amazonMQBrokerTagsEntryValue     ] -instance FromJSON AmazonMQBrokerTagsEntry where-  parseJSON (Object obj) =-    AmazonMQBrokerTagsEntry <$>-      (obj .: "Key") <*>-      (obj .: "Value")-  parseJSON _ = mempty- -- | Constructor for 'AmazonMQBrokerTagsEntry' containing required fields as -- arguments. amazonMQBrokerTagsEntry
library-gen/Stratosphere/ResourceProperties/AmazonMQBrokerUser.hs view
@@ -29,15 +29,6 @@     , (Just . ("Username",) . toJSON) _amazonMQBrokerUserUsername     ] -instance FromJSON AmazonMQBrokerUser where-  parseJSON (Object obj) =-    AmazonMQBrokerUser <$>-      fmap (fmap (fmap unBool')) (obj .:? "ConsoleAccess") <*>-      (obj .:? "Groups") <*>-      (obj .: "Password") <*>-      (obj .: "Username")-  parseJSON _ = mempty- -- | Constructor for 'AmazonMQBrokerUser' containing required fields as -- arguments. amazonMQBrokerUser
library-gen/Stratosphere/ResourceProperties/AmazonMQConfigurationAssociationConfigurationId.hs view
@@ -27,13 +27,6 @@     , (Just . ("Revision",) . toJSON . fmap Integer') _amazonMQConfigurationAssociationConfigurationIdRevision     ] -instance FromJSON AmazonMQConfigurationAssociationConfigurationId where-  parseJSON (Object obj) =-    AmazonMQConfigurationAssociationConfigurationId <$>-      (obj .: "Id") <*>-      fmap (fmap unInteger') (obj .: "Revision")-  parseJSON _ = mempty- -- | Constructor for 'AmazonMQConfigurationAssociationConfigurationId' -- containing required fields as arguments. amazonMQConfigurationAssociationConfigurationId
library-gen/Stratosphere/ResourceProperties/AmazonMQConfigurationTagsEntry.hs view
@@ -25,13 +25,6 @@     , (Just . ("Value",) . toJSON) _amazonMQConfigurationTagsEntryValue     ] -instance FromJSON AmazonMQConfigurationTagsEntry where-  parseJSON (Object obj) =-    AmazonMQConfigurationTagsEntry <$>-      (obj .: "Key") <*>-      (obj .: "Value")-  parseJSON _ = mempty- -- | Constructor for 'AmazonMQConfigurationTagsEntry' containing required -- fields as arguments. amazonMQConfigurationTagsEntry
library-gen/Stratosphere/ResourceProperties/ApiGatewayApiKeyStageKey.hs view
@@ -25,13 +25,6 @@     , fmap (("StageName",) . toJSON) _apiGatewayApiKeyStageKeyStageName     ] -instance FromJSON ApiGatewayApiKeyStageKey where-  parseJSON (Object obj) =-    ApiGatewayApiKeyStageKey <$>-      (obj .:? "RestApiId") <*>-      (obj .:? "StageName")-  parseJSON _ = mempty- -- | Constructor for 'ApiGatewayApiKeyStageKey' containing required fields as -- arguments. apiGatewayApiKeyStageKey
library-gen/Stratosphere/ResourceProperties/ApiGatewayDeploymentAccessLogSetting.hs view
@@ -25,13 +25,6 @@     , fmap (("Format",) . toJSON) _apiGatewayDeploymentAccessLogSettingFormat     ] -instance FromJSON ApiGatewayDeploymentAccessLogSetting where-  parseJSON (Object obj) =-    ApiGatewayDeploymentAccessLogSetting <$>-      (obj .:? "DestinationArn") <*>-      (obj .:? "Format")-  parseJSON _ = mempty- -- | Constructor for 'ApiGatewayDeploymentAccessLogSetting' containing -- required fields as arguments. apiGatewayDeploymentAccessLogSetting
library-gen/Stratosphere/ResourceProperties/ApiGatewayDeploymentCanarySetting.hs view
@@ -27,14 +27,6 @@     , fmap (("UseStageCache",) . toJSON . fmap Bool') _apiGatewayDeploymentCanarySettingUseStageCache     ] -instance FromJSON ApiGatewayDeploymentCanarySetting where-  parseJSON (Object obj) =-    ApiGatewayDeploymentCanarySetting <$>-      fmap (fmap (fmap unDouble')) (obj .:? "PercentTraffic") <*>-      (obj .:? "StageVariableOverrides") <*>-      fmap (fmap (fmap unBool')) (obj .:? "UseStageCache")-  parseJSON _ = mempty- -- | Constructor for 'ApiGatewayDeploymentCanarySetting' containing required -- fields as arguments. apiGatewayDeploymentCanarySetting
library-gen/Stratosphere/ResourceProperties/ApiGatewayDeploymentDeploymentCanarySettings.hs view
@@ -29,14 +29,6 @@     , fmap (("UseStageCache",) . toJSON . fmap Bool') _apiGatewayDeploymentDeploymentCanarySettingsUseStageCache     ] -instance FromJSON ApiGatewayDeploymentDeploymentCanarySettings where-  parseJSON (Object obj) =-    ApiGatewayDeploymentDeploymentCanarySettings <$>-      fmap (fmap (fmap unDouble')) (obj .:? "PercentTraffic") <*>-      (obj .:? "StageVariableOverrides") <*>-      fmap (fmap (fmap unBool')) (obj .:? "UseStageCache")-  parseJSON _ = mempty- -- | Constructor for 'ApiGatewayDeploymentDeploymentCanarySettings' containing -- required fields as arguments. apiGatewayDeploymentDeploymentCanarySettings
library-gen/Stratosphere/ResourceProperties/ApiGatewayDeploymentMethodSetting.hs view
@@ -41,21 +41,6 @@     , fmap (("ThrottlingRateLimit",) . toJSON . fmap Double') _apiGatewayDeploymentMethodSettingThrottlingRateLimit     ] -instance FromJSON ApiGatewayDeploymentMethodSetting where-  parseJSON (Object obj) =-    ApiGatewayDeploymentMethodSetting <$>-      fmap (fmap (fmap unBool')) (obj .:? "CacheDataEncrypted") <*>-      fmap (fmap (fmap unInteger')) (obj .:? "CacheTtlInSeconds") <*>-      fmap (fmap (fmap unBool')) (obj .:? "CachingEnabled") <*>-      fmap (fmap (fmap unBool')) (obj .:? "DataTraceEnabled") <*>-      (obj .:? "HttpMethod") <*>-      (obj .:? "LoggingLevel") <*>-      fmap (fmap (fmap unBool')) (obj .:? "MetricsEnabled") <*>-      (obj .:? "ResourcePath") <*>-      fmap (fmap (fmap unInteger')) (obj .:? "ThrottlingBurstLimit") <*>-      fmap (fmap (fmap unDouble')) (obj .:? "ThrottlingRateLimit")-  parseJSON _ = mempty- -- | Constructor for 'ApiGatewayDeploymentMethodSetting' containing required -- fields as arguments. apiGatewayDeploymentMethodSetting
library-gen/Stratosphere/ResourceProperties/ApiGatewayDeploymentStageDescription.hs view
@@ -63,30 +63,6 @@     , fmap (("Variables",) . toJSON) _apiGatewayDeploymentStageDescriptionVariables     ] -instance FromJSON ApiGatewayDeploymentStageDescription where-  parseJSON (Object obj) =-    ApiGatewayDeploymentStageDescription <$>-      (obj .:? "AccessLogSetting") <*>-      fmap (fmap (fmap unBool')) (obj .:? "CacheClusterEnabled") <*>-      (obj .:? "CacheClusterSize") <*>-      fmap (fmap (fmap unBool')) (obj .:? "CacheDataEncrypted") <*>-      fmap (fmap (fmap unInteger')) (obj .:? "CacheTtlInSeconds") <*>-      fmap (fmap (fmap unBool')) (obj .:? "CachingEnabled") <*>-      (obj .:? "CanarySetting") <*>-      (obj .:? "ClientCertificateId") <*>-      fmap (fmap (fmap unBool')) (obj .:? "DataTraceEnabled") <*>-      (obj .:? "Description") <*>-      (obj .:? "DocumentationVersion") <*>-      (obj .:? "LoggingLevel") <*>-      (obj .:? "MethodSettings") <*>-      fmap (fmap (fmap unBool')) (obj .:? "MetricsEnabled") <*>-      (obj .:? "Tags") <*>-      fmap (fmap (fmap unInteger')) (obj .:? "ThrottlingBurstLimit") <*>-      fmap (fmap (fmap unDouble')) (obj .:? "ThrottlingRateLimit") <*>-      fmap (fmap (fmap unBool')) (obj .:? "TracingEnabled") <*>-      (obj .:? "Variables")-  parseJSON _ = mempty- -- | Constructor for 'ApiGatewayDeploymentStageDescription' containing -- required fields as arguments. apiGatewayDeploymentStageDescription
library-gen/Stratosphere/ResourceProperties/ApiGatewayDocumentationPartLocation.hs view
@@ -31,16 +31,6 @@     , fmap (("Type",) . toJSON) _apiGatewayDocumentationPartLocationType     ] -instance FromJSON ApiGatewayDocumentationPartLocation where-  parseJSON (Object obj) =-    ApiGatewayDocumentationPartLocation <$>-      (obj .:? "Method") <*>-      (obj .:? "Name") <*>-      (obj .:? "Path") <*>-      (obj .:? "StatusCode") <*>-      (obj .:? "Type")-  parseJSON _ = mempty- -- | Constructor for 'ApiGatewayDocumentationPartLocation' containing required -- fields as arguments. apiGatewayDocumentationPartLocation
library-gen/Stratosphere/ResourceProperties/ApiGatewayDomainNameEndpointConfiguration.hs view
@@ -24,12 +24,6 @@     [ fmap (("Types",) . toJSON) _apiGatewayDomainNameEndpointConfigurationTypes     ] -instance FromJSON ApiGatewayDomainNameEndpointConfiguration where-  parseJSON (Object obj) =-    ApiGatewayDomainNameEndpointConfiguration <$>-      (obj .:? "Types")-  parseJSON _ = mempty- -- | Constructor for 'ApiGatewayDomainNameEndpointConfiguration' containing -- required fields as arguments. apiGatewayDomainNameEndpointConfiguration
library-gen/Stratosphere/ResourceProperties/ApiGatewayMethodIntegration.hs view
@@ -50,25 +50,6 @@     , fmap (("Uri",) . toJSON) _apiGatewayMethodIntegrationUri     ] -instance FromJSON ApiGatewayMethodIntegration where-  parseJSON (Object obj) =-    ApiGatewayMethodIntegration <$>-      (obj .:? "CacheKeyParameters") <*>-      (obj .:? "CacheNamespace") <*>-      (obj .:? "ConnectionId") <*>-      (obj .:? "ConnectionType") <*>-      (obj .:? "ContentHandling") <*>-      (obj .:? "Credentials") <*>-      (obj .:? "IntegrationHttpMethod") <*>-      (obj .:? "IntegrationResponses") <*>-      (obj .:? "PassthroughBehavior") <*>-      (obj .:? "RequestParameters") <*>-      (obj .:? "RequestTemplates") <*>-      fmap (fmap (fmap unInteger')) (obj .:? "TimeoutInMillis") <*>-      (obj .:? "Type") <*>-      (obj .:? "Uri")-  parseJSON _ = mempty- -- | Constructor for 'ApiGatewayMethodIntegration' containing required fields -- as arguments. apiGatewayMethodIntegration
library-gen/Stratosphere/ResourceProperties/ApiGatewayMethodIntegrationResponse.hs view
@@ -31,16 +31,6 @@     , (Just . ("StatusCode",) . toJSON) _apiGatewayMethodIntegrationResponseStatusCode     ] -instance FromJSON ApiGatewayMethodIntegrationResponse where-  parseJSON (Object obj) =-    ApiGatewayMethodIntegrationResponse <$>-      (obj .:? "ContentHandling") <*>-      (obj .:? "ResponseParameters") <*>-      (obj .:? "ResponseTemplates") <*>-      (obj .:? "SelectionPattern") <*>-      (obj .: "StatusCode")-  parseJSON _ = mempty- -- | Constructor for 'ApiGatewayMethodIntegrationResponse' containing required -- fields as arguments. apiGatewayMethodIntegrationResponse
library-gen/Stratosphere/ResourceProperties/ApiGatewayMethodMethodResponse.hs view
@@ -27,14 +27,6 @@     , (Just . ("StatusCode",) . toJSON) _apiGatewayMethodMethodResponseStatusCode     ] -instance FromJSON ApiGatewayMethodMethodResponse where-  parseJSON (Object obj) =-    ApiGatewayMethodMethodResponse <$>-      (obj .:? "ResponseModels") <*>-      (obj .:? "ResponseParameters") <*>-      (obj .: "StatusCode")-  parseJSON _ = mempty- -- | Constructor for 'ApiGatewayMethodMethodResponse' containing required -- fields as arguments. apiGatewayMethodMethodResponse
library-gen/Stratosphere/ResourceProperties/ApiGatewayRestApiEndpointConfiguration.hs view
@@ -24,12 +24,6 @@     [ fmap (("Types",) . toJSON) _apiGatewayRestApiEndpointConfigurationTypes     ] -instance FromJSON ApiGatewayRestApiEndpointConfiguration where-  parseJSON (Object obj) =-    ApiGatewayRestApiEndpointConfiguration <$>-      (obj .:? "Types")-  parseJSON _ = mempty- -- | Constructor for 'ApiGatewayRestApiEndpointConfiguration' containing -- required fields as arguments. apiGatewayRestApiEndpointConfiguration
library-gen/Stratosphere/ResourceProperties/ApiGatewayRestApiS3Location.hs view
@@ -29,15 +29,6 @@     , fmap (("Version",) . toJSON) _apiGatewayRestApiS3LocationVersion     ] -instance FromJSON ApiGatewayRestApiS3Location where-  parseJSON (Object obj) =-    ApiGatewayRestApiS3Location <$>-      (obj .:? "Bucket") <*>-      (obj .:? "ETag") <*>-      (obj .:? "Key") <*>-      (obj .:? "Version")-  parseJSON _ = mempty- -- | Constructor for 'ApiGatewayRestApiS3Location' containing required fields -- as arguments. apiGatewayRestApiS3Location
library-gen/Stratosphere/ResourceProperties/ApiGatewayStageAccessLogSetting.hs view
@@ -25,13 +25,6 @@     , fmap (("Format",) . toJSON) _apiGatewayStageAccessLogSettingFormat     ] -instance FromJSON ApiGatewayStageAccessLogSetting where-  parseJSON (Object obj) =-    ApiGatewayStageAccessLogSetting <$>-      (obj .:? "DestinationArn") <*>-      (obj .:? "Format")-  parseJSON _ = mempty- -- | Constructor for 'ApiGatewayStageAccessLogSetting' containing required -- fields as arguments. apiGatewayStageAccessLogSetting
library-gen/Stratosphere/ResourceProperties/ApiGatewayStageCanarySetting.hs view
@@ -29,15 +29,6 @@     , fmap (("UseStageCache",) . toJSON . fmap Bool') _apiGatewayStageCanarySettingUseStageCache     ] -instance FromJSON ApiGatewayStageCanarySetting where-  parseJSON (Object obj) =-    ApiGatewayStageCanarySetting <$>-      (obj .:? "DeploymentId") <*>-      fmap (fmap (fmap unDouble')) (obj .:? "PercentTraffic") <*>-      (obj .:? "StageVariableOverrides") <*>-      fmap (fmap (fmap unBool')) (obj .:? "UseStageCache")-  parseJSON _ = mempty- -- | Constructor for 'ApiGatewayStageCanarySetting' containing required fields -- as arguments. apiGatewayStageCanarySetting
library-gen/Stratosphere/ResourceProperties/ApiGatewayStageMethodSetting.hs view
@@ -41,21 +41,6 @@     , fmap (("ThrottlingRateLimit",) . toJSON . fmap Double') _apiGatewayStageMethodSettingThrottlingRateLimit     ] -instance FromJSON ApiGatewayStageMethodSetting where-  parseJSON (Object obj) =-    ApiGatewayStageMethodSetting <$>-      fmap (fmap (fmap unBool')) (obj .:? "CacheDataEncrypted") <*>-      fmap (fmap (fmap unInteger')) (obj .:? "CacheTtlInSeconds") <*>-      fmap (fmap (fmap unBool')) (obj .:? "CachingEnabled") <*>-      fmap (fmap (fmap unBool')) (obj .:? "DataTraceEnabled") <*>-      (obj .:? "HttpMethod") <*>-      (obj .:? "LoggingLevel") <*>-      fmap (fmap (fmap unBool')) (obj .:? "MetricsEnabled") <*>-      (obj .:? "ResourcePath") <*>-      fmap (fmap (fmap unInteger')) (obj .:? "ThrottlingBurstLimit") <*>-      fmap (fmap (fmap unDouble')) (obj .:? "ThrottlingRateLimit")-  parseJSON _ = mempty- -- | Constructor for 'ApiGatewayStageMethodSetting' containing required fields -- as arguments. apiGatewayStageMethodSetting
library-gen/Stratosphere/ResourceProperties/ApiGatewayUsagePlanApiStage.hs view
@@ -27,14 +27,6 @@     , fmap (("Throttle",) . toJSON) _apiGatewayUsagePlanApiStageThrottle     ] -instance FromJSON ApiGatewayUsagePlanApiStage where-  parseJSON (Object obj) =-    ApiGatewayUsagePlanApiStage <$>-      (obj .:? "ApiId") <*>-      (obj .:? "Stage") <*>-      (obj .:? "Throttle")-  parseJSON _ = mempty- -- | Constructor for 'ApiGatewayUsagePlanApiStage' containing required fields -- as arguments. apiGatewayUsagePlanApiStage
library-gen/Stratosphere/ResourceProperties/ApiGatewayUsagePlanQuotaSettings.hs view
@@ -27,14 +27,6 @@     , fmap (("Period",) . toJSON) _apiGatewayUsagePlanQuotaSettingsPeriod     ] -instance FromJSON ApiGatewayUsagePlanQuotaSettings where-  parseJSON (Object obj) =-    ApiGatewayUsagePlanQuotaSettings <$>-      fmap (fmap (fmap unInteger')) (obj .:? "Limit") <*>-      fmap (fmap (fmap unInteger')) (obj .:? "Offset") <*>-      (obj .:? "Period")-  parseJSON _ = mempty- -- | Constructor for 'ApiGatewayUsagePlanQuotaSettings' containing required -- fields as arguments. apiGatewayUsagePlanQuotaSettings
library-gen/Stratosphere/ResourceProperties/ApiGatewayUsagePlanThrottleSettings.hs view
@@ -25,13 +25,6 @@     , fmap (("RateLimit",) . toJSON . fmap Double') _apiGatewayUsagePlanThrottleSettingsRateLimit     ] -instance FromJSON ApiGatewayUsagePlanThrottleSettings where-  parseJSON (Object obj) =-    ApiGatewayUsagePlanThrottleSettings <$>-      fmap (fmap (fmap unInteger')) (obj .:? "BurstLimit") <*>-      fmap (fmap (fmap unDouble')) (obj .:? "RateLimit")-  parseJSON _ = mempty- -- | Constructor for 'ApiGatewayUsagePlanThrottleSettings' containing required -- fields as arguments. apiGatewayUsagePlanThrottleSettings
library-gen/Stratosphere/ResourceProperties/ApiGatewayV2RouteParameterConstraints.hs view
@@ -24,12 +24,6 @@     [ (Just . ("Required",) . toJSON . fmap Bool') _apiGatewayV2RouteParameterConstraintsRequired     ] -instance FromJSON ApiGatewayV2RouteParameterConstraints where-  parseJSON (Object obj) =-    ApiGatewayV2RouteParameterConstraints <$>-      fmap (fmap unBool') (obj .: "Required")-  parseJSON _ = mempty- -- | Constructor for 'ApiGatewayV2RouteParameterConstraints' containing -- required fields as arguments. apiGatewayV2RouteParameterConstraints
library-gen/Stratosphere/ResourceProperties/ApiGatewayV2RouteResponseParameterConstraints.hs view
@@ -25,12 +25,6 @@     [ (Just . ("Required",) . toJSON . fmap Bool') _apiGatewayV2RouteResponseParameterConstraintsRequired     ] -instance FromJSON ApiGatewayV2RouteResponseParameterConstraints where-  parseJSON (Object obj) =-    ApiGatewayV2RouteResponseParameterConstraints <$>-      fmap (fmap unBool') (obj .: "Required")-  parseJSON _ = mempty- -- | Constructor for 'ApiGatewayV2RouteResponseParameterConstraints' -- containing required fields as arguments. apiGatewayV2RouteResponseParameterConstraints
library-gen/Stratosphere/ResourceProperties/ApiGatewayV2StageAccessLogSettings.hs view
@@ -25,13 +25,6 @@     , fmap (("Format",) . toJSON) _apiGatewayV2StageAccessLogSettingsFormat     ] -instance FromJSON ApiGatewayV2StageAccessLogSettings where-  parseJSON (Object obj) =-    ApiGatewayV2StageAccessLogSettings <$>-      (obj .:? "DestinationArn") <*>-      (obj .:? "Format")-  parseJSON _ = mempty- -- | Constructor for 'ApiGatewayV2StageAccessLogSettings' containing required -- fields as arguments. apiGatewayV2StageAccessLogSettings
library-gen/Stratosphere/ResourceProperties/ApiGatewayV2StageRouteSettings.hs view
@@ -31,16 +31,6 @@     , fmap (("ThrottlingRateLimit",) . toJSON . fmap Double') _apiGatewayV2StageRouteSettingsThrottlingRateLimit     ] -instance FromJSON ApiGatewayV2StageRouteSettings where-  parseJSON (Object obj) =-    ApiGatewayV2StageRouteSettings <$>-      fmap (fmap (fmap unBool')) (obj .:? "DataTraceEnabled") <*>-      fmap (fmap (fmap unBool')) (obj .:? "DetailedMetricsEnabled") <*>-      (obj .:? "LoggingLevel") <*>-      fmap (fmap (fmap unInteger')) (obj .:? "ThrottlingBurstLimit") <*>-      fmap (fmap (fmap unDouble')) (obj .:? "ThrottlingRateLimit")-  parseJSON _ = mempty- -- | Constructor for 'ApiGatewayV2StageRouteSettings' containing required -- fields as arguments. apiGatewayV2StageRouteSettings
library-gen/Stratosphere/ResourceProperties/AppStreamDirectoryConfigServiceAccountCredentials.hs view
@@ -27,13 +27,6 @@     , (Just . ("AccountPassword",) . toJSON) _appStreamDirectoryConfigServiceAccountCredentialsAccountPassword     ] -instance FromJSON AppStreamDirectoryConfigServiceAccountCredentials where-  parseJSON (Object obj) =-    AppStreamDirectoryConfigServiceAccountCredentials <$>-      (obj .: "AccountName") <*>-      (obj .: "AccountPassword")-  parseJSON _ = mempty- -- | Constructor for 'AppStreamDirectoryConfigServiceAccountCredentials' -- containing required fields as arguments. appStreamDirectoryConfigServiceAccountCredentials
library-gen/Stratosphere/ResourceProperties/AppStreamFleetComputeCapacity.hs view
@@ -23,12 +23,6 @@     [ (Just . ("DesiredInstances",) . toJSON . fmap Integer') _appStreamFleetComputeCapacityDesiredInstances     ] -instance FromJSON AppStreamFleetComputeCapacity where-  parseJSON (Object obj) =-    AppStreamFleetComputeCapacity <$>-      fmap (fmap unInteger') (obj .: "DesiredInstances")-  parseJSON _ = mempty- -- | Constructor for 'AppStreamFleetComputeCapacity' containing required -- fields as arguments. appStreamFleetComputeCapacity
library-gen/Stratosphere/ResourceProperties/AppStreamFleetDomainJoinInfo.hs view
@@ -25,13 +25,6 @@     , fmap (("OrganizationalUnitDistinguishedName",) . toJSON) _appStreamFleetDomainJoinInfoOrganizationalUnitDistinguishedName     ] -instance FromJSON AppStreamFleetDomainJoinInfo where-  parseJSON (Object obj) =-    AppStreamFleetDomainJoinInfo <$>-      (obj .:? "DirectoryName") <*>-      (obj .:? "OrganizationalUnitDistinguishedName")-  parseJSON _ = mempty- -- | Constructor for 'AppStreamFleetDomainJoinInfo' containing required fields -- as arguments. appStreamFleetDomainJoinInfo
library-gen/Stratosphere/ResourceProperties/AppStreamFleetVpcConfig.hs view
@@ -25,13 +25,6 @@     , fmap (("SubnetIds",) . toJSON) _appStreamFleetVpcConfigSubnetIds     ] -instance FromJSON AppStreamFleetVpcConfig where-  parseJSON (Object obj) =-    AppStreamFleetVpcConfig <$>-      (obj .:? "SecurityGroupIds") <*>-      (obj .:? "SubnetIds")-  parseJSON _ = mempty- -- | Constructor for 'AppStreamFleetVpcConfig' containing required fields as -- arguments. appStreamFleetVpcConfig
library-gen/Stratosphere/ResourceProperties/AppStreamImageBuilderDomainJoinInfo.hs view
@@ -25,13 +25,6 @@     , fmap (("OrganizationalUnitDistinguishedName",) . toJSON) _appStreamImageBuilderDomainJoinInfoOrganizationalUnitDistinguishedName     ] -instance FromJSON AppStreamImageBuilderDomainJoinInfo where-  parseJSON (Object obj) =-    AppStreamImageBuilderDomainJoinInfo <$>-      (obj .:? "DirectoryName") <*>-      (obj .:? "OrganizationalUnitDistinguishedName")-  parseJSON _ = mempty- -- | Constructor for 'AppStreamImageBuilderDomainJoinInfo' containing required -- fields as arguments. appStreamImageBuilderDomainJoinInfo
library-gen/Stratosphere/ResourceProperties/AppStreamImageBuilderVpcConfig.hs view
@@ -25,13 +25,6 @@     , fmap (("SubnetIds",) . toJSON) _appStreamImageBuilderVpcConfigSubnetIds     ] -instance FromJSON AppStreamImageBuilderVpcConfig where-  parseJSON (Object obj) =-    AppStreamImageBuilderVpcConfig <$>-      (obj .:? "SecurityGroupIds") <*>-      (obj .:? "SubnetIds")-  parseJSON _ = mempty- -- | Constructor for 'AppStreamImageBuilderVpcConfig' containing required -- fields as arguments. appStreamImageBuilderVpcConfig
library-gen/Stratosphere/ResourceProperties/AppStreamStackApplicationSettings.hs view
@@ -25,13 +25,6 @@     , fmap (("SettingsGroup",) . toJSON) _appStreamStackApplicationSettingsSettingsGroup     ] -instance FromJSON AppStreamStackApplicationSettings where-  parseJSON (Object obj) =-    AppStreamStackApplicationSettings <$>-      fmap (fmap unBool') (obj .: "Enabled") <*>-      (obj .:? "SettingsGroup")-  parseJSON _ = mempty- -- | Constructor for 'AppStreamStackApplicationSettings' containing required -- fields as arguments. appStreamStackApplicationSettings
library-gen/Stratosphere/ResourceProperties/AppStreamStackStorageConnector.hs view
@@ -27,14 +27,6 @@     , fmap (("ResourceIdentifier",) . toJSON) _appStreamStackStorageConnectorResourceIdentifier     ] -instance FromJSON AppStreamStackStorageConnector where-  parseJSON (Object obj) =-    AppStreamStackStorageConnector <$>-      (obj .: "ConnectorType") <*>-      (obj .:? "Domains") <*>-      (obj .:? "ResourceIdentifier")-  parseJSON _ = mempty- -- | Constructor for 'AppStreamStackStorageConnector' containing required -- fields as arguments. appStreamStackStorageConnector
library-gen/Stratosphere/ResourceProperties/AppStreamStackUserSetting.hs view
@@ -25,13 +25,6 @@     , (Just . ("Permission",) . toJSON) _appStreamStackUserSettingPermission     ] -instance FromJSON AppStreamStackUserSetting where-  parseJSON (Object obj) =-    AppStreamStackUserSetting <$>-      (obj .: "Action") <*>-      (obj .: "Permission")-  parseJSON _ = mempty- -- | Constructor for 'AppStreamStackUserSetting' containing required fields as -- arguments. appStreamStackUserSetting
library-gen/Stratosphere/ResourceProperties/AppSyncDataSourceAuthorizationConfig.hs view
@@ -25,13 +25,6 @@     , fmap (("AwsIamConfig",) . toJSON) _appSyncDataSourceAuthorizationConfigAwsIamConfig     ] -instance FromJSON AppSyncDataSourceAuthorizationConfig where-  parseJSON (Object obj) =-    AppSyncDataSourceAuthorizationConfig <$>-      (obj .: "AuthorizationType") <*>-      (obj .:? "AwsIamConfig")-  parseJSON _ = mempty- -- | Constructor for 'AppSyncDataSourceAuthorizationConfig' containing -- required fields as arguments. appSyncDataSourceAuthorizationConfig
library-gen/Stratosphere/ResourceProperties/AppSyncDataSourceAwsIamConfig.hs view
@@ -25,13 +25,6 @@     , fmap (("SigningServiceName",) . toJSON) _appSyncDataSourceAwsIamConfigSigningServiceName     ] -instance FromJSON AppSyncDataSourceAwsIamConfig where-  parseJSON (Object obj) =-    AppSyncDataSourceAwsIamConfig <$>-      (obj .:? "SigningRegion") <*>-      (obj .:? "SigningServiceName")-  parseJSON _ = mempty- -- | Constructor for 'AppSyncDataSourceAwsIamConfig' containing required -- fields as arguments. appSyncDataSourceAwsIamConfig
library-gen/Stratosphere/ResourceProperties/AppSyncDataSourceDynamoDBConfig.hs view
@@ -27,14 +27,6 @@     , fmap (("UseCallerCredentials",) . toJSON . fmap Bool') _appSyncDataSourceDynamoDBConfigUseCallerCredentials     ] -instance FromJSON AppSyncDataSourceDynamoDBConfig where-  parseJSON (Object obj) =-    AppSyncDataSourceDynamoDBConfig <$>-      (obj .: "AwsRegion") <*>-      (obj .: "TableName") <*>-      fmap (fmap (fmap unBool')) (obj .:? "UseCallerCredentials")-  parseJSON _ = mempty- -- | Constructor for 'AppSyncDataSourceDynamoDBConfig' containing required -- fields as arguments. appSyncDataSourceDynamoDBConfig
library-gen/Stratosphere/ResourceProperties/AppSyncDataSourceElasticsearchConfig.hs view
@@ -25,13 +25,6 @@     , (Just . ("Endpoint",) . toJSON) _appSyncDataSourceElasticsearchConfigEndpoint     ] -instance FromJSON AppSyncDataSourceElasticsearchConfig where-  parseJSON (Object obj) =-    AppSyncDataSourceElasticsearchConfig <$>-      (obj .: "AwsRegion") <*>-      (obj .: "Endpoint")-  parseJSON _ = mempty- -- | Constructor for 'AppSyncDataSourceElasticsearchConfig' containing -- required fields as arguments. appSyncDataSourceElasticsearchConfig
library-gen/Stratosphere/ResourceProperties/AppSyncDataSourceHttpConfig.hs view
@@ -25,13 +25,6 @@     , (Just . ("Endpoint",) . toJSON) _appSyncDataSourceHttpConfigEndpoint     ] -instance FromJSON AppSyncDataSourceHttpConfig where-  parseJSON (Object obj) =-    AppSyncDataSourceHttpConfig <$>-      (obj .:? "AuthorizationConfig") <*>-      (obj .: "Endpoint")-  parseJSON _ = mempty- -- | Constructor for 'AppSyncDataSourceHttpConfig' containing required fields -- as arguments. appSyncDataSourceHttpConfig
library-gen/Stratosphere/ResourceProperties/AppSyncDataSourceLambdaConfig.hs view
@@ -23,12 +23,6 @@     [ (Just . ("LambdaFunctionArn",) . toJSON) _appSyncDataSourceLambdaConfigLambdaFunctionArn     ] -instance FromJSON AppSyncDataSourceLambdaConfig where-  parseJSON (Object obj) =-    AppSyncDataSourceLambdaConfig <$>-      (obj .: "LambdaFunctionArn")-  parseJSON _ = mempty- -- | Constructor for 'AppSyncDataSourceLambdaConfig' containing required -- fields as arguments. appSyncDataSourceLambdaConfig
library-gen/Stratosphere/ResourceProperties/AppSyncDataSourceRdsHttpEndpointConfig.hs view
@@ -32,16 +32,6 @@     , fmap (("Schema",) . toJSON) _appSyncDataSourceRdsHttpEndpointConfigSchema     ] -instance FromJSON AppSyncDataSourceRdsHttpEndpointConfig where-  parseJSON (Object obj) =-    AppSyncDataSourceRdsHttpEndpointConfig <$>-      (obj .: "AwsRegion") <*>-      (obj .: "AwsSecretStoreArn") <*>-      (obj .:? "DatabaseName") <*>-      (obj .: "DbClusterIdentifier") <*>-      (obj .:? "Schema")-  parseJSON _ = mempty- -- | Constructor for 'AppSyncDataSourceRdsHttpEndpointConfig' containing -- required fields as arguments. appSyncDataSourceRdsHttpEndpointConfig
library-gen/Stratosphere/ResourceProperties/AppSyncDataSourceRelationalDatabaseConfig.hs view
@@ -26,13 +26,6 @@     , (Just . ("RelationalDatabaseSourceType",) . toJSON) _appSyncDataSourceRelationalDatabaseConfigRelationalDatabaseSourceType     ] -instance FromJSON AppSyncDataSourceRelationalDatabaseConfig where-  parseJSON (Object obj) =-    AppSyncDataSourceRelationalDatabaseConfig <$>-      (obj .:? "RdsHttpEndpointConfig") <*>-      (obj .: "RelationalDatabaseSourceType")-  parseJSON _ = mempty- -- | Constructor for 'AppSyncDataSourceRelationalDatabaseConfig' containing -- required fields as arguments. appSyncDataSourceRelationalDatabaseConfig
library-gen/Stratosphere/ResourceProperties/AppSyncGraphQLApiLogConfig.hs view
@@ -25,13 +25,6 @@     , fmap (("FieldLogLevel",) . toJSON) _appSyncGraphQLApiLogConfigFieldLogLevel     ] -instance FromJSON AppSyncGraphQLApiLogConfig where-  parseJSON (Object obj) =-    AppSyncGraphQLApiLogConfig <$>-      (obj .:? "CloudWatchLogsRoleArn") <*>-      (obj .:? "FieldLogLevel")-  parseJSON _ = mempty- -- | Constructor for 'AppSyncGraphQLApiLogConfig' containing required fields -- as arguments. appSyncGraphQLApiLogConfig
library-gen/Stratosphere/ResourceProperties/AppSyncGraphQLApiOpenIDConnectConfig.hs view
@@ -29,15 +29,6 @@     , fmap (("Issuer",) . toJSON) _appSyncGraphQLApiOpenIDConnectConfigIssuer     ] -instance FromJSON AppSyncGraphQLApiOpenIDConnectConfig where-  parseJSON (Object obj) =-    AppSyncGraphQLApiOpenIDConnectConfig <$>-      fmap (fmap (fmap unDouble')) (obj .:? "AuthTTL") <*>-      (obj .:? "ClientId") <*>-      fmap (fmap (fmap unDouble')) (obj .:? "IatTTL") <*>-      (obj .:? "Issuer")-  parseJSON _ = mempty- -- | Constructor for 'AppSyncGraphQLApiOpenIDConnectConfig' containing -- required fields as arguments. appSyncGraphQLApiOpenIDConnectConfig
library-gen/Stratosphere/ResourceProperties/AppSyncGraphQLApiUserPoolConfig.hs view
@@ -29,15 +29,6 @@     , fmap (("UserPoolId",) . toJSON) _appSyncGraphQLApiUserPoolConfigUserPoolId     ] -instance FromJSON AppSyncGraphQLApiUserPoolConfig where-  parseJSON (Object obj) =-    AppSyncGraphQLApiUserPoolConfig <$>-      (obj .:? "AppIdClientRegex") <*>-      (obj .:? "AwsRegion") <*>-      (obj .:? "DefaultAction") <*>-      (obj .:? "UserPoolId")-  parseJSON _ = mempty- -- | Constructor for 'AppSyncGraphQLApiUserPoolConfig' containing required -- fields as arguments. appSyncGraphQLApiUserPoolConfig
library-gen/Stratosphere/ResourceProperties/AppSyncResolverPipelineConfig.hs view
@@ -23,12 +23,6 @@     [ fmap (("Functions",) . toJSON) _appSyncResolverPipelineConfigFunctions     ] -instance FromJSON AppSyncResolverPipelineConfig where-  parseJSON (Object obj) =-    AppSyncResolverPipelineConfig <$>-      (obj .:? "Functions")-  parseJSON _ = mempty- -- | Constructor for 'AppSyncResolverPipelineConfig' containing required -- fields as arguments. appSyncResolverPipelineConfig
library-gen/Stratosphere/ResourceProperties/ApplicationAutoScalingScalableTargetScalableTargetAction.hs view
@@ -27,13 +27,6 @@     , fmap (("MinCapacity",) . toJSON . fmap Integer') _applicationAutoScalingScalableTargetScalableTargetActionMinCapacity     ] -instance FromJSON ApplicationAutoScalingScalableTargetScalableTargetAction where-  parseJSON (Object obj) =-    ApplicationAutoScalingScalableTargetScalableTargetAction <$>-      fmap (fmap (fmap unInteger')) (obj .:? "MaxCapacity") <*>-      fmap (fmap (fmap unInteger')) (obj .:? "MinCapacity")-  parseJSON _ = mempty- -- | Constructor for -- 'ApplicationAutoScalingScalableTargetScalableTargetAction' containing -- required fields as arguments.
library-gen/Stratosphere/ResourceProperties/ApplicationAutoScalingScalableTargetScheduledAction.hs view
@@ -33,16 +33,6 @@     , fmap (("StartTime",) . toJSON) _applicationAutoScalingScalableTargetScheduledActionStartTime     ] -instance FromJSON ApplicationAutoScalingScalableTargetScheduledAction where-  parseJSON (Object obj) =-    ApplicationAutoScalingScalableTargetScheduledAction <$>-      (obj .:? "EndTime") <*>-      (obj .:? "ScalableTargetAction") <*>-      (obj .: "Schedule") <*>-      (obj .: "ScheduledActionName") <*>-      (obj .:? "StartTime")-  parseJSON _ = mempty- -- | Constructor for 'ApplicationAutoScalingScalableTargetScheduledAction' -- containing required fields as arguments. applicationAutoScalingScalableTargetScheduledAction
library-gen/Stratosphere/ResourceProperties/ApplicationAutoScalingScalingPolicyCustomizedMetricSpecification.hs view
@@ -33,16 +33,6 @@     , fmap (("Unit",) . toJSON) _applicationAutoScalingScalingPolicyCustomizedMetricSpecificationUnit     ] -instance FromJSON ApplicationAutoScalingScalingPolicyCustomizedMetricSpecification where-  parseJSON (Object obj) =-    ApplicationAutoScalingScalingPolicyCustomizedMetricSpecification <$>-      (obj .:? "Dimensions") <*>-      (obj .: "MetricName") <*>-      (obj .: "Namespace") <*>-      (obj .: "Statistic") <*>-      (obj .:? "Unit")-  parseJSON _ = mempty- -- | Constructor for -- 'ApplicationAutoScalingScalingPolicyCustomizedMetricSpecification' -- containing required fields as arguments.
library-gen/Stratosphere/ResourceProperties/ApplicationAutoScalingScalingPolicyMetricDimension.hs view
@@ -27,13 +27,6 @@     , (Just . ("Value",) . toJSON) _applicationAutoScalingScalingPolicyMetricDimensionValue     ] -instance FromJSON ApplicationAutoScalingScalingPolicyMetricDimension where-  parseJSON (Object obj) =-    ApplicationAutoScalingScalingPolicyMetricDimension <$>-      (obj .: "Name") <*>-      (obj .: "Value")-  parseJSON _ = mempty- -- | Constructor for 'ApplicationAutoScalingScalingPolicyMetricDimension' -- containing required fields as arguments. applicationAutoScalingScalingPolicyMetricDimension
library-gen/Stratosphere/ResourceProperties/ApplicationAutoScalingScalingPolicyPredefinedMetricSpecification.hs view
@@ -27,13 +27,6 @@     , fmap (("ResourceLabel",) . toJSON) _applicationAutoScalingScalingPolicyPredefinedMetricSpecificationResourceLabel     ] -instance FromJSON ApplicationAutoScalingScalingPolicyPredefinedMetricSpecification where-  parseJSON (Object obj) =-    ApplicationAutoScalingScalingPolicyPredefinedMetricSpecification <$>-      (obj .: "PredefinedMetricType") <*>-      (obj .:? "ResourceLabel")-  parseJSON _ = mempty- -- | Constructor for -- 'ApplicationAutoScalingScalingPolicyPredefinedMetricSpecification' -- containing required fields as arguments.
library-gen/Stratosphere/ResourceProperties/ApplicationAutoScalingScalingPolicyStepAdjustment.hs view
@@ -29,14 +29,6 @@     , (Just . ("ScalingAdjustment",) . toJSON . fmap Integer') _applicationAutoScalingScalingPolicyStepAdjustmentScalingAdjustment     ] -instance FromJSON ApplicationAutoScalingScalingPolicyStepAdjustment where-  parseJSON (Object obj) =-    ApplicationAutoScalingScalingPolicyStepAdjustment <$>-      fmap (fmap (fmap unDouble')) (obj .:? "MetricIntervalLowerBound") <*>-      fmap (fmap (fmap unDouble')) (obj .:? "MetricIntervalUpperBound") <*>-      fmap (fmap unInteger') (obj .: "ScalingAdjustment")-  parseJSON _ = mempty- -- | Constructor for 'ApplicationAutoScalingScalingPolicyStepAdjustment' -- containing required fields as arguments. applicationAutoScalingScalingPolicyStepAdjustment
library-gen/Stratosphere/ResourceProperties/ApplicationAutoScalingScalingPolicyStepScalingPolicyConfiguration.hs view
@@ -33,16 +33,6 @@     , fmap (("StepAdjustments",) . toJSON) _applicationAutoScalingScalingPolicyStepScalingPolicyConfigurationStepAdjustments     ] -instance FromJSON ApplicationAutoScalingScalingPolicyStepScalingPolicyConfiguration where-  parseJSON (Object obj) =-    ApplicationAutoScalingScalingPolicyStepScalingPolicyConfiguration <$>-      (obj .:? "AdjustmentType") <*>-      fmap (fmap (fmap unInteger')) (obj .:? "Cooldown") <*>-      (obj .:? "MetricAggregationType") <*>-      fmap (fmap (fmap unInteger')) (obj .:? "MinAdjustmentMagnitude") <*>-      (obj .:? "StepAdjustments")-  parseJSON _ = mempty- -- | Constructor for -- 'ApplicationAutoScalingScalingPolicyStepScalingPolicyConfiguration' -- containing required fields as arguments.
library-gen/Stratosphere/ResourceProperties/ApplicationAutoScalingScalingPolicyTargetTrackingScalingPolicyConfiguration.hs view
@@ -37,17 +37,6 @@     , (Just . ("TargetValue",) . toJSON . fmap Double') _applicationAutoScalingScalingPolicyTargetTrackingScalingPolicyConfigurationTargetValue     ] -instance FromJSON ApplicationAutoScalingScalingPolicyTargetTrackingScalingPolicyConfiguration where-  parseJSON (Object obj) =-    ApplicationAutoScalingScalingPolicyTargetTrackingScalingPolicyConfiguration <$>-      (obj .:? "CustomizedMetricSpecification") <*>-      fmap (fmap (fmap unBool')) (obj .:? "DisableScaleIn") <*>-      (obj .:? "PredefinedMetricSpecification") <*>-      fmap (fmap (fmap unInteger')) (obj .:? "ScaleInCooldown") <*>-      fmap (fmap (fmap unInteger')) (obj .:? "ScaleOutCooldown") <*>-      fmap (fmap unDouble') (obj .: "TargetValue")-  parseJSON _ = mempty- -- | Constructor for -- 'ApplicationAutoScalingScalingPolicyTargetTrackingScalingPolicyConfiguration' -- containing required fields as arguments.
library-gen/Stratosphere/ResourceProperties/AutoScalingAutoScalingGroupInstancesDistribution.hs view
@@ -35,17 +35,6 @@     , fmap (("SpotMaxPrice",) . toJSON) _autoScalingAutoScalingGroupInstancesDistributionSpotMaxPrice     ] -instance FromJSON AutoScalingAutoScalingGroupInstancesDistribution where-  parseJSON (Object obj) =-    AutoScalingAutoScalingGroupInstancesDistribution <$>-      (obj .:? "OnDemandAllocationStrategy") <*>-      fmap (fmap (fmap unInteger')) (obj .:? "OnDemandBaseCapacity") <*>-      fmap (fmap (fmap unInteger')) (obj .:? "OnDemandPercentageAboveBaseCapacity") <*>-      (obj .:? "SpotAllocationStrategy") <*>-      fmap (fmap (fmap unInteger')) (obj .:? "SpotInstancePools") <*>-      (obj .:? "SpotMaxPrice")-  parseJSON _ = mempty- -- | Constructor for 'AutoScalingAutoScalingGroupInstancesDistribution' -- containing required fields as arguments. autoScalingAutoScalingGroupInstancesDistribution
library-gen/Stratosphere/ResourceProperties/AutoScalingAutoScalingGroupLaunchTemplate.hs view
@@ -27,13 +27,6 @@     , fmap (("Overrides",) . toJSON) _autoScalingAutoScalingGroupLaunchTemplateOverrides     ] -instance FromJSON AutoScalingAutoScalingGroupLaunchTemplate where-  parseJSON (Object obj) =-    AutoScalingAutoScalingGroupLaunchTemplate <$>-      (obj .: "LaunchTemplateSpecification") <*>-      (obj .:? "Overrides")-  parseJSON _ = mempty- -- | Constructor for 'AutoScalingAutoScalingGroupLaunchTemplate' containing -- required fields as arguments. autoScalingAutoScalingGroupLaunchTemplate
library-gen/Stratosphere/ResourceProperties/AutoScalingAutoScalingGroupLaunchTemplateOverrides.hs view
@@ -25,12 +25,6 @@     [ fmap (("InstanceType",) . toJSON) _autoScalingAutoScalingGroupLaunchTemplateOverridesInstanceType     ] -instance FromJSON AutoScalingAutoScalingGroupLaunchTemplateOverrides where-  parseJSON (Object obj) =-    AutoScalingAutoScalingGroupLaunchTemplateOverrides <$>-      (obj .:? "InstanceType")-  parseJSON _ = mempty- -- | Constructor for 'AutoScalingAutoScalingGroupLaunchTemplateOverrides' -- containing required fields as arguments. autoScalingAutoScalingGroupLaunchTemplateOverrides
library-gen/Stratosphere/ResourceProperties/AutoScalingAutoScalingGroupLaunchTemplateSpecification.hs view
@@ -29,14 +29,6 @@     , (Just . ("Version",) . toJSON) _autoScalingAutoScalingGroupLaunchTemplateSpecificationVersion     ] -instance FromJSON AutoScalingAutoScalingGroupLaunchTemplateSpecification where-  parseJSON (Object obj) =-    AutoScalingAutoScalingGroupLaunchTemplateSpecification <$>-      (obj .:? "LaunchTemplateId") <*>-      (obj .:? "LaunchTemplateName") <*>-      (obj .: "Version")-  parseJSON _ = mempty- -- | Constructor for 'AutoScalingAutoScalingGroupLaunchTemplateSpecification' -- containing required fields as arguments. autoScalingAutoScalingGroupLaunchTemplateSpecification
library-gen/Stratosphere/ResourceProperties/AutoScalingAutoScalingGroupLifecycleHookSpecification.hs view
@@ -37,18 +37,6 @@     , fmap (("RoleARN",) . toJSON) _autoScalingAutoScalingGroupLifecycleHookSpecificationRoleARN     ] -instance FromJSON AutoScalingAutoScalingGroupLifecycleHookSpecification where-  parseJSON (Object obj) =-    AutoScalingAutoScalingGroupLifecycleHookSpecification <$>-      (obj .:? "DefaultResult") <*>-      fmap (fmap (fmap unInteger')) (obj .:? "HeartbeatTimeout") <*>-      (obj .: "LifecycleHookName") <*>-      (obj .: "LifecycleTransition") <*>-      (obj .:? "NotificationMetadata") <*>-      (obj .:? "NotificationTargetARN") <*>-      (obj .:? "RoleARN")-  parseJSON _ = mempty- -- | Constructor for 'AutoScalingAutoScalingGroupLifecycleHookSpecification' -- containing required fields as arguments. autoScalingAutoScalingGroupLifecycleHookSpecification
library-gen/Stratosphere/ResourceProperties/AutoScalingAutoScalingGroupMetricsCollection.hs view
@@ -27,13 +27,6 @@     , fmap (("Metrics",) . toJSON) _autoScalingAutoScalingGroupMetricsCollectionMetrics     ] -instance FromJSON AutoScalingAutoScalingGroupMetricsCollection where-  parseJSON (Object obj) =-    AutoScalingAutoScalingGroupMetricsCollection <$>-      (obj .: "Granularity") <*>-      (obj .:? "Metrics")-  parseJSON _ = mempty- -- | Constructor for 'AutoScalingAutoScalingGroupMetricsCollection' containing -- required fields as arguments. autoScalingAutoScalingGroupMetricsCollection
library-gen/Stratosphere/ResourceProperties/AutoScalingAutoScalingGroupMixedInstancesPolicy.hs view
@@ -28,13 +28,6 @@     , (Just . ("LaunchTemplate",) . toJSON) _autoScalingAutoScalingGroupMixedInstancesPolicyLaunchTemplate     ] -instance FromJSON AutoScalingAutoScalingGroupMixedInstancesPolicy where-  parseJSON (Object obj) =-    AutoScalingAutoScalingGroupMixedInstancesPolicy <$>-      (obj .:? "InstancesDistribution") <*>-      (obj .: "LaunchTemplate")-  parseJSON _ = mempty- -- | Constructor for 'AutoScalingAutoScalingGroupMixedInstancesPolicy' -- containing required fields as arguments. autoScalingAutoScalingGroupMixedInstancesPolicy
library-gen/Stratosphere/ResourceProperties/AutoScalingAutoScalingGroupNotificationConfiguration.hs view
@@ -27,13 +27,6 @@     , (Just . ("TopicARN",) . toJSON) _autoScalingAutoScalingGroupNotificationConfigurationTopicARN     ] -instance FromJSON AutoScalingAutoScalingGroupNotificationConfiguration where-  parseJSON (Object obj) =-    AutoScalingAutoScalingGroupNotificationConfiguration <$>-      (obj .:? "NotificationTypes") <*>-      (obj .: "TopicARN")-  parseJSON _ = mempty- -- | Constructor for 'AutoScalingAutoScalingGroupNotificationConfiguration' -- containing required fields as arguments. autoScalingAutoScalingGroupNotificationConfiguration
library-gen/Stratosphere/ResourceProperties/AutoScalingAutoScalingGroupTagProperty.hs view
@@ -28,14 +28,6 @@     , (Just . ("Value",) . toJSON) _autoScalingAutoScalingGroupTagPropertyValue     ] -instance FromJSON AutoScalingAutoScalingGroupTagProperty where-  parseJSON (Object obj) =-    AutoScalingAutoScalingGroupTagProperty <$>-      (obj .: "Key") <*>-      fmap (fmap unBool') (obj .: "PropagateAtLaunch") <*>-      (obj .: "Value")-  parseJSON _ = mempty- -- | Constructor for 'AutoScalingAutoScalingGroupTagProperty' containing -- required fields as arguments. autoScalingAutoScalingGroupTagProperty
library-gen/Stratosphere/ResourceProperties/AutoScalingLaunchConfigurationBlockDevice.hs view
@@ -34,17 +34,6 @@     , fmap (("VolumeType",) . toJSON) _autoScalingLaunchConfigurationBlockDeviceVolumeType     ] -instance FromJSON AutoScalingLaunchConfigurationBlockDevice where-  parseJSON (Object obj) =-    AutoScalingLaunchConfigurationBlockDevice <$>-      fmap (fmap (fmap unBool')) (obj .:? "DeleteOnTermination") <*>-      fmap (fmap (fmap unBool')) (obj .:? "Encrypted") <*>-      fmap (fmap (fmap unInteger')) (obj .:? "Iops") <*>-      (obj .:? "SnapshotId") <*>-      fmap (fmap (fmap unInteger')) (obj .:? "VolumeSize") <*>-      (obj .:? "VolumeType")-  parseJSON _ = mempty- -- | Constructor for 'AutoScalingLaunchConfigurationBlockDevice' containing -- required fields as arguments. autoScalingLaunchConfigurationBlockDevice
library-gen/Stratosphere/ResourceProperties/AutoScalingLaunchConfigurationBlockDeviceMapping.hs view
@@ -31,15 +31,6 @@     , fmap (("VirtualName",) . toJSON) _autoScalingLaunchConfigurationBlockDeviceMappingVirtualName     ] -instance FromJSON AutoScalingLaunchConfigurationBlockDeviceMapping where-  parseJSON (Object obj) =-    AutoScalingLaunchConfigurationBlockDeviceMapping <$>-      (obj .: "DeviceName") <*>-      (obj .:? "Ebs") <*>-      fmap (fmap (fmap unBool')) (obj .:? "NoDevice") <*>-      (obj .:? "VirtualName")-  parseJSON _ = mempty- -- | Constructor for 'AutoScalingLaunchConfigurationBlockDeviceMapping' -- containing required fields as arguments. autoScalingLaunchConfigurationBlockDeviceMapping
library-gen/Stratosphere/ResourceProperties/AutoScalingPlansScalingPlanApplicationSource.hs view
@@ -27,13 +27,6 @@     , fmap (("TagFilters",) . toJSON) _autoScalingPlansScalingPlanApplicationSourceTagFilters     ] -instance FromJSON AutoScalingPlansScalingPlanApplicationSource where-  parseJSON (Object obj) =-    AutoScalingPlansScalingPlanApplicationSource <$>-      (obj .:? "CloudFormationStackARN") <*>-      (obj .:? "TagFilters")-  parseJSON _ = mempty- -- | Constructor for 'AutoScalingPlansScalingPlanApplicationSource' containing -- required fields as arguments. autoScalingPlansScalingPlanApplicationSource
library-gen/Stratosphere/ResourceProperties/AutoScalingPlansScalingPlanCustomizedLoadMetricSpecification.hs view
@@ -33,16 +33,6 @@     , fmap (("Unit",) . toJSON) _autoScalingPlansScalingPlanCustomizedLoadMetricSpecificationUnit     ] -instance FromJSON AutoScalingPlansScalingPlanCustomizedLoadMetricSpecification where-  parseJSON (Object obj) =-    AutoScalingPlansScalingPlanCustomizedLoadMetricSpecification <$>-      (obj .:? "Dimensions") <*>-      (obj .: "MetricName") <*>-      (obj .: "Namespace") <*>-      (obj .: "Statistic") <*>-      (obj .:? "Unit")-  parseJSON _ = mempty- -- | Constructor for -- 'AutoScalingPlansScalingPlanCustomizedLoadMetricSpecification' containing -- required fields as arguments.
library-gen/Stratosphere/ResourceProperties/AutoScalingPlansScalingPlanCustomizedScalingMetricSpecification.hs view
@@ -33,16 +33,6 @@     , fmap (("Unit",) . toJSON) _autoScalingPlansScalingPlanCustomizedScalingMetricSpecificationUnit     ] -instance FromJSON AutoScalingPlansScalingPlanCustomizedScalingMetricSpecification where-  parseJSON (Object obj) =-    AutoScalingPlansScalingPlanCustomizedScalingMetricSpecification <$>-      (obj .:? "Dimensions") <*>-      (obj .: "MetricName") <*>-      (obj .: "Namespace") <*>-      (obj .: "Statistic") <*>-      (obj .:? "Unit")-  parseJSON _ = mempty- -- | Constructor for -- 'AutoScalingPlansScalingPlanCustomizedScalingMetricSpecification' -- containing required fields as arguments.
library-gen/Stratosphere/ResourceProperties/AutoScalingPlansScalingPlanMetricDimension.hs view
@@ -26,13 +26,6 @@     , (Just . ("Value",) . toJSON) _autoScalingPlansScalingPlanMetricDimensionValue     ] -instance FromJSON AutoScalingPlansScalingPlanMetricDimension where-  parseJSON (Object obj) =-    AutoScalingPlansScalingPlanMetricDimension <$>-      (obj .: "Name") <*>-      (obj .: "Value")-  parseJSON _ = mempty- -- | Constructor for 'AutoScalingPlansScalingPlanMetricDimension' containing -- required fields as arguments. autoScalingPlansScalingPlanMetricDimension
library-gen/Stratosphere/ResourceProperties/AutoScalingPlansScalingPlanPredefinedLoadMetricSpecification.hs view
@@ -27,13 +27,6 @@     , fmap (("ResourceLabel",) . toJSON) _autoScalingPlansScalingPlanPredefinedLoadMetricSpecificationResourceLabel     ] -instance FromJSON AutoScalingPlansScalingPlanPredefinedLoadMetricSpecification where-  parseJSON (Object obj) =-    AutoScalingPlansScalingPlanPredefinedLoadMetricSpecification <$>-      (obj .: "PredefinedLoadMetricType") <*>-      (obj .:? "ResourceLabel")-  parseJSON _ = mempty- -- | Constructor for -- 'AutoScalingPlansScalingPlanPredefinedLoadMetricSpecification' containing -- required fields as arguments.
library-gen/Stratosphere/ResourceProperties/AutoScalingPlansScalingPlanPredefinedScalingMetricSpecification.hs view
@@ -27,13 +27,6 @@     , fmap (("ResourceLabel",) . toJSON) _autoScalingPlansScalingPlanPredefinedScalingMetricSpecificationResourceLabel     ] -instance FromJSON AutoScalingPlansScalingPlanPredefinedScalingMetricSpecification where-  parseJSON (Object obj) =-    AutoScalingPlansScalingPlanPredefinedScalingMetricSpecification <$>-      (obj .: "PredefinedScalingMetricType") <*>-      (obj .:? "ResourceLabel")-  parseJSON _ = mempty- -- | Constructor for -- 'AutoScalingPlansScalingPlanPredefinedScalingMetricSpecification' -- containing required fields as arguments.
library-gen/Stratosphere/ResourceProperties/AutoScalingPlansScalingPlanScalingInstruction.hs view
@@ -53,25 +53,6 @@     , (Just . ("TargetTrackingConfigurations",) . toJSON) _autoScalingPlansScalingPlanScalingInstructionTargetTrackingConfigurations     ] -instance FromJSON AutoScalingPlansScalingPlanScalingInstruction where-  parseJSON (Object obj) =-    AutoScalingPlansScalingPlanScalingInstruction <$>-      (obj .:? "CustomizedLoadMetricSpecification") <*>-      fmap (fmap (fmap unBool')) (obj .:? "DisableDynamicScaling") <*>-      fmap (fmap unInteger') (obj .: "MaxCapacity") <*>-      fmap (fmap unInteger') (obj .: "MinCapacity") <*>-      (obj .:? "PredefinedLoadMetricSpecification") <*>-      (obj .:? "PredictiveScalingMaxCapacityBehavior") <*>-      fmap (fmap (fmap unInteger')) (obj .:? "PredictiveScalingMaxCapacityBuffer") <*>-      (obj .:? "PredictiveScalingMode") <*>-      (obj .: "ResourceId") <*>-      (obj .: "ScalableDimension") <*>-      (obj .:? "ScalingPolicyUpdateBehavior") <*>-      fmap (fmap (fmap unInteger')) (obj .:? "ScheduledActionBufferTime") <*>-      (obj .: "ServiceNamespace") <*>-      (obj .: "TargetTrackingConfigurations")-  parseJSON _ = mempty- -- | Constructor for 'AutoScalingPlansScalingPlanScalingInstruction' -- containing required fields as arguments. autoScalingPlansScalingPlanScalingInstruction
library-gen/Stratosphere/ResourceProperties/AutoScalingPlansScalingPlanTagFilter.hs view
@@ -25,13 +25,6 @@     , fmap (("Values",) . toJSON) _autoScalingPlansScalingPlanTagFilterValues     ] -instance FromJSON AutoScalingPlansScalingPlanTagFilter where-  parseJSON (Object obj) =-    AutoScalingPlansScalingPlanTagFilter <$>-      (obj .: "Key") <*>-      (obj .:? "Values")-  parseJSON _ = mempty- -- | Constructor for 'AutoScalingPlansScalingPlanTagFilter' containing -- required fields as arguments. autoScalingPlansScalingPlanTagFilter
library-gen/Stratosphere/ResourceProperties/AutoScalingPlansScalingPlanTargetTrackingConfiguration.hs view
@@ -38,18 +38,6 @@     , (Just . ("TargetValue",) . toJSON . fmap Double') _autoScalingPlansScalingPlanTargetTrackingConfigurationTargetValue     ] -instance FromJSON AutoScalingPlansScalingPlanTargetTrackingConfiguration where-  parseJSON (Object obj) =-    AutoScalingPlansScalingPlanTargetTrackingConfiguration <$>-      (obj .:? "CustomizedScalingMetricSpecification") <*>-      fmap (fmap (fmap unBool')) (obj .:? "DisableScaleIn") <*>-      fmap (fmap (fmap unInteger')) (obj .:? "EstimatedInstanceWarmup") <*>-      (obj .:? "PredefinedScalingMetricSpecification") <*>-      fmap (fmap (fmap unInteger')) (obj .:? "ScaleInCooldown") <*>-      fmap (fmap (fmap unInteger')) (obj .:? "ScaleOutCooldown") <*>-      fmap (fmap unDouble') (obj .: "TargetValue")-  parseJSON _ = mempty- -- | Constructor for 'AutoScalingPlansScalingPlanTargetTrackingConfiguration' -- containing required fields as arguments. autoScalingPlansScalingPlanTargetTrackingConfiguration
library-gen/Stratosphere/ResourceProperties/AutoScalingScalingPolicyCustomizedMetricSpecification.hs view
@@ -33,16 +33,6 @@     , fmap (("Unit",) . toJSON) _autoScalingScalingPolicyCustomizedMetricSpecificationUnit     ] -instance FromJSON AutoScalingScalingPolicyCustomizedMetricSpecification where-  parseJSON (Object obj) =-    AutoScalingScalingPolicyCustomizedMetricSpecification <$>-      (obj .:? "Dimensions") <*>-      (obj .: "MetricName") <*>-      (obj .: "Namespace") <*>-      (obj .: "Statistic") <*>-      (obj .:? "Unit")-  parseJSON _ = mempty- -- | Constructor for 'AutoScalingScalingPolicyCustomizedMetricSpecification' -- containing required fields as arguments. autoScalingScalingPolicyCustomizedMetricSpecification
library-gen/Stratosphere/ResourceProperties/AutoScalingScalingPolicyMetricDimension.hs view
@@ -26,13 +26,6 @@     , (Just . ("Value",) . toJSON) _autoScalingScalingPolicyMetricDimensionValue     ] -instance FromJSON AutoScalingScalingPolicyMetricDimension where-  parseJSON (Object obj) =-    AutoScalingScalingPolicyMetricDimension <$>-      (obj .: "Name") <*>-      (obj .: "Value")-  parseJSON _ = mempty- -- | Constructor for 'AutoScalingScalingPolicyMetricDimension' containing -- required fields as arguments. autoScalingScalingPolicyMetricDimension
library-gen/Stratosphere/ResourceProperties/AutoScalingScalingPolicyPredefinedMetricSpecification.hs view
@@ -27,13 +27,6 @@     , fmap (("ResourceLabel",) . toJSON) _autoScalingScalingPolicyPredefinedMetricSpecificationResourceLabel     ] -instance FromJSON AutoScalingScalingPolicyPredefinedMetricSpecification where-  parseJSON (Object obj) =-    AutoScalingScalingPolicyPredefinedMetricSpecification <$>-      (obj .: "PredefinedMetricType") <*>-      (obj .:? "ResourceLabel")-  parseJSON _ = mempty- -- | Constructor for 'AutoScalingScalingPolicyPredefinedMetricSpecification' -- containing required fields as arguments. autoScalingScalingPolicyPredefinedMetricSpecification
library-gen/Stratosphere/ResourceProperties/AutoScalingScalingPolicyStepAdjustment.hs view
@@ -28,14 +28,6 @@     , (Just . ("ScalingAdjustment",) . toJSON . fmap Integer') _autoScalingScalingPolicyStepAdjustmentScalingAdjustment     ] -instance FromJSON AutoScalingScalingPolicyStepAdjustment where-  parseJSON (Object obj) =-    AutoScalingScalingPolicyStepAdjustment <$>-      fmap (fmap (fmap unDouble')) (obj .:? "MetricIntervalLowerBound") <*>-      fmap (fmap (fmap unDouble')) (obj .:? "MetricIntervalUpperBound") <*>-      fmap (fmap unInteger') (obj .: "ScalingAdjustment")-  parseJSON _ = mempty- -- | Constructor for 'AutoScalingScalingPolicyStepAdjustment' containing -- required fields as arguments. autoScalingScalingPolicyStepAdjustment
library-gen/Stratosphere/ResourceProperties/AutoScalingScalingPolicyTargetTrackingConfiguration.hs view
@@ -32,15 +32,6 @@     , (Just . ("TargetValue",) . toJSON . fmap Double') _autoScalingScalingPolicyTargetTrackingConfigurationTargetValue     ] -instance FromJSON AutoScalingScalingPolicyTargetTrackingConfiguration where-  parseJSON (Object obj) =-    AutoScalingScalingPolicyTargetTrackingConfiguration <$>-      (obj .:? "CustomizedMetricSpecification") <*>-      fmap (fmap (fmap unBool')) (obj .:? "DisableScaleIn") <*>-      (obj .:? "PredefinedMetricSpecification") <*>-      fmap (fmap unDouble') (obj .: "TargetValue")-  parseJSON _ = mempty- -- | Constructor for 'AutoScalingScalingPolicyTargetTrackingConfiguration' -- containing required fields as arguments. autoScalingScalingPolicyTargetTrackingConfiguration
library-gen/Stratosphere/ResourceProperties/BatchComputeEnvironmentComputeResources.hs view
@@ -52,26 +52,6 @@     , (Just . ("Type",) . toJSON) _batchComputeEnvironmentComputeResourcesType     ] -instance FromJSON BatchComputeEnvironmentComputeResources where-  parseJSON (Object obj) =-    BatchComputeEnvironmentComputeResources <$>-      fmap (fmap (fmap unInteger')) (obj .:? "BidPercentage") <*>-      fmap (fmap (fmap unInteger')) (obj .:? "DesiredvCpus") <*>-      (obj .:? "Ec2KeyPair") <*>-      (obj .:? "ImageId") <*>-      (obj .: "InstanceRole") <*>-      (obj .: "InstanceTypes") <*>-      (obj .:? "LaunchTemplate") <*>-      fmap (fmap unInteger') (obj .: "MaxvCpus") <*>-      fmap (fmap unInteger') (obj .: "MinvCpus") <*>-      (obj .:? "PlacementGroup") <*>-      (obj .: "SecurityGroupIds") <*>-      (obj .:? "SpotIamFleetRole") <*>-      (obj .: "Subnets") <*>-      (obj .:? "Tags") <*>-      (obj .: "Type")-  parseJSON _ = mempty- -- | Constructor for 'BatchComputeEnvironmentComputeResources' containing -- required fields as arguments. batchComputeEnvironmentComputeResources
library-gen/Stratosphere/ResourceProperties/BatchComputeEnvironmentLaunchTemplateSpecification.hs view
@@ -29,14 +29,6 @@     , fmap (("Version",) . toJSON) _batchComputeEnvironmentLaunchTemplateSpecificationVersion     ] -instance FromJSON BatchComputeEnvironmentLaunchTemplateSpecification where-  parseJSON (Object obj) =-    BatchComputeEnvironmentLaunchTemplateSpecification <$>-      (obj .:? "LaunchTemplateId") <*>-      (obj .:? "LaunchTemplateName") <*>-      (obj .:? "Version")-  parseJSON _ = mempty- -- | Constructor for 'BatchComputeEnvironmentLaunchTemplateSpecification' -- containing required fields as arguments. batchComputeEnvironmentLaunchTemplateSpecification
library-gen/Stratosphere/ResourceProperties/BatchJobDefinitionContainerProperties.hs view
@@ -51,24 +51,6 @@     , fmap (("Volumes",) . toJSON) _batchJobDefinitionContainerPropertiesVolumes     ] -instance FromJSON BatchJobDefinitionContainerProperties where-  parseJSON (Object obj) =-    BatchJobDefinitionContainerProperties <$>-      (obj .:? "Command") <*>-      (obj .:? "Environment") <*>-      (obj .: "Image") <*>-      (obj .:? "InstanceType") <*>-      (obj .:? "JobRoleArn") <*>-      fmap (fmap unInteger') (obj .: "Memory") <*>-      (obj .:? "MountPoints") <*>-      fmap (fmap (fmap unBool')) (obj .:? "Privileged") <*>-      fmap (fmap (fmap unBool')) (obj .:? "ReadonlyRootFilesystem") <*>-      (obj .:? "Ulimits") <*>-      (obj .:? "User") <*>-      fmap (fmap unInteger') (obj .: "Vcpus") <*>-      (obj .:? "Volumes")-  parseJSON _ = mempty- -- | Constructor for 'BatchJobDefinitionContainerProperties' containing -- required fields as arguments. batchJobDefinitionContainerProperties
library-gen/Stratosphere/ResourceProperties/BatchJobDefinitionEnvironment.hs view
@@ -25,13 +25,6 @@     , fmap (("Value",) . toJSON) _batchJobDefinitionEnvironmentValue     ] -instance FromJSON BatchJobDefinitionEnvironment where-  parseJSON (Object obj) =-    BatchJobDefinitionEnvironment <$>-      (obj .:? "Name") <*>-      (obj .:? "Value")-  parseJSON _ = mempty- -- | Constructor for 'BatchJobDefinitionEnvironment' containing required -- fields as arguments. batchJobDefinitionEnvironment
library-gen/Stratosphere/ResourceProperties/BatchJobDefinitionMountPoints.hs view
@@ -27,14 +27,6 @@     , fmap (("SourceVolume",) . toJSON) _batchJobDefinitionMountPointsSourceVolume     ] -instance FromJSON BatchJobDefinitionMountPoints where-  parseJSON (Object obj) =-    BatchJobDefinitionMountPoints <$>-      (obj .:? "ContainerPath") <*>-      fmap (fmap (fmap unBool')) (obj .:? "ReadOnly") <*>-      (obj .:? "SourceVolume")-  parseJSON _ = mempty- -- | Constructor for 'BatchJobDefinitionMountPoints' containing required -- fields as arguments. batchJobDefinitionMountPoints
library-gen/Stratosphere/ResourceProperties/BatchJobDefinitionNodeProperties.hs view
@@ -27,14 +27,6 @@     , (Just . ("NumNodes",) . toJSON . fmap Integer') _batchJobDefinitionNodePropertiesNumNodes     ] -instance FromJSON BatchJobDefinitionNodeProperties where-  parseJSON (Object obj) =-    BatchJobDefinitionNodeProperties <$>-      fmap (fmap unInteger') (obj .: "MainNode") <*>-      (obj .: "NodeRangeProperties") <*>-      fmap (fmap unInteger') (obj .: "NumNodes")-  parseJSON _ = mempty- -- | Constructor for 'BatchJobDefinitionNodeProperties' containing required -- fields as arguments. batchJobDefinitionNodeProperties
library-gen/Stratosphere/ResourceProperties/BatchJobDefinitionNodeRangeProperty.hs view
@@ -25,13 +25,6 @@     , (Just . ("TargetNodes",) . toJSON) _batchJobDefinitionNodeRangePropertyTargetNodes     ] -instance FromJSON BatchJobDefinitionNodeRangeProperty where-  parseJSON (Object obj) =-    BatchJobDefinitionNodeRangeProperty <$>-      (obj .:? "Container") <*>-      (obj .: "TargetNodes")-  parseJSON _ = mempty- -- | Constructor for 'BatchJobDefinitionNodeRangeProperty' containing required -- fields as arguments. batchJobDefinitionNodeRangeProperty
library-gen/Stratosphere/ResourceProperties/BatchJobDefinitionRetryStrategy.hs view
@@ -23,12 +23,6 @@     [ fmap (("Attempts",) . toJSON . fmap Integer') _batchJobDefinitionRetryStrategyAttempts     ] -instance FromJSON BatchJobDefinitionRetryStrategy where-  parseJSON (Object obj) =-    BatchJobDefinitionRetryStrategy <$>-      fmap (fmap (fmap unInteger')) (obj .:? "Attempts")-  parseJSON _ = mempty- -- | Constructor for 'BatchJobDefinitionRetryStrategy' containing required -- fields as arguments. batchJobDefinitionRetryStrategy
library-gen/Stratosphere/ResourceProperties/BatchJobDefinitionTimeout.hs view
@@ -23,12 +23,6 @@     [ fmap (("AttemptDurationSeconds",) . toJSON . fmap Integer') _batchJobDefinitionTimeoutAttemptDurationSeconds     ] -instance FromJSON BatchJobDefinitionTimeout where-  parseJSON (Object obj) =-    BatchJobDefinitionTimeout <$>-      fmap (fmap (fmap unInteger')) (obj .:? "AttemptDurationSeconds")-  parseJSON _ = mempty- -- | Constructor for 'BatchJobDefinitionTimeout' containing required fields as -- arguments. batchJobDefinitionTimeout
library-gen/Stratosphere/ResourceProperties/BatchJobDefinitionUlimit.hs view
@@ -27,14 +27,6 @@     , (Just . ("SoftLimit",) . toJSON . fmap Integer') _batchJobDefinitionUlimitSoftLimit     ] -instance FromJSON BatchJobDefinitionUlimit where-  parseJSON (Object obj) =-    BatchJobDefinitionUlimit <$>-      fmap (fmap unInteger') (obj .: "HardLimit") <*>-      (obj .: "Name") <*>-      fmap (fmap unInteger') (obj .: "SoftLimit")-  parseJSON _ = mempty- -- | Constructor for 'BatchJobDefinitionUlimit' containing required fields as -- arguments. batchJobDefinitionUlimit
library-gen/Stratosphere/ResourceProperties/BatchJobDefinitionVolumes.hs view
@@ -25,13 +25,6 @@     , fmap (("Name",) . toJSON) _batchJobDefinitionVolumesName     ] -instance FromJSON BatchJobDefinitionVolumes where-  parseJSON (Object obj) =-    BatchJobDefinitionVolumes <$>-      (obj .:? "Host") <*>-      (obj .:? "Name")-  parseJSON _ = mempty- -- | Constructor for 'BatchJobDefinitionVolumes' containing required fields as -- arguments. batchJobDefinitionVolumes
library-gen/Stratosphere/ResourceProperties/BatchJobDefinitionVolumesHost.hs view
@@ -23,12 +23,6 @@     [ fmap (("SourcePath",) . toJSON) _batchJobDefinitionVolumesHostSourcePath     ] -instance FromJSON BatchJobDefinitionVolumesHost where-  parseJSON (Object obj) =-    BatchJobDefinitionVolumesHost <$>-      (obj .:? "SourcePath")-  parseJSON _ = mempty- -- | Constructor for 'BatchJobDefinitionVolumesHost' containing required -- fields as arguments. batchJobDefinitionVolumesHost
library-gen/Stratosphere/ResourceProperties/BatchJobQueueComputeEnvironmentOrder.hs view
@@ -25,13 +25,6 @@     , (Just . ("Order",) . toJSON . fmap Integer') _batchJobQueueComputeEnvironmentOrderOrder     ] -instance FromJSON BatchJobQueueComputeEnvironmentOrder where-  parseJSON (Object obj) =-    BatchJobQueueComputeEnvironmentOrder <$>-      (obj .: "ComputeEnvironment") <*>-      fmap (fmap unInteger') (obj .: "Order")-  parseJSON _ = mempty- -- | Constructor for 'BatchJobQueueComputeEnvironmentOrder' containing -- required fields as arguments. batchJobQueueComputeEnvironmentOrder
library-gen/Stratosphere/ResourceProperties/BudgetsBudgetBudgetData.hs view
@@ -37,18 +37,6 @@     , (Just . ("TimeUnit",) . toJSON) _budgetsBudgetBudgetDataTimeUnit     ] -instance FromJSON BudgetsBudgetBudgetData where-  parseJSON (Object obj) =-    BudgetsBudgetBudgetData <$>-      (obj .:? "BudgetLimit") <*>-      (obj .:? "BudgetName") <*>-      (obj .: "BudgetType") <*>-      (obj .:? "CostFilters") <*>-      (obj .:? "CostTypes") <*>-      (obj .:? "TimePeriod") <*>-      (obj .: "TimeUnit")-  parseJSON _ = mempty- -- | Constructor for 'BudgetsBudgetBudgetData' containing required fields as -- arguments. budgetsBudgetBudgetData
library-gen/Stratosphere/ResourceProperties/BudgetsBudgetCostTypes.hs view
@@ -43,22 +43,6 @@     , fmap (("UseBlended",) . toJSON . fmap Bool') _budgetsBudgetCostTypesUseBlended     ] -instance FromJSON BudgetsBudgetCostTypes where-  parseJSON (Object obj) =-    BudgetsBudgetCostTypes <$>-      fmap (fmap (fmap unBool')) (obj .:? "IncludeCredit") <*>-      fmap (fmap (fmap unBool')) (obj .:? "IncludeDiscount") <*>-      fmap (fmap (fmap unBool')) (obj .:? "IncludeOtherSubscription") <*>-      fmap (fmap (fmap unBool')) (obj .:? "IncludeRecurring") <*>-      fmap (fmap (fmap unBool')) (obj .:? "IncludeRefund") <*>-      fmap (fmap (fmap unBool')) (obj .:? "IncludeSubscription") <*>-      fmap (fmap (fmap unBool')) (obj .:? "IncludeSupport") <*>-      fmap (fmap (fmap unBool')) (obj .:? "IncludeTax") <*>-      fmap (fmap (fmap unBool')) (obj .:? "IncludeUpfront") <*>-      fmap (fmap (fmap unBool')) (obj .:? "UseAmortized") <*>-      fmap (fmap (fmap unBool')) (obj .:? "UseBlended")-  parseJSON _ = mempty- -- | Constructor for 'BudgetsBudgetCostTypes' containing required fields as -- arguments. budgetsBudgetCostTypes
library-gen/Stratosphere/ResourceProperties/BudgetsBudgetNotification.hs view
@@ -29,15 +29,6 @@     , fmap (("ThresholdType",) . toJSON) _budgetsBudgetNotificationThresholdType     ] -instance FromJSON BudgetsBudgetNotification where-  parseJSON (Object obj) =-    BudgetsBudgetNotification <$>-      (obj .: "ComparisonOperator") <*>-      (obj .: "NotificationType") <*>-      fmap (fmap unDouble') (obj .: "Threshold") <*>-      (obj .:? "ThresholdType")-  parseJSON _ = mempty- -- | Constructor for 'BudgetsBudgetNotification' containing required fields as -- arguments. budgetsBudgetNotification
library-gen/Stratosphere/ResourceProperties/BudgetsBudgetNotificationWithSubscribers.hs view
@@ -27,13 +27,6 @@     , (Just . ("Subscribers",) . toJSON) _budgetsBudgetNotificationWithSubscribersSubscribers     ] -instance FromJSON BudgetsBudgetNotificationWithSubscribers where-  parseJSON (Object obj) =-    BudgetsBudgetNotificationWithSubscribers <$>-      (obj .: "Notification") <*>-      (obj .: "Subscribers")-  parseJSON _ = mempty- -- | Constructor for 'BudgetsBudgetNotificationWithSubscribers' containing -- required fields as arguments. budgetsBudgetNotificationWithSubscribers
library-gen/Stratosphere/ResourceProperties/BudgetsBudgetSpend.hs view
@@ -25,13 +25,6 @@     , (Just . ("Unit",) . toJSON) _budgetsBudgetSpendUnit     ] -instance FromJSON BudgetsBudgetSpend where-  parseJSON (Object obj) =-    BudgetsBudgetSpend <$>-      fmap (fmap unDouble') (obj .: "Amount") <*>-      (obj .: "Unit")-  parseJSON _ = mempty- -- | Constructor for 'BudgetsBudgetSpend' containing required fields as -- arguments. budgetsBudgetSpend
library-gen/Stratosphere/ResourceProperties/BudgetsBudgetSubscriber.hs view
@@ -25,13 +25,6 @@     , (Just . ("SubscriptionType",) . toJSON) _budgetsBudgetSubscriberSubscriptionType     ] -instance FromJSON BudgetsBudgetSubscriber where-  parseJSON (Object obj) =-    BudgetsBudgetSubscriber <$>-      (obj .: "Address") <*>-      (obj .: "SubscriptionType")-  parseJSON _ = mempty- -- | Constructor for 'BudgetsBudgetSubscriber' containing required fields as -- arguments. budgetsBudgetSubscriber
library-gen/Stratosphere/ResourceProperties/BudgetsBudgetTimePeriod.hs view
@@ -25,13 +25,6 @@     , fmap (("Start",) . toJSON) _budgetsBudgetTimePeriodStart     ] -instance FromJSON BudgetsBudgetTimePeriod where-  parseJSON (Object obj) =-    BudgetsBudgetTimePeriod <$>-      (obj .:? "End") <*>-      (obj .:? "Start")-  parseJSON _ = mempty- -- | Constructor for 'BudgetsBudgetTimePeriod' containing required fields as -- arguments. budgetsBudgetTimePeriod
library-gen/Stratosphere/ResourceProperties/CertificateManagerCertificateDomainValidationOption.hs view
@@ -27,13 +27,6 @@     , (Just . ("ValidationDomain",) . toJSON) _certificateManagerCertificateDomainValidationOptionValidationDomain     ] -instance FromJSON CertificateManagerCertificateDomainValidationOption where-  parseJSON (Object obj) =-    CertificateManagerCertificateDomainValidationOption <$>-      (obj .: "DomainName") <*>-      (obj .: "ValidationDomain")-  parseJSON _ = mempty- -- | Constructor for 'CertificateManagerCertificateDomainValidationOption' -- containing required fields as arguments. certificateManagerCertificateDomainValidationOption
library-gen/Stratosphere/ResourceProperties/Cloud9EnvironmentEC2Repository.hs view
@@ -25,13 +25,6 @@     , (Just . ("RepositoryUrl",) . toJSON) _cloud9EnvironmentEC2RepositoryRepositoryUrl     ] -instance FromJSON Cloud9EnvironmentEC2Repository where-  parseJSON (Object obj) =-    Cloud9EnvironmentEC2Repository <$>-      (obj .: "PathComponent") <*>-      (obj .: "RepositoryUrl")-  parseJSON _ = mempty- -- | Constructor for 'Cloud9EnvironmentEC2Repository' containing required -- fields as arguments. cloud9EnvironmentEC2Repository
library-gen/Stratosphere/ResourceProperties/CloudFrontCloudFrontOriginAccessIdentityCloudFrontOriginAccessIdentityConfig.hs view
@@ -26,12 +26,6 @@     [ (Just . ("Comment",) . toJSON) _cloudFrontCloudFrontOriginAccessIdentityCloudFrontOriginAccessIdentityConfigComment     ] -instance FromJSON CloudFrontCloudFrontOriginAccessIdentityCloudFrontOriginAccessIdentityConfig where-  parseJSON (Object obj) =-    CloudFrontCloudFrontOriginAccessIdentityCloudFrontOriginAccessIdentityConfig <$>-      (obj .: "Comment")-  parseJSON _ = mempty- -- | Constructor for -- 'CloudFrontCloudFrontOriginAccessIdentityCloudFrontOriginAccessIdentityConfig' -- containing required fields as arguments.
library-gen/Stratosphere/ResourceProperties/CloudFrontDistributionCacheBehavior.hs view
@@ -50,25 +50,6 @@     , (Just . ("ViewerProtocolPolicy",) . toJSON) _cloudFrontDistributionCacheBehaviorViewerProtocolPolicy     ] -instance FromJSON CloudFrontDistributionCacheBehavior where-  parseJSON (Object obj) =-    CloudFrontDistributionCacheBehavior <$>-      (obj .:? "AllowedMethods") <*>-      (obj .:? "CachedMethods") <*>-      fmap (fmap (fmap unBool')) (obj .:? "Compress") <*>-      fmap (fmap (fmap unDouble')) (obj .:? "DefaultTTL") <*>-      (obj .:? "FieldLevelEncryptionId") <*>-      (obj .: "ForwardedValues") <*>-      (obj .:? "LambdaFunctionAssociations") <*>-      fmap (fmap (fmap unDouble')) (obj .:? "MaxTTL") <*>-      fmap (fmap (fmap unDouble')) (obj .:? "MinTTL") <*>-      (obj .: "PathPattern") <*>-      fmap (fmap (fmap unBool')) (obj .:? "SmoothStreaming") <*>-      (obj .: "TargetOriginId") <*>-      (obj .:? "TrustedSigners") <*>-      (obj .: "ViewerProtocolPolicy")-  parseJSON _ = mempty- -- | Constructor for 'CloudFrontDistributionCacheBehavior' containing required -- fields as arguments. cloudFrontDistributionCacheBehavior
library-gen/Stratosphere/ResourceProperties/CloudFrontDistributionCookies.hs view
@@ -25,13 +25,6 @@     , fmap (("WhitelistedNames",) . toJSON) _cloudFrontDistributionCookiesWhitelistedNames     ] -instance FromJSON CloudFrontDistributionCookies where-  parseJSON (Object obj) =-    CloudFrontDistributionCookies <$>-      (obj .: "Forward") <*>-      (obj .:? "WhitelistedNames")-  parseJSON _ = mempty- -- | Constructor for 'CloudFrontDistributionCookies' containing required -- fields as arguments. cloudFrontDistributionCookies
library-gen/Stratosphere/ResourceProperties/CloudFrontDistributionCustomErrorResponse.hs view
@@ -30,15 +30,6 @@     , fmap (("ResponsePagePath",) . toJSON) _cloudFrontDistributionCustomErrorResponseResponsePagePath     ] -instance FromJSON CloudFrontDistributionCustomErrorResponse where-  parseJSON (Object obj) =-    CloudFrontDistributionCustomErrorResponse <$>-      fmap (fmap (fmap unDouble')) (obj .:? "ErrorCachingMinTTL") <*>-      fmap (fmap unInteger') (obj .: "ErrorCode") <*>-      fmap (fmap (fmap unInteger')) (obj .:? "ResponseCode") <*>-      (obj .:? "ResponsePagePath")-  parseJSON _ = mempty- -- | Constructor for 'CloudFrontDistributionCustomErrorResponse' containing -- required fields as arguments. cloudFrontDistributionCustomErrorResponse
library-gen/Stratosphere/ResourceProperties/CloudFrontDistributionCustomOriginConfig.hs view
@@ -34,17 +34,6 @@     , fmap (("OriginSSLProtocols",) . toJSON) _cloudFrontDistributionCustomOriginConfigOriginSSLProtocols     ] -instance FromJSON CloudFrontDistributionCustomOriginConfig where-  parseJSON (Object obj) =-    CloudFrontDistributionCustomOriginConfig <$>-      fmap (fmap (fmap unInteger')) (obj .:? "HTTPPort") <*>-      fmap (fmap (fmap unInteger')) (obj .:? "HTTPSPort") <*>-      fmap (fmap (fmap unInteger')) (obj .:? "OriginKeepaliveTimeout") <*>-      (obj .: "OriginProtocolPolicy") <*>-      fmap (fmap (fmap unInteger')) (obj .:? "OriginReadTimeout") <*>-      (obj .:? "OriginSSLProtocols")-  parseJSON _ = mempty- -- | Constructor for 'CloudFrontDistributionCustomOriginConfig' containing -- required fields as arguments. cloudFrontDistributionCustomOriginConfig
library-gen/Stratosphere/ResourceProperties/CloudFrontDistributionDefaultCacheBehavior.hs view
@@ -49,24 +49,6 @@     , (Just . ("ViewerProtocolPolicy",) . toJSON) _cloudFrontDistributionDefaultCacheBehaviorViewerProtocolPolicy     ] -instance FromJSON CloudFrontDistributionDefaultCacheBehavior where-  parseJSON (Object obj) =-    CloudFrontDistributionDefaultCacheBehavior <$>-      (obj .:? "AllowedMethods") <*>-      (obj .:? "CachedMethods") <*>-      fmap (fmap (fmap unBool')) (obj .:? "Compress") <*>-      fmap (fmap (fmap unDouble')) (obj .:? "DefaultTTL") <*>-      (obj .:? "FieldLevelEncryptionId") <*>-      (obj .: "ForwardedValues") <*>-      (obj .:? "LambdaFunctionAssociations") <*>-      fmap (fmap (fmap unDouble')) (obj .:? "MaxTTL") <*>-      fmap (fmap (fmap unDouble')) (obj .:? "MinTTL") <*>-      fmap (fmap (fmap unBool')) (obj .:? "SmoothStreaming") <*>-      (obj .: "TargetOriginId") <*>-      (obj .:? "TrustedSigners") <*>-      (obj .: "ViewerProtocolPolicy")-  parseJSON _ = mempty- -- | Constructor for 'CloudFrontDistributionDefaultCacheBehavior' containing -- required fields as arguments. cloudFrontDistributionDefaultCacheBehavior
library-gen/Stratosphere/ResourceProperties/CloudFrontDistributionDistributionConfig.hs view
@@ -58,26 +58,6 @@     , fmap (("WebACLId",) . toJSON) _cloudFrontDistributionDistributionConfigWebACLId     ] -instance FromJSON CloudFrontDistributionDistributionConfig where-  parseJSON (Object obj) =-    CloudFrontDistributionDistributionConfig <$>-      (obj .:? "Aliases") <*>-      (obj .:? "CacheBehaviors") <*>-      (obj .:? "Comment") <*>-      (obj .:? "CustomErrorResponses") <*>-      (obj .:? "DefaultCacheBehavior") <*>-      (obj .:? "DefaultRootObject") <*>-      fmap (fmap unBool') (obj .: "Enabled") <*>-      (obj .:? "HttpVersion") <*>-      fmap (fmap (fmap unBool')) (obj .:? "IPV6Enabled") <*>-      (obj .:? "Logging") <*>-      (obj .:? "Origins") <*>-      (obj .:? "PriceClass") <*>-      (obj .:? "Restrictions") <*>-      (obj .:? "ViewerCertificate") <*>-      (obj .:? "WebACLId")-  parseJSON _ = mempty- -- | Constructor for 'CloudFrontDistributionDistributionConfig' containing -- required fields as arguments. cloudFrontDistributionDistributionConfig
library-gen/Stratosphere/ResourceProperties/CloudFrontDistributionForwardedValues.hs view
@@ -30,15 +30,6 @@     , fmap (("QueryStringCacheKeys",) . toJSON) _cloudFrontDistributionForwardedValuesQueryStringCacheKeys     ] -instance FromJSON CloudFrontDistributionForwardedValues where-  parseJSON (Object obj) =-    CloudFrontDistributionForwardedValues <$>-      (obj .:? "Cookies") <*>-      (obj .:? "Headers") <*>-      fmap (fmap unBool') (obj .: "QueryString") <*>-      (obj .:? "QueryStringCacheKeys")-  parseJSON _ = mempty- -- | Constructor for 'CloudFrontDistributionForwardedValues' containing -- required fields as arguments. cloudFrontDistributionForwardedValues
library-gen/Stratosphere/ResourceProperties/CloudFrontDistributionGeoRestriction.hs view
@@ -25,13 +25,6 @@     , (Just . ("RestrictionType",) . toJSON) _cloudFrontDistributionGeoRestrictionRestrictionType     ] -instance FromJSON CloudFrontDistributionGeoRestriction where-  parseJSON (Object obj) =-    CloudFrontDistributionGeoRestriction <$>-      (obj .:? "Locations") <*>-      (obj .: "RestrictionType")-  parseJSON _ = mempty- -- | Constructor for 'CloudFrontDistributionGeoRestriction' containing -- required fields as arguments. cloudFrontDistributionGeoRestriction
library-gen/Stratosphere/ResourceProperties/CloudFrontDistributionLambdaFunctionAssociation.hs view
@@ -27,13 +27,6 @@     , fmap (("LambdaFunctionARN",) . toJSON) _cloudFrontDistributionLambdaFunctionAssociationLambdaFunctionARN     ] -instance FromJSON CloudFrontDistributionLambdaFunctionAssociation where-  parseJSON (Object obj) =-    CloudFrontDistributionLambdaFunctionAssociation <$>-      (obj .:? "EventType") <*>-      (obj .:? "LambdaFunctionARN")-  parseJSON _ = mempty- -- | Constructor for 'CloudFrontDistributionLambdaFunctionAssociation' -- containing required fields as arguments. cloudFrontDistributionLambdaFunctionAssociation
library-gen/Stratosphere/ResourceProperties/CloudFrontDistributionLogging.hs view
@@ -27,14 +27,6 @@     , fmap (("Prefix",) . toJSON) _cloudFrontDistributionLoggingPrefix     ] -instance FromJSON CloudFrontDistributionLogging where-  parseJSON (Object obj) =-    CloudFrontDistributionLogging <$>-      (obj .: "Bucket") <*>-      fmap (fmap (fmap unBool')) (obj .:? "IncludeCookies") <*>-      (obj .:? "Prefix")-  parseJSON _ = mempty- -- | Constructor for 'CloudFrontDistributionLogging' containing required -- fields as arguments. cloudFrontDistributionLogging
library-gen/Stratosphere/ResourceProperties/CloudFrontDistributionOrigin.hs view
@@ -35,17 +35,6 @@     , fmap (("S3OriginConfig",) . toJSON) _cloudFrontDistributionOriginS3OriginConfig     ] -instance FromJSON CloudFrontDistributionOrigin where-  parseJSON (Object obj) =-    CloudFrontDistributionOrigin <$>-      (obj .:? "CustomOriginConfig") <*>-      (obj .: "DomainName") <*>-      (obj .: "Id") <*>-      (obj .:? "OriginCustomHeaders") <*>-      (obj .:? "OriginPath") <*>-      (obj .:? "S3OriginConfig")-  parseJSON _ = mempty- -- | Constructor for 'CloudFrontDistributionOrigin' containing required fields -- as arguments. cloudFrontDistributionOrigin
library-gen/Stratosphere/ResourceProperties/CloudFrontDistributionOriginCustomHeader.hs view
@@ -26,13 +26,6 @@     , (Just . ("HeaderValue",) . toJSON) _cloudFrontDistributionOriginCustomHeaderHeaderValue     ] -instance FromJSON CloudFrontDistributionOriginCustomHeader where-  parseJSON (Object obj) =-    CloudFrontDistributionOriginCustomHeader <$>-      (obj .: "HeaderName") <*>-      (obj .: "HeaderValue")-  parseJSON _ = mempty- -- | Constructor for 'CloudFrontDistributionOriginCustomHeader' containing -- required fields as arguments. cloudFrontDistributionOriginCustomHeader
library-gen/Stratosphere/ResourceProperties/CloudFrontDistributionRestrictions.hs view
@@ -23,12 +23,6 @@     [ (Just . ("GeoRestriction",) . toJSON) _cloudFrontDistributionRestrictionsGeoRestriction     ] -instance FromJSON CloudFrontDistributionRestrictions where-  parseJSON (Object obj) =-    CloudFrontDistributionRestrictions <$>-      (obj .: "GeoRestriction")-  parseJSON _ = mempty- -- | Constructor for 'CloudFrontDistributionRestrictions' containing required -- fields as arguments. cloudFrontDistributionRestrictions
library-gen/Stratosphere/ResourceProperties/CloudFrontDistributionS3OriginConfig.hs view
@@ -23,12 +23,6 @@     [ fmap (("OriginAccessIdentity",) . toJSON) _cloudFrontDistributionS3OriginConfigOriginAccessIdentity     ] -instance FromJSON CloudFrontDistributionS3OriginConfig where-  parseJSON (Object obj) =-    CloudFrontDistributionS3OriginConfig <$>-      (obj .:? "OriginAccessIdentity")-  parseJSON _ = mempty- -- | Constructor for 'CloudFrontDistributionS3OriginConfig' containing -- required fields as arguments. cloudFrontDistributionS3OriginConfig
library-gen/Stratosphere/ResourceProperties/CloudFrontDistributionViewerCertificate.hs view
@@ -32,16 +32,6 @@     , fmap (("SslSupportMethod",) . toJSON) _cloudFrontDistributionViewerCertificateSslSupportMethod     ] -instance FromJSON CloudFrontDistributionViewerCertificate where-  parseJSON (Object obj) =-    CloudFrontDistributionViewerCertificate <$>-      (obj .:? "AcmCertificateArn") <*>-      fmap (fmap (fmap unBool')) (obj .:? "CloudFrontDefaultCertificate") <*>-      (obj .:? "IamCertificateId") <*>-      (obj .:? "MinimumProtocolVersion") <*>-      (obj .:? "SslSupportMethod")-  parseJSON _ = mempty- -- | Constructor for 'CloudFrontDistributionViewerCertificate' containing -- required fields as arguments. cloudFrontDistributionViewerCertificate
library-gen/Stratosphere/ResourceProperties/CloudFrontStreamingDistributionLogging.hs view
@@ -28,14 +28,6 @@     , (Just . ("Prefix",) . toJSON) _cloudFrontStreamingDistributionLoggingPrefix     ] -instance FromJSON CloudFrontStreamingDistributionLogging where-  parseJSON (Object obj) =-    CloudFrontStreamingDistributionLogging <$>-      (obj .: "Bucket") <*>-      fmap (fmap unBool') (obj .: "Enabled") <*>-      (obj .: "Prefix")-  parseJSON _ = mempty- -- | Constructor for 'CloudFrontStreamingDistributionLogging' containing -- required fields as arguments. cloudFrontStreamingDistributionLogging
library-gen/Stratosphere/ResourceProperties/CloudFrontStreamingDistributionS3Origin.hs view
@@ -26,13 +26,6 @@     , (Just . ("OriginAccessIdentity",) . toJSON) _cloudFrontStreamingDistributionS3OriginOriginAccessIdentity     ] -instance FromJSON CloudFrontStreamingDistributionS3Origin where-  parseJSON (Object obj) =-    CloudFrontStreamingDistributionS3Origin <$>-      (obj .: "DomainName") <*>-      (obj .: "OriginAccessIdentity")-  parseJSON _ = mempty- -- | Constructor for 'CloudFrontStreamingDistributionS3Origin' containing -- required fields as arguments. cloudFrontStreamingDistributionS3Origin
library-gen/Stratosphere/ResourceProperties/CloudFrontStreamingDistributionStreamingDistributionConfig.hs view
@@ -39,18 +39,6 @@     , (Just . ("TrustedSigners",) . toJSON) _cloudFrontStreamingDistributionStreamingDistributionConfigTrustedSigners     ] -instance FromJSON CloudFrontStreamingDistributionStreamingDistributionConfig where-  parseJSON (Object obj) =-    CloudFrontStreamingDistributionStreamingDistributionConfig <$>-      (obj .:? "Aliases") <*>-      (obj .: "Comment") <*>-      fmap (fmap unBool') (obj .: "Enabled") <*>-      (obj .:? "Logging") <*>-      (obj .:? "PriceClass") <*>-      (obj .: "S3Origin") <*>-      (obj .: "TrustedSigners")-  parseJSON _ = mempty- -- | Constructor for -- 'CloudFrontStreamingDistributionStreamingDistributionConfig' containing -- required fields as arguments.
library-gen/Stratosphere/ResourceProperties/CloudFrontStreamingDistributionTrustedSigners.hs view
@@ -27,13 +27,6 @@     , (Just . ("Enabled",) . toJSON . fmap Bool') _cloudFrontStreamingDistributionTrustedSignersEnabled     ] -instance FromJSON CloudFrontStreamingDistributionTrustedSigners where-  parseJSON (Object obj) =-    CloudFrontStreamingDistributionTrustedSigners <$>-      (obj .:? "AwsAccountNumbers") <*>-      fmap (fmap unBool') (obj .: "Enabled")-  parseJSON _ = mempty- -- | Constructor for 'CloudFrontStreamingDistributionTrustedSigners' -- containing required fields as arguments. cloudFrontStreamingDistributionTrustedSigners
library-gen/Stratosphere/ResourceProperties/CloudTrailTrailDataResource.hs view
@@ -25,13 +25,6 @@     , fmap (("Values",) . toJSON) _cloudTrailTrailDataResourceValues     ] -instance FromJSON CloudTrailTrailDataResource where-  parseJSON (Object obj) =-    CloudTrailTrailDataResource <$>-      (obj .: "Type") <*>-      (obj .:? "Values")-  parseJSON _ = mempty- -- | Constructor for 'CloudTrailTrailDataResource' containing required fields -- as arguments. cloudTrailTrailDataResource
library-gen/Stratosphere/ResourceProperties/CloudTrailTrailEventSelector.hs view
@@ -27,14 +27,6 @@     , fmap (("ReadWriteType",) . toJSON) _cloudTrailTrailEventSelectorReadWriteType     ] -instance FromJSON CloudTrailTrailEventSelector where-  parseJSON (Object obj) =-    CloudTrailTrailEventSelector <$>-      (obj .:? "DataResources") <*>-      fmap (fmap (fmap unBool')) (obj .:? "IncludeManagementEvents") <*>-      (obj .:? "ReadWriteType")-  parseJSON _ = mempty- -- | Constructor for 'CloudTrailTrailEventSelector' containing required fields -- as arguments. cloudTrailTrailEventSelector
library-gen/Stratosphere/ResourceProperties/CloudWatchAlarmDimension.hs view
@@ -25,13 +25,6 @@     , (Just . ("Value",) . toJSON) _cloudWatchAlarmDimensionValue     ] -instance FromJSON CloudWatchAlarmDimension where-  parseJSON (Object obj) =-    CloudWatchAlarmDimension <$>-      (obj .: "Name") <*>-      (obj .: "Value")-  parseJSON _ = mempty- -- | Constructor for 'CloudWatchAlarmDimension' containing required fields as -- arguments. cloudWatchAlarmDimension
library-gen/Stratosphere/ResourceProperties/CloudWatchAlarmMetric.hs view
@@ -27,14 +27,6 @@     , fmap (("Namespace",) . toJSON) _cloudWatchAlarmMetricNamespace     ] -instance FromJSON CloudWatchAlarmMetric where-  parseJSON (Object obj) =-    CloudWatchAlarmMetric <$>-      (obj .:? "Dimensions") <*>-      (obj .:? "MetricName") <*>-      (obj .:? "Namespace")-  parseJSON _ = mempty- -- | Constructor for 'CloudWatchAlarmMetric' containing required fields as -- arguments. cloudWatchAlarmMetric
library-gen/Stratosphere/ResourceProperties/CloudWatchAlarmMetricDataQuery.hs view
@@ -31,16 +31,6 @@     , fmap (("ReturnData",) . toJSON . fmap Bool') _cloudWatchAlarmMetricDataQueryReturnData     ] -instance FromJSON CloudWatchAlarmMetricDataQuery where-  parseJSON (Object obj) =-    CloudWatchAlarmMetricDataQuery <$>-      (obj .:? "Expression") <*>-      (obj .: "Id") <*>-      (obj .:? "Label") <*>-      (obj .:? "MetricStat") <*>-      fmap (fmap (fmap unBool')) (obj .:? "ReturnData")-  parseJSON _ = mempty- -- | Constructor for 'CloudWatchAlarmMetricDataQuery' containing required -- fields as arguments. cloudWatchAlarmMetricDataQuery
library-gen/Stratosphere/ResourceProperties/CloudWatchAlarmMetricStat.hs view
@@ -29,15 +29,6 @@     , fmap (("Unit",) . toJSON) _cloudWatchAlarmMetricStatUnit     ] -instance FromJSON CloudWatchAlarmMetricStat where-  parseJSON (Object obj) =-    CloudWatchAlarmMetricStat <$>-      (obj .: "Metric") <*>-      fmap (fmap unInteger') (obj .: "Period") <*>-      (obj .: "Stat") <*>-      (obj .:? "Unit")-  parseJSON _ = mempty- -- | Constructor for 'CloudWatchAlarmMetricStat' containing required fields as -- arguments. cloudWatchAlarmMetricStat
library-gen/Stratosphere/ResourceProperties/CodeBuildProjectArtifacts.hs view
@@ -39,20 +39,6 @@     , (Just . ("Type",) . toJSON) _codeBuildProjectArtifactsType     ] -instance FromJSON CodeBuildProjectArtifacts where-  parseJSON (Object obj) =-    CodeBuildProjectArtifacts <$>-      (obj .:? "ArtifactIdentifier") <*>-      fmap (fmap (fmap unBool')) (obj .:? "EncryptionDisabled") <*>-      (obj .:? "Location") <*>-      (obj .:? "Name") <*>-      (obj .:? "NamespaceType") <*>-      fmap (fmap (fmap unBool')) (obj .:? "OverrideArtifactName") <*>-      (obj .:? "Packaging") <*>-      (obj .:? "Path") <*>-      (obj .: "Type")-  parseJSON _ = mempty- -- | Constructor for 'CodeBuildProjectArtifacts' containing required fields as -- arguments. codeBuildProjectArtifacts
library-gen/Stratosphere/ResourceProperties/CodeBuildProjectCloudWatchLogsConfig.hs view
@@ -27,14 +27,6 @@     , fmap (("StreamName",) . toJSON) _codeBuildProjectCloudWatchLogsConfigStreamName     ] -instance FromJSON CodeBuildProjectCloudWatchLogsConfig where-  parseJSON (Object obj) =-    CodeBuildProjectCloudWatchLogsConfig <$>-      (obj .:? "GroupName") <*>-      (obj .: "Status") <*>-      (obj .:? "StreamName")-  parseJSON _ = mempty- -- | Constructor for 'CodeBuildProjectCloudWatchLogsConfig' containing -- required fields as arguments. codeBuildProjectCloudWatchLogsConfig
library-gen/Stratosphere/ResourceProperties/CodeBuildProjectEnvironment.hs view
@@ -38,19 +38,6 @@     , (Just . ("Type",) . toJSON) _codeBuildProjectEnvironmentType     ] -instance FromJSON CodeBuildProjectEnvironment where-  parseJSON (Object obj) =-    CodeBuildProjectEnvironment <$>-      (obj .:? "Certificate") <*>-      (obj .: "ComputeType") <*>-      (obj .:? "EnvironmentVariables") <*>-      (obj .: "Image") <*>-      (obj .:? "ImagePullCredentialsType") <*>-      fmap (fmap (fmap unBool')) (obj .:? "PrivilegedMode") <*>-      (obj .:? "RegistryCredential") <*>-      (obj .: "Type")-  parseJSON _ = mempty- -- | Constructor for 'CodeBuildProjectEnvironment' containing required fields -- as arguments. codeBuildProjectEnvironment
library-gen/Stratosphere/ResourceProperties/CodeBuildProjectEnvironmentVariable.hs view
@@ -27,14 +27,6 @@     , (Just . ("Value",) . toJSON) _codeBuildProjectEnvironmentVariableValue     ] -instance FromJSON CodeBuildProjectEnvironmentVariable where-  parseJSON (Object obj) =-    CodeBuildProjectEnvironmentVariable <$>-      (obj .: "Name") <*>-      (obj .:? "Type") <*>-      (obj .: "Value")-  parseJSON _ = mempty- -- | Constructor for 'CodeBuildProjectEnvironmentVariable' containing required -- fields as arguments. codeBuildProjectEnvironmentVariable
library-gen/Stratosphere/ResourceProperties/CodeBuildProjectLogsConfig.hs view
@@ -26,13 +26,6 @@     , fmap (("S3Logs",) . toJSON) _codeBuildProjectLogsConfigS3Logs     ] -instance FromJSON CodeBuildProjectLogsConfig where-  parseJSON (Object obj) =-    CodeBuildProjectLogsConfig <$>-      (obj .:? "CloudWatchLogs") <*>-      (obj .:? "S3Logs")-  parseJSON _ = mempty- -- | Constructor for 'CodeBuildProjectLogsConfig' containing required fields -- as arguments. codeBuildProjectLogsConfig
library-gen/Stratosphere/ResourceProperties/CodeBuildProjectProjectCache.hs view
@@ -27,14 +27,6 @@     , (Just . ("Type",) . toJSON) _codeBuildProjectProjectCacheType     ] -instance FromJSON CodeBuildProjectProjectCache where-  parseJSON (Object obj) =-    CodeBuildProjectProjectCache <$>-      (obj .:? "Location") <*>-      (obj .:? "Modes") <*>-      (obj .: "Type")-  parseJSON _ = mempty- -- | Constructor for 'CodeBuildProjectProjectCache' containing required fields -- as arguments. codeBuildProjectProjectCache
library-gen/Stratosphere/ResourceProperties/CodeBuildProjectProjectTriggers.hs view
@@ -23,12 +23,6 @@     [ fmap (("Webhook",) . toJSON . fmap Bool') _codeBuildProjectProjectTriggersWebhook     ] -instance FromJSON CodeBuildProjectProjectTriggers where-  parseJSON (Object obj) =-    CodeBuildProjectProjectTriggers <$>-      fmap (fmap (fmap unBool')) (obj .:? "Webhook")-  parseJSON _ = mempty- -- | Constructor for 'CodeBuildProjectProjectTriggers' containing required -- fields as arguments. codeBuildProjectProjectTriggers
library-gen/Stratosphere/ResourceProperties/CodeBuildProjectRegistryCredential.hs view
@@ -25,13 +25,6 @@     , (Just . ("CredentialProvider",) . toJSON) _codeBuildProjectRegistryCredentialCredentialProvider     ] -instance FromJSON CodeBuildProjectRegistryCredential where-  parseJSON (Object obj) =-    CodeBuildProjectRegistryCredential <$>-      (obj .: "Credential") <*>-      (obj .: "CredentialProvider")-  parseJSON _ = mempty- -- | Constructor for 'CodeBuildProjectRegistryCredential' containing required -- fields as arguments. codeBuildProjectRegistryCredential
library-gen/Stratosphere/ResourceProperties/CodeBuildProjectS3LogsConfig.hs view
@@ -25,13 +25,6 @@     , (Just . ("Status",) . toJSON) _codeBuildProjectS3LogsConfigStatus     ] -instance FromJSON CodeBuildProjectS3LogsConfig where-  parseJSON (Object obj) =-    CodeBuildProjectS3LogsConfig <$>-      (obj .:? "Location") <*>-      (obj .: "Status")-  parseJSON _ = mempty- -- | Constructor for 'CodeBuildProjectS3LogsConfig' containing required fields -- as arguments. codeBuildProjectS3LogsConfig
library-gen/Stratosphere/ResourceProperties/CodeBuildProjectSource.hs view
@@ -37,19 +37,6 @@     , (Just . ("Type",) . toJSON) _codeBuildProjectSourceType     ] -instance FromJSON CodeBuildProjectSource where-  parseJSON (Object obj) =-    CodeBuildProjectSource <$>-      (obj .:? "Auth") <*>-      (obj .:? "BuildSpec") <*>-      fmap (fmap (fmap unInteger')) (obj .:? "GitCloneDepth") <*>-      fmap (fmap (fmap unBool')) (obj .:? "InsecureSsl") <*>-      (obj .:? "Location") <*>-      fmap (fmap (fmap unBool')) (obj .:? "ReportBuildStatus") <*>-      (obj .:? "SourceIdentifier") <*>-      (obj .: "Type")-  parseJSON _ = mempty- -- | Constructor for 'CodeBuildProjectSource' containing required fields as -- arguments. codeBuildProjectSource
library-gen/Stratosphere/ResourceProperties/CodeBuildProjectSourceAuth.hs view
@@ -25,13 +25,6 @@     , (Just . ("Type",) . toJSON) _codeBuildProjectSourceAuthType     ] -instance FromJSON CodeBuildProjectSourceAuth where-  parseJSON (Object obj) =-    CodeBuildProjectSourceAuth <$>-      (obj .:? "Resource") <*>-      (obj .: "Type")-  parseJSON _ = mempty- -- | Constructor for 'CodeBuildProjectSourceAuth' containing required fields -- as arguments. codeBuildProjectSourceAuth
library-gen/Stratosphere/ResourceProperties/CodeBuildProjectVpcConfig.hs view
@@ -27,14 +27,6 @@     , fmap (("VpcId",) . toJSON) _codeBuildProjectVpcConfigVpcId     ] -instance FromJSON CodeBuildProjectVpcConfig where-  parseJSON (Object obj) =-    CodeBuildProjectVpcConfig <$>-      (obj .:? "SecurityGroupIds") <*>-      (obj .:? "Subnets") <*>-      (obj .:? "VpcId")-  parseJSON _ = mempty- -- | Constructor for 'CodeBuildProjectVpcConfig' containing required fields as -- arguments. codeBuildProjectVpcConfig
library-gen/Stratosphere/ResourceProperties/CodeBuildProjectWebhookFilter.hs view
@@ -27,14 +27,6 @@     , (Just . ("Type",) . toJSON) _codeBuildProjectWebhookFilterType     ] -instance FromJSON CodeBuildProjectWebhookFilter where-  parseJSON (Object obj) =-    CodeBuildProjectWebhookFilter <$>-      fmap (fmap (fmap unBool')) (obj .:? "ExcludeMatchedPattern") <*>-      (obj .: "Pattern") <*>-      (obj .: "Type")-  parseJSON _ = mempty- -- | Constructor for 'CodeBuildProjectWebhookFilter' containing required -- fields as arguments. codeBuildProjectWebhookFilter
library-gen/Stratosphere/ResourceProperties/CodeCommitRepositoryRepositoryTrigger.hs view
@@ -32,16 +32,6 @@     , fmap (("Name",) . toJSON) _codeCommitRepositoryRepositoryTriggerName     ] -instance FromJSON CodeCommitRepositoryRepositoryTrigger where-  parseJSON (Object obj) =-    CodeCommitRepositoryRepositoryTrigger <$>-      (obj .:? "Branches") <*>-      (obj .:? "CustomData") <*>-      (obj .:? "DestinationArn") <*>-      (obj .:? "Events") <*>-      (obj .:? "Name")-  parseJSON _ = mempty- -- | Constructor for 'CodeCommitRepositoryRepositoryTrigger' containing -- required fields as arguments. codeCommitRepositoryRepositoryTrigger
library-gen/Stratosphere/ResourceProperties/CodeDeployDeploymentConfigMinimumHealthyHosts.hs view
@@ -27,13 +27,6 @@     , (Just . ("Value",) . toJSON . fmap Integer') _codeDeployDeploymentConfigMinimumHealthyHostsValue     ] -instance FromJSON CodeDeployDeploymentConfigMinimumHealthyHosts where-  parseJSON (Object obj) =-    CodeDeployDeploymentConfigMinimumHealthyHosts <$>-      (obj .: "Type") <*>-      fmap (fmap unInteger') (obj .: "Value")-  parseJSON _ = mempty- -- | Constructor for 'CodeDeployDeploymentConfigMinimumHealthyHosts' -- containing required fields as arguments. codeDeployDeploymentConfigMinimumHealthyHosts
library-gen/Stratosphere/ResourceProperties/CodeDeployDeploymentGroupAlarm.hs view
@@ -23,12 +23,6 @@     [ fmap (("Name",) . toJSON) _codeDeployDeploymentGroupAlarmName     ] -instance FromJSON CodeDeployDeploymentGroupAlarm where-  parseJSON (Object obj) =-    CodeDeployDeploymentGroupAlarm <$>-      (obj .:? "Name")-  parseJSON _ = mempty- -- | Constructor for 'CodeDeployDeploymentGroupAlarm' containing required -- fields as arguments. codeDeployDeploymentGroupAlarm
library-gen/Stratosphere/ResourceProperties/CodeDeployDeploymentGroupAlarmConfiguration.hs view
@@ -29,14 +29,6 @@     , fmap (("IgnorePollAlarmFailure",) . toJSON . fmap Bool') _codeDeployDeploymentGroupAlarmConfigurationIgnorePollAlarmFailure     ] -instance FromJSON CodeDeployDeploymentGroupAlarmConfiguration where-  parseJSON (Object obj) =-    CodeDeployDeploymentGroupAlarmConfiguration <$>-      (obj .:? "Alarms") <*>-      fmap (fmap (fmap unBool')) (obj .:? "Enabled") <*>-      fmap (fmap (fmap unBool')) (obj .:? "IgnorePollAlarmFailure")-  parseJSON _ = mempty- -- | Constructor for 'CodeDeployDeploymentGroupAlarmConfiguration' containing -- required fields as arguments. codeDeployDeploymentGroupAlarmConfiguration
library-gen/Stratosphere/ResourceProperties/CodeDeployDeploymentGroupAutoRollbackConfiguration.hs view
@@ -27,13 +27,6 @@     , fmap (("Events",) . toJSON) _codeDeployDeploymentGroupAutoRollbackConfigurationEvents     ] -instance FromJSON CodeDeployDeploymentGroupAutoRollbackConfiguration where-  parseJSON (Object obj) =-    CodeDeployDeploymentGroupAutoRollbackConfiguration <$>-      fmap (fmap (fmap unBool')) (obj .:? "Enabled") <*>-      (obj .:? "Events")-  parseJSON _ = mempty- -- | Constructor for 'CodeDeployDeploymentGroupAutoRollbackConfiguration' -- containing required fields as arguments. codeDeployDeploymentGroupAutoRollbackConfiguration
library-gen/Stratosphere/ResourceProperties/CodeDeployDeploymentGroupDeployment.hs view
@@ -27,14 +27,6 @@     , (Just . ("Revision",) . toJSON) _codeDeployDeploymentGroupDeploymentRevision     ] -instance FromJSON CodeDeployDeploymentGroupDeployment where-  parseJSON (Object obj) =-    CodeDeployDeploymentGroupDeployment <$>-      (obj .:? "Description") <*>-      fmap (fmap (fmap unBool')) (obj .:? "IgnoreApplicationStopFailures") <*>-      (obj .: "Revision")-  parseJSON _ = mempty- -- | Constructor for 'CodeDeployDeploymentGroupDeployment' containing required -- fields as arguments. codeDeployDeploymentGroupDeployment
library-gen/Stratosphere/ResourceProperties/CodeDeployDeploymentGroupDeploymentStyle.hs view
@@ -26,13 +26,6 @@     , fmap (("DeploymentType",) . toJSON) _codeDeployDeploymentGroupDeploymentStyleDeploymentType     ] -instance FromJSON CodeDeployDeploymentGroupDeploymentStyle where-  parseJSON (Object obj) =-    CodeDeployDeploymentGroupDeploymentStyle <$>-      (obj .:? "DeploymentOption") <*>-      (obj .:? "DeploymentType")-  parseJSON _ = mempty- -- | Constructor for 'CodeDeployDeploymentGroupDeploymentStyle' containing -- required fields as arguments. codeDeployDeploymentGroupDeploymentStyle
library-gen/Stratosphere/ResourceProperties/CodeDeployDeploymentGroupEC2TagFilter.hs view
@@ -28,14 +28,6 @@     , fmap (("Value",) . toJSON) _codeDeployDeploymentGroupEC2TagFilterValue     ] -instance FromJSON CodeDeployDeploymentGroupEC2TagFilter where-  parseJSON (Object obj) =-    CodeDeployDeploymentGroupEC2TagFilter <$>-      (obj .:? "Key") <*>-      (obj .:? "Type") <*>-      (obj .:? "Value")-  parseJSON _ = mempty- -- | Constructor for 'CodeDeployDeploymentGroupEC2TagFilter' containing -- required fields as arguments. codeDeployDeploymentGroupEC2TagFilter
library-gen/Stratosphere/ResourceProperties/CodeDeployDeploymentGroupEC2TagSet.hs view
@@ -23,12 +23,6 @@     [ fmap (("Ec2TagSetList",) . toJSON) _codeDeployDeploymentGroupEC2TagSetEc2TagSetList     ] -instance FromJSON CodeDeployDeploymentGroupEC2TagSet where-  parseJSON (Object obj) =-    CodeDeployDeploymentGroupEC2TagSet <$>-      (obj .:? "Ec2TagSetList")-  parseJSON _ = mempty- -- | Constructor for 'CodeDeployDeploymentGroupEC2TagSet' containing required -- fields as arguments. codeDeployDeploymentGroupEC2TagSet
library-gen/Stratosphere/ResourceProperties/CodeDeployDeploymentGroupEC2TagSetListObject.hs view
@@ -25,12 +25,6 @@     [ fmap (("Ec2TagGroup",) . toJSON) _codeDeployDeploymentGroupEC2TagSetListObjectEc2TagGroup     ] -instance FromJSON CodeDeployDeploymentGroupEC2TagSetListObject where-  parseJSON (Object obj) =-    CodeDeployDeploymentGroupEC2TagSetListObject <$>-      (obj .:? "Ec2TagGroup")-  parseJSON _ = mempty- -- | Constructor for 'CodeDeployDeploymentGroupEC2TagSetListObject' containing -- required fields as arguments. codeDeployDeploymentGroupEC2TagSetListObject
library-gen/Stratosphere/ResourceProperties/CodeDeployDeploymentGroupELBInfo.hs view
@@ -23,12 +23,6 @@     [ fmap (("Name",) . toJSON) _codeDeployDeploymentGroupELBInfoName     ] -instance FromJSON CodeDeployDeploymentGroupELBInfo where-  parseJSON (Object obj) =-    CodeDeployDeploymentGroupELBInfo <$>-      (obj .:? "Name")-  parseJSON _ = mempty- -- | Constructor for 'CodeDeployDeploymentGroupELBInfo' containing required -- fields as arguments. codeDeployDeploymentGroupELBInfo
library-gen/Stratosphere/ResourceProperties/CodeDeployDeploymentGroupGitHubLocation.hs view
@@ -26,13 +26,6 @@     , (Just . ("Repository",) . toJSON) _codeDeployDeploymentGroupGitHubLocationRepository     ] -instance FromJSON CodeDeployDeploymentGroupGitHubLocation where-  parseJSON (Object obj) =-    CodeDeployDeploymentGroupGitHubLocation <$>-      (obj .: "CommitId") <*>-      (obj .: "Repository")-  parseJSON _ = mempty- -- | Constructor for 'CodeDeployDeploymentGroupGitHubLocation' containing -- required fields as arguments. codeDeployDeploymentGroupGitHubLocation
library-gen/Stratosphere/ResourceProperties/CodeDeployDeploymentGroupLoadBalancerInfo.hs view
@@ -27,13 +27,6 @@     , fmap (("TargetGroupInfoList",) . toJSON) _codeDeployDeploymentGroupLoadBalancerInfoTargetGroupInfoList     ] -instance FromJSON CodeDeployDeploymentGroupLoadBalancerInfo where-  parseJSON (Object obj) =-    CodeDeployDeploymentGroupLoadBalancerInfo <$>-      (obj .:? "ElbInfoList") <*>-      (obj .:? "TargetGroupInfoList")-  parseJSON _ = mempty- -- | Constructor for 'CodeDeployDeploymentGroupLoadBalancerInfo' containing -- required fields as arguments. codeDeployDeploymentGroupLoadBalancerInfo
library-gen/Stratosphere/ResourceProperties/CodeDeployDeploymentGroupOnPremisesTagSet.hs view
@@ -24,12 +24,6 @@     [ fmap (("OnPremisesTagSetList",) . toJSON) _codeDeployDeploymentGroupOnPremisesTagSetOnPremisesTagSetList     ] -instance FromJSON CodeDeployDeploymentGroupOnPremisesTagSet where-  parseJSON (Object obj) =-    CodeDeployDeploymentGroupOnPremisesTagSet <$>-      (obj .:? "OnPremisesTagSetList")-  parseJSON _ = mempty- -- | Constructor for 'CodeDeployDeploymentGroupOnPremisesTagSet' containing -- required fields as arguments. codeDeployDeploymentGroupOnPremisesTagSet
library-gen/Stratosphere/ResourceProperties/CodeDeployDeploymentGroupOnPremisesTagSetListObject.hs view
@@ -25,12 +25,6 @@     [ fmap (("OnPremisesTagGroup",) . toJSON) _codeDeployDeploymentGroupOnPremisesTagSetListObjectOnPremisesTagGroup     ] -instance FromJSON CodeDeployDeploymentGroupOnPremisesTagSetListObject where-  parseJSON (Object obj) =-    CodeDeployDeploymentGroupOnPremisesTagSetListObject <$>-      (obj .:? "OnPremisesTagGroup")-  parseJSON _ = mempty- -- | Constructor for 'CodeDeployDeploymentGroupOnPremisesTagSetListObject' -- containing required fields as arguments. codeDeployDeploymentGroupOnPremisesTagSetListObject
library-gen/Stratosphere/ResourceProperties/CodeDeployDeploymentGroupRevisionLocation.hs view
@@ -29,14 +29,6 @@     , fmap (("S3Location",) . toJSON) _codeDeployDeploymentGroupRevisionLocationS3Location     ] -instance FromJSON CodeDeployDeploymentGroupRevisionLocation where-  parseJSON (Object obj) =-    CodeDeployDeploymentGroupRevisionLocation <$>-      (obj .:? "GitHubLocation") <*>-      (obj .:? "RevisionType") <*>-      (obj .:? "S3Location")-  parseJSON _ = mempty- -- | Constructor for 'CodeDeployDeploymentGroupRevisionLocation' containing -- required fields as arguments. codeDeployDeploymentGroupRevisionLocation
library-gen/Stratosphere/ResourceProperties/CodeDeployDeploymentGroupS3Location.hs view
@@ -31,16 +31,6 @@     , fmap (("Version",) . toJSON) _codeDeployDeploymentGroupS3LocationVersion     ] -instance FromJSON CodeDeployDeploymentGroupS3Location where-  parseJSON (Object obj) =-    CodeDeployDeploymentGroupS3Location <$>-      (obj .: "Bucket") <*>-      (obj .:? "BundleType") <*>-      (obj .:? "ETag") <*>-      (obj .: "Key") <*>-      (obj .:? "Version")-  parseJSON _ = mempty- -- | Constructor for 'CodeDeployDeploymentGroupS3Location' containing required -- fields as arguments. codeDeployDeploymentGroupS3Location
library-gen/Stratosphere/ResourceProperties/CodeDeployDeploymentGroupTagFilter.hs view
@@ -27,14 +27,6 @@     , fmap (("Value",) . toJSON) _codeDeployDeploymentGroupTagFilterValue     ] -instance FromJSON CodeDeployDeploymentGroupTagFilter where-  parseJSON (Object obj) =-    CodeDeployDeploymentGroupTagFilter <$>-      (obj .:? "Key") <*>-      (obj .:? "Type") <*>-      (obj .:? "Value")-  parseJSON _ = mempty- -- | Constructor for 'CodeDeployDeploymentGroupTagFilter' containing required -- fields as arguments. codeDeployDeploymentGroupTagFilter
library-gen/Stratosphere/ResourceProperties/CodeDeployDeploymentGroupTargetGroupInfo.hs view
@@ -24,12 +24,6 @@     [ fmap (("Name",) . toJSON) _codeDeployDeploymentGroupTargetGroupInfoName     ] -instance FromJSON CodeDeployDeploymentGroupTargetGroupInfo where-  parseJSON (Object obj) =-    CodeDeployDeploymentGroupTargetGroupInfo <$>-      (obj .:? "Name")-  parseJSON _ = mempty- -- | Constructor for 'CodeDeployDeploymentGroupTargetGroupInfo' containing -- required fields as arguments. codeDeployDeploymentGroupTargetGroupInfo
library-gen/Stratosphere/ResourceProperties/CodeDeployDeploymentGroupTriggerConfig.hs view
@@ -28,14 +28,6 @@     , fmap (("TriggerTargetArn",) . toJSON) _codeDeployDeploymentGroupTriggerConfigTriggerTargetArn     ] -instance FromJSON CodeDeployDeploymentGroupTriggerConfig where-  parseJSON (Object obj) =-    CodeDeployDeploymentGroupTriggerConfig <$>-      (obj .:? "TriggerEvents") <*>-      (obj .:? "TriggerName") <*>-      (obj .:? "TriggerTargetArn")-  parseJSON _ = mempty- -- | Constructor for 'CodeDeployDeploymentGroupTriggerConfig' containing -- required fields as arguments. codeDeployDeploymentGroupTriggerConfig
library-gen/Stratosphere/ResourceProperties/CodePipelineCustomActionTypeArtifactDetails.hs view
@@ -27,13 +27,6 @@     , (Just . ("MinimumCount",) . toJSON . fmap Integer') _codePipelineCustomActionTypeArtifactDetailsMinimumCount     ] -instance FromJSON CodePipelineCustomActionTypeArtifactDetails where-  parseJSON (Object obj) =-    CodePipelineCustomActionTypeArtifactDetails <$>-      fmap (fmap unInteger') (obj .: "MaximumCount") <*>-      fmap (fmap unInteger') (obj .: "MinimumCount")-  parseJSON _ = mempty- -- | Constructor for 'CodePipelineCustomActionTypeArtifactDetails' containing -- required fields as arguments. codePipelineCustomActionTypeArtifactDetails
library-gen/Stratosphere/ResourceProperties/CodePipelineCustomActionTypeConfigurationProperties.hs view
@@ -37,18 +37,6 @@     , fmap (("Type",) . toJSON) _codePipelineCustomActionTypeConfigurationPropertiesType     ] -instance FromJSON CodePipelineCustomActionTypeConfigurationProperties where-  parseJSON (Object obj) =-    CodePipelineCustomActionTypeConfigurationProperties <$>-      (obj .:? "Description") <*>-      fmap (fmap unBool') (obj .: "Key") <*>-      (obj .: "Name") <*>-      fmap (fmap (fmap unBool')) (obj .:? "Queryable") <*>-      fmap (fmap unBool') (obj .: "Required") <*>-      fmap (fmap unBool') (obj .: "Secret") <*>-      (obj .:? "Type")-  parseJSON _ = mempty- -- | Constructor for 'CodePipelineCustomActionTypeConfigurationProperties' -- containing required fields as arguments. codePipelineCustomActionTypeConfigurationProperties
library-gen/Stratosphere/ResourceProperties/CodePipelineCustomActionTypeSettings.hs view
@@ -29,15 +29,6 @@     , fmap (("ThirdPartyConfigurationUrl",) . toJSON) _codePipelineCustomActionTypeSettingsThirdPartyConfigurationUrl     ] -instance FromJSON CodePipelineCustomActionTypeSettings where-  parseJSON (Object obj) =-    CodePipelineCustomActionTypeSettings <$>-      (obj .:? "EntityUrlTemplate") <*>-      (obj .:? "ExecutionUrlTemplate") <*>-      (obj .:? "RevisionUrlTemplate") <*>-      (obj .:? "ThirdPartyConfigurationUrl")-  parseJSON _ = mempty- -- | Constructor for 'CodePipelineCustomActionTypeSettings' containing -- required fields as arguments. codePipelineCustomActionTypeSettings
library-gen/Stratosphere/ResourceProperties/CodePipelinePipelineActionDeclaration.hs view
@@ -40,19 +40,6 @@     , fmap (("RunOrder",) . toJSON . fmap Integer') _codePipelinePipelineActionDeclarationRunOrder     ] -instance FromJSON CodePipelinePipelineActionDeclaration where-  parseJSON (Object obj) =-    CodePipelinePipelineActionDeclaration <$>-      (obj .: "ActionTypeId") <*>-      (obj .:? "Configuration") <*>-      (obj .:? "InputArtifacts") <*>-      (obj .: "Name") <*>-      (obj .:? "OutputArtifacts") <*>-      (obj .:? "Region") <*>-      (obj .:? "RoleArn") <*>-      fmap (fmap (fmap unInteger')) (obj .:? "RunOrder")-  parseJSON _ = mempty- -- | Constructor for 'CodePipelinePipelineActionDeclaration' containing -- required fields as arguments. codePipelinePipelineActionDeclaration
library-gen/Stratosphere/ResourceProperties/CodePipelinePipelineActionTypeId.hs view
@@ -29,15 +29,6 @@     , (Just . ("Version",) . toJSON) _codePipelinePipelineActionTypeIdVersion     ] -instance FromJSON CodePipelinePipelineActionTypeId where-  parseJSON (Object obj) =-    CodePipelinePipelineActionTypeId <$>-      (obj .: "Category") <*>-      (obj .: "Owner") <*>-      (obj .: "Provider") <*>-      (obj .: "Version")-  parseJSON _ = mempty- -- | Constructor for 'CodePipelinePipelineActionTypeId' containing required -- fields as arguments. codePipelinePipelineActionTypeId
library-gen/Stratosphere/ResourceProperties/CodePipelinePipelineArtifactStore.hs view
@@ -27,14 +27,6 @@     , (Just . ("Type",) . toJSON) _codePipelinePipelineArtifactStoreType     ] -instance FromJSON CodePipelinePipelineArtifactStore where-  parseJSON (Object obj) =-    CodePipelinePipelineArtifactStore <$>-      (obj .:? "EncryptionKey") <*>-      (obj .: "Location") <*>-      (obj .: "Type")-  parseJSON _ = mempty- -- | Constructor for 'CodePipelinePipelineArtifactStore' containing required -- fields as arguments. codePipelinePipelineArtifactStore
library-gen/Stratosphere/ResourceProperties/CodePipelinePipelineArtifactStoreMap.hs view
@@ -25,13 +25,6 @@     , (Just . ("Region",) . toJSON) _codePipelinePipelineArtifactStoreMapRegion     ] -instance FromJSON CodePipelinePipelineArtifactStoreMap where-  parseJSON (Object obj) =-    CodePipelinePipelineArtifactStoreMap <$>-      (obj .: "ArtifactStore") <*>-      (obj .: "Region")-  parseJSON _ = mempty- -- | Constructor for 'CodePipelinePipelineArtifactStoreMap' containing -- required fields as arguments. codePipelinePipelineArtifactStoreMap
library-gen/Stratosphere/ResourceProperties/CodePipelinePipelineBlockerDeclaration.hs view
@@ -26,13 +26,6 @@     , (Just . ("Type",) . toJSON) _codePipelinePipelineBlockerDeclarationType     ] -instance FromJSON CodePipelinePipelineBlockerDeclaration where-  parseJSON (Object obj) =-    CodePipelinePipelineBlockerDeclaration <$>-      (obj .: "Name") <*>-      (obj .: "Type")-  parseJSON _ = mempty- -- | Constructor for 'CodePipelinePipelineBlockerDeclaration' containing -- required fields as arguments. codePipelinePipelineBlockerDeclaration
library-gen/Stratosphere/ResourceProperties/CodePipelinePipelineEncryptionKey.hs view
@@ -25,13 +25,6 @@     , (Just . ("Type",) . toJSON) _codePipelinePipelineEncryptionKeyType     ] -instance FromJSON CodePipelinePipelineEncryptionKey where-  parseJSON (Object obj) =-    CodePipelinePipelineEncryptionKey <$>-      (obj .: "Id") <*>-      (obj .: "Type")-  parseJSON _ = mempty- -- | Constructor for 'CodePipelinePipelineEncryptionKey' containing required -- fields as arguments. codePipelinePipelineEncryptionKey
library-gen/Stratosphere/ResourceProperties/CodePipelinePipelineInputArtifact.hs view
@@ -23,12 +23,6 @@     [ (Just . ("Name",) . toJSON) _codePipelinePipelineInputArtifactName     ] -instance FromJSON CodePipelinePipelineInputArtifact where-  parseJSON (Object obj) =-    CodePipelinePipelineInputArtifact <$>-      (obj .: "Name")-  parseJSON _ = mempty- -- | Constructor for 'CodePipelinePipelineInputArtifact' containing required -- fields as arguments. codePipelinePipelineInputArtifact
library-gen/Stratosphere/ResourceProperties/CodePipelinePipelineOutputArtifact.hs view
@@ -23,12 +23,6 @@     [ (Just . ("Name",) . toJSON) _codePipelinePipelineOutputArtifactName     ] -instance FromJSON CodePipelinePipelineOutputArtifact where-  parseJSON (Object obj) =-    CodePipelinePipelineOutputArtifact <$>-      (obj .: "Name")-  parseJSON _ = mempty- -- | Constructor for 'CodePipelinePipelineOutputArtifact' containing required -- fields as arguments. codePipelinePipelineOutputArtifact
library-gen/Stratosphere/ResourceProperties/CodePipelinePipelineStageDeclaration.hs view
@@ -28,14 +28,6 @@     , (Just . ("Name",) . toJSON) _codePipelinePipelineStageDeclarationName     ] -instance FromJSON CodePipelinePipelineStageDeclaration where-  parseJSON (Object obj) =-    CodePipelinePipelineStageDeclaration <$>-      (obj .: "Actions") <*>-      (obj .:? "Blockers") <*>-      (obj .: "Name")-  parseJSON _ = mempty- -- | Constructor for 'CodePipelinePipelineStageDeclaration' containing -- required fields as arguments. codePipelinePipelineStageDeclaration
library-gen/Stratosphere/ResourceProperties/CodePipelinePipelineStageTransition.hs view
@@ -25,13 +25,6 @@     , (Just . ("StageName",) . toJSON) _codePipelinePipelineStageTransitionStageName     ] -instance FromJSON CodePipelinePipelineStageTransition where-  parseJSON (Object obj) =-    CodePipelinePipelineStageTransition <$>-      (obj .: "Reason") <*>-      (obj .: "StageName")-  parseJSON _ = mempty- -- | Constructor for 'CodePipelinePipelineStageTransition' containing required -- fields as arguments. codePipelinePipelineStageTransition
library-gen/Stratosphere/ResourceProperties/CodePipelineWebhookWebhookAuthConfiguration.hs view
@@ -27,13 +27,6 @@     , fmap (("SecretToken",) . toJSON) _codePipelineWebhookWebhookAuthConfigurationSecretToken     ] -instance FromJSON CodePipelineWebhookWebhookAuthConfiguration where-  parseJSON (Object obj) =-    CodePipelineWebhookWebhookAuthConfiguration <$>-      (obj .:? "AllowedIPRange") <*>-      (obj .:? "SecretToken")-  parseJSON _ = mempty- -- | Constructor for 'CodePipelineWebhookWebhookAuthConfiguration' containing -- required fields as arguments. codePipelineWebhookWebhookAuthConfiguration
library-gen/Stratosphere/ResourceProperties/CodePipelineWebhookWebhookFilterRule.hs view
@@ -25,13 +25,6 @@     , fmap (("MatchEquals",) . toJSON) _codePipelineWebhookWebhookFilterRuleMatchEquals     ] -instance FromJSON CodePipelineWebhookWebhookFilterRule where-  parseJSON (Object obj) =-    CodePipelineWebhookWebhookFilterRule <$>-      (obj .: "JsonPath") <*>-      (obj .:? "MatchEquals")-  parseJSON _ = mempty- -- | Constructor for 'CodePipelineWebhookWebhookFilterRule' containing -- required fields as arguments. codePipelineWebhookWebhookFilterRule
library-gen/Stratosphere/ResourceProperties/CognitoIdentityPoolCognitoIdentityProvider.hs view
@@ -28,14 +28,6 @@     , fmap (("ServerSideTokenCheck",) . toJSON . fmap Bool') _cognitoIdentityPoolCognitoIdentityProviderServerSideTokenCheck     ] -instance FromJSON CognitoIdentityPoolCognitoIdentityProvider where-  parseJSON (Object obj) =-    CognitoIdentityPoolCognitoIdentityProvider <$>-      (obj .:? "ClientId") <*>-      (obj .:? "ProviderName") <*>-      fmap (fmap (fmap unBool')) (obj .:? "ServerSideTokenCheck")-  parseJSON _ = mempty- -- | Constructor for 'CognitoIdentityPoolCognitoIdentityProvider' containing -- required fields as arguments. cognitoIdentityPoolCognitoIdentityProvider
library-gen/Stratosphere/ResourceProperties/CognitoIdentityPoolCognitoStreams.hs view
@@ -27,14 +27,6 @@     , fmap (("StreamingStatus",) . toJSON) _cognitoIdentityPoolCognitoStreamsStreamingStatus     ] -instance FromJSON CognitoIdentityPoolCognitoStreams where-  parseJSON (Object obj) =-    CognitoIdentityPoolCognitoStreams <$>-      (obj .:? "RoleArn") <*>-      (obj .:? "StreamName") <*>-      (obj .:? "StreamingStatus")-  parseJSON _ = mempty- -- | Constructor for 'CognitoIdentityPoolCognitoStreams' containing required -- fields as arguments. cognitoIdentityPoolCognitoStreams
library-gen/Stratosphere/ResourceProperties/CognitoIdentityPoolPushSync.hs view
@@ -25,13 +25,6 @@     , fmap (("RoleArn",) . toJSON) _cognitoIdentityPoolPushSyncRoleArn     ] -instance FromJSON CognitoIdentityPoolPushSync where-  parseJSON (Object obj) =-    CognitoIdentityPoolPushSync <$>-      (obj .:? "ApplicationArns") <*>-      (obj .:? "RoleArn")-  parseJSON _ = mempty- -- | Constructor for 'CognitoIdentityPoolPushSync' containing required fields -- as arguments. cognitoIdentityPoolPushSync
library-gen/Stratosphere/ResourceProperties/CognitoIdentityPoolRoleAttachmentMappingRule.hs view
@@ -31,15 +31,6 @@     , (Just . ("Value",) . toJSON) _cognitoIdentityPoolRoleAttachmentMappingRuleValue     ] -instance FromJSON CognitoIdentityPoolRoleAttachmentMappingRule where-  parseJSON (Object obj) =-    CognitoIdentityPoolRoleAttachmentMappingRule <$>-      (obj .: "Claim") <*>-      (obj .: "MatchType") <*>-      (obj .: "RoleARN") <*>-      (obj .: "Value")-  parseJSON _ = mempty- -- | Constructor for 'CognitoIdentityPoolRoleAttachmentMappingRule' containing -- required fields as arguments. cognitoIdentityPoolRoleAttachmentMappingRule
library-gen/Stratosphere/ResourceProperties/CognitoIdentityPoolRoleAttachmentRoleMapping.hs view
@@ -29,14 +29,6 @@     , (Just . ("Type",) . toJSON) _cognitoIdentityPoolRoleAttachmentRoleMappingType     ] -instance FromJSON CognitoIdentityPoolRoleAttachmentRoleMapping where-  parseJSON (Object obj) =-    CognitoIdentityPoolRoleAttachmentRoleMapping <$>-      (obj .:? "AmbiguousRoleResolution") <*>-      (obj .:? "RulesConfiguration") <*>-      (obj .: "Type")-  parseJSON _ = mempty- -- | Constructor for 'CognitoIdentityPoolRoleAttachmentRoleMapping' containing -- required fields as arguments. cognitoIdentityPoolRoleAttachmentRoleMapping
library-gen/Stratosphere/ResourceProperties/CognitoIdentityPoolRoleAttachmentRulesConfigurationType.hs view
@@ -25,12 +25,6 @@     [ (Just . ("Rules",) . toJSON) _cognitoIdentityPoolRoleAttachmentRulesConfigurationTypeRules     ] -instance FromJSON CognitoIdentityPoolRoleAttachmentRulesConfigurationType where-  parseJSON (Object obj) =-    CognitoIdentityPoolRoleAttachmentRulesConfigurationType <$>-      (obj .: "Rules")-  parseJSON _ = mempty- -- | Constructor for 'CognitoIdentityPoolRoleAttachmentRulesConfigurationType' -- containing required fields as arguments. cognitoIdentityPoolRoleAttachmentRulesConfigurationType
library-gen/Stratosphere/ResourceProperties/CognitoUserPoolAdminCreateUserConfig.hs view
@@ -27,14 +27,6 @@     , fmap (("UnusedAccountValidityDays",) . toJSON . fmap Double') _cognitoUserPoolAdminCreateUserConfigUnusedAccountValidityDays     ] -instance FromJSON CognitoUserPoolAdminCreateUserConfig where-  parseJSON (Object obj) =-    CognitoUserPoolAdminCreateUserConfig <$>-      fmap (fmap (fmap unBool')) (obj .:? "AllowAdminCreateUserOnly") <*>-      (obj .:? "InviteMessageTemplate") <*>-      fmap (fmap (fmap unDouble')) (obj .:? "UnusedAccountValidityDays")-  parseJSON _ = mempty- -- | Constructor for 'CognitoUserPoolAdminCreateUserConfig' containing -- required fields as arguments. cognitoUserPoolAdminCreateUserConfig
library-gen/Stratosphere/ResourceProperties/CognitoUserPoolDeviceConfiguration.hs view
@@ -25,13 +25,6 @@     , fmap (("DeviceOnlyRememberedOnUserPrompt",) . toJSON . fmap Bool') _cognitoUserPoolDeviceConfigurationDeviceOnlyRememberedOnUserPrompt     ] -instance FromJSON CognitoUserPoolDeviceConfiguration where-  parseJSON (Object obj) =-    CognitoUserPoolDeviceConfiguration <$>-      fmap (fmap (fmap unBool')) (obj .:? "ChallengeRequiredOnNewDevice") <*>-      fmap (fmap (fmap unBool')) (obj .:? "DeviceOnlyRememberedOnUserPrompt")-  parseJSON _ = mempty- -- | Constructor for 'CognitoUserPoolDeviceConfiguration' containing required -- fields as arguments. cognitoUserPoolDeviceConfiguration
library-gen/Stratosphere/ResourceProperties/CognitoUserPoolEmailConfiguration.hs view
@@ -25,13 +25,6 @@     , fmap (("SourceArn",) . toJSON) _cognitoUserPoolEmailConfigurationSourceArn     ] -instance FromJSON CognitoUserPoolEmailConfiguration where-  parseJSON (Object obj) =-    CognitoUserPoolEmailConfiguration <$>-      (obj .:? "ReplyToEmailAddress") <*>-      (obj .:? "SourceArn")-  parseJSON _ = mempty- -- | Constructor for 'CognitoUserPoolEmailConfiguration' containing required -- fields as arguments. cognitoUserPoolEmailConfiguration
library-gen/Stratosphere/ResourceProperties/CognitoUserPoolInviteMessageTemplate.hs view
@@ -27,14 +27,6 @@     , fmap (("SMSMessage",) . toJSON) _cognitoUserPoolInviteMessageTemplateSMSMessage     ] -instance FromJSON CognitoUserPoolInviteMessageTemplate where-  parseJSON (Object obj) =-    CognitoUserPoolInviteMessageTemplate <$>-      (obj .:? "EmailMessage") <*>-      (obj .:? "EmailSubject") <*>-      (obj .:? "SMSMessage")-  parseJSON _ = mempty- -- | Constructor for 'CognitoUserPoolInviteMessageTemplate' containing -- required fields as arguments. cognitoUserPoolInviteMessageTemplate
library-gen/Stratosphere/ResourceProperties/CognitoUserPoolLambdaConfig.hs view
@@ -37,19 +37,6 @@     , fmap (("VerifyAuthChallengeResponse",) . toJSON) _cognitoUserPoolLambdaConfigVerifyAuthChallengeResponse     ] -instance FromJSON CognitoUserPoolLambdaConfig where-  parseJSON (Object obj) =-    CognitoUserPoolLambdaConfig <$>-      (obj .:? "CreateAuthChallenge") <*>-      (obj .:? "CustomMessage") <*>-      (obj .:? "DefineAuthChallenge") <*>-      (obj .:? "PostAuthentication") <*>-      (obj .:? "PostConfirmation") <*>-      (obj .:? "PreAuthentication") <*>-      (obj .:? "PreSignUp") <*>-      (obj .:? "VerifyAuthChallengeResponse")-  parseJSON _ = mempty- -- | Constructor for 'CognitoUserPoolLambdaConfig' containing required fields -- as arguments. cognitoUserPoolLambdaConfig
library-gen/Stratosphere/ResourceProperties/CognitoUserPoolNumberAttributeConstraints.hs view
@@ -26,13 +26,6 @@     , fmap (("MinValue",) . toJSON) _cognitoUserPoolNumberAttributeConstraintsMinValue     ] -instance FromJSON CognitoUserPoolNumberAttributeConstraints where-  parseJSON (Object obj) =-    CognitoUserPoolNumberAttributeConstraints <$>-      (obj .:? "MaxValue") <*>-      (obj .:? "MinValue")-  parseJSON _ = mempty- -- | Constructor for 'CognitoUserPoolNumberAttributeConstraints' containing -- required fields as arguments. cognitoUserPoolNumberAttributeConstraints
library-gen/Stratosphere/ResourceProperties/CognitoUserPoolPasswordPolicy.hs view
@@ -31,16 +31,6 @@     , fmap (("RequireUppercase",) . toJSON . fmap Bool') _cognitoUserPoolPasswordPolicyRequireUppercase     ] -instance FromJSON CognitoUserPoolPasswordPolicy where-  parseJSON (Object obj) =-    CognitoUserPoolPasswordPolicy <$>-      fmap (fmap (fmap unInteger')) (obj .:? "MinimumLength") <*>-      fmap (fmap (fmap unBool')) (obj .:? "RequireLowercase") <*>-      fmap (fmap (fmap unBool')) (obj .:? "RequireNumbers") <*>-      fmap (fmap (fmap unBool')) (obj .:? "RequireSymbols") <*>-      fmap (fmap (fmap unBool')) (obj .:? "RequireUppercase")-  parseJSON _ = mempty- -- | Constructor for 'CognitoUserPoolPasswordPolicy' containing required -- fields as arguments. cognitoUserPoolPasswordPolicy
library-gen/Stratosphere/ResourceProperties/CognitoUserPoolPolicies.hs view
@@ -23,12 +23,6 @@     [ fmap (("PasswordPolicy",) . toJSON) _cognitoUserPoolPoliciesPasswordPolicy     ] -instance FromJSON CognitoUserPoolPolicies where-  parseJSON (Object obj) =-    CognitoUserPoolPolicies <$>-      (obj .:? "PasswordPolicy")-  parseJSON _ = mempty- -- | Constructor for 'CognitoUserPoolPolicies' containing required fields as -- arguments. cognitoUserPoolPolicies
library-gen/Stratosphere/ResourceProperties/CognitoUserPoolSchemaAttribute.hs view
@@ -36,18 +36,6 @@     , fmap (("StringAttributeConstraints",) . toJSON) _cognitoUserPoolSchemaAttributeStringAttributeConstraints     ] -instance FromJSON CognitoUserPoolSchemaAttribute where-  parseJSON (Object obj) =-    CognitoUserPoolSchemaAttribute <$>-      (obj .:? "AttributeDataType") <*>-      fmap (fmap (fmap unBool')) (obj .:? "DeveloperOnlyAttribute") <*>-      fmap (fmap (fmap unBool')) (obj .:? "Mutable") <*>-      (obj .:? "Name") <*>-      (obj .:? "NumberAttributeConstraints") <*>-      fmap (fmap (fmap unBool')) (obj .:? "Required") <*>-      (obj .:? "StringAttributeConstraints")-  parseJSON _ = mempty- -- | Constructor for 'CognitoUserPoolSchemaAttribute' containing required -- fields as arguments. cognitoUserPoolSchemaAttribute
library-gen/Stratosphere/ResourceProperties/CognitoUserPoolSmsConfiguration.hs view
@@ -25,13 +25,6 @@     , fmap (("SnsCallerArn",) . toJSON) _cognitoUserPoolSmsConfigurationSnsCallerArn     ] -instance FromJSON CognitoUserPoolSmsConfiguration where-  parseJSON (Object obj) =-    CognitoUserPoolSmsConfiguration <$>-      (obj .:? "ExternalId") <*>-      (obj .:? "SnsCallerArn")-  parseJSON _ = mempty- -- | Constructor for 'CognitoUserPoolSmsConfiguration' containing required -- fields as arguments. cognitoUserPoolSmsConfiguration
library-gen/Stratosphere/ResourceProperties/CognitoUserPoolStringAttributeConstraints.hs view
@@ -26,13 +26,6 @@     , fmap (("MinLength",) . toJSON) _cognitoUserPoolStringAttributeConstraintsMinLength     ] -instance FromJSON CognitoUserPoolStringAttributeConstraints where-  parseJSON (Object obj) =-    CognitoUserPoolStringAttributeConstraints <$>-      (obj .:? "MaxLength") <*>-      (obj .:? "MinLength")-  parseJSON _ = mempty- -- | Constructor for 'CognitoUserPoolStringAttributeConstraints' containing -- required fields as arguments. cognitoUserPoolStringAttributeConstraints
library-gen/Stratosphere/ResourceProperties/CognitoUserPoolUserAttributeType.hs view
@@ -25,13 +25,6 @@     , fmap (("Value",) . toJSON) _cognitoUserPoolUserAttributeTypeValue     ] -instance FromJSON CognitoUserPoolUserAttributeType where-  parseJSON (Object obj) =-    CognitoUserPoolUserAttributeType <$>-      (obj .:? "Name") <*>-      (obj .:? "Value")-  parseJSON _ = mempty- -- | Constructor for 'CognitoUserPoolUserAttributeType' containing required -- fields as arguments. cognitoUserPoolUserAttributeType
library-gen/Stratosphere/ResourceProperties/ConfigConfigRuleScope.hs view
@@ -29,15 +29,6 @@     , fmap (("TagValue",) . toJSON) _configConfigRuleScopeTagValue     ] -instance FromJSON ConfigConfigRuleScope where-  parseJSON (Object obj) =-    ConfigConfigRuleScope <$>-      (obj .:? "ComplianceResourceId") <*>-      (obj .:? "ComplianceResourceTypes") <*>-      (obj .:? "TagKey") <*>-      (obj .:? "TagValue")-  parseJSON _ = mempty- -- | Constructor for 'ConfigConfigRuleScope' containing required fields as -- arguments. configConfigRuleScope
library-gen/Stratosphere/ResourceProperties/ConfigConfigRuleSource.hs view
@@ -27,14 +27,6 @@     , (Just . ("SourceIdentifier",) . toJSON) _configConfigRuleSourceSourceIdentifier     ] -instance FromJSON ConfigConfigRuleSource where-  parseJSON (Object obj) =-    ConfigConfigRuleSource <$>-      (obj .: "Owner") <*>-      (obj .:? "SourceDetails") <*>-      (obj .: "SourceIdentifier")-  parseJSON _ = mempty- -- | Constructor for 'ConfigConfigRuleSource' containing required fields as -- arguments. configConfigRuleSource
library-gen/Stratosphere/ResourceProperties/ConfigConfigRuleSourceDetail.hs view
@@ -27,14 +27,6 @@     , (Just . ("MessageType",) . toJSON) _configConfigRuleSourceDetailMessageType     ] -instance FromJSON ConfigConfigRuleSourceDetail where-  parseJSON (Object obj) =-    ConfigConfigRuleSourceDetail <$>-      (obj .: "EventSource") <*>-      (obj .:? "MaximumExecutionFrequency") <*>-      (obj .: "MessageType")-  parseJSON _ = mempty- -- | Constructor for 'ConfigConfigRuleSourceDetail' containing required fields -- as arguments. configConfigRuleSourceDetail
library-gen/Stratosphere/ResourceProperties/ConfigConfigurationAggregatorAccountAggregationSource.hs view
@@ -29,14 +29,6 @@     , fmap (("AwsRegions",) . toJSON) _configConfigurationAggregatorAccountAggregationSourceAwsRegions     ] -instance FromJSON ConfigConfigurationAggregatorAccountAggregationSource where-  parseJSON (Object obj) =-    ConfigConfigurationAggregatorAccountAggregationSource <$>-      (obj .: "AccountIds") <*>-      fmap (fmap (fmap unBool')) (obj .:? "AllAwsRegions") <*>-      (obj .:? "AwsRegions")-  parseJSON _ = mempty- -- | Constructor for 'ConfigConfigurationAggregatorAccountAggregationSource' -- containing required fields as arguments. configConfigurationAggregatorAccountAggregationSource
library-gen/Stratosphere/ResourceProperties/ConfigConfigurationAggregatorOrganizationAggregationSource.hs view
@@ -29,14 +29,6 @@     , (Just . ("RoleArn",) . toJSON) _configConfigurationAggregatorOrganizationAggregationSourceRoleArn     ] -instance FromJSON ConfigConfigurationAggregatorOrganizationAggregationSource where-  parseJSON (Object obj) =-    ConfigConfigurationAggregatorOrganizationAggregationSource <$>-      fmap (fmap (fmap unBool')) (obj .:? "AllAwsRegions") <*>-      (obj .:? "AwsRegions") <*>-      (obj .: "RoleArn")-  parseJSON _ = mempty- -- | Constructor for -- 'ConfigConfigurationAggregatorOrganizationAggregationSource' containing -- required fields as arguments.
library-gen/Stratosphere/ResourceProperties/ConfigConfigurationRecorderRecordingGroup.hs view
@@ -28,14 +28,6 @@     , fmap (("ResourceTypes",) . toJSON) _configConfigurationRecorderRecordingGroupResourceTypes     ] -instance FromJSON ConfigConfigurationRecorderRecordingGroup where-  parseJSON (Object obj) =-    ConfigConfigurationRecorderRecordingGroup <$>-      fmap (fmap (fmap unBool')) (obj .:? "AllSupported") <*>-      fmap (fmap (fmap unBool')) (obj .:? "IncludeGlobalResourceTypes") <*>-      (obj .:? "ResourceTypes")-  parseJSON _ = mempty- -- | Constructor for 'ConfigConfigurationRecorderRecordingGroup' containing -- required fields as arguments. configConfigurationRecorderRecordingGroup
library-gen/Stratosphere/ResourceProperties/ConfigDeliveryChannelConfigSnapshotDeliveryProperties.hs view
@@ -25,12 +25,6 @@     [ fmap (("DeliveryFrequency",) . toJSON) _configDeliveryChannelConfigSnapshotDeliveryPropertiesDeliveryFrequency     ] -instance FromJSON ConfigDeliveryChannelConfigSnapshotDeliveryProperties where-  parseJSON (Object obj) =-    ConfigDeliveryChannelConfigSnapshotDeliveryProperties <$>-      (obj .:? "DeliveryFrequency")-  parseJSON _ = mempty- -- | Constructor for 'ConfigDeliveryChannelConfigSnapshotDeliveryProperties' -- containing required fields as arguments. configDeliveryChannelConfigSnapshotDeliveryProperties
library-gen/Stratosphere/ResourceProperties/DAXClusterSSESpecification.hs view
@@ -23,12 +23,6 @@     [ fmap (("SSEEnabled",) . toJSON . fmap Bool') _dAXClusterSSESpecificationSSEEnabled     ] -instance FromJSON DAXClusterSSESpecification where-  parseJSON (Object obj) =-    DAXClusterSSESpecification <$>-      fmap (fmap (fmap unBool')) (obj .:? "SSEEnabled")-  parseJSON _ = mempty- -- | Constructor for 'DAXClusterSSESpecification' containing required fields -- as arguments. daxClusterSSESpecification
library-gen/Stratosphere/ResourceProperties/DLMLifecyclePolicyCreateRule.hs view
@@ -27,14 +27,6 @@     , fmap (("Times",) . toJSON) _dLMLifecyclePolicyCreateRuleTimes     ] -instance FromJSON DLMLifecyclePolicyCreateRule where-  parseJSON (Object obj) =-    DLMLifecyclePolicyCreateRule <$>-      fmap (fmap unInteger') (obj .: "Interval") <*>-      (obj .: "IntervalUnit") <*>-      (obj .:? "Times")-  parseJSON _ = mempty- -- | Constructor for 'DLMLifecyclePolicyCreateRule' containing required fields -- as arguments. dlmLifecyclePolicyCreateRule
library-gen/Stratosphere/ResourceProperties/DLMLifecyclePolicyPolicyDetails.hs view
@@ -28,14 +28,6 @@     , fmap (("TargetTags",) . toJSON) _dLMLifecyclePolicyPolicyDetailsTargetTags     ] -instance FromJSON DLMLifecyclePolicyPolicyDetails where-  parseJSON (Object obj) =-    DLMLifecyclePolicyPolicyDetails <$>-      (obj .:? "ResourceTypes") <*>-      (obj .:? "Schedules") <*>-      (obj .:? "TargetTags")-  parseJSON _ = mempty- -- | Constructor for 'DLMLifecyclePolicyPolicyDetails' containing required -- fields as arguments. dlmLifecyclePolicyPolicyDetails
library-gen/Stratosphere/ResourceProperties/DLMLifecyclePolicyRetainRule.hs view
@@ -23,12 +23,6 @@     [ (Just . ("Count",) . toJSON . fmap Integer') _dLMLifecyclePolicyRetainRuleCount     ] -instance FromJSON DLMLifecyclePolicyRetainRule where-  parseJSON (Object obj) =-    DLMLifecyclePolicyRetainRule <$>-      fmap (fmap unInteger') (obj .: "Count")-  parseJSON _ = mempty- -- | Constructor for 'DLMLifecyclePolicyRetainRule' containing required fields -- as arguments. dlmLifecyclePolicyRetainRule
library-gen/Stratosphere/ResourceProperties/DLMLifecyclePolicySchedule.hs view
@@ -33,16 +33,6 @@     , fmap (("TagsToAdd",) . toJSON) _dLMLifecyclePolicyScheduleTagsToAdd     ] -instance FromJSON DLMLifecyclePolicySchedule where-  parseJSON (Object obj) =-    DLMLifecyclePolicySchedule <$>-      fmap (fmap (fmap unBool')) (obj .:? "CopyTags") <*>-      (obj .:? "CreateRule") <*>-      (obj .:? "Name") <*>-      (obj .:? "RetainRule") <*>-      (obj .:? "TagsToAdd")-  parseJSON _ = mempty- -- | Constructor for 'DLMLifecyclePolicySchedule' containing required fields -- as arguments. dlmLifecyclePolicySchedule
library-gen/Stratosphere/ResourceProperties/DMSEndpointDynamoDbSettings.hs view
@@ -23,12 +23,6 @@     [ fmap (("ServiceAccessRoleArn",) . toJSON) _dMSEndpointDynamoDbSettingsServiceAccessRoleArn     ] -instance FromJSON DMSEndpointDynamoDbSettings where-  parseJSON (Object obj) =-    DMSEndpointDynamoDbSettings <$>-      (obj .:? "ServiceAccessRoleArn")-  parseJSON _ = mempty- -- | Constructor for 'DMSEndpointDynamoDbSettings' containing required fields -- as arguments. dmsEndpointDynamoDbSettings
library-gen/Stratosphere/ResourceProperties/DMSEndpointElasticsearchSettings.hs view
@@ -29,15 +29,6 @@     , fmap (("ServiceAccessRoleArn",) . toJSON) _dMSEndpointElasticsearchSettingsServiceAccessRoleArn     ] -instance FromJSON DMSEndpointElasticsearchSettings where-  parseJSON (Object obj) =-    DMSEndpointElasticsearchSettings <$>-      (obj .:? "EndpointUri") <*>-      fmap (fmap (fmap unInteger')) (obj .:? "ErrorRetryDuration") <*>-      fmap (fmap (fmap unInteger')) (obj .:? "FullLoadErrorPercentage") <*>-      (obj .:? "ServiceAccessRoleArn")-  parseJSON _ = mempty- -- | Constructor for 'DMSEndpointElasticsearchSettings' containing required -- fields as arguments. dmsEndpointElasticsearchSettings
library-gen/Stratosphere/ResourceProperties/DMSEndpointKinesisSettings.hs view
@@ -27,14 +27,6 @@     , fmap (("StreamArn",) . toJSON) _dMSEndpointKinesisSettingsStreamArn     ] -instance FromJSON DMSEndpointKinesisSettings where-  parseJSON (Object obj) =-    DMSEndpointKinesisSettings <$>-      (obj .:? "MessageFormat") <*>-      (obj .:? "ServiceAccessRoleArn") <*>-      (obj .:? "StreamArn")-  parseJSON _ = mempty- -- | Constructor for 'DMSEndpointKinesisSettings' containing required fields -- as arguments. dmsEndpointKinesisSettings
library-gen/Stratosphere/ResourceProperties/DMSEndpointMongoDbSettings.hs view
@@ -43,22 +43,6 @@     , fmap (("Username",) . toJSON) _dMSEndpointMongoDbSettingsUsername     ] -instance FromJSON DMSEndpointMongoDbSettings where-  parseJSON (Object obj) =-    DMSEndpointMongoDbSettings <$>-      (obj .:? "AuthMechanism") <*>-      (obj .:? "AuthSource") <*>-      (obj .:? "AuthType") <*>-      (obj .:? "DatabaseName") <*>-      (obj .:? "DocsToInvestigate") <*>-      (obj .:? "ExtractDocId") <*>-      (obj .:? "NestingLevel") <*>-      (obj .:? "Password") <*>-      fmap (fmap (fmap unInteger')) (obj .:? "Port") <*>-      (obj .:? "ServerName") <*>-      (obj .:? "Username")-  parseJSON _ = mempty- -- | Constructor for 'DMSEndpointMongoDbSettings' containing required fields -- as arguments. dmsEndpointMongoDbSettings
library-gen/Stratosphere/ResourceProperties/DMSEndpointS3Settings.hs view
@@ -35,18 +35,6 @@     , fmap (("ServiceAccessRoleArn",) . toJSON) _dMSEndpointS3SettingsServiceAccessRoleArn     ] -instance FromJSON DMSEndpointS3Settings where-  parseJSON (Object obj) =-    DMSEndpointS3Settings <$>-      (obj .:? "BucketFolder") <*>-      (obj .:? "BucketName") <*>-      (obj .:? "CompressionType") <*>-      (obj .:? "CsvDelimiter") <*>-      (obj .:? "CsvRowDelimiter") <*>-      (obj .:? "ExternalTableDefinition") <*>-      (obj .:? "ServiceAccessRoleArn")-  parseJSON _ = mempty- -- | Constructor for 'DMSEndpointS3Settings' containing required fields as -- arguments. dmsEndpointS3Settings
library-gen/Stratosphere/ResourceProperties/DataPipelinePipelineField.hs view
@@ -27,14 +27,6 @@     , fmap (("StringValue",) . toJSON) _dataPipelinePipelineFieldStringValue     ] -instance FromJSON DataPipelinePipelineField where-  parseJSON (Object obj) =-    DataPipelinePipelineField <$>-      (obj .: "Key") <*>-      (obj .:? "RefValue") <*>-      (obj .:? "StringValue")-  parseJSON _ = mempty- -- | Constructor for 'DataPipelinePipelineField' containing required fields as -- arguments. dataPipelinePipelineField
library-gen/Stratosphere/ResourceProperties/DataPipelinePipelineParameterAttribute.hs view
@@ -26,13 +26,6 @@     , (Just . ("StringValue",) . toJSON) _dataPipelinePipelineParameterAttributeStringValue     ] -instance FromJSON DataPipelinePipelineParameterAttribute where-  parseJSON (Object obj) =-    DataPipelinePipelineParameterAttribute <$>-      (obj .: "Key") <*>-      (obj .: "StringValue")-  parseJSON _ = mempty- -- | Constructor for 'DataPipelinePipelineParameterAttribute' containing -- required fields as arguments. dataPipelinePipelineParameterAttribute
library-gen/Stratosphere/ResourceProperties/DataPipelinePipelineParameterObject.hs view
@@ -25,13 +25,6 @@     , (Just . ("Id",) . toJSON) _dataPipelinePipelineParameterObjectId     ] -instance FromJSON DataPipelinePipelineParameterObject where-  parseJSON (Object obj) =-    DataPipelinePipelineParameterObject <$>-      (obj .: "Attributes") <*>-      (obj .: "Id")-  parseJSON _ = mempty- -- | Constructor for 'DataPipelinePipelineParameterObject' containing required -- fields as arguments. dataPipelinePipelineParameterObject
library-gen/Stratosphere/ResourceProperties/DataPipelinePipelineParameterValue.hs view
@@ -25,13 +25,6 @@     , (Just . ("StringValue",) . toJSON) _dataPipelinePipelineParameterValueStringValue     ] -instance FromJSON DataPipelinePipelineParameterValue where-  parseJSON (Object obj) =-    DataPipelinePipelineParameterValue <$>-      (obj .: "Id") <*>-      (obj .: "StringValue")-  parseJSON _ = mempty- -- | Constructor for 'DataPipelinePipelineParameterValue' containing required -- fields as arguments. dataPipelinePipelineParameterValue
library-gen/Stratosphere/ResourceProperties/DataPipelinePipelinePipelineObject.hs view
@@ -27,14 +27,6 @@     , (Just . ("Name",) . toJSON) _dataPipelinePipelinePipelineObjectName     ] -instance FromJSON DataPipelinePipelinePipelineObject where-  parseJSON (Object obj) =-    DataPipelinePipelinePipelineObject <$>-      (obj .: "Fields") <*>-      (obj .: "Id") <*>-      (obj .: "Name")-  parseJSON _ = mempty- -- | Constructor for 'DataPipelinePipelinePipelineObject' containing required -- fields as arguments. dataPipelinePipelinePipelineObject
library-gen/Stratosphere/ResourceProperties/DataPipelinePipelinePipelineTag.hs view
@@ -25,13 +25,6 @@     , (Just . ("Value",) . toJSON) _dataPipelinePipelinePipelineTagValue     ] -instance FromJSON DataPipelinePipelinePipelineTag where-  parseJSON (Object obj) =-    DataPipelinePipelinePipelineTag <$>-      (obj .: "Key") <*>-      (obj .: "Value")-  parseJSON _ = mempty- -- | Constructor for 'DataPipelinePipelinePipelineTag' containing required -- fields as arguments. dataPipelinePipelinePipelineTag
library-gen/Stratosphere/ResourceProperties/DirectoryServiceMicrosoftADVpcSettings.hs view
@@ -26,13 +26,6 @@     , (Just . ("VpcId",) . toJSON) _directoryServiceMicrosoftADVpcSettingsVpcId     ] -instance FromJSON DirectoryServiceMicrosoftADVpcSettings where-  parseJSON (Object obj) =-    DirectoryServiceMicrosoftADVpcSettings <$>-      (obj .: "SubnetIds") <*>-      (obj .: "VpcId")-  parseJSON _ = mempty- -- | Constructor for 'DirectoryServiceMicrosoftADVpcSettings' containing -- required fields as arguments. directoryServiceMicrosoftADVpcSettings
library-gen/Stratosphere/ResourceProperties/DirectoryServiceSimpleADVpcSettings.hs view
@@ -25,13 +25,6 @@     , (Just . ("VpcId",) . toJSON) _directoryServiceSimpleADVpcSettingsVpcId     ] -instance FromJSON DirectoryServiceSimpleADVpcSettings where-  parseJSON (Object obj) =-    DirectoryServiceSimpleADVpcSettings <$>-      (obj .: "SubnetIds") <*>-      (obj .: "VpcId")-  parseJSON _ = mempty- -- | Constructor for 'DirectoryServiceSimpleADVpcSettings' containing required -- fields as arguments. directoryServiceSimpleADVpcSettings
library-gen/Stratosphere/ResourceProperties/DynamoDBTableAttributeDefinition.hs view
@@ -25,13 +25,6 @@     , (Just . ("AttributeType",) . toJSON) _dynamoDBTableAttributeDefinitionAttributeType     ] -instance FromJSON DynamoDBTableAttributeDefinition where-  parseJSON (Object obj) =-    DynamoDBTableAttributeDefinition <$>-      (obj .: "AttributeName") <*>-      (obj .: "AttributeType")-  parseJSON _ = mempty- -- | Constructor for 'DynamoDBTableAttributeDefinition' containing required -- fields as arguments. dynamoDBTableAttributeDefinition
library-gen/Stratosphere/ResourceProperties/DynamoDBTableGlobalSecondaryIndex.hs view
@@ -31,15 +31,6 @@     , fmap (("ProvisionedThroughput",) . toJSON) _dynamoDBTableGlobalSecondaryIndexProvisionedThroughput     ] -instance FromJSON DynamoDBTableGlobalSecondaryIndex where-  parseJSON (Object obj) =-    DynamoDBTableGlobalSecondaryIndex <$>-      (obj .: "IndexName") <*>-      (obj .: "KeySchema") <*>-      (obj .: "Projection") <*>-      (obj .:? "ProvisionedThroughput")-  parseJSON _ = mempty- -- | Constructor for 'DynamoDBTableGlobalSecondaryIndex' containing required -- fields as arguments. dynamoDBTableGlobalSecondaryIndex
library-gen/Stratosphere/ResourceProperties/DynamoDBTableKeySchema.hs view
@@ -25,13 +25,6 @@     , (Just . ("KeyType",) . toJSON) _dynamoDBTableKeySchemaKeyType     ] -instance FromJSON DynamoDBTableKeySchema where-  parseJSON (Object obj) =-    DynamoDBTableKeySchema <$>-      (obj .: "AttributeName") <*>-      (obj .: "KeyType")-  parseJSON _ = mempty- -- | Constructor for 'DynamoDBTableKeySchema' containing required fields as -- arguments. dynamoDBTableKeySchema
library-gen/Stratosphere/ResourceProperties/DynamoDBTableLocalSecondaryIndex.hs view
@@ -28,14 +28,6 @@     , (Just . ("Projection",) . toJSON) _dynamoDBTableLocalSecondaryIndexProjection     ] -instance FromJSON DynamoDBTableLocalSecondaryIndex where-  parseJSON (Object obj) =-    DynamoDBTableLocalSecondaryIndex <$>-      (obj .: "IndexName") <*>-      (obj .: "KeySchema") <*>-      (obj .: "Projection")-  parseJSON _ = mempty- -- | Constructor for 'DynamoDBTableLocalSecondaryIndex' containing required -- fields as arguments. dynamoDBTableLocalSecondaryIndex
library-gen/Stratosphere/ResourceProperties/DynamoDBTablePointInTimeRecoverySpecification.hs view
@@ -25,12 +25,6 @@     [ fmap (("PointInTimeRecoveryEnabled",) . toJSON . fmap Bool') _dynamoDBTablePointInTimeRecoverySpecificationPointInTimeRecoveryEnabled     ] -instance FromJSON DynamoDBTablePointInTimeRecoverySpecification where-  parseJSON (Object obj) =-    DynamoDBTablePointInTimeRecoverySpecification <$>-      fmap (fmap (fmap unBool')) (obj .:? "PointInTimeRecoveryEnabled")-  parseJSON _ = mempty- -- | Constructor for 'DynamoDBTablePointInTimeRecoverySpecification' -- containing required fields as arguments. dynamoDBTablePointInTimeRecoverySpecification
library-gen/Stratosphere/ResourceProperties/DynamoDBTableProjection.hs view
@@ -25,13 +25,6 @@     , fmap (("ProjectionType",) . toJSON) _dynamoDBTableProjectionProjectionType     ] -instance FromJSON DynamoDBTableProjection where-  parseJSON (Object obj) =-    DynamoDBTableProjection <$>-      (obj .:? "NonKeyAttributes") <*>-      (obj .:? "ProjectionType")-  parseJSON _ = mempty- -- | Constructor for 'DynamoDBTableProjection' containing required fields as -- arguments. dynamoDBTableProjection
library-gen/Stratosphere/ResourceProperties/DynamoDBTableProvisionedThroughput.hs view
@@ -25,13 +25,6 @@     , (Just . ("WriteCapacityUnits",) . toJSON . fmap Integer') _dynamoDBTableProvisionedThroughputWriteCapacityUnits     ] -instance FromJSON DynamoDBTableProvisionedThroughput where-  parseJSON (Object obj) =-    DynamoDBTableProvisionedThroughput <$>-      fmap (fmap unInteger') (obj .: "ReadCapacityUnits") <*>-      fmap (fmap unInteger') (obj .: "WriteCapacityUnits")-  parseJSON _ = mempty- -- | Constructor for 'DynamoDBTableProvisionedThroughput' containing required -- fields as arguments. dynamoDBTableProvisionedThroughput
library-gen/Stratosphere/ResourceProperties/DynamoDBTableSSESpecification.hs view
@@ -23,12 +23,6 @@     [ (Just . ("SSEEnabled",) . toJSON . fmap Bool') _dynamoDBTableSSESpecificationSSEEnabled     ] -instance FromJSON DynamoDBTableSSESpecification where-  parseJSON (Object obj) =-    DynamoDBTableSSESpecification <$>-      fmap (fmap unBool') (obj .: "SSEEnabled")-  parseJSON _ = mempty- -- | Constructor for 'DynamoDBTableSSESpecification' containing required -- fields as arguments. dynamoDBTableSSESpecification
library-gen/Stratosphere/ResourceProperties/DynamoDBTableStreamSpecification.hs view
@@ -23,12 +23,6 @@     [ (Just . ("StreamViewType",) . toJSON) _dynamoDBTableStreamSpecificationStreamViewType     ] -instance FromJSON DynamoDBTableStreamSpecification where-  parseJSON (Object obj) =-    DynamoDBTableStreamSpecification <$>-      (obj .: "StreamViewType")-  parseJSON _ = mempty- -- | Constructor for 'DynamoDBTableStreamSpecification' containing required -- fields as arguments. dynamoDBTableStreamSpecification
library-gen/Stratosphere/ResourceProperties/DynamoDBTableTimeToLiveSpecification.hs view
@@ -25,13 +25,6 @@     , (Just . ("Enabled",) . toJSON . fmap Bool') _dynamoDBTableTimeToLiveSpecificationEnabled     ] -instance FromJSON DynamoDBTableTimeToLiveSpecification where-  parseJSON (Object obj) =-    DynamoDBTableTimeToLiveSpecification <$>-      (obj .: "AttributeName") <*>-      fmap (fmap unBool') (obj .: "Enabled")-  parseJSON _ = mempty- -- | Constructor for 'DynamoDBTableTimeToLiveSpecification' containing -- required fields as arguments. dynamoDBTableTimeToLiveSpecification
library-gen/Stratosphere/ResourceProperties/EC2EC2FleetFleetLaunchTemplateConfigRequest.hs view
@@ -28,13 +28,6 @@     , fmap (("Overrides",) . toJSON) _eC2EC2FleetFleetLaunchTemplateConfigRequestOverrides     ] -instance FromJSON EC2EC2FleetFleetLaunchTemplateConfigRequest where-  parseJSON (Object obj) =-    EC2EC2FleetFleetLaunchTemplateConfigRequest <$>-      (obj .:? "LaunchTemplateSpecification") <*>-      (obj .:? "Overrides")-  parseJSON _ = mempty- -- | Constructor for 'EC2EC2FleetFleetLaunchTemplateConfigRequest' containing -- required fields as arguments. ec2EC2FleetFleetLaunchTemplateConfigRequest
library-gen/Stratosphere/ResourceProperties/EC2EC2FleetFleetLaunchTemplateOverridesRequest.hs view
@@ -35,17 +35,6 @@     , fmap (("WeightedCapacity",) . toJSON . fmap Double') _eC2EC2FleetFleetLaunchTemplateOverridesRequestWeightedCapacity     ] -instance FromJSON EC2EC2FleetFleetLaunchTemplateOverridesRequest where-  parseJSON (Object obj) =-    EC2EC2FleetFleetLaunchTemplateOverridesRequest <$>-      (obj .:? "AvailabilityZone") <*>-      (obj .:? "InstanceType") <*>-      (obj .:? "MaxPrice") <*>-      fmap (fmap (fmap unDouble')) (obj .:? "Priority") <*>-      (obj .:? "SubnetId") <*>-      fmap (fmap (fmap unDouble')) (obj .:? "WeightedCapacity")-  parseJSON _ = mempty- -- | Constructor for 'EC2EC2FleetFleetLaunchTemplateOverridesRequest' -- containing required fields as arguments. ec2EC2FleetFleetLaunchTemplateOverridesRequest
library-gen/Stratosphere/ResourceProperties/EC2EC2FleetFleetLaunchTemplateSpecificationRequest.hs view
@@ -29,14 +29,6 @@     , fmap (("Version",) . toJSON) _eC2EC2FleetFleetLaunchTemplateSpecificationRequestVersion     ] -instance FromJSON EC2EC2FleetFleetLaunchTemplateSpecificationRequest where-  parseJSON (Object obj) =-    EC2EC2FleetFleetLaunchTemplateSpecificationRequest <$>-      (obj .:? "LaunchTemplateId") <*>-      (obj .:? "LaunchTemplateName") <*>-      (obj .:? "Version")-  parseJSON _ = mempty- -- | Constructor for 'EC2EC2FleetFleetLaunchTemplateSpecificationRequest' -- containing required fields as arguments. ec2EC2FleetFleetLaunchTemplateSpecificationRequest
library-gen/Stratosphere/ResourceProperties/EC2EC2FleetOnDemandOptionsRequest.hs view
@@ -23,12 +23,6 @@     [ fmap (("AllocationStrategy",) . toJSON) _eC2EC2FleetOnDemandOptionsRequestAllocationStrategy     ] -instance FromJSON EC2EC2FleetOnDemandOptionsRequest where-  parseJSON (Object obj) =-    EC2EC2FleetOnDemandOptionsRequest <$>-      (obj .:? "AllocationStrategy")-  parseJSON _ = mempty- -- | Constructor for 'EC2EC2FleetOnDemandOptionsRequest' containing required -- fields as arguments. ec2EC2FleetOnDemandOptionsRequest
library-gen/Stratosphere/ResourceProperties/EC2EC2FleetSpotOptionsRequest.hs view
@@ -27,14 +27,6 @@     , fmap (("InstancePoolsToUseCount",) . toJSON . fmap Integer') _eC2EC2FleetSpotOptionsRequestInstancePoolsToUseCount     ] -instance FromJSON EC2EC2FleetSpotOptionsRequest where-  parseJSON (Object obj) =-    EC2EC2FleetSpotOptionsRequest <$>-      (obj .:? "AllocationStrategy") <*>-      (obj .:? "InstanceInterruptionBehavior") <*>-      fmap (fmap (fmap unInteger')) (obj .:? "InstancePoolsToUseCount")-  parseJSON _ = mempty- -- | Constructor for 'EC2EC2FleetSpotOptionsRequest' containing required -- fields as arguments. ec2EC2FleetSpotOptionsRequest
library-gen/Stratosphere/ResourceProperties/EC2EC2FleetTagRequest.hs view
@@ -25,13 +25,6 @@     , fmap (("Value",) . toJSON) _eC2EC2FleetTagRequestValue     ] -instance FromJSON EC2EC2FleetTagRequest where-  parseJSON (Object obj) =-    EC2EC2FleetTagRequest <$>-      (obj .:? "Key") <*>-      (obj .:? "Value")-  parseJSON _ = mempty- -- | Constructor for 'EC2EC2FleetTagRequest' containing required fields as -- arguments. ec2EC2FleetTagRequest
library-gen/Stratosphere/ResourceProperties/EC2EC2FleetTagSpecification.hs view
@@ -25,13 +25,6 @@     , fmap (("Tags",) . toJSON) _eC2EC2FleetTagSpecificationTags     ] -instance FromJSON EC2EC2FleetTagSpecification where-  parseJSON (Object obj) =-    EC2EC2FleetTagSpecification <$>-      (obj .:? "ResourceType") <*>-      (obj .:? "Tags")-  parseJSON _ = mempty- -- | Constructor for 'EC2EC2FleetTagSpecification' containing required fields -- as arguments. ec2EC2FleetTagSpecification
library-gen/Stratosphere/ResourceProperties/EC2EC2FleetTargetCapacitySpecificationRequest.hs view
@@ -31,15 +31,6 @@     , (Just . ("TotalTargetCapacity",) . toJSON . fmap Integer') _eC2EC2FleetTargetCapacitySpecificationRequestTotalTargetCapacity     ] -instance FromJSON EC2EC2FleetTargetCapacitySpecificationRequest where-  parseJSON (Object obj) =-    EC2EC2FleetTargetCapacitySpecificationRequest <$>-      (obj .:? "DefaultTargetCapacityType") <*>-      fmap (fmap (fmap unInteger')) (obj .:? "OnDemandTargetCapacity") <*>-      fmap (fmap (fmap unInteger')) (obj .:? "SpotTargetCapacity") <*>-      fmap (fmap unInteger') (obj .: "TotalTargetCapacity")-  parseJSON _ = mempty- -- | Constructor for 'EC2EC2FleetTargetCapacitySpecificationRequest' -- containing required fields as arguments. ec2EC2FleetTargetCapacitySpecificationRequest
library-gen/Stratosphere/ResourceProperties/EC2InstanceAssociationParameter.hs view
@@ -25,13 +25,6 @@     , (Just . ("Value",) . toJSON) _eC2InstanceAssociationParameterValue     ] -instance FromJSON EC2InstanceAssociationParameter where-  parseJSON (Object obj) =-    EC2InstanceAssociationParameter <$>-      (obj .: "Key") <*>-      (obj .: "Value")-  parseJSON _ = mempty- -- | Constructor for 'EC2InstanceAssociationParameter' containing required -- fields as arguments. ec2InstanceAssociationParameter
library-gen/Stratosphere/ResourceProperties/EC2InstanceBlockDeviceMapping.hs view
@@ -30,15 +30,6 @@     , fmap (("VirtualName",) . toJSON) _eC2InstanceBlockDeviceMappingVirtualName     ] -instance FromJSON EC2InstanceBlockDeviceMapping where-  parseJSON (Object obj) =-    EC2InstanceBlockDeviceMapping <$>-      (obj .: "DeviceName") <*>-      (obj .:? "Ebs") <*>-      (obj .:? "NoDevice") <*>-      (obj .:? "VirtualName")-  parseJSON _ = mempty- -- | Constructor for 'EC2InstanceBlockDeviceMapping' containing required -- fields as arguments. ec2InstanceBlockDeviceMapping
library-gen/Stratosphere/ResourceProperties/EC2InstanceCreditSpecification.hs view
@@ -23,12 +23,6 @@     [ fmap (("CPUCredits",) . toJSON) _eC2InstanceCreditSpecificationCPUCredits     ] -instance FromJSON EC2InstanceCreditSpecification where-  parseJSON (Object obj) =-    EC2InstanceCreditSpecification <$>-      (obj .:? "CPUCredits")-  parseJSON _ = mempty- -- | Constructor for 'EC2InstanceCreditSpecification' containing required -- fields as arguments. ec2InstanceCreditSpecification
library-gen/Stratosphere/ResourceProperties/EC2InstanceEbs.hs view
@@ -33,17 +33,6 @@     , fmap (("VolumeType",) . toJSON) _eC2InstanceEbsVolumeType     ] -instance FromJSON EC2InstanceEbs where-  parseJSON (Object obj) =-    EC2InstanceEbs <$>-      fmap (fmap (fmap unBool')) (obj .:? "DeleteOnTermination") <*>-      fmap (fmap (fmap unBool')) (obj .:? "Encrypted") <*>-      fmap (fmap (fmap unInteger')) (obj .:? "Iops") <*>-      (obj .:? "SnapshotId") <*>-      fmap (fmap (fmap unInteger')) (obj .:? "VolumeSize") <*>-      (obj .:? "VolumeType")-  parseJSON _ = mempty- -- | Constructor for 'EC2InstanceEbs' containing required fields as arguments. ec2InstanceEbs   :: EC2InstanceEbs
library-gen/Stratosphere/ResourceProperties/EC2InstanceElasticGpuSpecification.hs view
@@ -23,12 +23,6 @@     [ (Just . ("Type",) . toJSON) _eC2InstanceElasticGpuSpecificationType     ] -instance FromJSON EC2InstanceElasticGpuSpecification where-  parseJSON (Object obj) =-    EC2InstanceElasticGpuSpecification <$>-      (obj .: "Type")-  parseJSON _ = mempty- -- | Constructor for 'EC2InstanceElasticGpuSpecification' containing required -- fields as arguments. ec2InstanceElasticGpuSpecification
library-gen/Stratosphere/ResourceProperties/EC2InstanceElasticInferenceAccelerator.hs view
@@ -24,12 +24,6 @@     [ (Just . ("Type",) . toJSON) _eC2InstanceElasticInferenceAcceleratorType     ] -instance FromJSON EC2InstanceElasticInferenceAccelerator where-  parseJSON (Object obj) =-    EC2InstanceElasticInferenceAccelerator <$>-      (obj .: "Type")-  parseJSON _ = mempty- -- | Constructor for 'EC2InstanceElasticInferenceAccelerator' containing -- required fields as arguments. ec2InstanceElasticInferenceAccelerator
library-gen/Stratosphere/ResourceProperties/EC2InstanceInstanceIpv6Address.hs view
@@ -23,12 +23,6 @@     [ (Just . ("Ipv6Address",) . toJSON) _eC2InstanceInstanceIpv6AddressIpv6Address     ] -instance FromJSON EC2InstanceInstanceIpv6Address where-  parseJSON (Object obj) =-    EC2InstanceInstanceIpv6Address <$>-      (obj .: "Ipv6Address")-  parseJSON _ = mempty- -- | Constructor for 'EC2InstanceInstanceIpv6Address' containing required -- fields as arguments. ec2InstanceInstanceIpv6Address
library-gen/Stratosphere/ResourceProperties/EC2InstanceLaunchTemplateSpecification.hs view
@@ -28,14 +28,6 @@     , (Just . ("Version",) . toJSON) _eC2InstanceLaunchTemplateSpecificationVersion     ] -instance FromJSON EC2InstanceLaunchTemplateSpecification where-  parseJSON (Object obj) =-    EC2InstanceLaunchTemplateSpecification <$>-      (obj .:? "LaunchTemplateId") <*>-      (obj .:? "LaunchTemplateName") <*>-      (obj .: "Version")-  parseJSON _ = mempty- -- | Constructor for 'EC2InstanceLaunchTemplateSpecification' containing -- required fields as arguments. ec2InstanceLaunchTemplateSpecification
library-gen/Stratosphere/ResourceProperties/EC2InstanceLicenseSpecification.hs view
@@ -23,12 +23,6 @@     [ (Just . ("LicenseConfigurationArn",) . toJSON) _eC2InstanceLicenseSpecificationLicenseConfigurationArn     ] -instance FromJSON EC2InstanceLicenseSpecification where-  parseJSON (Object obj) =-    EC2InstanceLicenseSpecification <$>-      (obj .: "LicenseConfigurationArn")-  parseJSON _ = mempty- -- | Constructor for 'EC2InstanceLicenseSpecification' containing required -- fields as arguments. ec2InstanceLicenseSpecification
library-gen/Stratosphere/ResourceProperties/EC2InstanceNetworkInterface.hs view
@@ -46,23 +46,6 @@     , fmap (("SubnetId",) . toJSON) _eC2InstanceNetworkInterfaceSubnetId     ] -instance FromJSON EC2InstanceNetworkInterface where-  parseJSON (Object obj) =-    EC2InstanceNetworkInterface <$>-      fmap (fmap (fmap unBool')) (obj .:? "AssociatePublicIpAddress") <*>-      fmap (fmap (fmap unBool')) (obj .:? "DeleteOnTermination") <*>-      (obj .:? "Description") <*>-      (obj .: "DeviceIndex") <*>-      (obj .:? "GroupSet") <*>-      fmap (fmap (fmap unInteger')) (obj .:? "Ipv6AddressCount") <*>-      (obj .:? "Ipv6Addresses") <*>-      (obj .:? "NetworkInterfaceId") <*>-      (obj .:? "PrivateIpAddress") <*>-      (obj .:? "PrivateIpAddresses") <*>-      fmap (fmap (fmap unInteger')) (obj .:? "SecondaryPrivateIpAddressCount") <*>-      (obj .:? "SubnetId")-  parseJSON _ = mempty- -- | Constructor for 'EC2InstanceNetworkInterface' containing required fields -- as arguments. ec2InstanceNetworkInterface
library-gen/Stratosphere/ResourceProperties/EC2InstanceNoDevice.hs view
@@ -19,10 +19,6 @@ instance ToJSON EC2InstanceNoDevice where   toJSON _ = toJSON ([] :: [String]) -instance FromJSON EC2InstanceNoDevice where-  parseJSON (Array _) = return EC2InstanceNoDevice-  parseJSON _ = mempty- -- | Constructor for 'EC2InstanceNoDevice' containing required fields as -- arguments. ec2InstanceNoDevice
library-gen/Stratosphere/ResourceProperties/EC2InstancePrivateIpAddressSpecification.hs view
@@ -26,13 +26,6 @@     , (Just . ("PrivateIpAddress",) . toJSON) _eC2InstancePrivateIpAddressSpecificationPrivateIpAddress     ] -instance FromJSON EC2InstancePrivateIpAddressSpecification where-  parseJSON (Object obj) =-    EC2InstancePrivateIpAddressSpecification <$>-      fmap (fmap unBool') (obj .: "Primary") <*>-      (obj .: "PrivateIpAddress")-  parseJSON _ = mempty- -- | Constructor for 'EC2InstancePrivateIpAddressSpecification' containing -- required fields as arguments. ec2InstancePrivateIpAddressSpecification
library-gen/Stratosphere/ResourceProperties/EC2InstanceSsmAssociation.hs view
@@ -25,13 +25,6 @@     , (Just . ("DocumentName",) . toJSON) _eC2InstanceSsmAssociationDocumentName     ] -instance FromJSON EC2InstanceSsmAssociation where-  parseJSON (Object obj) =-    EC2InstanceSsmAssociation <$>-      (obj .:? "AssociationParameters") <*>-      (obj .: "DocumentName")-  parseJSON _ = mempty- -- | Constructor for 'EC2InstanceSsmAssociation' containing required fields as -- arguments. ec2InstanceSsmAssociation
library-gen/Stratosphere/ResourceProperties/EC2InstanceVolume.hs view
@@ -25,13 +25,6 @@     , (Just . ("VolumeId",) . toJSON) _eC2InstanceVolumeVolumeId     ] -instance FromJSON EC2InstanceVolume where-  parseJSON (Object obj) =-    EC2InstanceVolume <$>-      (obj .: "Device") <*>-      (obj .: "VolumeId")-  parseJSON _ = mempty- -- | Constructor for 'EC2InstanceVolume' containing required fields as -- arguments. ec2InstanceVolume
library-gen/Stratosphere/ResourceProperties/EC2LaunchTemplateBlockDeviceMapping.hs view
@@ -29,15 +29,6 @@     , fmap (("VirtualName",) . toJSON) _eC2LaunchTemplateBlockDeviceMappingVirtualName     ] -instance FromJSON EC2LaunchTemplateBlockDeviceMapping where-  parseJSON (Object obj) =-    EC2LaunchTemplateBlockDeviceMapping <$>-      (obj .:? "DeviceName") <*>-      (obj .:? "Ebs") <*>-      (obj .:? "NoDevice") <*>-      (obj .:? "VirtualName")-  parseJSON _ = mempty- -- | Constructor for 'EC2LaunchTemplateBlockDeviceMapping' containing required -- fields as arguments. ec2LaunchTemplateBlockDeviceMapping
library-gen/Stratosphere/ResourceProperties/EC2LaunchTemplateCapacityReservationSpecification.hs view
@@ -25,12 +25,6 @@     [ fmap (("CapacityReservationTarget",) . toJSON) _eC2LaunchTemplateCapacityReservationSpecificationCapacityReservationTarget     ] -instance FromJSON EC2LaunchTemplateCapacityReservationSpecification where-  parseJSON (Object obj) =-    EC2LaunchTemplateCapacityReservationSpecification <$>-      (obj .:? "CapacityReservationTarget")-  parseJSON _ = mempty- -- | Constructor for 'EC2LaunchTemplateCapacityReservationSpecification' -- containing required fields as arguments. ec2LaunchTemplateCapacityReservationSpecification
library-gen/Stratosphere/ResourceProperties/EC2LaunchTemplateCapacityReservationTarget.hs view
@@ -24,12 +24,6 @@     [ fmap (("CapacityReservationId",) . toJSON) _eC2LaunchTemplateCapacityReservationTargetCapacityReservationId     ] -instance FromJSON EC2LaunchTemplateCapacityReservationTarget where-  parseJSON (Object obj) =-    EC2LaunchTemplateCapacityReservationTarget <$>-      (obj .:? "CapacityReservationId")-  parseJSON _ = mempty- -- | Constructor for 'EC2LaunchTemplateCapacityReservationTarget' containing -- required fields as arguments. ec2LaunchTemplateCapacityReservationTarget
library-gen/Stratosphere/ResourceProperties/EC2LaunchTemplateCpuOptions.hs view
@@ -25,13 +25,6 @@     , fmap (("ThreadsPerCore",) . toJSON . fmap Integer') _eC2LaunchTemplateCpuOptionsThreadsPerCore     ] -instance FromJSON EC2LaunchTemplateCpuOptions where-  parseJSON (Object obj) =-    EC2LaunchTemplateCpuOptions <$>-      fmap (fmap (fmap unInteger')) (obj .:? "CoreCount") <*>-      fmap (fmap (fmap unInteger')) (obj .:? "ThreadsPerCore")-  parseJSON _ = mempty- -- | Constructor for 'EC2LaunchTemplateCpuOptions' containing required fields -- as arguments. ec2LaunchTemplateCpuOptions
library-gen/Stratosphere/ResourceProperties/EC2LaunchTemplateCreditSpecification.hs view
@@ -23,12 +23,6 @@     [ fmap (("CpuCredits",) . toJSON) _eC2LaunchTemplateCreditSpecificationCpuCredits     ] -instance FromJSON EC2LaunchTemplateCreditSpecification where-  parseJSON (Object obj) =-    EC2LaunchTemplateCreditSpecification <$>-      (obj .:? "CpuCredits")-  parseJSON _ = mempty- -- | Constructor for 'EC2LaunchTemplateCreditSpecification' containing -- required fields as arguments. ec2LaunchTemplateCreditSpecification
library-gen/Stratosphere/ResourceProperties/EC2LaunchTemplateEbs.hs view
@@ -35,18 +35,6 @@     , fmap (("VolumeType",) . toJSON) _eC2LaunchTemplateEbsVolumeType     ] -instance FromJSON EC2LaunchTemplateEbs where-  parseJSON (Object obj) =-    EC2LaunchTemplateEbs <$>-      fmap (fmap (fmap unBool')) (obj .:? "DeleteOnTermination") <*>-      fmap (fmap (fmap unBool')) (obj .:? "Encrypted") <*>-      fmap (fmap (fmap unInteger')) (obj .:? "Iops") <*>-      (obj .:? "KmsKeyId") <*>-      (obj .:? "SnapshotId") <*>-      fmap (fmap (fmap unInteger')) (obj .:? "VolumeSize") <*>-      (obj .:? "VolumeType")-  parseJSON _ = mempty- -- | Constructor for 'EC2LaunchTemplateEbs' containing required fields as -- arguments. ec2LaunchTemplateEbs
library-gen/Stratosphere/ResourceProperties/EC2LaunchTemplateElasticGpuSpecification.hs view
@@ -24,12 +24,6 @@     [ fmap (("Type",) . toJSON) _eC2LaunchTemplateElasticGpuSpecificationType     ] -instance FromJSON EC2LaunchTemplateElasticGpuSpecification where-  parseJSON (Object obj) =-    EC2LaunchTemplateElasticGpuSpecification <$>-      (obj .:? "Type")-  parseJSON _ = mempty- -- | Constructor for 'EC2LaunchTemplateElasticGpuSpecification' containing -- required fields as arguments. ec2LaunchTemplateElasticGpuSpecification
library-gen/Stratosphere/ResourceProperties/EC2LaunchTemplateHibernationOptions.hs view
@@ -23,12 +23,6 @@     [ fmap (("Configured",) . toJSON . fmap Bool') _eC2LaunchTemplateHibernationOptionsConfigured     ] -instance FromJSON EC2LaunchTemplateHibernationOptions where-  parseJSON (Object obj) =-    EC2LaunchTemplateHibernationOptions <$>-      fmap (fmap (fmap unBool')) (obj .:? "Configured")-  parseJSON _ = mempty- -- | Constructor for 'EC2LaunchTemplateHibernationOptions' containing required -- fields as arguments. ec2LaunchTemplateHibernationOptions
library-gen/Stratosphere/ResourceProperties/EC2LaunchTemplateIamInstanceProfile.hs view
@@ -25,13 +25,6 @@     , fmap (("Name",) . toJSON) _eC2LaunchTemplateIamInstanceProfileName     ] -instance FromJSON EC2LaunchTemplateIamInstanceProfile where-  parseJSON (Object obj) =-    EC2LaunchTemplateIamInstanceProfile <$>-      (obj .:? "Arn") <*>-      (obj .:? "Name")-  parseJSON _ = mempty- -- | Constructor for 'EC2LaunchTemplateIamInstanceProfile' containing required -- fields as arguments. ec2LaunchTemplateIamInstanceProfile
library-gen/Stratosphere/ResourceProperties/EC2LaunchTemplateInstanceMarketOptions.hs view
@@ -26,13 +26,6 @@     , fmap (("SpotOptions",) . toJSON) _eC2LaunchTemplateInstanceMarketOptionsSpotOptions     ] -instance FromJSON EC2LaunchTemplateInstanceMarketOptions where-  parseJSON (Object obj) =-    EC2LaunchTemplateInstanceMarketOptions <$>-      (obj .:? "MarketType") <*>-      (obj .:? "SpotOptions")-  parseJSON _ = mempty- -- | Constructor for 'EC2LaunchTemplateInstanceMarketOptions' containing -- required fields as arguments. ec2LaunchTemplateInstanceMarketOptions
library-gen/Stratosphere/ResourceProperties/EC2LaunchTemplateIpv6Add.hs view
@@ -23,12 +23,6 @@     [ fmap (("Ipv6Address",) . toJSON) _eC2LaunchTemplateIpv6AddIpv6Address     ] -instance FromJSON EC2LaunchTemplateIpv6Add where-  parseJSON (Object obj) =-    EC2LaunchTemplateIpv6Add <$>-      (obj .:? "Ipv6Address")-  parseJSON _ = mempty- -- | Constructor for 'EC2LaunchTemplateIpv6Add' containing required fields as -- arguments. ec2LaunchTemplateIpv6Add
library-gen/Stratosphere/ResourceProperties/EC2LaunchTemplateLaunchTemplateData.hs view
@@ -84,36 +84,6 @@     , fmap (("UserData",) . toJSON) _eC2LaunchTemplateLaunchTemplateDataUserData     ] -instance FromJSON EC2LaunchTemplateLaunchTemplateData where-  parseJSON (Object obj) =-    EC2LaunchTemplateLaunchTemplateData <$>-      (obj .:? "BlockDeviceMappings") <*>-      (obj .:? "CapacityReservationSpecification") <*>-      (obj .:? "CpuOptions") <*>-      (obj .:? "CreditSpecification") <*>-      fmap (fmap (fmap unBool')) (obj .:? "DisableApiTermination") <*>-      fmap (fmap (fmap unBool')) (obj .:? "EbsOptimized") <*>-      (obj .:? "ElasticGpuSpecifications") <*>-      (obj .:? "ElasticInferenceAccelerators") <*>-      (obj .:? "HibernationOptions") <*>-      (obj .:? "IamInstanceProfile") <*>-      (obj .:? "ImageId") <*>-      (obj .:? "InstanceInitiatedShutdownBehavior") <*>-      (obj .:? "InstanceMarketOptions") <*>-      (obj .:? "InstanceType") <*>-      (obj .:? "KernelId") <*>-      (obj .:? "KeyName") <*>-      (obj .:? "LicenseSpecifications") <*>-      (obj .:? "Monitoring") <*>-      (obj .:? "NetworkInterfaces") <*>-      (obj .:? "Placement") <*>-      (obj .:? "RamDiskId") <*>-      (obj .:? "SecurityGroupIds") <*>-      (obj .:? "SecurityGroups") <*>-      (obj .:? "TagSpecifications") <*>-      (obj .:? "UserData")-  parseJSON _ = mempty- -- | Constructor for 'EC2LaunchTemplateLaunchTemplateData' containing required -- fields as arguments. ec2LaunchTemplateLaunchTemplateData
library-gen/Stratosphere/ResourceProperties/EC2LaunchTemplateLaunchTemplateElasticInferenceAccelerator.hs view
@@ -25,12 +25,6 @@     [ fmap (("Type",) . toJSON) _eC2LaunchTemplateLaunchTemplateElasticInferenceAcceleratorType     ] -instance FromJSON EC2LaunchTemplateLaunchTemplateElasticInferenceAccelerator where-  parseJSON (Object obj) =-    EC2LaunchTemplateLaunchTemplateElasticInferenceAccelerator <$>-      (obj .:? "Type")-  parseJSON _ = mempty- -- | Constructor for -- 'EC2LaunchTemplateLaunchTemplateElasticInferenceAccelerator' containing -- required fields as arguments.
library-gen/Stratosphere/ResourceProperties/EC2LaunchTemplateLicenseSpecification.hs view
@@ -24,12 +24,6 @@     [ fmap (("LicenseConfigurationArn",) . toJSON) _eC2LaunchTemplateLicenseSpecificationLicenseConfigurationArn     ] -instance FromJSON EC2LaunchTemplateLicenseSpecification where-  parseJSON (Object obj) =-    EC2LaunchTemplateLicenseSpecification <$>-      (obj .:? "LicenseConfigurationArn")-  parseJSON _ = mempty- -- | Constructor for 'EC2LaunchTemplateLicenseSpecification' containing -- required fields as arguments. ec2LaunchTemplateLicenseSpecification
library-gen/Stratosphere/ResourceProperties/EC2LaunchTemplateMonitoring.hs view
@@ -23,12 +23,6 @@     [ fmap (("Enabled",) . toJSON . fmap Bool') _eC2LaunchTemplateMonitoringEnabled     ] -instance FromJSON EC2LaunchTemplateMonitoring where-  parseJSON (Object obj) =-    EC2LaunchTemplateMonitoring <$>-      fmap (fmap (fmap unBool')) (obj .:? "Enabled")-  parseJSON _ = mempty- -- | Constructor for 'EC2LaunchTemplateMonitoring' containing required fields -- as arguments. ec2LaunchTemplateMonitoring
library-gen/Stratosphere/ResourceProperties/EC2LaunchTemplateNetworkInterface.hs view
@@ -46,23 +46,6 @@     , fmap (("SubnetId",) . toJSON) _eC2LaunchTemplateNetworkInterfaceSubnetId     ] -instance FromJSON EC2LaunchTemplateNetworkInterface where-  parseJSON (Object obj) =-    EC2LaunchTemplateNetworkInterface <$>-      fmap (fmap (fmap unBool')) (obj .:? "AssociatePublicIpAddress") <*>-      fmap (fmap (fmap unBool')) (obj .:? "DeleteOnTermination") <*>-      (obj .:? "Description") <*>-      fmap (fmap (fmap unInteger')) (obj .:? "DeviceIndex") <*>-      (obj .:? "Groups") <*>-      fmap (fmap (fmap unInteger')) (obj .:? "Ipv6AddressCount") <*>-      (obj .:? "Ipv6Addresses") <*>-      (obj .:? "NetworkInterfaceId") <*>-      (obj .:? "PrivateIpAddress") <*>-      (obj .:? "PrivateIpAddresses") <*>-      fmap (fmap (fmap unInteger')) (obj .:? "SecondaryPrivateIpAddressCount") <*>-      (obj .:? "SubnetId")-  parseJSON _ = mempty- -- | Constructor for 'EC2LaunchTemplateNetworkInterface' containing required -- fields as arguments. ec2LaunchTemplateNetworkInterface
library-gen/Stratosphere/ResourceProperties/EC2LaunchTemplatePlacement.hs view
@@ -31,16 +31,6 @@     , fmap (("Tenancy",) . toJSON) _eC2LaunchTemplatePlacementTenancy     ] -instance FromJSON EC2LaunchTemplatePlacement where-  parseJSON (Object obj) =-    EC2LaunchTemplatePlacement <$>-      (obj .:? "Affinity") <*>-      (obj .:? "AvailabilityZone") <*>-      (obj .:? "GroupName") <*>-      (obj .:? "HostId") <*>-      (obj .:? "Tenancy")-  parseJSON _ = mempty- -- | Constructor for 'EC2LaunchTemplatePlacement' containing required fields -- as arguments. ec2LaunchTemplatePlacement
library-gen/Stratosphere/ResourceProperties/EC2LaunchTemplatePrivateIpAdd.hs view
@@ -25,13 +25,6 @@     , fmap (("PrivateIpAddress",) . toJSON) _eC2LaunchTemplatePrivateIpAddPrivateIpAddress     ] -instance FromJSON EC2LaunchTemplatePrivateIpAdd where-  parseJSON (Object obj) =-    EC2LaunchTemplatePrivateIpAdd <$>-      fmap (fmap (fmap unBool')) (obj .:? "Primary") <*>-      (obj .:? "PrivateIpAddress")-  parseJSON _ = mempty- -- | Constructor for 'EC2LaunchTemplatePrivateIpAdd' containing required -- fields as arguments. ec2LaunchTemplatePrivateIpAdd
library-gen/Stratosphere/ResourceProperties/EC2LaunchTemplateSpotOptions.hs view
@@ -27,14 +27,6 @@     , fmap (("SpotInstanceType",) . toJSON) _eC2LaunchTemplateSpotOptionsSpotInstanceType     ] -instance FromJSON EC2LaunchTemplateSpotOptions where-  parseJSON (Object obj) =-    EC2LaunchTemplateSpotOptions <$>-      (obj .:? "InstanceInterruptionBehavior") <*>-      (obj .:? "MaxPrice") <*>-      (obj .:? "SpotInstanceType")-  parseJSON _ = mempty- -- | Constructor for 'EC2LaunchTemplateSpotOptions' containing required fields -- as arguments. ec2LaunchTemplateSpotOptions
library-gen/Stratosphere/ResourceProperties/EC2LaunchTemplateTagSpecification.hs view
@@ -25,13 +25,6 @@     , fmap (("Tags",) . toJSON) _eC2LaunchTemplateTagSpecificationTags     ] -instance FromJSON EC2LaunchTemplateTagSpecification where-  parseJSON (Object obj) =-    EC2LaunchTemplateTagSpecification <$>-      (obj .:? "ResourceType") <*>-      (obj .:? "Tags")-  parseJSON _ = mempty- -- | Constructor for 'EC2LaunchTemplateTagSpecification' containing required -- fields as arguments. ec2LaunchTemplateTagSpecification
library-gen/Stratosphere/ResourceProperties/EC2NetworkAclEntryIcmp.hs view
@@ -25,13 +25,6 @@     , fmap (("Type",) . toJSON . fmap Integer') _eC2NetworkAclEntryIcmpType     ] -instance FromJSON EC2NetworkAclEntryIcmp where-  parseJSON (Object obj) =-    EC2NetworkAclEntryIcmp <$>-      fmap (fmap (fmap unInteger')) (obj .:? "Code") <*>-      fmap (fmap (fmap unInteger')) (obj .:? "Type")-  parseJSON _ = mempty- -- | Constructor for 'EC2NetworkAclEntryIcmp' containing required fields as -- arguments. ec2NetworkAclEntryIcmp
library-gen/Stratosphere/ResourceProperties/EC2NetworkAclEntryPortRange.hs view
@@ -25,13 +25,6 @@     , fmap (("To",) . toJSON . fmap Integer') _eC2NetworkAclEntryPortRangeTo     ] -instance FromJSON EC2NetworkAclEntryPortRange where-  parseJSON (Object obj) =-    EC2NetworkAclEntryPortRange <$>-      fmap (fmap (fmap unInteger')) (obj .:? "From") <*>-      fmap (fmap (fmap unInteger')) (obj .:? "To")-  parseJSON _ = mempty- -- | Constructor for 'EC2NetworkAclEntryPortRange' containing required fields -- as arguments. ec2NetworkAclEntryPortRange
library-gen/Stratosphere/ResourceProperties/EC2NetworkInterfaceInstanceIpv6Address.hs view
@@ -24,12 +24,6 @@     [ (Just . ("Ipv6Address",) . toJSON) _eC2NetworkInterfaceInstanceIpv6AddressIpv6Address     ] -instance FromJSON EC2NetworkInterfaceInstanceIpv6Address where-  parseJSON (Object obj) =-    EC2NetworkInterfaceInstanceIpv6Address <$>-      (obj .: "Ipv6Address")-  parseJSON _ = mempty- -- | Constructor for 'EC2NetworkInterfaceInstanceIpv6Address' containing -- required fields as arguments. ec2NetworkInterfaceInstanceIpv6Address
library-gen/Stratosphere/ResourceProperties/EC2NetworkInterfacePrivateIpAddressSpecification.hs view
@@ -27,13 +27,6 @@     , (Just . ("PrivateIpAddress",) . toJSON) _eC2NetworkInterfacePrivateIpAddressSpecificationPrivateIpAddress     ] -instance FromJSON EC2NetworkInterfacePrivateIpAddressSpecification where-  parseJSON (Object obj) =-    EC2NetworkInterfacePrivateIpAddressSpecification <$>-      fmap (fmap unBool') (obj .: "Primary") <*>-      (obj .: "PrivateIpAddress")-  parseJSON _ = mempty- -- | Constructor for 'EC2NetworkInterfacePrivateIpAddressSpecification' -- containing required fields as arguments. ec2NetworkInterfacePrivateIpAddressSpecification
library-gen/Stratosphere/ResourceProperties/EC2SecurityGroupEgressProperty.hs view
@@ -37,19 +37,6 @@     , fmap (("ToPort",) . toJSON . fmap Integer') _eC2SecurityGroupEgressPropertyToPort     ] -instance FromJSON EC2SecurityGroupEgressProperty where-  parseJSON (Object obj) =-    EC2SecurityGroupEgressProperty <$>-      (obj .:? "CidrIp") <*>-      (obj .:? "CidrIpv6") <*>-      (obj .:? "Description") <*>-      (obj .:? "DestinationPrefixListId") <*>-      (obj .:? "DestinationSecurityGroupId") <*>-      fmap (fmap (fmap unInteger')) (obj .:? "FromPort") <*>-      (obj .: "IpProtocol") <*>-      fmap (fmap (fmap unInteger')) (obj .:? "ToPort")-  parseJSON _ = mempty- -- | Constructor for 'EC2SecurityGroupEgressProperty' containing required -- fields as arguments. ec2SecurityGroupEgressProperty
library-gen/Stratosphere/ResourceProperties/EC2SecurityGroupIngressProperty.hs view
@@ -41,21 +41,6 @@     , fmap (("ToPort",) . toJSON . fmap Integer') _eC2SecurityGroupIngressPropertyToPort     ] -instance FromJSON EC2SecurityGroupIngressProperty where-  parseJSON (Object obj) =-    EC2SecurityGroupIngressProperty <$>-      (obj .:? "CidrIp") <*>-      (obj .:? "CidrIpv6") <*>-      (obj .:? "Description") <*>-      fmap (fmap (fmap unInteger')) (obj .:? "FromPort") <*>-      (obj .: "IpProtocol") <*>-      (obj .:? "SourcePrefixListId") <*>-      (obj .:? "SourceSecurityGroupId") <*>-      (obj .:? "SourceSecurityGroupName") <*>-      (obj .:? "SourceSecurityGroupOwnerId") <*>-      fmap (fmap (fmap unInteger')) (obj .:? "ToPort")-  parseJSON _ = mempty- -- | Constructor for 'EC2SecurityGroupIngressProperty' containing required -- fields as arguments. ec2SecurityGroupIngressProperty
library-gen/Stratosphere/ResourceProperties/EC2SpotFleetBlockDeviceMapping.hs view
@@ -29,15 +29,6 @@     , fmap (("VirtualName",) . toJSON) _eC2SpotFleetBlockDeviceMappingVirtualName     ] -instance FromJSON EC2SpotFleetBlockDeviceMapping where-  parseJSON (Object obj) =-    EC2SpotFleetBlockDeviceMapping <$>-      (obj .: "DeviceName") <*>-      (obj .:? "Ebs") <*>-      (obj .:? "NoDevice") <*>-      (obj .:? "VirtualName")-  parseJSON _ = mempty- -- | Constructor for 'EC2SpotFleetBlockDeviceMapping' containing required -- fields as arguments. ec2SpotFleetBlockDeviceMapping
library-gen/Stratosphere/ResourceProperties/EC2SpotFleetClassicLoadBalancer.hs view
@@ -23,12 +23,6 @@     [ (Just . ("Name",) . toJSON) _eC2SpotFleetClassicLoadBalancerName     ] -instance FromJSON EC2SpotFleetClassicLoadBalancer where-  parseJSON (Object obj) =-    EC2SpotFleetClassicLoadBalancer <$>-      (obj .: "Name")-  parseJSON _ = mempty- -- | Constructor for 'EC2SpotFleetClassicLoadBalancer' containing required -- fields as arguments. ec2SpotFleetClassicLoadBalancer
library-gen/Stratosphere/ResourceProperties/EC2SpotFleetClassicLoadBalancersConfig.hs view
@@ -24,12 +24,6 @@     [ (Just . ("ClassicLoadBalancers",) . toJSON) _eC2SpotFleetClassicLoadBalancersConfigClassicLoadBalancers     ] -instance FromJSON EC2SpotFleetClassicLoadBalancersConfig where-  parseJSON (Object obj) =-    EC2SpotFleetClassicLoadBalancersConfig <$>-      (obj .: "ClassicLoadBalancers")-  parseJSON _ = mempty- -- | Constructor for 'EC2SpotFleetClassicLoadBalancersConfig' containing -- required fields as arguments. ec2SpotFleetClassicLoadBalancersConfig
library-gen/Stratosphere/ResourceProperties/EC2SpotFleetEbsBlockDevice.hs view
@@ -33,17 +33,6 @@     , fmap (("VolumeType",) . toJSON) _eC2SpotFleetEbsBlockDeviceVolumeType     ] -instance FromJSON EC2SpotFleetEbsBlockDevice where-  parseJSON (Object obj) =-    EC2SpotFleetEbsBlockDevice <$>-      fmap (fmap (fmap unBool')) (obj .:? "DeleteOnTermination") <*>-      fmap (fmap (fmap unBool')) (obj .:? "Encrypted") <*>-      fmap (fmap (fmap unInteger')) (obj .:? "Iops") <*>-      (obj .:? "SnapshotId") <*>-      fmap (fmap (fmap unInteger')) (obj .:? "VolumeSize") <*>-      (obj .:? "VolumeType")-  parseJSON _ = mempty- -- | Constructor for 'EC2SpotFleetEbsBlockDevice' containing required fields -- as arguments. ec2SpotFleetEbsBlockDevice
library-gen/Stratosphere/ResourceProperties/EC2SpotFleetFleetLaunchTemplateSpecification.hs view
@@ -29,14 +29,6 @@     , (Just . ("Version",) . toJSON) _eC2SpotFleetFleetLaunchTemplateSpecificationVersion     ] -instance FromJSON EC2SpotFleetFleetLaunchTemplateSpecification where-  parseJSON (Object obj) =-    EC2SpotFleetFleetLaunchTemplateSpecification <$>-      (obj .:? "LaunchTemplateId") <*>-      (obj .:? "LaunchTemplateName") <*>-      (obj .: "Version")-  parseJSON _ = mempty- -- | Constructor for 'EC2SpotFleetFleetLaunchTemplateSpecification' containing -- required fields as arguments. ec2SpotFleetFleetLaunchTemplateSpecification
library-gen/Stratosphere/ResourceProperties/EC2SpotFleetGroupIdentifier.hs view
@@ -23,12 +23,6 @@     [ (Just . ("GroupId",) . toJSON) _eC2SpotFleetGroupIdentifierGroupId     ] -instance FromJSON EC2SpotFleetGroupIdentifier where-  parseJSON (Object obj) =-    EC2SpotFleetGroupIdentifier <$>-      (obj .: "GroupId")-  parseJSON _ = mempty- -- | Constructor for 'EC2SpotFleetGroupIdentifier' containing required fields -- as arguments. ec2SpotFleetGroupIdentifier
library-gen/Stratosphere/ResourceProperties/EC2SpotFleetIamInstanceProfileSpecification.hs view
@@ -25,12 +25,6 @@     [ fmap (("Arn",) . toJSON) _eC2SpotFleetIamInstanceProfileSpecificationArn     ] -instance FromJSON EC2SpotFleetIamInstanceProfileSpecification where-  parseJSON (Object obj) =-    EC2SpotFleetIamInstanceProfileSpecification <$>-      (obj .:? "Arn")-  parseJSON _ = mempty- -- | Constructor for 'EC2SpotFleetIamInstanceProfileSpecification' containing -- required fields as arguments. ec2SpotFleetIamInstanceProfileSpecification
library-gen/Stratosphere/ResourceProperties/EC2SpotFleetInstanceIpv6Address.hs view
@@ -23,12 +23,6 @@     [ (Just . ("Ipv6Address",) . toJSON) _eC2SpotFleetInstanceIpv6AddressIpv6Address     ] -instance FromJSON EC2SpotFleetInstanceIpv6Address where-  parseJSON (Object obj) =-    EC2SpotFleetInstanceIpv6Address <$>-      (obj .: "Ipv6Address")-  parseJSON _ = mempty- -- | Constructor for 'EC2SpotFleetInstanceIpv6Address' containing required -- fields as arguments. ec2SpotFleetInstanceIpv6Address
library-gen/Stratosphere/ResourceProperties/EC2SpotFleetInstanceNetworkInterfaceSpecification.hs view
@@ -46,22 +46,6 @@     , fmap (("SubnetId",) . toJSON) _eC2SpotFleetInstanceNetworkInterfaceSpecificationSubnetId     ] -instance FromJSON EC2SpotFleetInstanceNetworkInterfaceSpecification where-  parseJSON (Object obj) =-    EC2SpotFleetInstanceNetworkInterfaceSpecification <$>-      fmap (fmap (fmap unBool')) (obj .:? "AssociatePublicIpAddress") <*>-      fmap (fmap (fmap unBool')) (obj .:? "DeleteOnTermination") <*>-      (obj .:? "Description") <*>-      fmap (fmap (fmap unInteger')) (obj .:? "DeviceIndex") <*>-      (obj .:? "Groups") <*>-      fmap (fmap (fmap unInteger')) (obj .:? "Ipv6AddressCount") <*>-      (obj .:? "Ipv6Addresses") <*>-      (obj .:? "NetworkInterfaceId") <*>-      (obj .:? "PrivateIpAddresses") <*>-      fmap (fmap (fmap unInteger')) (obj .:? "SecondaryPrivateIpAddressCount") <*>-      (obj .:? "SubnetId")-  parseJSON _ = mempty- -- | Constructor for 'EC2SpotFleetInstanceNetworkInterfaceSpecification' -- containing required fields as arguments. ec2SpotFleetInstanceNetworkInterfaceSpecification
library-gen/Stratosphere/ResourceProperties/EC2SpotFleetLaunchTemplateConfig.hs view
@@ -26,13 +26,6 @@     , fmap (("Overrides",) . toJSON) _eC2SpotFleetLaunchTemplateConfigOverrides     ] -instance FromJSON EC2SpotFleetLaunchTemplateConfig where-  parseJSON (Object obj) =-    EC2SpotFleetLaunchTemplateConfig <$>-      (obj .:? "LaunchTemplateSpecification") <*>-      (obj .:? "Overrides")-  parseJSON _ = mempty- -- | Constructor for 'EC2SpotFleetLaunchTemplateConfig' containing required -- fields as arguments. ec2SpotFleetLaunchTemplateConfig
library-gen/Stratosphere/ResourceProperties/EC2SpotFleetLaunchTemplateOverrides.hs view
@@ -31,16 +31,6 @@     , fmap (("WeightedCapacity",) . toJSON . fmap Double') _eC2SpotFleetLaunchTemplateOverridesWeightedCapacity     ] -instance FromJSON EC2SpotFleetLaunchTemplateOverrides where-  parseJSON (Object obj) =-    EC2SpotFleetLaunchTemplateOverrides <$>-      (obj .:? "AvailabilityZone") <*>-      (obj .:? "InstanceType") <*>-      (obj .:? "SpotPrice") <*>-      (obj .:? "SubnetId") <*>-      fmap (fmap (fmap unDouble')) (obj .:? "WeightedCapacity")-  parseJSON _ = mempty- -- | Constructor for 'EC2SpotFleetLaunchTemplateOverrides' containing required -- fields as arguments. ec2SpotFleetLaunchTemplateOverrides
library-gen/Stratosphere/ResourceProperties/EC2SpotFleetLoadBalancersConfig.hs view
@@ -26,13 +26,6 @@     , fmap (("TargetGroupsConfig",) . toJSON) _eC2SpotFleetLoadBalancersConfigTargetGroupsConfig     ] -instance FromJSON EC2SpotFleetLoadBalancersConfig where-  parseJSON (Object obj) =-    EC2SpotFleetLoadBalancersConfig <$>-      (obj .:? "ClassicLoadBalancersConfig") <*>-      (obj .:? "TargetGroupsConfig")-  parseJSON _ = mempty- -- | Constructor for 'EC2SpotFleetLoadBalancersConfig' containing required -- fields as arguments. ec2SpotFleetLoadBalancersConfig
library-gen/Stratosphere/ResourceProperties/EC2SpotFleetPrivateIpAddressSpecification.hs view
@@ -26,13 +26,6 @@     , (Just . ("PrivateIpAddress",) . toJSON) _eC2SpotFleetPrivateIpAddressSpecificationPrivateIpAddress     ] -instance FromJSON EC2SpotFleetPrivateIpAddressSpecification where-  parseJSON (Object obj) =-    EC2SpotFleetPrivateIpAddressSpecification <$>-      fmap (fmap (fmap unBool')) (obj .:? "Primary") <*>-      (obj .: "PrivateIpAddress")-  parseJSON _ = mempty- -- | Constructor for 'EC2SpotFleetPrivateIpAddressSpecification' containing -- required fields as arguments. ec2SpotFleetPrivateIpAddressSpecification
library-gen/Stratosphere/ResourceProperties/EC2SpotFleetSpotFleetLaunchSpecification.hs view
@@ -62,28 +62,6 @@     , fmap (("WeightedCapacity",) . toJSON . fmap Double') _eC2SpotFleetSpotFleetLaunchSpecificationWeightedCapacity     ] -instance FromJSON EC2SpotFleetSpotFleetLaunchSpecification where-  parseJSON (Object obj) =-    EC2SpotFleetSpotFleetLaunchSpecification <$>-      (obj .:? "BlockDeviceMappings") <*>-      fmap (fmap (fmap unBool')) (obj .:? "EbsOptimized") <*>-      (obj .:? "IamInstanceProfile") <*>-      (obj .: "ImageId") <*>-      (obj .: "InstanceType") <*>-      (obj .:? "KernelId") <*>-      (obj .:? "KeyName") <*>-      (obj .:? "Monitoring") <*>-      (obj .:? "NetworkInterfaces") <*>-      (obj .:? "Placement") <*>-      (obj .:? "RamdiskId") <*>-      (obj .:? "SecurityGroups") <*>-      (obj .:? "SpotPrice") <*>-      (obj .:? "SubnetId") <*>-      (obj .:? "TagSpecifications") <*>-      (obj .:? "UserData") <*>-      fmap (fmap (fmap unDouble')) (obj .:? "WeightedCapacity")-  parseJSON _ = mempty- -- | Constructor for 'EC2SpotFleetSpotFleetLaunchSpecification' containing -- required fields as arguments. ec2SpotFleetSpotFleetLaunchSpecification
library-gen/Stratosphere/ResourceProperties/EC2SpotFleetSpotFleetMonitoring.hs view
@@ -23,12 +23,6 @@     [ fmap (("Enabled",) . toJSON . fmap Bool') _eC2SpotFleetSpotFleetMonitoringEnabled     ] -instance FromJSON EC2SpotFleetSpotFleetMonitoring where-  parseJSON (Object obj) =-    EC2SpotFleetSpotFleetMonitoring <$>-      fmap (fmap (fmap unBool')) (obj .:? "Enabled")-  parseJSON _ = mempty- -- | Constructor for 'EC2SpotFleetSpotFleetMonitoring' containing required -- fields as arguments. ec2SpotFleetSpotFleetMonitoring
library-gen/Stratosphere/ResourceProperties/EC2SpotFleetSpotFleetRequestConfigData.hs view
@@ -52,25 +52,6 @@     , fmap (("ValidUntil",) . toJSON) _eC2SpotFleetSpotFleetRequestConfigDataValidUntil     ] -instance FromJSON EC2SpotFleetSpotFleetRequestConfigData where-  parseJSON (Object obj) =-    EC2SpotFleetSpotFleetRequestConfigData <$>-      (obj .:? "AllocationStrategy") <*>-      (obj .:? "ExcessCapacityTerminationPolicy") <*>-      (obj .: "IamFleetRole") <*>-      (obj .:? "InstanceInterruptionBehavior") <*>-      (obj .:? "LaunchSpecifications") <*>-      (obj .:? "LaunchTemplateConfigs") <*>-      (obj .:? "LoadBalancersConfig") <*>-      fmap (fmap (fmap unBool')) (obj .:? "ReplaceUnhealthyInstances") <*>-      (obj .:? "SpotPrice") <*>-      fmap (fmap unInteger') (obj .: "TargetCapacity") <*>-      fmap (fmap (fmap unBool')) (obj .:? "TerminateInstancesWithExpiration") <*>-      (obj .:? "Type") <*>-      (obj .:? "ValidFrom") <*>-      (obj .:? "ValidUntil")-  parseJSON _ = mempty- -- | Constructor for 'EC2SpotFleetSpotFleetRequestConfigData' containing -- required fields as arguments. ec2SpotFleetSpotFleetRequestConfigData
library-gen/Stratosphere/ResourceProperties/EC2SpotFleetSpotFleetTagSpecification.hs view
@@ -26,13 +26,6 @@     , fmap (("Tags",) . toJSON) _eC2SpotFleetSpotFleetTagSpecificationTags     ] -instance FromJSON EC2SpotFleetSpotFleetTagSpecification where-  parseJSON (Object obj) =-    EC2SpotFleetSpotFleetTagSpecification <$>-      (obj .:? "ResourceType") <*>-      (obj .:? "Tags")-  parseJSON _ = mempty- -- | Constructor for 'EC2SpotFleetSpotFleetTagSpecification' containing -- required fields as arguments. ec2SpotFleetSpotFleetTagSpecification
library-gen/Stratosphere/ResourceProperties/EC2SpotFleetSpotPlacement.hs view
@@ -27,14 +27,6 @@     , fmap (("Tenancy",) . toJSON) _eC2SpotFleetSpotPlacementTenancy     ] -instance FromJSON EC2SpotFleetSpotPlacement where-  parseJSON (Object obj) =-    EC2SpotFleetSpotPlacement <$>-      (obj .:? "AvailabilityZone") <*>-      (obj .:? "GroupName") <*>-      (obj .:? "Tenancy")-  parseJSON _ = mempty- -- | Constructor for 'EC2SpotFleetSpotPlacement' containing required fields as -- arguments. ec2SpotFleetSpotPlacement
library-gen/Stratosphere/ResourceProperties/EC2SpotFleetTargetGroup.hs view
@@ -23,12 +23,6 @@     [ (Just . ("Arn",) . toJSON) _eC2SpotFleetTargetGroupArn     ] -instance FromJSON EC2SpotFleetTargetGroup where-  parseJSON (Object obj) =-    EC2SpotFleetTargetGroup <$>-      (obj .: "Arn")-  parseJSON _ = mempty- -- | Constructor for 'EC2SpotFleetTargetGroup' containing required fields as -- arguments. ec2SpotFleetTargetGroup
library-gen/Stratosphere/ResourceProperties/EC2SpotFleetTargetGroupsConfig.hs view
@@ -23,12 +23,6 @@     [ (Just . ("TargetGroups",) . toJSON) _eC2SpotFleetTargetGroupsConfigTargetGroups     ] -instance FromJSON EC2SpotFleetTargetGroupsConfig where-  parseJSON (Object obj) =-    EC2SpotFleetTargetGroupsConfig <$>-      (obj .: "TargetGroups")-  parseJSON _ = mempty- -- | Constructor for 'EC2SpotFleetTargetGroupsConfig' containing required -- fields as arguments. ec2SpotFleetTargetGroupsConfig
library-gen/Stratosphere/ResourceProperties/EC2VPNConnectionVpnTunnelOptionsSpecification.hs view
@@ -27,13 +27,6 @@     , fmap (("TunnelInsideCidr",) . toJSON) _eC2VPNConnectionVpnTunnelOptionsSpecificationTunnelInsideCidr     ] -instance FromJSON EC2VPNConnectionVpnTunnelOptionsSpecification where-  parseJSON (Object obj) =-    EC2VPNConnectionVpnTunnelOptionsSpecification <$>-      (obj .:? "PreSharedKey") <*>-      (obj .:? "TunnelInsideCidr")-  parseJSON _ = mempty- -- | Constructor for 'EC2VPNConnectionVpnTunnelOptionsSpecification' -- containing required fields as arguments. ec2VPNConnectionVpnTunnelOptionsSpecification
library-gen/Stratosphere/ResourceProperties/ECRRepositoryLifecyclePolicy.hs view
@@ -25,13 +25,6 @@     , fmap (("RegistryId",) . toJSON) _eCRRepositoryLifecyclePolicyRegistryId     ] -instance FromJSON ECRRepositoryLifecyclePolicy where-  parseJSON (Object obj) =-    ECRRepositoryLifecyclePolicy <$>-      (obj .:? "LifecyclePolicyText") <*>-      (obj .:? "RegistryId")-  parseJSON _ = mempty- -- | Constructor for 'ECRRepositoryLifecyclePolicy' containing required fields -- as arguments. ecrRepositoryLifecyclePolicy
library-gen/Stratosphere/ResourceProperties/ECSServiceAwsVpcConfiguration.hs view
@@ -27,14 +27,6 @@     , (Just . ("Subnets",) . toJSON) _eCSServiceAwsVpcConfigurationSubnets     ] -instance FromJSON ECSServiceAwsVpcConfiguration where-  parseJSON (Object obj) =-    ECSServiceAwsVpcConfiguration <$>-      (obj .:? "AssignPublicIp") <*>-      (obj .:? "SecurityGroups") <*>-      (obj .: "Subnets")-  parseJSON _ = mempty- -- | Constructor for 'ECSServiceAwsVpcConfiguration' containing required -- fields as arguments. ecsServiceAwsVpcConfiguration
library-gen/Stratosphere/ResourceProperties/ECSServiceDeploymentConfiguration.hs view
@@ -25,13 +25,6 @@     , fmap (("MinimumHealthyPercent",) . toJSON . fmap Integer') _eCSServiceDeploymentConfigurationMinimumHealthyPercent     ] -instance FromJSON ECSServiceDeploymentConfiguration where-  parseJSON (Object obj) =-    ECSServiceDeploymentConfiguration <$>-      fmap (fmap (fmap unInteger')) (obj .:? "MaximumPercent") <*>-      fmap (fmap (fmap unInteger')) (obj .:? "MinimumHealthyPercent")-  parseJSON _ = mempty- -- | Constructor for 'ECSServiceDeploymentConfiguration' containing required -- fields as arguments. ecsServiceDeploymentConfiguration
library-gen/Stratosphere/ResourceProperties/ECSServiceLoadBalancer.hs view
@@ -29,15 +29,6 @@     , fmap (("TargetGroupArn",) . toJSON) _eCSServiceLoadBalancerTargetGroupArn     ] -instance FromJSON ECSServiceLoadBalancer where-  parseJSON (Object obj) =-    ECSServiceLoadBalancer <$>-      (obj .:? "ContainerName") <*>-      fmap (fmap unInteger') (obj .: "ContainerPort") <*>-      (obj .:? "LoadBalancerName") <*>-      (obj .:? "TargetGroupArn")-  parseJSON _ = mempty- -- | Constructor for 'ECSServiceLoadBalancer' containing required fields as -- arguments. ecsServiceLoadBalancer
library-gen/Stratosphere/ResourceProperties/ECSServiceNetworkConfiguration.hs view
@@ -23,12 +23,6 @@     [ fmap (("AwsvpcConfiguration",) . toJSON) _eCSServiceNetworkConfigurationAwsvpcConfiguration     ] -instance FromJSON ECSServiceNetworkConfiguration where-  parseJSON (Object obj) =-    ECSServiceNetworkConfiguration <$>-      (obj .:? "AwsvpcConfiguration")-  parseJSON _ = mempty- -- | Constructor for 'ECSServiceNetworkConfiguration' containing required -- fields as arguments. ecsServiceNetworkConfiguration
library-gen/Stratosphere/ResourceProperties/ECSServicePlacementConstraint.hs view
@@ -25,13 +25,6 @@     , (Just . ("Type",) . toJSON) _eCSServicePlacementConstraintType     ] -instance FromJSON ECSServicePlacementConstraint where-  parseJSON (Object obj) =-    ECSServicePlacementConstraint <$>-      (obj .:? "Expression") <*>-      (obj .: "Type")-  parseJSON _ = mempty- -- | Constructor for 'ECSServicePlacementConstraint' containing required -- fields as arguments. ecsServicePlacementConstraint
library-gen/Stratosphere/ResourceProperties/ECSServicePlacementStrategy.hs view
@@ -25,13 +25,6 @@     , (Just . ("Type",) . toJSON) _eCSServicePlacementStrategyType     ] -instance FromJSON ECSServicePlacementStrategy where-  parseJSON (Object obj) =-    ECSServicePlacementStrategy <$>-      (obj .:? "Field") <*>-      (obj .: "Type")-  parseJSON _ = mempty- -- | Constructor for 'ECSServicePlacementStrategy' containing required fields -- as arguments. ecsServicePlacementStrategy
library-gen/Stratosphere/ResourceProperties/ECSServiceServiceRegistry.hs view
@@ -29,15 +29,6 @@     , fmap (("RegistryArn",) . toJSON) _eCSServiceServiceRegistryRegistryArn     ] -instance FromJSON ECSServiceServiceRegistry where-  parseJSON (Object obj) =-    ECSServiceServiceRegistry <$>-      (obj .:? "ContainerName") <*>-      fmap (fmap (fmap unInteger')) (obj .:? "ContainerPort") <*>-      fmap (fmap (fmap unInteger')) (obj .:? "Port") <*>-      (obj .:? "RegistryArn")-  parseJSON _ = mempty- -- | Constructor for 'ECSServiceServiceRegistry' containing required fields as -- arguments. ecsServiceServiceRegistry
library-gen/Stratosphere/ResourceProperties/ECSTaskDefinitionContainerDefinition.hs view
@@ -88,40 +88,6 @@     , fmap (("WorkingDirectory",) . toJSON) _eCSTaskDefinitionContainerDefinitionWorkingDirectory     ] -instance FromJSON ECSTaskDefinitionContainerDefinition where-  parseJSON (Object obj) =-    ECSTaskDefinitionContainerDefinition <$>-      (obj .:? "Command") <*>-      fmap (fmap (fmap unInteger')) (obj .:? "Cpu") <*>-      fmap (fmap (fmap unBool')) (obj .:? "DisableNetworking") <*>-      (obj .:? "DnsSearchDomains") <*>-      (obj .:? "DnsServers") <*>-      (obj .:? "DockerLabels") <*>-      (obj .:? "DockerSecurityOptions") <*>-      (obj .:? "EntryPoint") <*>-      (obj .:? "Environment") <*>-      fmap (fmap (fmap unBool')) (obj .:? "Essential") <*>-      (obj .:? "ExtraHosts") <*>-      (obj .:? "HealthCheck") <*>-      (obj .:? "Hostname") <*>-      (obj .: "Image") <*>-      (obj .:? "Links") <*>-      (obj .:? "LinuxParameters") <*>-      (obj .:? "LogConfiguration") <*>-      fmap (fmap (fmap unInteger')) (obj .:? "Memory") <*>-      fmap (fmap (fmap unInteger')) (obj .:? "MemoryReservation") <*>-      (obj .:? "MountPoints") <*>-      (obj .: "Name") <*>-      (obj .:? "PortMappings") <*>-      fmap (fmap (fmap unBool')) (obj .:? "Privileged") <*>-      fmap (fmap (fmap unBool')) (obj .:? "ReadonlyRootFilesystem") <*>-      (obj .:? "RepositoryCredentials") <*>-      (obj .:? "Ulimits") <*>-      (obj .:? "User") <*>-      (obj .:? "VolumesFrom") <*>-      (obj .:? "WorkingDirectory")-  parseJSON _ = mempty- -- | Constructor for 'ECSTaskDefinitionContainerDefinition' containing -- required fields as arguments. ecsTaskDefinitionContainerDefinition
library-gen/Stratosphere/ResourceProperties/ECSTaskDefinitionDevice.hs view
@@ -27,14 +27,6 @@     , fmap (("Permissions",) . toJSON) _eCSTaskDefinitionDevicePermissions     ] -instance FromJSON ECSTaskDefinitionDevice where-  parseJSON (Object obj) =-    ECSTaskDefinitionDevice <$>-      (obj .:? "ContainerPath") <*>-      (obj .: "HostPath") <*>-      (obj .:? "Permissions")-  parseJSON _ = mempty- -- | Constructor for 'ECSTaskDefinitionDevice' containing required fields as -- arguments. ecsTaskDefinitionDevice
library-gen/Stratosphere/ResourceProperties/ECSTaskDefinitionDockerVolumeConfiguration.hs view
@@ -32,16 +32,6 @@     , fmap (("Scope",) . toJSON) _eCSTaskDefinitionDockerVolumeConfigurationScope     ] -instance FromJSON ECSTaskDefinitionDockerVolumeConfiguration where-  parseJSON (Object obj) =-    ECSTaskDefinitionDockerVolumeConfiguration <$>-      fmap (fmap (fmap unBool')) (obj .:? "Autoprovision") <*>-      (obj .:? "Driver") <*>-      (obj .:? "DriverOpts") <*>-      (obj .:? "Labels") <*>-      (obj .:? "Scope")-  parseJSON _ = mempty- -- | Constructor for 'ECSTaskDefinitionDockerVolumeConfiguration' containing -- required fields as arguments. ecsTaskDefinitionDockerVolumeConfiguration
library-gen/Stratosphere/ResourceProperties/ECSTaskDefinitionHealthCheck.hs view
@@ -31,16 +31,6 @@     , fmap (("Timeout",) . toJSON . fmap Integer') _eCSTaskDefinitionHealthCheckTimeout     ] -instance FromJSON ECSTaskDefinitionHealthCheck where-  parseJSON (Object obj) =-    ECSTaskDefinitionHealthCheck <$>-      (obj .: "Command") <*>-      fmap (fmap (fmap unInteger')) (obj .:? "Interval") <*>-      fmap (fmap (fmap unInteger')) (obj .:? "Retries") <*>-      fmap (fmap (fmap unInteger')) (obj .:? "StartPeriod") <*>-      fmap (fmap (fmap unInteger')) (obj .:? "Timeout")-  parseJSON _ = mempty- -- | Constructor for 'ECSTaskDefinitionHealthCheck' containing required fields -- as arguments. ecsTaskDefinitionHealthCheck
library-gen/Stratosphere/ResourceProperties/ECSTaskDefinitionHostEntry.hs view
@@ -25,13 +25,6 @@     , (Just . ("IpAddress",) . toJSON) _eCSTaskDefinitionHostEntryIpAddress     ] -instance FromJSON ECSTaskDefinitionHostEntry where-  parseJSON (Object obj) =-    ECSTaskDefinitionHostEntry <$>-      (obj .: "Hostname") <*>-      (obj .: "IpAddress")-  parseJSON _ = mempty- -- | Constructor for 'ECSTaskDefinitionHostEntry' containing required fields -- as arguments. ecsTaskDefinitionHostEntry
library-gen/Stratosphere/ResourceProperties/ECSTaskDefinitionHostVolumeProperties.hs view
@@ -24,12 +24,6 @@     [ fmap (("SourcePath",) . toJSON) _eCSTaskDefinitionHostVolumePropertiesSourcePath     ] -instance FromJSON ECSTaskDefinitionHostVolumeProperties where-  parseJSON (Object obj) =-    ECSTaskDefinitionHostVolumeProperties <$>-      (obj .:? "SourcePath")-  parseJSON _ = mempty- -- | Constructor for 'ECSTaskDefinitionHostVolumeProperties' containing -- required fields as arguments. ecsTaskDefinitionHostVolumeProperties
library-gen/Stratosphere/ResourceProperties/ECSTaskDefinitionKernelCapabilities.hs view
@@ -25,13 +25,6 @@     , fmap (("Drop",) . toJSON) _eCSTaskDefinitionKernelCapabilitiesDrop     ] -instance FromJSON ECSTaskDefinitionKernelCapabilities where-  parseJSON (Object obj) =-    ECSTaskDefinitionKernelCapabilities <$>-      (obj .:? "Add") <*>-      (obj .:? "Drop")-  parseJSON _ = mempty- -- | Constructor for 'ECSTaskDefinitionKernelCapabilities' containing required -- fields as arguments. ecsTaskDefinitionKernelCapabilities
library-gen/Stratosphere/ResourceProperties/ECSTaskDefinitionKeyValuePair.hs view
@@ -25,13 +25,6 @@     , fmap (("Value",) . toJSON) _eCSTaskDefinitionKeyValuePairValue     ] -instance FromJSON ECSTaskDefinitionKeyValuePair where-  parseJSON (Object obj) =-    ECSTaskDefinitionKeyValuePair <$>-      (obj .:? "Name") <*>-      (obj .:? "Value")-  parseJSON _ = mempty- -- | Constructor for 'ECSTaskDefinitionKeyValuePair' containing required -- fields as arguments. ecsTaskDefinitionKeyValuePair
library-gen/Stratosphere/ResourceProperties/ECSTaskDefinitionLinuxParameters.hs view
@@ -33,16 +33,6 @@     , fmap (("Tmpfs",) . toJSON) _eCSTaskDefinitionLinuxParametersTmpfs     ] -instance FromJSON ECSTaskDefinitionLinuxParameters where-  parseJSON (Object obj) =-    ECSTaskDefinitionLinuxParameters <$>-      (obj .:? "Capabilities") <*>-      (obj .:? "Devices") <*>-      fmap (fmap (fmap unBool')) (obj .:? "InitProcessEnabled") <*>-      fmap (fmap (fmap unInteger')) (obj .:? "SharedMemorySize") <*>-      (obj .:? "Tmpfs")-  parseJSON _ = mempty- -- | Constructor for 'ECSTaskDefinitionLinuxParameters' containing required -- fields as arguments. ecsTaskDefinitionLinuxParameters
library-gen/Stratosphere/ResourceProperties/ECSTaskDefinitionLogConfiguration.hs view
@@ -25,13 +25,6 @@     , fmap (("Options",) . toJSON) _eCSTaskDefinitionLogConfigurationOptions     ] -instance FromJSON ECSTaskDefinitionLogConfiguration where-  parseJSON (Object obj) =-    ECSTaskDefinitionLogConfiguration <$>-      (obj .: "LogDriver") <*>-      (obj .:? "Options")-  parseJSON _ = mempty- -- | Constructor for 'ECSTaskDefinitionLogConfiguration' containing required -- fields as arguments. ecsTaskDefinitionLogConfiguration
library-gen/Stratosphere/ResourceProperties/ECSTaskDefinitionMountPoint.hs view
@@ -27,14 +27,6 @@     , fmap (("SourceVolume",) . toJSON) _eCSTaskDefinitionMountPointSourceVolume     ] -instance FromJSON ECSTaskDefinitionMountPoint where-  parseJSON (Object obj) =-    ECSTaskDefinitionMountPoint <$>-      (obj .:? "ContainerPath") <*>-      fmap (fmap (fmap unBool')) (obj .:? "ReadOnly") <*>-      (obj .:? "SourceVolume")-  parseJSON _ = mempty- -- | Constructor for 'ECSTaskDefinitionMountPoint' containing required fields -- as arguments. ecsTaskDefinitionMountPoint
library-gen/Stratosphere/ResourceProperties/ECSTaskDefinitionPortMapping.hs view
@@ -27,14 +27,6 @@     , fmap (("Protocol",) . toJSON) _eCSTaskDefinitionPortMappingProtocol     ] -instance FromJSON ECSTaskDefinitionPortMapping where-  parseJSON (Object obj) =-    ECSTaskDefinitionPortMapping <$>-      fmap (fmap (fmap unInteger')) (obj .:? "ContainerPort") <*>-      fmap (fmap (fmap unInteger')) (obj .:? "HostPort") <*>-      (obj .:? "Protocol")-  parseJSON _ = mempty- -- | Constructor for 'ECSTaskDefinitionPortMapping' containing required fields -- as arguments. ecsTaskDefinitionPortMapping
library-gen/Stratosphere/ResourceProperties/ECSTaskDefinitionRepositoryCredentials.hs view
@@ -24,12 +24,6 @@     [ fmap (("CredentialsParameter",) . toJSON) _eCSTaskDefinitionRepositoryCredentialsCredentialsParameter     ] -instance FromJSON ECSTaskDefinitionRepositoryCredentials where-  parseJSON (Object obj) =-    ECSTaskDefinitionRepositoryCredentials <$>-      (obj .:? "CredentialsParameter")-  parseJSON _ = mempty- -- | Constructor for 'ECSTaskDefinitionRepositoryCredentials' containing -- required fields as arguments. ecsTaskDefinitionRepositoryCredentials
library-gen/Stratosphere/ResourceProperties/ECSTaskDefinitionTaskDefinitionPlacementConstraint.hs view
@@ -27,13 +27,6 @@     , (Just . ("Type",) . toJSON) _eCSTaskDefinitionTaskDefinitionPlacementConstraintType     ] -instance FromJSON ECSTaskDefinitionTaskDefinitionPlacementConstraint where-  parseJSON (Object obj) =-    ECSTaskDefinitionTaskDefinitionPlacementConstraint <$>-      (obj .:? "Expression") <*>-      (obj .: "Type")-  parseJSON _ = mempty- -- | Constructor for 'ECSTaskDefinitionTaskDefinitionPlacementConstraint' -- containing required fields as arguments. ecsTaskDefinitionTaskDefinitionPlacementConstraint
library-gen/Stratosphere/ResourceProperties/ECSTaskDefinitionTmpfs.hs view
@@ -27,14 +27,6 @@     , fmap (("Size",) . toJSON . fmap Integer') _eCSTaskDefinitionTmpfsSize     ] -instance FromJSON ECSTaskDefinitionTmpfs where-  parseJSON (Object obj) =-    ECSTaskDefinitionTmpfs <$>-      (obj .:? "ContainerPath") <*>-      (obj .:? "MountOptions") <*>-      fmap (fmap (fmap unInteger')) (obj .:? "Size")-  parseJSON _ = mempty- -- | Constructor for 'ECSTaskDefinitionTmpfs' containing required fields as -- arguments. ecsTaskDefinitionTmpfs
library-gen/Stratosphere/ResourceProperties/ECSTaskDefinitionUlimit.hs view
@@ -27,14 +27,6 @@     , (Just . ("SoftLimit",) . toJSON . fmap Integer') _eCSTaskDefinitionUlimitSoftLimit     ] -instance FromJSON ECSTaskDefinitionUlimit where-  parseJSON (Object obj) =-    ECSTaskDefinitionUlimit <$>-      fmap (fmap unInteger') (obj .: "HardLimit") <*>-      (obj .: "Name") <*>-      fmap (fmap unInteger') (obj .: "SoftLimit")-  parseJSON _ = mempty- -- | Constructor for 'ECSTaskDefinitionUlimit' containing required fields as -- arguments. ecsTaskDefinitionUlimit
library-gen/Stratosphere/ResourceProperties/ECSTaskDefinitionVolume.hs view
@@ -28,14 +28,6 @@     , fmap (("Name",) . toJSON) _eCSTaskDefinitionVolumeName     ] -instance FromJSON ECSTaskDefinitionVolume where-  parseJSON (Object obj) =-    ECSTaskDefinitionVolume <$>-      (obj .:? "DockerVolumeConfiguration") <*>-      (obj .:? "Host") <*>-      (obj .:? "Name")-  parseJSON _ = mempty- -- | Constructor for 'ECSTaskDefinitionVolume' containing required fields as -- arguments. ecsTaskDefinitionVolume
library-gen/Stratosphere/ResourceProperties/ECSTaskDefinitionVolumeFrom.hs view
@@ -25,13 +25,6 @@     , fmap (("SourceContainer",) . toJSON) _eCSTaskDefinitionVolumeFromSourceContainer     ] -instance FromJSON ECSTaskDefinitionVolumeFrom where-  parseJSON (Object obj) =-    ECSTaskDefinitionVolumeFrom <$>-      fmap (fmap (fmap unBool')) (obj .:? "ReadOnly") <*>-      (obj .:? "SourceContainer")-  parseJSON _ = mempty- -- | Constructor for 'ECSTaskDefinitionVolumeFrom' containing required fields -- as arguments. ecsTaskDefinitionVolumeFrom
library-gen/Stratosphere/ResourceProperties/EFSFileSystemElasticFileSystemTag.hs view
@@ -25,13 +25,6 @@     , (Just . ("Value",) . toJSON) _eFSFileSystemElasticFileSystemTagValue     ] -instance FromJSON EFSFileSystemElasticFileSystemTag where-  parseJSON (Object obj) =-    EFSFileSystemElasticFileSystemTag <$>-      (obj .: "Key") <*>-      (obj .: "Value")-  parseJSON _ = mempty- -- | Constructor for 'EFSFileSystemElasticFileSystemTag' containing required -- fields as arguments. efsFileSystemElasticFileSystemTag
library-gen/Stratosphere/ResourceProperties/EKSClusterResourcesVpcConfig.hs view
@@ -25,13 +25,6 @@     , (Just . ("SubnetIds",) . toJSON) _eKSClusterResourcesVpcConfigSubnetIds     ] -instance FromJSON EKSClusterResourcesVpcConfig where-  parseJSON (Object obj) =-    EKSClusterResourcesVpcConfig <$>-      (obj .:? "SecurityGroupIds") <*>-      (obj .: "SubnetIds")-  parseJSON _ = mempty- -- | Constructor for 'EKSClusterResourcesVpcConfig' containing required fields -- as arguments. eksClusterResourcesVpcConfig
library-gen/Stratosphere/ResourceProperties/EMRClusterApplication.hs view
@@ -29,15 +29,6 @@     , fmap (("Version",) . toJSON) _eMRClusterApplicationVersion     ] -instance FromJSON EMRClusterApplication where-  parseJSON (Object obj) =-    EMRClusterApplication <$>-      (obj .:? "AdditionalInfo") <*>-      (obj .:? "Args") <*>-      (obj .:? "Name") <*>-      (obj .:? "Version")-  parseJSON _ = mempty- -- | Constructor for 'EMRClusterApplication' containing required fields as -- arguments. emrClusterApplication
library-gen/Stratosphere/ResourceProperties/EMRClusterAutoScalingPolicy.hs view
@@ -26,13 +26,6 @@     , (Just . ("Rules",) . toJSON) _eMRClusterAutoScalingPolicyRules     ] -instance FromJSON EMRClusterAutoScalingPolicy where-  parseJSON (Object obj) =-    EMRClusterAutoScalingPolicy <$>-      (obj .: "Constraints") <*>-      (obj .: "Rules")-  parseJSON _ = mempty- -- | Constructor for 'EMRClusterAutoScalingPolicy' containing required fields -- as arguments. emrClusterAutoScalingPolicy
library-gen/Stratosphere/ResourceProperties/EMRClusterBootstrapActionConfig.hs view
@@ -25,13 +25,6 @@     , (Just . ("ScriptBootstrapAction",) . toJSON) _eMRClusterBootstrapActionConfigScriptBootstrapAction     ] -instance FromJSON EMRClusterBootstrapActionConfig where-  parseJSON (Object obj) =-    EMRClusterBootstrapActionConfig <$>-      (obj .: "Name") <*>-      (obj .: "ScriptBootstrapAction")-  parseJSON _ = mempty- -- | Constructor for 'EMRClusterBootstrapActionConfig' containing required -- fields as arguments. emrClusterBootstrapActionConfig
library-gen/Stratosphere/ResourceProperties/EMRClusterCloudWatchAlarmDefinition.hs view
@@ -39,20 +39,6 @@     , fmap (("Unit",) . toJSON) _eMRClusterCloudWatchAlarmDefinitionUnit     ] -instance FromJSON EMRClusterCloudWatchAlarmDefinition where-  parseJSON (Object obj) =-    EMRClusterCloudWatchAlarmDefinition <$>-      (obj .: "ComparisonOperator") <*>-      (obj .:? "Dimensions") <*>-      fmap (fmap (fmap unInteger')) (obj .:? "EvaluationPeriods") <*>-      (obj .: "MetricName") <*>-      (obj .:? "Namespace") <*>-      fmap (fmap unInteger') (obj .: "Period") <*>-      (obj .:? "Statistic") <*>-      fmap (fmap unDouble') (obj .: "Threshold") <*>-      (obj .:? "Unit")-  parseJSON _ = mempty- -- | Constructor for 'EMRClusterCloudWatchAlarmDefinition' containing required -- fields as arguments. emrClusterCloudWatchAlarmDefinition
library-gen/Stratosphere/ResourceProperties/EMRClusterConfiguration.hs view
@@ -27,14 +27,6 @@     , fmap (("Configurations",) . toJSON) _eMRClusterConfigurationConfigurations     ] -instance FromJSON EMRClusterConfiguration where-  parseJSON (Object obj) =-    EMRClusterConfiguration <$>-      (obj .:? "Classification") <*>-      (obj .:? "ConfigurationProperties") <*>-      (obj .:? "Configurations")-  parseJSON _ = mempty- -- | Constructor for 'EMRClusterConfiguration' containing required fields as -- arguments. emrClusterConfiguration
library-gen/Stratosphere/ResourceProperties/EMRClusterEbsBlockDeviceConfig.hs view
@@ -25,13 +25,6 @@     , fmap (("VolumesPerInstance",) . toJSON . fmap Integer') _eMRClusterEbsBlockDeviceConfigVolumesPerInstance     ] -instance FromJSON EMRClusterEbsBlockDeviceConfig where-  parseJSON (Object obj) =-    EMRClusterEbsBlockDeviceConfig <$>-      (obj .: "VolumeSpecification") <*>-      fmap (fmap (fmap unInteger')) (obj .:? "VolumesPerInstance")-  parseJSON _ = mempty- -- | Constructor for 'EMRClusterEbsBlockDeviceConfig' containing required -- fields as arguments. emrClusterEbsBlockDeviceConfig
library-gen/Stratosphere/ResourceProperties/EMRClusterEbsConfiguration.hs view
@@ -25,13 +25,6 @@     , fmap (("EbsOptimized",) . toJSON . fmap Bool') _eMRClusterEbsConfigurationEbsOptimized     ] -instance FromJSON EMRClusterEbsConfiguration where-  parseJSON (Object obj) =-    EMRClusterEbsConfiguration <$>-      (obj .:? "EbsBlockDeviceConfigs") <*>-      fmap (fmap (fmap unBool')) (obj .:? "EbsOptimized")-  parseJSON _ = mempty- -- | Constructor for 'EMRClusterEbsConfiguration' containing required fields -- as arguments. emrClusterEbsConfiguration
library-gen/Stratosphere/ResourceProperties/EMRClusterHadoopJarStepConfig.hs view
@@ -29,15 +29,6 @@     , fmap (("StepProperties",) . toJSON) _eMRClusterHadoopJarStepConfigStepProperties     ] -instance FromJSON EMRClusterHadoopJarStepConfig where-  parseJSON (Object obj) =-    EMRClusterHadoopJarStepConfig <$>-      (obj .:? "Args") <*>-      (obj .: "Jar") <*>-      (obj .:? "MainClass") <*>-      (obj .:? "StepProperties")-  parseJSON _ = mempty- -- | Constructor for 'EMRClusterHadoopJarStepConfig' containing required -- fields as arguments. emrClusterHadoopJarStepConfig
library-gen/Stratosphere/ResourceProperties/EMRClusterInstanceFleetConfig.hs view
@@ -32,16 +32,6 @@     , fmap (("TargetSpotCapacity",) . toJSON . fmap Integer') _eMRClusterInstanceFleetConfigTargetSpotCapacity     ] -instance FromJSON EMRClusterInstanceFleetConfig where-  parseJSON (Object obj) =-    EMRClusterInstanceFleetConfig <$>-      (obj .:? "InstanceTypeConfigs") <*>-      (obj .:? "LaunchSpecifications") <*>-      (obj .:? "Name") <*>-      fmap (fmap (fmap unInteger')) (obj .:? "TargetOnDemandCapacity") <*>-      fmap (fmap (fmap unInteger')) (obj .:? "TargetSpotCapacity")-  parseJSON _ = mempty- -- | Constructor for 'EMRClusterInstanceFleetConfig' containing required -- fields as arguments. emrClusterInstanceFleetConfig
library-gen/Stratosphere/ResourceProperties/EMRClusterInstanceFleetProvisioningSpecifications.hs view
@@ -25,12 +25,6 @@     [ (Just . ("SpotSpecification",) . toJSON) _eMRClusterInstanceFleetProvisioningSpecificationsSpotSpecification     ] -instance FromJSON EMRClusterInstanceFleetProvisioningSpecifications where-  parseJSON (Object obj) =-    EMRClusterInstanceFleetProvisioningSpecifications <$>-      (obj .: "SpotSpecification")-  parseJSON _ = mempty- -- | Constructor for 'EMRClusterInstanceFleetProvisioningSpecifications' -- containing required fields as arguments. emrClusterInstanceFleetProvisioningSpecifications
library-gen/Stratosphere/ResourceProperties/EMRClusterInstanceGroupConfig.hs view
@@ -39,19 +39,6 @@     , fmap (("Name",) . toJSON) _eMRClusterInstanceGroupConfigName     ] -instance FromJSON EMRClusterInstanceGroupConfig where-  parseJSON (Object obj) =-    EMRClusterInstanceGroupConfig <$>-      (obj .:? "AutoScalingPolicy") <*>-      (obj .:? "BidPrice") <*>-      (obj .:? "Configurations") <*>-      (obj .:? "EbsConfiguration") <*>-      fmap (fmap unInteger') (obj .: "InstanceCount") <*>-      (obj .: "InstanceType") <*>-      (obj .:? "Market") <*>-      (obj .:? "Name")-  parseJSON _ = mempty- -- | Constructor for 'EMRClusterInstanceGroupConfig' containing required -- fields as arguments. emrClusterInstanceGroupConfig
library-gen/Stratosphere/ResourceProperties/EMRClusterInstanceTypeConfig.hs view
@@ -34,17 +34,6 @@     , fmap (("WeightedCapacity",) . toJSON . fmap Integer') _eMRClusterInstanceTypeConfigWeightedCapacity     ] -instance FromJSON EMRClusterInstanceTypeConfig where-  parseJSON (Object obj) =-    EMRClusterInstanceTypeConfig <$>-      (obj .:? "BidPrice") <*>-      fmap (fmap (fmap unDouble')) (obj .:? "BidPriceAsPercentageOfOnDemandPrice") <*>-      (obj .:? "Configurations") <*>-      (obj .:? "EbsConfiguration") <*>-      (obj .: "InstanceType") <*>-      fmap (fmap (fmap unInteger')) (obj .:? "WeightedCapacity")-  parseJSON _ = mempty- -- | Constructor for 'EMRClusterInstanceTypeConfig' containing required fields -- as arguments. emrClusterInstanceTypeConfig
library-gen/Stratosphere/ResourceProperties/EMRClusterJobFlowInstancesConfig.hs view
@@ -53,26 +53,6 @@     , fmap (("TerminationProtected",) . toJSON . fmap Bool') _eMRClusterJobFlowInstancesConfigTerminationProtected     ] -instance FromJSON EMRClusterJobFlowInstancesConfig where-  parseJSON (Object obj) =-    EMRClusterJobFlowInstancesConfig <$>-      (obj .:? "AdditionalMasterSecurityGroups") <*>-      (obj .:? "AdditionalSlaveSecurityGroups") <*>-      (obj .:? "CoreInstanceFleet") <*>-      (obj .:? "CoreInstanceGroup") <*>-      (obj .:? "Ec2KeyName") <*>-      (obj .:? "Ec2SubnetId") <*>-      (obj .:? "EmrManagedMasterSecurityGroup") <*>-      (obj .:? "EmrManagedSlaveSecurityGroup") <*>-      (obj .:? "HadoopVersion") <*>-      fmap (fmap (fmap unBool')) (obj .:? "KeepJobFlowAliveWhenNoSteps") <*>-      (obj .:? "MasterInstanceFleet") <*>-      (obj .:? "MasterInstanceGroup") <*>-      (obj .:? "Placement") <*>-      (obj .:? "ServiceAccessSecurityGroup") <*>-      fmap (fmap (fmap unBool')) (obj .:? "TerminationProtected")-  parseJSON _ = mempty- -- | Constructor for 'EMRClusterJobFlowInstancesConfig' containing required -- fields as arguments. emrClusterJobFlowInstancesConfig
library-gen/Stratosphere/ResourceProperties/EMRClusterKerberosAttributes.hs view
@@ -31,16 +31,6 @@     , (Just . ("Realm",) . toJSON) _eMRClusterKerberosAttributesRealm     ] -instance FromJSON EMRClusterKerberosAttributes where-  parseJSON (Object obj) =-    EMRClusterKerberosAttributes <$>-      (obj .:? "ADDomainJoinPassword") <*>-      (obj .:? "ADDomainJoinUser") <*>-      (obj .:? "CrossRealmTrustPrincipalPassword") <*>-      (obj .: "KdcAdminPassword") <*>-      (obj .: "Realm")-  parseJSON _ = mempty- -- | Constructor for 'EMRClusterKerberosAttributes' containing required fields -- as arguments. emrClusterKerberosAttributes
library-gen/Stratosphere/ResourceProperties/EMRClusterKeyValue.hs view
@@ -25,13 +25,6 @@     , fmap (("Value",) . toJSON) _eMRClusterKeyValueValue     ] -instance FromJSON EMRClusterKeyValue where-  parseJSON (Object obj) =-    EMRClusterKeyValue <$>-      (obj .:? "Key") <*>-      (obj .:? "Value")-  parseJSON _ = mempty- -- | Constructor for 'EMRClusterKeyValue' containing required fields as -- arguments. emrClusterKeyValue
library-gen/Stratosphere/ResourceProperties/EMRClusterMetricDimension.hs view
@@ -25,13 +25,6 @@     , (Just . ("Value",) . toJSON) _eMRClusterMetricDimensionValue     ] -instance FromJSON EMRClusterMetricDimension where-  parseJSON (Object obj) =-    EMRClusterMetricDimension <$>-      (obj .: "Key") <*>-      (obj .: "Value")-  parseJSON _ = mempty- -- | Constructor for 'EMRClusterMetricDimension' containing required fields as -- arguments. emrClusterMetricDimension
library-gen/Stratosphere/ResourceProperties/EMRClusterPlacementType.hs view
@@ -23,12 +23,6 @@     [ (Just . ("AvailabilityZone",) . toJSON) _eMRClusterPlacementTypeAvailabilityZone     ] -instance FromJSON EMRClusterPlacementType where-  parseJSON (Object obj) =-    EMRClusterPlacementType <$>-      (obj .: "AvailabilityZone")-  parseJSON _ = mempty- -- | Constructor for 'EMRClusterPlacementType' containing required fields as -- arguments. emrClusterPlacementType
library-gen/Stratosphere/ResourceProperties/EMRClusterScalingAction.hs view
@@ -25,13 +25,6 @@     , (Just . ("SimpleScalingPolicyConfiguration",) . toJSON) _eMRClusterScalingActionSimpleScalingPolicyConfiguration     ] -instance FromJSON EMRClusterScalingAction where-  parseJSON (Object obj) =-    EMRClusterScalingAction <$>-      (obj .:? "Market") <*>-      (obj .: "SimpleScalingPolicyConfiguration")-  parseJSON _ = mempty- -- | Constructor for 'EMRClusterScalingAction' containing required fields as -- arguments. emrClusterScalingAction
library-gen/Stratosphere/ResourceProperties/EMRClusterScalingConstraints.hs view
@@ -25,13 +25,6 @@     , (Just . ("MinCapacity",) . toJSON . fmap Integer') _eMRClusterScalingConstraintsMinCapacity     ] -instance FromJSON EMRClusterScalingConstraints where-  parseJSON (Object obj) =-    EMRClusterScalingConstraints <$>-      fmap (fmap unInteger') (obj .: "MaxCapacity") <*>-      fmap (fmap unInteger') (obj .: "MinCapacity")-  parseJSON _ = mempty- -- | Constructor for 'EMRClusterScalingConstraints' containing required fields -- as arguments. emrClusterScalingConstraints
library-gen/Stratosphere/ResourceProperties/EMRClusterScalingRule.hs view
@@ -30,15 +30,6 @@     , (Just . ("Trigger",) . toJSON) _eMRClusterScalingRuleTrigger     ] -instance FromJSON EMRClusterScalingRule where-  parseJSON (Object obj) =-    EMRClusterScalingRule <$>-      (obj .: "Action") <*>-      (obj .:? "Description") <*>-      (obj .: "Name") <*>-      (obj .: "Trigger")-  parseJSON _ = mempty- -- | Constructor for 'EMRClusterScalingRule' containing required fields as -- arguments. emrClusterScalingRule
library-gen/Stratosphere/ResourceProperties/EMRClusterScalingTrigger.hs view
@@ -23,12 +23,6 @@     [ (Just . ("CloudWatchAlarmDefinition",) . toJSON) _eMRClusterScalingTriggerCloudWatchAlarmDefinition     ] -instance FromJSON EMRClusterScalingTrigger where-  parseJSON (Object obj) =-    EMRClusterScalingTrigger <$>-      (obj .: "CloudWatchAlarmDefinition")-  parseJSON _ = mempty- -- | Constructor for 'EMRClusterScalingTrigger' containing required fields as -- arguments. emrClusterScalingTrigger
library-gen/Stratosphere/ResourceProperties/EMRClusterScriptBootstrapActionConfig.hs view
@@ -26,13 +26,6 @@     , (Just . ("Path",) . toJSON) _eMRClusterScriptBootstrapActionConfigPath     ] -instance FromJSON EMRClusterScriptBootstrapActionConfig where-  parseJSON (Object obj) =-    EMRClusterScriptBootstrapActionConfig <$>-      (obj .:? "Args") <*>-      (obj .: "Path")-  parseJSON _ = mempty- -- | Constructor for 'EMRClusterScriptBootstrapActionConfig' containing -- required fields as arguments. emrClusterScriptBootstrapActionConfig
library-gen/Stratosphere/ResourceProperties/EMRClusterSimpleScalingPolicyConfiguration.hs view
@@ -28,14 +28,6 @@     , (Just . ("ScalingAdjustment",) . toJSON . fmap Integer') _eMRClusterSimpleScalingPolicyConfigurationScalingAdjustment     ] -instance FromJSON EMRClusterSimpleScalingPolicyConfiguration where-  parseJSON (Object obj) =-    EMRClusterSimpleScalingPolicyConfiguration <$>-      (obj .:? "AdjustmentType") <*>-      fmap (fmap (fmap unInteger')) (obj .:? "CoolDown") <*>-      fmap (fmap unInteger') (obj .: "ScalingAdjustment")-  parseJSON _ = mempty- -- | Constructor for 'EMRClusterSimpleScalingPolicyConfiguration' containing -- required fields as arguments. emrClusterSimpleScalingPolicyConfiguration
library-gen/Stratosphere/ResourceProperties/EMRClusterSpotProvisioningSpecification.hs view
@@ -28,14 +28,6 @@     , (Just . ("TimeoutDurationMinutes",) . toJSON . fmap Integer') _eMRClusterSpotProvisioningSpecificationTimeoutDurationMinutes     ] -instance FromJSON EMRClusterSpotProvisioningSpecification where-  parseJSON (Object obj) =-    EMRClusterSpotProvisioningSpecification <$>-      fmap (fmap (fmap unInteger')) (obj .:? "BlockDurationMinutes") <*>-      (obj .: "TimeoutAction") <*>-      fmap (fmap unInteger') (obj .: "TimeoutDurationMinutes")-  parseJSON _ = mempty- -- | Constructor for 'EMRClusterSpotProvisioningSpecification' containing -- required fields as arguments. emrClusterSpotProvisioningSpecification
library-gen/Stratosphere/ResourceProperties/EMRClusterStepConfig.hs view
@@ -27,14 +27,6 @@     , (Just . ("Name",) . toJSON) _eMRClusterStepConfigName     ] -instance FromJSON EMRClusterStepConfig where-  parseJSON (Object obj) =-    EMRClusterStepConfig <$>-      (obj .:? "ActionOnFailure") <*>-      (obj .: "HadoopJarStep") <*>-      (obj .: "Name")-  parseJSON _ = mempty- -- | Constructor for 'EMRClusterStepConfig' containing required fields as -- arguments. emrClusterStepConfig
library-gen/Stratosphere/ResourceProperties/EMRClusterVolumeSpecification.hs view
@@ -27,14 +27,6 @@     , (Just . ("VolumeType",) . toJSON) _eMRClusterVolumeSpecificationVolumeType     ] -instance FromJSON EMRClusterVolumeSpecification where-  parseJSON (Object obj) =-    EMRClusterVolumeSpecification <$>-      fmap (fmap (fmap unInteger')) (obj .:? "Iops") <*>-      fmap (fmap unInteger') (obj .: "SizeInGB") <*>-      (obj .: "VolumeType")-  parseJSON _ = mempty- -- | Constructor for 'EMRClusterVolumeSpecification' containing required -- fields as arguments. emrClusterVolumeSpecification
library-gen/Stratosphere/ResourceProperties/EMRInstanceFleetConfigConfiguration.hs view
@@ -27,14 +27,6 @@     , fmap (("Configurations",) . toJSON) _eMRInstanceFleetConfigConfigurationConfigurations     ] -instance FromJSON EMRInstanceFleetConfigConfiguration where-  parseJSON (Object obj) =-    EMRInstanceFleetConfigConfiguration <$>-      (obj .:? "Classification") <*>-      (obj .:? "ConfigurationProperties") <*>-      (obj .:? "Configurations")-  parseJSON _ = mempty- -- | Constructor for 'EMRInstanceFleetConfigConfiguration' containing required -- fields as arguments. emrInstanceFleetConfigConfiguration
library-gen/Stratosphere/ResourceProperties/EMRInstanceFleetConfigEbsBlockDeviceConfig.hs view
@@ -26,13 +26,6 @@     , fmap (("VolumesPerInstance",) . toJSON . fmap Integer') _eMRInstanceFleetConfigEbsBlockDeviceConfigVolumesPerInstance     ] -instance FromJSON EMRInstanceFleetConfigEbsBlockDeviceConfig where-  parseJSON (Object obj) =-    EMRInstanceFleetConfigEbsBlockDeviceConfig <$>-      (obj .: "VolumeSpecification") <*>-      fmap (fmap (fmap unInteger')) (obj .:? "VolumesPerInstance")-  parseJSON _ = mempty- -- | Constructor for 'EMRInstanceFleetConfigEbsBlockDeviceConfig' containing -- required fields as arguments. emrInstanceFleetConfigEbsBlockDeviceConfig
library-gen/Stratosphere/ResourceProperties/EMRInstanceFleetConfigEbsConfiguration.hs view
@@ -26,13 +26,6 @@     , fmap (("EbsOptimized",) . toJSON . fmap Bool') _eMRInstanceFleetConfigEbsConfigurationEbsOptimized     ] -instance FromJSON EMRInstanceFleetConfigEbsConfiguration where-  parseJSON (Object obj) =-    EMRInstanceFleetConfigEbsConfiguration <$>-      (obj .:? "EbsBlockDeviceConfigs") <*>-      fmap (fmap (fmap unBool')) (obj .:? "EbsOptimized")-  parseJSON _ = mempty- -- | Constructor for 'EMRInstanceFleetConfigEbsConfiguration' containing -- required fields as arguments. emrInstanceFleetConfigEbsConfiguration
library-gen/Stratosphere/ResourceProperties/EMRInstanceFleetConfigInstanceFleetProvisioningSpecifications.hs view
@@ -25,12 +25,6 @@     [ (Just . ("SpotSpecification",) . toJSON) _eMRInstanceFleetConfigInstanceFleetProvisioningSpecificationsSpotSpecification     ] -instance FromJSON EMRInstanceFleetConfigInstanceFleetProvisioningSpecifications where-  parseJSON (Object obj) =-    EMRInstanceFleetConfigInstanceFleetProvisioningSpecifications <$>-      (obj .: "SpotSpecification")-  parseJSON _ = mempty- -- | Constructor for -- 'EMRInstanceFleetConfigInstanceFleetProvisioningSpecifications' -- containing required fields as arguments.
library-gen/Stratosphere/ResourceProperties/EMRInstanceFleetConfigInstanceTypeConfig.hs view
@@ -35,17 +35,6 @@     , fmap (("WeightedCapacity",) . toJSON . fmap Integer') _eMRInstanceFleetConfigInstanceTypeConfigWeightedCapacity     ] -instance FromJSON EMRInstanceFleetConfigInstanceTypeConfig where-  parseJSON (Object obj) =-    EMRInstanceFleetConfigInstanceTypeConfig <$>-      (obj .:? "BidPrice") <*>-      fmap (fmap (fmap unDouble')) (obj .:? "BidPriceAsPercentageOfOnDemandPrice") <*>-      (obj .:? "Configurations") <*>-      (obj .:? "EbsConfiguration") <*>-      (obj .: "InstanceType") <*>-      fmap (fmap (fmap unInteger')) (obj .:? "WeightedCapacity")-  parseJSON _ = mempty- -- | Constructor for 'EMRInstanceFleetConfigInstanceTypeConfig' containing -- required fields as arguments. emrInstanceFleetConfigInstanceTypeConfig
library-gen/Stratosphere/ResourceProperties/EMRInstanceFleetConfigSpotProvisioningSpecification.hs view
@@ -29,14 +29,6 @@     , (Just . ("TimeoutDurationMinutes",) . toJSON . fmap Integer') _eMRInstanceFleetConfigSpotProvisioningSpecificationTimeoutDurationMinutes     ] -instance FromJSON EMRInstanceFleetConfigSpotProvisioningSpecification where-  parseJSON (Object obj) =-    EMRInstanceFleetConfigSpotProvisioningSpecification <$>-      fmap (fmap (fmap unInteger')) (obj .:? "BlockDurationMinutes") <*>-      (obj .: "TimeoutAction") <*>-      fmap (fmap unInteger') (obj .: "TimeoutDurationMinutes")-  parseJSON _ = mempty- -- | Constructor for 'EMRInstanceFleetConfigSpotProvisioningSpecification' -- containing required fields as arguments. emrInstanceFleetConfigSpotProvisioningSpecification
library-gen/Stratosphere/ResourceProperties/EMRInstanceFleetConfigVolumeSpecification.hs view
@@ -28,14 +28,6 @@     , (Just . ("VolumeType",) . toJSON) _eMRInstanceFleetConfigVolumeSpecificationVolumeType     ] -instance FromJSON EMRInstanceFleetConfigVolumeSpecification where-  parseJSON (Object obj) =-    EMRInstanceFleetConfigVolumeSpecification <$>-      fmap (fmap (fmap unInteger')) (obj .:? "Iops") <*>-      fmap (fmap unInteger') (obj .: "SizeInGB") <*>-      (obj .: "VolumeType")-  parseJSON _ = mempty- -- | Constructor for 'EMRInstanceFleetConfigVolumeSpecification' containing -- required fields as arguments. emrInstanceFleetConfigVolumeSpecification
library-gen/Stratosphere/ResourceProperties/EMRInstanceGroupConfigAutoScalingPolicy.hs view
@@ -27,13 +27,6 @@     , (Just . ("Rules",) . toJSON) _eMRInstanceGroupConfigAutoScalingPolicyRules     ] -instance FromJSON EMRInstanceGroupConfigAutoScalingPolicy where-  parseJSON (Object obj) =-    EMRInstanceGroupConfigAutoScalingPolicy <$>-      (obj .: "Constraints") <*>-      (obj .: "Rules")-  parseJSON _ = mempty- -- | Constructor for 'EMRInstanceGroupConfigAutoScalingPolicy' containing -- required fields as arguments. emrInstanceGroupConfigAutoScalingPolicy
library-gen/Stratosphere/ResourceProperties/EMRInstanceGroupConfigCloudWatchAlarmDefinition.hs view
@@ -41,20 +41,6 @@     , fmap (("Unit",) . toJSON) _eMRInstanceGroupConfigCloudWatchAlarmDefinitionUnit     ] -instance FromJSON EMRInstanceGroupConfigCloudWatchAlarmDefinition where-  parseJSON (Object obj) =-    EMRInstanceGroupConfigCloudWatchAlarmDefinition <$>-      (obj .: "ComparisonOperator") <*>-      (obj .:? "Dimensions") <*>-      fmap (fmap (fmap unInteger')) (obj .:? "EvaluationPeriods") <*>-      (obj .: "MetricName") <*>-      (obj .:? "Namespace") <*>-      fmap (fmap unInteger') (obj .: "Period") <*>-      (obj .:? "Statistic") <*>-      fmap (fmap unDouble') (obj .: "Threshold") <*>-      (obj .:? "Unit")-  parseJSON _ = mempty- -- | Constructor for 'EMRInstanceGroupConfigCloudWatchAlarmDefinition' -- containing required fields as arguments. emrInstanceGroupConfigCloudWatchAlarmDefinition
library-gen/Stratosphere/ResourceProperties/EMRInstanceGroupConfigConfiguration.hs view
@@ -27,14 +27,6 @@     , fmap (("Configurations",) . toJSON) _eMRInstanceGroupConfigConfigurationConfigurations     ] -instance FromJSON EMRInstanceGroupConfigConfiguration where-  parseJSON (Object obj) =-    EMRInstanceGroupConfigConfiguration <$>-      (obj .:? "Classification") <*>-      (obj .:? "ConfigurationProperties") <*>-      (obj .:? "Configurations")-  parseJSON _ = mempty- -- | Constructor for 'EMRInstanceGroupConfigConfiguration' containing required -- fields as arguments. emrInstanceGroupConfigConfiguration
library-gen/Stratosphere/ResourceProperties/EMRInstanceGroupConfigEbsBlockDeviceConfig.hs view
@@ -26,13 +26,6 @@     , fmap (("VolumesPerInstance",) . toJSON . fmap Integer') _eMRInstanceGroupConfigEbsBlockDeviceConfigVolumesPerInstance     ] -instance FromJSON EMRInstanceGroupConfigEbsBlockDeviceConfig where-  parseJSON (Object obj) =-    EMRInstanceGroupConfigEbsBlockDeviceConfig <$>-      (obj .: "VolumeSpecification") <*>-      fmap (fmap (fmap unInteger')) (obj .:? "VolumesPerInstance")-  parseJSON _ = mempty- -- | Constructor for 'EMRInstanceGroupConfigEbsBlockDeviceConfig' containing -- required fields as arguments. emrInstanceGroupConfigEbsBlockDeviceConfig
library-gen/Stratosphere/ResourceProperties/EMRInstanceGroupConfigEbsConfiguration.hs view
@@ -26,13 +26,6 @@     , fmap (("EbsOptimized",) . toJSON . fmap Bool') _eMRInstanceGroupConfigEbsConfigurationEbsOptimized     ] -instance FromJSON EMRInstanceGroupConfigEbsConfiguration where-  parseJSON (Object obj) =-    EMRInstanceGroupConfigEbsConfiguration <$>-      (obj .:? "EbsBlockDeviceConfigs") <*>-      fmap (fmap (fmap unBool')) (obj .:? "EbsOptimized")-  parseJSON _ = mempty- -- | Constructor for 'EMRInstanceGroupConfigEbsConfiguration' containing -- required fields as arguments. emrInstanceGroupConfigEbsConfiguration
library-gen/Stratosphere/ResourceProperties/EMRInstanceGroupConfigMetricDimension.hs view
@@ -26,13 +26,6 @@     , (Just . ("Value",) . toJSON) _eMRInstanceGroupConfigMetricDimensionValue     ] -instance FromJSON EMRInstanceGroupConfigMetricDimension where-  parseJSON (Object obj) =-    EMRInstanceGroupConfigMetricDimension <$>-      (obj .: "Key") <*>-      (obj .: "Value")-  parseJSON _ = mempty- -- | Constructor for 'EMRInstanceGroupConfigMetricDimension' containing -- required fields as arguments. emrInstanceGroupConfigMetricDimension
library-gen/Stratosphere/ResourceProperties/EMRInstanceGroupConfigScalingAction.hs view
@@ -25,13 +25,6 @@     , (Just . ("SimpleScalingPolicyConfiguration",) . toJSON) _eMRInstanceGroupConfigScalingActionSimpleScalingPolicyConfiguration     ] -instance FromJSON EMRInstanceGroupConfigScalingAction where-  parseJSON (Object obj) =-    EMRInstanceGroupConfigScalingAction <$>-      (obj .:? "Market") <*>-      (obj .: "SimpleScalingPolicyConfiguration")-  parseJSON _ = mempty- -- | Constructor for 'EMRInstanceGroupConfigScalingAction' containing required -- fields as arguments. emrInstanceGroupConfigScalingAction
library-gen/Stratosphere/ResourceProperties/EMRInstanceGroupConfigScalingConstraints.hs view
@@ -26,13 +26,6 @@     , (Just . ("MinCapacity",) . toJSON . fmap Integer') _eMRInstanceGroupConfigScalingConstraintsMinCapacity     ] -instance FromJSON EMRInstanceGroupConfigScalingConstraints where-  parseJSON (Object obj) =-    EMRInstanceGroupConfigScalingConstraints <$>-      fmap (fmap unInteger') (obj .: "MaxCapacity") <*>-      fmap (fmap unInteger') (obj .: "MinCapacity")-  parseJSON _ = mempty- -- | Constructor for 'EMRInstanceGroupConfigScalingConstraints' containing -- required fields as arguments. emrInstanceGroupConfigScalingConstraints
library-gen/Stratosphere/ResourceProperties/EMRInstanceGroupConfigScalingRule.hs view
@@ -30,15 +30,6 @@     , (Just . ("Trigger",) . toJSON) _eMRInstanceGroupConfigScalingRuleTrigger     ] -instance FromJSON EMRInstanceGroupConfigScalingRule where-  parseJSON (Object obj) =-    EMRInstanceGroupConfigScalingRule <$>-      (obj .: "Action") <*>-      (obj .:? "Description") <*>-      (obj .: "Name") <*>-      (obj .: "Trigger")-  parseJSON _ = mempty- -- | Constructor for 'EMRInstanceGroupConfigScalingRule' containing required -- fields as arguments. emrInstanceGroupConfigScalingRule
library-gen/Stratosphere/ResourceProperties/EMRInstanceGroupConfigScalingTrigger.hs view
@@ -23,12 +23,6 @@     [ (Just . ("CloudWatchAlarmDefinition",) . toJSON) _eMRInstanceGroupConfigScalingTriggerCloudWatchAlarmDefinition     ] -instance FromJSON EMRInstanceGroupConfigScalingTrigger where-  parseJSON (Object obj) =-    EMRInstanceGroupConfigScalingTrigger <$>-      (obj .: "CloudWatchAlarmDefinition")-  parseJSON _ = mempty- -- | Constructor for 'EMRInstanceGroupConfigScalingTrigger' containing -- required fields as arguments. emrInstanceGroupConfigScalingTrigger
library-gen/Stratosphere/ResourceProperties/EMRInstanceGroupConfigSimpleScalingPolicyConfiguration.hs view
@@ -29,14 +29,6 @@     , (Just . ("ScalingAdjustment",) . toJSON . fmap Integer') _eMRInstanceGroupConfigSimpleScalingPolicyConfigurationScalingAdjustment     ] -instance FromJSON EMRInstanceGroupConfigSimpleScalingPolicyConfiguration where-  parseJSON (Object obj) =-    EMRInstanceGroupConfigSimpleScalingPolicyConfiguration <$>-      (obj .:? "AdjustmentType") <*>-      fmap (fmap (fmap unInteger')) (obj .:? "CoolDown") <*>-      fmap (fmap unInteger') (obj .: "ScalingAdjustment")-  parseJSON _ = mempty- -- | Constructor for 'EMRInstanceGroupConfigSimpleScalingPolicyConfiguration' -- containing required fields as arguments. emrInstanceGroupConfigSimpleScalingPolicyConfiguration
library-gen/Stratosphere/ResourceProperties/EMRInstanceGroupConfigVolumeSpecification.hs view
@@ -28,14 +28,6 @@     , (Just . ("VolumeType",) . toJSON) _eMRInstanceGroupConfigVolumeSpecificationVolumeType     ] -instance FromJSON EMRInstanceGroupConfigVolumeSpecification where-  parseJSON (Object obj) =-    EMRInstanceGroupConfigVolumeSpecification <$>-      fmap (fmap (fmap unInteger')) (obj .:? "Iops") <*>-      fmap (fmap unInteger') (obj .: "SizeInGB") <*>-      (obj .: "VolumeType")-  parseJSON _ = mempty- -- | Constructor for 'EMRInstanceGroupConfigVolumeSpecification' containing -- required fields as arguments. emrInstanceGroupConfigVolumeSpecification
library-gen/Stratosphere/ResourceProperties/EMRStepHadoopJarStepConfig.hs view
@@ -29,15 +29,6 @@     , fmap (("StepProperties",) . toJSON) _eMRStepHadoopJarStepConfigStepProperties     ] -instance FromJSON EMRStepHadoopJarStepConfig where-  parseJSON (Object obj) =-    EMRStepHadoopJarStepConfig <$>-      (obj .:? "Args") <*>-      (obj .: "Jar") <*>-      (obj .:? "MainClass") <*>-      (obj .:? "StepProperties")-  parseJSON _ = mempty- -- | Constructor for 'EMRStepHadoopJarStepConfig' containing required fields -- as arguments. emrStepHadoopJarStepConfig
library-gen/Stratosphere/ResourceProperties/EMRStepKeyValue.hs view
@@ -25,13 +25,6 @@     , fmap (("Value",) . toJSON) _eMRStepKeyValueValue     ] -instance FromJSON EMRStepKeyValue where-  parseJSON (Object obj) =-    EMRStepKeyValue <$>-      (obj .:? "Key") <*>-      (obj .:? "Value")-  parseJSON _ = mempty- -- | Constructor for 'EMRStepKeyValue' containing required fields as -- arguments. emrStepKeyValue
library-gen/Stratosphere/ResourceProperties/ElastiCacheReplicationGroupNodeGroupConfiguration.hs view
@@ -33,16 +33,6 @@     , fmap (("Slots",) . toJSON) _elastiCacheReplicationGroupNodeGroupConfigurationSlots     ] -instance FromJSON ElastiCacheReplicationGroupNodeGroupConfiguration where-  parseJSON (Object obj) =-    ElastiCacheReplicationGroupNodeGroupConfiguration <$>-      (obj .:? "NodeGroupId") <*>-      (obj .:? "PrimaryAvailabilityZone") <*>-      (obj .:? "ReplicaAvailabilityZones") <*>-      fmap (fmap (fmap unInteger')) (obj .:? "ReplicaCount") <*>-      (obj .:? "Slots")-  parseJSON _ = mempty- -- | Constructor for 'ElastiCacheReplicationGroupNodeGroupConfiguration' -- containing required fields as arguments. elastiCacheReplicationGroupNodeGroupConfiguration
library-gen/Stratosphere/ResourceProperties/ElasticBeanstalkApplicationApplicationResourceLifecycleConfig.hs view
@@ -27,13 +27,6 @@     , fmap (("VersionLifecycleConfig",) . toJSON) _elasticBeanstalkApplicationApplicationResourceLifecycleConfigVersionLifecycleConfig     ] -instance FromJSON ElasticBeanstalkApplicationApplicationResourceLifecycleConfig where-  parseJSON (Object obj) =-    ElasticBeanstalkApplicationApplicationResourceLifecycleConfig <$>-      (obj .:? "ServiceRole") <*>-      (obj .:? "VersionLifecycleConfig")-  parseJSON _ = mempty- -- | Constructor for -- 'ElasticBeanstalkApplicationApplicationResourceLifecycleConfig' -- containing required fields as arguments.
library-gen/Stratosphere/ResourceProperties/ElasticBeanstalkApplicationApplicationVersionLifecycleConfig.hs view
@@ -28,13 +28,6 @@     , fmap (("MaxCountRule",) . toJSON) _elasticBeanstalkApplicationApplicationVersionLifecycleConfigMaxCountRule     ] -instance FromJSON ElasticBeanstalkApplicationApplicationVersionLifecycleConfig where-  parseJSON (Object obj) =-    ElasticBeanstalkApplicationApplicationVersionLifecycleConfig <$>-      (obj .:? "MaxAgeRule") <*>-      (obj .:? "MaxCountRule")-  parseJSON _ = mempty- -- | Constructor for -- 'ElasticBeanstalkApplicationApplicationVersionLifecycleConfig' containing -- required fields as arguments.
library-gen/Stratosphere/ResourceProperties/ElasticBeanstalkApplicationMaxAgeRule.hs view
@@ -28,14 +28,6 @@     , fmap (("MaxAgeInDays",) . toJSON . fmap Integer') _elasticBeanstalkApplicationMaxAgeRuleMaxAgeInDays     ] -instance FromJSON ElasticBeanstalkApplicationMaxAgeRule where-  parseJSON (Object obj) =-    ElasticBeanstalkApplicationMaxAgeRule <$>-      fmap (fmap (fmap unBool')) (obj .:? "DeleteSourceFromS3") <*>-      fmap (fmap (fmap unBool')) (obj .:? "Enabled") <*>-      fmap (fmap (fmap unInteger')) (obj .:? "MaxAgeInDays")-  parseJSON _ = mempty- -- | Constructor for 'ElasticBeanstalkApplicationMaxAgeRule' containing -- required fields as arguments. elasticBeanstalkApplicationMaxAgeRule
library-gen/Stratosphere/ResourceProperties/ElasticBeanstalkApplicationMaxCountRule.hs view
@@ -28,14 +28,6 @@     , fmap (("MaxCount",) . toJSON . fmap Integer') _elasticBeanstalkApplicationMaxCountRuleMaxCount     ] -instance FromJSON ElasticBeanstalkApplicationMaxCountRule where-  parseJSON (Object obj) =-    ElasticBeanstalkApplicationMaxCountRule <$>-      fmap (fmap (fmap unBool')) (obj .:? "DeleteSourceFromS3") <*>-      fmap (fmap (fmap unBool')) (obj .:? "Enabled") <*>-      fmap (fmap (fmap unInteger')) (obj .:? "MaxCount")-  parseJSON _ = mempty- -- | Constructor for 'ElasticBeanstalkApplicationMaxCountRule' containing -- required fields as arguments. elasticBeanstalkApplicationMaxCountRule
library-gen/Stratosphere/ResourceProperties/ElasticBeanstalkApplicationVersionSourceBundle.hs view
@@ -27,13 +27,6 @@     , (Just . ("S3Key",) . toJSON) _elasticBeanstalkApplicationVersionSourceBundleS3Key     ] -instance FromJSON ElasticBeanstalkApplicationVersionSourceBundle where-  parseJSON (Object obj) =-    ElasticBeanstalkApplicationVersionSourceBundle <$>-      (obj .: "S3Bucket") <*>-      (obj .: "S3Key")-  parseJSON _ = mempty- -- | Constructor for 'ElasticBeanstalkApplicationVersionSourceBundle' -- containing required fields as arguments. elasticBeanstalkApplicationVersionSourceBundle
library-gen/Stratosphere/ResourceProperties/ElasticBeanstalkConfigurationTemplateConfigurationOptionSetting.hs view
@@ -31,15 +31,6 @@     , fmap (("Value",) . toJSON) _elasticBeanstalkConfigurationTemplateConfigurationOptionSettingValue     ] -instance FromJSON ElasticBeanstalkConfigurationTemplateConfigurationOptionSetting where-  parseJSON (Object obj) =-    ElasticBeanstalkConfigurationTemplateConfigurationOptionSetting <$>-      (obj .: "Namespace") <*>-      (obj .: "OptionName") <*>-      (obj .:? "ResourceName") <*>-      (obj .:? "Value")-  parseJSON _ = mempty- -- | Constructor for -- 'ElasticBeanstalkConfigurationTemplateConfigurationOptionSetting' -- containing required fields as arguments.
library-gen/Stratosphere/ResourceProperties/ElasticBeanstalkConfigurationTemplateSourceConfiguration.hs view
@@ -27,13 +27,6 @@     , (Just . ("TemplateName",) . toJSON) _elasticBeanstalkConfigurationTemplateSourceConfigurationTemplateName     ] -instance FromJSON ElasticBeanstalkConfigurationTemplateSourceConfiguration where-  parseJSON (Object obj) =-    ElasticBeanstalkConfigurationTemplateSourceConfiguration <$>-      (obj .: "ApplicationName") <*>-      (obj .: "TemplateName")-  parseJSON _ = mempty- -- | Constructor for -- 'ElasticBeanstalkConfigurationTemplateSourceConfiguration' containing -- required fields as arguments.
library-gen/Stratosphere/ResourceProperties/ElasticBeanstalkEnvironmentOptionSetting.hs view
@@ -30,15 +30,6 @@     , fmap (("Value",) . toJSON) _elasticBeanstalkEnvironmentOptionSettingValue     ] -instance FromJSON ElasticBeanstalkEnvironmentOptionSetting where-  parseJSON (Object obj) =-    ElasticBeanstalkEnvironmentOptionSetting <$>-      (obj .: "Namespace") <*>-      (obj .: "OptionName") <*>-      (obj .:? "ResourceName") <*>-      (obj .:? "Value")-  parseJSON _ = mempty- -- | Constructor for 'ElasticBeanstalkEnvironmentOptionSetting' containing -- required fields as arguments. elasticBeanstalkEnvironmentOptionSetting
library-gen/Stratosphere/ResourceProperties/ElasticBeanstalkEnvironmentTier.hs view
@@ -27,14 +27,6 @@     , fmap (("Version",) . toJSON) _elasticBeanstalkEnvironmentTierVersion     ] -instance FromJSON ElasticBeanstalkEnvironmentTier where-  parseJSON (Object obj) =-    ElasticBeanstalkEnvironmentTier <$>-      (obj .:? "Name") <*>-      (obj .:? "Type") <*>-      (obj .:? "Version")-  parseJSON _ = mempty- -- | Constructor for 'ElasticBeanstalkEnvironmentTier' containing required -- fields as arguments. elasticBeanstalkEnvironmentTier
library-gen/Stratosphere/ResourceProperties/ElasticLoadBalancingLoadBalancerAccessLoggingPolicy.hs view
@@ -31,15 +31,6 @@     , fmap (("S3BucketPrefix",) . toJSON) _elasticLoadBalancingLoadBalancerAccessLoggingPolicyS3BucketPrefix     ] -instance FromJSON ElasticLoadBalancingLoadBalancerAccessLoggingPolicy where-  parseJSON (Object obj) =-    ElasticLoadBalancingLoadBalancerAccessLoggingPolicy <$>-      fmap (fmap (fmap unInteger')) (obj .:? "EmitInterval") <*>-      fmap (fmap unBool') (obj .: "Enabled") <*>-      (obj .: "S3BucketName") <*>-      (obj .:? "S3BucketPrefix")-  parseJSON _ = mempty- -- | Constructor for 'ElasticLoadBalancingLoadBalancerAccessLoggingPolicy' -- containing required fields as arguments. elasticLoadBalancingLoadBalancerAccessLoggingPolicy
library-gen/Stratosphere/ResourceProperties/ElasticLoadBalancingLoadBalancerAppCookieStickinessPolicy.hs view
@@ -27,13 +27,6 @@     , (Just . ("PolicyName",) . toJSON) _elasticLoadBalancingLoadBalancerAppCookieStickinessPolicyPolicyName     ] -instance FromJSON ElasticLoadBalancingLoadBalancerAppCookieStickinessPolicy where-  parseJSON (Object obj) =-    ElasticLoadBalancingLoadBalancerAppCookieStickinessPolicy <$>-      (obj .: "CookieName") <*>-      (obj .: "PolicyName")-  parseJSON _ = mempty- -- | Constructor for -- 'ElasticLoadBalancingLoadBalancerAppCookieStickinessPolicy' containing -- required fields as arguments.
library-gen/Stratosphere/ResourceProperties/ElasticLoadBalancingLoadBalancerConnectionDrainingPolicy.hs view
@@ -27,13 +27,6 @@     , fmap (("Timeout",) . toJSON . fmap Integer') _elasticLoadBalancingLoadBalancerConnectionDrainingPolicyTimeout     ] -instance FromJSON ElasticLoadBalancingLoadBalancerConnectionDrainingPolicy where-  parseJSON (Object obj) =-    ElasticLoadBalancingLoadBalancerConnectionDrainingPolicy <$>-      fmap (fmap unBool') (obj .: "Enabled") <*>-      fmap (fmap (fmap unInteger')) (obj .:? "Timeout")-  parseJSON _ = mempty- -- | Constructor for -- 'ElasticLoadBalancingLoadBalancerConnectionDrainingPolicy' containing -- required fields as arguments.
library-gen/Stratosphere/ResourceProperties/ElasticLoadBalancingLoadBalancerConnectionSettings.hs view
@@ -25,12 +25,6 @@     [ (Just . ("IdleTimeout",) . toJSON . fmap Integer') _elasticLoadBalancingLoadBalancerConnectionSettingsIdleTimeout     ] -instance FromJSON ElasticLoadBalancingLoadBalancerConnectionSettings where-  parseJSON (Object obj) =-    ElasticLoadBalancingLoadBalancerConnectionSettings <$>-      fmap (fmap unInteger') (obj .: "IdleTimeout")-  parseJSON _ = mempty- -- | Constructor for 'ElasticLoadBalancingLoadBalancerConnectionSettings' -- containing required fields as arguments. elasticLoadBalancingLoadBalancerConnectionSettings
library-gen/Stratosphere/ResourceProperties/ElasticLoadBalancingLoadBalancerHealthCheck.hs view
@@ -33,16 +33,6 @@     , (Just . ("UnhealthyThreshold",) . toJSON) _elasticLoadBalancingLoadBalancerHealthCheckUnhealthyThreshold     ] -instance FromJSON ElasticLoadBalancingLoadBalancerHealthCheck where-  parseJSON (Object obj) =-    ElasticLoadBalancingLoadBalancerHealthCheck <$>-      (obj .: "HealthyThreshold") <*>-      (obj .: "Interval") <*>-      (obj .: "Target") <*>-      (obj .: "Timeout") <*>-      (obj .: "UnhealthyThreshold")-  parseJSON _ = mempty- -- | Constructor for 'ElasticLoadBalancingLoadBalancerHealthCheck' containing -- required fields as arguments. elasticLoadBalancingLoadBalancerHealthCheck
library-gen/Stratosphere/ResourceProperties/ElasticLoadBalancingLoadBalancerLBCookieStickinessPolicy.hs view
@@ -27,13 +27,6 @@     , fmap (("PolicyName",) . toJSON) _elasticLoadBalancingLoadBalancerLBCookieStickinessPolicyPolicyName     ] -instance FromJSON ElasticLoadBalancingLoadBalancerLBCookieStickinessPolicy where-  parseJSON (Object obj) =-    ElasticLoadBalancingLoadBalancerLBCookieStickinessPolicy <$>-      (obj .:? "CookieExpirationPeriod") <*>-      (obj .:? "PolicyName")-  parseJSON _ = mempty- -- | Constructor for -- 'ElasticLoadBalancingLoadBalancerLBCookieStickinessPolicy' containing -- required fields as arguments.
library-gen/Stratosphere/ResourceProperties/ElasticLoadBalancingLoadBalancerListeners.hs view
@@ -34,17 +34,6 @@     , fmap (("SSLCertificateId",) . toJSON) _elasticLoadBalancingLoadBalancerListenersSSLCertificateId     ] -instance FromJSON ElasticLoadBalancingLoadBalancerListeners where-  parseJSON (Object obj) =-    ElasticLoadBalancingLoadBalancerListeners <$>-      (obj .: "InstancePort") <*>-      (obj .:? "InstanceProtocol") <*>-      (obj .: "LoadBalancerPort") <*>-      (obj .:? "PolicyNames") <*>-      (obj .: "Protocol") <*>-      (obj .:? "SSLCertificateId")-  parseJSON _ = mempty- -- | Constructor for 'ElasticLoadBalancingLoadBalancerListeners' containing -- required fields as arguments. elasticLoadBalancingLoadBalancerListeners
library-gen/Stratosphere/ResourceProperties/ElasticLoadBalancingLoadBalancerPolicies.hs view
@@ -32,16 +32,6 @@     , (Just . ("PolicyType",) . toJSON) _elasticLoadBalancingLoadBalancerPoliciesPolicyType     ] -instance FromJSON ElasticLoadBalancingLoadBalancerPolicies where-  parseJSON (Object obj) =-    ElasticLoadBalancingLoadBalancerPolicies <$>-      (obj .: "Attributes") <*>-      (obj .:? "InstancePorts") <*>-      (obj .:? "LoadBalancerPorts") <*>-      (obj .: "PolicyName") <*>-      (obj .: "PolicyType")-  parseJSON _ = mempty- -- | Constructor for 'ElasticLoadBalancingLoadBalancerPolicies' containing -- required fields as arguments. elasticLoadBalancingLoadBalancerPolicies
library-gen/Stratosphere/ResourceProperties/ElasticLoadBalancingV2ListenerAction.hs view
@@ -38,18 +38,6 @@     , (Just . ("Type",) . toJSON) _elasticLoadBalancingV2ListenerActionType     ] -instance FromJSON ElasticLoadBalancingV2ListenerAction where-  parseJSON (Object obj) =-    ElasticLoadBalancingV2ListenerAction <$>-      (obj .:? "AuthenticateCognitoConfig") <*>-      (obj .:? "AuthenticateOidcConfig") <*>-      (obj .:? "FixedResponseConfig") <*>-      fmap (fmap (fmap unInteger')) (obj .:? "Order") <*>-      (obj .:? "RedirectConfig") <*>-      (obj .:? "TargetGroupArn") <*>-      (obj .: "Type")-  parseJSON _ = mempty- -- | Constructor for 'ElasticLoadBalancingV2ListenerAction' containing -- required fields as arguments. elasticLoadBalancingV2ListenerAction
library-gen/Stratosphere/ResourceProperties/ElasticLoadBalancingV2ListenerAuthenticateCognitoConfig.hs view
@@ -39,19 +39,6 @@     , (Just . ("UserPoolDomain",) . toJSON) _elasticLoadBalancingV2ListenerAuthenticateCognitoConfigUserPoolDomain     ] -instance FromJSON ElasticLoadBalancingV2ListenerAuthenticateCognitoConfig where-  parseJSON (Object obj) =-    ElasticLoadBalancingV2ListenerAuthenticateCognitoConfig <$>-      (obj .:? "AuthenticationRequestExtraParams") <*>-      (obj .:? "OnUnauthenticatedRequest") <*>-      (obj .:? "Scope") <*>-      (obj .:? "SessionCookieName") <*>-      fmap (fmap (fmap unInteger')) (obj .:? "SessionTimeout") <*>-      (obj .: "UserPoolArn") <*>-      (obj .: "UserPoolClientId") <*>-      (obj .: "UserPoolDomain")-  parseJSON _ = mempty- -- | Constructor for 'ElasticLoadBalancingV2ListenerAuthenticateCognitoConfig' -- containing required fields as arguments. elasticLoadBalancingV2ListenerAuthenticateCognitoConfig
library-gen/Stratosphere/ResourceProperties/ElasticLoadBalancingV2ListenerAuthenticateOidcConfig.hs view
@@ -45,22 +45,6 @@     , (Just . ("UserInfoEndpoint",) . toJSON) _elasticLoadBalancingV2ListenerAuthenticateOidcConfigUserInfoEndpoint     ] -instance FromJSON ElasticLoadBalancingV2ListenerAuthenticateOidcConfig where-  parseJSON (Object obj) =-    ElasticLoadBalancingV2ListenerAuthenticateOidcConfig <$>-      (obj .:? "AuthenticationRequestExtraParams") <*>-      (obj .: "AuthorizationEndpoint") <*>-      (obj .: "ClientId") <*>-      (obj .: "ClientSecret") <*>-      (obj .: "Issuer") <*>-      (obj .:? "OnUnauthenticatedRequest") <*>-      (obj .:? "Scope") <*>-      (obj .:? "SessionCookieName") <*>-      fmap (fmap (fmap unInteger')) (obj .:? "SessionTimeout") <*>-      (obj .: "TokenEndpoint") <*>-      (obj .: "UserInfoEndpoint")-  parseJSON _ = mempty- -- | Constructor for 'ElasticLoadBalancingV2ListenerAuthenticateOidcConfig' -- containing required fields as arguments. elasticLoadBalancingV2ListenerAuthenticateOidcConfig
library-gen/Stratosphere/ResourceProperties/ElasticLoadBalancingV2ListenerCertificate.hs view
@@ -24,12 +24,6 @@     [ fmap (("CertificateArn",) . toJSON) _elasticLoadBalancingV2ListenerCertificateCertificateArn     ] -instance FromJSON ElasticLoadBalancingV2ListenerCertificate where-  parseJSON (Object obj) =-    ElasticLoadBalancingV2ListenerCertificate <$>-      (obj .:? "CertificateArn")-  parseJSON _ = mempty- -- | Constructor for 'ElasticLoadBalancingV2ListenerCertificate' containing -- required fields as arguments. elasticLoadBalancingV2ListenerCertificate
library-gen/Stratosphere/ResourceProperties/ElasticLoadBalancingV2ListenerCertificateCertificate.hs view
@@ -25,12 +25,6 @@     [ fmap (("CertificateArn",) . toJSON) _elasticLoadBalancingV2ListenerCertificateCertificateCertificateArn     ] -instance FromJSON ElasticLoadBalancingV2ListenerCertificateCertificate where-  parseJSON (Object obj) =-    ElasticLoadBalancingV2ListenerCertificateCertificate <$>-      (obj .:? "CertificateArn")-  parseJSON _ = mempty- -- | Constructor for 'ElasticLoadBalancingV2ListenerCertificateCertificate' -- containing required fields as arguments. elasticLoadBalancingV2ListenerCertificateCertificate
library-gen/Stratosphere/ResourceProperties/ElasticLoadBalancingV2ListenerFixedResponseConfig.hs view
@@ -29,14 +29,6 @@     , (Just . ("StatusCode",) . toJSON) _elasticLoadBalancingV2ListenerFixedResponseConfigStatusCode     ] -instance FromJSON ElasticLoadBalancingV2ListenerFixedResponseConfig where-  parseJSON (Object obj) =-    ElasticLoadBalancingV2ListenerFixedResponseConfig <$>-      (obj .:? "ContentType") <*>-      (obj .:? "MessageBody") <*>-      (obj .: "StatusCode")-  parseJSON _ = mempty- -- | Constructor for 'ElasticLoadBalancingV2ListenerFixedResponseConfig' -- containing required fields as arguments. elasticLoadBalancingV2ListenerFixedResponseConfig
library-gen/Stratosphere/ResourceProperties/ElasticLoadBalancingV2ListenerRedirectConfig.hs view
@@ -35,17 +35,6 @@     , (Just . ("StatusCode",) . toJSON) _elasticLoadBalancingV2ListenerRedirectConfigStatusCode     ] -instance FromJSON ElasticLoadBalancingV2ListenerRedirectConfig where-  parseJSON (Object obj) =-    ElasticLoadBalancingV2ListenerRedirectConfig <$>-      (obj .:? "Host") <*>-      (obj .:? "Path") <*>-      (obj .:? "Port") <*>-      (obj .:? "Protocol") <*>-      (obj .:? "Query") <*>-      (obj .: "StatusCode")-  parseJSON _ = mempty- -- | Constructor for 'ElasticLoadBalancingV2ListenerRedirectConfig' containing -- required fields as arguments. elasticLoadBalancingV2ListenerRedirectConfig
library-gen/Stratosphere/ResourceProperties/ElasticLoadBalancingV2ListenerRuleAction.hs view
@@ -39,18 +39,6 @@     , (Just . ("Type",) . toJSON) _elasticLoadBalancingV2ListenerRuleActionType     ] -instance FromJSON ElasticLoadBalancingV2ListenerRuleAction where-  parseJSON (Object obj) =-    ElasticLoadBalancingV2ListenerRuleAction <$>-      (obj .:? "AuthenticateCognitoConfig") <*>-      (obj .:? "AuthenticateOidcConfig") <*>-      (obj .:? "FixedResponseConfig") <*>-      fmap (fmap (fmap unInteger')) (obj .:? "Order") <*>-      (obj .:? "RedirectConfig") <*>-      (obj .:? "TargetGroupArn") <*>-      (obj .: "Type")-  parseJSON _ = mempty- -- | Constructor for 'ElasticLoadBalancingV2ListenerRuleAction' containing -- required fields as arguments. elasticLoadBalancingV2ListenerRuleAction
library-gen/Stratosphere/ResourceProperties/ElasticLoadBalancingV2ListenerRuleAuthenticateCognitoConfig.hs view
@@ -39,19 +39,6 @@     , (Just . ("UserPoolDomain",) . toJSON) _elasticLoadBalancingV2ListenerRuleAuthenticateCognitoConfigUserPoolDomain     ] -instance FromJSON ElasticLoadBalancingV2ListenerRuleAuthenticateCognitoConfig where-  parseJSON (Object obj) =-    ElasticLoadBalancingV2ListenerRuleAuthenticateCognitoConfig <$>-      (obj .:? "AuthenticationRequestExtraParams") <*>-      (obj .:? "OnUnauthenticatedRequest") <*>-      (obj .:? "Scope") <*>-      (obj .:? "SessionCookieName") <*>-      fmap (fmap (fmap unInteger')) (obj .:? "SessionTimeout") <*>-      (obj .: "UserPoolArn") <*>-      (obj .: "UserPoolClientId") <*>-      (obj .: "UserPoolDomain")-  parseJSON _ = mempty- -- | Constructor for -- 'ElasticLoadBalancingV2ListenerRuleAuthenticateCognitoConfig' containing -- required fields as arguments.
library-gen/Stratosphere/ResourceProperties/ElasticLoadBalancingV2ListenerRuleAuthenticateOidcConfig.hs view
@@ -45,22 +45,6 @@     , (Just . ("UserInfoEndpoint",) . toJSON) _elasticLoadBalancingV2ListenerRuleAuthenticateOidcConfigUserInfoEndpoint     ] -instance FromJSON ElasticLoadBalancingV2ListenerRuleAuthenticateOidcConfig where-  parseJSON (Object obj) =-    ElasticLoadBalancingV2ListenerRuleAuthenticateOidcConfig <$>-      (obj .:? "AuthenticationRequestExtraParams") <*>-      (obj .: "AuthorizationEndpoint") <*>-      (obj .: "ClientId") <*>-      (obj .: "ClientSecret") <*>-      (obj .: "Issuer") <*>-      (obj .:? "OnUnauthenticatedRequest") <*>-      (obj .:? "Scope") <*>-      (obj .:? "SessionCookieName") <*>-      fmap (fmap (fmap unInteger')) (obj .:? "SessionTimeout") <*>-      (obj .: "TokenEndpoint") <*>-      (obj .: "UserInfoEndpoint")-  parseJSON _ = mempty- -- | Constructor for -- 'ElasticLoadBalancingV2ListenerRuleAuthenticateOidcConfig' containing -- required fields as arguments.
library-gen/Stratosphere/ResourceProperties/ElasticLoadBalancingV2ListenerRuleFixedResponseConfig.hs view
@@ -29,14 +29,6 @@     , (Just . ("StatusCode",) . toJSON) _elasticLoadBalancingV2ListenerRuleFixedResponseConfigStatusCode     ] -instance FromJSON ElasticLoadBalancingV2ListenerRuleFixedResponseConfig where-  parseJSON (Object obj) =-    ElasticLoadBalancingV2ListenerRuleFixedResponseConfig <$>-      (obj .:? "ContentType") <*>-      (obj .:? "MessageBody") <*>-      (obj .: "StatusCode")-  parseJSON _ = mempty- -- | Constructor for 'ElasticLoadBalancingV2ListenerRuleFixedResponseConfig' -- containing required fields as arguments. elasticLoadBalancingV2ListenerRuleFixedResponseConfig
library-gen/Stratosphere/ResourceProperties/ElasticLoadBalancingV2ListenerRuleRedirectConfig.hs view
@@ -35,17 +35,6 @@     , (Just . ("StatusCode",) . toJSON) _elasticLoadBalancingV2ListenerRuleRedirectConfigStatusCode     ] -instance FromJSON ElasticLoadBalancingV2ListenerRuleRedirectConfig where-  parseJSON (Object obj) =-    ElasticLoadBalancingV2ListenerRuleRedirectConfig <$>-      (obj .:? "Host") <*>-      (obj .:? "Path") <*>-      (obj .:? "Port") <*>-      (obj .:? "Protocol") <*>-      (obj .:? "Query") <*>-      (obj .: "StatusCode")-  parseJSON _ = mempty- -- | Constructor for 'ElasticLoadBalancingV2ListenerRuleRedirectConfig' -- containing required fields as arguments. elasticLoadBalancingV2ListenerRuleRedirectConfig
library-gen/Stratosphere/ResourceProperties/ElasticLoadBalancingV2ListenerRuleRuleCondition.hs view
@@ -27,13 +27,6 @@     , fmap (("Values",) . toJSON) _elasticLoadBalancingV2ListenerRuleRuleConditionValues     ] -instance FromJSON ElasticLoadBalancingV2ListenerRuleRuleCondition where-  parseJSON (Object obj) =-    ElasticLoadBalancingV2ListenerRuleRuleCondition <$>-      (obj .:? "Field") <*>-      (obj .:? "Values")-  parseJSON _ = mempty- -- | Constructor for 'ElasticLoadBalancingV2ListenerRuleRuleCondition' -- containing required fields as arguments. elasticLoadBalancingV2ListenerRuleRuleCondition
library-gen/Stratosphere/ResourceProperties/ElasticLoadBalancingV2LoadBalancerLoadBalancerAttribute.hs view
@@ -27,13 +27,6 @@     , fmap (("Value",) . toJSON) _elasticLoadBalancingV2LoadBalancerLoadBalancerAttributeValue     ] -instance FromJSON ElasticLoadBalancingV2LoadBalancerLoadBalancerAttribute where-  parseJSON (Object obj) =-    ElasticLoadBalancingV2LoadBalancerLoadBalancerAttribute <$>-      (obj .:? "Key") <*>-      (obj .:? "Value")-  parseJSON _ = mempty- -- | Constructor for 'ElasticLoadBalancingV2LoadBalancerLoadBalancerAttribute' -- containing required fields as arguments. elasticLoadBalancingV2LoadBalancerLoadBalancerAttribute
library-gen/Stratosphere/ResourceProperties/ElasticLoadBalancingV2LoadBalancerSubnetMapping.hs view
@@ -27,13 +27,6 @@     , (Just . ("SubnetId",) . toJSON) _elasticLoadBalancingV2LoadBalancerSubnetMappingSubnetId     ] -instance FromJSON ElasticLoadBalancingV2LoadBalancerSubnetMapping where-  parseJSON (Object obj) =-    ElasticLoadBalancingV2LoadBalancerSubnetMapping <$>-      (obj .: "AllocationId") <*>-      (obj .: "SubnetId")-  parseJSON _ = mempty- -- | Constructor for 'ElasticLoadBalancingV2LoadBalancerSubnetMapping' -- containing required fields as arguments. elasticLoadBalancingV2LoadBalancerSubnetMapping
library-gen/Stratosphere/ResourceProperties/ElasticLoadBalancingV2TargetGroupMatcher.hs view
@@ -24,12 +24,6 @@     [ (Just . ("HttpCode",) . toJSON) _elasticLoadBalancingV2TargetGroupMatcherHttpCode     ] -instance FromJSON ElasticLoadBalancingV2TargetGroupMatcher where-  parseJSON (Object obj) =-    ElasticLoadBalancingV2TargetGroupMatcher <$>-      (obj .: "HttpCode")-  parseJSON _ = mempty- -- | Constructor for 'ElasticLoadBalancingV2TargetGroupMatcher' containing -- required fields as arguments. elasticLoadBalancingV2TargetGroupMatcher
library-gen/Stratosphere/ResourceProperties/ElasticLoadBalancingV2TargetGroupTargetDescription.hs view
@@ -29,14 +29,6 @@     , fmap (("Port",) . toJSON . fmap Integer') _elasticLoadBalancingV2TargetGroupTargetDescriptionPort     ] -instance FromJSON ElasticLoadBalancingV2TargetGroupTargetDescription where-  parseJSON (Object obj) =-    ElasticLoadBalancingV2TargetGroupTargetDescription <$>-      (obj .:? "AvailabilityZone") <*>-      (obj .: "Id") <*>-      fmap (fmap (fmap unInteger')) (obj .:? "Port")-  parseJSON _ = mempty- -- | Constructor for 'ElasticLoadBalancingV2TargetGroupTargetDescription' -- containing required fields as arguments. elasticLoadBalancingV2TargetGroupTargetDescription
library-gen/Stratosphere/ResourceProperties/ElasticLoadBalancingV2TargetGroupTargetGroupAttribute.hs view
@@ -27,13 +27,6 @@     , fmap (("Value",) . toJSON) _elasticLoadBalancingV2TargetGroupTargetGroupAttributeValue     ] -instance FromJSON ElasticLoadBalancingV2TargetGroupTargetGroupAttribute where-  parseJSON (Object obj) =-    ElasticLoadBalancingV2TargetGroupTargetGroupAttribute <$>-      (obj .:? "Key") <*>-      (obj .:? "Value")-  parseJSON _ = mempty- -- | Constructor for 'ElasticLoadBalancingV2TargetGroupTargetGroupAttribute' -- containing required fields as arguments. elasticLoadBalancingV2TargetGroupTargetGroupAttribute
library-gen/Stratosphere/ResourceProperties/ElasticsearchDomainEBSOptions.hs view
@@ -29,15 +29,6 @@     , fmap (("VolumeType",) . toJSON) _elasticsearchDomainEBSOptionsVolumeType     ] -instance FromJSON ElasticsearchDomainEBSOptions where-  parseJSON (Object obj) =-    ElasticsearchDomainEBSOptions <$>-      fmap (fmap (fmap unBool')) (obj .:? "EBSEnabled") <*>-      fmap (fmap (fmap unInteger')) (obj .:? "Iops") <*>-      fmap (fmap (fmap unInteger')) (obj .:? "VolumeSize") <*>-      (obj .:? "VolumeType")-  parseJSON _ = mempty- -- | Constructor for 'ElasticsearchDomainEBSOptions' containing required -- fields as arguments. elasticsearchDomainEBSOptions
library-gen/Stratosphere/ResourceProperties/ElasticsearchDomainElasticsearchClusterConfig.hs view
@@ -35,17 +35,6 @@     , fmap (("ZoneAwarenessEnabled",) . toJSON . fmap Bool') _elasticsearchDomainElasticsearchClusterConfigZoneAwarenessEnabled     ] -instance FromJSON ElasticsearchDomainElasticsearchClusterConfig where-  parseJSON (Object obj) =-    ElasticsearchDomainElasticsearchClusterConfig <$>-      fmap (fmap (fmap unInteger')) (obj .:? "DedicatedMasterCount") <*>-      fmap (fmap (fmap unBool')) (obj .:? "DedicatedMasterEnabled") <*>-      (obj .:? "DedicatedMasterType") <*>-      fmap (fmap (fmap unInteger')) (obj .:? "InstanceCount") <*>-      (obj .:? "InstanceType") <*>-      fmap (fmap (fmap unBool')) (obj .:? "ZoneAwarenessEnabled")-  parseJSON _ = mempty- -- | Constructor for 'ElasticsearchDomainElasticsearchClusterConfig' -- containing required fields as arguments. elasticsearchDomainElasticsearchClusterConfig
library-gen/Stratosphere/ResourceProperties/ElasticsearchDomainEncryptionAtRestOptions.hs view
@@ -26,13 +26,6 @@     , fmap (("KmsKeyId",) . toJSON) _elasticsearchDomainEncryptionAtRestOptionsKmsKeyId     ] -instance FromJSON ElasticsearchDomainEncryptionAtRestOptions where-  parseJSON (Object obj) =-    ElasticsearchDomainEncryptionAtRestOptions <$>-      fmap (fmap (fmap unBool')) (obj .:? "Enabled") <*>-      (obj .:? "KmsKeyId")-  parseJSON _ = mempty- -- | Constructor for 'ElasticsearchDomainEncryptionAtRestOptions' containing -- required fields as arguments. elasticsearchDomainEncryptionAtRestOptions
library-gen/Stratosphere/ResourceProperties/ElasticsearchDomainNodeToNodeEncryptionOptions.hs view
@@ -25,12 +25,6 @@     [ fmap (("Enabled",) . toJSON . fmap Bool') _elasticsearchDomainNodeToNodeEncryptionOptionsEnabled     ] -instance FromJSON ElasticsearchDomainNodeToNodeEncryptionOptions where-  parseJSON (Object obj) =-    ElasticsearchDomainNodeToNodeEncryptionOptions <$>-      fmap (fmap (fmap unBool')) (obj .:? "Enabled")-  parseJSON _ = mempty- -- | Constructor for 'ElasticsearchDomainNodeToNodeEncryptionOptions' -- containing required fields as arguments. elasticsearchDomainNodeToNodeEncryptionOptions
library-gen/Stratosphere/ResourceProperties/ElasticsearchDomainSnapshotOptions.hs view
@@ -23,12 +23,6 @@     [ fmap (("AutomatedSnapshotStartHour",) . toJSON . fmap Integer') _elasticsearchDomainSnapshotOptionsAutomatedSnapshotStartHour     ] -instance FromJSON ElasticsearchDomainSnapshotOptions where-  parseJSON (Object obj) =-    ElasticsearchDomainSnapshotOptions <$>-      fmap (fmap (fmap unInteger')) (obj .:? "AutomatedSnapshotStartHour")-  parseJSON _ = mempty- -- | Constructor for 'ElasticsearchDomainSnapshotOptions' containing required -- fields as arguments. elasticsearchDomainSnapshotOptions
library-gen/Stratosphere/ResourceProperties/ElasticsearchDomainVPCOptions.hs view
@@ -25,13 +25,6 @@     , fmap (("SubnetIds",) . toJSON) _elasticsearchDomainVPCOptionsSubnetIds     ] -instance FromJSON ElasticsearchDomainVPCOptions where-  parseJSON (Object obj) =-    ElasticsearchDomainVPCOptions <$>-      (obj .:? "SecurityGroupIds") <*>-      (obj .:? "SubnetIds")-  parseJSON _ = mempty- -- | Constructor for 'ElasticsearchDomainVPCOptions' containing required -- fields as arguments. elasticsearchDomainVPCOptions
library-gen/Stratosphere/ResourceProperties/EventsEventBusPolicyCondition.hs view
@@ -27,14 +27,6 @@     , fmap (("Value",) . toJSON) _eventsEventBusPolicyConditionValue     ] -instance FromJSON EventsEventBusPolicyCondition where-  parseJSON (Object obj) =-    EventsEventBusPolicyCondition <$>-      (obj .:? "Key") <*>-      (obj .:? "Type") <*>-      (obj .:? "Value")-  parseJSON _ = mempty- -- | Constructor for 'EventsEventBusPolicyCondition' containing required -- fields as arguments. eventsEventBusPolicyCondition
library-gen/Stratosphere/ResourceProperties/EventsRuleEcsParameters.hs view
@@ -25,13 +25,6 @@     , (Just . ("TaskDefinitionArn",) . toJSON) _eventsRuleEcsParametersTaskDefinitionArn     ] -instance FromJSON EventsRuleEcsParameters where-  parseJSON (Object obj) =-    EventsRuleEcsParameters <$>-      fmap (fmap (fmap unInteger')) (obj .:? "TaskCount") <*>-      (obj .: "TaskDefinitionArn")-  parseJSON _ = mempty- -- | Constructor for 'EventsRuleEcsParameters' containing required fields as -- arguments. eventsRuleEcsParameters
library-gen/Stratosphere/ResourceProperties/EventsRuleInputTransformer.hs view
@@ -25,13 +25,6 @@     , (Just . ("InputTemplate",) . toJSON) _eventsRuleInputTransformerInputTemplate     ] -instance FromJSON EventsRuleInputTransformer where-  parseJSON (Object obj) =-    EventsRuleInputTransformer <$>-      (obj .:? "InputPathsMap") <*>-      (obj .: "InputTemplate")-  parseJSON _ = mempty- -- | Constructor for 'EventsRuleInputTransformer' containing required fields -- as arguments. eventsRuleInputTransformer
library-gen/Stratosphere/ResourceProperties/EventsRuleKinesisParameters.hs view
@@ -23,12 +23,6 @@     [ (Just . ("PartitionKeyPath",) . toJSON) _eventsRuleKinesisParametersPartitionKeyPath     ] -instance FromJSON EventsRuleKinesisParameters where-  parseJSON (Object obj) =-    EventsRuleKinesisParameters <$>-      (obj .: "PartitionKeyPath")-  parseJSON _ = mempty- -- | Constructor for 'EventsRuleKinesisParameters' containing required fields -- as arguments. eventsRuleKinesisParameters
library-gen/Stratosphere/ResourceProperties/EventsRuleRunCommandParameters.hs view
@@ -23,12 +23,6 @@     [ (Just . ("RunCommandTargets",) . toJSON) _eventsRuleRunCommandParametersRunCommandTargets     ] -instance FromJSON EventsRuleRunCommandParameters where-  parseJSON (Object obj) =-    EventsRuleRunCommandParameters <$>-      (obj .: "RunCommandTargets")-  parseJSON _ = mempty- -- | Constructor for 'EventsRuleRunCommandParameters' containing required -- fields as arguments. eventsRuleRunCommandParameters
library-gen/Stratosphere/ResourceProperties/EventsRuleRunCommandTarget.hs view
@@ -25,13 +25,6 @@     , (Just . ("Values",) . toJSON) _eventsRuleRunCommandTargetValues     ] -instance FromJSON EventsRuleRunCommandTarget where-  parseJSON (Object obj) =-    EventsRuleRunCommandTarget <$>-      (obj .: "Key") <*>-      (obj .: "Values")-  parseJSON _ = mempty- -- | Constructor for 'EventsRuleRunCommandTarget' containing required fields -- as arguments. eventsRuleRunCommandTarget
library-gen/Stratosphere/ResourceProperties/EventsRuleSqsParameters.hs view
@@ -23,12 +23,6 @@     [ (Just . ("MessageGroupId",) . toJSON) _eventsRuleSqsParametersMessageGroupId     ] -instance FromJSON EventsRuleSqsParameters where-  parseJSON (Object obj) =-    EventsRuleSqsParameters <$>-      (obj .: "MessageGroupId")-  parseJSON _ = mempty- -- | Constructor for 'EventsRuleSqsParameters' containing required fields as -- arguments. eventsRuleSqsParameters
library-gen/Stratosphere/ResourceProperties/EventsRuleTarget.hs view
@@ -45,21 +45,6 @@     , fmap (("SqsParameters",) . toJSON) _eventsRuleTargetSqsParameters     ] -instance FromJSON EventsRuleTarget where-  parseJSON (Object obj) =-    EventsRuleTarget <$>-      (obj .: "Arn") <*>-      (obj .:? "EcsParameters") <*>-      (obj .: "Id") <*>-      (obj .:? "Input") <*>-      (obj .:? "InputPath") <*>-      (obj .:? "InputTransformer") <*>-      (obj .:? "KinesisParameters") <*>-      (obj .:? "RoleArn") <*>-      (obj .:? "RunCommandParameters") <*>-      (obj .:? "SqsParameters")-  parseJSON _ = mempty- -- | Constructor for 'EventsRuleTarget' containing required fields as -- arguments. eventsRuleTarget
library-gen/Stratosphere/ResourceProperties/FSxFileSystemLustreConfiguration.hs view
@@ -29,15 +29,6 @@     , fmap (("WeeklyMaintenanceStartTime",) . toJSON) _fSxFileSystemLustreConfigurationWeeklyMaintenanceStartTime     ] -instance FromJSON FSxFileSystemLustreConfiguration where-  parseJSON (Object obj) =-    FSxFileSystemLustreConfiguration <$>-      (obj .:? "ExportPath") <*>-      (obj .:? "ImportPath") <*>-      fmap (fmap (fmap unInteger')) (obj .:? "ImportedFileChunkSize") <*>-      (obj .:? "WeeklyMaintenanceStartTime")-  parseJSON _ = mempty- -- | Constructor for 'FSxFileSystemLustreConfiguration' containing required -- fields as arguments. fSxFileSystemLustreConfiguration
library-gen/Stratosphere/ResourceProperties/FSxFileSystemTagEntry.hs view
@@ -25,13 +25,6 @@     , (Just . ("Value",) . toJSON) _fSxFileSystemTagEntryValue     ] -instance FromJSON FSxFileSystemTagEntry where-  parseJSON (Object obj) =-    FSxFileSystemTagEntry <$>-      (obj .: "Key") <*>-      (obj .: "Value")-  parseJSON _ = mempty- -- | Constructor for 'FSxFileSystemTagEntry' containing required fields as -- arguments. fSxFileSystemTagEntry
library-gen/Stratosphere/ResourceProperties/FSxFileSystemWindowsConfiguration.hs view
@@ -33,17 +33,6 @@     , fmap (("WeeklyMaintenanceStartTime",) . toJSON) _fSxFileSystemWindowsConfigurationWeeklyMaintenanceStartTime     ] -instance FromJSON FSxFileSystemWindowsConfiguration where-  parseJSON (Object obj) =-    FSxFileSystemWindowsConfiguration <$>-      (obj .:? "ActiveDirectoryId") <*>-      fmap (fmap (fmap unInteger')) (obj .:? "AutomaticBackupRetentionDays") <*>-      fmap (fmap (fmap unBool')) (obj .:? "CopyTagsToBackups") <*>-      (obj .:? "DailyAutomaticBackupStartTime") <*>-      fmap (fmap (fmap unInteger')) (obj .:? "ThroughputCapacity") <*>-      (obj .:? "WeeklyMaintenanceStartTime")-  parseJSON _ = mempty- -- | Constructor for 'FSxFileSystemWindowsConfiguration' containing required -- fields as arguments. fSxFileSystemWindowsConfiguration
library-gen/Stratosphere/ResourceProperties/GameLiftAliasRoutingStrategy.hs view
@@ -27,14 +27,6 @@     , (Just . ("Type",) . toJSON) _gameLiftAliasRoutingStrategyType     ] -instance FromJSON GameLiftAliasRoutingStrategy where-  parseJSON (Object obj) =-    GameLiftAliasRoutingStrategy <$>-      (obj .:? "FleetId") <*>-      (obj .:? "Message") <*>-      (obj .: "Type")-  parseJSON _ = mempty- -- | Constructor for 'GameLiftAliasRoutingStrategy' containing required fields -- as arguments. gameLiftAliasRoutingStrategy
library-gen/Stratosphere/ResourceProperties/GameLiftBuildS3Location.hs view
@@ -27,14 +27,6 @@     , (Just . ("RoleArn",) . toJSON) _gameLiftBuildS3LocationRoleArn     ] -instance FromJSON GameLiftBuildS3Location where-  parseJSON (Object obj) =-    GameLiftBuildS3Location <$>-      (obj .: "Bucket") <*>-      (obj .: "Key") <*>-      (obj .: "RoleArn")-  parseJSON _ = mempty- -- | Constructor for 'GameLiftBuildS3Location' containing required fields as -- arguments. gameLiftBuildS3Location
library-gen/Stratosphere/ResourceProperties/GameLiftFleetIpPermission.hs view
@@ -29,15 +29,6 @@     , (Just . ("ToPort",) . toJSON . fmap Integer') _gameLiftFleetIpPermissionToPort     ] -instance FromJSON GameLiftFleetIpPermission where-  parseJSON (Object obj) =-    GameLiftFleetIpPermission <$>-      fmap (fmap unInteger') (obj .: "FromPort") <*>-      (obj .: "IpRange") <*>-      (obj .: "Protocol") <*>-      fmap (fmap unInteger') (obj .: "ToPort")-  parseJSON _ = mempty- -- | Constructor for 'GameLiftFleetIpPermission' containing required fields as -- arguments. gameLiftFleetIpPermission
library-gen/Stratosphere/ResourceProperties/GlueClassifierGrokClassifier.hs view
@@ -29,15 +29,6 @@     , fmap (("Name",) . toJSON) _glueClassifierGrokClassifierName     ] -instance FromJSON GlueClassifierGrokClassifier where-  parseJSON (Object obj) =-    GlueClassifierGrokClassifier <$>-      (obj .: "Classification") <*>-      (obj .:? "CustomPatterns") <*>-      (obj .: "GrokPattern") <*>-      (obj .:? "Name")-  parseJSON _ = mempty- -- | Constructor for 'GlueClassifierGrokClassifier' containing required fields -- as arguments. glueClassifierGrokClassifier
library-gen/Stratosphere/ResourceProperties/GlueClassifierJsonClassifier.hs view
@@ -25,13 +25,6 @@     , fmap (("Name",) . toJSON) _glueClassifierJsonClassifierName     ] -instance FromJSON GlueClassifierJsonClassifier where-  parseJSON (Object obj) =-    GlueClassifierJsonClassifier <$>-      (obj .: "JsonPath") <*>-      (obj .:? "Name")-  parseJSON _ = mempty- -- | Constructor for 'GlueClassifierJsonClassifier' containing required fields -- as arguments. glueClassifierJsonClassifier
library-gen/Stratosphere/ResourceProperties/GlueClassifierXMLClassifier.hs view
@@ -27,14 +27,6 @@     , (Just . ("RowTag",) . toJSON) _glueClassifierXMLClassifierRowTag     ] -instance FromJSON GlueClassifierXMLClassifier where-  parseJSON (Object obj) =-    GlueClassifierXMLClassifier <$>-      (obj .: "Classification") <*>-      (obj .:? "Name") <*>-      (obj .: "RowTag")-  parseJSON _ = mempty- -- | Constructor for 'GlueClassifierXMLClassifier' containing required fields -- as arguments. glueClassifierXMLClassifier
library-gen/Stratosphere/ResourceProperties/GlueConnectionConnectionInput.hs view
@@ -33,17 +33,6 @@     , fmap (("PhysicalConnectionRequirements",) . toJSON) _glueConnectionConnectionInputPhysicalConnectionRequirements     ] -instance FromJSON GlueConnectionConnectionInput where-  parseJSON (Object obj) =-    GlueConnectionConnectionInput <$>-      (obj .: "ConnectionProperties") <*>-      (obj .: "ConnectionType") <*>-      (obj .:? "Description") <*>-      (obj .:? "MatchCriteria") <*>-      (obj .:? "Name") <*>-      (obj .:? "PhysicalConnectionRequirements")-  parseJSON _ = mempty- -- | Constructor for 'GlueConnectionConnectionInput' containing required -- fields as arguments. glueConnectionConnectionInput
library-gen/Stratosphere/ResourceProperties/GlueConnectionPhysicalConnectionRequirements.hs view
@@ -29,14 +29,6 @@     , fmap (("SubnetId",) . toJSON) _glueConnectionPhysicalConnectionRequirementsSubnetId     ] -instance FromJSON GlueConnectionPhysicalConnectionRequirements where-  parseJSON (Object obj) =-    GlueConnectionPhysicalConnectionRequirements <$>-      (obj .:? "AvailabilityZone") <*>-      (obj .:? "SecurityGroupIdList") <*>-      (obj .:? "SubnetId")-  parseJSON _ = mempty- -- | Constructor for 'GlueConnectionPhysicalConnectionRequirements' containing -- required fields as arguments. glueConnectionPhysicalConnectionRequirements
library-gen/Stratosphere/ResourceProperties/GlueCrawlerJdbcTarget.hs view
@@ -27,14 +27,6 @@     , fmap (("Path",) . toJSON) _glueCrawlerJdbcTargetPath     ] -instance FromJSON GlueCrawlerJdbcTarget where-  parseJSON (Object obj) =-    GlueCrawlerJdbcTarget <$>-      (obj .:? "ConnectionName") <*>-      (obj .:? "Exclusions") <*>-      (obj .:? "Path")-  parseJSON _ = mempty- -- | Constructor for 'GlueCrawlerJdbcTarget' containing required fields as -- arguments. glueCrawlerJdbcTarget
library-gen/Stratosphere/ResourceProperties/GlueCrawlerS3Target.hs view
@@ -25,13 +25,6 @@     , fmap (("Path",) . toJSON) _glueCrawlerS3TargetPath     ] -instance FromJSON GlueCrawlerS3Target where-  parseJSON (Object obj) =-    GlueCrawlerS3Target <$>-      (obj .:? "Exclusions") <*>-      (obj .:? "Path")-  parseJSON _ = mempty- -- | Constructor for 'GlueCrawlerS3Target' containing required fields as -- arguments. glueCrawlerS3Target
library-gen/Stratosphere/ResourceProperties/GlueCrawlerSchedule.hs view
@@ -23,12 +23,6 @@     [ fmap (("ScheduleExpression",) . toJSON) _glueCrawlerScheduleScheduleExpression     ] -instance FromJSON GlueCrawlerSchedule where-  parseJSON (Object obj) =-    GlueCrawlerSchedule <$>-      (obj .:? "ScheduleExpression")-  parseJSON _ = mempty- -- | Constructor for 'GlueCrawlerSchedule' containing required fields as -- arguments. glueCrawlerSchedule
library-gen/Stratosphere/ResourceProperties/GlueCrawlerSchemaChangePolicy.hs view
@@ -25,13 +25,6 @@     , fmap (("UpdateBehavior",) . toJSON) _glueCrawlerSchemaChangePolicyUpdateBehavior     ] -instance FromJSON GlueCrawlerSchemaChangePolicy where-  parseJSON (Object obj) =-    GlueCrawlerSchemaChangePolicy <$>-      (obj .:? "DeleteBehavior") <*>-      (obj .:? "UpdateBehavior")-  parseJSON _ = mempty- -- | Constructor for 'GlueCrawlerSchemaChangePolicy' containing required -- fields as arguments. glueCrawlerSchemaChangePolicy
library-gen/Stratosphere/ResourceProperties/GlueCrawlerTargets.hs view
@@ -26,13 +26,6 @@     , fmap (("S3Targets",) . toJSON) _glueCrawlerTargetsS3Targets     ] -instance FromJSON GlueCrawlerTargets where-  parseJSON (Object obj) =-    GlueCrawlerTargets <$>-      (obj .:? "JdbcTargets") <*>-      (obj .:? "S3Targets")-  parseJSON _ = mempty- -- | Constructor for 'GlueCrawlerTargets' containing required fields as -- arguments. glueCrawlerTargets
library-gen/Stratosphere/ResourceProperties/GlueDatabaseDatabaseInput.hs view
@@ -29,15 +29,6 @@     , fmap (("Parameters",) . toJSON) _glueDatabaseDatabaseInputParameters     ] -instance FromJSON GlueDatabaseDatabaseInput where-  parseJSON (Object obj) =-    GlueDatabaseDatabaseInput <$>-      (obj .:? "Description") <*>-      (obj .:? "LocationUri") <*>-      (obj .:? "Name") <*>-      (obj .:? "Parameters")-  parseJSON _ = mempty- -- | Constructor for 'GlueDatabaseDatabaseInput' containing required fields as -- arguments. glueDatabaseDatabaseInput
library-gen/Stratosphere/ResourceProperties/GlueJobConnectionsList.hs view
@@ -23,12 +23,6 @@     [ fmap (("Connections",) . toJSON) _glueJobConnectionsListConnections     ] -instance FromJSON GlueJobConnectionsList where-  parseJSON (Object obj) =-    GlueJobConnectionsList <$>-      (obj .:? "Connections")-  parseJSON _ = mempty- -- | Constructor for 'GlueJobConnectionsList' containing required fields as -- arguments. glueJobConnectionsList
library-gen/Stratosphere/ResourceProperties/GlueJobExecutionProperty.hs view
@@ -23,12 +23,6 @@     [ fmap (("MaxConcurrentRuns",) . toJSON . fmap Double') _glueJobExecutionPropertyMaxConcurrentRuns     ] -instance FromJSON GlueJobExecutionProperty where-  parseJSON (Object obj) =-    GlueJobExecutionProperty <$>-      fmap (fmap (fmap unDouble')) (obj .:? "MaxConcurrentRuns")-  parseJSON _ = mempty- -- | Constructor for 'GlueJobExecutionProperty' containing required fields as -- arguments. glueJobExecutionProperty
library-gen/Stratosphere/ResourceProperties/GlueJobJobCommand.hs view
@@ -25,13 +25,6 @@     , fmap (("ScriptLocation",) . toJSON) _glueJobJobCommandScriptLocation     ] -instance FromJSON GlueJobJobCommand where-  parseJSON (Object obj) =-    GlueJobJobCommand <$>-      (obj .:? "Name") <*>-      (obj .:? "ScriptLocation")-  parseJSON _ = mempty- -- | Constructor for 'GlueJobJobCommand' containing required fields as -- arguments. glueJobJobCommand
library-gen/Stratosphere/ResourceProperties/GluePartitionColumn.hs view
@@ -27,14 +27,6 @@     , fmap (("Type",) . toJSON) _gluePartitionColumnType     ] -instance FromJSON GluePartitionColumn where-  parseJSON (Object obj) =-    GluePartitionColumn <$>-      (obj .:? "Comment") <*>-      (obj .: "Name") <*>-      (obj .:? "Type")-  parseJSON _ = mempty- -- | Constructor for 'GluePartitionColumn' containing required fields as -- arguments. gluePartitionColumn
library-gen/Stratosphere/ResourceProperties/GluePartitionOrder.hs view
@@ -25,13 +25,6 @@     , fmap (("SortOrder",) . toJSON . fmap Integer') _gluePartitionOrderSortOrder     ] -instance FromJSON GluePartitionOrder where-  parseJSON (Object obj) =-    GluePartitionOrder <$>-      (obj .: "Column") <*>-      fmap (fmap (fmap unInteger')) (obj .:? "SortOrder")-  parseJSON _ = mempty- -- | Constructor for 'GluePartitionOrder' containing required fields as -- arguments. gluePartitionOrder
library-gen/Stratosphere/ResourceProperties/GluePartitionPartitionInput.hs view
@@ -27,14 +27,6 @@     , (Just . ("Values",) . toJSON) _gluePartitionPartitionInputValues     ] -instance FromJSON GluePartitionPartitionInput where-  parseJSON (Object obj) =-    GluePartitionPartitionInput <$>-      (obj .:? "Parameters") <*>-      (obj .:? "StorageDescriptor") <*>-      (obj .: "Values")-  parseJSON _ = mempty- -- | Constructor for 'GluePartitionPartitionInput' containing required fields -- as arguments. gluePartitionPartitionInput
library-gen/Stratosphere/ResourceProperties/GluePartitionSerdeInfo.hs view
@@ -27,14 +27,6 @@     , fmap (("SerializationLibrary",) . toJSON) _gluePartitionSerdeInfoSerializationLibrary     ] -instance FromJSON GluePartitionSerdeInfo where-  parseJSON (Object obj) =-    GluePartitionSerdeInfo <$>-      (obj .:? "Name") <*>-      (obj .:? "Parameters") <*>-      (obj .:? "SerializationLibrary")-  parseJSON _ = mempty- -- | Constructor for 'GluePartitionSerdeInfo' containing required fields as -- arguments. gluePartitionSerdeInfo
library-gen/Stratosphere/ResourceProperties/GluePartitionSkewedInfo.hs view
@@ -27,14 +27,6 @@     , fmap (("SkewedColumnValues",) . toJSON) _gluePartitionSkewedInfoSkewedColumnValues     ] -instance FromJSON GluePartitionSkewedInfo where-  parseJSON (Object obj) =-    GluePartitionSkewedInfo <$>-      (obj .:? "SkewedColumnNames") <*>-      (obj .:? "SkewedColumnValueLocationMaps") <*>-      (obj .:? "SkewedColumnValues")-  parseJSON _ = mempty- -- | Constructor for 'GluePartitionSkewedInfo' containing required fields as -- arguments. gluePartitionSkewedInfo
library-gen/Stratosphere/ResourceProperties/GluePartitionStorageDescriptor.hs view
@@ -48,23 +48,6 @@     , fmap (("StoredAsSubDirectories",) . toJSON . fmap Bool') _gluePartitionStorageDescriptorStoredAsSubDirectories     ] -instance FromJSON GluePartitionStorageDescriptor where-  parseJSON (Object obj) =-    GluePartitionStorageDescriptor <$>-      (obj .:? "BucketColumns") <*>-      (obj .:? "Columns") <*>-      fmap (fmap (fmap unBool')) (obj .:? "Compressed") <*>-      (obj .:? "InputFormat") <*>-      (obj .:? "Location") <*>-      fmap (fmap (fmap unInteger')) (obj .:? "NumberOfBuckets") <*>-      (obj .:? "OutputFormat") <*>-      (obj .:? "Parameters") <*>-      (obj .:? "SerdeInfo") <*>-      (obj .:? "SkewedInfo") <*>-      (obj .:? "SortColumns") <*>-      fmap (fmap (fmap unBool')) (obj .:? "StoredAsSubDirectories")-  parseJSON _ = mempty- -- | Constructor for 'GluePartitionStorageDescriptor' containing required -- fields as arguments. gluePartitionStorageDescriptor
library-gen/Stratosphere/ResourceProperties/GlueTableColumn.hs view
@@ -27,14 +27,6 @@     , fmap (("Type",) . toJSON) _glueTableColumnType     ] -instance FromJSON GlueTableColumn where-  parseJSON (Object obj) =-    GlueTableColumn <$>-      (obj .:? "Comment") <*>-      (obj .: "Name") <*>-      (obj .:? "Type")-  parseJSON _ = mempty- -- | Constructor for 'GlueTableColumn' containing required fields as -- arguments. glueTableColumn
library-gen/Stratosphere/ResourceProperties/GlueTableOrder.hs view
@@ -25,13 +25,6 @@     , (Just . ("SortOrder",) . toJSON . fmap Integer') _glueTableOrderSortOrder     ] -instance FromJSON GlueTableOrder where-  parseJSON (Object obj) =-    GlueTableOrder <$>-      (obj .: "Column") <*>-      fmap (fmap unInteger') (obj .: "SortOrder")-  parseJSON _ = mempty- -- | Constructor for 'GlueTableOrder' containing required fields as arguments. glueTableOrder   :: Val Text -- ^ 'gtoColumn'
library-gen/Stratosphere/ResourceProperties/GlueTableSerdeInfo.hs view
@@ -27,14 +27,6 @@     , fmap (("SerializationLibrary",) . toJSON) _glueTableSerdeInfoSerializationLibrary     ] -instance FromJSON GlueTableSerdeInfo where-  parseJSON (Object obj) =-    GlueTableSerdeInfo <$>-      (obj .:? "Name") <*>-      (obj .:? "Parameters") <*>-      (obj .:? "SerializationLibrary")-  parseJSON _ = mempty- -- | Constructor for 'GlueTableSerdeInfo' containing required fields as -- arguments. glueTableSerdeInfo
library-gen/Stratosphere/ResourceProperties/GlueTableSkewedInfo.hs view
@@ -27,14 +27,6 @@     , fmap (("SkewedColumnValues",) . toJSON) _glueTableSkewedInfoSkewedColumnValues     ] -instance FromJSON GlueTableSkewedInfo where-  parseJSON (Object obj) =-    GlueTableSkewedInfo <$>-      (obj .:? "SkewedColumnNames") <*>-      (obj .:? "SkewedColumnValueLocationMaps") <*>-      (obj .:? "SkewedColumnValues")-  parseJSON _ = mempty- -- | Constructor for 'GlueTableSkewedInfo' containing required fields as -- arguments. glueTableSkewedInfo
library-gen/Stratosphere/ResourceProperties/GlueTableStorageDescriptor.hs view
@@ -48,23 +48,6 @@     , fmap (("StoredAsSubDirectories",) . toJSON . fmap Bool') _glueTableStorageDescriptorStoredAsSubDirectories     ] -instance FromJSON GlueTableStorageDescriptor where-  parseJSON (Object obj) =-    GlueTableStorageDescriptor <$>-      (obj .:? "BucketColumns") <*>-      (obj .:? "Columns") <*>-      fmap (fmap (fmap unBool')) (obj .:? "Compressed") <*>-      (obj .:? "InputFormat") <*>-      (obj .:? "Location") <*>-      fmap (fmap (fmap unInteger')) (obj .:? "NumberOfBuckets") <*>-      (obj .:? "OutputFormat") <*>-      (obj .:? "Parameters") <*>-      (obj .:? "SerdeInfo") <*>-      (obj .:? "SkewedInfo") <*>-      (obj .:? "SortColumns") <*>-      fmap (fmap (fmap unBool')) (obj .:? "StoredAsSubDirectories")-  parseJSON _ = mempty- -- | Constructor for 'GlueTableStorageDescriptor' containing required fields -- as arguments. glueTableStorageDescriptor
library-gen/Stratosphere/ResourceProperties/GlueTableTableInput.hs view
@@ -42,21 +42,6 @@     , fmap (("ViewOriginalText",) . toJSON) _glueTableTableInputViewOriginalText     ] -instance FromJSON GlueTableTableInput where-  parseJSON (Object obj) =-    GlueTableTableInput <$>-      (obj .:? "Description") <*>-      (obj .:? "Name") <*>-      (obj .:? "Owner") <*>-      (obj .:? "Parameters") <*>-      (obj .:? "PartitionKeys") <*>-      fmap (fmap (fmap unInteger')) (obj .:? "Retention") <*>-      (obj .:? "StorageDescriptor") <*>-      (obj .:? "TableType") <*>-      (obj .:? "ViewExpandedText") <*>-      (obj .:? "ViewOriginalText")-  parseJSON _ = mempty- -- | Constructor for 'GlueTableTableInput' containing required fields as -- arguments. glueTableTableInput
library-gen/Stratosphere/ResourceProperties/GlueTriggerAction.hs view
@@ -25,13 +25,6 @@     , fmap (("JobName",) . toJSON) _glueTriggerActionJobName     ] -instance FromJSON GlueTriggerAction where-  parseJSON (Object obj) =-    GlueTriggerAction <$>-      (obj .:? "Arguments") <*>-      (obj .:? "JobName")-  parseJSON _ = mempty- -- | Constructor for 'GlueTriggerAction' containing required fields as -- arguments. glueTriggerAction
library-gen/Stratosphere/ResourceProperties/GlueTriggerCondition.hs view
@@ -27,14 +27,6 @@     , fmap (("State",) . toJSON) _glueTriggerConditionState     ] -instance FromJSON GlueTriggerCondition where-  parseJSON (Object obj) =-    GlueTriggerCondition <$>-      (obj .:? "JobName") <*>-      (obj .:? "LogicalOperator") <*>-      (obj .:? "State")-  parseJSON _ = mempty- -- | Constructor for 'GlueTriggerCondition' containing required fields as -- arguments. glueTriggerCondition
library-gen/Stratosphere/ResourceProperties/GlueTriggerPredicate.hs view
@@ -25,13 +25,6 @@     , fmap (("Logical",) . toJSON) _glueTriggerPredicateLogical     ] -instance FromJSON GlueTriggerPredicate where-  parseJSON (Object obj) =-    GlueTriggerPredicate <$>-      (obj .:? "Conditions") <*>-      (obj .:? "Logical")-  parseJSON _ = mempty- -- | Constructor for 'GlueTriggerPredicate' containing required fields as -- arguments. glueTriggerPredicate
library-gen/Stratosphere/ResourceProperties/GuardDutyFilterCondition.hs view
@@ -31,16 +31,6 @@     , fmap (("Neq",) . toJSON) _guardDutyFilterConditionNeq     ] -instance FromJSON GuardDutyFilterCondition where-  parseJSON (Object obj) =-    GuardDutyFilterCondition <$>-      (obj .:? "Eq") <*>-      fmap (fmap (fmap unInteger')) (obj .:? "Gte") <*>-      fmap (fmap (fmap unInteger')) (obj .:? "Lt") <*>-      fmap (fmap (fmap unInteger')) (obj .:? "Lte") <*>-      (obj .:? "Neq")-  parseJSON _ = mempty- -- | Constructor for 'GuardDutyFilterCondition' containing required fields as -- arguments. guardDutyFilterCondition
library-gen/Stratosphere/ResourceProperties/GuardDutyFilterFindingCriteria.hs view
@@ -25,13 +25,6 @@     , fmap (("ItemType",) . toJSON) _guardDutyFilterFindingCriteriaItemType     ] -instance FromJSON GuardDutyFilterFindingCriteria where-  parseJSON (Object obj) =-    GuardDutyFilterFindingCriteria <$>-      (obj .:? "Criterion") <*>-      (obj .:? "ItemType")-  parseJSON _ = mempty- -- | Constructor for 'GuardDutyFilterFindingCriteria' containing required -- fields as arguments. guardDutyFilterFindingCriteria
library-gen/Stratosphere/ResourceProperties/IAMGroupPolicy.hs view
@@ -25,13 +25,6 @@     , (Just . ("PolicyName",) . toJSON) _iAMGroupPolicyPolicyName     ] -instance FromJSON IAMGroupPolicy where-  parseJSON (Object obj) =-    IAMGroupPolicy <$>-      (obj .: "PolicyDocument") <*>-      (obj .: "PolicyName")-  parseJSON _ = mempty- -- | Constructor for 'IAMGroupPolicy' containing required fields as arguments. iamGroupPolicy   :: Object -- ^ 'iamgpPolicyDocument'
library-gen/Stratosphere/ResourceProperties/IAMRolePolicy.hs view
@@ -25,13 +25,6 @@     , (Just . ("PolicyName",) . toJSON) _iAMRolePolicyPolicyName     ] -instance FromJSON IAMRolePolicy where-  parseJSON (Object obj) =-    IAMRolePolicy <$>-      (obj .: "PolicyDocument") <*>-      (obj .: "PolicyName")-  parseJSON _ = mempty- -- | Constructor for 'IAMRolePolicy' containing required fields as arguments. iamRolePolicy   :: Object -- ^ 'iamrpPolicyDocument'
library-gen/Stratosphere/ResourceProperties/IAMUserLoginProfile.hs view
@@ -25,13 +25,6 @@     , fmap (("PasswordResetRequired",) . toJSON . fmap Bool') _iAMUserLoginProfilePasswordResetRequired     ] -instance FromJSON IAMUserLoginProfile where-  parseJSON (Object obj) =-    IAMUserLoginProfile <$>-      (obj .: "Password") <*>-      fmap (fmap (fmap unBool')) (obj .:? "PasswordResetRequired")-  parseJSON _ = mempty- -- | Constructor for 'IAMUserLoginProfile' containing required fields as -- arguments. iamUserLoginProfile
library-gen/Stratosphere/ResourceProperties/IAMUserPolicy.hs view
@@ -25,13 +25,6 @@     , (Just . ("PolicyName",) . toJSON) _iAMUserPolicyPolicyName     ] -instance FromJSON IAMUserPolicy where-  parseJSON (Object obj) =-    IAMUserPolicy <$>-      (obj .: "PolicyDocument") <*>-      (obj .: "PolicyName")-  parseJSON _ = mempty- -- | Constructor for 'IAMUserPolicy' containing required fields as arguments. iamUserPolicy   :: Object -- ^ 'iamupPolicyDocument'
library-gen/Stratosphere/ResourceProperties/IoT1ClickProjectDeviceTemplate.hs view
@@ -25,13 +25,6 @@     , fmap (("DeviceType",) . toJSON) _ioT1ClickProjectDeviceTemplateDeviceType     ] -instance FromJSON IoT1ClickProjectDeviceTemplate where-  parseJSON (Object obj) =-    IoT1ClickProjectDeviceTemplate <$>-      (obj .:? "CallbackOverrides") <*>-      (obj .:? "DeviceType")-  parseJSON _ = mempty- -- | Constructor for 'IoT1ClickProjectDeviceTemplate' containing required -- fields as arguments. ioT1ClickProjectDeviceTemplate
library-gen/Stratosphere/ResourceProperties/IoT1ClickProjectPlacementTemplate.hs view
@@ -25,13 +25,6 @@     , fmap (("DeviceTemplates",) . toJSON) _ioT1ClickProjectPlacementTemplateDeviceTemplates     ] -instance FromJSON IoT1ClickProjectPlacementTemplate where-  parseJSON (Object obj) =-    IoT1ClickProjectPlacementTemplate <$>-      (obj .:? "DefaultAttributes") <*>-      (obj .:? "DeviceTemplates")-  parseJSON _ = mempty- -- | Constructor for 'IoT1ClickProjectPlacementTemplate' containing required -- fields as arguments. ioT1ClickProjectPlacementTemplate
library-gen/Stratosphere/ResourceProperties/IoTAnalyticsChannelRetentionPeriod.hs view
@@ -25,13 +25,6 @@     , fmap (("Unlimited",) . toJSON . fmap Bool') _ioTAnalyticsChannelRetentionPeriodUnlimited     ] -instance FromJSON IoTAnalyticsChannelRetentionPeriod where-  parseJSON (Object obj) =-    IoTAnalyticsChannelRetentionPeriod <$>-      fmap (fmap (fmap unInteger')) (obj .:? "NumberOfDays") <*>-      fmap (fmap (fmap unBool')) (obj .:? "Unlimited")-  parseJSON _ = mempty- -- | Constructor for 'IoTAnalyticsChannelRetentionPeriod' containing required -- fields as arguments. ioTAnalyticsChannelRetentionPeriod
library-gen/Stratosphere/ResourceProperties/IoTAnalyticsDatasetAction.hs view
@@ -28,14 +28,6 @@     , fmap (("QueryAction",) . toJSON) _ioTAnalyticsDatasetActionQueryAction     ] -instance FromJSON IoTAnalyticsDatasetAction where-  parseJSON (Object obj) =-    IoTAnalyticsDatasetAction <$>-      (obj .: "ActionName") <*>-      (obj .:? "ContainerAction") <*>-      (obj .:? "QueryAction")-  parseJSON _ = mempty- -- | Constructor for 'IoTAnalyticsDatasetAction' containing required fields as -- arguments. ioTAnalyticsDatasetAction
library-gen/Stratosphere/ResourceProperties/IoTAnalyticsDatasetContainerAction.hs view
@@ -30,15 +30,6 @@     , fmap (("Variables",) . toJSON) _ioTAnalyticsDatasetContainerActionVariables     ] -instance FromJSON IoTAnalyticsDatasetContainerAction where-  parseJSON (Object obj) =-    IoTAnalyticsDatasetContainerAction <$>-      (obj .: "ExecutionRoleArn") <*>-      (obj .: "Image") <*>-      (obj .: "ResourceConfiguration") <*>-      (obj .:? "Variables")-  parseJSON _ = mempty- -- | Constructor for 'IoTAnalyticsDatasetContainerAction' containing required -- fields as arguments. ioTAnalyticsDatasetContainerAction
library-gen/Stratosphere/ResourceProperties/IoTAnalyticsDatasetDatasetContentVersionValue.hs view
@@ -25,12 +25,6 @@     [ fmap (("DatasetName",) . toJSON) _ioTAnalyticsDatasetDatasetContentVersionValueDatasetName     ] -instance FromJSON IoTAnalyticsDatasetDatasetContentVersionValue where-  parseJSON (Object obj) =-    IoTAnalyticsDatasetDatasetContentVersionValue <$>-      (obj .:? "DatasetName")-  parseJSON _ = mempty- -- | Constructor for 'IoTAnalyticsDatasetDatasetContentVersionValue' -- containing required fields as arguments. ioTAnalyticsDatasetDatasetContentVersionValue
library-gen/Stratosphere/ResourceProperties/IoTAnalyticsDatasetDeltaTime.hs view
@@ -25,13 +25,6 @@     , (Just . ("TimeExpression",) . toJSON) _ioTAnalyticsDatasetDeltaTimeTimeExpression     ] -instance FromJSON IoTAnalyticsDatasetDeltaTime where-  parseJSON (Object obj) =-    IoTAnalyticsDatasetDeltaTime <$>-      fmap (fmap unInteger') (obj .: "OffsetSeconds") <*>-      (obj .: "TimeExpression")-  parseJSON _ = mempty- -- | Constructor for 'IoTAnalyticsDatasetDeltaTime' containing required fields -- as arguments. ioTAnalyticsDatasetDeltaTime
library-gen/Stratosphere/ResourceProperties/IoTAnalyticsDatasetFilter.hs view
@@ -23,12 +23,6 @@     [ fmap (("DeltaTime",) . toJSON) _ioTAnalyticsDatasetFilterDeltaTime     ] -instance FromJSON IoTAnalyticsDatasetFilter where-  parseJSON (Object obj) =-    IoTAnalyticsDatasetFilter <$>-      (obj .:? "DeltaTime")-  parseJSON _ = mempty- -- | Constructor for 'IoTAnalyticsDatasetFilter' containing required fields as -- arguments. ioTAnalyticsDatasetFilter
library-gen/Stratosphere/ResourceProperties/IoTAnalyticsDatasetOutputFileUriValue.hs view
@@ -24,12 +24,6 @@     [ fmap (("FileName",) . toJSON) _ioTAnalyticsDatasetOutputFileUriValueFileName     ] -instance FromJSON IoTAnalyticsDatasetOutputFileUriValue where-  parseJSON (Object obj) =-    IoTAnalyticsDatasetOutputFileUriValue <$>-      (obj .:? "FileName")-  parseJSON _ = mempty- -- | Constructor for 'IoTAnalyticsDatasetOutputFileUriValue' containing -- required fields as arguments. ioTAnalyticsDatasetOutputFileUriValue
library-gen/Stratosphere/ResourceProperties/IoTAnalyticsDatasetQueryAction.hs view
@@ -25,13 +25,6 @@     , (Just . ("SqlQuery",) . toJSON) _ioTAnalyticsDatasetQueryActionSqlQuery     ] -instance FromJSON IoTAnalyticsDatasetQueryAction where-  parseJSON (Object obj) =-    IoTAnalyticsDatasetQueryAction <$>-      (obj .:? "Filters") <*>-      (obj .: "SqlQuery")-  parseJSON _ = mempty- -- | Constructor for 'IoTAnalyticsDatasetQueryAction' containing required -- fields as arguments. ioTAnalyticsDatasetQueryAction
library-gen/Stratosphere/ResourceProperties/IoTAnalyticsDatasetResourceConfiguration.hs view
@@ -26,13 +26,6 @@     , (Just . ("VolumeSizeInGB",) . toJSON . fmap Integer') _ioTAnalyticsDatasetResourceConfigurationVolumeSizeInGB     ] -instance FromJSON IoTAnalyticsDatasetResourceConfiguration where-  parseJSON (Object obj) =-    IoTAnalyticsDatasetResourceConfiguration <$>-      (obj .: "ComputeType") <*>-      fmap (fmap unInteger') (obj .: "VolumeSizeInGB")-  parseJSON _ = mempty- -- | Constructor for 'IoTAnalyticsDatasetResourceConfiguration' containing -- required fields as arguments. ioTAnalyticsDatasetResourceConfiguration
library-gen/Stratosphere/ResourceProperties/IoTAnalyticsDatasetRetentionPeriod.hs view
@@ -25,13 +25,6 @@     , (Just . ("Unlimited",) . toJSON . fmap Bool') _ioTAnalyticsDatasetRetentionPeriodUnlimited     ] -instance FromJSON IoTAnalyticsDatasetRetentionPeriod where-  parseJSON (Object obj) =-    IoTAnalyticsDatasetRetentionPeriod <$>-      fmap (fmap unInteger') (obj .: "NumberOfDays") <*>-      fmap (fmap unBool') (obj .: "Unlimited")-  parseJSON _ = mempty- -- | Constructor for 'IoTAnalyticsDatasetRetentionPeriod' containing required -- fields as arguments. ioTAnalyticsDatasetRetentionPeriod
library-gen/Stratosphere/ResourceProperties/IoTAnalyticsDatasetSchedule.hs view
@@ -23,12 +23,6 @@     [ (Just . ("ScheduleExpression",) . toJSON) _ioTAnalyticsDatasetScheduleScheduleExpression     ] -instance FromJSON IoTAnalyticsDatasetSchedule where-  parseJSON (Object obj) =-    IoTAnalyticsDatasetSchedule <$>-      (obj .: "ScheduleExpression")-  parseJSON _ = mempty- -- | Constructor for 'IoTAnalyticsDatasetSchedule' containing required fields -- as arguments. ioTAnalyticsDatasetSchedule
library-gen/Stratosphere/ResourceProperties/IoTAnalyticsDatasetTrigger.hs view
@@ -26,13 +26,6 @@     , fmap (("TriggeringDataset",) . toJSON) _ioTAnalyticsDatasetTriggerTriggeringDataset     ] -instance FromJSON IoTAnalyticsDatasetTrigger where-  parseJSON (Object obj) =-    IoTAnalyticsDatasetTrigger <$>-      (obj .:? "Schedule") <*>-      (obj .:? "TriggeringDataset")-  parseJSON _ = mempty- -- | Constructor for 'IoTAnalyticsDatasetTrigger' containing required fields -- as arguments. ioTAnalyticsDatasetTrigger
library-gen/Stratosphere/ResourceProperties/IoTAnalyticsDatasetTriggeringDataset.hs view
@@ -23,12 +23,6 @@     [ (Just . ("DatasetName",) . toJSON) _ioTAnalyticsDatasetTriggeringDatasetDatasetName     ] -instance FromJSON IoTAnalyticsDatasetTriggeringDataset where-  parseJSON (Object obj) =-    IoTAnalyticsDatasetTriggeringDataset <$>-      (obj .: "DatasetName")-  parseJSON _ = mempty- -- | Constructor for 'IoTAnalyticsDatasetTriggeringDataset' containing -- required fields as arguments. ioTAnalyticsDatasetTriggeringDataset
library-gen/Stratosphere/ResourceProperties/IoTAnalyticsDatasetVariable.hs view
@@ -32,16 +32,6 @@     , (Just . ("VariableName",) . toJSON) _ioTAnalyticsDatasetVariableVariableName     ] -instance FromJSON IoTAnalyticsDatasetVariable where-  parseJSON (Object obj) =-    IoTAnalyticsDatasetVariable <$>-      (obj .:? "DatasetContentVersionValue") <*>-      fmap (fmap (fmap unDouble')) (obj .:? "DoubleValue") <*>-      (obj .:? "OutputFileUriValue") <*>-      (obj .:? "StringValue") <*>-      (obj .: "VariableName")-  parseJSON _ = mempty- -- | Constructor for 'IoTAnalyticsDatasetVariable' containing required fields -- as arguments. ioTAnalyticsDatasetVariable
library-gen/Stratosphere/ResourceProperties/IoTAnalyticsDatastoreRetentionPeriod.hs view
@@ -25,13 +25,6 @@     , fmap (("Unlimited",) . toJSON . fmap Bool') _ioTAnalyticsDatastoreRetentionPeriodUnlimited     ] -instance FromJSON IoTAnalyticsDatastoreRetentionPeriod where-  parseJSON (Object obj) =-    IoTAnalyticsDatastoreRetentionPeriod <$>-      fmap (fmap (fmap unInteger')) (obj .:? "NumberOfDays") <*>-      fmap (fmap (fmap unBool')) (obj .:? "Unlimited")-  parseJSON _ = mempty- -- | Constructor for 'IoTAnalyticsDatastoreRetentionPeriod' containing -- required fields as arguments. ioTAnalyticsDatastoreRetentionPeriod
library-gen/Stratosphere/ResourceProperties/IoTAnalyticsPipelineActivity.hs view
@@ -50,21 +50,6 @@     , fmap (("SelectAttributes",) . toJSON) _ioTAnalyticsPipelineActivitySelectAttributes     ] -instance FromJSON IoTAnalyticsPipelineActivity where-  parseJSON (Object obj) =-    IoTAnalyticsPipelineActivity <$>-      (obj .:? "AddAttributes") <*>-      (obj .:? "Channel") <*>-      (obj .:? "Datastore") <*>-      (obj .:? "DeviceRegistryEnrich") <*>-      (obj .:? "DeviceShadowEnrich") <*>-      (obj .:? "Filter") <*>-      (obj .:? "Lambda") <*>-      (obj .:? "Math") <*>-      (obj .:? "RemoveAttributes") <*>-      (obj .:? "SelectAttributes")-  parseJSON _ = mempty- -- | Constructor for 'IoTAnalyticsPipelineActivity' containing required fields -- as arguments. ioTAnalyticsPipelineActivity
library-gen/Stratosphere/ResourceProperties/IoTAnalyticsPipelineAddAttributes.hs view
@@ -27,14 +27,6 @@     , fmap (("Next",) . toJSON) _ioTAnalyticsPipelineAddAttributesNext     ] -instance FromJSON IoTAnalyticsPipelineAddAttributes where-  parseJSON (Object obj) =-    IoTAnalyticsPipelineAddAttributes <$>-      (obj .:? "Attributes") <*>-      (obj .:? "Name") <*>-      (obj .:? "Next")-  parseJSON _ = mempty- -- | Constructor for 'IoTAnalyticsPipelineAddAttributes' containing required -- fields as arguments. ioTAnalyticsPipelineAddAttributes
library-gen/Stratosphere/ResourceProperties/IoTAnalyticsPipelineChannel.hs view
@@ -27,14 +27,6 @@     , fmap (("Next",) . toJSON) _ioTAnalyticsPipelineChannelNext     ] -instance FromJSON IoTAnalyticsPipelineChannel where-  parseJSON (Object obj) =-    IoTAnalyticsPipelineChannel <$>-      (obj .:? "ChannelName") <*>-      (obj .:? "Name") <*>-      (obj .:? "Next")-  parseJSON _ = mempty- -- | Constructor for 'IoTAnalyticsPipelineChannel' containing required fields -- as arguments. ioTAnalyticsPipelineChannel
library-gen/Stratosphere/ResourceProperties/IoTAnalyticsPipelineDatastore.hs view
@@ -25,13 +25,6 @@     , fmap (("Name",) . toJSON) _ioTAnalyticsPipelineDatastoreName     ] -instance FromJSON IoTAnalyticsPipelineDatastore where-  parseJSON (Object obj) =-    IoTAnalyticsPipelineDatastore <$>-      (obj .:? "DatastoreName") <*>-      (obj .:? "Name")-  parseJSON _ = mempty- -- | Constructor for 'IoTAnalyticsPipelineDatastore' containing required -- fields as arguments. ioTAnalyticsPipelineDatastore
library-gen/Stratosphere/ResourceProperties/IoTAnalyticsPipelineDeviceRegistryEnrich.hs view
@@ -32,16 +32,6 @@     , fmap (("ThingName",) . toJSON) _ioTAnalyticsPipelineDeviceRegistryEnrichThingName     ] -instance FromJSON IoTAnalyticsPipelineDeviceRegistryEnrich where-  parseJSON (Object obj) =-    IoTAnalyticsPipelineDeviceRegistryEnrich <$>-      (obj .:? "Attribute") <*>-      (obj .:? "Name") <*>-      (obj .:? "Next") <*>-      (obj .:? "RoleArn") <*>-      (obj .:? "ThingName")-  parseJSON _ = mempty- -- | Constructor for 'IoTAnalyticsPipelineDeviceRegistryEnrich' containing -- required fields as arguments. ioTAnalyticsPipelineDeviceRegistryEnrich
library-gen/Stratosphere/ResourceProperties/IoTAnalyticsPipelineDeviceShadowEnrich.hs view
@@ -32,16 +32,6 @@     , fmap (("ThingName",) . toJSON) _ioTAnalyticsPipelineDeviceShadowEnrichThingName     ] -instance FromJSON IoTAnalyticsPipelineDeviceShadowEnrich where-  parseJSON (Object obj) =-    IoTAnalyticsPipelineDeviceShadowEnrich <$>-      (obj .:? "Attribute") <*>-      (obj .:? "Name") <*>-      (obj .:? "Next") <*>-      (obj .:? "RoleArn") <*>-      (obj .:? "ThingName")-  parseJSON _ = mempty- -- | Constructor for 'IoTAnalyticsPipelineDeviceShadowEnrich' containing -- required fields as arguments. ioTAnalyticsPipelineDeviceShadowEnrich
library-gen/Stratosphere/ResourceProperties/IoTAnalyticsPipelineFilter.hs view
@@ -27,14 +27,6 @@     , fmap (("Next",) . toJSON) _ioTAnalyticsPipelineFilterNext     ] -instance FromJSON IoTAnalyticsPipelineFilter where-  parseJSON (Object obj) =-    IoTAnalyticsPipelineFilter <$>-      (obj .:? "Filter") <*>-      (obj .:? "Name") <*>-      (obj .:? "Next")-  parseJSON _ = mempty- -- | Constructor for 'IoTAnalyticsPipelineFilter' containing required fields -- as arguments. ioTAnalyticsPipelineFilter
library-gen/Stratosphere/ResourceProperties/IoTAnalyticsPipelineLambda.hs view
@@ -29,15 +29,6 @@     , fmap (("Next",) . toJSON) _ioTAnalyticsPipelineLambdaNext     ] -instance FromJSON IoTAnalyticsPipelineLambda where-  parseJSON (Object obj) =-    IoTAnalyticsPipelineLambda <$>-      fmap (fmap (fmap unInteger')) (obj .:? "BatchSize") <*>-      (obj .:? "LambdaName") <*>-      (obj .:? "Name") <*>-      (obj .:? "Next")-  parseJSON _ = mempty- -- | Constructor for 'IoTAnalyticsPipelineLambda' containing required fields -- as arguments. ioTAnalyticsPipelineLambda
library-gen/Stratosphere/ResourceProperties/IoTAnalyticsPipelineMath.hs view
@@ -29,15 +29,6 @@     , fmap (("Next",) . toJSON) _ioTAnalyticsPipelineMathNext     ] -instance FromJSON IoTAnalyticsPipelineMath where-  parseJSON (Object obj) =-    IoTAnalyticsPipelineMath <$>-      (obj .:? "Attribute") <*>-      (obj .:? "Math") <*>-      (obj .:? "Name") <*>-      (obj .:? "Next")-  parseJSON _ = mempty- -- | Constructor for 'IoTAnalyticsPipelineMath' containing required fields as -- arguments. ioTAnalyticsPipelineMath
library-gen/Stratosphere/ResourceProperties/IoTAnalyticsPipelineRemoveAttributes.hs view
@@ -27,14 +27,6 @@     , fmap (("Next",) . toJSON) _ioTAnalyticsPipelineRemoveAttributesNext     ] -instance FromJSON IoTAnalyticsPipelineRemoveAttributes where-  parseJSON (Object obj) =-    IoTAnalyticsPipelineRemoveAttributes <$>-      (obj .:? "Attributes") <*>-      (obj .:? "Name") <*>-      (obj .:? "Next")-  parseJSON _ = mempty- -- | Constructor for 'IoTAnalyticsPipelineRemoveAttributes' containing -- required fields as arguments. ioTAnalyticsPipelineRemoveAttributes
library-gen/Stratosphere/ResourceProperties/IoTAnalyticsPipelineSelectAttributes.hs view
@@ -27,14 +27,6 @@     , fmap (("Next",) . toJSON) _ioTAnalyticsPipelineSelectAttributesNext     ] -instance FromJSON IoTAnalyticsPipelineSelectAttributes where-  parseJSON (Object obj) =-    IoTAnalyticsPipelineSelectAttributes <$>-      (obj .:? "Attributes") <*>-      (obj .:? "Name") <*>-      (obj .:? "Next")-  parseJSON _ = mempty- -- | Constructor for 'IoTAnalyticsPipelineSelectAttributes' containing -- required fields as arguments. ioTAnalyticsPipelineSelectAttributes
library-gen/Stratosphere/ResourceProperties/IoTThingAttributePayload.hs view
@@ -23,12 +23,6 @@     [ fmap (("Attributes",) . toJSON) _ioTThingAttributePayloadAttributes     ] -instance FromJSON IoTThingAttributePayload where-  parseJSON (Object obj) =-    IoTThingAttributePayload <$>-      (obj .:? "Attributes")-  parseJSON _ = mempty- -- | Constructor for 'IoTThingAttributePayload' containing required fields as -- arguments. ioTThingAttributePayload
library-gen/Stratosphere/ResourceProperties/IoTTopicRuleAction.hs view
@@ -62,25 +62,6 @@     , fmap (("StepFunctions",) . toJSON) _ioTTopicRuleActionStepFunctions     ] -instance FromJSON IoTTopicRuleAction where-  parseJSON (Object obj) =-    IoTTopicRuleAction <$>-      (obj .:? "CloudwatchAlarm") <*>-      (obj .:? "CloudwatchMetric") <*>-      (obj .:? "DynamoDB") <*>-      (obj .:? "DynamoDBv2") <*>-      (obj .:? "Elasticsearch") <*>-      (obj .:? "Firehose") <*>-      (obj .:? "IotAnalytics") <*>-      (obj .:? "Kinesis") <*>-      (obj .:? "Lambda") <*>-      (obj .:? "Republish") <*>-      (obj .:? "S3") <*>-      (obj .:? "Sns") <*>-      (obj .:? "Sqs") <*>-      (obj .:? "StepFunctions")-  parseJSON _ = mempty- -- | Constructor for 'IoTTopicRuleAction' containing required fields as -- arguments. ioTTopicRuleAction
library-gen/Stratosphere/ResourceProperties/IoTTopicRuleCloudwatchAlarmAction.hs view
@@ -29,15 +29,6 @@     , (Just . ("StateValue",) . toJSON) _ioTTopicRuleCloudwatchAlarmActionStateValue     ] -instance FromJSON IoTTopicRuleCloudwatchAlarmAction where-  parseJSON (Object obj) =-    IoTTopicRuleCloudwatchAlarmAction <$>-      (obj .: "AlarmName") <*>-      (obj .: "RoleArn") <*>-      (obj .: "StateReason") <*>-      (obj .: "StateValue")-  parseJSON _ = mempty- -- | Constructor for 'IoTTopicRuleCloudwatchAlarmAction' containing required -- fields as arguments. ioTTopicRuleCloudwatchAlarmAction
library-gen/Stratosphere/ResourceProperties/IoTTopicRuleCloudwatchMetricAction.hs view
@@ -33,17 +33,6 @@     , (Just . ("RoleArn",) . toJSON) _ioTTopicRuleCloudwatchMetricActionRoleArn     ] -instance FromJSON IoTTopicRuleCloudwatchMetricAction where-  parseJSON (Object obj) =-    IoTTopicRuleCloudwatchMetricAction <$>-      (obj .: "MetricName") <*>-      (obj .: "MetricNamespace") <*>-      (obj .:? "MetricTimestamp") <*>-      (obj .: "MetricUnit") <*>-      (obj .: "MetricValue") <*>-      (obj .: "RoleArn")-  parseJSON _ = mempty- -- | Constructor for 'IoTTopicRuleCloudwatchMetricAction' containing required -- fields as arguments. ioTTopicRuleCloudwatchMetricAction
library-gen/Stratosphere/ResourceProperties/IoTTopicRuleDynamoDBAction.hs view
@@ -39,20 +39,6 @@     , (Just . ("TableName",) . toJSON) _ioTTopicRuleDynamoDBActionTableName     ] -instance FromJSON IoTTopicRuleDynamoDBAction where-  parseJSON (Object obj) =-    IoTTopicRuleDynamoDBAction <$>-      (obj .: "HashKeyField") <*>-      (obj .:? "HashKeyType") <*>-      (obj .: "HashKeyValue") <*>-      (obj .:? "PayloadField") <*>-      (obj .:? "RangeKeyField") <*>-      (obj .:? "RangeKeyType") <*>-      (obj .:? "RangeKeyValue") <*>-      (obj .: "RoleArn") <*>-      (obj .: "TableName")-  parseJSON _ = mempty- -- | Constructor for 'IoTTopicRuleDynamoDBAction' containing required fields -- as arguments. ioTTopicRuleDynamoDBAction
library-gen/Stratosphere/ResourceProperties/IoTTopicRuleDynamoDBV2Action.hs view
@@ -25,13 +25,6 @@     , fmap (("RoleArn",) . toJSON) _ioTTopicRuleDynamoDBV2ActionRoleArn     ] -instance FromJSON IoTTopicRuleDynamoDBV2Action where-  parseJSON (Object obj) =-    IoTTopicRuleDynamoDBV2Action <$>-      (obj .:? "PutItem") <*>-      (obj .:? "RoleArn")-  parseJSON _ = mempty- -- | Constructor for 'IoTTopicRuleDynamoDBV2Action' containing required fields -- as arguments. ioTTopicRuleDynamoDBV2Action
library-gen/Stratosphere/ResourceProperties/IoTTopicRuleElasticsearchAction.hs view
@@ -31,16 +31,6 @@     , (Just . ("Type",) . toJSON) _ioTTopicRuleElasticsearchActionType     ] -instance FromJSON IoTTopicRuleElasticsearchAction where-  parseJSON (Object obj) =-    IoTTopicRuleElasticsearchAction <$>-      (obj .: "Endpoint") <*>-      (obj .: "Id") <*>-      (obj .: "Index") <*>-      (obj .: "RoleArn") <*>-      (obj .: "Type")-  parseJSON _ = mempty- -- | Constructor for 'IoTTopicRuleElasticsearchAction' containing required -- fields as arguments. ioTTopicRuleElasticsearchAction
library-gen/Stratosphere/ResourceProperties/IoTTopicRuleFirehoseAction.hs view
@@ -27,14 +27,6 @@     , fmap (("Separator",) . toJSON) _ioTTopicRuleFirehoseActionSeparator     ] -instance FromJSON IoTTopicRuleFirehoseAction where-  parseJSON (Object obj) =-    IoTTopicRuleFirehoseAction <$>-      (obj .: "DeliveryStreamName") <*>-      (obj .: "RoleArn") <*>-      (obj .:? "Separator")-  parseJSON _ = mempty- -- | Constructor for 'IoTTopicRuleFirehoseAction' containing required fields -- as arguments. ioTTopicRuleFirehoseAction
library-gen/Stratosphere/ResourceProperties/IoTTopicRuleIotAnalyticsAction.hs view
@@ -25,13 +25,6 @@     , (Just . ("RoleArn",) . toJSON) _ioTTopicRuleIotAnalyticsActionRoleArn     ] -instance FromJSON IoTTopicRuleIotAnalyticsAction where-  parseJSON (Object obj) =-    IoTTopicRuleIotAnalyticsAction <$>-      (obj .: "ChannelName") <*>-      (obj .: "RoleArn")-  parseJSON _ = mempty- -- | Constructor for 'IoTTopicRuleIotAnalyticsAction' containing required -- fields as arguments. ioTTopicRuleIotAnalyticsAction
library-gen/Stratosphere/ResourceProperties/IoTTopicRuleKinesisAction.hs view
@@ -27,14 +27,6 @@     , (Just . ("StreamName",) . toJSON) _ioTTopicRuleKinesisActionStreamName     ] -instance FromJSON IoTTopicRuleKinesisAction where-  parseJSON (Object obj) =-    IoTTopicRuleKinesisAction <$>-      (obj .:? "PartitionKey") <*>-      (obj .: "RoleArn") <*>-      (obj .: "StreamName")-  parseJSON _ = mempty- -- | Constructor for 'IoTTopicRuleKinesisAction' containing required fields as -- arguments. ioTTopicRuleKinesisAction
library-gen/Stratosphere/ResourceProperties/IoTTopicRuleLambdaAction.hs view
@@ -23,12 +23,6 @@     [ fmap (("FunctionArn",) . toJSON) _ioTTopicRuleLambdaActionFunctionArn     ] -instance FromJSON IoTTopicRuleLambdaAction where-  parseJSON (Object obj) =-    IoTTopicRuleLambdaAction <$>-      (obj .:? "FunctionArn")-  parseJSON _ = mempty- -- | Constructor for 'IoTTopicRuleLambdaAction' containing required fields as -- arguments. ioTTopicRuleLambdaAction
library-gen/Stratosphere/ResourceProperties/IoTTopicRulePutItemInput.hs view
@@ -23,12 +23,6 @@     [ (Just . ("TableName",) . toJSON) _ioTTopicRulePutItemInputTableName     ] -instance FromJSON IoTTopicRulePutItemInput where-  parseJSON (Object obj) =-    IoTTopicRulePutItemInput <$>-      (obj .: "TableName")-  parseJSON _ = mempty- -- | Constructor for 'IoTTopicRulePutItemInput' containing required fields as -- arguments. ioTTopicRulePutItemInput
library-gen/Stratosphere/ResourceProperties/IoTTopicRuleRepublishAction.hs view
@@ -25,13 +25,6 @@     , (Just . ("Topic",) . toJSON) _ioTTopicRuleRepublishActionTopic     ] -instance FromJSON IoTTopicRuleRepublishAction where-  parseJSON (Object obj) =-    IoTTopicRuleRepublishAction <$>-      (obj .: "RoleArn") <*>-      (obj .: "Topic")-  parseJSON _ = mempty- -- | Constructor for 'IoTTopicRuleRepublishAction' containing required fields -- as arguments. ioTTopicRuleRepublishAction
library-gen/Stratosphere/ResourceProperties/IoTTopicRuleS3Action.hs view
@@ -27,14 +27,6 @@     , (Just . ("RoleArn",) . toJSON) _ioTTopicRuleS3ActionRoleArn     ] -instance FromJSON IoTTopicRuleS3Action where-  parseJSON (Object obj) =-    IoTTopicRuleS3Action <$>-      (obj .: "BucketName") <*>-      (obj .: "Key") <*>-      (obj .: "RoleArn")-  parseJSON _ = mempty- -- | Constructor for 'IoTTopicRuleS3Action' containing required fields as -- arguments. ioTTopicRuleS3Action
library-gen/Stratosphere/ResourceProperties/IoTTopicRuleSnsAction.hs view
@@ -27,14 +27,6 @@     , (Just . ("TargetArn",) . toJSON) _ioTTopicRuleSnsActionTargetArn     ] -instance FromJSON IoTTopicRuleSnsAction where-  parseJSON (Object obj) =-    IoTTopicRuleSnsAction <$>-      (obj .:? "MessageFormat") <*>-      (obj .: "RoleArn") <*>-      (obj .: "TargetArn")-  parseJSON _ = mempty- -- | Constructor for 'IoTTopicRuleSnsAction' containing required fields as -- arguments. ioTTopicRuleSnsAction
library-gen/Stratosphere/ResourceProperties/IoTTopicRuleSqsAction.hs view
@@ -27,14 +27,6 @@     , fmap (("UseBase64",) . toJSON . fmap Bool') _ioTTopicRuleSqsActionUseBase64     ] -instance FromJSON IoTTopicRuleSqsAction where-  parseJSON (Object obj) =-    IoTTopicRuleSqsAction <$>-      (obj .: "QueueUrl") <*>-      (obj .: "RoleArn") <*>-      fmap (fmap (fmap unBool')) (obj .:? "UseBase64")-  parseJSON _ = mempty- -- | Constructor for 'IoTTopicRuleSqsAction' containing required fields as -- arguments. ioTTopicRuleSqsAction
library-gen/Stratosphere/ResourceProperties/IoTTopicRuleStepFunctionsAction.hs view
@@ -27,14 +27,6 @@     , (Just . ("StateMachineName",) . toJSON) _ioTTopicRuleStepFunctionsActionStateMachineName     ] -instance FromJSON IoTTopicRuleStepFunctionsAction where-  parseJSON (Object obj) =-    IoTTopicRuleStepFunctionsAction <$>-      (obj .:? "ExecutionNamePrefix") <*>-      (obj .: "RoleArn") <*>-      (obj .: "StateMachineName")-  parseJSON _ = mempty- -- | Constructor for 'IoTTopicRuleStepFunctionsAction' containing required -- fields as arguments. ioTTopicRuleStepFunctionsAction
library-gen/Stratosphere/ResourceProperties/IoTTopicRuleTopicRulePayload.hs view
@@ -33,17 +33,6 @@     , (Just . ("Sql",) . toJSON) _ioTTopicRuleTopicRulePayloadSql     ] -instance FromJSON IoTTopicRuleTopicRulePayload where-  parseJSON (Object obj) =-    IoTTopicRuleTopicRulePayload <$>-      (obj .: "Actions") <*>-      (obj .:? "AwsIotSqlVersion") <*>-      (obj .:? "Description") <*>-      (obj .:? "ErrorAction") <*>-      fmap (fmap unBool') (obj .: "RuleDisabled") <*>-      (obj .: "Sql")-  parseJSON _ = mempty- -- | Constructor for 'IoTTopicRuleTopicRulePayload' containing required fields -- as arguments. ioTTopicRuleTopicRulePayload
library-gen/Stratosphere/ResourceProperties/KinesisAnalyticsApplicationCSVMappingParameters.hs view
@@ -27,13 +27,6 @@     , (Just . ("RecordRowDelimiter",) . toJSON) _kinesisAnalyticsApplicationCSVMappingParametersRecordRowDelimiter     ] -instance FromJSON KinesisAnalyticsApplicationCSVMappingParameters where-  parseJSON (Object obj) =-    KinesisAnalyticsApplicationCSVMappingParameters <$>-      (obj .: "RecordColumnDelimiter") <*>-      (obj .: "RecordRowDelimiter")-  parseJSON _ = mempty- -- | Constructor for 'KinesisAnalyticsApplicationCSVMappingParameters' -- containing required fields as arguments. kinesisAnalyticsApplicationCSVMappingParameters
library-gen/Stratosphere/ResourceProperties/KinesisAnalyticsApplicationInput.hs view
@@ -37,17 +37,6 @@     , (Just . ("NamePrefix",) . toJSON) _kinesisAnalyticsApplicationInputNamePrefix     ] -instance FromJSON KinesisAnalyticsApplicationInput where-  parseJSON (Object obj) =-    KinesisAnalyticsApplicationInput <$>-      (obj .:? "InputParallelism") <*>-      (obj .:? "InputProcessingConfiguration") <*>-      (obj .: "InputSchema") <*>-      (obj .:? "KinesisFirehoseInput") <*>-      (obj .:? "KinesisStreamsInput") <*>-      (obj .: "NamePrefix")-  parseJSON _ = mempty- -- | Constructor for 'KinesisAnalyticsApplicationInput' containing required -- fields as arguments. kinesisAnalyticsApplicationInput
library-gen/Stratosphere/ResourceProperties/KinesisAnalyticsApplicationInputLambdaProcessor.hs view
@@ -27,13 +27,6 @@     , (Just . ("RoleARN",) . toJSON) _kinesisAnalyticsApplicationInputLambdaProcessorRoleARN     ] -instance FromJSON KinesisAnalyticsApplicationInputLambdaProcessor where-  parseJSON (Object obj) =-    KinesisAnalyticsApplicationInputLambdaProcessor <$>-      (obj .: "ResourceARN") <*>-      (obj .: "RoleARN")-  parseJSON _ = mempty- -- | Constructor for 'KinesisAnalyticsApplicationInputLambdaProcessor' -- containing required fields as arguments. kinesisAnalyticsApplicationInputLambdaProcessor
library-gen/Stratosphere/ResourceProperties/KinesisAnalyticsApplicationInputParallelism.hs view
@@ -25,12 +25,6 @@     [ fmap (("Count",) . toJSON . fmap Integer') _kinesisAnalyticsApplicationInputParallelismCount     ] -instance FromJSON KinesisAnalyticsApplicationInputParallelism where-  parseJSON (Object obj) =-    KinesisAnalyticsApplicationInputParallelism <$>-      fmap (fmap (fmap unInteger')) (obj .:? "Count")-  parseJSON _ = mempty- -- | Constructor for 'KinesisAnalyticsApplicationInputParallelism' containing -- required fields as arguments. kinesisAnalyticsApplicationInputParallelism
library-gen/Stratosphere/ResourceProperties/KinesisAnalyticsApplicationInputProcessingConfiguration.hs view
@@ -25,12 +25,6 @@     [ fmap (("InputLambdaProcessor",) . toJSON) _kinesisAnalyticsApplicationInputProcessingConfigurationInputLambdaProcessor     ] -instance FromJSON KinesisAnalyticsApplicationInputProcessingConfiguration where-  parseJSON (Object obj) =-    KinesisAnalyticsApplicationInputProcessingConfiguration <$>-      (obj .:? "InputLambdaProcessor")-  parseJSON _ = mempty- -- | Constructor for 'KinesisAnalyticsApplicationInputProcessingConfiguration' -- containing required fields as arguments. kinesisAnalyticsApplicationInputProcessingConfiguration
library-gen/Stratosphere/ResourceProperties/KinesisAnalyticsApplicationInputSchema.hs view
@@ -29,14 +29,6 @@     , (Just . ("RecordFormat",) . toJSON) _kinesisAnalyticsApplicationInputSchemaRecordFormat     ] -instance FromJSON KinesisAnalyticsApplicationInputSchema where-  parseJSON (Object obj) =-    KinesisAnalyticsApplicationInputSchema <$>-      (obj .: "RecordColumns") <*>-      (obj .:? "RecordEncoding") <*>-      (obj .: "RecordFormat")-  parseJSON _ = mempty- -- | Constructor for 'KinesisAnalyticsApplicationInputSchema' containing -- required fields as arguments. kinesisAnalyticsApplicationInputSchema
library-gen/Stratosphere/ResourceProperties/KinesisAnalyticsApplicationJSONMappingParameters.hs view
@@ -25,12 +25,6 @@     [ (Just . ("RecordRowPath",) . toJSON) _kinesisAnalyticsApplicationJSONMappingParametersRecordRowPath     ] -instance FromJSON KinesisAnalyticsApplicationJSONMappingParameters where-  parseJSON (Object obj) =-    KinesisAnalyticsApplicationJSONMappingParameters <$>-      (obj .: "RecordRowPath")-  parseJSON _ = mempty- -- | Constructor for 'KinesisAnalyticsApplicationJSONMappingParameters' -- containing required fields as arguments. kinesisAnalyticsApplicationJSONMappingParameters
library-gen/Stratosphere/ResourceProperties/KinesisAnalyticsApplicationKinesisFirehoseInput.hs view
@@ -27,13 +27,6 @@     , (Just . ("RoleARN",) . toJSON) _kinesisAnalyticsApplicationKinesisFirehoseInputRoleARN     ] -instance FromJSON KinesisAnalyticsApplicationKinesisFirehoseInput where-  parseJSON (Object obj) =-    KinesisAnalyticsApplicationKinesisFirehoseInput <$>-      (obj .: "ResourceARN") <*>-      (obj .: "RoleARN")-  parseJSON _ = mempty- -- | Constructor for 'KinesisAnalyticsApplicationKinesisFirehoseInput' -- containing required fields as arguments. kinesisAnalyticsApplicationKinesisFirehoseInput
library-gen/Stratosphere/ResourceProperties/KinesisAnalyticsApplicationKinesisStreamsInput.hs view
@@ -27,13 +27,6 @@     , (Just . ("RoleARN",) . toJSON) _kinesisAnalyticsApplicationKinesisStreamsInputRoleARN     ] -instance FromJSON KinesisAnalyticsApplicationKinesisStreamsInput where-  parseJSON (Object obj) =-    KinesisAnalyticsApplicationKinesisStreamsInput <$>-      (obj .: "ResourceARN") <*>-      (obj .: "RoleARN")-  parseJSON _ = mempty- -- | Constructor for 'KinesisAnalyticsApplicationKinesisStreamsInput' -- containing required fields as arguments. kinesisAnalyticsApplicationKinesisStreamsInput
library-gen/Stratosphere/ResourceProperties/KinesisAnalyticsApplicationMappingParameters.hs view
@@ -28,13 +28,6 @@     , fmap (("JSONMappingParameters",) . toJSON) _kinesisAnalyticsApplicationMappingParametersJSONMappingParameters     ] -instance FromJSON KinesisAnalyticsApplicationMappingParameters where-  parseJSON (Object obj) =-    KinesisAnalyticsApplicationMappingParameters <$>-      (obj .:? "CSVMappingParameters") <*>-      (obj .:? "JSONMappingParameters")-  parseJSON _ = mempty- -- | Constructor for 'KinesisAnalyticsApplicationMappingParameters' containing -- required fields as arguments. kinesisAnalyticsApplicationMappingParameters
library-gen/Stratosphere/ResourceProperties/KinesisAnalyticsApplicationOutputDestinationSchema.hs view
@@ -25,12 +25,6 @@     [ fmap (("RecordFormatType",) . toJSON) _kinesisAnalyticsApplicationOutputDestinationSchemaRecordFormatType     ] -instance FromJSON KinesisAnalyticsApplicationOutputDestinationSchema where-  parseJSON (Object obj) =-    KinesisAnalyticsApplicationOutputDestinationSchema <$>-      (obj .:? "RecordFormatType")-  parseJSON _ = mempty- -- | Constructor for 'KinesisAnalyticsApplicationOutputDestinationSchema' -- containing required fields as arguments. kinesisAnalyticsApplicationOutputDestinationSchema
library-gen/Stratosphere/ResourceProperties/KinesisAnalyticsApplicationOutputKinesisFirehoseOutput.hs view
@@ -27,13 +27,6 @@     , (Just . ("RoleARN",) . toJSON) _kinesisAnalyticsApplicationOutputKinesisFirehoseOutputRoleARN     ] -instance FromJSON KinesisAnalyticsApplicationOutputKinesisFirehoseOutput where-  parseJSON (Object obj) =-    KinesisAnalyticsApplicationOutputKinesisFirehoseOutput <$>-      (obj .: "ResourceARN") <*>-      (obj .: "RoleARN")-  parseJSON _ = mempty- -- | Constructor for 'KinesisAnalyticsApplicationOutputKinesisFirehoseOutput' -- containing required fields as arguments. kinesisAnalyticsApplicationOutputKinesisFirehoseOutput
library-gen/Stratosphere/ResourceProperties/KinesisAnalyticsApplicationOutputKinesisStreamsOutput.hs view
@@ -27,13 +27,6 @@     , (Just . ("RoleARN",) . toJSON) _kinesisAnalyticsApplicationOutputKinesisStreamsOutputRoleARN     ] -instance FromJSON KinesisAnalyticsApplicationOutputKinesisStreamsOutput where-  parseJSON (Object obj) =-    KinesisAnalyticsApplicationOutputKinesisStreamsOutput <$>-      (obj .: "ResourceARN") <*>-      (obj .: "RoleARN")-  parseJSON _ = mempty- -- | Constructor for 'KinesisAnalyticsApplicationOutputKinesisStreamsOutput' -- containing required fields as arguments. kinesisAnalyticsApplicationOutputKinesisStreamsOutput
library-gen/Stratosphere/ResourceProperties/KinesisAnalyticsApplicationOutputLambdaOutput.hs view
@@ -27,13 +27,6 @@     , (Just . ("RoleARN",) . toJSON) _kinesisAnalyticsApplicationOutputLambdaOutputRoleARN     ] -instance FromJSON KinesisAnalyticsApplicationOutputLambdaOutput where-  parseJSON (Object obj) =-    KinesisAnalyticsApplicationOutputLambdaOutput <$>-      (obj .: "ResourceARN") <*>-      (obj .: "RoleARN")-  parseJSON _ = mempty- -- | Constructor for 'KinesisAnalyticsApplicationOutputLambdaOutput' -- containing required fields as arguments. kinesisAnalyticsApplicationOutputLambdaOutput
library-gen/Stratosphere/ResourceProperties/KinesisAnalyticsApplicationOutputOutput.hs view
@@ -35,16 +35,6 @@     , fmap (("Name",) . toJSON) _kinesisAnalyticsApplicationOutputOutputName     ] -instance FromJSON KinesisAnalyticsApplicationOutputOutput where-  parseJSON (Object obj) =-    KinesisAnalyticsApplicationOutputOutput <$>-      (obj .: "DestinationSchema") <*>-      (obj .:? "KinesisFirehoseOutput") <*>-      (obj .:? "KinesisStreamsOutput") <*>-      (obj .:? "LambdaOutput") <*>-      (obj .:? "Name")-  parseJSON _ = mempty- -- | Constructor for 'KinesisAnalyticsApplicationOutputOutput' containing -- required fields as arguments. kinesisAnalyticsApplicationOutputOutput
library-gen/Stratosphere/ResourceProperties/KinesisAnalyticsApplicationRecordColumn.hs view
@@ -28,14 +28,6 @@     , (Just . ("SqlType",) . toJSON) _kinesisAnalyticsApplicationRecordColumnSqlType     ] -instance FromJSON KinesisAnalyticsApplicationRecordColumn where-  parseJSON (Object obj) =-    KinesisAnalyticsApplicationRecordColumn <$>-      (obj .:? "Mapping") <*>-      (obj .: "Name") <*>-      (obj .: "SqlType")-  parseJSON _ = mempty- -- | Constructor for 'KinesisAnalyticsApplicationRecordColumn' containing -- required fields as arguments. kinesisAnalyticsApplicationRecordColumn
library-gen/Stratosphere/ResourceProperties/KinesisAnalyticsApplicationRecordFormat.hs view
@@ -26,13 +26,6 @@     , (Just . ("RecordFormatType",) . toJSON) _kinesisAnalyticsApplicationRecordFormatRecordFormatType     ] -instance FromJSON KinesisAnalyticsApplicationRecordFormat where-  parseJSON (Object obj) =-    KinesisAnalyticsApplicationRecordFormat <$>-      (obj .:? "MappingParameters") <*>-      (obj .: "RecordFormatType")-  parseJSON _ = mempty- -- | Constructor for 'KinesisAnalyticsApplicationRecordFormat' containing -- required fields as arguments. kinesisAnalyticsApplicationRecordFormat
library-gen/Stratosphere/ResourceProperties/KinesisAnalyticsApplicationReferenceDataSourceCSVMappingParameters.hs view
@@ -27,13 +27,6 @@     , (Just . ("RecordRowDelimiter",) . toJSON) _kinesisAnalyticsApplicationReferenceDataSourceCSVMappingParametersRecordRowDelimiter     ] -instance FromJSON KinesisAnalyticsApplicationReferenceDataSourceCSVMappingParameters where-  parseJSON (Object obj) =-    KinesisAnalyticsApplicationReferenceDataSourceCSVMappingParameters <$>-      (obj .: "RecordColumnDelimiter") <*>-      (obj .: "RecordRowDelimiter")-  parseJSON _ = mempty- -- | Constructor for -- 'KinesisAnalyticsApplicationReferenceDataSourceCSVMappingParameters' -- containing required fields as arguments.
library-gen/Stratosphere/ResourceProperties/KinesisAnalyticsApplicationReferenceDataSourceJSONMappingParameters.hs view
@@ -25,12 +25,6 @@     [ (Just . ("RecordRowPath",) . toJSON) _kinesisAnalyticsApplicationReferenceDataSourceJSONMappingParametersRecordRowPath     ] -instance FromJSON KinesisAnalyticsApplicationReferenceDataSourceJSONMappingParameters where-  parseJSON (Object obj) =-    KinesisAnalyticsApplicationReferenceDataSourceJSONMappingParameters <$>-      (obj .: "RecordRowPath")-  parseJSON _ = mempty- -- | Constructor for -- 'KinesisAnalyticsApplicationReferenceDataSourceJSONMappingParameters' -- containing required fields as arguments.
library-gen/Stratosphere/ResourceProperties/KinesisAnalyticsApplicationReferenceDataSourceMappingParameters.hs view
@@ -28,13 +28,6 @@     , fmap (("JSONMappingParameters",) . toJSON) _kinesisAnalyticsApplicationReferenceDataSourceMappingParametersJSONMappingParameters     ] -instance FromJSON KinesisAnalyticsApplicationReferenceDataSourceMappingParameters where-  parseJSON (Object obj) =-    KinesisAnalyticsApplicationReferenceDataSourceMappingParameters <$>-      (obj .:? "CSVMappingParameters") <*>-      (obj .:? "JSONMappingParameters")-  parseJSON _ = mempty- -- | Constructor for -- 'KinesisAnalyticsApplicationReferenceDataSourceMappingParameters' -- containing required fields as arguments.
library-gen/Stratosphere/ResourceProperties/KinesisAnalyticsApplicationReferenceDataSourceRecordColumn.hs view
@@ -29,14 +29,6 @@     , (Just . ("SqlType",) . toJSON) _kinesisAnalyticsApplicationReferenceDataSourceRecordColumnSqlType     ] -instance FromJSON KinesisAnalyticsApplicationReferenceDataSourceRecordColumn where-  parseJSON (Object obj) =-    KinesisAnalyticsApplicationReferenceDataSourceRecordColumn <$>-      (obj .:? "Mapping") <*>-      (obj .: "Name") <*>-      (obj .: "SqlType")-  parseJSON _ = mempty- -- | Constructor for -- 'KinesisAnalyticsApplicationReferenceDataSourceRecordColumn' containing -- required fields as arguments.
library-gen/Stratosphere/ResourceProperties/KinesisAnalyticsApplicationReferenceDataSourceRecordFormat.hs view
@@ -27,13 +27,6 @@     , (Just . ("RecordFormatType",) . toJSON) _kinesisAnalyticsApplicationReferenceDataSourceRecordFormatRecordFormatType     ] -instance FromJSON KinesisAnalyticsApplicationReferenceDataSourceRecordFormat where-  parseJSON (Object obj) =-    KinesisAnalyticsApplicationReferenceDataSourceRecordFormat <$>-      (obj .:? "MappingParameters") <*>-      (obj .: "RecordFormatType")-  parseJSON _ = mempty- -- | Constructor for -- 'KinesisAnalyticsApplicationReferenceDataSourceRecordFormat' containing -- required fields as arguments.
library-gen/Stratosphere/ResourceProperties/KinesisAnalyticsApplicationReferenceDataSourceReferenceDataSource.hs view
@@ -30,14 +30,6 @@     , fmap (("TableName",) . toJSON) _kinesisAnalyticsApplicationReferenceDataSourceReferenceDataSourceTableName     ] -instance FromJSON KinesisAnalyticsApplicationReferenceDataSourceReferenceDataSource where-  parseJSON (Object obj) =-    KinesisAnalyticsApplicationReferenceDataSourceReferenceDataSource <$>-      (obj .: "ReferenceSchema") <*>-      (obj .:? "S3ReferenceDataSource") <*>-      (obj .:? "TableName")-  parseJSON _ = mempty- -- | Constructor for -- 'KinesisAnalyticsApplicationReferenceDataSourceReferenceDataSource' -- containing required fields as arguments.
library-gen/Stratosphere/ResourceProperties/KinesisAnalyticsApplicationReferenceDataSourceReferenceSchema.hs view
@@ -30,14 +30,6 @@     , (Just . ("RecordFormat",) . toJSON) _kinesisAnalyticsApplicationReferenceDataSourceReferenceSchemaRecordFormat     ] -instance FromJSON KinesisAnalyticsApplicationReferenceDataSourceReferenceSchema where-  parseJSON (Object obj) =-    KinesisAnalyticsApplicationReferenceDataSourceReferenceSchema <$>-      (obj .: "RecordColumns") <*>-      (obj .:? "RecordEncoding") <*>-      (obj .: "RecordFormat")-  parseJSON _ = mempty- -- | Constructor for -- 'KinesisAnalyticsApplicationReferenceDataSourceReferenceSchema' -- containing required fields as arguments.
library-gen/Stratosphere/ResourceProperties/KinesisAnalyticsApplicationReferenceDataSourceS3ReferenceDataSource.hs view
@@ -29,14 +29,6 @@     , (Just . ("ReferenceRoleARN",) . toJSON) _kinesisAnalyticsApplicationReferenceDataSourceS3ReferenceDataSourceReferenceRoleARN     ] -instance FromJSON KinesisAnalyticsApplicationReferenceDataSourceS3ReferenceDataSource where-  parseJSON (Object obj) =-    KinesisAnalyticsApplicationReferenceDataSourceS3ReferenceDataSource <$>-      (obj .: "BucketARN") <*>-      (obj .: "FileKey") <*>-      (obj .: "ReferenceRoleARN")-  parseJSON _ = mempty- -- | Constructor for -- 'KinesisAnalyticsApplicationReferenceDataSourceS3ReferenceDataSource' -- containing required fields as arguments.
library-gen/Stratosphere/ResourceProperties/KinesisAnalyticsV2ApplicationApplicationCodeConfiguration.hs view
@@ -27,13 +27,6 @@     , (Just . ("CodeContentType",) . toJSON) _kinesisAnalyticsV2ApplicationApplicationCodeConfigurationCodeContentType     ] -instance FromJSON KinesisAnalyticsV2ApplicationApplicationCodeConfiguration where-  parseJSON (Object obj) =-    KinesisAnalyticsV2ApplicationApplicationCodeConfiguration <$>-      (obj .: "CodeContent") <*>-      (obj .: "CodeContentType")-  parseJSON _ = mempty- -- | Constructor for -- 'KinesisAnalyticsV2ApplicationApplicationCodeConfiguration' containing -- required fields as arguments.
library-gen/Stratosphere/ResourceProperties/KinesisAnalyticsV2ApplicationApplicationConfiguration.hs view
@@ -37,16 +37,6 @@     , fmap (("SqlApplicationConfiguration",) . toJSON) _kinesisAnalyticsV2ApplicationApplicationConfigurationSqlApplicationConfiguration     ] -instance FromJSON KinesisAnalyticsV2ApplicationApplicationConfiguration where-  parseJSON (Object obj) =-    KinesisAnalyticsV2ApplicationApplicationConfiguration <$>-      (obj .:? "ApplicationCodeConfiguration") <*>-      (obj .:? "ApplicationSnapshotConfiguration") <*>-      (obj .:? "EnvironmentProperties") <*>-      (obj .:? "FlinkApplicationConfiguration") <*>-      (obj .:? "SqlApplicationConfiguration")-  parseJSON _ = mempty- -- | Constructor for 'KinesisAnalyticsV2ApplicationApplicationConfiguration' -- containing required fields as arguments. kinesisAnalyticsV2ApplicationApplicationConfiguration
library-gen/Stratosphere/ResourceProperties/KinesisAnalyticsV2ApplicationApplicationSnapshotConfiguration.hs view
@@ -25,12 +25,6 @@     [ (Just . ("SnapshotsEnabled",) . toJSON . fmap Bool') _kinesisAnalyticsV2ApplicationApplicationSnapshotConfigurationSnapshotsEnabled     ] -instance FromJSON KinesisAnalyticsV2ApplicationApplicationSnapshotConfiguration where-  parseJSON (Object obj) =-    KinesisAnalyticsV2ApplicationApplicationSnapshotConfiguration <$>-      fmap (fmap unBool') (obj .: "SnapshotsEnabled")-  parseJSON _ = mempty- -- | Constructor for -- 'KinesisAnalyticsV2ApplicationApplicationSnapshotConfiguration' -- containing required fields as arguments.
library-gen/Stratosphere/ResourceProperties/KinesisAnalyticsV2ApplicationCSVMappingParameters.hs view
@@ -27,13 +27,6 @@     , (Just . ("RecordRowDelimiter",) . toJSON) _kinesisAnalyticsV2ApplicationCSVMappingParametersRecordRowDelimiter     ] -instance FromJSON KinesisAnalyticsV2ApplicationCSVMappingParameters where-  parseJSON (Object obj) =-    KinesisAnalyticsV2ApplicationCSVMappingParameters <$>-      (obj .: "RecordColumnDelimiter") <*>-      (obj .: "RecordRowDelimiter")-  parseJSON _ = mempty- -- | Constructor for 'KinesisAnalyticsV2ApplicationCSVMappingParameters' -- containing required fields as arguments. kinesisAnalyticsV2ApplicationCSVMappingParameters
library-gen/Stratosphere/ResourceProperties/KinesisAnalyticsV2ApplicationCheckpointConfiguration.hs view
@@ -31,15 +31,6 @@     , fmap (("MinPauseBetweenCheckpoints",) . toJSON . fmap Integer') _kinesisAnalyticsV2ApplicationCheckpointConfigurationMinPauseBetweenCheckpoints     ] -instance FromJSON KinesisAnalyticsV2ApplicationCheckpointConfiguration where-  parseJSON (Object obj) =-    KinesisAnalyticsV2ApplicationCheckpointConfiguration <$>-      fmap (fmap (fmap unInteger')) (obj .:? "CheckpointInterval") <*>-      fmap (fmap (fmap unBool')) (obj .:? "CheckpointingEnabled") <*>-      (obj .: "ConfigurationType") <*>-      fmap (fmap (fmap unInteger')) (obj .:? "MinPauseBetweenCheckpoints")-  parseJSON _ = mempty- -- | Constructor for 'KinesisAnalyticsV2ApplicationCheckpointConfiguration' -- containing required fields as arguments. kinesisAnalyticsV2ApplicationCheckpointConfiguration
library-gen/Stratosphere/ResourceProperties/KinesisAnalyticsV2ApplicationCloudWatchLoggingOptionCloudWatchLoggingOption.hs view
@@ -26,12 +26,6 @@     [ (Just . ("LogStreamARN",) . toJSON) _kinesisAnalyticsV2ApplicationCloudWatchLoggingOptionCloudWatchLoggingOptionLogStreamARN     ] -instance FromJSON KinesisAnalyticsV2ApplicationCloudWatchLoggingOptionCloudWatchLoggingOption where-  parseJSON (Object obj) =-    KinesisAnalyticsV2ApplicationCloudWatchLoggingOptionCloudWatchLoggingOption <$>-      (obj .: "LogStreamARN")-  parseJSON _ = mempty- -- | Constructor for -- 'KinesisAnalyticsV2ApplicationCloudWatchLoggingOptionCloudWatchLoggingOption' -- containing required fields as arguments.
library-gen/Stratosphere/ResourceProperties/KinesisAnalyticsV2ApplicationCodeContent.hs view
@@ -28,14 +28,6 @@     , fmap (("ZipFileContent",) . toJSON) _kinesisAnalyticsV2ApplicationCodeContentZipFileContent     ] -instance FromJSON KinesisAnalyticsV2ApplicationCodeContent where-  parseJSON (Object obj) =-    KinesisAnalyticsV2ApplicationCodeContent <$>-      (obj .:? "S3ContentLocation") <*>-      (obj .:? "TextContent") <*>-      (obj .:? "ZipFileContent")-  parseJSON _ = mempty- -- | Constructor for 'KinesisAnalyticsV2ApplicationCodeContent' containing -- required fields as arguments. kinesisAnalyticsV2ApplicationCodeContent
library-gen/Stratosphere/ResourceProperties/KinesisAnalyticsV2ApplicationEnvironmentProperties.hs view
@@ -25,12 +25,6 @@     [ fmap (("PropertyGroups",) . toJSON) _kinesisAnalyticsV2ApplicationEnvironmentPropertiesPropertyGroups     ] -instance FromJSON KinesisAnalyticsV2ApplicationEnvironmentProperties where-  parseJSON (Object obj) =-    KinesisAnalyticsV2ApplicationEnvironmentProperties <$>-      (obj .:? "PropertyGroups")-  parseJSON _ = mempty- -- | Constructor for 'KinesisAnalyticsV2ApplicationEnvironmentProperties' -- containing required fields as arguments. kinesisAnalyticsV2ApplicationEnvironmentProperties
library-gen/Stratosphere/ResourceProperties/KinesisAnalyticsV2ApplicationFlinkApplicationConfiguration.hs view
@@ -31,14 +31,6 @@     , fmap (("ParallelismConfiguration",) . toJSON) _kinesisAnalyticsV2ApplicationFlinkApplicationConfigurationParallelismConfiguration     ] -instance FromJSON KinesisAnalyticsV2ApplicationFlinkApplicationConfiguration where-  parseJSON (Object obj) =-    KinesisAnalyticsV2ApplicationFlinkApplicationConfiguration <$>-      (obj .:? "CheckpointConfiguration") <*>-      (obj .:? "MonitoringConfiguration") <*>-      (obj .:? "ParallelismConfiguration")-  parseJSON _ = mempty- -- | Constructor for -- 'KinesisAnalyticsV2ApplicationFlinkApplicationConfiguration' containing -- required fields as arguments.
library-gen/Stratosphere/ResourceProperties/KinesisAnalyticsV2ApplicationInput.hs view
@@ -37,17 +37,6 @@     , (Just . ("NamePrefix",) . toJSON) _kinesisAnalyticsV2ApplicationInputNamePrefix     ] -instance FromJSON KinesisAnalyticsV2ApplicationInput where-  parseJSON (Object obj) =-    KinesisAnalyticsV2ApplicationInput <$>-      (obj .:? "InputParallelism") <*>-      (obj .:? "InputProcessingConfiguration") <*>-      (obj .: "InputSchema") <*>-      (obj .:? "KinesisFirehoseInput") <*>-      (obj .:? "KinesisStreamsInput") <*>-      (obj .: "NamePrefix")-  parseJSON _ = mempty- -- | Constructor for 'KinesisAnalyticsV2ApplicationInput' containing required -- fields as arguments. kinesisAnalyticsV2ApplicationInput
library-gen/Stratosphere/ResourceProperties/KinesisAnalyticsV2ApplicationInputLambdaProcessor.hs view
@@ -25,12 +25,6 @@     [ (Just . ("ResourceARN",) . toJSON) _kinesisAnalyticsV2ApplicationInputLambdaProcessorResourceARN     ] -instance FromJSON KinesisAnalyticsV2ApplicationInputLambdaProcessor where-  parseJSON (Object obj) =-    KinesisAnalyticsV2ApplicationInputLambdaProcessor <$>-      (obj .: "ResourceARN")-  parseJSON _ = mempty- -- | Constructor for 'KinesisAnalyticsV2ApplicationInputLambdaProcessor' -- containing required fields as arguments. kinesisAnalyticsV2ApplicationInputLambdaProcessor
library-gen/Stratosphere/ResourceProperties/KinesisAnalyticsV2ApplicationInputParallelism.hs view
@@ -25,12 +25,6 @@     [ fmap (("Count",) . toJSON . fmap Integer') _kinesisAnalyticsV2ApplicationInputParallelismCount     ] -instance FromJSON KinesisAnalyticsV2ApplicationInputParallelism where-  parseJSON (Object obj) =-    KinesisAnalyticsV2ApplicationInputParallelism <$>-      fmap (fmap (fmap unInteger')) (obj .:? "Count")-  parseJSON _ = mempty- -- | Constructor for 'KinesisAnalyticsV2ApplicationInputParallelism' -- containing required fields as arguments. kinesisAnalyticsV2ApplicationInputParallelism
library-gen/Stratosphere/ResourceProperties/KinesisAnalyticsV2ApplicationInputProcessingConfiguration.hs view
@@ -25,12 +25,6 @@     [ fmap (("InputLambdaProcessor",) . toJSON) _kinesisAnalyticsV2ApplicationInputProcessingConfigurationInputLambdaProcessor     ] -instance FromJSON KinesisAnalyticsV2ApplicationInputProcessingConfiguration where-  parseJSON (Object obj) =-    KinesisAnalyticsV2ApplicationInputProcessingConfiguration <$>-      (obj .:? "InputLambdaProcessor")-  parseJSON _ = mempty- -- | Constructor for -- 'KinesisAnalyticsV2ApplicationInputProcessingConfiguration' containing -- required fields as arguments.
library-gen/Stratosphere/ResourceProperties/KinesisAnalyticsV2ApplicationInputSchema.hs view
@@ -29,14 +29,6 @@     , (Just . ("RecordFormat",) . toJSON) _kinesisAnalyticsV2ApplicationInputSchemaRecordFormat     ] -instance FromJSON KinesisAnalyticsV2ApplicationInputSchema where-  parseJSON (Object obj) =-    KinesisAnalyticsV2ApplicationInputSchema <$>-      (obj .: "RecordColumns") <*>-      (obj .:? "RecordEncoding") <*>-      (obj .: "RecordFormat")-  parseJSON _ = mempty- -- | Constructor for 'KinesisAnalyticsV2ApplicationInputSchema' containing -- required fields as arguments. kinesisAnalyticsV2ApplicationInputSchema
library-gen/Stratosphere/ResourceProperties/KinesisAnalyticsV2ApplicationJSONMappingParameters.hs view
@@ -25,12 +25,6 @@     [ (Just . ("RecordRowPath",) . toJSON) _kinesisAnalyticsV2ApplicationJSONMappingParametersRecordRowPath     ] -instance FromJSON KinesisAnalyticsV2ApplicationJSONMappingParameters where-  parseJSON (Object obj) =-    KinesisAnalyticsV2ApplicationJSONMappingParameters <$>-      (obj .: "RecordRowPath")-  parseJSON _ = mempty- -- | Constructor for 'KinesisAnalyticsV2ApplicationJSONMappingParameters' -- containing required fields as arguments. kinesisAnalyticsV2ApplicationJSONMappingParameters
library-gen/Stratosphere/ResourceProperties/KinesisAnalyticsV2ApplicationKinesisFirehoseInput.hs view
@@ -25,12 +25,6 @@     [ (Just . ("ResourceARN",) . toJSON) _kinesisAnalyticsV2ApplicationKinesisFirehoseInputResourceARN     ] -instance FromJSON KinesisAnalyticsV2ApplicationKinesisFirehoseInput where-  parseJSON (Object obj) =-    KinesisAnalyticsV2ApplicationKinesisFirehoseInput <$>-      (obj .: "ResourceARN")-  parseJSON _ = mempty- -- | Constructor for 'KinesisAnalyticsV2ApplicationKinesisFirehoseInput' -- containing required fields as arguments. kinesisAnalyticsV2ApplicationKinesisFirehoseInput
library-gen/Stratosphere/ResourceProperties/KinesisAnalyticsV2ApplicationKinesisStreamsInput.hs view
@@ -25,12 +25,6 @@     [ (Just . ("ResourceARN",) . toJSON) _kinesisAnalyticsV2ApplicationKinesisStreamsInputResourceARN     ] -instance FromJSON KinesisAnalyticsV2ApplicationKinesisStreamsInput where-  parseJSON (Object obj) =-    KinesisAnalyticsV2ApplicationKinesisStreamsInput <$>-      (obj .: "ResourceARN")-  parseJSON _ = mempty- -- | Constructor for 'KinesisAnalyticsV2ApplicationKinesisStreamsInput' -- containing required fields as arguments. kinesisAnalyticsV2ApplicationKinesisStreamsInput
library-gen/Stratosphere/ResourceProperties/KinesisAnalyticsV2ApplicationMappingParameters.hs view
@@ -28,13 +28,6 @@     , fmap (("JSONMappingParameters",) . toJSON) _kinesisAnalyticsV2ApplicationMappingParametersJSONMappingParameters     ] -instance FromJSON KinesisAnalyticsV2ApplicationMappingParameters where-  parseJSON (Object obj) =-    KinesisAnalyticsV2ApplicationMappingParameters <$>-      (obj .:? "CSVMappingParameters") <*>-      (obj .:? "JSONMappingParameters")-  parseJSON _ = mempty- -- | Constructor for 'KinesisAnalyticsV2ApplicationMappingParameters' -- containing required fields as arguments. kinesisAnalyticsV2ApplicationMappingParameters
library-gen/Stratosphere/ResourceProperties/KinesisAnalyticsV2ApplicationMonitoringConfiguration.hs view
@@ -29,14 +29,6 @@     , fmap (("MetricsLevel",) . toJSON) _kinesisAnalyticsV2ApplicationMonitoringConfigurationMetricsLevel     ] -instance FromJSON KinesisAnalyticsV2ApplicationMonitoringConfiguration where-  parseJSON (Object obj) =-    KinesisAnalyticsV2ApplicationMonitoringConfiguration <$>-      (obj .: "ConfigurationType") <*>-      (obj .:? "LogLevel") <*>-      (obj .:? "MetricsLevel")-  parseJSON _ = mempty- -- | Constructor for 'KinesisAnalyticsV2ApplicationMonitoringConfiguration' -- containing required fields as arguments. kinesisAnalyticsV2ApplicationMonitoringConfiguration
library-gen/Stratosphere/ResourceProperties/KinesisAnalyticsV2ApplicationOutputDestinationSchema.hs view
@@ -25,12 +25,6 @@     [ fmap (("RecordFormatType",) . toJSON) _kinesisAnalyticsV2ApplicationOutputDestinationSchemaRecordFormatType     ] -instance FromJSON KinesisAnalyticsV2ApplicationOutputDestinationSchema where-  parseJSON (Object obj) =-    KinesisAnalyticsV2ApplicationOutputDestinationSchema <$>-      (obj .:? "RecordFormatType")-  parseJSON _ = mempty- -- | Constructor for 'KinesisAnalyticsV2ApplicationOutputDestinationSchema' -- containing required fields as arguments. kinesisAnalyticsV2ApplicationOutputDestinationSchema
library-gen/Stratosphere/ResourceProperties/KinesisAnalyticsV2ApplicationOutputKinesisFirehoseOutput.hs view
@@ -25,12 +25,6 @@     [ (Just . ("ResourceARN",) . toJSON) _kinesisAnalyticsV2ApplicationOutputKinesisFirehoseOutputResourceARN     ] -instance FromJSON KinesisAnalyticsV2ApplicationOutputKinesisFirehoseOutput where-  parseJSON (Object obj) =-    KinesisAnalyticsV2ApplicationOutputKinesisFirehoseOutput <$>-      (obj .: "ResourceARN")-  parseJSON _ = mempty- -- | Constructor for -- 'KinesisAnalyticsV2ApplicationOutputKinesisFirehoseOutput' containing -- required fields as arguments.
library-gen/Stratosphere/ResourceProperties/KinesisAnalyticsV2ApplicationOutputKinesisStreamsOutput.hs view
@@ -25,12 +25,6 @@     [ (Just . ("ResourceARN",) . toJSON) _kinesisAnalyticsV2ApplicationOutputKinesisStreamsOutputResourceARN     ] -instance FromJSON KinesisAnalyticsV2ApplicationOutputKinesisStreamsOutput where-  parseJSON (Object obj) =-    KinesisAnalyticsV2ApplicationOutputKinesisStreamsOutput <$>-      (obj .: "ResourceARN")-  parseJSON _ = mempty- -- | Constructor for 'KinesisAnalyticsV2ApplicationOutputKinesisStreamsOutput' -- containing required fields as arguments. kinesisAnalyticsV2ApplicationOutputKinesisStreamsOutput
library-gen/Stratosphere/ResourceProperties/KinesisAnalyticsV2ApplicationOutputLambdaOutput.hs view
@@ -25,12 +25,6 @@     [ (Just . ("ResourceARN",) . toJSON) _kinesisAnalyticsV2ApplicationOutputLambdaOutputResourceARN     ] -instance FromJSON KinesisAnalyticsV2ApplicationOutputLambdaOutput where-  parseJSON (Object obj) =-    KinesisAnalyticsV2ApplicationOutputLambdaOutput <$>-      (obj .: "ResourceARN")-  parseJSON _ = mempty- -- | Constructor for 'KinesisAnalyticsV2ApplicationOutputLambdaOutput' -- containing required fields as arguments. kinesisAnalyticsV2ApplicationOutputLambdaOutput
library-gen/Stratosphere/ResourceProperties/KinesisAnalyticsV2ApplicationOutputOutput.hs view
@@ -35,16 +35,6 @@     , fmap (("Name",) . toJSON) _kinesisAnalyticsV2ApplicationOutputOutputName     ] -instance FromJSON KinesisAnalyticsV2ApplicationOutputOutput where-  parseJSON (Object obj) =-    KinesisAnalyticsV2ApplicationOutputOutput <$>-      (obj .: "DestinationSchema") <*>-      (obj .:? "KinesisFirehoseOutput") <*>-      (obj .:? "KinesisStreamsOutput") <*>-      (obj .:? "LambdaOutput") <*>-      (obj .:? "Name")-  parseJSON _ = mempty- -- | Constructor for 'KinesisAnalyticsV2ApplicationOutputOutput' containing -- required fields as arguments. kinesisAnalyticsV2ApplicationOutputOutput
library-gen/Stratosphere/ResourceProperties/KinesisAnalyticsV2ApplicationParallelismConfiguration.hs view
@@ -31,15 +31,6 @@     , fmap (("ParallelismPerKPU",) . toJSON . fmap Integer') _kinesisAnalyticsV2ApplicationParallelismConfigurationParallelismPerKPU     ] -instance FromJSON KinesisAnalyticsV2ApplicationParallelismConfiguration where-  parseJSON (Object obj) =-    KinesisAnalyticsV2ApplicationParallelismConfiguration <$>-      fmap (fmap (fmap unBool')) (obj .:? "AutoScalingEnabled") <*>-      (obj .: "ConfigurationType") <*>-      fmap (fmap (fmap unInteger')) (obj .:? "Parallelism") <*>-      fmap (fmap (fmap unInteger')) (obj .:? "ParallelismPerKPU")-  parseJSON _ = mempty- -- | Constructor for 'KinesisAnalyticsV2ApplicationParallelismConfiguration' -- containing required fields as arguments. kinesisAnalyticsV2ApplicationParallelismConfiguration
library-gen/Stratosphere/ResourceProperties/KinesisAnalyticsV2ApplicationPropertyGroup.hs view
@@ -26,13 +26,6 @@     , fmap (("PropertyMap",) . toJSON) _kinesisAnalyticsV2ApplicationPropertyGroupPropertyMap     ] -instance FromJSON KinesisAnalyticsV2ApplicationPropertyGroup where-  parseJSON (Object obj) =-    KinesisAnalyticsV2ApplicationPropertyGroup <$>-      (obj .:? "PropertyGroupId") <*>-      (obj .:? "PropertyMap")-  parseJSON _ = mempty- -- | Constructor for 'KinesisAnalyticsV2ApplicationPropertyGroup' containing -- required fields as arguments. kinesisAnalyticsV2ApplicationPropertyGroup
library-gen/Stratosphere/ResourceProperties/KinesisAnalyticsV2ApplicationRecordColumn.hs view
@@ -28,14 +28,6 @@     , (Just . ("SqlType",) . toJSON) _kinesisAnalyticsV2ApplicationRecordColumnSqlType     ] -instance FromJSON KinesisAnalyticsV2ApplicationRecordColumn where-  parseJSON (Object obj) =-    KinesisAnalyticsV2ApplicationRecordColumn <$>-      (obj .:? "Mapping") <*>-      (obj .: "Name") <*>-      (obj .: "SqlType")-  parseJSON _ = mempty- -- | Constructor for 'KinesisAnalyticsV2ApplicationRecordColumn' containing -- required fields as arguments. kinesisAnalyticsV2ApplicationRecordColumn
library-gen/Stratosphere/ResourceProperties/KinesisAnalyticsV2ApplicationRecordFormat.hs view
@@ -26,13 +26,6 @@     , (Just . ("RecordFormatType",) . toJSON) _kinesisAnalyticsV2ApplicationRecordFormatRecordFormatType     ] -instance FromJSON KinesisAnalyticsV2ApplicationRecordFormat where-  parseJSON (Object obj) =-    KinesisAnalyticsV2ApplicationRecordFormat <$>-      (obj .:? "MappingParameters") <*>-      (obj .: "RecordFormatType")-  parseJSON _ = mempty- -- | Constructor for 'KinesisAnalyticsV2ApplicationRecordFormat' containing -- required fields as arguments. kinesisAnalyticsV2ApplicationRecordFormat
library-gen/Stratosphere/ResourceProperties/KinesisAnalyticsV2ApplicationReferenceDataSourceCSVMappingParameters.hs view
@@ -27,13 +27,6 @@     , (Just . ("RecordRowDelimiter",) . toJSON) _kinesisAnalyticsV2ApplicationReferenceDataSourceCSVMappingParametersRecordRowDelimiter     ] -instance FromJSON KinesisAnalyticsV2ApplicationReferenceDataSourceCSVMappingParameters where-  parseJSON (Object obj) =-    KinesisAnalyticsV2ApplicationReferenceDataSourceCSVMappingParameters <$>-      (obj .: "RecordColumnDelimiter") <*>-      (obj .: "RecordRowDelimiter")-  parseJSON _ = mempty- -- | Constructor for -- 'KinesisAnalyticsV2ApplicationReferenceDataSourceCSVMappingParameters' -- containing required fields as arguments.
library-gen/Stratosphere/ResourceProperties/KinesisAnalyticsV2ApplicationReferenceDataSourceJSONMappingParameters.hs view
@@ -26,12 +26,6 @@     [ (Just . ("RecordRowPath",) . toJSON) _kinesisAnalyticsV2ApplicationReferenceDataSourceJSONMappingParametersRecordRowPath     ] -instance FromJSON KinesisAnalyticsV2ApplicationReferenceDataSourceJSONMappingParameters where-  parseJSON (Object obj) =-    KinesisAnalyticsV2ApplicationReferenceDataSourceJSONMappingParameters <$>-      (obj .: "RecordRowPath")-  parseJSON _ = mempty- -- | Constructor for -- 'KinesisAnalyticsV2ApplicationReferenceDataSourceJSONMappingParameters' -- containing required fields as arguments.
library-gen/Stratosphere/ResourceProperties/KinesisAnalyticsV2ApplicationReferenceDataSourceMappingParameters.hs view
@@ -28,13 +28,6 @@     , fmap (("JSONMappingParameters",) . toJSON) _kinesisAnalyticsV2ApplicationReferenceDataSourceMappingParametersJSONMappingParameters     ] -instance FromJSON KinesisAnalyticsV2ApplicationReferenceDataSourceMappingParameters where-  parseJSON (Object obj) =-    KinesisAnalyticsV2ApplicationReferenceDataSourceMappingParameters <$>-      (obj .:? "CSVMappingParameters") <*>-      (obj .:? "JSONMappingParameters")-  parseJSON _ = mempty- -- | Constructor for -- 'KinesisAnalyticsV2ApplicationReferenceDataSourceMappingParameters' -- containing required fields as arguments.
library-gen/Stratosphere/ResourceProperties/KinesisAnalyticsV2ApplicationReferenceDataSourceRecordColumn.hs view
@@ -29,14 +29,6 @@     , (Just . ("SqlType",) . toJSON) _kinesisAnalyticsV2ApplicationReferenceDataSourceRecordColumnSqlType     ] -instance FromJSON KinesisAnalyticsV2ApplicationReferenceDataSourceRecordColumn where-  parseJSON (Object obj) =-    KinesisAnalyticsV2ApplicationReferenceDataSourceRecordColumn <$>-      (obj .:? "Mapping") <*>-      (obj .: "Name") <*>-      (obj .: "SqlType")-  parseJSON _ = mempty- -- | Constructor for -- 'KinesisAnalyticsV2ApplicationReferenceDataSourceRecordColumn' containing -- required fields as arguments.
library-gen/Stratosphere/ResourceProperties/KinesisAnalyticsV2ApplicationReferenceDataSourceRecordFormat.hs view
@@ -27,13 +27,6 @@     , (Just . ("RecordFormatType",) . toJSON) _kinesisAnalyticsV2ApplicationReferenceDataSourceRecordFormatRecordFormatType     ] -instance FromJSON KinesisAnalyticsV2ApplicationReferenceDataSourceRecordFormat where-  parseJSON (Object obj) =-    KinesisAnalyticsV2ApplicationReferenceDataSourceRecordFormat <$>-      (obj .:? "MappingParameters") <*>-      (obj .: "RecordFormatType")-  parseJSON _ = mempty- -- | Constructor for -- 'KinesisAnalyticsV2ApplicationReferenceDataSourceRecordFormat' containing -- required fields as arguments.
library-gen/Stratosphere/ResourceProperties/KinesisAnalyticsV2ApplicationReferenceDataSourceReferenceDataSource.hs view
@@ -30,14 +30,6 @@     , fmap (("TableName",) . toJSON) _kinesisAnalyticsV2ApplicationReferenceDataSourceReferenceDataSourceTableName     ] -instance FromJSON KinesisAnalyticsV2ApplicationReferenceDataSourceReferenceDataSource where-  parseJSON (Object obj) =-    KinesisAnalyticsV2ApplicationReferenceDataSourceReferenceDataSource <$>-      (obj .: "ReferenceSchema") <*>-      (obj .:? "S3ReferenceDataSource") <*>-      (obj .:? "TableName")-  parseJSON _ = mempty- -- | Constructor for -- 'KinesisAnalyticsV2ApplicationReferenceDataSourceReferenceDataSource' -- containing required fields as arguments.
library-gen/Stratosphere/ResourceProperties/KinesisAnalyticsV2ApplicationReferenceDataSourceReferenceSchema.hs view
@@ -30,14 +30,6 @@     , (Just . ("RecordFormat",) . toJSON) _kinesisAnalyticsV2ApplicationReferenceDataSourceReferenceSchemaRecordFormat     ] -instance FromJSON KinesisAnalyticsV2ApplicationReferenceDataSourceReferenceSchema where-  parseJSON (Object obj) =-    KinesisAnalyticsV2ApplicationReferenceDataSourceReferenceSchema <$>-      (obj .: "RecordColumns") <*>-      (obj .:? "RecordEncoding") <*>-      (obj .: "RecordFormat")-  parseJSON _ = mempty- -- | Constructor for -- 'KinesisAnalyticsV2ApplicationReferenceDataSourceReferenceSchema' -- containing required fields as arguments.
library-gen/Stratosphere/ResourceProperties/KinesisAnalyticsV2ApplicationReferenceDataSourceS3ReferenceDataSource.hs view
@@ -28,13 +28,6 @@     , (Just . ("FileKey",) . toJSON) _kinesisAnalyticsV2ApplicationReferenceDataSourceS3ReferenceDataSourceFileKey     ] -instance FromJSON KinesisAnalyticsV2ApplicationReferenceDataSourceS3ReferenceDataSource where-  parseJSON (Object obj) =-    KinesisAnalyticsV2ApplicationReferenceDataSourceS3ReferenceDataSource <$>-      (obj .: "BucketARN") <*>-      (obj .: "FileKey")-  parseJSON _ = mempty- -- | Constructor for -- 'KinesisAnalyticsV2ApplicationReferenceDataSourceS3ReferenceDataSource' -- containing required fields as arguments.
library-gen/Stratosphere/ResourceProperties/KinesisAnalyticsV2ApplicationS3ContentLocation.hs view
@@ -29,14 +29,6 @@     , fmap (("ObjectVersion",) . toJSON) _kinesisAnalyticsV2ApplicationS3ContentLocationObjectVersion     ] -instance FromJSON KinesisAnalyticsV2ApplicationS3ContentLocation where-  parseJSON (Object obj) =-    KinesisAnalyticsV2ApplicationS3ContentLocation <$>-      (obj .:? "BucketARN") <*>-      (obj .:? "FileKey") <*>-      (obj .:? "ObjectVersion")-  parseJSON _ = mempty- -- | Constructor for 'KinesisAnalyticsV2ApplicationS3ContentLocation' -- containing required fields as arguments. kinesisAnalyticsV2ApplicationS3ContentLocation
library-gen/Stratosphere/ResourceProperties/KinesisAnalyticsV2ApplicationSqlApplicationConfiguration.hs view
@@ -25,12 +25,6 @@     [ fmap (("Inputs",) . toJSON) _kinesisAnalyticsV2ApplicationSqlApplicationConfigurationInputs     ] -instance FromJSON KinesisAnalyticsV2ApplicationSqlApplicationConfiguration where-  parseJSON (Object obj) =-    KinesisAnalyticsV2ApplicationSqlApplicationConfiguration <$>-      (obj .:? "Inputs")-  parseJSON _ = mempty- -- | Constructor for -- 'KinesisAnalyticsV2ApplicationSqlApplicationConfiguration' containing -- required fields as arguments.
library-gen/Stratosphere/ResourceProperties/KinesisFirehoseDeliveryStreamBufferingHints.hs view
@@ -27,13 +27,6 @@     , (Just . ("SizeInMBs",) . toJSON . fmap Integer') _kinesisFirehoseDeliveryStreamBufferingHintsSizeInMBs     ] -instance FromJSON KinesisFirehoseDeliveryStreamBufferingHints where-  parseJSON (Object obj) =-    KinesisFirehoseDeliveryStreamBufferingHints <$>-      fmap (fmap unInteger') (obj .: "IntervalInSeconds") <*>-      fmap (fmap unInteger') (obj .: "SizeInMBs")-  parseJSON _ = mempty- -- | Constructor for 'KinesisFirehoseDeliveryStreamBufferingHints' containing -- required fields as arguments. kinesisFirehoseDeliveryStreamBufferingHints
library-gen/Stratosphere/ResourceProperties/KinesisFirehoseDeliveryStreamCloudWatchLoggingOptions.hs view
@@ -29,14 +29,6 @@     , fmap (("LogStreamName",) . toJSON) _kinesisFirehoseDeliveryStreamCloudWatchLoggingOptionsLogStreamName     ] -instance FromJSON KinesisFirehoseDeliveryStreamCloudWatchLoggingOptions where-  parseJSON (Object obj) =-    KinesisFirehoseDeliveryStreamCloudWatchLoggingOptions <$>-      fmap (fmap (fmap unBool')) (obj .:? "Enabled") <*>-      (obj .:? "LogGroupName") <*>-      (obj .:? "LogStreamName")-  parseJSON _ = mempty- -- | Constructor for 'KinesisFirehoseDeliveryStreamCloudWatchLoggingOptions' -- containing required fields as arguments. kinesisFirehoseDeliveryStreamCloudWatchLoggingOptions
library-gen/Stratosphere/ResourceProperties/KinesisFirehoseDeliveryStreamCopyCommand.hs view
@@ -28,14 +28,6 @@     , (Just . ("DataTableName",) . toJSON) _kinesisFirehoseDeliveryStreamCopyCommandDataTableName     ] -instance FromJSON KinesisFirehoseDeliveryStreamCopyCommand where-  parseJSON (Object obj) =-    KinesisFirehoseDeliveryStreamCopyCommand <$>-      (obj .:? "CopyOptions") <*>-      (obj .:? "DataTableColumns") <*>-      (obj .: "DataTableName")-  parseJSON _ = mempty- -- | Constructor for 'KinesisFirehoseDeliveryStreamCopyCommand' containing -- required fields as arguments. kinesisFirehoseDeliveryStreamCopyCommand
library-gen/Stratosphere/ResourceProperties/KinesisFirehoseDeliveryStreamElasticsearchBufferingHints.hs view
@@ -27,13 +27,6 @@     , (Just . ("SizeInMBs",) . toJSON . fmap Integer') _kinesisFirehoseDeliveryStreamElasticsearchBufferingHintsSizeInMBs     ] -instance FromJSON KinesisFirehoseDeliveryStreamElasticsearchBufferingHints where-  parseJSON (Object obj) =-    KinesisFirehoseDeliveryStreamElasticsearchBufferingHints <$>-      fmap (fmap unInteger') (obj .: "IntervalInSeconds") <*>-      fmap (fmap unInteger') (obj .: "SizeInMBs")-  parseJSON _ = mempty- -- | Constructor for -- 'KinesisFirehoseDeliveryStreamElasticsearchBufferingHints' containing -- required fields as arguments.
library-gen/Stratosphere/ResourceProperties/KinesisFirehoseDeliveryStreamElasticsearchDestinationConfiguration.hs view
@@ -50,22 +50,6 @@     , (Just . ("TypeName",) . toJSON) _kinesisFirehoseDeliveryStreamElasticsearchDestinationConfigurationTypeName     ] -instance FromJSON KinesisFirehoseDeliveryStreamElasticsearchDestinationConfiguration where-  parseJSON (Object obj) =-    KinesisFirehoseDeliveryStreamElasticsearchDestinationConfiguration <$>-      (obj .: "BufferingHints") <*>-      (obj .:? "CloudWatchLoggingOptions") <*>-      (obj .: "DomainARN") <*>-      (obj .: "IndexName") <*>-      (obj .: "IndexRotationPeriod") <*>-      (obj .:? "ProcessingConfiguration") <*>-      (obj .: "RetryOptions") <*>-      (obj .: "RoleARN") <*>-      (obj .: "S3BackupMode") <*>-      (obj .: "S3Configuration") <*>-      (obj .: "TypeName")-  parseJSON _ = mempty- -- | Constructor for -- 'KinesisFirehoseDeliveryStreamElasticsearchDestinationConfiguration' -- containing required fields as arguments.
library-gen/Stratosphere/ResourceProperties/KinesisFirehoseDeliveryStreamElasticsearchRetryOptions.hs view
@@ -25,12 +25,6 @@     [ (Just . ("DurationInSeconds",) . toJSON . fmap Integer') _kinesisFirehoseDeliveryStreamElasticsearchRetryOptionsDurationInSeconds     ] -instance FromJSON KinesisFirehoseDeliveryStreamElasticsearchRetryOptions where-  parseJSON (Object obj) =-    KinesisFirehoseDeliveryStreamElasticsearchRetryOptions <$>-      fmap (fmap unInteger') (obj .: "DurationInSeconds")-  parseJSON _ = mempty- -- | Constructor for 'KinesisFirehoseDeliveryStreamElasticsearchRetryOptions' -- containing required fields as arguments. kinesisFirehoseDeliveryStreamElasticsearchRetryOptions
library-gen/Stratosphere/ResourceProperties/KinesisFirehoseDeliveryStreamEncryptionConfiguration.hs view
@@ -28,13 +28,6 @@     , fmap (("NoEncryptionConfig",) . toJSON) _kinesisFirehoseDeliveryStreamEncryptionConfigurationNoEncryptionConfig     ] -instance FromJSON KinesisFirehoseDeliveryStreamEncryptionConfiguration where-  parseJSON (Object obj) =-    KinesisFirehoseDeliveryStreamEncryptionConfiguration <$>-      (obj .:? "KMSEncryptionConfig") <*>-      (obj .:? "NoEncryptionConfig")-  parseJSON _ = mempty- -- | Constructor for 'KinesisFirehoseDeliveryStreamEncryptionConfiguration' -- containing required fields as arguments. kinesisFirehoseDeliveryStreamEncryptionConfiguration
library-gen/Stratosphere/ResourceProperties/KinesisFirehoseDeliveryStreamExtendedS3DestinationConfiguration.hs view
@@ -47,21 +47,6 @@     , fmap (("S3BackupMode",) . toJSON) _kinesisFirehoseDeliveryStreamExtendedS3DestinationConfigurationS3BackupMode     ] -instance FromJSON KinesisFirehoseDeliveryStreamExtendedS3DestinationConfiguration where-  parseJSON (Object obj) =-    KinesisFirehoseDeliveryStreamExtendedS3DestinationConfiguration <$>-      (obj .: "BucketARN") <*>-      (obj .: "BufferingHints") <*>-      (obj .:? "CloudWatchLoggingOptions") <*>-      (obj .: "CompressionFormat") <*>-      (obj .:? "EncryptionConfiguration") <*>-      (obj .: "Prefix") <*>-      (obj .:? "ProcessingConfiguration") <*>-      (obj .: "RoleARN") <*>-      (obj .:? "S3BackupConfiguration") <*>-      (obj .:? "S3BackupMode")-  parseJSON _ = mempty- -- | Constructor for -- 'KinesisFirehoseDeliveryStreamExtendedS3DestinationConfiguration' -- containing required fields as arguments.
library-gen/Stratosphere/ResourceProperties/KinesisFirehoseDeliveryStreamKMSEncryptionConfig.hs view
@@ -25,12 +25,6 @@     [ (Just . ("AWSKMSKeyARN",) . toJSON) _kinesisFirehoseDeliveryStreamKMSEncryptionConfigAWSKMSKeyARN     ] -instance FromJSON KinesisFirehoseDeliveryStreamKMSEncryptionConfig where-  parseJSON (Object obj) =-    KinesisFirehoseDeliveryStreamKMSEncryptionConfig <$>-      (obj .: "AWSKMSKeyARN")-  parseJSON _ = mempty- -- | Constructor for 'KinesisFirehoseDeliveryStreamKMSEncryptionConfig' -- containing required fields as arguments. kinesisFirehoseDeliveryStreamKMSEncryptionConfig
library-gen/Stratosphere/ResourceProperties/KinesisFirehoseDeliveryStreamKinesisStreamSourceConfiguration.hs view
@@ -27,13 +27,6 @@     , (Just . ("RoleARN",) . toJSON) _kinesisFirehoseDeliveryStreamKinesisStreamSourceConfigurationRoleARN     ] -instance FromJSON KinesisFirehoseDeliveryStreamKinesisStreamSourceConfiguration where-  parseJSON (Object obj) =-    KinesisFirehoseDeliveryStreamKinesisStreamSourceConfiguration <$>-      (obj .: "KinesisStreamARN") <*>-      (obj .: "RoleARN")-  parseJSON _ = mempty- -- | Constructor for -- 'KinesisFirehoseDeliveryStreamKinesisStreamSourceConfiguration' -- containing required fields as arguments.
library-gen/Stratosphere/ResourceProperties/KinesisFirehoseDeliveryStreamProcessingConfiguration.hs view
@@ -27,13 +27,6 @@     , fmap (("Processors",) . toJSON) _kinesisFirehoseDeliveryStreamProcessingConfigurationProcessors     ] -instance FromJSON KinesisFirehoseDeliveryStreamProcessingConfiguration where-  parseJSON (Object obj) =-    KinesisFirehoseDeliveryStreamProcessingConfiguration <$>-      fmap (fmap (fmap unBool')) (obj .:? "Enabled") <*>-      (obj .:? "Processors")-  parseJSON _ = mempty- -- | Constructor for 'KinesisFirehoseDeliveryStreamProcessingConfiguration' -- containing required fields as arguments. kinesisFirehoseDeliveryStreamProcessingConfiguration
library-gen/Stratosphere/ResourceProperties/KinesisFirehoseDeliveryStreamProcessor.hs view
@@ -26,13 +26,6 @@     , (Just . ("Type",) . toJSON) _kinesisFirehoseDeliveryStreamProcessorType     ] -instance FromJSON KinesisFirehoseDeliveryStreamProcessor where-  parseJSON (Object obj) =-    KinesisFirehoseDeliveryStreamProcessor <$>-      (obj .: "Parameters") <*>-      (obj .: "Type")-  parseJSON _ = mempty- -- | Constructor for 'KinesisFirehoseDeliveryStreamProcessor' containing -- required fields as arguments. kinesisFirehoseDeliveryStreamProcessor
library-gen/Stratosphere/ResourceProperties/KinesisFirehoseDeliveryStreamProcessorParameter.hs view
@@ -27,13 +27,6 @@     , (Just . ("ParameterValue",) . toJSON) _kinesisFirehoseDeliveryStreamProcessorParameterParameterValue     ] -instance FromJSON KinesisFirehoseDeliveryStreamProcessorParameter where-  parseJSON (Object obj) =-    KinesisFirehoseDeliveryStreamProcessorParameter <$>-      (obj .: "ParameterName") <*>-      (obj .: "ParameterValue")-  parseJSON _ = mempty- -- | Constructor for 'KinesisFirehoseDeliveryStreamProcessorParameter' -- containing required fields as arguments. kinesisFirehoseDeliveryStreamProcessorParameter
library-gen/Stratosphere/ResourceProperties/KinesisFirehoseDeliveryStreamRedshiftDestinationConfiguration.hs view
@@ -42,19 +42,6 @@     , (Just . ("Username",) . toJSON) _kinesisFirehoseDeliveryStreamRedshiftDestinationConfigurationUsername     ] -instance FromJSON KinesisFirehoseDeliveryStreamRedshiftDestinationConfiguration where-  parseJSON (Object obj) =-    KinesisFirehoseDeliveryStreamRedshiftDestinationConfiguration <$>-      (obj .:? "CloudWatchLoggingOptions") <*>-      (obj .: "ClusterJDBCURL") <*>-      (obj .: "CopyCommand") <*>-      (obj .: "Password") <*>-      (obj .:? "ProcessingConfiguration") <*>-      (obj .: "RoleARN") <*>-      (obj .: "S3Configuration") <*>-      (obj .: "Username")-  parseJSON _ = mempty- -- | Constructor for -- 'KinesisFirehoseDeliveryStreamRedshiftDestinationConfiguration' -- containing required fields as arguments.
library-gen/Stratosphere/ResourceProperties/KinesisFirehoseDeliveryStreamS3DestinationConfiguration.hs view
@@ -40,18 +40,6 @@     , (Just . ("RoleARN",) . toJSON) _kinesisFirehoseDeliveryStreamS3DestinationConfigurationRoleARN     ] -instance FromJSON KinesisFirehoseDeliveryStreamS3DestinationConfiguration where-  parseJSON (Object obj) =-    KinesisFirehoseDeliveryStreamS3DestinationConfiguration <$>-      (obj .: "BucketARN") <*>-      (obj .: "BufferingHints") <*>-      (obj .:? "CloudWatchLoggingOptions") <*>-      (obj .: "CompressionFormat") <*>-      (obj .:? "EncryptionConfiguration") <*>-      (obj .:? "Prefix") <*>-      (obj .: "RoleARN")-  parseJSON _ = mempty- -- | Constructor for 'KinesisFirehoseDeliveryStreamS3DestinationConfiguration' -- containing required fields as arguments. kinesisFirehoseDeliveryStreamS3DestinationConfiguration
library-gen/Stratosphere/ResourceProperties/KinesisFirehoseDeliveryStreamSplunkDestinationConfiguration.hs view
@@ -44,20 +44,6 @@     , (Just . ("S3Configuration",) . toJSON) _kinesisFirehoseDeliveryStreamSplunkDestinationConfigurationS3Configuration     ] -instance FromJSON KinesisFirehoseDeliveryStreamSplunkDestinationConfiguration where-  parseJSON (Object obj) =-    KinesisFirehoseDeliveryStreamSplunkDestinationConfiguration <$>-      (obj .:? "CloudWatchLoggingOptions") <*>-      fmap (fmap (fmap unInteger')) (obj .:? "HECAcknowledgmentTimeoutInSeconds") <*>-      (obj .: "HECEndpoint") <*>-      (obj .: "HECEndpointType") <*>-      (obj .: "HECToken") <*>-      (obj .:? "ProcessingConfiguration") <*>-      (obj .:? "RetryOptions") <*>-      (obj .:? "S3BackupMode") <*>-      (obj .: "S3Configuration")-  parseJSON _ = mempty- -- | Constructor for -- 'KinesisFirehoseDeliveryStreamSplunkDestinationConfiguration' containing -- required fields as arguments.
library-gen/Stratosphere/ResourceProperties/KinesisFirehoseDeliveryStreamSplunkRetryOptions.hs view
@@ -25,12 +25,6 @@     [ (Just . ("DurationInSeconds",) . toJSON . fmap Integer') _kinesisFirehoseDeliveryStreamSplunkRetryOptionsDurationInSeconds     ] -instance FromJSON KinesisFirehoseDeliveryStreamSplunkRetryOptions where-  parseJSON (Object obj) =-    KinesisFirehoseDeliveryStreamSplunkRetryOptions <$>-      fmap (fmap unInteger') (obj .: "DurationInSeconds")-  parseJSON _ = mempty- -- | Constructor for 'KinesisFirehoseDeliveryStreamSplunkRetryOptions' -- containing required fields as arguments. kinesisFirehoseDeliveryStreamSplunkRetryOptions
library-gen/Stratosphere/ResourceProperties/KinesisStreamStreamEncryption.hs view
@@ -25,13 +25,6 @@     , (Just . ("KeyId",) . toJSON) _kinesisStreamStreamEncryptionKeyId     ] -instance FromJSON KinesisStreamStreamEncryption where-  parseJSON (Object obj) =-    KinesisStreamStreamEncryption <$>-      (obj .: "EncryptionType") <*>-      (obj .: "KeyId")-  parseJSON _ = mempty- -- | Constructor for 'KinesisStreamStreamEncryption' containing required -- fields as arguments. kinesisStreamStreamEncryption
library-gen/Stratosphere/ResourceProperties/LambdaAliasAliasRoutingConfiguration.hs view
@@ -23,12 +23,6 @@     [ (Just . ("AdditionalVersionWeights",) . toJSON) _lambdaAliasAliasRoutingConfigurationAdditionalVersionWeights     ] -instance FromJSON LambdaAliasAliasRoutingConfiguration where-  parseJSON (Object obj) =-    LambdaAliasAliasRoutingConfiguration <$>-      (obj .: "AdditionalVersionWeights")-  parseJSON _ = mempty- -- | Constructor for 'LambdaAliasAliasRoutingConfiguration' containing -- required fields as arguments. lambdaAliasAliasRoutingConfiguration
library-gen/Stratosphere/ResourceProperties/LambdaAliasVersionWeight.hs view
@@ -25,13 +25,6 @@     , (Just . ("FunctionWeight",) . toJSON . fmap Double') _lambdaAliasVersionWeightFunctionWeight     ] -instance FromJSON LambdaAliasVersionWeight where-  parseJSON (Object obj) =-    LambdaAliasVersionWeight <$>-      (obj .: "FunctionVersion") <*>-      fmap (fmap unDouble') (obj .: "FunctionWeight")-  parseJSON _ = mempty- -- | Constructor for 'LambdaAliasVersionWeight' containing required fields as -- arguments. lambdaAliasVersionWeight
library-gen/Stratosphere/ResourceProperties/LambdaFunctionCode.hs view
@@ -29,15 +29,6 @@     , fmap (("ZipFile",) . toJSON) _lambdaFunctionCodeZipFile     ] -instance FromJSON LambdaFunctionCode where-  parseJSON (Object obj) =-    LambdaFunctionCode <$>-      (obj .:? "S3Bucket") <*>-      (obj .:? "S3Key") <*>-      (obj .:? "S3ObjectVersion") <*>-      (obj .:? "ZipFile")-  parseJSON _ = mempty- -- | Constructor for 'LambdaFunctionCode' containing required fields as -- arguments. lambdaFunctionCode
library-gen/Stratosphere/ResourceProperties/LambdaFunctionDeadLetterConfig.hs view
@@ -23,12 +23,6 @@     [ fmap (("TargetArn",) . toJSON) _lambdaFunctionDeadLetterConfigTargetArn     ] -instance FromJSON LambdaFunctionDeadLetterConfig where-  parseJSON (Object obj) =-    LambdaFunctionDeadLetterConfig <$>-      (obj .:? "TargetArn")-  parseJSON _ = mempty- -- | Constructor for 'LambdaFunctionDeadLetterConfig' containing required -- fields as arguments. lambdaFunctionDeadLetterConfig
library-gen/Stratosphere/ResourceProperties/LambdaFunctionEnvironment.hs view
@@ -23,12 +23,6 @@     [ fmap (("Variables",) . toJSON) _lambdaFunctionEnvironmentVariables     ] -instance FromJSON LambdaFunctionEnvironment where-  parseJSON (Object obj) =-    LambdaFunctionEnvironment <$>-      (obj .:? "Variables")-  parseJSON _ = mempty- -- | Constructor for 'LambdaFunctionEnvironment' containing required fields as -- arguments. lambdaFunctionEnvironment
library-gen/Stratosphere/ResourceProperties/LambdaFunctionTracingConfig.hs view
@@ -23,12 +23,6 @@     [ fmap (("Mode",) . toJSON) _lambdaFunctionTracingConfigMode     ] -instance FromJSON LambdaFunctionTracingConfig where-  parseJSON (Object obj) =-    LambdaFunctionTracingConfig <$>-      (obj .:? "Mode")-  parseJSON _ = mempty- -- | Constructor for 'LambdaFunctionTracingConfig' containing required fields -- as arguments. lambdaFunctionTracingConfig
library-gen/Stratosphere/ResourceProperties/LambdaFunctionVpcConfig.hs view
@@ -25,13 +25,6 @@     , (Just . ("SubnetIds",) . toJSON) _lambdaFunctionVpcConfigSubnetIds     ] -instance FromJSON LambdaFunctionVpcConfig where-  parseJSON (Object obj) =-    LambdaFunctionVpcConfig <$>-      (obj .: "SecurityGroupIds") <*>-      (obj .: "SubnetIds")-  parseJSON _ = mempty- -- | Constructor for 'LambdaFunctionVpcConfig' containing required fields as -- arguments. lambdaFunctionVpcConfig
library-gen/Stratosphere/ResourceProperties/LambdaLayerVersionContent.hs view
@@ -27,14 +27,6 @@     , fmap (("S3ObjectVersion",) . toJSON) _lambdaLayerVersionContentS3ObjectVersion     ] -instance FromJSON LambdaLayerVersionContent where-  parseJSON (Object obj) =-    LambdaLayerVersionContent <$>-      (obj .: "S3Bucket") <*>-      (obj .: "S3Key") <*>-      (obj .:? "S3ObjectVersion")-  parseJSON _ = mempty- -- | Constructor for 'LambdaLayerVersionContent' containing required fields as -- arguments. lambdaLayerVersionContent
library-gen/Stratosphere/ResourceProperties/LogsMetricFilterMetricTransformation.hs view
@@ -29,15 +29,6 @@     , (Just . ("MetricValue",) . toJSON) _logsMetricFilterMetricTransformationMetricValue     ] -instance FromJSON LogsMetricFilterMetricTransformation where-  parseJSON (Object obj) =-    LogsMetricFilterMetricTransformation <$>-      fmap (fmap (fmap unDouble')) (obj .:? "DefaultValue") <*>-      (obj .: "MetricName") <*>-      (obj .: "MetricNamespace") <*>-      (obj .: "MetricValue")-  parseJSON _ = mempty- -- | Constructor for 'LogsMetricFilterMetricTransformation' containing -- required fields as arguments. logsMetricFilterMetricTransformation
library-gen/Stratosphere/ResourceProperties/OpsWorksAppDataSource.hs view
@@ -27,14 +27,6 @@     , fmap (("Type",) . toJSON) _opsWorksAppDataSourceType     ] -instance FromJSON OpsWorksAppDataSource where-  parseJSON (Object obj) =-    OpsWorksAppDataSource <$>-      (obj .:? "Arn") <*>-      (obj .:? "DatabaseName") <*>-      (obj .:? "Type")-  parseJSON _ = mempty- -- | Constructor for 'OpsWorksAppDataSource' containing required fields as -- arguments. opsWorksAppDataSource
library-gen/Stratosphere/ResourceProperties/OpsWorksAppEnvironmentVariable.hs view
@@ -27,14 +27,6 @@     , (Just . ("Value",) . toJSON) _opsWorksAppEnvironmentVariableValue     ] -instance FromJSON OpsWorksAppEnvironmentVariable where-  parseJSON (Object obj) =-    OpsWorksAppEnvironmentVariable <$>-      (obj .: "Key") <*>-      fmap (fmap (fmap unBool')) (obj .:? "Secure") <*>-      (obj .: "Value")-  parseJSON _ = mempty- -- | Constructor for 'OpsWorksAppEnvironmentVariable' containing required -- fields as arguments. opsWorksAppEnvironmentVariable
library-gen/Stratosphere/ResourceProperties/OpsWorksAppSource.hs view
@@ -33,17 +33,6 @@     , fmap (("Username",) . toJSON) _opsWorksAppSourceUsername     ] -instance FromJSON OpsWorksAppSource where-  parseJSON (Object obj) =-    OpsWorksAppSource <$>-      (obj .:? "Password") <*>-      (obj .:? "Revision") <*>-      (obj .:? "SshKey") <*>-      (obj .:? "Type") <*>-      (obj .:? "Url") <*>-      (obj .:? "Username")-  parseJSON _ = mempty- -- | Constructor for 'OpsWorksAppSource' containing required fields as -- arguments. opsWorksAppSource
library-gen/Stratosphere/ResourceProperties/OpsWorksAppSslConfiguration.hs view
@@ -27,14 +27,6 @@     , fmap (("PrivateKey",) . toJSON) _opsWorksAppSslConfigurationPrivateKey     ] -instance FromJSON OpsWorksAppSslConfiguration where-  parseJSON (Object obj) =-    OpsWorksAppSslConfiguration <$>-      (obj .:? "Certificate") <*>-      (obj .:? "Chain") <*>-      (obj .:? "PrivateKey")-  parseJSON _ = mempty- -- | Constructor for 'OpsWorksAppSslConfiguration' containing required fields -- as arguments. opsWorksAppSslConfiguration
library-gen/Stratosphere/ResourceProperties/OpsWorksCMServerEngineAttribute.hs view
@@ -25,13 +25,6 @@     , fmap (("Value",) . toJSON) _opsWorksCMServerEngineAttributeValue     ] -instance FromJSON OpsWorksCMServerEngineAttribute where-  parseJSON (Object obj) =-    OpsWorksCMServerEngineAttribute <$>-      (obj .:? "Name") <*>-      (obj .:? "Value")-  parseJSON _ = mempty- -- | Constructor for 'OpsWorksCMServerEngineAttribute' containing required -- fields as arguments. opsWorksCMServerEngineAttribute
library-gen/Stratosphere/ResourceProperties/OpsWorksInstanceBlockDeviceMapping.hs view
@@ -29,15 +29,6 @@     , fmap (("VirtualName",) . toJSON) _opsWorksInstanceBlockDeviceMappingVirtualName     ] -instance FromJSON OpsWorksInstanceBlockDeviceMapping where-  parseJSON (Object obj) =-    OpsWorksInstanceBlockDeviceMapping <$>-      (obj .:? "DeviceName") <*>-      (obj .:? "Ebs") <*>-      (obj .:? "NoDevice") <*>-      (obj .:? "VirtualName")-  parseJSON _ = mempty- -- | Constructor for 'OpsWorksInstanceBlockDeviceMapping' containing required -- fields as arguments. opsWorksInstanceBlockDeviceMapping
library-gen/Stratosphere/ResourceProperties/OpsWorksInstanceEbsBlockDevice.hs view
@@ -31,16 +31,6 @@     , fmap (("VolumeType",) . toJSON) _opsWorksInstanceEbsBlockDeviceVolumeType     ] -instance FromJSON OpsWorksInstanceEbsBlockDevice where-  parseJSON (Object obj) =-    OpsWorksInstanceEbsBlockDevice <$>-      fmap (fmap (fmap unBool')) (obj .:? "DeleteOnTermination") <*>-      fmap (fmap (fmap unInteger')) (obj .:? "Iops") <*>-      (obj .:? "SnapshotId") <*>-      fmap (fmap (fmap unInteger')) (obj .:? "VolumeSize") <*>-      (obj .:? "VolumeType")-  parseJSON _ = mempty- -- | Constructor for 'OpsWorksInstanceEbsBlockDevice' containing required -- fields as arguments. opsWorksInstanceEbsBlockDevice
library-gen/Stratosphere/ResourceProperties/OpsWorksInstanceTimeBasedAutoScaling.hs view
@@ -35,18 +35,6 @@     , fmap (("Wednesday",) . toJSON) _opsWorksInstanceTimeBasedAutoScalingWednesday     ] -instance FromJSON OpsWorksInstanceTimeBasedAutoScaling where-  parseJSON (Object obj) =-    OpsWorksInstanceTimeBasedAutoScaling <$>-      (obj .:? "Friday") <*>-      (obj .:? "Monday") <*>-      (obj .:? "Saturday") <*>-      (obj .:? "Sunday") <*>-      (obj .:? "Thursday") <*>-      (obj .:? "Tuesday") <*>-      (obj .:? "Wednesday")-  parseJSON _ = mempty- -- | Constructor for 'OpsWorksInstanceTimeBasedAutoScaling' containing -- required fields as arguments. opsWorksInstanceTimeBasedAutoScaling
library-gen/Stratosphere/ResourceProperties/OpsWorksLayerAutoScalingThresholds.hs view
@@ -33,17 +33,6 @@     , fmap (("ThresholdsWaitTime",) . toJSON . fmap Integer') _opsWorksLayerAutoScalingThresholdsThresholdsWaitTime     ] -instance FromJSON OpsWorksLayerAutoScalingThresholds where-  parseJSON (Object obj) =-    OpsWorksLayerAutoScalingThresholds <$>-      fmap (fmap (fmap unDouble')) (obj .:? "CpuThreshold") <*>-      fmap (fmap (fmap unInteger')) (obj .:? "IgnoreMetricsTime") <*>-      fmap (fmap (fmap unInteger')) (obj .:? "InstanceCount") <*>-      fmap (fmap (fmap unDouble')) (obj .:? "LoadThreshold") <*>-      fmap (fmap (fmap unDouble')) (obj .:? "MemoryThreshold") <*>-      fmap (fmap (fmap unInteger')) (obj .:? "ThresholdsWaitTime")-  parseJSON _ = mempty- -- | Constructor for 'OpsWorksLayerAutoScalingThresholds' containing required -- fields as arguments. opsWorksLayerAutoScalingThresholds
library-gen/Stratosphere/ResourceProperties/OpsWorksLayerLifecycleEventConfiguration.hs view
@@ -24,12 +24,6 @@     [ fmap (("ShutdownEventConfiguration",) . toJSON) _opsWorksLayerLifecycleEventConfigurationShutdownEventConfiguration     ] -instance FromJSON OpsWorksLayerLifecycleEventConfiguration where-  parseJSON (Object obj) =-    OpsWorksLayerLifecycleEventConfiguration <$>-      (obj .:? "ShutdownEventConfiguration")-  parseJSON _ = mempty- -- | Constructor for 'OpsWorksLayerLifecycleEventConfiguration' containing -- required fields as arguments. opsWorksLayerLifecycleEventConfiguration
library-gen/Stratosphere/ResourceProperties/OpsWorksLayerLoadBasedAutoScaling.hs view
@@ -27,14 +27,6 @@     , fmap (("UpScaling",) . toJSON) _opsWorksLayerLoadBasedAutoScalingUpScaling     ] -instance FromJSON OpsWorksLayerLoadBasedAutoScaling where-  parseJSON (Object obj) =-    OpsWorksLayerLoadBasedAutoScaling <$>-      (obj .:? "DownScaling") <*>-      fmap (fmap (fmap unBool')) (obj .:? "Enable") <*>-      (obj .:? "UpScaling")-  parseJSON _ = mempty- -- | Constructor for 'OpsWorksLayerLoadBasedAutoScaling' containing required -- fields as arguments. opsWorksLayerLoadBasedAutoScaling
library-gen/Stratosphere/ResourceProperties/OpsWorksLayerRecipes.hs view
@@ -31,16 +31,6 @@     , fmap (("Undeploy",) . toJSON) _opsWorksLayerRecipesUndeploy     ] -instance FromJSON OpsWorksLayerRecipes where-  parseJSON (Object obj) =-    OpsWorksLayerRecipes <$>-      (obj .:? "Configure") <*>-      (obj .:? "Deploy") <*>-      (obj .:? "Setup") <*>-      (obj .:? "Shutdown") <*>-      (obj .:? "Undeploy")-  parseJSON _ = mempty- -- | Constructor for 'OpsWorksLayerRecipes' containing required fields as -- arguments. opsWorksLayerRecipes
library-gen/Stratosphere/ResourceProperties/OpsWorksLayerShutdownEventConfiguration.hs view
@@ -26,13 +26,6 @@     , fmap (("ExecutionTimeout",) . toJSON . fmap Integer') _opsWorksLayerShutdownEventConfigurationExecutionTimeout     ] -instance FromJSON OpsWorksLayerShutdownEventConfiguration where-  parseJSON (Object obj) =-    OpsWorksLayerShutdownEventConfiguration <$>-      fmap (fmap (fmap unBool')) (obj .:? "DelayUntilElbConnectionsDrained") <*>-      fmap (fmap (fmap unInteger')) (obj .:? "ExecutionTimeout")-  parseJSON _ = mempty- -- | Constructor for 'OpsWorksLayerShutdownEventConfiguration' containing -- required fields as arguments. opsWorksLayerShutdownEventConfiguration
library-gen/Stratosphere/ResourceProperties/OpsWorksLayerVolumeConfiguration.hs view
@@ -35,18 +35,6 @@     , fmap (("VolumeType",) . toJSON) _opsWorksLayerVolumeConfigurationVolumeType     ] -instance FromJSON OpsWorksLayerVolumeConfiguration where-  parseJSON (Object obj) =-    OpsWorksLayerVolumeConfiguration <$>-      fmap (fmap (fmap unBool')) (obj .:? "Encrypted") <*>-      fmap (fmap (fmap unInteger')) (obj .:? "Iops") <*>-      (obj .:? "MountPoint") <*>-      fmap (fmap (fmap unInteger')) (obj .:? "NumberOfDisks") <*>-      fmap (fmap (fmap unInteger')) (obj .:? "RaidLevel") <*>-      fmap (fmap (fmap unInteger')) (obj .:? "Size") <*>-      (obj .:? "VolumeType")-  parseJSON _ = mempty- -- | Constructor for 'OpsWorksLayerVolumeConfiguration' containing required -- fields as arguments. opsWorksLayerVolumeConfiguration
library-gen/Stratosphere/ResourceProperties/OpsWorksStackChefConfiguration.hs view
@@ -25,13 +25,6 @@     , fmap (("ManageBerkshelf",) . toJSON . fmap Bool') _opsWorksStackChefConfigurationManageBerkshelf     ] -instance FromJSON OpsWorksStackChefConfiguration where-  parseJSON (Object obj) =-    OpsWorksStackChefConfiguration <$>-      (obj .:? "BerkshelfVersion") <*>-      fmap (fmap (fmap unBool')) (obj .:? "ManageBerkshelf")-  parseJSON _ = mempty- -- | Constructor for 'OpsWorksStackChefConfiguration' containing required -- fields as arguments. opsWorksStackChefConfiguration
library-gen/Stratosphere/ResourceProperties/OpsWorksStackElasticIp.hs view
@@ -25,13 +25,6 @@     , fmap (("Name",) . toJSON) _opsWorksStackElasticIpName     ] -instance FromJSON OpsWorksStackElasticIp where-  parseJSON (Object obj) =-    OpsWorksStackElasticIp <$>-      (obj .: "Ip") <*>-      (obj .:? "Name")-  parseJSON _ = mempty- -- | Constructor for 'OpsWorksStackElasticIp' containing required fields as -- arguments. opsWorksStackElasticIp
library-gen/Stratosphere/ResourceProperties/OpsWorksStackRdsDbInstance.hs view
@@ -27,14 +27,6 @@     , (Just . ("RdsDbInstanceArn",) . toJSON) _opsWorksStackRdsDbInstanceRdsDbInstanceArn     ] -instance FromJSON OpsWorksStackRdsDbInstance where-  parseJSON (Object obj) =-    OpsWorksStackRdsDbInstance <$>-      (obj .: "DbPassword") <*>-      (obj .: "DbUser") <*>-      (obj .: "RdsDbInstanceArn")-  parseJSON _ = mempty- -- | Constructor for 'OpsWorksStackRdsDbInstance' containing required fields -- as arguments. opsWorksStackRdsDbInstance
library-gen/Stratosphere/ResourceProperties/OpsWorksStackSource.hs view
@@ -33,17 +33,6 @@     , fmap (("Username",) . toJSON) _opsWorksStackSourceUsername     ] -instance FromJSON OpsWorksStackSource where-  parseJSON (Object obj) =-    OpsWorksStackSource <$>-      (obj .:? "Password") <*>-      (obj .:? "Revision") <*>-      (obj .:? "SshKey") <*>-      (obj .:? "Type") <*>-      (obj .:? "Url") <*>-      (obj .:? "Username")-  parseJSON _ = mempty- -- | Constructor for 'OpsWorksStackSource' containing required fields as -- arguments. opsWorksStackSource
library-gen/Stratosphere/ResourceProperties/OpsWorksStackStackConfigurationManager.hs view
@@ -26,13 +26,6 @@     , fmap (("Version",) . toJSON) _opsWorksStackStackConfigurationManagerVersion     ] -instance FromJSON OpsWorksStackStackConfigurationManager where-  parseJSON (Object obj) =-    OpsWorksStackStackConfigurationManager <$>-      (obj .:? "Name") <*>-      (obj .:? "Version")-  parseJSON _ = mempty- -- | Constructor for 'OpsWorksStackStackConfigurationManager' containing -- required fields as arguments. opsWorksStackStackConfigurationManager
library-gen/Stratosphere/ResourceProperties/RDSDBClusterScalingConfiguration.hs view
@@ -29,15 +29,6 @@     , fmap (("SecondsUntilAutoPause",) . toJSON . fmap Integer') _rDSDBClusterScalingConfigurationSecondsUntilAutoPause     ] -instance FromJSON RDSDBClusterScalingConfiguration where-  parseJSON (Object obj) =-    RDSDBClusterScalingConfiguration <$>-      fmap (fmap (fmap unBool')) (obj .:? "AutoPause") <*>-      fmap (fmap (fmap unInteger')) (obj .:? "MaxCapacity") <*>-      fmap (fmap (fmap unInteger')) (obj .:? "MinCapacity") <*>-      fmap (fmap (fmap unInteger')) (obj .:? "SecondsUntilAutoPause")-  parseJSON _ = mempty- -- | Constructor for 'RDSDBClusterScalingConfiguration' containing required -- fields as arguments. rdsdbClusterScalingConfiguration
library-gen/Stratosphere/ResourceProperties/RDSDBInstanceProcessorFeature.hs view
@@ -25,13 +25,6 @@     , fmap (("Value",) . toJSON) _rDSDBInstanceProcessorFeatureValue     ] -instance FromJSON RDSDBInstanceProcessorFeature where-  parseJSON (Object obj) =-    RDSDBInstanceProcessorFeature <$>-      (obj .:? "Name") <*>-      (obj .:? "Value")-  parseJSON _ = mempty- -- | Constructor for 'RDSDBInstanceProcessorFeature' containing required -- fields as arguments. rdsdbInstanceProcessorFeature
library-gen/Stratosphere/ResourceProperties/RDSDBSecurityGroupIngressProperty.hs view
@@ -29,15 +29,6 @@     , fmap (("EC2SecurityGroupOwnerId",) . toJSON) _rDSDBSecurityGroupIngressPropertyEC2SecurityGroupOwnerId     ] -instance FromJSON RDSDBSecurityGroupIngressProperty where-  parseJSON (Object obj) =-    RDSDBSecurityGroupIngressProperty <$>-      (obj .:? "CIDRIP") <*>-      (obj .:? "EC2SecurityGroupId") <*>-      (obj .:? "EC2SecurityGroupName") <*>-      (obj .:? "EC2SecurityGroupOwnerId")-  parseJSON _ = mempty- -- | Constructor for 'RDSDBSecurityGroupIngressProperty' containing required -- fields as arguments. rdsdbSecurityGroupIngressProperty
library-gen/Stratosphere/ResourceProperties/RDSOptionGroupOptionConfiguration.hs view
@@ -33,17 +33,6 @@     , fmap (("VpcSecurityGroupMemberships",) . toJSON) _rDSOptionGroupOptionConfigurationVpcSecurityGroupMemberships     ] -instance FromJSON RDSOptionGroupOptionConfiguration where-  parseJSON (Object obj) =-    RDSOptionGroupOptionConfiguration <$>-      (obj .:? "DBSecurityGroupMemberships") <*>-      (obj .: "OptionName") <*>-      (obj .:? "OptionSettings") <*>-      (obj .:? "OptionVersion") <*>-      fmap (fmap (fmap unInteger')) (obj .:? "Port") <*>-      (obj .:? "VpcSecurityGroupMemberships")-  parseJSON _ = mempty- -- | Constructor for 'RDSOptionGroupOptionConfiguration' containing required -- fields as arguments. rdsOptionGroupOptionConfiguration
library-gen/Stratosphere/ResourceProperties/RDSOptionGroupOptionSetting.hs view
@@ -25,13 +25,6 @@     , fmap (("Value",) . toJSON) _rDSOptionGroupOptionSettingValue     ] -instance FromJSON RDSOptionGroupOptionSetting where-  parseJSON (Object obj) =-    RDSOptionGroupOptionSetting <$>-      (obj .:? "Name") <*>-      (obj .:? "Value")-  parseJSON _ = mempty- -- | Constructor for 'RDSOptionGroupOptionSetting' containing required fields -- as arguments. rdsOptionGroupOptionSetting
library-gen/Stratosphere/ResourceProperties/RedshiftClusterLoggingProperties.hs view
@@ -25,13 +25,6 @@     , fmap (("S3KeyPrefix",) . toJSON) _redshiftClusterLoggingPropertiesS3KeyPrefix     ] -instance FromJSON RedshiftClusterLoggingProperties where-  parseJSON (Object obj) =-    RedshiftClusterLoggingProperties <$>-      (obj .: "BucketName") <*>-      (obj .:? "S3KeyPrefix")-  parseJSON _ = mempty- -- | Constructor for 'RedshiftClusterLoggingProperties' containing required -- fields as arguments. redshiftClusterLoggingProperties
library-gen/Stratosphere/ResourceProperties/RedshiftClusterParameterGroupParameter.hs view
@@ -26,13 +26,6 @@     , (Just . ("ParameterValue",) . toJSON) _redshiftClusterParameterGroupParameterParameterValue     ] -instance FromJSON RedshiftClusterParameterGroupParameter where-  parseJSON (Object obj) =-    RedshiftClusterParameterGroupParameter <$>-      (obj .: "ParameterName") <*>-      (obj .: "ParameterValue")-  parseJSON _ = mempty- -- | Constructor for 'RedshiftClusterParameterGroupParameter' containing -- required fields as arguments. redshiftClusterParameterGroupParameter
library-gen/Stratosphere/ResourceProperties/RoboMakerRobotApplicationRobotSoftwareSuite.hs view
@@ -27,13 +27,6 @@     , (Just . ("Version",) . toJSON) _roboMakerRobotApplicationRobotSoftwareSuiteVersion     ] -instance FromJSON RoboMakerRobotApplicationRobotSoftwareSuite where-  parseJSON (Object obj) =-    RoboMakerRobotApplicationRobotSoftwareSuite <$>-      (obj .: "Name") <*>-      (obj .: "Version")-  parseJSON _ = mempty- -- | Constructor for 'RoboMakerRobotApplicationRobotSoftwareSuite' containing -- required fields as arguments. roboMakerRobotApplicationRobotSoftwareSuite
library-gen/Stratosphere/ResourceProperties/RoboMakerRobotApplicationSourceConfig.hs view
@@ -28,14 +28,6 @@     , (Just . ("S3Key",) . toJSON) _roboMakerRobotApplicationSourceConfigS3Key     ] -instance FromJSON RoboMakerRobotApplicationSourceConfig where-  parseJSON (Object obj) =-    RoboMakerRobotApplicationSourceConfig <$>-      (obj .: "Architecture") <*>-      (obj .: "S3Bucket") <*>-      (obj .: "S3Key")-  parseJSON _ = mempty- -- | Constructor for 'RoboMakerRobotApplicationSourceConfig' containing -- required fields as arguments. roboMakerRobotApplicationSourceConfig
library-gen/Stratosphere/ResourceProperties/RoboMakerSimulationApplicationRenderingEngine.hs view
@@ -27,13 +27,6 @@     , (Just . ("Version",) . toJSON) _roboMakerSimulationApplicationRenderingEngineVersion     ] -instance FromJSON RoboMakerSimulationApplicationRenderingEngine where-  parseJSON (Object obj) =-    RoboMakerSimulationApplicationRenderingEngine <$>-      (obj .: "Name") <*>-      (obj .: "Version")-  parseJSON _ = mempty- -- | Constructor for 'RoboMakerSimulationApplicationRenderingEngine' -- containing required fields as arguments. roboMakerSimulationApplicationRenderingEngine
library-gen/Stratosphere/ResourceProperties/RoboMakerSimulationApplicationRobotSoftwareSuite.hs view
@@ -27,13 +27,6 @@     , (Just . ("Version",) . toJSON) _roboMakerSimulationApplicationRobotSoftwareSuiteVersion     ] -instance FromJSON RoboMakerSimulationApplicationRobotSoftwareSuite where-  parseJSON (Object obj) =-    RoboMakerSimulationApplicationRobotSoftwareSuite <$>-      (obj .: "Name") <*>-      (obj .: "Version")-  parseJSON _ = mempty- -- | Constructor for 'RoboMakerSimulationApplicationRobotSoftwareSuite' -- containing required fields as arguments. roboMakerSimulationApplicationRobotSoftwareSuite
library-gen/Stratosphere/ResourceProperties/RoboMakerSimulationApplicationSimulationSoftwareSuite.hs view
@@ -27,13 +27,6 @@     , (Just . ("Version",) . toJSON) _roboMakerSimulationApplicationSimulationSoftwareSuiteVersion     ] -instance FromJSON RoboMakerSimulationApplicationSimulationSoftwareSuite where-  parseJSON (Object obj) =-    RoboMakerSimulationApplicationSimulationSoftwareSuite <$>-      (obj .: "Name") <*>-      (obj .: "Version")-  parseJSON _ = mempty- -- | Constructor for 'RoboMakerSimulationApplicationSimulationSoftwareSuite' -- containing required fields as arguments. roboMakerSimulationApplicationSimulationSoftwareSuite
library-gen/Stratosphere/ResourceProperties/RoboMakerSimulationApplicationSourceConfig.hs view
@@ -28,14 +28,6 @@     , (Just . ("S3Key",) . toJSON) _roboMakerSimulationApplicationSourceConfigS3Key     ] -instance FromJSON RoboMakerSimulationApplicationSourceConfig where-  parseJSON (Object obj) =-    RoboMakerSimulationApplicationSourceConfig <$>-      (obj .: "Architecture") <*>-      (obj .: "S3Bucket") <*>-      (obj .: "S3Key")-  parseJSON _ = mempty- -- | Constructor for 'RoboMakerSimulationApplicationSourceConfig' containing -- required fields as arguments. roboMakerSimulationApplicationSourceConfig
library-gen/Stratosphere/ResourceProperties/Route53HealthCheckAlarmIdentifier.hs view
@@ -25,13 +25,6 @@     , (Just . ("Region",) . toJSON) _route53HealthCheckAlarmIdentifierRegion     ] -instance FromJSON Route53HealthCheckAlarmIdentifier where-  parseJSON (Object obj) =-    Route53HealthCheckAlarmIdentifier <$>-      (obj .: "Name") <*>-      (obj .: "Region")-  parseJSON _ = mempty- -- | Constructor for 'Route53HealthCheckAlarmIdentifier' containing required -- fields as arguments. route53HealthCheckAlarmIdentifier
library-gen/Stratosphere/ResourceProperties/Route53HealthCheckHealthCheckConfig.hs view
@@ -53,27 +53,6 @@     , (Just . ("Type",) . toJSON) _route53HealthCheckHealthCheckConfigType     ] -instance FromJSON Route53HealthCheckHealthCheckConfig where-  parseJSON (Object obj) =-    Route53HealthCheckHealthCheckConfig <$>-      (obj .:? "AlarmIdentifier") <*>-      (obj .:? "ChildHealthChecks") <*>-      fmap (fmap (fmap unBool')) (obj .:? "EnableSNI") <*>-      fmap (fmap (fmap unInteger')) (obj .:? "FailureThreshold") <*>-      (obj .:? "FullyQualifiedDomainName") <*>-      fmap (fmap (fmap unInteger')) (obj .:? "HealthThreshold") <*>-      (obj .:? "IPAddress") <*>-      (obj .:? "InsufficientDataHealthStatus") <*>-      fmap (fmap (fmap unBool')) (obj .:? "Inverted") <*>-      fmap (fmap (fmap unBool')) (obj .:? "MeasureLatency") <*>-      fmap (fmap (fmap unInteger')) (obj .:? "Port") <*>-      (obj .:? "Regions") <*>-      fmap (fmap (fmap unInteger')) (obj .:? "RequestInterval") <*>-      (obj .:? "ResourcePath") <*>-      (obj .:? "SearchString") <*>-      (obj .: "Type")-  parseJSON _ = mempty- -- | Constructor for 'Route53HealthCheckHealthCheckConfig' containing required -- fields as arguments. route53HealthCheckHealthCheckConfig
library-gen/Stratosphere/ResourceProperties/Route53HealthCheckHealthCheckTag.hs view
@@ -25,13 +25,6 @@     , (Just . ("Value",) . toJSON) _route53HealthCheckHealthCheckTagValue     ] -instance FromJSON Route53HealthCheckHealthCheckTag where-  parseJSON (Object obj) =-    Route53HealthCheckHealthCheckTag <$>-      (obj .: "Key") <*>-      (obj .: "Value")-  parseJSON _ = mempty- -- | Constructor for 'Route53HealthCheckHealthCheckTag' containing required -- fields as arguments. route53HealthCheckHealthCheckTag
library-gen/Stratosphere/ResourceProperties/Route53HostedZoneHostedZoneConfig.hs view
@@ -23,12 +23,6 @@     [ fmap (("Comment",) . toJSON) _route53HostedZoneHostedZoneConfigComment     ] -instance FromJSON Route53HostedZoneHostedZoneConfig where-  parseJSON (Object obj) =-    Route53HostedZoneHostedZoneConfig <$>-      (obj .:? "Comment")-  parseJSON _ = mempty- -- | Constructor for 'Route53HostedZoneHostedZoneConfig' containing required -- fields as arguments. route53HostedZoneHostedZoneConfig
library-gen/Stratosphere/ResourceProperties/Route53HostedZoneHostedZoneTag.hs view
@@ -25,13 +25,6 @@     , (Just . ("Value",) . toJSON) _route53HostedZoneHostedZoneTagValue     ] -instance FromJSON Route53HostedZoneHostedZoneTag where-  parseJSON (Object obj) =-    Route53HostedZoneHostedZoneTag <$>-      (obj .: "Key") <*>-      (obj .: "Value")-  parseJSON _ = mempty- -- | Constructor for 'Route53HostedZoneHostedZoneTag' containing required -- fields as arguments. route53HostedZoneHostedZoneTag
library-gen/Stratosphere/ResourceProperties/Route53HostedZoneQueryLoggingConfig.hs view
@@ -23,12 +23,6 @@     [ (Just . ("CloudWatchLogsLogGroupArn",) . toJSON) _route53HostedZoneQueryLoggingConfigCloudWatchLogsLogGroupArn     ] -instance FromJSON Route53HostedZoneQueryLoggingConfig where-  parseJSON (Object obj) =-    Route53HostedZoneQueryLoggingConfig <$>-      (obj .: "CloudWatchLogsLogGroupArn")-  parseJSON _ = mempty- -- | Constructor for 'Route53HostedZoneQueryLoggingConfig' containing required -- fields as arguments. route53HostedZoneQueryLoggingConfig
library-gen/Stratosphere/ResourceProperties/Route53HostedZoneVPC.hs view
@@ -25,13 +25,6 @@     , (Just . ("VPCRegion",) . toJSON) _route53HostedZoneVPCVPCRegion     ] -instance FromJSON Route53HostedZoneVPC where-  parseJSON (Object obj) =-    Route53HostedZoneVPC <$>-      (obj .: "VPCId") <*>-      (obj .: "VPCRegion")-  parseJSON _ = mempty- -- | Constructor for 'Route53HostedZoneVPC' containing required fields as -- arguments. route53HostedZoneVPC
library-gen/Stratosphere/ResourceProperties/Route53RecordSetAliasTarget.hs view
@@ -27,14 +27,6 @@     , (Just . ("HostedZoneId",) . toJSON) _route53RecordSetAliasTargetHostedZoneId     ] -instance FromJSON Route53RecordSetAliasTarget where-  parseJSON (Object obj) =-    Route53RecordSetAliasTarget <$>-      (obj .: "DNSName") <*>-      fmap (fmap (fmap unBool')) (obj .:? "EvaluateTargetHealth") <*>-      (obj .: "HostedZoneId")-  parseJSON _ = mempty- -- | Constructor for 'Route53RecordSetAliasTarget' containing required fields -- as arguments. route53RecordSetAliasTarget
library-gen/Stratosphere/ResourceProperties/Route53RecordSetGeoLocation.hs view
@@ -27,14 +27,6 @@     , fmap (("SubdivisionCode",) . toJSON) _route53RecordSetGeoLocationSubdivisionCode     ] -instance FromJSON Route53RecordSetGeoLocation where-  parseJSON (Object obj) =-    Route53RecordSetGeoLocation <$>-      (obj .:? "ContinentCode") <*>-      (obj .:? "CountryCode") <*>-      (obj .:? "SubdivisionCode")-  parseJSON _ = mempty- -- | Constructor for 'Route53RecordSetGeoLocation' containing required fields -- as arguments. route53RecordSetGeoLocation
library-gen/Stratosphere/ResourceProperties/Route53RecordSetGroupAliasTarget.hs view
@@ -27,14 +27,6 @@     , (Just . ("HostedZoneId",) . toJSON) _route53RecordSetGroupAliasTargetHostedZoneId     ] -instance FromJSON Route53RecordSetGroupAliasTarget where-  parseJSON (Object obj) =-    Route53RecordSetGroupAliasTarget <$>-      (obj .: "DNSName") <*>-      fmap (fmap (fmap unBool')) (obj .:? "EvaluateTargetHealth") <*>-      (obj .: "HostedZoneId")-  parseJSON _ = mempty- -- | Constructor for 'Route53RecordSetGroupAliasTarget' containing required -- fields as arguments. route53RecordSetGroupAliasTarget
library-gen/Stratosphere/ResourceProperties/Route53RecordSetGroupGeoLocation.hs view
@@ -27,14 +27,6 @@     , fmap (("SubdivisionCode",) . toJSON) _route53RecordSetGroupGeoLocationSubdivisionCode     ] -instance FromJSON Route53RecordSetGroupGeoLocation where-  parseJSON (Object obj) =-    Route53RecordSetGroupGeoLocation <$>-      (obj .:? "ContinentCode") <*>-      (obj .:? "CountryCode") <*>-      (obj .:? "SubdivisionCode")-  parseJSON _ = mempty- -- | Constructor for 'Route53RecordSetGroupGeoLocation' containing required -- fields as arguments. route53RecordSetGroupGeoLocation
library-gen/Stratosphere/ResourceProperties/Route53RecordSetGroupRecordSet.hs view
@@ -52,26 +52,6 @@     , fmap (("Weight",) . toJSON . fmap Integer') _route53RecordSetGroupRecordSetWeight     ] -instance FromJSON Route53RecordSetGroupRecordSet where-  parseJSON (Object obj) =-    Route53RecordSetGroupRecordSet <$>-      (obj .:? "AliasTarget") <*>-      (obj .:? "Comment") <*>-      (obj .:? "Failover") <*>-      (obj .:? "GeoLocation") <*>-      (obj .:? "HealthCheckId") <*>-      (obj .:? "HostedZoneId") <*>-      (obj .:? "HostedZoneName") <*>-      fmap (fmap (fmap unBool')) (obj .:? "MultiValueAnswer") <*>-      (obj .: "Name") <*>-      (obj .:? "Region") <*>-      (obj .:? "ResourceRecords") <*>-      (obj .:? "SetIdentifier") <*>-      (obj .:? "TTL") <*>-      (obj .: "Type") <*>-      fmap (fmap (fmap unInteger')) (obj .:? "Weight")-  parseJSON _ = mempty- -- | Constructor for 'Route53RecordSetGroupRecordSet' containing required -- fields as arguments. route53RecordSetGroupRecordSet
library-gen/Stratosphere/ResourceProperties/Route53ResolverResolverEndpointIpAddressRequest.hs view
@@ -27,13 +27,6 @@     , (Just . ("SubnetId",) . toJSON) _route53ResolverResolverEndpointIpAddressRequestSubnetId     ] -instance FromJSON Route53ResolverResolverEndpointIpAddressRequest where-  parseJSON (Object obj) =-    Route53ResolverResolverEndpointIpAddressRequest <$>-      (obj .:? "Ip") <*>-      (obj .: "SubnetId")-  parseJSON _ = mempty- -- | Constructor for 'Route53ResolverResolverEndpointIpAddressRequest' -- containing required fields as arguments. route53ResolverResolverEndpointIpAddressRequest
library-gen/Stratosphere/ResourceProperties/Route53ResolverResolverRuleTargetAddress.hs view
@@ -26,13 +26,6 @@     , (Just . ("Port",) . toJSON) _route53ResolverResolverRuleTargetAddressPort     ] -instance FromJSON Route53ResolverResolverRuleTargetAddress where-  parseJSON (Object obj) =-    Route53ResolverResolverRuleTargetAddress <$>-      (obj .: "Ip") <*>-      (obj .: "Port")-  parseJSON _ = mempty- -- | Constructor for 'Route53ResolverResolverRuleTargetAddress' containing -- required fields as arguments. route53ResolverResolverRuleTargetAddress
library-gen/Stratosphere/ResourceProperties/S3BucketAbortIncompleteMultipartUpload.hs view
@@ -24,12 +24,6 @@     [ (Just . ("DaysAfterInitiation",) . toJSON . fmap Integer') _s3BucketAbortIncompleteMultipartUploadDaysAfterInitiation     ] -instance FromJSON S3BucketAbortIncompleteMultipartUpload where-  parseJSON (Object obj) =-    S3BucketAbortIncompleteMultipartUpload <$>-      fmap (fmap unInteger') (obj .: "DaysAfterInitiation")-  parseJSON _ = mempty- -- | Constructor for 'S3BucketAbortIncompleteMultipartUpload' containing -- required fields as arguments. s3BucketAbortIncompleteMultipartUpload
library-gen/Stratosphere/ResourceProperties/S3BucketAccelerateConfiguration.hs view
@@ -23,12 +23,6 @@     [ (Just . ("AccelerationStatus",) . toJSON) _s3BucketAccelerateConfigurationAccelerationStatus     ] -instance FromJSON S3BucketAccelerateConfiguration where-  parseJSON (Object obj) =-    S3BucketAccelerateConfiguration <$>-      (obj .: "AccelerationStatus")-  parseJSON _ = mempty- -- | Constructor for 'S3BucketAccelerateConfiguration' containing required -- fields as arguments. s3BucketAccelerateConfiguration
library-gen/Stratosphere/ResourceProperties/S3BucketAccessControlTranslation.hs view
@@ -23,12 +23,6 @@     [ (Just . ("Owner",) . toJSON) _s3BucketAccessControlTranslationOwner     ] -instance FromJSON S3BucketAccessControlTranslation where-  parseJSON (Object obj) =-    S3BucketAccessControlTranslation <$>-      (obj .: "Owner")-  parseJSON _ = mempty- -- | Constructor for 'S3BucketAccessControlTranslation' containing required -- fields as arguments. s3BucketAccessControlTranslation
library-gen/Stratosphere/ResourceProperties/S3BucketAnalyticsConfiguration.hs view
@@ -30,15 +30,6 @@     , fmap (("TagFilters",) . toJSON) _s3BucketAnalyticsConfigurationTagFilters     ] -instance FromJSON S3BucketAnalyticsConfiguration where-  parseJSON (Object obj) =-    S3BucketAnalyticsConfiguration <$>-      (obj .: "Id") <*>-      (obj .:? "Prefix") <*>-      (obj .: "StorageClassAnalysis") <*>-      (obj .:? "TagFilters")-  parseJSON _ = mempty- -- | Constructor for 'S3BucketAnalyticsConfiguration' containing required -- fields as arguments. s3BucketAnalyticsConfiguration
library-gen/Stratosphere/ResourceProperties/S3BucketBucketEncryption.hs view
@@ -23,12 +23,6 @@     [ (Just . ("ServerSideEncryptionConfiguration",) . toJSON) _s3BucketBucketEncryptionServerSideEncryptionConfiguration     ] -instance FromJSON S3BucketBucketEncryption where-  parseJSON (Object obj) =-    S3BucketBucketEncryption <$>-      (obj .: "ServerSideEncryptionConfiguration")-  parseJSON _ = mempty- -- | Constructor for 'S3BucketBucketEncryption' containing required fields as -- arguments. s3BucketBucketEncryption
library-gen/Stratosphere/ResourceProperties/S3BucketCorsConfiguration.hs view
@@ -23,12 +23,6 @@     [ (Just . ("CorsRules",) . toJSON) _s3BucketCorsConfigurationCorsRules     ] -instance FromJSON S3BucketCorsConfiguration where-  parseJSON (Object obj) =-    S3BucketCorsConfiguration <$>-      (obj .: "CorsRules")-  parseJSON _ = mempty- -- | Constructor for 'S3BucketCorsConfiguration' containing required fields as -- arguments. s3BucketCorsConfiguration
library-gen/Stratosphere/ResourceProperties/S3BucketCorsRule.hs view
@@ -33,17 +33,6 @@     , fmap (("MaxAge",) . toJSON . fmap Integer') _s3BucketCorsRuleMaxAge     ] -instance FromJSON S3BucketCorsRule where-  parseJSON (Object obj) =-    S3BucketCorsRule <$>-      (obj .:? "AllowedHeaders") <*>-      (obj .: "AllowedMethods") <*>-      (obj .: "AllowedOrigins") <*>-      (obj .:? "ExposedHeaders") <*>-      (obj .:? "Id") <*>-      fmap (fmap (fmap unInteger')) (obj .:? "MaxAge")-  parseJSON _ = mempty- -- | Constructor for 'S3BucketCorsRule' containing required fields as -- arguments. s3BucketCorsRule
library-gen/Stratosphere/ResourceProperties/S3BucketDataExport.hs view
@@ -25,13 +25,6 @@     , (Just . ("OutputSchemaVersion",) . toJSON) _s3BucketDataExportOutputSchemaVersion     ] -instance FromJSON S3BucketDataExport where-  parseJSON (Object obj) =-    S3BucketDataExport <$>-      (obj .: "Destination") <*>-      (obj .: "OutputSchemaVersion")-  parseJSON _ = mempty- -- | Constructor for 'S3BucketDataExport' containing required fields as -- arguments. s3BucketDataExport
library-gen/Stratosphere/ResourceProperties/S3BucketDestination.hs view
@@ -29,15 +29,6 @@     , fmap (("Prefix",) . toJSON) _s3BucketDestinationPrefix     ] -instance FromJSON S3BucketDestination where-  parseJSON (Object obj) =-    S3BucketDestination <$>-      (obj .:? "BucketAccountId") <*>-      (obj .: "BucketArn") <*>-      (obj .: "Format") <*>-      (obj .:? "Prefix")-  parseJSON _ = mempty- -- | Constructor for 'S3BucketDestination' containing required fields as -- arguments. s3BucketDestination
library-gen/Stratosphere/ResourceProperties/S3BucketEncryptionConfiguration.hs view
@@ -23,12 +23,6 @@     [ (Just . ("ReplicaKmsKeyID",) . toJSON) _s3BucketEncryptionConfigurationReplicaKmsKeyID     ] -instance FromJSON S3BucketEncryptionConfiguration where-  parseJSON (Object obj) =-    S3BucketEncryptionConfiguration <$>-      (obj .: "ReplicaKmsKeyID")-  parseJSON _ = mempty- -- | Constructor for 'S3BucketEncryptionConfiguration' containing required -- fields as arguments. s3BucketEncryptionConfiguration
library-gen/Stratosphere/ResourceProperties/S3BucketFilterRule.hs view
@@ -25,13 +25,6 @@     , (Just . ("Value",) . toJSON) _s3BucketFilterRuleValue     ] -instance FromJSON S3BucketFilterRule where-  parseJSON (Object obj) =-    S3BucketFilterRule <$>-      (obj .: "Name") <*>-      (obj .: "Value")-  parseJSON _ = mempty- -- | Constructor for 'S3BucketFilterRule' containing required fields as -- arguments. s3BucketFilterRule
library-gen/Stratosphere/ResourceProperties/S3BucketInventoryConfiguration.hs view
@@ -35,18 +35,6 @@     , (Just . ("ScheduleFrequency",) . toJSON) _s3BucketInventoryConfigurationScheduleFrequency     ] -instance FromJSON S3BucketInventoryConfiguration where-  parseJSON (Object obj) =-    S3BucketInventoryConfiguration <$>-      (obj .: "Destination") <*>-      fmap (fmap unBool') (obj .: "Enabled") <*>-      (obj .: "Id") <*>-      (obj .: "IncludedObjectVersions") <*>-      (obj .:? "OptionalFields") <*>-      (obj .:? "Prefix") <*>-      (obj .: "ScheduleFrequency")-  parseJSON _ = mempty- -- | Constructor for 'S3BucketInventoryConfiguration' containing required -- fields as arguments. s3BucketInventoryConfiguration
library-gen/Stratosphere/ResourceProperties/S3BucketLambdaConfiguration.hs view
@@ -27,14 +27,6 @@     , (Just . ("Function",) . toJSON) _s3BucketLambdaConfigurationFunction     ] -instance FromJSON S3BucketLambdaConfiguration where-  parseJSON (Object obj) =-    S3BucketLambdaConfiguration <$>-      (obj .: "Event") <*>-      (obj .:? "Filter") <*>-      (obj .: "Function")-  parseJSON _ = mempty- -- | Constructor for 'S3BucketLambdaConfiguration' containing required fields -- as arguments. s3BucketLambdaConfiguration
library-gen/Stratosphere/ResourceProperties/S3BucketLifecycleConfiguration.hs view
@@ -23,12 +23,6 @@     [ (Just . ("Rules",) . toJSON) _s3BucketLifecycleConfigurationRules     ] -instance FromJSON S3BucketLifecycleConfiguration where-  parseJSON (Object obj) =-    S3BucketLifecycleConfiguration <$>-      (obj .: "Rules")-  parseJSON _ = mempty- -- | Constructor for 'S3BucketLifecycleConfiguration' containing required -- fields as arguments. s3BucketLifecycleConfiguration
library-gen/Stratosphere/ResourceProperties/S3BucketLoggingConfiguration.hs view
@@ -25,13 +25,6 @@     , fmap (("LogFilePrefix",) . toJSON) _s3BucketLoggingConfigurationLogFilePrefix     ] -instance FromJSON S3BucketLoggingConfiguration where-  parseJSON (Object obj) =-    S3BucketLoggingConfiguration <$>-      (obj .:? "DestinationBucketName") <*>-      (obj .:? "LogFilePrefix")-  parseJSON _ = mempty- -- | Constructor for 'S3BucketLoggingConfiguration' containing required fields -- as arguments. s3BucketLoggingConfiguration
library-gen/Stratosphere/ResourceProperties/S3BucketMetricsConfiguration.hs view
@@ -27,14 +27,6 @@     , fmap (("TagFilters",) . toJSON) _s3BucketMetricsConfigurationTagFilters     ] -instance FromJSON S3BucketMetricsConfiguration where-  parseJSON (Object obj) =-    S3BucketMetricsConfiguration <$>-      (obj .: "Id") <*>-      (obj .:? "Prefix") <*>-      (obj .:? "TagFilters")-  parseJSON _ = mempty- -- | Constructor for 'S3BucketMetricsConfiguration' containing required fields -- as arguments. s3BucketMetricsConfiguration
library-gen/Stratosphere/ResourceProperties/S3BucketNoncurrentVersionTransition.hs view
@@ -25,13 +25,6 @@     , (Just . ("TransitionInDays",) . toJSON . fmap Integer') _s3BucketNoncurrentVersionTransitionTransitionInDays     ] -instance FromJSON S3BucketNoncurrentVersionTransition where-  parseJSON (Object obj) =-    S3BucketNoncurrentVersionTransition <$>-      (obj .: "StorageClass") <*>-      fmap (fmap unInteger') (obj .: "TransitionInDays")-  parseJSON _ = mempty- -- | Constructor for 'S3BucketNoncurrentVersionTransition' containing required -- fields as arguments. s3BucketNoncurrentVersionTransition
library-gen/Stratosphere/ResourceProperties/S3BucketNotificationConfiguration.hs view
@@ -29,14 +29,6 @@     , fmap (("TopicConfigurations",) . toJSON) _s3BucketNotificationConfigurationTopicConfigurations     ] -instance FromJSON S3BucketNotificationConfiguration where-  parseJSON (Object obj) =-    S3BucketNotificationConfiguration <$>-      (obj .:? "LambdaConfigurations") <*>-      (obj .:? "QueueConfigurations") <*>-      (obj .:? "TopicConfigurations")-  parseJSON _ = mempty- -- | Constructor for 'S3BucketNotificationConfiguration' containing required -- fields as arguments. s3BucketNotificationConfiguration
library-gen/Stratosphere/ResourceProperties/S3BucketNotificationFilter.hs view
@@ -23,12 +23,6 @@     [ (Just . ("S3Key",) . toJSON) _s3BucketNotificationFilterS3Key     ] -instance FromJSON S3BucketNotificationFilter where-  parseJSON (Object obj) =-    S3BucketNotificationFilter <$>-      (obj .: "S3Key")-  parseJSON _ = mempty- -- | Constructor for 'S3BucketNotificationFilter' containing required fields -- as arguments. s3BucketNotificationFilter
library-gen/Stratosphere/ResourceProperties/S3BucketPublicAccessBlockConfiguration.hs view
@@ -30,15 +30,6 @@     , fmap (("RestrictPublicBuckets",) . toJSON . fmap Bool') _s3BucketPublicAccessBlockConfigurationRestrictPublicBuckets     ] -instance FromJSON S3BucketPublicAccessBlockConfiguration where-  parseJSON (Object obj) =-    S3BucketPublicAccessBlockConfiguration <$>-      fmap (fmap (fmap unBool')) (obj .:? "BlockPublicAcls") <*>-      fmap (fmap (fmap unBool')) (obj .:? "BlockPublicPolicy") <*>-      fmap (fmap (fmap unBool')) (obj .:? "IgnorePublicAcls") <*>-      fmap (fmap (fmap unBool')) (obj .:? "RestrictPublicBuckets")-  parseJSON _ = mempty- -- | Constructor for 'S3BucketPublicAccessBlockConfiguration' containing -- required fields as arguments. s3BucketPublicAccessBlockConfiguration
library-gen/Stratosphere/ResourceProperties/S3BucketQueueConfiguration.hs view
@@ -27,14 +27,6 @@     , (Just . ("Queue",) . toJSON) _s3BucketQueueConfigurationQueue     ] -instance FromJSON S3BucketQueueConfiguration where-  parseJSON (Object obj) =-    S3BucketQueueConfiguration <$>-      (obj .: "Event") <*>-      (obj .:? "Filter") <*>-      (obj .: "Queue")-  parseJSON _ = mempty- -- | Constructor for 'S3BucketQueueConfiguration' containing required fields -- as arguments. s3BucketQueueConfiguration
library-gen/Stratosphere/ResourceProperties/S3BucketRedirectAllRequestsTo.hs view
@@ -25,13 +25,6 @@     , fmap (("Protocol",) . toJSON) _s3BucketRedirectAllRequestsToProtocol     ] -instance FromJSON S3BucketRedirectAllRequestsTo where-  parseJSON (Object obj) =-    S3BucketRedirectAllRequestsTo <$>-      (obj .: "HostName") <*>-      (obj .:? "Protocol")-  parseJSON _ = mempty- -- | Constructor for 'S3BucketRedirectAllRequestsTo' containing required -- fields as arguments. s3BucketRedirectAllRequestsTo
library-gen/Stratosphere/ResourceProperties/S3BucketRedirectRule.hs view
@@ -31,16 +31,6 @@     , fmap (("ReplaceKeyWith",) . toJSON) _s3BucketRedirectRuleReplaceKeyWith     ] -instance FromJSON S3BucketRedirectRule where-  parseJSON (Object obj) =-    S3BucketRedirectRule <$>-      (obj .:? "HostName") <*>-      (obj .:? "HttpRedirectCode") <*>-      (obj .:? "Protocol") <*>-      (obj .:? "ReplaceKeyPrefixWith") <*>-      (obj .:? "ReplaceKeyWith")-  parseJSON _ = mempty- -- | Constructor for 'S3BucketRedirectRule' containing required fields as -- arguments. s3BucketRedirectRule
library-gen/Stratosphere/ResourceProperties/S3BucketReplicationConfiguration.hs view
@@ -25,13 +25,6 @@     , (Just . ("Rules",) . toJSON) _s3BucketReplicationConfigurationRules     ] -instance FromJSON S3BucketReplicationConfiguration where-  parseJSON (Object obj) =-    S3BucketReplicationConfiguration <$>-      (obj .: "Role") <*>-      (obj .: "Rules")-  parseJSON _ = mempty- -- | Constructor for 'S3BucketReplicationConfiguration' containing required -- fields as arguments. s3BucketReplicationConfiguration
library-gen/Stratosphere/ResourceProperties/S3BucketReplicationDestination.hs view
@@ -32,16 +32,6 @@     , fmap (("StorageClass",) . toJSON) _s3BucketReplicationDestinationStorageClass     ] -instance FromJSON S3BucketReplicationDestination where-  parseJSON (Object obj) =-    S3BucketReplicationDestination <$>-      (obj .:? "AccessControlTranslation") <*>-      (obj .:? "Account") <*>-      (obj .: "Bucket") <*>-      (obj .:? "EncryptionConfiguration") <*>-      (obj .:? "StorageClass")-  parseJSON _ = mempty- -- | Constructor for 'S3BucketReplicationDestination' containing required -- fields as arguments. s3BucketReplicationDestination
library-gen/Stratosphere/ResourceProperties/S3BucketReplicationRule.hs view
@@ -32,16 +32,6 @@     , (Just . ("Status",) . toJSON) _s3BucketReplicationRuleStatus     ] -instance FromJSON S3BucketReplicationRule where-  parseJSON (Object obj) =-    S3BucketReplicationRule <$>-      (obj .: "Destination") <*>-      (obj .:? "Id") <*>-      (obj .: "Prefix") <*>-      (obj .:? "SourceSelectionCriteria") <*>-      (obj .: "Status")-  parseJSON _ = mempty- -- | Constructor for 'S3BucketReplicationRule' containing required fields as -- arguments. s3BucketReplicationRule
library-gen/Stratosphere/ResourceProperties/S3BucketRoutingRule.hs view
@@ -26,13 +26,6 @@     , fmap (("RoutingRuleCondition",) . toJSON) _s3BucketRoutingRuleRoutingRuleCondition     ] -instance FromJSON S3BucketRoutingRule where-  parseJSON (Object obj) =-    S3BucketRoutingRule <$>-      (obj .: "RedirectRule") <*>-      (obj .:? "RoutingRuleCondition")-  parseJSON _ = mempty- -- | Constructor for 'S3BucketRoutingRule' containing required fields as -- arguments. s3BucketRoutingRule
library-gen/Stratosphere/ResourceProperties/S3BucketRoutingRuleCondition.hs view
@@ -25,13 +25,6 @@     , fmap (("KeyPrefixEquals",) . toJSON) _s3BucketRoutingRuleConditionKeyPrefixEquals     ] -instance FromJSON S3BucketRoutingRuleCondition where-  parseJSON (Object obj) =-    S3BucketRoutingRuleCondition <$>-      (obj .:? "HttpErrorCodeReturnedEquals") <*>-      (obj .:? "KeyPrefixEquals")-  parseJSON _ = mempty- -- | Constructor for 'S3BucketRoutingRuleCondition' containing required fields -- as arguments. s3BucketRoutingRuleCondition
library-gen/Stratosphere/ResourceProperties/S3BucketRule.hs view
@@ -48,23 +48,6 @@     , fmap (("Transitions",) . toJSON) _s3BucketRuleTransitions     ] -instance FromJSON S3BucketRule where-  parseJSON (Object obj) =-    S3BucketRule <$>-      (obj .:? "AbortIncompleteMultipartUpload") <*>-      (obj .:? "ExpirationDate") <*>-      fmap (fmap (fmap unInteger')) (obj .:? "ExpirationInDays") <*>-      (obj .:? "Id") <*>-      fmap (fmap (fmap unInteger')) (obj .:? "NoncurrentVersionExpirationInDays") <*>-      (obj .:? "NoncurrentVersionTransition") <*>-      (obj .:? "NoncurrentVersionTransitions") <*>-      (obj .:? "Prefix") <*>-      (obj .: "Status") <*>-      (obj .:? "TagFilters") <*>-      (obj .:? "Transition") <*>-      (obj .:? "Transitions")-  parseJSON _ = mempty- -- | Constructor for 'S3BucketRule' containing required fields as arguments. s3BucketRule   :: Val Text -- ^ 'sbrStatus'
library-gen/Stratosphere/ResourceProperties/S3BucketS3KeyFilter.hs view
@@ -23,12 +23,6 @@     [ (Just . ("Rules",) . toJSON) _s3BucketS3KeyFilterRules     ] -instance FromJSON S3BucketS3KeyFilter where-  parseJSON (Object obj) =-    S3BucketS3KeyFilter <$>-      (obj .: "Rules")-  parseJSON _ = mempty- -- | Constructor for 'S3BucketS3KeyFilter' containing required fields as -- arguments. s3BucketS3KeyFilter
library-gen/Stratosphere/ResourceProperties/S3BucketServerSideEncryptionByDefault.hs view
@@ -26,13 +26,6 @@     , (Just . ("SSEAlgorithm",) . toJSON) _s3BucketServerSideEncryptionByDefaultSSEAlgorithm     ] -instance FromJSON S3BucketServerSideEncryptionByDefault where-  parseJSON (Object obj) =-    S3BucketServerSideEncryptionByDefault <$>-      (obj .:? "KMSMasterKeyID") <*>-      (obj .: "SSEAlgorithm")-  parseJSON _ = mempty- -- | Constructor for 'S3BucketServerSideEncryptionByDefault' containing -- required fields as arguments. s3BucketServerSideEncryptionByDefault
library-gen/Stratosphere/ResourceProperties/S3BucketServerSideEncryptionRule.hs view
@@ -23,12 +23,6 @@     [ fmap (("ServerSideEncryptionByDefault",) . toJSON) _s3BucketServerSideEncryptionRuleServerSideEncryptionByDefault     ] -instance FromJSON S3BucketServerSideEncryptionRule where-  parseJSON (Object obj) =-    S3BucketServerSideEncryptionRule <$>-      (obj .:? "ServerSideEncryptionByDefault")-  parseJSON _ = mempty- -- | Constructor for 'S3BucketServerSideEncryptionRule' containing required -- fields as arguments. s3BucketServerSideEncryptionRule
library-gen/Stratosphere/ResourceProperties/S3BucketSourceSelectionCriteria.hs view
@@ -23,12 +23,6 @@     [ (Just . ("SseKmsEncryptedObjects",) . toJSON) _s3BucketSourceSelectionCriteriaSseKmsEncryptedObjects     ] -instance FromJSON S3BucketSourceSelectionCriteria where-  parseJSON (Object obj) =-    S3BucketSourceSelectionCriteria <$>-      (obj .: "SseKmsEncryptedObjects")-  parseJSON _ = mempty- -- | Constructor for 'S3BucketSourceSelectionCriteria' containing required -- fields as arguments. s3BucketSourceSelectionCriteria
library-gen/Stratosphere/ResourceProperties/S3BucketSseKmsEncryptedObjects.hs view
@@ -23,12 +23,6 @@     [ (Just . ("Status",) . toJSON) _s3BucketSseKmsEncryptedObjectsStatus     ] -instance FromJSON S3BucketSseKmsEncryptedObjects where-  parseJSON (Object obj) =-    S3BucketSseKmsEncryptedObjects <$>-      (obj .: "Status")-  parseJSON _ = mempty- -- | Constructor for 'S3BucketSseKmsEncryptedObjects' containing required -- fields as arguments. s3BucketSseKmsEncryptedObjects
library-gen/Stratosphere/ResourceProperties/S3BucketStorageClassAnalysis.hs view
@@ -23,12 +23,6 @@     [ fmap (("DataExport",) . toJSON) _s3BucketStorageClassAnalysisDataExport     ] -instance FromJSON S3BucketStorageClassAnalysis where-  parseJSON (Object obj) =-    S3BucketStorageClassAnalysis <$>-      (obj .:? "DataExport")-  parseJSON _ = mempty- -- | Constructor for 'S3BucketStorageClassAnalysis' containing required fields -- as arguments. s3BucketStorageClassAnalysis
library-gen/Stratosphere/ResourceProperties/S3BucketTagFilter.hs view
@@ -25,13 +25,6 @@     , (Just . ("Value",) . toJSON) _s3BucketTagFilterValue     ] -instance FromJSON S3BucketTagFilter where-  parseJSON (Object obj) =-    S3BucketTagFilter <$>-      (obj .: "Key") <*>-      (obj .: "Value")-  parseJSON _ = mempty- -- | Constructor for 'S3BucketTagFilter' containing required fields as -- arguments. s3BucketTagFilter
library-gen/Stratosphere/ResourceProperties/S3BucketTopicConfiguration.hs view
@@ -27,14 +27,6 @@     , (Just . ("Topic",) . toJSON) _s3BucketTopicConfigurationTopic     ] -instance FromJSON S3BucketTopicConfiguration where-  parseJSON (Object obj) =-    S3BucketTopicConfiguration <$>-      (obj .: "Event") <*>-      (obj .:? "Filter") <*>-      (obj .: "Topic")-  parseJSON _ = mempty- -- | Constructor for 'S3BucketTopicConfiguration' containing required fields -- as arguments. s3BucketTopicConfiguration
library-gen/Stratosphere/ResourceProperties/S3BucketTransition.hs view
@@ -27,14 +27,6 @@     , fmap (("TransitionInDays",) . toJSON . fmap Integer') _s3BucketTransitionTransitionInDays     ] -instance FromJSON S3BucketTransition where-  parseJSON (Object obj) =-    S3BucketTransition <$>-      (obj .: "StorageClass") <*>-      (obj .:? "TransitionDate") <*>-      fmap (fmap (fmap unInteger')) (obj .:? "TransitionInDays")-  parseJSON _ = mempty- -- | Constructor for 'S3BucketTransition' containing required fields as -- arguments. s3BucketTransition
library-gen/Stratosphere/ResourceProperties/S3BucketVersioningConfiguration.hs view
@@ -23,12 +23,6 @@     [ (Just . ("Status",) . toJSON) _s3BucketVersioningConfigurationStatus     ] -instance FromJSON S3BucketVersioningConfiguration where-  parseJSON (Object obj) =-    S3BucketVersioningConfiguration <$>-      (obj .: "Status")-  parseJSON _ = mempty- -- | Constructor for 'S3BucketVersioningConfiguration' containing required -- fields as arguments. s3BucketVersioningConfiguration
library-gen/Stratosphere/ResourceProperties/S3BucketWebsiteConfiguration.hs view
@@ -30,15 +30,6 @@     , fmap (("RoutingRules",) . toJSON) _s3BucketWebsiteConfigurationRoutingRules     ] -instance FromJSON S3BucketWebsiteConfiguration where-  parseJSON (Object obj) =-    S3BucketWebsiteConfiguration <$>-      (obj .:? "ErrorDocument") <*>-      (obj .:? "IndexDocument") <*>-      (obj .:? "RedirectAllRequestsTo") <*>-      (obj .:? "RoutingRules")-  parseJSON _ = mempty- -- | Constructor for 'S3BucketWebsiteConfiguration' containing required fields -- as arguments. s3BucketWebsiteConfiguration
library-gen/Stratosphere/ResourceProperties/SESConfigurationSetEventDestinationCloudWatchDestination.hs view
@@ -25,12 +25,6 @@     [ fmap (("DimensionConfigurations",) . toJSON) _sESConfigurationSetEventDestinationCloudWatchDestinationDimensionConfigurations     ] -instance FromJSON SESConfigurationSetEventDestinationCloudWatchDestination where-  parseJSON (Object obj) =-    SESConfigurationSetEventDestinationCloudWatchDestination <$>-      (obj .:? "DimensionConfigurations")-  parseJSON _ = mempty- -- | Constructor for -- 'SESConfigurationSetEventDestinationCloudWatchDestination' containing -- required fields as arguments.
library-gen/Stratosphere/ResourceProperties/SESConfigurationSetEventDestinationDimensionConfiguration.hs view
@@ -29,14 +29,6 @@     , (Just . ("DimensionValueSource",) . toJSON) _sESConfigurationSetEventDestinationDimensionConfigurationDimensionValueSource     ] -instance FromJSON SESConfigurationSetEventDestinationDimensionConfiguration where-  parseJSON (Object obj) =-    SESConfigurationSetEventDestinationDimensionConfiguration <$>-      (obj .: "DefaultDimensionValue") <*>-      (obj .: "DimensionName") <*>-      (obj .: "DimensionValueSource")-  parseJSON _ = mempty- -- | Constructor for -- 'SESConfigurationSetEventDestinationDimensionConfiguration' containing -- required fields as arguments.
library-gen/Stratosphere/ResourceProperties/SESConfigurationSetEventDestinationEventDestination.hs view
@@ -34,16 +34,6 @@     , fmap (("Name",) . toJSON) _sESConfigurationSetEventDestinationEventDestinationName     ] -instance FromJSON SESConfigurationSetEventDestinationEventDestination where-  parseJSON (Object obj) =-    SESConfigurationSetEventDestinationEventDestination <$>-      (obj .:? "CloudWatchDestination") <*>-      fmap (fmap (fmap unBool')) (obj .:? "Enabled") <*>-      (obj .:? "KinesisFirehoseDestination") <*>-      (obj .: "MatchingEventTypes") <*>-      (obj .:? "Name")-  parseJSON _ = mempty- -- | Constructor for 'SESConfigurationSetEventDestinationEventDestination' -- containing required fields as arguments. sesConfigurationSetEventDestinationEventDestination
library-gen/Stratosphere/ResourceProperties/SESConfigurationSetEventDestinationKinesisFirehoseDestination.hs view
@@ -27,13 +27,6 @@     , (Just . ("IAMRoleARN",) . toJSON) _sESConfigurationSetEventDestinationKinesisFirehoseDestinationIAMRoleARN     ] -instance FromJSON SESConfigurationSetEventDestinationKinesisFirehoseDestination where-  parseJSON (Object obj) =-    SESConfigurationSetEventDestinationKinesisFirehoseDestination <$>-      (obj .: "DeliveryStreamARN") <*>-      (obj .: "IAMRoleARN")-  parseJSON _ = mempty- -- | Constructor for -- 'SESConfigurationSetEventDestinationKinesisFirehoseDestination' -- containing required fields as arguments.
library-gen/Stratosphere/ResourceProperties/SESReceiptFilterFilter.hs view
@@ -25,13 +25,6 @@     , fmap (("Name",) . toJSON) _sESReceiptFilterFilterName     ] -instance FromJSON SESReceiptFilterFilter where-  parseJSON (Object obj) =-    SESReceiptFilterFilter <$>-      (obj .: "IpFilter") <*>-      (obj .:? "Name")-  parseJSON _ = mempty- -- | Constructor for 'SESReceiptFilterFilter' containing required fields as -- arguments. sesReceiptFilterFilter
library-gen/Stratosphere/ResourceProperties/SESReceiptFilterIpFilter.hs view
@@ -25,13 +25,6 @@     , (Just . ("Policy",) . toJSON) _sESReceiptFilterIpFilterPolicy     ] -instance FromJSON SESReceiptFilterIpFilter where-  parseJSON (Object obj) =-    SESReceiptFilterIpFilter <$>-      (obj .: "Cidr") <*>-      (obj .: "Policy")-  parseJSON _ = mempty- -- | Constructor for 'SESReceiptFilterIpFilter' containing required fields as -- arguments. sesReceiptFilterIpFilter
library-gen/Stratosphere/ResourceProperties/SESReceiptRuleAction.hs view
@@ -41,18 +41,6 @@     , fmap (("WorkmailAction",) . toJSON) _sESReceiptRuleActionWorkmailAction     ] -instance FromJSON SESReceiptRuleAction where-  parseJSON (Object obj) =-    SESReceiptRuleAction <$>-      (obj .:? "AddHeaderAction") <*>-      (obj .:? "BounceAction") <*>-      (obj .:? "LambdaAction") <*>-      (obj .:? "S3Action") <*>-      (obj .:? "SNSAction") <*>-      (obj .:? "StopAction") <*>-      (obj .:? "WorkmailAction")-  parseJSON _ = mempty- -- | Constructor for 'SESReceiptRuleAction' containing required fields as -- arguments. sesReceiptRuleAction
library-gen/Stratosphere/ResourceProperties/SESReceiptRuleAddHeaderAction.hs view
@@ -25,13 +25,6 @@     , (Just . ("HeaderValue",) . toJSON) _sESReceiptRuleAddHeaderActionHeaderValue     ] -instance FromJSON SESReceiptRuleAddHeaderAction where-  parseJSON (Object obj) =-    SESReceiptRuleAddHeaderAction <$>-      (obj .: "HeaderName") <*>-      (obj .: "HeaderValue")-  parseJSON _ = mempty- -- | Constructor for 'SESReceiptRuleAddHeaderAction' containing required -- fields as arguments. sesReceiptRuleAddHeaderAction
library-gen/Stratosphere/ResourceProperties/SESReceiptRuleBounceAction.hs view
@@ -31,16 +31,6 @@     , fmap (("TopicArn",) . toJSON) _sESReceiptRuleBounceActionTopicArn     ] -instance FromJSON SESReceiptRuleBounceAction where-  parseJSON (Object obj) =-    SESReceiptRuleBounceAction <$>-      (obj .: "Message") <*>-      (obj .: "Sender") <*>-      (obj .: "SmtpReplyCode") <*>-      (obj .:? "StatusCode") <*>-      (obj .:? "TopicArn")-  parseJSON _ = mempty- -- | Constructor for 'SESReceiptRuleBounceAction' containing required fields -- as arguments. sesReceiptRuleBounceAction
library-gen/Stratosphere/ResourceProperties/SESReceiptRuleLambdaAction.hs view
@@ -27,14 +27,6 @@     , fmap (("TopicArn",) . toJSON) _sESReceiptRuleLambdaActionTopicArn     ] -instance FromJSON SESReceiptRuleLambdaAction where-  parseJSON (Object obj) =-    SESReceiptRuleLambdaAction <$>-      (obj .: "FunctionArn") <*>-      (obj .:? "InvocationType") <*>-      (obj .:? "TopicArn")-  parseJSON _ = mempty- -- | Constructor for 'SESReceiptRuleLambdaAction' containing required fields -- as arguments. sesReceiptRuleLambdaAction
library-gen/Stratosphere/ResourceProperties/SESReceiptRuleRule.hs view
@@ -33,17 +33,6 @@     , fmap (("TlsPolicy",) . toJSON) _sESReceiptRuleRuleTlsPolicy     ] -instance FromJSON SESReceiptRuleRule where-  parseJSON (Object obj) =-    SESReceiptRuleRule <$>-      (obj .:? "Actions") <*>-      fmap (fmap (fmap unBool')) (obj .:? "Enabled") <*>-      (obj .:? "Name") <*>-      (obj .:? "Recipients") <*>-      fmap (fmap (fmap unBool')) (obj .:? "ScanEnabled") <*>-      (obj .:? "TlsPolicy")-  parseJSON _ = mempty- -- | Constructor for 'SESReceiptRuleRule' containing required fields as -- arguments. sesReceiptRuleRule
library-gen/Stratosphere/ResourceProperties/SESReceiptRuleS3Action.hs view
@@ -29,15 +29,6 @@     , fmap (("TopicArn",) . toJSON) _sESReceiptRuleS3ActionTopicArn     ] -instance FromJSON SESReceiptRuleS3Action where-  parseJSON (Object obj) =-    SESReceiptRuleS3Action <$>-      (obj .: "BucketName") <*>-      (obj .:? "KmsKeyArn") <*>-      (obj .:? "ObjectKeyPrefix") <*>-      (obj .:? "TopicArn")-  parseJSON _ = mempty- -- | Constructor for 'SESReceiptRuleS3Action' containing required fields as -- arguments. sesReceiptRuleS3Action
library-gen/Stratosphere/ResourceProperties/SESReceiptRuleSNSAction.hs view
@@ -25,13 +25,6 @@     , fmap (("TopicArn",) . toJSON) _sESReceiptRuleSNSActionTopicArn     ] -instance FromJSON SESReceiptRuleSNSAction where-  parseJSON (Object obj) =-    SESReceiptRuleSNSAction <$>-      (obj .:? "Encoding") <*>-      (obj .:? "TopicArn")-  parseJSON _ = mempty- -- | Constructor for 'SESReceiptRuleSNSAction' containing required fields as -- arguments. sesReceiptRuleSNSAction
library-gen/Stratosphere/ResourceProperties/SESReceiptRuleStopAction.hs view
@@ -25,13 +25,6 @@     , fmap (("TopicArn",) . toJSON) _sESReceiptRuleStopActionTopicArn     ] -instance FromJSON SESReceiptRuleStopAction where-  parseJSON (Object obj) =-    SESReceiptRuleStopAction <$>-      (obj .: "Scope") <*>-      (obj .:? "TopicArn")-  parseJSON _ = mempty- -- | Constructor for 'SESReceiptRuleStopAction' containing required fields as -- arguments. sesReceiptRuleStopAction
library-gen/Stratosphere/ResourceProperties/SESReceiptRuleWorkmailAction.hs view
@@ -25,13 +25,6 @@     , fmap (("TopicArn",) . toJSON) _sESReceiptRuleWorkmailActionTopicArn     ] -instance FromJSON SESReceiptRuleWorkmailAction where-  parseJSON (Object obj) =-    SESReceiptRuleWorkmailAction <$>-      (obj .: "OrganizationArn") <*>-      (obj .:? "TopicArn")-  parseJSON _ = mempty- -- | Constructor for 'SESReceiptRuleWorkmailAction' containing required fields -- as arguments. sesReceiptRuleWorkmailAction
library-gen/Stratosphere/ResourceProperties/SESTemplateTemplate.hs view
@@ -29,15 +29,6 @@     , fmap (("TextPart",) . toJSON) _sESTemplateTemplateTextPart     ] -instance FromJSON SESTemplateTemplate where-  parseJSON (Object obj) =-    SESTemplateTemplate <$>-      (obj .:? "HtmlPart") <*>-      (obj .:? "SubjectPart") <*>-      (obj .:? "TemplateName") <*>-      (obj .:? "TextPart")-  parseJSON _ = mempty- -- | Constructor for 'SESTemplateTemplate' containing required fields as -- arguments. sesTemplateTemplate
library-gen/Stratosphere/ResourceProperties/SNSTopicSubscription.hs view
@@ -25,13 +25,6 @@     , (Just . ("Protocol",) . toJSON) _sNSTopicSubscriptionProtocol     ] -instance FromJSON SNSTopicSubscription where-  parseJSON (Object obj) =-    SNSTopicSubscription <$>-      (obj .: "Endpoint") <*>-      (obj .: "Protocol")-  parseJSON _ = mempty- -- | Constructor for 'SNSTopicSubscription' containing required fields as -- arguments. snsTopicSubscription
library-gen/Stratosphere/ResourceProperties/SSMAssociationInstanceAssociationOutputLocation.hs view
@@ -25,12 +25,6 @@     [ fmap (("S3Location",) . toJSON) _sSMAssociationInstanceAssociationOutputLocationS3Location     ] -instance FromJSON SSMAssociationInstanceAssociationOutputLocation where-  parseJSON (Object obj) =-    SSMAssociationInstanceAssociationOutputLocation <$>-      (obj .:? "S3Location")-  parseJSON _ = mempty- -- | Constructor for 'SSMAssociationInstanceAssociationOutputLocation' -- containing required fields as arguments. ssmAssociationInstanceAssociationOutputLocation
library-gen/Stratosphere/ResourceProperties/SSMAssociationParameterValues.hs view
@@ -23,12 +23,6 @@     [ (Just . ("ParameterValues",) . toJSON) _sSMAssociationParameterValuesParameterValues     ] -instance FromJSON SSMAssociationParameterValues where-  parseJSON (Object obj) =-    SSMAssociationParameterValues <$>-      (obj .: "ParameterValues")-  parseJSON _ = mempty- -- | Constructor for 'SSMAssociationParameterValues' containing required -- fields as arguments. ssmAssociationParameterValues
library-gen/Stratosphere/ResourceProperties/SSMAssociationS3OutputLocation.hs view
@@ -25,13 +25,6 @@     , fmap (("OutputS3KeyPrefix",) . toJSON) _sSMAssociationS3OutputLocationOutputS3KeyPrefix     ] -instance FromJSON SSMAssociationS3OutputLocation where-  parseJSON (Object obj) =-    SSMAssociationS3OutputLocation <$>-      (obj .:? "OutputS3BucketName") <*>-      (obj .:? "OutputS3KeyPrefix")-  parseJSON _ = mempty- -- | Constructor for 'SSMAssociationS3OutputLocation' containing required -- fields as arguments. ssmAssociationS3OutputLocation
library-gen/Stratosphere/ResourceProperties/SSMAssociationTarget.hs view
@@ -25,13 +25,6 @@     , (Just . ("Values",) . toJSON) _sSMAssociationTargetValues     ] -instance FromJSON SSMAssociationTarget where-  parseJSON (Object obj) =-    SSMAssociationTarget <$>-      (obj .: "Key") <*>-      (obj .: "Values")-  parseJSON _ = mempty- -- | Constructor for 'SSMAssociationTarget' containing required fields as -- arguments. ssmAssociationTarget
library-gen/Stratosphere/ResourceProperties/SSMMaintenanceWindowTaskLoggingInfo.hs view
@@ -27,14 +27,6 @@     , fmap (("S3Prefix",) . toJSON) _sSMMaintenanceWindowTaskLoggingInfoS3Prefix     ] -instance FromJSON SSMMaintenanceWindowTaskLoggingInfo where-  parseJSON (Object obj) =-    SSMMaintenanceWindowTaskLoggingInfo <$>-      (obj .: "Region") <*>-      (obj .: "S3Bucket") <*>-      (obj .:? "S3Prefix")-  parseJSON _ = mempty- -- | Constructor for 'SSMMaintenanceWindowTaskLoggingInfo' containing required -- fields as arguments. ssmMaintenanceWindowTaskLoggingInfo
library-gen/Stratosphere/ResourceProperties/SSMMaintenanceWindowTaskMaintenanceWindowAutomationParameters.hs view
@@ -27,13 +27,6 @@     , fmap (("Parameters",) . toJSON) _sSMMaintenanceWindowTaskMaintenanceWindowAutomationParametersParameters     ] -instance FromJSON SSMMaintenanceWindowTaskMaintenanceWindowAutomationParameters where-  parseJSON (Object obj) =-    SSMMaintenanceWindowTaskMaintenanceWindowAutomationParameters <$>-      (obj .:? "DocumentVersion") <*>-      (obj .:? "Parameters")-  parseJSON _ = mempty- -- | Constructor for -- 'SSMMaintenanceWindowTaskMaintenanceWindowAutomationParameters' -- containing required fields as arguments.
library-gen/Stratosphere/ResourceProperties/SSMMaintenanceWindowTaskMaintenanceWindowLambdaParameters.hs view
@@ -29,14 +29,6 @@     , fmap (("Qualifier",) . toJSON) _sSMMaintenanceWindowTaskMaintenanceWindowLambdaParametersQualifier     ] -instance FromJSON SSMMaintenanceWindowTaskMaintenanceWindowLambdaParameters where-  parseJSON (Object obj) =-    SSMMaintenanceWindowTaskMaintenanceWindowLambdaParameters <$>-      (obj .:? "ClientContext") <*>-      (obj .:? "Payload") <*>-      (obj .:? "Qualifier")-  parseJSON _ = mempty- -- | Constructor for -- 'SSMMaintenanceWindowTaskMaintenanceWindowLambdaParameters' containing -- required fields as arguments.
library-gen/Stratosphere/ResourceProperties/SSMMaintenanceWindowTaskMaintenanceWindowRunCommandParameters.hs view
@@ -41,20 +41,6 @@     , fmap (("TimeoutSeconds",) . toJSON . fmap Integer') _sSMMaintenanceWindowTaskMaintenanceWindowRunCommandParametersTimeoutSeconds     ] -instance FromJSON SSMMaintenanceWindowTaskMaintenanceWindowRunCommandParameters where-  parseJSON (Object obj) =-    SSMMaintenanceWindowTaskMaintenanceWindowRunCommandParameters <$>-      (obj .:? "Comment") <*>-      (obj .:? "DocumentHash") <*>-      (obj .:? "DocumentHashType") <*>-      (obj .:? "NotificationConfig") <*>-      (obj .:? "OutputS3BucketName") <*>-      (obj .:? "OutputS3KeyPrefix") <*>-      (obj .:? "Parameters") <*>-      (obj .:? "ServiceRoleArn") <*>-      fmap (fmap (fmap unInteger')) (obj .:? "TimeoutSeconds")-  parseJSON _ = mempty- -- | Constructor for -- 'SSMMaintenanceWindowTaskMaintenanceWindowRunCommandParameters' -- containing required fields as arguments.
library-gen/Stratosphere/ResourceProperties/SSMMaintenanceWindowTaskMaintenanceWindowStepFunctionsParameters.hs view
@@ -27,13 +27,6 @@     , fmap (("Name",) . toJSON) _sSMMaintenanceWindowTaskMaintenanceWindowStepFunctionsParametersName     ] -instance FromJSON SSMMaintenanceWindowTaskMaintenanceWindowStepFunctionsParameters where-  parseJSON (Object obj) =-    SSMMaintenanceWindowTaskMaintenanceWindowStepFunctionsParameters <$>-      (obj .:? "Input") <*>-      (obj .:? "Name")-  parseJSON _ = mempty- -- | Constructor for -- 'SSMMaintenanceWindowTaskMaintenanceWindowStepFunctionsParameters' -- containing required fields as arguments.
library-gen/Stratosphere/ResourceProperties/SSMMaintenanceWindowTaskNotificationConfig.hs view
@@ -28,14 +28,6 @@     , fmap (("NotificationType",) . toJSON) _sSMMaintenanceWindowTaskNotificationConfigNotificationType     ] -instance FromJSON SSMMaintenanceWindowTaskNotificationConfig where-  parseJSON (Object obj) =-    SSMMaintenanceWindowTaskNotificationConfig <$>-      (obj .: "NotificationArn") <*>-      (obj .:? "NotificationEvents") <*>-      (obj .:? "NotificationType")-  parseJSON _ = mempty- -- | Constructor for 'SSMMaintenanceWindowTaskNotificationConfig' containing -- required fields as arguments. ssmMaintenanceWindowTaskNotificationConfig
library-gen/Stratosphere/ResourceProperties/SSMMaintenanceWindowTaskTarget.hs view
@@ -25,13 +25,6 @@     , fmap (("Values",) . toJSON) _sSMMaintenanceWindowTaskTargetValues     ] -instance FromJSON SSMMaintenanceWindowTaskTarget where-  parseJSON (Object obj) =-    SSMMaintenanceWindowTaskTarget <$>-      (obj .: "Key") <*>-      (obj .:? "Values")-  parseJSON _ = mempty- -- | Constructor for 'SSMMaintenanceWindowTaskTarget' containing required -- fields as arguments. ssmMaintenanceWindowTaskTarget
library-gen/Stratosphere/ResourceProperties/SSMMaintenanceWindowTaskTaskInvocationParameters.hs view
@@ -34,15 +34,6 @@     , fmap (("MaintenanceWindowStepFunctionsParameters",) . toJSON) _sSMMaintenanceWindowTaskTaskInvocationParametersMaintenanceWindowStepFunctionsParameters     ] -instance FromJSON SSMMaintenanceWindowTaskTaskInvocationParameters where-  parseJSON (Object obj) =-    SSMMaintenanceWindowTaskTaskInvocationParameters <$>-      (obj .:? "MaintenanceWindowAutomationParameters") <*>-      (obj .:? "MaintenanceWindowLambdaParameters") <*>-      (obj .:? "MaintenanceWindowRunCommandParameters") <*>-      (obj .:? "MaintenanceWindowStepFunctionsParameters")-  parseJSON _ = mempty- -- | Constructor for 'SSMMaintenanceWindowTaskTaskInvocationParameters' -- containing required fields as arguments. ssmMaintenanceWindowTaskTaskInvocationParameters
library-gen/Stratosphere/ResourceProperties/SSMPatchBaselinePatchFilter.hs view
@@ -25,13 +25,6 @@     , fmap (("Values",) . toJSON) _sSMPatchBaselinePatchFilterValues     ] -instance FromJSON SSMPatchBaselinePatchFilter where-  parseJSON (Object obj) =-    SSMPatchBaselinePatchFilter <$>-      (obj .:? "Key") <*>-      (obj .:? "Values")-  parseJSON _ = mempty- -- | Constructor for 'SSMPatchBaselinePatchFilter' containing required fields -- as arguments. ssmPatchBaselinePatchFilter
library-gen/Stratosphere/ResourceProperties/SSMPatchBaselinePatchFilterGroup.hs view
@@ -23,12 +23,6 @@     [ fmap (("PatchFilters",) . toJSON) _sSMPatchBaselinePatchFilterGroupPatchFilters     ] -instance FromJSON SSMPatchBaselinePatchFilterGroup where-  parseJSON (Object obj) =-    SSMPatchBaselinePatchFilterGroup <$>-      (obj .:? "PatchFilters")-  parseJSON _ = mempty- -- | Constructor for 'SSMPatchBaselinePatchFilterGroup' containing required -- fields as arguments. ssmPatchBaselinePatchFilterGroup
library-gen/Stratosphere/ResourceProperties/SSMPatchBaselinePatchSource.hs view
@@ -27,14 +27,6 @@     , fmap (("Products",) . toJSON) _sSMPatchBaselinePatchSourceProducts     ] -instance FromJSON SSMPatchBaselinePatchSource where-  parseJSON (Object obj) =-    SSMPatchBaselinePatchSource <$>-      (obj .:? "Configuration") <*>-      (obj .:? "Name") <*>-      (obj .:? "Products")-  parseJSON _ = mempty- -- | Constructor for 'SSMPatchBaselinePatchSource' containing required fields -- as arguments. ssmPatchBaselinePatchSource
library-gen/Stratosphere/ResourceProperties/SSMPatchBaselineRule.hs view
@@ -29,15 +29,6 @@     , fmap (("PatchFilterGroup",) . toJSON) _sSMPatchBaselineRulePatchFilterGroup     ] -instance FromJSON SSMPatchBaselineRule where-  parseJSON (Object obj) =-    SSMPatchBaselineRule <$>-      fmap (fmap (fmap unInteger')) (obj .:? "ApproveAfterDays") <*>-      (obj .:? "ComplianceLevel") <*>-      fmap (fmap (fmap unBool')) (obj .:? "EnableNonSecurity") <*>-      (obj .:? "PatchFilterGroup")-  parseJSON _ = mempty- -- | Constructor for 'SSMPatchBaselineRule' containing required fields as -- arguments. ssmPatchBaselineRule
library-gen/Stratosphere/ResourceProperties/SSMPatchBaselineRuleGroup.hs view
@@ -23,12 +23,6 @@     [ fmap (("PatchRules",) . toJSON) _sSMPatchBaselineRuleGroupPatchRules     ] -instance FromJSON SSMPatchBaselineRuleGroup where-  parseJSON (Object obj) =-    SSMPatchBaselineRuleGroup <$>-      (obj .:? "PatchRules")-  parseJSON _ = mempty- -- | Constructor for 'SSMPatchBaselineRuleGroup' containing required fields as -- arguments. ssmPatchBaselineRuleGroup
library-gen/Stratosphere/ResourceProperties/SageMakerEndpointConfigProductionVariant.hs view
@@ -34,17 +34,6 @@     , (Just . ("VariantName",) . toJSON) _sageMakerEndpointConfigProductionVariantVariantName     ] -instance FromJSON SageMakerEndpointConfigProductionVariant where-  parseJSON (Object obj) =-    SageMakerEndpointConfigProductionVariant <$>-      (obj .:? "AcceleratorType") <*>-      fmap (fmap unInteger') (obj .: "InitialInstanceCount") <*>-      fmap (fmap unDouble') (obj .: "InitialVariantWeight") <*>-      (obj .: "InstanceType") <*>-      (obj .: "ModelName") <*>-      (obj .: "VariantName")-  parseJSON _ = mempty- -- | Constructor for 'SageMakerEndpointConfigProductionVariant' containing -- required fields as arguments. sageMakerEndpointConfigProductionVariant
library-gen/Stratosphere/ResourceProperties/SageMakerModelContainerDefinition.hs view
@@ -29,15 +29,6 @@     , fmap (("ModelDataUrl",) . toJSON) _sageMakerModelContainerDefinitionModelDataUrl     ] -instance FromJSON SageMakerModelContainerDefinition where-  parseJSON (Object obj) =-    SageMakerModelContainerDefinition <$>-      (obj .:? "ContainerHostname") <*>-      (obj .:? "Environment") <*>-      (obj .: "Image") <*>-      (obj .:? "ModelDataUrl")-  parseJSON _ = mempty- -- | Constructor for 'SageMakerModelContainerDefinition' containing required -- fields as arguments. sageMakerModelContainerDefinition
library-gen/Stratosphere/ResourceProperties/SageMakerModelVpcConfig.hs view
@@ -25,13 +25,6 @@     , (Just . ("Subnets",) . toJSON) _sageMakerModelVpcConfigSubnets     ] -instance FromJSON SageMakerModelVpcConfig where-  parseJSON (Object obj) =-    SageMakerModelVpcConfig <$>-      (obj .: "SecurityGroupIds") <*>-      (obj .: "Subnets")-  parseJSON _ = mempty- -- | Constructor for 'SageMakerModelVpcConfig' containing required fields as -- arguments. sageMakerModelVpcConfig
library-gen/Stratosphere/ResourceProperties/SageMakerNotebookInstanceLifecycleConfigNotebookInstanceLifecycleHook.hs view
@@ -26,12 +26,6 @@     [ fmap (("Content",) . toJSON) _sageMakerNotebookInstanceLifecycleConfigNotebookInstanceLifecycleHookContent     ] -instance FromJSON SageMakerNotebookInstanceLifecycleConfigNotebookInstanceLifecycleHook where-  parseJSON (Object obj) =-    SageMakerNotebookInstanceLifecycleConfigNotebookInstanceLifecycleHook <$>-      (obj .:? "Content")-  parseJSON _ = mempty- -- | Constructor for -- 'SageMakerNotebookInstanceLifecycleConfigNotebookInstanceLifecycleHook' -- containing required fields as arguments.
library-gen/Stratosphere/ResourceProperties/SecretsManagerRotationScheduleRotationRules.hs view
@@ -25,12 +25,6 @@     [ fmap (("AutomaticallyAfterDays",) . toJSON . fmap Integer') _secretsManagerRotationScheduleRotationRulesAutomaticallyAfterDays     ] -instance FromJSON SecretsManagerRotationScheduleRotationRules where-  parseJSON (Object obj) =-    SecretsManagerRotationScheduleRotationRules <$>-      fmap (fmap (fmap unInteger')) (obj .:? "AutomaticallyAfterDays")-  parseJSON _ = mempty- -- | Constructor for 'SecretsManagerRotationScheduleRotationRules' containing -- required fields as arguments. secretsManagerRotationScheduleRotationRules
library-gen/Stratosphere/ResourceProperties/SecretsManagerSecretGenerateSecretString.hs view
@@ -42,21 +42,6 @@     , fmap (("SecretStringTemplate",) . toJSON) _secretsManagerSecretGenerateSecretStringSecretStringTemplate     ] -instance FromJSON SecretsManagerSecretGenerateSecretString where-  parseJSON (Object obj) =-    SecretsManagerSecretGenerateSecretString <$>-      (obj .:? "ExcludeCharacters") <*>-      fmap (fmap (fmap unBool')) (obj .:? "ExcludeLowercase") <*>-      fmap (fmap (fmap unBool')) (obj .:? "ExcludeNumbers") <*>-      fmap (fmap (fmap unBool')) (obj .:? "ExcludePunctuation") <*>-      fmap (fmap (fmap unBool')) (obj .:? "ExcludeUppercase") <*>-      (obj .:? "GenerateStringKey") <*>-      fmap (fmap (fmap unBool')) (obj .:? "IncludeSpace") <*>-      fmap (fmap (fmap unInteger')) (obj .:? "PasswordLength") <*>-      fmap (fmap (fmap unBool')) (obj .:? "RequireEachIncludedType") <*>-      (obj .:? "SecretStringTemplate")-  parseJSON _ = mempty- -- | Constructor for 'SecretsManagerSecretGenerateSecretString' containing -- required fields as arguments. secretsManagerSecretGenerateSecretString
library-gen/Stratosphere/ResourceProperties/ServiceCatalogCloudFormationProductProvisioningArtifactProperties.hs view
@@ -29,14 +29,6 @@     , fmap (("Name",) . toJSON) _serviceCatalogCloudFormationProductProvisioningArtifactPropertiesName     ] -instance FromJSON ServiceCatalogCloudFormationProductProvisioningArtifactProperties where-  parseJSON (Object obj) =-    ServiceCatalogCloudFormationProductProvisioningArtifactProperties <$>-      (obj .:? "Description") <*>-      (obj .: "Info") <*>-      (obj .:? "Name")-  parseJSON _ = mempty- -- | Constructor for -- 'ServiceCatalogCloudFormationProductProvisioningArtifactProperties' -- containing required fields as arguments.
library-gen/Stratosphere/ResourceProperties/ServiceCatalogCloudFormationProvisionedProductProvisioningParameter.hs view
@@ -27,13 +27,6 @@     , fmap (("Value",) . toJSON) _serviceCatalogCloudFormationProvisionedProductProvisioningParameterValue     ] -instance FromJSON ServiceCatalogCloudFormationProvisionedProductProvisioningParameter where-  parseJSON (Object obj) =-    ServiceCatalogCloudFormationProvisionedProductProvisioningParameter <$>-      (obj .:? "Key") <*>-      (obj .:? "Value")-  parseJSON _ = mempty- -- | Constructor for -- 'ServiceCatalogCloudFormationProvisionedProductProvisioningParameter' -- containing required fields as arguments.
library-gen/Stratosphere/ResourceProperties/ServiceDiscoveryServiceDnsConfig.hs view
@@ -27,14 +27,6 @@     , fmap (("RoutingPolicy",) . toJSON) _serviceDiscoveryServiceDnsConfigRoutingPolicy     ] -instance FromJSON ServiceDiscoveryServiceDnsConfig where-  parseJSON (Object obj) =-    ServiceDiscoveryServiceDnsConfig <$>-      (obj .: "DnsRecords") <*>-      (obj .:? "NamespaceId") <*>-      (obj .:? "RoutingPolicy")-  parseJSON _ = mempty- -- | Constructor for 'ServiceDiscoveryServiceDnsConfig' containing required -- fields as arguments. serviceDiscoveryServiceDnsConfig
library-gen/Stratosphere/ResourceProperties/ServiceDiscoveryServiceDnsRecord.hs view
@@ -25,13 +25,6 @@     , (Just . ("Type",) . toJSON) _serviceDiscoveryServiceDnsRecordType     ] -instance FromJSON ServiceDiscoveryServiceDnsRecord where-  parseJSON (Object obj) =-    ServiceDiscoveryServiceDnsRecord <$>-      (obj .: "TTL") <*>-      (obj .: "Type")-  parseJSON _ = mempty- -- | Constructor for 'ServiceDiscoveryServiceDnsRecord' containing required -- fields as arguments. serviceDiscoveryServiceDnsRecord
library-gen/Stratosphere/ResourceProperties/ServiceDiscoveryServiceHealthCheckConfig.hs view
@@ -28,14 +28,6 @@     , (Just . ("Type",) . toJSON) _serviceDiscoveryServiceHealthCheckConfigType     ] -instance FromJSON ServiceDiscoveryServiceHealthCheckConfig where-  parseJSON (Object obj) =-    ServiceDiscoveryServiceHealthCheckConfig <$>-      fmap (fmap (fmap unDouble')) (obj .:? "FailureThreshold") <*>-      (obj .:? "ResourcePath") <*>-      (obj .: "Type")-  parseJSON _ = mempty- -- | Constructor for 'ServiceDiscoveryServiceHealthCheckConfig' containing -- required fields as arguments. serviceDiscoveryServiceHealthCheckConfig
library-gen/Stratosphere/ResourceProperties/ServiceDiscoveryServiceHealthCheckCustomConfig.hs view
@@ -25,12 +25,6 @@     [ fmap (("FailureThreshold",) . toJSON . fmap Double') _serviceDiscoveryServiceHealthCheckCustomConfigFailureThreshold     ] -instance FromJSON ServiceDiscoveryServiceHealthCheckCustomConfig where-  parseJSON (Object obj) =-    ServiceDiscoveryServiceHealthCheckCustomConfig <$>-      fmap (fmap (fmap unDouble')) (obj .:? "FailureThreshold")-  parseJSON _ = mempty- -- | Constructor for 'ServiceDiscoveryServiceHealthCheckCustomConfig' -- containing required fields as arguments. serviceDiscoveryServiceHealthCheckCustomConfig
library-gen/Stratosphere/ResourceProperties/Tag.hs view
@@ -25,13 +25,6 @@     , (Just . ("Value",) . toJSON) _tagValue     ] -instance FromJSON Tag where-  parseJSON (Object obj) =-    Tag <$>-      (obj .: "Key") <*>-      (obj .: "Value")-  parseJSON _ = mempty- -- | Constructor for 'Tag' containing required fields as arguments. tag   :: Val Text -- ^ 'tagKey'
library-gen/Stratosphere/ResourceProperties/WAFByteMatchSetByteMatchTuple.hs view
@@ -31,16 +31,6 @@     , (Just . ("TextTransformation",) . toJSON) _wAFByteMatchSetByteMatchTupleTextTransformation     ] -instance FromJSON WAFByteMatchSetByteMatchTuple where-  parseJSON (Object obj) =-    WAFByteMatchSetByteMatchTuple <$>-      (obj .: "FieldToMatch") <*>-      (obj .: "PositionalConstraint") <*>-      (obj .:? "TargetString") <*>-      (obj .:? "TargetStringBase64") <*>-      (obj .: "TextTransformation")-  parseJSON _ = mempty- -- | Constructor for 'WAFByteMatchSetByteMatchTuple' containing required -- fields as arguments. wafByteMatchSetByteMatchTuple
library-gen/Stratosphere/ResourceProperties/WAFByteMatchSetFieldToMatch.hs view
@@ -25,13 +25,6 @@     , (Just . ("Type",) . toJSON) _wAFByteMatchSetFieldToMatchType     ] -instance FromJSON WAFByteMatchSetFieldToMatch where-  parseJSON (Object obj) =-    WAFByteMatchSetFieldToMatch <$>-      (obj .:? "Data") <*>-      (obj .: "Type")-  parseJSON _ = mempty- -- | Constructor for 'WAFByteMatchSetFieldToMatch' containing required fields -- as arguments. wafByteMatchSetFieldToMatch
library-gen/Stratosphere/ResourceProperties/WAFIPSetIPSetDescriptor.hs view
@@ -25,13 +25,6 @@     , (Just . ("Value",) . toJSON) _wAFIPSetIPSetDescriptorValue     ] -instance FromJSON WAFIPSetIPSetDescriptor where-  parseJSON (Object obj) =-    WAFIPSetIPSetDescriptor <$>-      (obj .: "Type") <*>-      (obj .: "Value")-  parseJSON _ = mempty- -- | Constructor for 'WAFIPSetIPSetDescriptor' containing required fields as -- arguments. wafipSetIPSetDescriptor
library-gen/Stratosphere/ResourceProperties/WAFRegionalByteMatchSetByteMatchTuple.hs view
@@ -32,16 +32,6 @@     , (Just . ("TextTransformation",) . toJSON) _wAFRegionalByteMatchSetByteMatchTupleTextTransformation     ] -instance FromJSON WAFRegionalByteMatchSetByteMatchTuple where-  parseJSON (Object obj) =-    WAFRegionalByteMatchSetByteMatchTuple <$>-      (obj .: "FieldToMatch") <*>-      (obj .: "PositionalConstraint") <*>-      (obj .:? "TargetString") <*>-      (obj .:? "TargetStringBase64") <*>-      (obj .: "TextTransformation")-  parseJSON _ = mempty- -- | Constructor for 'WAFRegionalByteMatchSetByteMatchTuple' containing -- required fields as arguments. wafRegionalByteMatchSetByteMatchTuple
library-gen/Stratosphere/ResourceProperties/WAFRegionalByteMatchSetFieldToMatch.hs view
@@ -25,13 +25,6 @@     , (Just . ("Type",) . toJSON) _wAFRegionalByteMatchSetFieldToMatchType     ] -instance FromJSON WAFRegionalByteMatchSetFieldToMatch where-  parseJSON (Object obj) =-    WAFRegionalByteMatchSetFieldToMatch <$>-      (obj .:? "Data") <*>-      (obj .: "Type")-  parseJSON _ = mempty- -- | Constructor for 'WAFRegionalByteMatchSetFieldToMatch' containing required -- fields as arguments. wafRegionalByteMatchSetFieldToMatch
library-gen/Stratosphere/ResourceProperties/WAFRegionalIPSetIPSetDescriptor.hs view
@@ -25,13 +25,6 @@     , (Just . ("Value",) . toJSON) _wAFRegionalIPSetIPSetDescriptorValue     ] -instance FromJSON WAFRegionalIPSetIPSetDescriptor where-  parseJSON (Object obj) =-    WAFRegionalIPSetIPSetDescriptor <$>-      (obj .: "Type") <*>-      (obj .: "Value")-  parseJSON _ = mempty- -- | Constructor for 'WAFRegionalIPSetIPSetDescriptor' containing required -- fields as arguments. wafRegionalIPSetIPSetDescriptor
library-gen/Stratosphere/ResourceProperties/WAFRegionalRulePredicate.hs view
@@ -27,14 +27,6 @@     , (Just . ("Type",) . toJSON) _wAFRegionalRulePredicateType     ] -instance FromJSON WAFRegionalRulePredicate where-  parseJSON (Object obj) =-    WAFRegionalRulePredicate <$>-      (obj .: "DataId") <*>-      fmap (fmap unBool') (obj .: "Negated") <*>-      (obj .: "Type")-  parseJSON _ = mempty- -- | Constructor for 'WAFRegionalRulePredicate' containing required fields as -- arguments. wafRegionalRulePredicate
library-gen/Stratosphere/ResourceProperties/WAFRegionalSizeConstraintSetFieldToMatch.hs view
@@ -26,13 +26,6 @@     , (Just . ("Type",) . toJSON) _wAFRegionalSizeConstraintSetFieldToMatchType     ] -instance FromJSON WAFRegionalSizeConstraintSetFieldToMatch where-  parseJSON (Object obj) =-    WAFRegionalSizeConstraintSetFieldToMatch <$>-      (obj .:? "Data") <*>-      (obj .: "Type")-  parseJSON _ = mempty- -- | Constructor for 'WAFRegionalSizeConstraintSetFieldToMatch' containing -- required fields as arguments. wafRegionalSizeConstraintSetFieldToMatch
library-gen/Stratosphere/ResourceProperties/WAFRegionalSizeConstraintSetSizeConstraint.hs view
@@ -30,15 +30,6 @@     , (Just . ("TextTransformation",) . toJSON) _wAFRegionalSizeConstraintSetSizeConstraintTextTransformation     ] -instance FromJSON WAFRegionalSizeConstraintSetSizeConstraint where-  parseJSON (Object obj) =-    WAFRegionalSizeConstraintSetSizeConstraint <$>-      (obj .: "ComparisonOperator") <*>-      (obj .: "FieldToMatch") <*>-      fmap (fmap unInteger') (obj .: "Size") <*>-      (obj .: "TextTransformation")-  parseJSON _ = mempty- -- | Constructor for 'WAFRegionalSizeConstraintSetSizeConstraint' containing -- required fields as arguments. wafRegionalSizeConstraintSetSizeConstraint
library-gen/Stratosphere/ResourceProperties/WAFRegionalSqlInjectionMatchSetFieldToMatch.hs view
@@ -27,13 +27,6 @@     , (Just . ("Type",) . toJSON) _wAFRegionalSqlInjectionMatchSetFieldToMatchType     ] -instance FromJSON WAFRegionalSqlInjectionMatchSetFieldToMatch where-  parseJSON (Object obj) =-    WAFRegionalSqlInjectionMatchSetFieldToMatch <$>-      (obj .:? "Data") <*>-      (obj .: "Type")-  parseJSON _ = mempty- -- | Constructor for 'WAFRegionalSqlInjectionMatchSetFieldToMatch' containing -- required fields as arguments. wafRegionalSqlInjectionMatchSetFieldToMatch
library-gen/Stratosphere/ResourceProperties/WAFRegionalSqlInjectionMatchSetSqlInjectionMatchTuple.hs view
@@ -27,13 +27,6 @@     , (Just . ("TextTransformation",) . toJSON) _wAFRegionalSqlInjectionMatchSetSqlInjectionMatchTupleTextTransformation     ] -instance FromJSON WAFRegionalSqlInjectionMatchSetSqlInjectionMatchTuple where-  parseJSON (Object obj) =-    WAFRegionalSqlInjectionMatchSetSqlInjectionMatchTuple <$>-      (obj .: "FieldToMatch") <*>-      (obj .: "TextTransformation")-  parseJSON _ = mempty- -- | Constructor for 'WAFRegionalSqlInjectionMatchSetSqlInjectionMatchTuple' -- containing required fields as arguments. wafRegionalSqlInjectionMatchSetSqlInjectionMatchTuple
library-gen/Stratosphere/ResourceProperties/WAFRegionalWebACLAction.hs view
@@ -23,12 +23,6 @@     [ (Just . ("Type",) . toJSON) _wAFRegionalWebACLActionType     ] -instance FromJSON WAFRegionalWebACLAction where-  parseJSON (Object obj) =-    WAFRegionalWebACLAction <$>-      (obj .: "Type")-  parseJSON _ = mempty- -- | Constructor for 'WAFRegionalWebACLAction' containing required fields as -- arguments. wafRegionalWebACLAction
library-gen/Stratosphere/ResourceProperties/WAFRegionalWebACLRule.hs view
@@ -27,14 +27,6 @@     , (Just . ("RuleId",) . toJSON) _wAFRegionalWebACLRuleRuleId     ] -instance FromJSON WAFRegionalWebACLRule where-  parseJSON (Object obj) =-    WAFRegionalWebACLRule <$>-      (obj .: "Action") <*>-      fmap (fmap unInteger') (obj .: "Priority") <*>-      (obj .: "RuleId")-  parseJSON _ = mempty- -- | Constructor for 'WAFRegionalWebACLRule' containing required fields as -- arguments. wafRegionalWebACLRule
library-gen/Stratosphere/ResourceProperties/WAFRegionalXssMatchSetFieldToMatch.hs view
@@ -25,13 +25,6 @@     , (Just . ("Type",) . toJSON) _wAFRegionalXssMatchSetFieldToMatchType     ] -instance FromJSON WAFRegionalXssMatchSetFieldToMatch where-  parseJSON (Object obj) =-    WAFRegionalXssMatchSetFieldToMatch <$>-      (obj .:? "Data") <*>-      (obj .: "Type")-  parseJSON _ = mempty- -- | Constructor for 'WAFRegionalXssMatchSetFieldToMatch' containing required -- fields as arguments. wafRegionalXssMatchSetFieldToMatch
library-gen/Stratosphere/ResourceProperties/WAFRegionalXssMatchSetXssMatchTuple.hs view
@@ -25,13 +25,6 @@     , (Just . ("TextTransformation",) . toJSON) _wAFRegionalXssMatchSetXssMatchTupleTextTransformation     ] -instance FromJSON WAFRegionalXssMatchSetXssMatchTuple where-  parseJSON (Object obj) =-    WAFRegionalXssMatchSetXssMatchTuple <$>-      (obj .: "FieldToMatch") <*>-      (obj .: "TextTransformation")-  parseJSON _ = mempty- -- | Constructor for 'WAFRegionalXssMatchSetXssMatchTuple' containing required -- fields as arguments. wafRegionalXssMatchSetXssMatchTuple
library-gen/Stratosphere/ResourceProperties/WAFRulePredicate.hs view
@@ -27,14 +27,6 @@     , (Just . ("Type",) . toJSON) _wAFRulePredicateType     ] -instance FromJSON WAFRulePredicate where-  parseJSON (Object obj) =-    WAFRulePredicate <$>-      (obj .: "DataId") <*>-      fmap (fmap unBool') (obj .: "Negated") <*>-      (obj .: "Type")-  parseJSON _ = mempty- -- | Constructor for 'WAFRulePredicate' containing required fields as -- arguments. wafRulePredicate
library-gen/Stratosphere/ResourceProperties/WAFSizeConstraintSetFieldToMatch.hs view
@@ -25,13 +25,6 @@     , (Just . ("Type",) . toJSON) _wAFSizeConstraintSetFieldToMatchType     ] -instance FromJSON WAFSizeConstraintSetFieldToMatch where-  parseJSON (Object obj) =-    WAFSizeConstraintSetFieldToMatch <$>-      (obj .:? "Data") <*>-      (obj .: "Type")-  parseJSON _ = mempty- -- | Constructor for 'WAFSizeConstraintSetFieldToMatch' containing required -- fields as arguments. wafSizeConstraintSetFieldToMatch
library-gen/Stratosphere/ResourceProperties/WAFSizeConstraintSetSizeConstraint.hs view
@@ -29,15 +29,6 @@     , (Just . ("TextTransformation",) . toJSON) _wAFSizeConstraintSetSizeConstraintTextTransformation     ] -instance FromJSON WAFSizeConstraintSetSizeConstraint where-  parseJSON (Object obj) =-    WAFSizeConstraintSetSizeConstraint <$>-      (obj .: "ComparisonOperator") <*>-      (obj .: "FieldToMatch") <*>-      fmap (fmap unInteger') (obj .: "Size") <*>-      (obj .: "TextTransformation")-  parseJSON _ = mempty- -- | Constructor for 'WAFSizeConstraintSetSizeConstraint' containing required -- fields as arguments. wafSizeConstraintSetSizeConstraint
library-gen/Stratosphere/ResourceProperties/WAFSqlInjectionMatchSetFieldToMatch.hs view
@@ -25,13 +25,6 @@     , (Just . ("Type",) . toJSON) _wAFSqlInjectionMatchSetFieldToMatchType     ] -instance FromJSON WAFSqlInjectionMatchSetFieldToMatch where-  parseJSON (Object obj) =-    WAFSqlInjectionMatchSetFieldToMatch <$>-      (obj .:? "Data") <*>-      (obj .: "Type")-  parseJSON _ = mempty- -- | Constructor for 'WAFSqlInjectionMatchSetFieldToMatch' containing required -- fields as arguments. wafSqlInjectionMatchSetFieldToMatch
library-gen/Stratosphere/ResourceProperties/WAFSqlInjectionMatchSetSqlInjectionMatchTuple.hs view
@@ -27,13 +27,6 @@     , (Just . ("TextTransformation",) . toJSON) _wAFSqlInjectionMatchSetSqlInjectionMatchTupleTextTransformation     ] -instance FromJSON WAFSqlInjectionMatchSetSqlInjectionMatchTuple where-  parseJSON (Object obj) =-    WAFSqlInjectionMatchSetSqlInjectionMatchTuple <$>-      (obj .: "FieldToMatch") <*>-      (obj .: "TextTransformation")-  parseJSON _ = mempty- -- | Constructor for 'WAFSqlInjectionMatchSetSqlInjectionMatchTuple' -- containing required fields as arguments. wafSqlInjectionMatchSetSqlInjectionMatchTuple
library-gen/Stratosphere/ResourceProperties/WAFWebACLActivatedRule.hs view
@@ -27,14 +27,6 @@     , (Just . ("RuleId",) . toJSON) _wAFWebACLActivatedRuleRuleId     ] -instance FromJSON WAFWebACLActivatedRule where-  parseJSON (Object obj) =-    WAFWebACLActivatedRule <$>-      (obj .:? "Action") <*>-      fmap (fmap unInteger') (obj .: "Priority") <*>-      (obj .: "RuleId")-  parseJSON _ = mempty- -- | Constructor for 'WAFWebACLActivatedRule' containing required fields as -- arguments. wafWebACLActivatedRule
library-gen/Stratosphere/ResourceProperties/WAFWebACLWafAction.hs view
@@ -23,12 +23,6 @@     [ (Just . ("Type",) . toJSON) _wAFWebACLWafActionType     ] -instance FromJSON WAFWebACLWafAction where-  parseJSON (Object obj) =-    WAFWebACLWafAction <$>-      (obj .: "Type")-  parseJSON _ = mempty- -- | Constructor for 'WAFWebACLWafAction' containing required fields as -- arguments. wafWebACLWafAction
library-gen/Stratosphere/ResourceProperties/WAFXssMatchSetFieldToMatch.hs view
@@ -25,13 +25,6 @@     , (Just . ("Type",) . toJSON) _wAFXssMatchSetFieldToMatchType     ] -instance FromJSON WAFXssMatchSetFieldToMatch where-  parseJSON (Object obj) =-    WAFXssMatchSetFieldToMatch <$>-      (obj .:? "Data") <*>-      (obj .: "Type")-  parseJSON _ = mempty- -- | Constructor for 'WAFXssMatchSetFieldToMatch' containing required fields -- as arguments. wafXssMatchSetFieldToMatch
library-gen/Stratosphere/ResourceProperties/WAFXssMatchSetXssMatchTuple.hs view
@@ -25,13 +25,6 @@     , (Just . ("TextTransformation",) . toJSON) _wAFXssMatchSetXssMatchTupleTextTransformation     ] -instance FromJSON WAFXssMatchSetXssMatchTuple where-  parseJSON (Object obj) =-    WAFXssMatchSetXssMatchTuple <$>-      (obj .: "FieldToMatch") <*>-      (obj .: "TextTransformation")-  parseJSON _ = mempty- -- | Constructor for 'WAFXssMatchSetXssMatchTuple' containing required fields -- as arguments. wafXssMatchSetXssMatchTuple
library-gen/Stratosphere/ResourceProperties/WorkSpacesWorkspaceWorkspaceProperties.hs view
@@ -32,16 +32,6 @@     , fmap (("UserVolumeSizeGib",) . toJSON . fmap Integer') _workSpacesWorkspaceWorkspacePropertiesUserVolumeSizeGib     ] -instance FromJSON WorkSpacesWorkspaceWorkspaceProperties where-  parseJSON (Object obj) =-    WorkSpacesWorkspaceWorkspaceProperties <$>-      (obj .:? "ComputeTypeName") <*>-      fmap (fmap (fmap unInteger')) (obj .:? "RootVolumeSizeGib") <*>-      (obj .:? "RunningMode") <*>-      fmap (fmap (fmap unInteger')) (obj .:? "RunningModeAutoStopTimeoutInMinutes") <*>-      fmap (fmap (fmap unInteger')) (obj .:? "UserVolumeSizeGib")-  parseJSON _ = mempty- -- | Constructor for 'WorkSpacesWorkspaceWorkspaceProperties' containing -- required fields as arguments. workSpacesWorkspaceWorkspaceProperties
library-gen/Stratosphere/Resources.hs view
@@ -9,10 +9,6 @@ {-# LANGUAGE TemplateHaskell #-} {-# LANGUAGE TypeFamilies #-} -#if MIN_VERSION_GLASGOW_HASKELL(8,0,1,0)-{-# OPTIONS_GHC -fmax-pmcheck-iterations=40000000 #-}-#endif- -- | See: -- http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/resources-section-structure.html --@@ -1560,7 +1556,6 @@   deriving (Show, Eq, Generic)  instance ToJSON DeletionPolicy where-instance FromJSON DeletionPolicy where  data Resource =   Resource@@ -2336,383 +2331,6 @@   [ "Type" .= ("Alexa::ASK::Skill" :: String), "Properties" .= toJSON x]  -resourceFromJSON :: T.Text -> Object -> Parser Resource-resourceFromJSON n o =-    do type' <- o .: "Type" :: Parser String-       props <- case type' of-         "AWS::AmazonMQ::Broker" -> AmazonMQBrokerProperties <$> (o .: "Properties")-         "AWS::AmazonMQ::Configuration" -> AmazonMQConfigurationProperties <$> (o .: "Properties")-         "AWS::AmazonMQ::ConfigurationAssociation" -> AmazonMQConfigurationAssociationProperties <$> (o .: "Properties")-         "AWS::ApiGateway::Account" -> ApiGatewayAccountProperties <$> (o .: "Properties")-         "AWS::ApiGateway::ApiKey" -> ApiGatewayApiKeyProperties <$> (o .: "Properties")-         "AWS::ApiGateway::Authorizer" -> ApiGatewayAuthorizerProperties <$> (o .: "Properties")-         "AWS::ApiGateway::BasePathMapping" -> ApiGatewayBasePathMappingProperties <$> (o .: "Properties")-         "AWS::ApiGateway::ClientCertificate" -> ApiGatewayClientCertificateProperties <$> (o .: "Properties")-         "AWS::ApiGateway::Deployment" -> ApiGatewayDeploymentProperties <$> (o .: "Properties")-         "AWS::ApiGateway::DocumentationPart" -> ApiGatewayDocumentationPartProperties <$> (o .: "Properties")-         "AWS::ApiGateway::DocumentationVersion" -> ApiGatewayDocumentationVersionProperties <$> (o .: "Properties")-         "AWS::ApiGateway::DomainName" -> ApiGatewayDomainNameProperties <$> (o .: "Properties")-         "AWS::ApiGateway::GatewayResponse" -> ApiGatewayGatewayResponseProperties <$> (o .: "Properties")-         "AWS::ApiGateway::Method" -> ApiGatewayMethodProperties <$> (o .: "Properties")-         "AWS::ApiGateway::Model" -> ApiGatewayModelProperties <$> (o .: "Properties")-         "AWS::ApiGateway::RequestValidator" -> ApiGatewayRequestValidatorProperties <$> (o .: "Properties")-         "AWS::ApiGateway::Resource" -> ApiGatewayResourceProperties <$> (o .: "Properties")-         "AWS::ApiGateway::RestApi" -> ApiGatewayRestApiProperties <$> (o .: "Properties")-         "AWS::ApiGateway::Stage" -> ApiGatewayStageProperties <$> (o .: "Properties")-         "AWS::ApiGateway::UsagePlan" -> ApiGatewayUsagePlanProperties <$> (o .: "Properties")-         "AWS::ApiGateway::UsagePlanKey" -> ApiGatewayUsagePlanKeyProperties <$> (o .: "Properties")-         "AWS::ApiGateway::VpcLink" -> ApiGatewayVpcLinkProperties <$> (o .: "Properties")-         "AWS::ApiGatewayV2::Api" -> ApiGatewayV2ApiProperties <$> (o .: "Properties")-         "AWS::ApiGatewayV2::Authorizer" -> ApiGatewayV2AuthorizerProperties <$> (o .: "Properties")-         "AWS::ApiGatewayV2::Deployment" -> ApiGatewayV2DeploymentProperties <$> (o .: "Properties")-         "AWS::ApiGatewayV2::Integration" -> ApiGatewayV2IntegrationProperties <$> (o .: "Properties")-         "AWS::ApiGatewayV2::IntegrationResponse" -> ApiGatewayV2IntegrationResponseProperties <$> (o .: "Properties")-         "AWS::ApiGatewayV2::Model" -> ApiGatewayV2ModelProperties <$> (o .: "Properties")-         "AWS::ApiGatewayV2::Route" -> ApiGatewayV2RouteProperties <$> (o .: "Properties")-         "AWS::ApiGatewayV2::RouteResponse" -> ApiGatewayV2RouteResponseProperties <$> (o .: "Properties")-         "AWS::ApiGatewayV2::Stage" -> ApiGatewayV2StageProperties <$> (o .: "Properties")-         "AWS::AppStream::DirectoryConfig" -> AppStreamDirectoryConfigProperties <$> (o .: "Properties")-         "AWS::AppStream::Fleet" -> AppStreamFleetProperties <$> (o .: "Properties")-         "AWS::AppStream::ImageBuilder" -> AppStreamImageBuilderProperties <$> (o .: "Properties")-         "AWS::AppStream::Stack" -> AppStreamStackProperties <$> (o .: "Properties")-         "AWS::AppStream::StackFleetAssociation" -> AppStreamStackFleetAssociationProperties <$> (o .: "Properties")-         "AWS::AppStream::StackUserAssociation" -> AppStreamStackUserAssociationProperties <$> (o .: "Properties")-         "AWS::AppStream::User" -> AppStreamUserProperties <$> (o .: "Properties")-         "AWS::AppSync::ApiKey" -> AppSyncApiKeyProperties <$> (o .: "Properties")-         "AWS::AppSync::DataSource" -> AppSyncDataSourceProperties <$> (o .: "Properties")-         "AWS::AppSync::FunctionConfiguration" -> AppSyncFunctionConfigurationProperties <$> (o .: "Properties")-         "AWS::AppSync::GraphQLApi" -> AppSyncGraphQLApiProperties <$> (o .: "Properties")-         "AWS::AppSync::GraphQLSchema" -> AppSyncGraphQLSchemaProperties <$> (o .: "Properties")-         "AWS::AppSync::Resolver" -> AppSyncResolverProperties <$> (o .: "Properties")-         "AWS::ApplicationAutoScaling::ScalableTarget" -> ApplicationAutoScalingScalableTargetProperties <$> (o .: "Properties")-         "AWS::ApplicationAutoScaling::ScalingPolicy" -> ApplicationAutoScalingScalingPolicyProperties <$> (o .: "Properties")-         "AWS::Athena::NamedQuery" -> AthenaNamedQueryProperties <$> (o .: "Properties")-         "AWS::AutoScaling::AutoScalingGroup" -> AutoScalingAutoScalingGroupProperties <$> (o .: "Properties")-         "AWS::AutoScaling::LaunchConfiguration" -> AutoScalingLaunchConfigurationProperties <$> (o .: "Properties")-         "AWS::AutoScaling::LifecycleHook" -> AutoScalingLifecycleHookProperties <$> (o .: "Properties")-         "AWS::AutoScaling::ScalingPolicy" -> AutoScalingScalingPolicyProperties <$> (o .: "Properties")-         "AWS::AutoScaling::ScheduledAction" -> AutoScalingScheduledActionProperties <$> (o .: "Properties")-         "AWS::AutoScalingPlans::ScalingPlan" -> AutoScalingPlansScalingPlanProperties <$> (o .: "Properties")-         "AWS::Batch::ComputeEnvironment" -> BatchComputeEnvironmentProperties <$> (o .: "Properties")-         "AWS::Batch::JobDefinition" -> BatchJobDefinitionProperties <$> (o .: "Properties")-         "AWS::Batch::JobQueue" -> BatchJobQueueProperties <$> (o .: "Properties")-         "AWS::Budgets::Budget" -> BudgetsBudgetProperties <$> (o .: "Properties")-         "AWS::CertificateManager::Certificate" -> CertificateManagerCertificateProperties <$> (o .: "Properties")-         "AWS::Cloud9::EnvironmentEC2" -> Cloud9EnvironmentEC2Properties <$> (o .: "Properties")-         "AWS::CloudFormation::CustomResource" -> CloudFormationCustomResourceProperties <$> (o .: "Properties")-         "AWS::CloudFormation::Macro" -> CloudFormationMacroProperties <$> (o .: "Properties")-         "AWS::CloudFormation::Stack" -> CloudFormationStackProperties <$> (o .: "Properties")-         "AWS::CloudFormation::WaitCondition" -> CloudFormationWaitConditionProperties <$> (o .: "Properties")-         "AWS::CloudFormation::WaitConditionHandle" -> CloudFormationWaitConditionHandleProperties <$> (o .: "Properties")-         "AWS::CloudFront::CloudFrontOriginAccessIdentity" -> CloudFrontCloudFrontOriginAccessIdentityProperties <$> (o .: "Properties")-         "AWS::CloudFront::Distribution" -> CloudFrontDistributionProperties <$> (o .: "Properties")-         "AWS::CloudFront::StreamingDistribution" -> CloudFrontStreamingDistributionProperties <$> (o .: "Properties")-         "AWS::CloudTrail::Trail" -> CloudTrailTrailProperties <$> (o .: "Properties")-         "AWS::CloudWatch::Alarm" -> CloudWatchAlarmProperties <$> (o .: "Properties")-         "AWS::CloudWatch::Dashboard" -> CloudWatchDashboardProperties <$> (o .: "Properties")-         "AWS::CodeBuild::Project" -> CodeBuildProjectProperties <$> (o .: "Properties")-         "AWS::CodeCommit::Repository" -> CodeCommitRepositoryProperties <$> (o .: "Properties")-         "AWS::CodeDeploy::Application" -> CodeDeployApplicationProperties <$> (o .: "Properties")-         "AWS::CodeDeploy::DeploymentConfig" -> CodeDeployDeploymentConfigProperties <$> (o .: "Properties")-         "AWS::CodeDeploy::DeploymentGroup" -> CodeDeployDeploymentGroupProperties <$> (o .: "Properties")-         "AWS::CodePipeline::CustomActionType" -> CodePipelineCustomActionTypeProperties <$> (o .: "Properties")-         "AWS::CodePipeline::Pipeline" -> CodePipelinePipelineProperties <$> (o .: "Properties")-         "AWS::CodePipeline::Webhook" -> CodePipelineWebhookProperties <$> (o .: "Properties")-         "AWS::Cognito::IdentityPool" -> CognitoIdentityPoolProperties <$> (o .: "Properties")-         "AWS::Cognito::IdentityPoolRoleAttachment" -> CognitoIdentityPoolRoleAttachmentProperties <$> (o .: "Properties")-         "AWS::Cognito::UserPool" -> CognitoUserPoolProperties <$> (o .: "Properties")-         "AWS::Cognito::UserPoolClient" -> CognitoUserPoolClientProperties <$> (o .: "Properties")-         "AWS::Cognito::UserPoolGroup" -> CognitoUserPoolGroupProperties <$> (o .: "Properties")-         "AWS::Cognito::UserPoolUser" -> CognitoUserPoolUserProperties <$> (o .: "Properties")-         "AWS::Cognito::UserPoolUserToGroupAttachment" -> CognitoUserPoolUserToGroupAttachmentProperties <$> (o .: "Properties")-         "AWS::Config::AggregationAuthorization" -> ConfigAggregationAuthorizationProperties <$> (o .: "Properties")-         "AWS::Config::ConfigRule" -> ConfigConfigRuleProperties <$> (o .: "Properties")-         "AWS::Config::ConfigurationAggregator" -> ConfigConfigurationAggregatorProperties <$> (o .: "Properties")-         "AWS::Config::ConfigurationRecorder" -> ConfigConfigurationRecorderProperties <$> (o .: "Properties")-         "AWS::Config::DeliveryChannel" -> ConfigDeliveryChannelProperties <$> (o .: "Properties")-         "AWS::DAX::Cluster" -> DAXClusterProperties <$> (o .: "Properties")-         "AWS::DAX::ParameterGroup" -> DAXParameterGroupProperties <$> (o .: "Properties")-         "AWS::DAX::SubnetGroup" -> DAXSubnetGroupProperties <$> (o .: "Properties")-         "AWS::DLM::LifecyclePolicy" -> DLMLifecyclePolicyProperties <$> (o .: "Properties")-         "AWS::DMS::Certificate" -> DMSCertificateProperties <$> (o .: "Properties")-         "AWS::DMS::Endpoint" -> DMSEndpointProperties <$> (o .: "Properties")-         "AWS::DMS::EventSubscription" -> DMSEventSubscriptionProperties <$> (o .: "Properties")-         "AWS::DMS::ReplicationInstance" -> DMSReplicationInstanceProperties <$> (o .: "Properties")-         "AWS::DMS::ReplicationSubnetGroup" -> DMSReplicationSubnetGroupProperties <$> (o .: "Properties")-         "AWS::DMS::ReplicationTask" -> DMSReplicationTaskProperties <$> (o .: "Properties")-         "AWS::DataPipeline::Pipeline" -> DataPipelinePipelineProperties <$> (o .: "Properties")-         "AWS::DirectoryService::MicrosoftAD" -> DirectoryServiceMicrosoftADProperties <$> (o .: "Properties")-         "AWS::DirectoryService::SimpleAD" -> DirectoryServiceSimpleADProperties <$> (o .: "Properties")-         "AWS::DocDB::DBCluster" -> DocDBDBClusterProperties <$> (o .: "Properties")-         "AWS::DocDB::DBClusterParameterGroup" -> DocDBDBClusterParameterGroupProperties <$> (o .: "Properties")-         "AWS::DocDB::DBInstance" -> DocDBDBInstanceProperties <$> (o .: "Properties")-         "AWS::DocDB::DBSubnetGroup" -> DocDBDBSubnetGroupProperties <$> (o .: "Properties")-         "AWS::DynamoDB::Table" -> DynamoDBTableProperties <$> (o .: "Properties")-         "AWS::EC2::CustomerGateway" -> EC2CustomerGatewayProperties <$> (o .: "Properties")-         "AWS::EC2::DHCPOptions" -> EC2DHCPOptionsProperties <$> (o .: "Properties")-         "AWS::EC2::EC2Fleet" -> EC2EC2FleetProperties <$> (o .: "Properties")-         "AWS::EC2::EIP" -> EC2EIPProperties <$> (o .: "Properties")-         "AWS::EC2::EIPAssociation" -> EC2EIPAssociationProperties <$> (o .: "Properties")-         "AWS::EC2::EgressOnlyInternetGateway" -> EC2EgressOnlyInternetGatewayProperties <$> (o .: "Properties")-         "AWS::EC2::FlowLog" -> EC2FlowLogProperties <$> (o .: "Properties")-         "AWS::EC2::Host" -> EC2HostProperties <$> (o .: "Properties")-         "AWS::EC2::Instance" -> EC2InstanceProperties <$> (o .: "Properties")-         "AWS::EC2::InternetGateway" -> EC2InternetGatewayProperties <$> (o .: "Properties")-         "AWS::EC2::LaunchTemplate" -> EC2LaunchTemplateProperties <$> (o .: "Properties")-         "AWS::EC2::NatGateway" -> EC2NatGatewayProperties <$> (o .: "Properties")-         "AWS::EC2::NetworkAcl" -> EC2NetworkAclProperties <$> (o .: "Properties")-         "AWS::EC2::NetworkAclEntry" -> EC2NetworkAclEntryProperties <$> (o .: "Properties")-         "AWS::EC2::NetworkInterface" -> EC2NetworkInterfaceProperties <$> (o .: "Properties")-         "AWS::EC2::NetworkInterfaceAttachment" -> EC2NetworkInterfaceAttachmentProperties <$> (o .: "Properties")-         "AWS::EC2::NetworkInterfacePermission" -> EC2NetworkInterfacePermissionProperties <$> (o .: "Properties")-         "AWS::EC2::PlacementGroup" -> EC2PlacementGroupProperties <$> (o .: "Properties")-         "AWS::EC2::Route" -> EC2RouteProperties <$> (o .: "Properties")-         "AWS::EC2::RouteTable" -> EC2RouteTableProperties <$> (o .: "Properties")-         "AWS::EC2::SecurityGroup" -> EC2SecurityGroupProperties <$> (o .: "Properties")-         "AWS::EC2::SecurityGroupEgress" -> EC2SecurityGroupEgressProperties <$> (o .: "Properties")-         "AWS::EC2::SecurityGroupIngress" -> EC2SecurityGroupIngressProperties <$> (o .: "Properties")-         "AWS::EC2::SpotFleet" -> EC2SpotFleetProperties <$> (o .: "Properties")-         "AWS::EC2::Subnet" -> EC2SubnetProperties <$> (o .: "Properties")-         "AWS::EC2::SubnetCidrBlock" -> EC2SubnetCidrBlockProperties <$> (o .: "Properties")-         "AWS::EC2::SubnetNetworkAclAssociation" -> EC2SubnetNetworkAclAssociationProperties <$> (o .: "Properties")-         "AWS::EC2::SubnetRouteTableAssociation" -> EC2SubnetRouteTableAssociationProperties <$> (o .: "Properties")-         "AWS::EC2::TransitGateway" -> EC2TransitGatewayProperties <$> (o .: "Properties")-         "AWS::EC2::TransitGatewayAttachment" -> EC2TransitGatewayAttachmentProperties <$> (o .: "Properties")-         "AWS::EC2::TransitGatewayRoute" -> EC2TransitGatewayRouteProperties <$> (o .: "Properties")-         "AWS::EC2::TransitGatewayRouteTable" -> EC2TransitGatewayRouteTableProperties <$> (o .: "Properties")-         "AWS::EC2::TransitGatewayRouteTableAssociation" -> EC2TransitGatewayRouteTableAssociationProperties <$> (o .: "Properties")-         "AWS::EC2::TransitGatewayRouteTablePropagation" -> EC2TransitGatewayRouteTablePropagationProperties <$> (o .: "Properties")-         "AWS::EC2::TrunkInterfaceAssociation" -> EC2TrunkInterfaceAssociationProperties <$> (o .: "Properties")-         "AWS::EC2::VPC" -> EC2VPCProperties <$> (o .: "Properties")-         "AWS::EC2::VPCCidrBlock" -> EC2VPCCidrBlockProperties <$> (o .: "Properties")-         "AWS::EC2::VPCDHCPOptionsAssociation" -> EC2VPCDHCPOptionsAssociationProperties <$> (o .: "Properties")-         "AWS::EC2::VPCEndpoint" -> EC2VPCEndpointProperties <$> (o .: "Properties")-         "AWS::EC2::VPCEndpointConnectionNotification" -> EC2VPCEndpointConnectionNotificationProperties <$> (o .: "Properties")-         "AWS::EC2::VPCEndpointServicePermissions" -> EC2VPCEndpointServicePermissionsProperties <$> (o .: "Properties")-         "AWS::EC2::VPCGatewayAttachment" -> EC2VPCGatewayAttachmentProperties <$> (o .: "Properties")-         "AWS::EC2::VPCPeeringConnection" -> EC2VPCPeeringConnectionProperties <$> (o .: "Properties")-         "AWS::EC2::VPNConnection" -> EC2VPNConnectionProperties <$> (o .: "Properties")-         "AWS::EC2::VPNConnectionRoute" -> EC2VPNConnectionRouteProperties <$> (o .: "Properties")-         "AWS::EC2::VPNGateway" -> EC2VPNGatewayProperties <$> (o .: "Properties")-         "AWS::EC2::VPNGatewayRoutePropagation" -> EC2VPNGatewayRoutePropagationProperties <$> (o .: "Properties")-         "AWS::EC2::Volume" -> EC2VolumeProperties <$> (o .: "Properties")-         "AWS::EC2::VolumeAttachment" -> EC2VolumeAttachmentProperties <$> (o .: "Properties")-         "AWS::ECR::Repository" -> ECRRepositoryProperties <$> (o .: "Properties")-         "AWS::ECS::Cluster" -> ECSClusterProperties <$> (o .: "Properties")-         "AWS::ECS::Service" -> ECSServiceProperties <$> (o .: "Properties")-         "AWS::ECS::TaskDefinition" -> ECSTaskDefinitionProperties <$> (o .: "Properties")-         "AWS::EFS::FileSystem" -> EFSFileSystemProperties <$> (o .: "Properties")-         "AWS::EFS::MountTarget" -> EFSMountTargetProperties <$> (o .: "Properties")-         "AWS::EKS::Cluster" -> EKSClusterProperties <$> (o .: "Properties")-         "AWS::EMR::Cluster" -> EMRClusterProperties <$> (o .: "Properties")-         "AWS::EMR::InstanceFleetConfig" -> EMRInstanceFleetConfigProperties <$> (o .: "Properties")-         "AWS::EMR::InstanceGroupConfig" -> EMRInstanceGroupConfigProperties <$> (o .: "Properties")-         "AWS::EMR::SecurityConfiguration" -> EMRSecurityConfigurationProperties <$> (o .: "Properties")-         "AWS::EMR::Step" -> EMRStepProperties <$> (o .: "Properties")-         "AWS::ElastiCache::CacheCluster" -> ElastiCacheCacheClusterProperties <$> (o .: "Properties")-         "AWS::ElastiCache::ParameterGroup" -> ElastiCacheParameterGroupProperties <$> (o .: "Properties")-         "AWS::ElastiCache::ReplicationGroup" -> ElastiCacheReplicationGroupProperties <$> (o .: "Properties")-         "AWS::ElastiCache::SecurityGroup" -> ElastiCacheSecurityGroupProperties <$> (o .: "Properties")-         "AWS::ElastiCache::SecurityGroupIngress" -> ElastiCacheSecurityGroupIngressProperties <$> (o .: "Properties")-         "AWS::ElastiCache::SubnetGroup" -> ElastiCacheSubnetGroupProperties <$> (o .: "Properties")-         "AWS::ElasticBeanstalk::Application" -> ElasticBeanstalkApplicationProperties <$> (o .: "Properties")-         "AWS::ElasticBeanstalk::ApplicationVersion" -> ElasticBeanstalkApplicationVersionProperties <$> (o .: "Properties")-         "AWS::ElasticBeanstalk::ConfigurationTemplate" -> ElasticBeanstalkConfigurationTemplateProperties <$> (o .: "Properties")-         "AWS::ElasticBeanstalk::Environment" -> ElasticBeanstalkEnvironmentProperties <$> (o .: "Properties")-         "AWS::ElasticLoadBalancing::LoadBalancer" -> ElasticLoadBalancingLoadBalancerProperties <$> (o .: "Properties")-         "AWS::ElasticLoadBalancingV2::Listener" -> ElasticLoadBalancingV2ListenerProperties <$> (o .: "Properties")-         "AWS::ElasticLoadBalancingV2::ListenerCertificate" -> ElasticLoadBalancingV2ListenerCertificateResourceProperties <$> (o .: "Properties")-         "AWS::ElasticLoadBalancingV2::ListenerRule" -> ElasticLoadBalancingV2ListenerRuleProperties <$> (o .: "Properties")-         "AWS::ElasticLoadBalancingV2::LoadBalancer" -> ElasticLoadBalancingV2LoadBalancerProperties <$> (o .: "Properties")-         "AWS::ElasticLoadBalancingV2::TargetGroup" -> ElasticLoadBalancingV2TargetGroupProperties <$> (o .: "Properties")-         "AWS::Elasticsearch::Domain" -> ElasticsearchDomainProperties <$> (o .: "Properties")-         "AWS::Events::EventBusPolicy" -> EventsEventBusPolicyProperties <$> (o .: "Properties")-         "AWS::Events::Rule" -> EventsRuleProperties <$> (o .: "Properties")-         "AWS::FSx::FileSystem" -> FSxFileSystemProperties <$> (o .: "Properties")-         "AWS::GameLift::Alias" -> GameLiftAliasProperties <$> (o .: "Properties")-         "AWS::GameLift::Build" -> GameLiftBuildProperties <$> (o .: "Properties")-         "AWS::GameLift::Fleet" -> GameLiftFleetProperties <$> (o .: "Properties")-         "AWS::Glue::Classifier" -> GlueClassifierProperties <$> (o .: "Properties")-         "AWS::Glue::Connection" -> GlueConnectionProperties <$> (o .: "Properties")-         "AWS::Glue::Crawler" -> GlueCrawlerProperties <$> (o .: "Properties")-         "AWS::Glue::Database" -> GlueDatabaseProperties <$> (o .: "Properties")-         "AWS::Glue::DevEndpoint" -> GlueDevEndpointProperties <$> (o .: "Properties")-         "AWS::Glue::Job" -> GlueJobProperties <$> (o .: "Properties")-         "AWS::Glue::Partition" -> GluePartitionProperties <$> (o .: "Properties")-         "AWS::Glue::Table" -> GlueTableProperties <$> (o .: "Properties")-         "AWS::Glue::Trigger" -> GlueTriggerProperties <$> (o .: "Properties")-         "AWS::GuardDuty::Detector" -> GuardDutyDetectorProperties <$> (o .: "Properties")-         "AWS::GuardDuty::Filter" -> GuardDutyFilterProperties <$> (o .: "Properties")-         "AWS::GuardDuty::IPSet" -> GuardDutyIPSetProperties <$> (o .: "Properties")-         "AWS::GuardDuty::Master" -> GuardDutyMasterProperties <$> (o .: "Properties")-         "AWS::GuardDuty::Member" -> GuardDutyMemberProperties <$> (o .: "Properties")-         "AWS::GuardDuty::ThreatIntelSet" -> GuardDutyThreatIntelSetProperties <$> (o .: "Properties")-         "AWS::IAM::AccessKey" -> IAMAccessKeyProperties <$> (o .: "Properties")-         "AWS::IAM::Group" -> IAMGroupProperties <$> (o .: "Properties")-         "AWS::IAM::InstanceProfile" -> IAMInstanceProfileProperties <$> (o .: "Properties")-         "AWS::IAM::ManagedPolicy" -> IAMManagedPolicyProperties <$> (o .: "Properties")-         "AWS::IAM::Policy" -> IAMPolicyProperties <$> (o .: "Properties")-         "AWS::IAM::Role" -> IAMRoleProperties <$> (o .: "Properties")-         "AWS::IAM::ServiceLinkedRole" -> IAMServiceLinkedRoleProperties <$> (o .: "Properties")-         "AWS::IAM::User" -> IAMUserProperties <$> (o .: "Properties")-         "AWS::IAM::UserToGroupAddition" -> IAMUserToGroupAdditionProperties <$> (o .: "Properties")-         "AWS::Inspector::AssessmentTarget" -> InspectorAssessmentTargetProperties <$> (o .: "Properties")-         "AWS::Inspector::AssessmentTemplate" -> InspectorAssessmentTemplateProperties <$> (o .: "Properties")-         "AWS::Inspector::ResourceGroup" -> InspectorResourceGroupProperties <$> (o .: "Properties")-         "AWS::IoT1Click::Device" -> IoT1ClickDeviceProperties <$> (o .: "Properties")-         "AWS::IoT1Click::Placement" -> IoT1ClickPlacementProperties <$> (o .: "Properties")-         "AWS::IoT1Click::Project" -> IoT1ClickProjectProperties <$> (o .: "Properties")-         "AWS::IoT::Certificate" -> IoTCertificateProperties <$> (o .: "Properties")-         "AWS::IoT::Policy" -> IoTPolicyProperties <$> (o .: "Properties")-         "AWS::IoT::PolicyPrincipalAttachment" -> IoTPolicyPrincipalAttachmentProperties <$> (o .: "Properties")-         "AWS::IoT::Thing" -> IoTThingProperties <$> (o .: "Properties")-         "AWS::IoT::ThingPrincipalAttachment" -> IoTThingPrincipalAttachmentProperties <$> (o .: "Properties")-         "AWS::IoT::TopicRule" -> IoTTopicRuleProperties <$> (o .: "Properties")-         "AWS::IoTAnalytics::Channel" -> IoTAnalyticsChannelProperties <$> (o .: "Properties")-         "AWS::IoTAnalytics::Dataset" -> IoTAnalyticsDatasetProperties <$> (o .: "Properties")-         "AWS::IoTAnalytics::Datastore" -> IoTAnalyticsDatastoreProperties <$> (o .: "Properties")-         "AWS::IoTAnalytics::Pipeline" -> IoTAnalyticsPipelineProperties <$> (o .: "Properties")-         "AWS::KMS::Alias" -> KMSAliasProperties <$> (o .: "Properties")-         "AWS::KMS::Key" -> KMSKeyProperties <$> (o .: "Properties")-         "AWS::Kinesis::Stream" -> KinesisStreamProperties <$> (o .: "Properties")-         "AWS::Kinesis::StreamConsumer" -> KinesisStreamConsumerProperties <$> (o .: "Properties")-         "AWS::KinesisAnalytics::Application" -> KinesisAnalyticsApplicationProperties <$> (o .: "Properties")-         "AWS::KinesisAnalytics::ApplicationOutput" -> KinesisAnalyticsApplicationOutputProperties <$> (o .: "Properties")-         "AWS::KinesisAnalytics::ApplicationReferenceDataSource" -> KinesisAnalyticsApplicationReferenceDataSourceProperties <$> (o .: "Properties")-         "AWS::KinesisAnalyticsV2::Application" -> KinesisAnalyticsV2ApplicationProperties <$> (o .: "Properties")-         "AWS::KinesisAnalyticsV2::ApplicationCloudWatchLoggingOption" -> KinesisAnalyticsV2ApplicationCloudWatchLoggingOptionProperties <$> (o .: "Properties")-         "AWS::KinesisAnalyticsV2::ApplicationOutput" -> KinesisAnalyticsV2ApplicationOutputProperties <$> (o .: "Properties")-         "AWS::KinesisAnalyticsV2::ApplicationReferenceDataSource" -> KinesisAnalyticsV2ApplicationReferenceDataSourceProperties <$> (o .: "Properties")-         "AWS::KinesisFirehose::DeliveryStream" -> KinesisFirehoseDeliveryStreamProperties <$> (o .: "Properties")-         "AWS::Lambda::Alias" -> LambdaAliasProperties <$> (o .: "Properties")-         "AWS::Lambda::EventSourceMapping" -> LambdaEventSourceMappingProperties <$> (o .: "Properties")-         "AWS::Lambda::Function" -> LambdaFunctionProperties <$> (o .: "Properties")-         "AWS::Lambda::LayerVersion" -> LambdaLayerVersionProperties <$> (o .: "Properties")-         "AWS::Lambda::LayerVersionPermission" -> LambdaLayerVersionPermissionProperties <$> (o .: "Properties")-         "AWS::Lambda::Permission" -> LambdaPermissionProperties <$> (o .: "Properties")-         "AWS::Lambda::Version" -> LambdaVersionProperties <$> (o .: "Properties")-         "AWS::Logs::Destination" -> LogsDestinationProperties <$> (o .: "Properties")-         "AWS::Logs::LogGroup" -> LogsLogGroupProperties <$> (o .: "Properties")-         "AWS::Logs::LogStream" -> LogsLogStreamProperties <$> (o .: "Properties")-         "AWS::Logs::MetricFilter" -> LogsMetricFilterProperties <$> (o .: "Properties")-         "AWS::Logs::SubscriptionFilter" -> LogsSubscriptionFilterProperties <$> (o .: "Properties")-         "AWS::Neptune::DBCluster" -> NeptuneDBClusterProperties <$> (o .: "Properties")-         "AWS::Neptune::DBClusterParameterGroup" -> NeptuneDBClusterParameterGroupProperties <$> (o .: "Properties")-         "AWS::Neptune::DBInstance" -> NeptuneDBInstanceProperties <$> (o .: "Properties")-         "AWS::Neptune::DBParameterGroup" -> NeptuneDBParameterGroupProperties <$> (o .: "Properties")-         "AWS::Neptune::DBSubnetGroup" -> NeptuneDBSubnetGroupProperties <$> (o .: "Properties")-         "AWS::OpsWorks::App" -> OpsWorksAppProperties <$> (o .: "Properties")-         "AWS::OpsWorks::ElasticLoadBalancerAttachment" -> OpsWorksElasticLoadBalancerAttachmentProperties <$> (o .: "Properties")-         "AWS::OpsWorks::Instance" -> OpsWorksInstanceProperties <$> (o .: "Properties")-         "AWS::OpsWorks::Layer" -> OpsWorksLayerProperties <$> (o .: "Properties")-         "AWS::OpsWorks::Stack" -> OpsWorksStackProperties <$> (o .: "Properties")-         "AWS::OpsWorks::UserProfile" -> OpsWorksUserProfileProperties <$> (o .: "Properties")-         "AWS::OpsWorks::Volume" -> OpsWorksVolumeProperties <$> (o .: "Properties")-         "AWS::OpsWorksCM::Server" -> OpsWorksCMServerProperties <$> (o .: "Properties")-         "AWS::RAM::ResourceShare" -> RAMResourceShareProperties <$> (o .: "Properties")-         "AWS::RDS::DBCluster" -> RDSDBClusterProperties <$> (o .: "Properties")-         "AWS::RDS::DBClusterParameterGroup" -> RDSDBClusterParameterGroupProperties <$> (o .: "Properties")-         "AWS::RDS::DBInstance" -> RDSDBInstanceProperties <$> (o .: "Properties")-         "AWS::RDS::DBParameterGroup" -> RDSDBParameterGroupProperties <$> (o .: "Properties")-         "AWS::RDS::DBSecurityGroup" -> RDSDBSecurityGroupProperties <$> (o .: "Properties")-         "AWS::RDS::DBSecurityGroupIngress" -> RDSDBSecurityGroupIngressProperties <$> (o .: "Properties")-         "AWS::RDS::DBSubnetGroup" -> RDSDBSubnetGroupProperties <$> (o .: "Properties")-         "AWS::RDS::EventSubscription" -> RDSEventSubscriptionProperties <$> (o .: "Properties")-         "AWS::RDS::OptionGroup" -> RDSOptionGroupProperties <$> (o .: "Properties")-         "AWS::Redshift::Cluster" -> RedshiftClusterProperties <$> (o .: "Properties")-         "AWS::Redshift::ClusterParameterGroup" -> RedshiftClusterParameterGroupProperties <$> (o .: "Properties")-         "AWS::Redshift::ClusterSecurityGroup" -> RedshiftClusterSecurityGroupProperties <$> (o .: "Properties")-         "AWS::Redshift::ClusterSecurityGroupIngress" -> RedshiftClusterSecurityGroupIngressProperties <$> (o .: "Properties")-         "AWS::Redshift::ClusterSubnetGroup" -> RedshiftClusterSubnetGroupProperties <$> (o .: "Properties")-         "AWS::RoboMaker::Fleet" -> RoboMakerFleetProperties <$> (o .: "Properties")-         "AWS::RoboMaker::Robot" -> RoboMakerRobotProperties <$> (o .: "Properties")-         "AWS::RoboMaker::RobotApplication" -> RoboMakerRobotApplicationProperties <$> (o .: "Properties")-         "AWS::RoboMaker::RobotApplicationVersion" -> RoboMakerRobotApplicationVersionProperties <$> (o .: "Properties")-         "AWS::RoboMaker::SimulationApplication" -> RoboMakerSimulationApplicationProperties <$> (o .: "Properties")-         "AWS::RoboMaker::SimulationApplicationVersion" -> RoboMakerSimulationApplicationVersionProperties <$> (o .: "Properties")-         "AWS::Route53::HealthCheck" -> Route53HealthCheckProperties <$> (o .: "Properties")-         "AWS::Route53::HostedZone" -> Route53HostedZoneProperties <$> (o .: "Properties")-         "AWS::Route53::RecordSet" -> Route53RecordSetProperties <$> (o .: "Properties")-         "AWS::Route53::RecordSetGroup" -> Route53RecordSetGroupProperties <$> (o .: "Properties")-         "AWS::Route53Resolver::ResolverEndpoint" -> Route53ResolverResolverEndpointProperties <$> (o .: "Properties")-         "AWS::Route53Resolver::ResolverRule" -> Route53ResolverResolverRuleProperties <$> (o .: "Properties")-         "AWS::Route53Resolver::ResolverRuleAssociation" -> Route53ResolverResolverRuleAssociationProperties <$> (o .: "Properties")-         "AWS::S3::Bucket" -> S3BucketProperties <$> (o .: "Properties")-         "AWS::S3::BucketPolicy" -> S3BucketPolicyProperties <$> (o .: "Properties")-         "AWS::SDB::Domain" -> SDBDomainProperties <$> (o .: "Properties")-         "AWS::SES::ConfigurationSet" -> SESConfigurationSetProperties <$> (o .: "Properties")-         "AWS::SES::ConfigurationSetEventDestination" -> SESConfigurationSetEventDestinationProperties <$> (o .: "Properties")-         "AWS::SES::ReceiptFilter" -> SESReceiptFilterProperties <$> (o .: "Properties")-         "AWS::SES::ReceiptRule" -> SESReceiptRuleProperties <$> (o .: "Properties")-         "AWS::SES::ReceiptRuleSet" -> SESReceiptRuleSetProperties <$> (o .: "Properties")-         "AWS::SES::Template" -> SESTemplateProperties <$> (o .: "Properties")-         "AWS::SNS::Subscription" -> SNSSubscriptionProperties <$> (o .: "Properties")-         "AWS::SNS::Topic" -> SNSTopicProperties <$> (o .: "Properties")-         "AWS::SNS::TopicPolicy" -> SNSTopicPolicyProperties <$> (o .: "Properties")-         "AWS::SQS::Queue" -> SQSQueueProperties <$> (o .: "Properties")-         "AWS::SQS::QueuePolicy" -> SQSQueuePolicyProperties <$> (o .: "Properties")-         "AWS::SSM::Association" -> SSMAssociationProperties <$> (o .: "Properties")-         "AWS::SSM::Document" -> SSMDocumentProperties <$> (o .: "Properties")-         "AWS::SSM::MaintenanceWindow" -> SSMMaintenanceWindowProperties <$> (o .: "Properties")-         "AWS::SSM::MaintenanceWindowTask" -> SSMMaintenanceWindowTaskProperties <$> (o .: "Properties")-         "AWS::SSM::Parameter" -> SSMParameterProperties <$> (o .: "Properties")-         "AWS::SSM::PatchBaseline" -> SSMPatchBaselineProperties <$> (o .: "Properties")-         "AWS::SSM::ResourceDataSync" -> SSMResourceDataSyncProperties <$> (o .: "Properties")-         "AWS::SageMaker::Endpoint" -> SageMakerEndpointProperties <$> (o .: "Properties")-         "AWS::SageMaker::EndpointConfig" -> SageMakerEndpointConfigProperties <$> (o .: "Properties")-         "AWS::SageMaker::Model" -> SageMakerModelProperties <$> (o .: "Properties")-         "AWS::SageMaker::NotebookInstance" -> SageMakerNotebookInstanceProperties <$> (o .: "Properties")-         "AWS::SageMaker::NotebookInstanceLifecycleConfig" -> SageMakerNotebookInstanceLifecycleConfigProperties <$> (o .: "Properties")-         "AWS::SecretsManager::ResourcePolicy" -> SecretsManagerResourcePolicyProperties <$> (o .: "Properties")-         "AWS::SecretsManager::RotationSchedule" -> SecretsManagerRotationScheduleProperties <$> (o .: "Properties")-         "AWS::SecretsManager::Secret" -> SecretsManagerSecretProperties <$> (o .: "Properties")-         "AWS::SecretsManager::SecretTargetAttachment" -> SecretsManagerSecretTargetAttachmentProperties <$> (o .: "Properties")-         "AWS::ServiceCatalog::AcceptedPortfolioShare" -> ServiceCatalogAcceptedPortfolioShareProperties <$> (o .: "Properties")-         "AWS::ServiceCatalog::CloudFormationProduct" -> ServiceCatalogCloudFormationProductProperties <$> (o .: "Properties")-         "AWS::ServiceCatalog::CloudFormationProvisionedProduct" -> ServiceCatalogCloudFormationProvisionedProductProperties <$> (o .: "Properties")-         "AWS::ServiceCatalog::LaunchNotificationConstraint" -> ServiceCatalogLaunchNotificationConstraintProperties <$> (o .: "Properties")-         "AWS::ServiceCatalog::LaunchRoleConstraint" -> ServiceCatalogLaunchRoleConstraintProperties <$> (o .: "Properties")-         "AWS::ServiceCatalog::LaunchTemplateConstraint" -> ServiceCatalogLaunchTemplateConstraintProperties <$> (o .: "Properties")-         "AWS::ServiceCatalog::Portfolio" -> ServiceCatalogPortfolioProperties <$> (o .: "Properties")-         "AWS::ServiceCatalog::PortfolioPrincipalAssociation" -> ServiceCatalogPortfolioPrincipalAssociationProperties <$> (o .: "Properties")-         "AWS::ServiceCatalog::PortfolioProductAssociation" -> ServiceCatalogPortfolioProductAssociationProperties <$> (o .: "Properties")-         "AWS::ServiceCatalog::PortfolioShare" -> ServiceCatalogPortfolioShareProperties <$> (o .: "Properties")-         "AWS::ServiceCatalog::TagOption" -> ServiceCatalogTagOptionProperties <$> (o .: "Properties")-         "AWS::ServiceCatalog::TagOptionAssociation" -> ServiceCatalogTagOptionAssociationProperties <$> (o .: "Properties")-         "AWS::ServiceDiscovery::HttpNamespace" -> ServiceDiscoveryHttpNamespaceProperties <$> (o .: "Properties")-         "AWS::ServiceDiscovery::Instance" -> ServiceDiscoveryInstanceProperties <$> (o .: "Properties")-         "AWS::ServiceDiscovery::PrivateDnsNamespace" -> ServiceDiscoveryPrivateDnsNamespaceProperties <$> (o .: "Properties")-         "AWS::ServiceDiscovery::PublicDnsNamespace" -> ServiceDiscoveryPublicDnsNamespaceProperties <$> (o .: "Properties")-         "AWS::ServiceDiscovery::Service" -> ServiceDiscoveryServiceProperties <$> (o .: "Properties")-         "AWS::StepFunctions::Activity" -> StepFunctionsActivityProperties <$> (o .: "Properties")-         "AWS::StepFunctions::StateMachine" -> StepFunctionsStateMachineProperties <$> (o .: "Properties")-         "AWS::WAF::ByteMatchSet" -> WAFByteMatchSetProperties <$> (o .: "Properties")-         "AWS::WAF::IPSet" -> WAFIPSetProperties <$> (o .: "Properties")-         "AWS::WAF::Rule" -> WAFRuleProperties <$> (o .: "Properties")-         "AWS::WAF::SizeConstraintSet" -> WAFSizeConstraintSetProperties <$> (o .: "Properties")-         "AWS::WAF::SqlInjectionMatchSet" -> WAFSqlInjectionMatchSetProperties <$> (o .: "Properties")-         "AWS::WAF::WebACL" -> WAFWebACLProperties <$> (o .: "Properties")-         "AWS::WAF::XssMatchSet" -> WAFXssMatchSetProperties <$> (o .: "Properties")-         "AWS::WAFRegional::ByteMatchSet" -> WAFRegionalByteMatchSetProperties <$> (o .: "Properties")-         "AWS::WAFRegional::IPSet" -> WAFRegionalIPSetProperties <$> (o .: "Properties")-         "AWS::WAFRegional::Rule" -> WAFRegionalRuleProperties <$> (o .: "Properties")-         "AWS::WAFRegional::SizeConstraintSet" -> WAFRegionalSizeConstraintSetProperties <$> (o .: "Properties")-         "AWS::WAFRegional::SqlInjectionMatchSet" -> WAFRegionalSqlInjectionMatchSetProperties <$> (o .: "Properties")-         "AWS::WAFRegional::WebACL" -> WAFRegionalWebACLProperties <$> (o .: "Properties")-         "AWS::WAFRegional::WebACLAssociation" -> WAFRegionalWebACLAssociationProperties <$> (o .: "Properties")-         "AWS::WAFRegional::XssMatchSet" -> WAFRegionalXssMatchSetProperties <$> (o .: "Properties")-         "AWS::WorkSpaces::Workspace" -> WorkSpacesWorkspaceProperties <$> (o .: "Properties")-         "Alexa::ASK::Skill" -> ASKSkillProperties <$> (o .: "Properties")--         _ -> fail $ "Unknown resource type: " ++ type'-       dp <- o .:? "DeletionPolicy"-       cp <- o .:? "CreationPolicy"-       up <- o .:? "UpdatePolicy"-       deps <- o .:? "DependsOn"-       meta <- o .:? "Metadata"-       cond <- o .:? "Condition"-       return $ Resource n props dp cp up deps meta cond- -- | Wrapper around a list of 'Resources's to we can modify the aeson -- instances. newtype Resources = Resources { unResources :: [Resource] }@@ -2726,10 +2344,6 @@ instance NamedItem Resource where   itemName = _resourceName   nameToJSON = resourceToJSON-  nameParseJSON = resourceFromJSON  instance ToJSON Resources where   toJSON = namedItemToJSON . unResources--instance FromJSON Resources where-  parseJSON v = Resources <$> namedItemFromJSON v
library-gen/Stratosphere/Resources/ASKSkill.hs view
@@ -28,14 +28,6 @@     , (Just . ("VendorId",) . toJSON) _aSKSkillVendorId     ] -instance FromJSON ASKSkill where-  parseJSON (Object obj) =-    ASKSkill <$>-      (obj .: "AuthenticationConfiguration") <*>-      (obj .: "SkillPackage") <*>-      (obj .: "VendorId")-  parseJSON _ = mempty- -- | Constructor for 'ASKSkill' containing required fields as arguments. askSkill   :: ASKSkillAuthenticationConfiguration -- ^ 'asksAuthenticationConfiguration'
library-gen/Stratosphere/Resources/AmazonMQBroker.hs view
@@ -53,25 +53,6 @@     , (Just . ("Users",) . toJSON) _amazonMQBrokerUsers     ] -instance FromJSON AmazonMQBroker where-  parseJSON (Object obj) =-    AmazonMQBroker <$>-      fmap (fmap unBool') (obj .: "AutoMinorVersionUpgrade") <*>-      (obj .: "BrokerName") <*>-      (obj .:? "Configuration") <*>-      (obj .: "DeploymentMode") <*>-      (obj .: "EngineType") <*>-      (obj .: "EngineVersion") <*>-      (obj .: "HostInstanceType") <*>-      (obj .:? "Logs") <*>-      (obj .:? "MaintenanceWindowStartTime") <*>-      fmap (fmap unBool') (obj .: "PubliclyAccessible") <*>-      (obj .:? "SecurityGroups") <*>-      (obj .:? "SubnetIds") <*>-      (obj .:? "Tags") <*>-      (obj .: "Users")-  parseJSON _ = mempty- -- | Constructor for 'AmazonMQBroker' containing required fields as arguments. amazonMQBroker   :: Val Bool -- ^ 'amqbAutoMinorVersionUpgrade'
library-gen/Stratosphere/Resources/AmazonMQConfiguration.hs view
@@ -33,17 +33,6 @@     , fmap (("Tags",) . toJSON) _amazonMQConfigurationTags     ] -instance FromJSON AmazonMQConfiguration where-  parseJSON (Object obj) =-    AmazonMQConfiguration <$>-      (obj .: "Data") <*>-      (obj .:? "Description") <*>-      (obj .: "EngineType") <*>-      (obj .: "EngineVersion") <*>-      (obj .: "Name") <*>-      (obj .:? "Tags")-  parseJSON _ = mempty- -- | Constructor for 'AmazonMQConfiguration' containing required fields as -- arguments. amazonMQConfiguration
library-gen/Stratosphere/Resources/AmazonMQConfigurationAssociation.hs view
@@ -25,13 +25,6 @@     , (Just . ("Configuration",) . toJSON) _amazonMQConfigurationAssociationConfiguration     ] -instance FromJSON AmazonMQConfigurationAssociation where-  parseJSON (Object obj) =-    AmazonMQConfigurationAssociation <$>-      (obj .: "Broker") <*>-      (obj .: "Configuration")-  parseJSON _ = mempty- -- | Constructor for 'AmazonMQConfigurationAssociation' containing required -- fields as arguments. amazonMQConfigurationAssociation
library-gen/Stratosphere/Resources/ApiGatewayAccount.hs view
@@ -23,12 +23,6 @@     [ fmap (("CloudWatchRoleArn",) . toJSON) _apiGatewayAccountCloudWatchRoleArn     ] -instance FromJSON ApiGatewayAccount where-  parseJSON (Object obj) =-    ApiGatewayAccount <$>-      (obj .:? "CloudWatchRoleArn")-  parseJSON _ = mempty- -- | Constructor for 'ApiGatewayAccount' containing required fields as -- arguments. apiGatewayAccount
library-gen/Stratosphere/Resources/ApiGatewayApiKey.hs view
@@ -35,18 +35,6 @@     , fmap (("Value",) . toJSON) _apiGatewayApiKeyValue     ] -instance FromJSON ApiGatewayApiKey where-  parseJSON (Object obj) =-    ApiGatewayApiKey <$>-      (obj .:? "CustomerId") <*>-      (obj .:? "Description") <*>-      fmap (fmap (fmap unBool')) (obj .:? "Enabled") <*>-      fmap (fmap (fmap unBool')) (obj .:? "GenerateDistinctId") <*>-      (obj .:? "Name") <*>-      (obj .:? "StageKeys") <*>-      (obj .:? "Value")-  parseJSON _ = mempty- -- | Constructor for 'ApiGatewayApiKey' containing required fields as -- arguments. apiGatewayApiKey
library-gen/Stratosphere/Resources/ApiGatewayAuthorizer.hs view
@@ -41,21 +41,6 @@     , (Just . ("Type",) . toJSON) _apiGatewayAuthorizerType     ] -instance FromJSON ApiGatewayAuthorizer where-  parseJSON (Object obj) =-    ApiGatewayAuthorizer <$>-      (obj .:? "AuthType") <*>-      (obj .:? "AuthorizerCredentials") <*>-      fmap (fmap (fmap unInteger')) (obj .:? "AuthorizerResultTtlInSeconds") <*>-      (obj .:? "AuthorizerUri") <*>-      (obj .:? "IdentitySource") <*>-      (obj .:? "IdentityValidationExpression") <*>-      (obj .:? "Name") <*>-      (obj .:? "ProviderARNs") <*>-      (obj .: "RestApiId") <*>-      (obj .: "Type")-  parseJSON _ = mempty- -- | Constructor for 'ApiGatewayAuthorizer' containing required fields as -- arguments. apiGatewayAuthorizer
library-gen/Stratosphere/Resources/ApiGatewayBasePathMapping.hs view
@@ -29,15 +29,6 @@     , fmap (("Stage",) . toJSON) _apiGatewayBasePathMappingStage     ] -instance FromJSON ApiGatewayBasePathMapping where-  parseJSON (Object obj) =-    ApiGatewayBasePathMapping <$>-      (obj .:? "BasePath") <*>-      (obj .: "DomainName") <*>-      (obj .:? "RestApiId") <*>-      (obj .:? "Stage")-  parseJSON _ = mempty- -- | Constructor for 'ApiGatewayBasePathMapping' containing required fields as -- arguments. apiGatewayBasePathMapping
library-gen/Stratosphere/Resources/ApiGatewayClientCertificate.hs view
@@ -23,12 +23,6 @@     [ fmap (("Description",) . toJSON) _apiGatewayClientCertificateDescription     ] -instance FromJSON ApiGatewayClientCertificate where-  parseJSON (Object obj) =-    ApiGatewayClientCertificate <$>-      (obj .:? "Description")-  parseJSON _ = mempty- -- | Constructor for 'ApiGatewayClientCertificate' containing required fields -- as arguments. apiGatewayClientCertificate
library-gen/Stratosphere/Resources/ApiGatewayDeployment.hs view
@@ -32,16 +32,6 @@     , fmap (("StageName",) . toJSON) _apiGatewayDeploymentStageName     ] -instance FromJSON ApiGatewayDeployment where-  parseJSON (Object obj) =-    ApiGatewayDeployment <$>-      (obj .:? "DeploymentCanarySettings") <*>-      (obj .:? "Description") <*>-      (obj .: "RestApiId") <*>-      (obj .:? "StageDescription") <*>-      (obj .:? "StageName")-  parseJSON _ = mempty- -- | Constructor for 'ApiGatewayDeployment' containing required fields as -- arguments. apiGatewayDeployment
library-gen/Stratosphere/Resources/ApiGatewayDocumentationPart.hs view
@@ -27,14 +27,6 @@     , (Just . ("RestApiId",) . toJSON) _apiGatewayDocumentationPartRestApiId     ] -instance FromJSON ApiGatewayDocumentationPart where-  parseJSON (Object obj) =-    ApiGatewayDocumentationPart <$>-      (obj .: "Location") <*>-      (obj .: "Properties") <*>-      (obj .: "RestApiId")-  parseJSON _ = mempty- -- | Constructor for 'ApiGatewayDocumentationPart' containing required fields -- as arguments. apiGatewayDocumentationPart
library-gen/Stratosphere/Resources/ApiGatewayDocumentationVersion.hs view
@@ -27,14 +27,6 @@     , (Just . ("RestApiId",) . toJSON) _apiGatewayDocumentationVersionRestApiId     ] -instance FromJSON ApiGatewayDocumentationVersion where-  parseJSON (Object obj) =-    ApiGatewayDocumentationVersion <$>-      (obj .:? "Description") <*>-      (obj .: "DocumentationVersion") <*>-      (obj .: "RestApiId")-  parseJSON _ = mempty- -- | Constructor for 'ApiGatewayDocumentationVersion' containing required -- fields as arguments. apiGatewayDocumentationVersion
library-gen/Stratosphere/Resources/ApiGatewayDomainName.hs view
@@ -29,15 +29,6 @@     , fmap (("RegionalCertificateArn",) . toJSON) _apiGatewayDomainNameRegionalCertificateArn     ] -instance FromJSON ApiGatewayDomainName where-  parseJSON (Object obj) =-    ApiGatewayDomainName <$>-      (obj .:? "CertificateArn") <*>-      (obj .: "DomainName") <*>-      (obj .:? "EndpointConfiguration") <*>-      (obj .:? "RegionalCertificateArn")-  parseJSON _ = mempty- -- | Constructor for 'ApiGatewayDomainName' containing required fields as -- arguments. apiGatewayDomainName
library-gen/Stratosphere/Resources/ApiGatewayGatewayResponse.hs view
@@ -31,16 +31,6 @@     , fmap (("StatusCode",) . toJSON) _apiGatewayGatewayResponseStatusCode     ] -instance FromJSON ApiGatewayGatewayResponse where-  parseJSON (Object obj) =-    ApiGatewayGatewayResponse <$>-      (obj .:? "ResponseParameters") <*>-      (obj .:? "ResponseTemplates") <*>-      (obj .: "ResponseType") <*>-      (obj .: "RestApiId") <*>-      (obj .:? "StatusCode")-  parseJSON _ = mempty- -- | Constructor for 'ApiGatewayGatewayResponse' containing required fields as -- arguments. apiGatewayGatewayResponse
library-gen/Stratosphere/Resources/ApiGatewayMethod.hs view
@@ -49,24 +49,6 @@     , (Just . ("RestApiId",) . toJSON) _apiGatewayMethodRestApiId     ] -instance FromJSON ApiGatewayMethod where-  parseJSON (Object obj) =-    ApiGatewayMethod <$>-      fmap (fmap (fmap unBool')) (obj .:? "ApiKeyRequired") <*>-      (obj .:? "AuthorizationScopes") <*>-      (obj .:? "AuthorizationType") <*>-      (obj .:? "AuthorizerId") <*>-      (obj .: "HttpMethod") <*>-      (obj .:? "Integration") <*>-      (obj .:? "MethodResponses") <*>-      (obj .:? "OperationName") <*>-      (obj .:? "RequestModels") <*>-      (obj .:? "RequestParameters") <*>-      (obj .:? "RequestValidatorId") <*>-      (obj .: "ResourceId") <*>-      (obj .: "RestApiId")-  parseJSON _ = mempty- -- | Constructor for 'ApiGatewayMethod' containing required fields as -- arguments. apiGatewayMethod
library-gen/Stratosphere/Resources/ApiGatewayModel.hs view
@@ -31,16 +31,6 @@     , fmap (("Schema",) . toJSON) _apiGatewayModelSchema     ] -instance FromJSON ApiGatewayModel where-  parseJSON (Object obj) =-    ApiGatewayModel <$>-      (obj .:? "ContentType") <*>-      (obj .:? "Description") <*>-      (obj .:? "Name") <*>-      (obj .: "RestApiId") <*>-      (obj .:? "Schema")-  parseJSON _ = mempty- -- | Constructor for 'ApiGatewayModel' containing required fields as -- arguments. apiGatewayModel
library-gen/Stratosphere/Resources/ApiGatewayRequestValidator.hs view
@@ -29,15 +29,6 @@     , fmap (("ValidateRequestParameters",) . toJSON . fmap Bool') _apiGatewayRequestValidatorValidateRequestParameters     ] -instance FromJSON ApiGatewayRequestValidator where-  parseJSON (Object obj) =-    ApiGatewayRequestValidator <$>-      (obj .:? "Name") <*>-      (obj .: "RestApiId") <*>-      fmap (fmap (fmap unBool')) (obj .:? "ValidateRequestBody") <*>-      fmap (fmap (fmap unBool')) (obj .:? "ValidateRequestParameters")-  parseJSON _ = mempty- -- | Constructor for 'ApiGatewayRequestValidator' containing required fields -- as arguments. apiGatewayRequestValidator
library-gen/Stratosphere/Resources/ApiGatewayResource.hs view
@@ -27,14 +27,6 @@     , (Just . ("RestApiId",) . toJSON) _apiGatewayResourceRestApiId     ] -instance FromJSON ApiGatewayResource where-  parseJSON (Object obj) =-    ApiGatewayResource <$>-      (obj .: "ParentId") <*>-      (obj .: "PathPart") <*>-      (obj .: "RestApiId")-  parseJSON _ = mempty- -- | Constructor for 'ApiGatewayResource' containing required fields as -- arguments. apiGatewayResource
library-gen/Stratosphere/Resources/ApiGatewayRestApi.hs view
@@ -46,23 +46,6 @@     , fmap (("Policy",) . toJSON) _apiGatewayRestApiPolicy     ] -instance FromJSON ApiGatewayRestApi where-  parseJSON (Object obj) =-    ApiGatewayRestApi <$>-      (obj .:? "ApiKeySourceType") <*>-      (obj .:? "BinaryMediaTypes") <*>-      (obj .:? "Body") <*>-      (obj .:? "BodyS3Location") <*>-      (obj .:? "CloneFrom") <*>-      (obj .:? "Description") <*>-      (obj .:? "EndpointConfiguration") <*>-      fmap (fmap (fmap unBool')) (obj .:? "FailOnWarnings") <*>-      fmap (fmap (fmap unInteger')) (obj .:? "MinimumCompressionSize") <*>-      (obj .:? "Name") <*>-      (obj .:? "Parameters") <*>-      (obj .:? "Policy")-  parseJSON _ = mempty- -- | Constructor for 'ApiGatewayRestApi' containing required fields as -- arguments. apiGatewayRestApi
library-gen/Stratosphere/Resources/ApiGatewayStage.hs view
@@ -52,25 +52,6 @@     , fmap (("Variables",) . toJSON) _apiGatewayStageVariables     ] -instance FromJSON ApiGatewayStage where-  parseJSON (Object obj) =-    ApiGatewayStage <$>-      (obj .:? "AccessLogSetting") <*>-      fmap (fmap (fmap unBool')) (obj .:? "CacheClusterEnabled") <*>-      (obj .:? "CacheClusterSize") <*>-      (obj .:? "CanarySetting") <*>-      (obj .:? "ClientCertificateId") <*>-      (obj .:? "DeploymentId") <*>-      (obj .:? "Description") <*>-      (obj .:? "DocumentationVersion") <*>-      (obj .:? "MethodSettings") <*>-      (obj .: "RestApiId") <*>-      (obj .:? "StageName") <*>-      (obj .:? "Tags") <*>-      fmap (fmap (fmap unBool')) (obj .:? "TracingEnabled") <*>-      (obj .:? "Variables")-  parseJSON _ = mempty- -- | Constructor for 'ApiGatewayStage' containing required fields as -- arguments. apiGatewayStage
library-gen/Stratosphere/Resources/ApiGatewayUsagePlan.hs view
@@ -33,16 +33,6 @@     , fmap (("UsagePlanName",) . toJSON) _apiGatewayUsagePlanUsagePlanName     ] -instance FromJSON ApiGatewayUsagePlan where-  parseJSON (Object obj) =-    ApiGatewayUsagePlan <$>-      (obj .:? "ApiStages") <*>-      (obj .:? "Description") <*>-      (obj .:? "Quota") <*>-      (obj .:? "Throttle") <*>-      (obj .:? "UsagePlanName")-  parseJSON _ = mempty- -- | Constructor for 'ApiGatewayUsagePlan' containing required fields as -- arguments. apiGatewayUsagePlan
library-gen/Stratosphere/Resources/ApiGatewayUsagePlanKey.hs view
@@ -27,14 +27,6 @@     , (Just . ("UsagePlanId",) . toJSON) _apiGatewayUsagePlanKeyUsagePlanId     ] -instance FromJSON ApiGatewayUsagePlanKey where-  parseJSON (Object obj) =-    ApiGatewayUsagePlanKey <$>-      (obj .: "KeyId") <*>-      (obj .: "KeyType") <*>-      (obj .: "UsagePlanId")-  parseJSON _ = mempty- -- | Constructor for 'ApiGatewayUsagePlanKey' containing required fields as -- arguments. apiGatewayUsagePlanKey
library-gen/Stratosphere/Resources/ApiGatewayV2Api.hs view
@@ -35,18 +35,6 @@     , fmap (("Version",) . toJSON) _apiGatewayV2ApiVersion     ] -instance FromJSON ApiGatewayV2Api where-  parseJSON (Object obj) =-    ApiGatewayV2Api <$>-      (obj .:? "ApiKeySelectionExpression") <*>-      (obj .:? "Description") <*>-      fmap (fmap (fmap unBool')) (obj .:? "DisableSchemaValidation") <*>-      (obj .: "Name") <*>-      (obj .: "ProtocolType") <*>-      (obj .: "RouteSelectionExpression") <*>-      (obj .:? "Version")-  parseJSON _ = mempty- -- | Constructor for 'ApiGatewayV2Api' containing required fields as -- arguments. apiGatewayV2Api
library-gen/Stratosphere/Resources/ApiGatewayV2Authorizer.hs view
@@ -37,19 +37,6 @@     , (Just . ("Name",) . toJSON) _apiGatewayV2AuthorizerName     ] -instance FromJSON ApiGatewayV2Authorizer where-  parseJSON (Object obj) =-    ApiGatewayV2Authorizer <$>-      (obj .: "ApiId") <*>-      (obj .:? "AuthorizerCredentialsArn") <*>-      fmap (fmap (fmap unInteger')) (obj .:? "AuthorizerResultTtlInSeconds") <*>-      (obj .: "AuthorizerType") <*>-      (obj .: "AuthorizerUri") <*>-      (obj .: "IdentitySource") <*>-      (obj .:? "IdentityValidationExpression") <*>-      (obj .: "Name")-  parseJSON _ = mempty- -- | Constructor for 'ApiGatewayV2Authorizer' containing required fields as -- arguments. apiGatewayV2Authorizer
library-gen/Stratosphere/Resources/ApiGatewayV2Deployment.hs view
@@ -27,14 +27,6 @@     , fmap (("StageName",) . toJSON) _apiGatewayV2DeploymentStageName     ] -instance FromJSON ApiGatewayV2Deployment where-  parseJSON (Object obj) =-    ApiGatewayV2Deployment <$>-      (obj .: "ApiId") <*>-      (obj .:? "Description") <*>-      (obj .:? "StageName")-  parseJSON _ = mempty- -- | Constructor for 'ApiGatewayV2Deployment' containing required fields as -- arguments. apiGatewayV2Deployment
library-gen/Stratosphere/Resources/ApiGatewayV2Integration.hs view
@@ -47,24 +47,6 @@     , fmap (("TimeoutInMillis",) . toJSON . fmap Integer') _apiGatewayV2IntegrationTimeoutInMillis     ] -instance FromJSON ApiGatewayV2Integration where-  parseJSON (Object obj) =-    ApiGatewayV2Integration <$>-      (obj .: "ApiId") <*>-      (obj .:? "ConnectionType") <*>-      (obj .:? "ContentHandlingStrategy") <*>-      (obj .:? "CredentialsArn") <*>-      (obj .:? "Description") <*>-      (obj .:? "IntegrationMethod") <*>-      (obj .: "IntegrationType") <*>-      (obj .:? "IntegrationUri") <*>-      (obj .:? "PassthroughBehavior") <*>-      (obj .:? "RequestParameters") <*>-      (obj .:? "RequestTemplates") <*>-      (obj .:? "TemplateSelectionExpression") <*>-      fmap (fmap (fmap unInteger')) (obj .:? "TimeoutInMillis")-  parseJSON _ = mempty- -- | Constructor for 'ApiGatewayV2Integration' containing required fields as -- arguments. apiGatewayV2Integration
library-gen/Stratosphere/Resources/ApiGatewayV2IntegrationResponse.hs view
@@ -35,18 +35,6 @@     , fmap (("TemplateSelectionExpression",) . toJSON) _apiGatewayV2IntegrationResponseTemplateSelectionExpression     ] -instance FromJSON ApiGatewayV2IntegrationResponse where-  parseJSON (Object obj) =-    ApiGatewayV2IntegrationResponse <$>-      (obj .: "ApiId") <*>-      (obj .:? "ContentHandlingStrategy") <*>-      (obj .: "IntegrationId") <*>-      (obj .: "IntegrationResponseKey") <*>-      (obj .:? "ResponseParameters") <*>-      (obj .:? "ResponseTemplates") <*>-      (obj .:? "TemplateSelectionExpression")-  parseJSON _ = mempty- -- | Constructor for 'ApiGatewayV2IntegrationResponse' containing required -- fields as arguments. apiGatewayV2IntegrationResponse
library-gen/Stratosphere/Resources/ApiGatewayV2Model.hs view
@@ -31,16 +31,6 @@     , (Just . ("Schema",) . toJSON) _apiGatewayV2ModelSchema     ] -instance FromJSON ApiGatewayV2Model where-  parseJSON (Object obj) =-    ApiGatewayV2Model <$>-      (obj .: "ApiId") <*>-      (obj .:? "ContentType") <*>-      (obj .:? "Description") <*>-      (obj .: "Name") <*>-      (obj .: "Schema")-  parseJSON _ = mempty- -- | Constructor for 'ApiGatewayV2Model' containing required fields as -- arguments. apiGatewayV2Model
library-gen/Stratosphere/Resources/ApiGatewayV2Route.hs view
@@ -45,23 +45,6 @@     , fmap (("Target",) . toJSON) _apiGatewayV2RouteTarget     ] -instance FromJSON ApiGatewayV2Route where-  parseJSON (Object obj) =-    ApiGatewayV2Route <$>-      (obj .: "ApiId") <*>-      fmap (fmap (fmap unBool')) (obj .:? "ApiKeyRequired") <*>-      (obj .:? "AuthorizationScopes") <*>-      (obj .:? "AuthorizationType") <*>-      (obj .:? "AuthorizerId") <*>-      (obj .:? "ModelSelectionExpression") <*>-      (obj .:? "OperationName") <*>-      (obj .:? "RequestModels") <*>-      (obj .:? "RequestParameters") <*>-      (obj .: "RouteKey") <*>-      (obj .:? "RouteResponseSelectionExpression") <*>-      (obj .:? "Target")-  parseJSON _ = mempty- -- | Constructor for 'ApiGatewayV2Route' containing required fields as -- arguments. apiGatewayV2Route
library-gen/Stratosphere/Resources/ApiGatewayV2RouteResponse.hs view
@@ -33,17 +33,6 @@     , (Just . ("RouteResponseKey",) . toJSON) _apiGatewayV2RouteResponseRouteResponseKey     ] -instance FromJSON ApiGatewayV2RouteResponse where-  parseJSON (Object obj) =-    ApiGatewayV2RouteResponse <$>-      (obj .: "ApiId") <*>-      (obj .:? "ModelSelectionExpression") <*>-      (obj .:? "ResponseModels") <*>-      (obj .:? "ResponseParameters") <*>-      (obj .: "RouteId") <*>-      (obj .: "RouteResponseKey")-  parseJSON _ = mempty- -- | Constructor for 'ApiGatewayV2RouteResponse' containing required fields as -- arguments. apiGatewayV2RouteResponse
library-gen/Stratosphere/Resources/ApiGatewayV2Stage.hs view
@@ -40,20 +40,6 @@     , fmap (("StageVariables",) . toJSON) _apiGatewayV2StageStageVariables     ] -instance FromJSON ApiGatewayV2Stage where-  parseJSON (Object obj) =-    ApiGatewayV2Stage <$>-      (obj .:? "AccessLogSettings") <*>-      (obj .: "ApiId") <*>-      (obj .:? "ClientCertificateId") <*>-      (obj .:? "DefaultRouteSettings") <*>-      (obj .: "DeploymentId") <*>-      (obj .:? "Description") <*>-      (obj .:? "RouteSettings") <*>-      (obj .: "StageName") <*>-      (obj .:? "StageVariables")-  parseJSON _ = mempty- -- | Constructor for 'ApiGatewayV2Stage' containing required fields as -- arguments. apiGatewayV2Stage
library-gen/Stratosphere/Resources/ApiGatewayVpcLink.hs view
@@ -27,14 +27,6 @@     , (Just . ("TargetArns",) . toJSON) _apiGatewayVpcLinkTargetArns     ] -instance FromJSON ApiGatewayVpcLink where-  parseJSON (Object obj) =-    ApiGatewayVpcLink <$>-      (obj .:? "Description") <*>-      (obj .: "Name") <*>-      (obj .: "TargetArns")-  parseJSON _ = mempty- -- | Constructor for 'ApiGatewayVpcLink' containing required fields as -- arguments. apiGatewayVpcLink
library-gen/Stratosphere/Resources/AppStreamDirectoryConfig.hs view
@@ -27,14 +27,6 @@     , (Just . ("ServiceAccountCredentials",) . toJSON) _appStreamDirectoryConfigServiceAccountCredentials     ] -instance FromJSON AppStreamDirectoryConfig where-  parseJSON (Object obj) =-    AppStreamDirectoryConfig <$>-      (obj .: "DirectoryName") <*>-      (obj .: "OrganizationalUnitDistinguishedNames") <*>-      (obj .: "ServiceAccountCredentials")-  parseJSON _ = mempty- -- | Constructor for 'AppStreamDirectoryConfig' containing required fields as -- arguments. appStreamDirectoryConfig
library-gen/Stratosphere/Resources/AppStreamFleet.hs view
@@ -49,24 +49,6 @@     , fmap (("VpcConfig",) . toJSON) _appStreamFleetVpcConfig     ] -instance FromJSON AppStreamFleet where-  parseJSON (Object obj) =-    AppStreamFleet <$>-      (obj .: "ComputeCapacity") <*>-      (obj .:? "Description") <*>-      fmap (fmap (fmap unInteger')) (obj .:? "DisconnectTimeoutInSeconds") <*>-      (obj .:? "DisplayName") <*>-      (obj .:? "DomainJoinInfo") <*>-      fmap (fmap (fmap unBool')) (obj .:? "EnableDefaultInternetAccess") <*>-      (obj .:? "FleetType") <*>-      (obj .:? "ImageArn") <*>-      (obj .:? "ImageName") <*>-      (obj .: "InstanceType") <*>-      fmap (fmap (fmap unInteger')) (obj .:? "MaxUserDurationInSeconds") <*>-      (obj .:? "Name") <*>-      (obj .:? "VpcConfig")-  parseJSON _ = mempty- -- | Constructor for 'AppStreamFleet' containing required fields as arguments. appStreamFleet   :: AppStreamFleetComputeCapacity -- ^ 'asfComputeCapacity'
library-gen/Stratosphere/Resources/AppStreamImageBuilder.hs view
@@ -42,21 +42,6 @@     , fmap (("VpcConfig",) . toJSON) _appStreamImageBuilderVpcConfig     ] -instance FromJSON AppStreamImageBuilder where-  parseJSON (Object obj) =-    AppStreamImageBuilder <$>-      (obj .:? "AppstreamAgentVersion") <*>-      (obj .:? "Description") <*>-      (obj .:? "DisplayName") <*>-      (obj .:? "DomainJoinInfo") <*>-      fmap (fmap (fmap unBool')) (obj .:? "EnableDefaultInternetAccess") <*>-      (obj .:? "ImageArn") <*>-      (obj .:? "ImageName") <*>-      (obj .: "InstanceType") <*>-      (obj .:? "Name") <*>-      (obj .:? "VpcConfig")-  parseJSON _ = mempty- -- | Constructor for 'AppStreamImageBuilder' containing required fields as -- arguments. appStreamImageBuilder
library-gen/Stratosphere/Resources/AppStreamStack.hs view
@@ -43,21 +43,6 @@     , fmap (("UserSettings",) . toJSON) _appStreamStackUserSettings     ] -instance FromJSON AppStreamStack where-  parseJSON (Object obj) =-    AppStreamStack <$>-      (obj .:? "ApplicationSettings") <*>-      (obj .:? "AttributesToDelete") <*>-      fmap (fmap (fmap unBool')) (obj .:? "DeleteStorageConnectors") <*>-      (obj .:? "Description") <*>-      (obj .:? "DisplayName") <*>-      (obj .:? "FeedbackURL") <*>-      (obj .:? "Name") <*>-      (obj .:? "RedirectURL") <*>-      (obj .:? "StorageConnectors") <*>-      (obj .:? "UserSettings")-  parseJSON _ = mempty- -- | Constructor for 'AppStreamStack' containing required fields as arguments. appStreamStack   :: AppStreamStack
library-gen/Stratosphere/Resources/AppStreamStackFleetAssociation.hs view
@@ -25,13 +25,6 @@     , (Just . ("StackName",) . toJSON) _appStreamStackFleetAssociationStackName     ] -instance FromJSON AppStreamStackFleetAssociation where-  parseJSON (Object obj) =-    AppStreamStackFleetAssociation <$>-      (obj .: "FleetName") <*>-      (obj .: "StackName")-  parseJSON _ = mempty- -- | Constructor for 'AppStreamStackFleetAssociation' containing required -- fields as arguments. appStreamStackFleetAssociation
library-gen/Stratosphere/Resources/AppStreamStackUserAssociation.hs view
@@ -29,15 +29,6 @@     , (Just . ("UserName",) . toJSON) _appStreamStackUserAssociationUserName     ] -instance FromJSON AppStreamStackUserAssociation where-  parseJSON (Object obj) =-    AppStreamStackUserAssociation <$>-      (obj .: "AuthenticationType") <*>-      fmap (fmap (fmap unBool')) (obj .:? "SendEmailNotification") <*>-      (obj .: "StackName") <*>-      (obj .: "UserName")-  parseJSON _ = mempty- -- | Constructor for 'AppStreamStackUserAssociation' containing required -- fields as arguments. appStreamStackUserAssociation
library-gen/Stratosphere/Resources/AppStreamUser.hs view
@@ -31,16 +31,6 @@     , (Just . ("UserName",) . toJSON) _appStreamUserUserName     ] -instance FromJSON AppStreamUser where-  parseJSON (Object obj) =-    AppStreamUser <$>-      (obj .: "AuthenticationType") <*>-      (obj .:? "FirstName") <*>-      (obj .:? "LastName") <*>-      (obj .:? "MessageAction") <*>-      (obj .: "UserName")-  parseJSON _ = mempty- -- | Constructor for 'AppStreamUser' containing required fields as arguments. appStreamUser   :: Val Text -- ^ 'asuAuthenticationType'
library-gen/Stratosphere/Resources/AppSyncApiKey.hs view
@@ -27,14 +27,6 @@     , fmap (("Expires",) . toJSON . fmap Double') _appSyncApiKeyExpires     ] -instance FromJSON AppSyncApiKey where-  parseJSON (Object obj) =-    AppSyncApiKey <$>-      (obj .: "ApiId") <*>-      (obj .:? "Description") <*>-      fmap (fmap (fmap unDouble')) (obj .:? "Expires")-  parseJSON _ = mempty- -- | Constructor for 'AppSyncApiKey' containing required fields as arguments. appSyncApiKey   :: Val Text -- ^ 'asakApiId'
library-gen/Stratosphere/Resources/AppSyncDataSource.hs view
@@ -45,21 +45,6 @@     , (Just . ("Type",) . toJSON) _appSyncDataSourceType     ] -instance FromJSON AppSyncDataSource where-  parseJSON (Object obj) =-    AppSyncDataSource <$>-      (obj .: "ApiId") <*>-      (obj .:? "Description") <*>-      (obj .:? "DynamoDBConfig") <*>-      (obj .:? "ElasticsearchConfig") <*>-      (obj .:? "HttpConfig") <*>-      (obj .:? "LambdaConfig") <*>-      (obj .: "Name") <*>-      (obj .:? "RelationalDatabaseConfig") <*>-      (obj .:? "ServiceRoleArn") <*>-      (obj .: "Type")-  parseJSON _ = mempty- -- | Constructor for 'AppSyncDataSource' containing required fields as -- arguments. appSyncDataSource
library-gen/Stratosphere/Resources/AppSyncFunctionConfiguration.hs view
@@ -39,20 +39,6 @@     , fmap (("ResponseMappingTemplateS3Location",) . toJSON) _appSyncFunctionConfigurationResponseMappingTemplateS3Location     ] -instance FromJSON AppSyncFunctionConfiguration where-  parseJSON (Object obj) =-    AppSyncFunctionConfiguration <$>-      (obj .: "ApiId") <*>-      (obj .:? "DataSourceName") <*>-      (obj .:? "Description") <*>-      (obj .:? "FunctionVersion") <*>-      (obj .:? "Name") <*>-      (obj .:? "RequestMappingTemplate") <*>-      (obj .:? "RequestMappingTemplateS3Location") <*>-      (obj .:? "ResponseMappingTemplate") <*>-      (obj .:? "ResponseMappingTemplateS3Location")-  parseJSON _ = mempty- -- | Constructor for 'AppSyncFunctionConfiguration' containing required fields -- as arguments. appSyncFunctionConfiguration
library-gen/Stratosphere/Resources/AppSyncGraphQLApi.hs view
@@ -33,16 +33,6 @@     , fmap (("UserPoolConfig",) . toJSON) _appSyncGraphQLApiUserPoolConfig     ] -instance FromJSON AppSyncGraphQLApi where-  parseJSON (Object obj) =-    AppSyncGraphQLApi <$>-      (obj .: "AuthenticationType") <*>-      (obj .:? "LogConfig") <*>-      (obj .: "Name") <*>-      (obj .:? "OpenIDConnectConfig") <*>-      (obj .:? "UserPoolConfig")-  parseJSON _ = mempty- -- | Constructor for 'AppSyncGraphQLApi' containing required fields as -- arguments. appSyncGraphQLApi
library-gen/Stratosphere/Resources/AppSyncGraphQLSchema.hs view
@@ -27,14 +27,6 @@     , fmap (("DefinitionS3Location",) . toJSON) _appSyncGraphQLSchemaDefinitionS3Location     ] -instance FromJSON AppSyncGraphQLSchema where-  parseJSON (Object obj) =-    AppSyncGraphQLSchema <$>-      (obj .: "ApiId") <*>-      (obj .:? "Definition") <*>-      (obj .:? "DefinitionS3Location")-  parseJSON _ = mempty- -- | Constructor for 'AppSyncGraphQLSchema' containing required fields as -- arguments. appSyncGraphQLSchema
library-gen/Stratosphere/Resources/AppSyncResolver.hs view
@@ -41,21 +41,6 @@     , (Just . ("TypeName",) . toJSON) _appSyncResolverTypeName     ] -instance FromJSON AppSyncResolver where-  parseJSON (Object obj) =-    AppSyncResolver <$>-      (obj .: "ApiId") <*>-      (obj .:? "DataSourceName") <*>-      (obj .: "FieldName") <*>-      (obj .:? "Kind") <*>-      (obj .:? "PipelineConfig") <*>-      (obj .:? "RequestMappingTemplate") <*>-      (obj .:? "RequestMappingTemplateS3Location") <*>-      (obj .:? "ResponseMappingTemplate") <*>-      (obj .:? "ResponseMappingTemplateS3Location") <*>-      (obj .: "TypeName")-  parseJSON _ = mempty- -- | Constructor for 'AppSyncResolver' containing required fields as -- arguments. appSyncResolver
library-gen/Stratosphere/Resources/ApplicationAutoScalingScalableTarget.hs view
@@ -35,18 +35,6 @@     , (Just . ("ServiceNamespace",) . toJSON) _applicationAutoScalingScalableTargetServiceNamespace     ] -instance FromJSON ApplicationAutoScalingScalableTarget where-  parseJSON (Object obj) =-    ApplicationAutoScalingScalableTarget <$>-      fmap (fmap unInteger') (obj .: "MaxCapacity") <*>-      fmap (fmap unInteger') (obj .: "MinCapacity") <*>-      (obj .: "ResourceId") <*>-      (obj .: "RoleARN") <*>-      (obj .: "ScalableDimension") <*>-      (obj .:? "ScheduledActions") <*>-      (obj .: "ServiceNamespace")-  parseJSON _ = mempty- -- | Constructor for 'ApplicationAutoScalingScalableTarget' containing -- required fields as arguments. applicationAutoScalingScalableTarget
library-gen/Stratosphere/Resources/ApplicationAutoScalingScalingPolicy.hs view
@@ -38,19 +38,6 @@     , fmap (("TargetTrackingScalingPolicyConfiguration",) . toJSON) _applicationAutoScalingScalingPolicyTargetTrackingScalingPolicyConfiguration     ] -instance FromJSON ApplicationAutoScalingScalingPolicy where-  parseJSON (Object obj) =-    ApplicationAutoScalingScalingPolicy <$>-      (obj .: "PolicyName") <*>-      (obj .: "PolicyType") <*>-      (obj .:? "ResourceId") <*>-      (obj .:? "ScalableDimension") <*>-      (obj .:? "ScalingTargetId") <*>-      (obj .:? "ServiceNamespace") <*>-      (obj .:? "StepScalingPolicyConfiguration") <*>-      (obj .:? "TargetTrackingScalingPolicyConfiguration")-  parseJSON _ = mempty- -- | Constructor for 'ApplicationAutoScalingScalingPolicy' containing required -- fields as arguments. applicationAutoScalingScalingPolicy
library-gen/Stratosphere/Resources/AthenaNamedQuery.hs view
@@ -29,15 +29,6 @@     , (Just . ("QueryString",) . toJSON) _athenaNamedQueryQueryString     ] -instance FromJSON AthenaNamedQuery where-  parseJSON (Object obj) =-    AthenaNamedQuery <$>-      (obj .: "Database") <*>-      (obj .:? "Description") <*>-      (obj .:? "Name") <*>-      (obj .: "QueryString")-  parseJSON _ = mempty- -- | Constructor for 'AthenaNamedQuery' containing required fields as -- arguments. athenaNamedQuery
library-gen/Stratosphere/Resources/AutoScalingAutoScalingGroup.hs view
@@ -70,33 +70,6 @@     , fmap (("VPCZoneIdentifier",) . toJSON) _autoScalingAutoScalingGroupVPCZoneIdentifier     ] -instance FromJSON AutoScalingAutoScalingGroup where-  parseJSON (Object obj) =-    AutoScalingAutoScalingGroup <$>-      (obj .:? "AutoScalingGroupName") <*>-      (obj .:? "AvailabilityZones") <*>-      (obj .:? "Cooldown") <*>-      (obj .:? "DesiredCapacity") <*>-      fmap (fmap (fmap unInteger')) (obj .:? "HealthCheckGracePeriod") <*>-      (obj .:? "HealthCheckType") <*>-      (obj .:? "InstanceId") <*>-      (obj .:? "LaunchConfigurationName") <*>-      (obj .:? "LaunchTemplate") <*>-      (obj .:? "LifecycleHookSpecificationList") <*>-      (obj .:? "LoadBalancerNames") <*>-      (obj .: "MaxSize") <*>-      (obj .:? "MetricsCollection") <*>-      (obj .: "MinSize") <*>-      (obj .:? "MixedInstancesPolicy") <*>-      (obj .:? "NotificationConfigurations") <*>-      (obj .:? "PlacementGroup") <*>-      (obj .:? "ServiceLinkedRoleARN") <*>-      (obj .:? "Tags") <*>-      (obj .:? "TargetGroupARNs") <*>-      (obj .:? "TerminationPolicies") <*>-      (obj .:? "VPCZoneIdentifier")-  parseJSON _ = mempty- -- | Constructor for 'AutoScalingAutoScalingGroup' containing required fields -- as arguments. autoScalingAutoScalingGroup
library-gen/Stratosphere/Resources/AutoScalingLaunchConfiguration.hs view
@@ -57,29 +57,6 @@     , fmap (("UserData",) . toJSON) _autoScalingLaunchConfigurationUserData     ] -instance FromJSON AutoScalingLaunchConfiguration where-  parseJSON (Object obj) =-    AutoScalingLaunchConfiguration <$>-      fmap (fmap (fmap unBool')) (obj .:? "AssociatePublicIpAddress") <*>-      (obj .:? "BlockDeviceMappings") <*>-      (obj .:? "ClassicLinkVPCId") <*>-      (obj .:? "ClassicLinkVPCSecurityGroups") <*>-      fmap (fmap (fmap unBool')) (obj .:? "EbsOptimized") <*>-      (obj .:? "IamInstanceProfile") <*>-      (obj .: "ImageId") <*>-      (obj .:? "InstanceId") <*>-      fmap (fmap (fmap unBool')) (obj .:? "InstanceMonitoring") <*>-      (obj .: "InstanceType") <*>-      (obj .:? "KernelId") <*>-      (obj .:? "KeyName") <*>-      (obj .:? "LaunchConfigurationName") <*>-      (obj .:? "PlacementTenancy") <*>-      (obj .:? "RamDiskId") <*>-      (obj .:? "SecurityGroups") <*>-      (obj .:? "SpotPrice") <*>-      (obj .:? "UserData")-  parseJSON _ = mempty- -- | Constructor for 'AutoScalingLaunchConfiguration' containing required -- fields as arguments. autoScalingLaunchConfiguration
library-gen/Stratosphere/Resources/AutoScalingLifecycleHook.hs view
@@ -37,19 +37,6 @@     , fmap (("RoleARN",) . toJSON) _autoScalingLifecycleHookRoleARN     ] -instance FromJSON AutoScalingLifecycleHook where-  parseJSON (Object obj) =-    AutoScalingLifecycleHook <$>-      (obj .: "AutoScalingGroupName") <*>-      (obj .:? "DefaultResult") <*>-      fmap (fmap (fmap unInteger')) (obj .:? "HeartbeatTimeout") <*>-      (obj .:? "LifecycleHookName") <*>-      (obj .: "LifecycleTransition") <*>-      (obj .:? "NotificationMetadata") <*>-      (obj .:? "NotificationTargetARN") <*>-      (obj .:? "RoleARN")-  parseJSON _ = mempty- -- | Constructor for 'AutoScalingLifecycleHook' containing required fields as -- arguments. autoScalingLifecycleHook
library-gen/Stratosphere/Resources/AutoScalingPlansScalingPlan.hs view
@@ -26,13 +26,6 @@     , (Just . ("ScalingInstructions",) . toJSON) _autoScalingPlansScalingPlanScalingInstructions     ] -instance FromJSON AutoScalingPlansScalingPlan where-  parseJSON (Object obj) =-    AutoScalingPlansScalingPlan <$>-      (obj .: "ApplicationSource") <*>-      (obj .: "ScalingInstructions")-  parseJSON _ = mempty- -- | Constructor for 'AutoScalingPlansScalingPlan' containing required fields -- as arguments. autoScalingPlansScalingPlan
library-gen/Stratosphere/Resources/AutoScalingScalingPolicy.hs view
@@ -42,21 +42,6 @@     , fmap (("TargetTrackingConfiguration",) . toJSON) _autoScalingScalingPolicyTargetTrackingConfiguration     ] -instance FromJSON AutoScalingScalingPolicy where-  parseJSON (Object obj) =-    AutoScalingScalingPolicy <$>-      (obj .:? "AdjustmentType") <*>-      (obj .: "AutoScalingGroupName") <*>-      (obj .:? "Cooldown") <*>-      fmap (fmap (fmap unInteger')) (obj .:? "EstimatedInstanceWarmup") <*>-      (obj .:? "MetricAggregationType") <*>-      fmap (fmap (fmap unInteger')) (obj .:? "MinAdjustmentMagnitude") <*>-      (obj .:? "PolicyType") <*>-      fmap (fmap (fmap unInteger')) (obj .:? "ScalingAdjustment") <*>-      (obj .:? "StepAdjustments") <*>-      (obj .:? "TargetTrackingConfiguration")-  parseJSON _ = mempty- -- | Constructor for 'AutoScalingScalingPolicy' containing required fields as -- arguments. autoScalingScalingPolicy
library-gen/Stratosphere/Resources/AutoScalingScheduledAction.hs view
@@ -35,18 +35,6 @@     , fmap (("StartTime",) . toJSON) _autoScalingScheduledActionStartTime     ] -instance FromJSON AutoScalingScheduledAction where-  parseJSON (Object obj) =-    AutoScalingScheduledAction <$>-      (obj .: "AutoScalingGroupName") <*>-      fmap (fmap (fmap unInteger')) (obj .:? "DesiredCapacity") <*>-      (obj .:? "EndTime") <*>-      fmap (fmap (fmap unInteger')) (obj .:? "MaxSize") <*>-      fmap (fmap (fmap unInteger')) (obj .:? "MinSize") <*>-      (obj .:? "Recurrence") <*>-      (obj .:? "StartTime")-  parseJSON _ = mempty- -- | Constructor for 'AutoScalingScheduledAction' containing required fields -- as arguments. autoScalingScheduledAction
library-gen/Stratosphere/Resources/BatchComputeEnvironment.hs view
@@ -31,16 +31,6 @@     , (Just . ("Type",) . toJSON) _batchComputeEnvironmentType     ] -instance FromJSON BatchComputeEnvironment where-  parseJSON (Object obj) =-    BatchComputeEnvironment <$>-      (obj .:? "ComputeEnvironmentName") <*>-      (obj .:? "ComputeResources") <*>-      (obj .: "ServiceRole") <*>-      (obj .:? "State") <*>-      (obj .: "Type")-  parseJSON _ = mempty- -- | Constructor for 'BatchComputeEnvironment' containing required fields as -- arguments. batchComputeEnvironment
library-gen/Stratosphere/Resources/BatchJobDefinition.hs view
@@ -38,18 +38,6 @@     , (Just . ("Type",) . toJSON) _batchJobDefinitionType     ] -instance FromJSON BatchJobDefinition where-  parseJSON (Object obj) =-    BatchJobDefinition <$>-      (obj .:? "ContainerProperties") <*>-      (obj .:? "JobDefinitionName") <*>-      (obj .:? "NodeProperties") <*>-      (obj .:? "Parameters") <*>-      (obj .:? "RetryStrategy") <*>-      (obj .:? "Timeout") <*>-      (obj .: "Type")-  parseJSON _ = mempty- -- | Constructor for 'BatchJobDefinition' containing required fields as -- arguments. batchJobDefinition
library-gen/Stratosphere/Resources/BatchJobQueue.hs view
@@ -29,15 +29,6 @@     , fmap (("State",) . toJSON) _batchJobQueueState     ] -instance FromJSON BatchJobQueue where-  parseJSON (Object obj) =-    BatchJobQueue <$>-      (obj .: "ComputeEnvironmentOrder") <*>-      (obj .:? "JobQueueName") <*>-      fmap (fmap unInteger') (obj .: "Priority") <*>-      (obj .:? "State")-  parseJSON _ = mempty- -- | Constructor for 'BatchJobQueue' containing required fields as arguments. batchJobQueue   :: [BatchJobQueueComputeEnvironmentOrder] -- ^ 'bjqComputeEnvironmentOrder'
library-gen/Stratosphere/Resources/BudgetsBudget.hs view
@@ -26,13 +26,6 @@     , fmap (("NotificationsWithSubscribers",) . toJSON) _budgetsBudgetNotificationsWithSubscribers     ] -instance FromJSON BudgetsBudget where-  parseJSON (Object obj) =-    BudgetsBudget <$>-      (obj .: "Budget") <*>-      (obj .:? "NotificationsWithSubscribers")-  parseJSON _ = mempty- -- | Constructor for 'BudgetsBudget' containing required fields as arguments. budgetsBudget   :: BudgetsBudgetBudgetData -- ^ 'bbBudget'
library-gen/Stratosphere/Resources/CertificateManagerCertificate.hs view
@@ -32,16 +32,6 @@     , fmap (("ValidationMethod",) . toJSON) _certificateManagerCertificateValidationMethod     ] -instance FromJSON CertificateManagerCertificate where-  parseJSON (Object obj) =-    CertificateManagerCertificate <$>-      (obj .: "DomainName") <*>-      (obj .:? "DomainValidationOptions") <*>-      (obj .:? "SubjectAlternativeNames") <*>-      (obj .:? "Tags") <*>-      (obj .:? "ValidationMethod")-  parseJSON _ = mempty- -- | Constructor for 'CertificateManagerCertificate' containing required -- fields as arguments. certificateManagerCertificate
library-gen/Stratosphere/Resources/Cloud9EnvironmentEC2.hs view
@@ -35,18 +35,6 @@     , fmap (("SubnetId",) . toJSON) _cloud9EnvironmentEC2SubnetId     ] -instance FromJSON Cloud9EnvironmentEC2 where-  parseJSON (Object obj) =-    Cloud9EnvironmentEC2 <$>-      fmap (fmap (fmap unInteger')) (obj .:? "AutomaticStopTimeMinutes") <*>-      (obj .:? "Description") <*>-      (obj .: "InstanceType") <*>-      (obj .:? "Name") <*>-      (obj .:? "OwnerArn") <*>-      (obj .:? "Repositories") <*>-      (obj .:? "SubnetId")-  parseJSON _ = mempty- -- | Constructor for 'Cloud9EnvironmentEC2' containing required fields as -- arguments. cloud9EnvironmentEC2
library-gen/Stratosphere/Resources/CloudFormationCustomResource.hs view
@@ -23,12 +23,6 @@     [ (Just . ("ServiceToken",) . toJSON) _cloudFormationCustomResourceServiceToken     ] -instance FromJSON CloudFormationCustomResource where-  parseJSON (Object obj) =-    CloudFormationCustomResource <$>-      (obj .: "ServiceToken")-  parseJSON _ = mempty- -- | Constructor for 'CloudFormationCustomResource' containing required fields -- as arguments. cloudFormationCustomResource
library-gen/Stratosphere/Resources/CloudFormationMacro.hs view
@@ -31,16 +31,6 @@     , (Just . ("Name",) . toJSON) _cloudFormationMacroName     ] -instance FromJSON CloudFormationMacro where-  parseJSON (Object obj) =-    CloudFormationMacro <$>-      (obj .:? "Description") <*>-      (obj .: "FunctionName") <*>-      (obj .:? "LogGroupName") <*>-      (obj .:? "LogRoleARN") <*>-      (obj .: "Name")-  parseJSON _ = mempty- -- | Constructor for 'CloudFormationMacro' containing required fields as -- arguments. cloudFormationMacro
library-gen/Stratosphere/Resources/CloudFormationStack.hs view
@@ -31,16 +31,6 @@     , fmap (("TimeoutInMinutes",) . toJSON . fmap Integer') _cloudFormationStackTimeoutInMinutes     ] -instance FromJSON CloudFormationStack where-  parseJSON (Object obj) =-    CloudFormationStack <$>-      (obj .:? "NotificationARNs") <*>-      (obj .:? "Parameters") <*>-      (obj .:? "Tags") <*>-      (obj .: "TemplateURL") <*>-      fmap (fmap (fmap unInteger')) (obj .:? "TimeoutInMinutes")-  parseJSON _ = mempty- -- | Constructor for 'CloudFormationStack' containing required fields as -- arguments. cloudFormationStack
library-gen/Stratosphere/Resources/CloudFormationWaitCondition.hs view
@@ -27,14 +27,6 @@     , fmap (("Timeout",) . toJSON) _cloudFormationWaitConditionTimeout     ] -instance FromJSON CloudFormationWaitCondition where-  parseJSON (Object obj) =-    CloudFormationWaitCondition <$>-      fmap (fmap (fmap unInteger')) (obj .:? "Count") <*>-      (obj .:? "Handle") <*>-      (obj .:? "Timeout")-  parseJSON _ = mempty- -- | Constructor for 'CloudFormationWaitCondition' containing required fields -- as arguments. cloudFormationWaitCondition
library-gen/Stratosphere/Resources/CloudFormationWaitConditionHandle.hs view
@@ -19,10 +19,6 @@ instance ToJSON CloudFormationWaitConditionHandle where   toJSON _ = toJSON ([] :: [String]) -instance FromJSON CloudFormationWaitConditionHandle where-  parseJSON (Array _) = return CloudFormationWaitConditionHandle-  parseJSON _ = mempty- -- | Constructor for 'CloudFormationWaitConditionHandle' containing required -- fields as arguments. cloudFormationWaitConditionHandle
library-gen/Stratosphere/Resources/CloudFrontCloudFrontOriginAccessIdentity.hs view
@@ -24,12 +24,6 @@     [ (Just . ("CloudFrontOriginAccessIdentityConfig",) . toJSON) _cloudFrontCloudFrontOriginAccessIdentityCloudFrontOriginAccessIdentityConfig     ] -instance FromJSON CloudFrontCloudFrontOriginAccessIdentity where-  parseJSON (Object obj) =-    CloudFrontCloudFrontOriginAccessIdentity <$>-      (obj .: "CloudFrontOriginAccessIdentityConfig")-  parseJSON _ = mempty- -- | Constructor for 'CloudFrontCloudFrontOriginAccessIdentity' containing -- required fields as arguments. cloudFrontCloudFrontOriginAccessIdentity
library-gen/Stratosphere/Resources/CloudFrontDistribution.hs view
@@ -26,13 +26,6 @@     , fmap (("Tags",) . toJSON) _cloudFrontDistributionTags     ] -instance FromJSON CloudFrontDistribution where-  parseJSON (Object obj) =-    CloudFrontDistribution <$>-      (obj .: "DistributionConfig") <*>-      (obj .:? "Tags")-  parseJSON _ = mempty- -- | Constructor for 'CloudFrontDistribution' containing required fields as -- arguments. cloudFrontDistribution
library-gen/Stratosphere/Resources/CloudFrontStreamingDistribution.hs view
@@ -26,13 +26,6 @@     , (Just . ("Tags",) . toJSON) _cloudFrontStreamingDistributionTags     ] -instance FromJSON CloudFrontStreamingDistribution where-  parseJSON (Object obj) =-    CloudFrontStreamingDistribution <$>-      (obj .: "StreamingDistributionConfig") <*>-      (obj .: "Tags")-  parseJSON _ = mempty- -- | Constructor for 'CloudFrontStreamingDistribution' containing required -- fields as arguments. cloudFrontStreamingDistribution
library-gen/Stratosphere/Resources/CloudTrailTrail.hs view
@@ -48,24 +48,6 @@     , fmap (("TrailName",) . toJSON) _cloudTrailTrailTrailName     ] -instance FromJSON CloudTrailTrail where-  parseJSON (Object obj) =-    CloudTrailTrail <$>-      (obj .:? "CloudWatchLogsLogGroupArn") <*>-      (obj .:? "CloudWatchLogsRoleArn") <*>-      fmap (fmap (fmap unBool')) (obj .:? "EnableLogFileValidation") <*>-      (obj .:? "EventSelectors") <*>-      fmap (fmap (fmap unBool')) (obj .:? "IncludeGlobalServiceEvents") <*>-      fmap (fmap unBool') (obj .: "IsLogging") <*>-      fmap (fmap (fmap unBool')) (obj .:? "IsMultiRegionTrail") <*>-      (obj .:? "KMSKeyId") <*>-      (obj .: "S3BucketName") <*>-      (obj .:? "S3KeyPrefix") <*>-      (obj .:? "SnsTopicName") <*>-      (obj .:? "Tags") <*>-      (obj .:? "TrailName")-  parseJSON _ = mempty- -- | Constructor for 'CloudTrailTrail' containing required fields as -- arguments. cloudTrailTrail
library-gen/Stratosphere/Resources/CloudWatchAlarm.hs view
@@ -62,31 +62,6 @@     , fmap (("Unit",) . toJSON) _cloudWatchAlarmUnit     ] -instance FromJSON CloudWatchAlarm where-  parseJSON (Object obj) =-    CloudWatchAlarm <$>-      fmap (fmap (fmap unBool')) (obj .:? "ActionsEnabled") <*>-      (obj .:? "AlarmActions") <*>-      (obj .:? "AlarmDescription") <*>-      (obj .:? "AlarmName") <*>-      (obj .: "ComparisonOperator") <*>-      fmap (fmap (fmap unInteger')) (obj .:? "DatapointsToAlarm") <*>-      (obj .:? "Dimensions") <*>-      (obj .:? "EvaluateLowSampleCountPercentile") <*>-      fmap (fmap unInteger') (obj .: "EvaluationPeriods") <*>-      (obj .:? "ExtendedStatistic") <*>-      (obj .:? "InsufficientDataActions") <*>-      (obj .:? "MetricName") <*>-      (obj .:? "Metrics") <*>-      (obj .:? "Namespace") <*>-      (obj .:? "OKActions") <*>-      fmap (fmap (fmap unInteger')) (obj .:? "Period") <*>-      (obj .:? "Statistic") <*>-      fmap (fmap unDouble') (obj .: "Threshold") <*>-      (obj .:? "TreatMissingData") <*>-      (obj .:? "Unit")-  parseJSON _ = mempty- -- | Constructor for 'CloudWatchAlarm' containing required fields as -- arguments. cloudWatchAlarm
library-gen/Stratosphere/Resources/CloudWatchDashboard.hs view
@@ -25,13 +25,6 @@     , fmap (("DashboardName",) . toJSON) _cloudWatchDashboardDashboardName     ] -instance FromJSON CloudWatchDashboard where-  parseJSON (Object obj) =-    CloudWatchDashboard <$>-      (obj .: "DashboardBody") <*>-      (obj .:? "DashboardName")-  parseJSON _ = mempty- -- | Constructor for 'CloudWatchDashboard' containing required fields as -- arguments. cloudWatchDashboard
library-gen/Stratosphere/Resources/CodeBuildProject.hs view
@@ -62,28 +62,6 @@     , fmap (("VpcConfig",) . toJSON) _codeBuildProjectVpcConfig     ] -instance FromJSON CodeBuildProject where-  parseJSON (Object obj) =-    CodeBuildProject <$>-      (obj .: "Artifacts") <*>-      fmap (fmap (fmap unBool')) (obj .:? "BadgeEnabled") <*>-      (obj .:? "Cache") <*>-      (obj .:? "Description") <*>-      (obj .:? "EncryptionKey") <*>-      (obj .: "Environment") <*>-      (obj .:? "LogsConfig") <*>-      (obj .:? "Name") <*>-      fmap (fmap (fmap unInteger')) (obj .:? "QueuedTimeoutInMinutes") <*>-      (obj .:? "SecondaryArtifacts") <*>-      (obj .:? "SecondarySources") <*>-      (obj .: "ServiceRole") <*>-      (obj .: "Source") <*>-      (obj .:? "Tags") <*>-      fmap (fmap (fmap unInteger')) (obj .:? "TimeoutInMinutes") <*>-      (obj .:? "Triggers") <*>-      (obj .:? "VpcConfig")-  parseJSON _ = mempty- -- | Constructor for 'CodeBuildProject' containing required fields as -- arguments. codeBuildProject
library-gen/Stratosphere/Resources/CodeCommitRepository.hs view
@@ -27,14 +27,6 @@     , fmap (("Triggers",) . toJSON) _codeCommitRepositoryTriggers     ] -instance FromJSON CodeCommitRepository where-  parseJSON (Object obj) =-    CodeCommitRepository <$>-      (obj .:? "RepositoryDescription") <*>-      (obj .: "RepositoryName") <*>-      (obj .:? "Triggers")-  parseJSON _ = mempty- -- | Constructor for 'CodeCommitRepository' containing required fields as -- arguments. codeCommitRepository
library-gen/Stratosphere/Resources/CodeDeployApplication.hs view
@@ -25,13 +25,6 @@     , fmap (("ComputePlatform",) . toJSON) _codeDeployApplicationComputePlatform     ] -instance FromJSON CodeDeployApplication where-  parseJSON (Object obj) =-    CodeDeployApplication <$>-      (obj .:? "ApplicationName") <*>-      (obj .:? "ComputePlatform")-  parseJSON _ = mempty- -- | Constructor for 'CodeDeployApplication' containing required fields as -- arguments. codeDeployApplication
library-gen/Stratosphere/Resources/CodeDeployDeploymentConfig.hs view
@@ -25,13 +25,6 @@     , fmap (("MinimumHealthyHosts",) . toJSON) _codeDeployDeploymentConfigMinimumHealthyHosts     ] -instance FromJSON CodeDeployDeploymentConfig where-  parseJSON (Object obj) =-    CodeDeployDeploymentConfig <$>-      (obj .:? "DeploymentConfigName") <*>-      (obj .:? "MinimumHealthyHosts")-  parseJSON _ = mempty- -- | Constructor for 'CodeDeployDeploymentConfig' containing required fields -- as arguments. codeDeployDeploymentConfig
library-gen/Stratosphere/Resources/CodeDeployDeploymentGroup.hs view
@@ -60,26 +60,6 @@     , fmap (("TriggerConfigurations",) . toJSON) _codeDeployDeploymentGroupTriggerConfigurations     ] -instance FromJSON CodeDeployDeploymentGroup where-  parseJSON (Object obj) =-    CodeDeployDeploymentGroup <$>-      (obj .:? "AlarmConfiguration") <*>-      (obj .: "ApplicationName") <*>-      (obj .:? "AutoRollbackConfiguration") <*>-      (obj .:? "AutoScalingGroups") <*>-      (obj .:? "Deployment") <*>-      (obj .:? "DeploymentConfigName") <*>-      (obj .:? "DeploymentGroupName") <*>-      (obj .:? "DeploymentStyle") <*>-      (obj .:? "Ec2TagFilters") <*>-      (obj .:? "Ec2TagSet") <*>-      (obj .:? "LoadBalancerInfo") <*>-      (obj .:? "OnPremisesInstanceTagFilters") <*>-      (obj .:? "OnPremisesTagSet") <*>-      (obj .: "ServiceRoleArn") <*>-      (obj .:? "TriggerConfigurations")-  parseJSON _ = mempty- -- | Constructor for 'CodeDeployDeploymentGroup' containing required fields as -- arguments. codeDeployDeploymentGroup
library-gen/Stratosphere/Resources/CodePipelineCustomActionType.hs view
@@ -37,18 +37,6 @@     , fmap (("Version",) . toJSON) _codePipelineCustomActionTypeVersion     ] -instance FromJSON CodePipelineCustomActionType where-  parseJSON (Object obj) =-    CodePipelineCustomActionType <$>-      (obj .: "Category") <*>-      (obj .:? "ConfigurationProperties") <*>-      (obj .: "InputArtifactDetails") <*>-      (obj .: "OutputArtifactDetails") <*>-      (obj .: "Provider") <*>-      (obj .:? "Settings") <*>-      (obj .:? "Version")-  parseJSON _ = mempty- -- | Constructor for 'CodePipelineCustomActionType' containing required fields -- as arguments. codePipelineCustomActionType
library-gen/Stratosphere/Resources/CodePipelinePipeline.hs view
@@ -38,18 +38,6 @@     , (Just . ("Stages",) . toJSON) _codePipelinePipelineStages     ] -instance FromJSON CodePipelinePipeline where-  parseJSON (Object obj) =-    CodePipelinePipeline <$>-      (obj .:? "ArtifactStore") <*>-      (obj .:? "ArtifactStores") <*>-      (obj .:? "DisableInboundStageTransitions") <*>-      (obj .:? "Name") <*>-      fmap (fmap (fmap unBool')) (obj .:? "RestartExecutionOnUpdate") <*>-      (obj .: "RoleArn") <*>-      (obj .: "Stages")-  parseJSON _ = mempty- -- | Constructor for 'CodePipelinePipeline' containing required fields as -- arguments. codePipelinePipeline
library-gen/Stratosphere/Resources/CodePipelineWebhook.hs view
@@ -38,19 +38,6 @@     , (Just . ("TargetPipelineVersion",) . toJSON . fmap Integer') _codePipelineWebhookTargetPipelineVersion     ] -instance FromJSON CodePipelineWebhook where-  parseJSON (Object obj) =-    CodePipelineWebhook <$>-      (obj .: "Authentication") <*>-      (obj .: "AuthenticationConfiguration") <*>-      (obj .: "Filters") <*>-      (obj .:? "Name") <*>-      fmap (fmap (fmap unBool')) (obj .:? "RegisterWithThirdParty") <*>-      (obj .: "TargetAction") <*>-      (obj .: "TargetPipeline") <*>-      fmap (fmap unInteger') (obj .: "TargetPipelineVersion")-  parseJSON _ = mempty- -- | Constructor for 'CodePipelineWebhook' containing required fields as -- arguments. codePipelineWebhook
library-gen/Stratosphere/Resources/CognitoIdentityPool.hs view
@@ -43,21 +43,6 @@     , fmap (("SupportedLoginProviders",) . toJSON) _cognitoIdentityPoolSupportedLoginProviders     ] -instance FromJSON CognitoIdentityPool where-  parseJSON (Object obj) =-    CognitoIdentityPool <$>-      fmap (fmap unBool') (obj .: "AllowUnauthenticatedIdentities") <*>-      (obj .:? "CognitoEvents") <*>-      (obj .:? "CognitoIdentityProviders") <*>-      (obj .:? "CognitoStreams") <*>-      (obj .:? "DeveloperProviderName") <*>-      (obj .:? "IdentityPoolName") <*>-      (obj .:? "OpenIdConnectProviderARNs") <*>-      (obj .:? "PushSync") <*>-      (obj .:? "SamlProviderARNs") <*>-      (obj .:? "SupportedLoginProviders")-  parseJSON _ = mempty- -- | Constructor for 'CognitoIdentityPool' containing required fields as -- arguments. cognitoIdentityPool
library-gen/Stratosphere/Resources/CognitoIdentityPoolRoleAttachment.hs view
@@ -27,14 +27,6 @@     , fmap (("Roles",) . toJSON) _cognitoIdentityPoolRoleAttachmentRoles     ] -instance FromJSON CognitoIdentityPoolRoleAttachment where-  parseJSON (Object obj) =-    CognitoIdentityPoolRoleAttachment <$>-      (obj .: "IdentityPoolId") <*>-      (obj .:? "RoleMappings") <*>-      (obj .:? "Roles")-  parseJSON _ = mempty- -- | Constructor for 'CognitoIdentityPoolRoleAttachment' containing required -- fields as arguments. cognitoIdentityPoolRoleAttachment
library-gen/Stratosphere/Resources/CognitoUserPool.hs view
@@ -61,28 +61,6 @@     , fmap (("UsernameAttributes",) . toJSON) _cognitoUserPoolUsernameAttributes     ] -instance FromJSON CognitoUserPool where-  parseJSON (Object obj) =-    CognitoUserPool <$>-      (obj .:? "AdminCreateUserConfig") <*>-      (obj .:? "AliasAttributes") <*>-      (obj .:? "AutoVerifiedAttributes") <*>-      (obj .:? "DeviceConfiguration") <*>-      (obj .:? "EmailConfiguration") <*>-      (obj .:? "EmailVerificationMessage") <*>-      (obj .:? "EmailVerificationSubject") <*>-      (obj .:? "LambdaConfig") <*>-      (obj .:? "MfaConfiguration") <*>-      (obj .:? "Policies") <*>-      (obj .:? "Schema") <*>-      (obj .:? "SmsAuthenticationMessage") <*>-      (obj .:? "SmsConfiguration") <*>-      (obj .:? "SmsVerificationMessage") <*>-      (obj .:? "UserPoolName") <*>-      (obj .:? "UserPoolTags") <*>-      (obj .:? "UsernameAttributes")-  parseJSON _ = mempty- -- | Constructor for 'CognitoUserPool' containing required fields as -- arguments. cognitoUserPool
library-gen/Stratosphere/Resources/CognitoUserPoolClient.hs view
@@ -35,18 +35,6 @@     , fmap (("WriteAttributes",) . toJSON) _cognitoUserPoolClientWriteAttributes     ] -instance FromJSON CognitoUserPoolClient where-  parseJSON (Object obj) =-    CognitoUserPoolClient <$>-      (obj .:? "ClientName") <*>-      (obj .:? "ExplicitAuthFlows") <*>-      fmap (fmap (fmap unBool')) (obj .:? "GenerateSecret") <*>-      (obj .:? "ReadAttributes") <*>-      fmap (fmap (fmap unDouble')) (obj .:? "RefreshTokenValidity") <*>-      (obj .: "UserPoolId") <*>-      (obj .:? "WriteAttributes")-  parseJSON _ = mempty- -- | Constructor for 'CognitoUserPoolClient' containing required fields as -- arguments. cognitoUserPoolClient
library-gen/Stratosphere/Resources/CognitoUserPoolGroup.hs view
@@ -31,16 +31,6 @@     , (Just . ("UserPoolId",) . toJSON) _cognitoUserPoolGroupUserPoolId     ] -instance FromJSON CognitoUserPoolGroup where-  parseJSON (Object obj) =-    CognitoUserPoolGroup <$>-      (obj .:? "Description") <*>-      (obj .:? "GroupName") <*>-      fmap (fmap (fmap unDouble')) (obj .:? "Precedence") <*>-      (obj .:? "RoleArn") <*>-      (obj .: "UserPoolId")-  parseJSON _ = mempty- -- | Constructor for 'CognitoUserPoolGroup' containing required fields as -- arguments. cognitoUserPoolGroup
library-gen/Stratosphere/Resources/CognitoUserPoolUser.hs view
@@ -35,18 +35,6 @@     , fmap (("ValidationData",) . toJSON) _cognitoUserPoolUserValidationData     ] -instance FromJSON CognitoUserPoolUser where-  parseJSON (Object obj) =-    CognitoUserPoolUser <$>-      (obj .:? "DesiredDeliveryMediums") <*>-      fmap (fmap (fmap unBool')) (obj .:? "ForceAliasCreation") <*>-      (obj .:? "MessageAction") <*>-      (obj .:? "UserAttributes") <*>-      (obj .: "UserPoolId") <*>-      (obj .:? "Username") <*>-      (obj .:? "ValidationData")-  parseJSON _ = mempty- -- | Constructor for 'CognitoUserPoolUser' containing required fields as -- arguments. cognitoUserPoolUser
library-gen/Stratosphere/Resources/CognitoUserPoolUserToGroupAttachment.hs view
@@ -27,14 +27,6 @@     , (Just . ("Username",) . toJSON) _cognitoUserPoolUserToGroupAttachmentUsername     ] -instance FromJSON CognitoUserPoolUserToGroupAttachment where-  parseJSON (Object obj) =-    CognitoUserPoolUserToGroupAttachment <$>-      (obj .: "GroupName") <*>-      (obj .: "UserPoolId") <*>-      (obj .: "Username")-  parseJSON _ = mempty- -- | Constructor for 'CognitoUserPoolUserToGroupAttachment' containing -- required fields as arguments. cognitoUserPoolUserToGroupAttachment
library-gen/Stratosphere/Resources/ConfigAggregationAuthorization.hs view
@@ -25,13 +25,6 @@     , (Just . ("AuthorizedAwsRegion",) . toJSON) _configAggregationAuthorizationAuthorizedAwsRegion     ] -instance FromJSON ConfigAggregationAuthorization where-  parseJSON (Object obj) =-    ConfigAggregationAuthorization <$>-      (obj .: "AuthorizedAccountId") <*>-      (obj .: "AuthorizedAwsRegion")-  parseJSON _ = mempty- -- | Constructor for 'ConfigAggregationAuthorization' containing required -- fields as arguments. configAggregationAuthorization
library-gen/Stratosphere/Resources/ConfigConfigRule.hs view
@@ -34,17 +34,6 @@     , (Just . ("Source",) . toJSON) _configConfigRuleSource     ] -instance FromJSON ConfigConfigRule where-  parseJSON (Object obj) =-    ConfigConfigRule <$>-      (obj .:? "ConfigRuleName") <*>-      (obj .:? "Description") <*>-      (obj .:? "InputParameters") <*>-      (obj .:? "MaximumExecutionFrequency") <*>-      (obj .:? "Scope") <*>-      (obj .: "Source")-  parseJSON _ = mempty- -- | Constructor for 'ConfigConfigRule' containing required fields as -- arguments. configConfigRule
library-gen/Stratosphere/Resources/ConfigConfigurationAggregator.hs view
@@ -28,14 +28,6 @@     , fmap (("OrganizationAggregationSource",) . toJSON) _configConfigurationAggregatorOrganizationAggregationSource     ] -instance FromJSON ConfigConfigurationAggregator where-  parseJSON (Object obj) =-    ConfigConfigurationAggregator <$>-      (obj .:? "AccountAggregationSources") <*>-      (obj .: "ConfigurationAggregatorName") <*>-      (obj .:? "OrganizationAggregationSource")-  parseJSON _ = mempty- -- | Constructor for 'ConfigConfigurationAggregator' containing required -- fields as arguments. configConfigurationAggregator
library-gen/Stratosphere/Resources/ConfigConfigurationRecorder.hs view
@@ -27,14 +27,6 @@     , (Just . ("RoleARN",) . toJSON) _configConfigurationRecorderRoleARN     ] -instance FromJSON ConfigConfigurationRecorder where-  parseJSON (Object obj) =-    ConfigConfigurationRecorder <$>-      (obj .:? "Name") <*>-      (obj .:? "RecordingGroup") <*>-      (obj .: "RoleARN")-  parseJSON _ = mempty- -- | Constructor for 'ConfigConfigurationRecorder' containing required fields -- as arguments. configConfigurationRecorder
library-gen/Stratosphere/Resources/ConfigDeliveryChannel.hs view
@@ -31,16 +31,6 @@     , fmap (("SnsTopicARN",) . toJSON) _configDeliveryChannelSnsTopicARN     ] -instance FromJSON ConfigDeliveryChannel where-  parseJSON (Object obj) =-    ConfigDeliveryChannel <$>-      (obj .:? "ConfigSnapshotDeliveryProperties") <*>-      (obj .:? "Name") <*>-      (obj .: "S3BucketName") <*>-      (obj .:? "S3KeyPrefix") <*>-      (obj .:? "SnsTopicARN")-  parseJSON _ = mempty- -- | Constructor for 'ConfigDeliveryChannel' containing required fields as -- arguments. configDeliveryChannel
library-gen/Stratosphere/Resources/DAXCluster.hs view
@@ -47,24 +47,6 @@     , fmap (("Tags",) . toJSON) _dAXClusterTags     ] -instance FromJSON DAXCluster where-  parseJSON (Object obj) =-    DAXCluster <$>-      (obj .:? "AvailabilityZones") <*>-      (obj .:? "ClusterName") <*>-      (obj .:? "Description") <*>-      (obj .: "IAMRoleARN") <*>-      (obj .: "NodeType") <*>-      (obj .:? "NotificationTopicARN") <*>-      (obj .:? "ParameterGroupName") <*>-      (obj .:? "PreferredMaintenanceWindow") <*>-      fmap (fmap unInteger') (obj .: "ReplicationFactor") <*>-      (obj .:? "SSESpecification") <*>-      (obj .:? "SecurityGroupIds") <*>-      (obj .:? "SubnetGroupName") <*>-      (obj .:? "Tags")-  parseJSON _ = mempty- -- | Constructor for 'DAXCluster' containing required fields as arguments. daxCluster   :: Val Text -- ^ 'daxcIAMRoleARN'
library-gen/Stratosphere/Resources/DAXParameterGroup.hs view
@@ -27,14 +27,6 @@     , fmap (("ParameterNameValues",) . toJSON) _dAXParameterGroupParameterNameValues     ] -instance FromJSON DAXParameterGroup where-  parseJSON (Object obj) =-    DAXParameterGroup <$>-      (obj .:? "Description") <*>-      (obj .:? "ParameterGroupName") <*>-      (obj .:? "ParameterNameValues")-  parseJSON _ = mempty- -- | Constructor for 'DAXParameterGroup' containing required fields as -- arguments. daxParameterGroup
library-gen/Stratosphere/Resources/DAXSubnetGroup.hs view
@@ -27,14 +27,6 @@     , (Just . ("SubnetIds",) . toJSON) _dAXSubnetGroupSubnetIds     ] -instance FromJSON DAXSubnetGroup where-  parseJSON (Object obj) =-    DAXSubnetGroup <$>-      (obj .:? "Description") <*>-      (obj .:? "SubnetGroupName") <*>-      (obj .: "SubnetIds")-  parseJSON _ = mempty- -- | Constructor for 'DAXSubnetGroup' containing required fields as arguments. daxSubnetGroup   :: ValList Text -- ^ 'daxsgSubnetIds'
library-gen/Stratosphere/Resources/DLMLifecyclePolicy.hs view
@@ -29,15 +29,6 @@     , fmap (("State",) . toJSON) _dLMLifecyclePolicyState     ] -instance FromJSON DLMLifecyclePolicy where-  parseJSON (Object obj) =-    DLMLifecyclePolicy <$>-      (obj .:? "Description") <*>-      (obj .:? "ExecutionRoleArn") <*>-      (obj .:? "PolicyDetails") <*>-      (obj .:? "State")-  parseJSON _ = mempty- -- | Constructor for 'DLMLifecyclePolicy' containing required fields as -- arguments. dlmLifecyclePolicy
library-gen/Stratosphere/Resources/DMSCertificate.hs view
@@ -27,14 +27,6 @@     , fmap (("CertificateWallet",) . toJSON) _dMSCertificateCertificateWallet     ] -instance FromJSON DMSCertificate where-  parseJSON (Object obj) =-    DMSCertificate <$>-      (obj .:? "CertificateIdentifier") <*>-      (obj .:? "CertificatePem") <*>-      (obj .:? "CertificateWallet")-  parseJSON _ = mempty- -- | Constructor for 'DMSCertificate' containing required fields as arguments. dmsCertificate   :: DMSCertificate
library-gen/Stratosphere/Resources/DMSEndpoint.hs view
@@ -62,29 +62,6 @@     , fmap (("Username",) . toJSON) _dMSEndpointUsername     ] -instance FromJSON DMSEndpoint where-  parseJSON (Object obj) =-    DMSEndpoint <$>-      (obj .:? "CertificateArn") <*>-      (obj .:? "DatabaseName") <*>-      (obj .:? "DynamoDbSettings") <*>-      (obj .:? "ElasticsearchSettings") <*>-      (obj .:? "EndpointIdentifier") <*>-      (obj .: "EndpointType") <*>-      (obj .: "EngineName") <*>-      (obj .:? "ExtraConnectionAttributes") <*>-      (obj .:? "KinesisSettings") <*>-      (obj .:? "KmsKeyId") <*>-      (obj .:? "MongoDbSettings") <*>-      (obj .:? "Password") <*>-      fmap (fmap (fmap unInteger')) (obj .:? "Port") <*>-      (obj .:? "S3Settings") <*>-      (obj .:? "ServerName") <*>-      (obj .:? "SslMode") <*>-      (obj .:? "Tags") <*>-      (obj .:? "Username")-  parseJSON _ = mempty- -- | Constructor for 'DMSEndpoint' containing required fields as arguments. dmsEndpoint   :: Val Text -- ^ 'dmseEndpointType'
library-gen/Stratosphere/Resources/DMSEventSubscription.hs view
@@ -35,18 +35,6 @@     , fmap (("Tags",) . toJSON) _dMSEventSubscriptionTags     ] -instance FromJSON DMSEventSubscription where-  parseJSON (Object obj) =-    DMSEventSubscription <$>-      fmap (fmap (fmap unBool')) (obj .:? "Enabled") <*>-      (obj .:? "EventCategories") <*>-      (obj .: "SnsTopicArn") <*>-      (obj .:? "SourceIds") <*>-      (obj .:? "SourceType") <*>-      (obj .:? "SubscriptionName") <*>-      (obj .:? "Tags")-  parseJSON _ = mempty- -- | Constructor for 'DMSEventSubscription' containing required fields as -- arguments. dmsEventSubscription
library-gen/Stratosphere/Resources/DMSReplicationInstance.hs view
@@ -49,25 +49,6 @@     , fmap (("VpcSecurityGroupIds",) . toJSON) _dMSReplicationInstanceVpcSecurityGroupIds     ] -instance FromJSON DMSReplicationInstance where-  parseJSON (Object obj) =-    DMSReplicationInstance <$>-      fmap (fmap (fmap unInteger')) (obj .:? "AllocatedStorage") <*>-      fmap (fmap (fmap unBool')) (obj .:? "AllowMajorVersionUpgrade") <*>-      fmap (fmap (fmap unBool')) (obj .:? "AutoMinorVersionUpgrade") <*>-      (obj .:? "AvailabilityZone") <*>-      (obj .:? "EngineVersion") <*>-      (obj .:? "KmsKeyId") <*>-      fmap (fmap (fmap unBool')) (obj .:? "MultiAZ") <*>-      (obj .:? "PreferredMaintenanceWindow") <*>-      fmap (fmap (fmap unBool')) (obj .:? "PubliclyAccessible") <*>-      (obj .: "ReplicationInstanceClass") <*>-      (obj .:? "ReplicationInstanceIdentifier") <*>-      (obj .:? "ReplicationSubnetGroupIdentifier") <*>-      (obj .:? "Tags") <*>-      (obj .:? "VpcSecurityGroupIds")-  parseJSON _ = mempty- -- | Constructor for 'DMSReplicationInstance' containing required fields as -- arguments. dmsReplicationInstance
library-gen/Stratosphere/Resources/DMSReplicationSubnetGroup.hs view
@@ -29,15 +29,6 @@     , fmap (("Tags",) . toJSON) _dMSReplicationSubnetGroupTags     ] -instance FromJSON DMSReplicationSubnetGroup where-  parseJSON (Object obj) =-    DMSReplicationSubnetGroup <$>-      (obj .: "ReplicationSubnetGroupDescription") <*>-      (obj .:? "ReplicationSubnetGroupIdentifier") <*>-      (obj .: "SubnetIds") <*>-      (obj .:? "Tags")-  parseJSON _ = mempty- -- | Constructor for 'DMSReplicationSubnetGroup' containing required fields as -- arguments. dmsReplicationSubnetGroup
library-gen/Stratosphere/Resources/DMSReplicationTask.hs view
@@ -39,20 +39,6 @@     , (Just . ("TargetEndpointArn",) . toJSON) _dMSReplicationTaskTargetEndpointArn     ] -instance FromJSON DMSReplicationTask where-  parseJSON (Object obj) =-    DMSReplicationTask <$>-      fmap (fmap (fmap unDouble')) (obj .:? "CdcStartTime") <*>-      (obj .: "MigrationType") <*>-      (obj .: "ReplicationInstanceArn") <*>-      (obj .:? "ReplicationTaskIdentifier") <*>-      (obj .:? "ReplicationTaskSettings") <*>-      (obj .: "SourceEndpointArn") <*>-      (obj .: "TableMappings") <*>-      (obj .:? "Tags") <*>-      (obj .: "TargetEndpointArn")-  parseJSON _ = mempty- -- | Constructor for 'DMSReplicationTask' containing required fields as -- arguments. dmsReplicationTask
library-gen/Stratosphere/Resources/DataPipelinePipeline.hs view
@@ -38,18 +38,6 @@     , fmap (("PipelineTags",) . toJSON) _dataPipelinePipelinePipelineTags     ] -instance FromJSON DataPipelinePipeline where-  parseJSON (Object obj) =-    DataPipelinePipeline <$>-      fmap (fmap (fmap unBool')) (obj .:? "Activate") <*>-      (obj .:? "Description") <*>-      (obj .: "Name") <*>-      (obj .: "ParameterObjects") <*>-      (obj .:? "ParameterValues") <*>-      (obj .:? "PipelineObjects") <*>-      (obj .:? "PipelineTags")-  parseJSON _ = mempty- -- | Constructor for 'DataPipelinePipeline' containing required fields as -- arguments. dataPipelinePipeline
library-gen/Stratosphere/Resources/DirectoryServiceMicrosoftAD.hs view
@@ -35,18 +35,6 @@     , (Just . ("VpcSettings",) . toJSON) _directoryServiceMicrosoftADVpcSettings     ] -instance FromJSON DirectoryServiceMicrosoftAD where-  parseJSON (Object obj) =-    DirectoryServiceMicrosoftAD <$>-      fmap (fmap (fmap unBool')) (obj .:? "CreateAlias") <*>-      (obj .:? "Edition") <*>-      fmap (fmap (fmap unBool')) (obj .:? "EnableSso") <*>-      (obj .: "Name") <*>-      (obj .: "Password") <*>-      (obj .:? "ShortName") <*>-      (obj .: "VpcSettings")-  parseJSON _ = mempty- -- | Constructor for 'DirectoryServiceMicrosoftAD' containing required fields -- as arguments. directoryServiceMicrosoftAD
library-gen/Stratosphere/Resources/DirectoryServiceSimpleAD.hs view
@@ -37,19 +37,6 @@     , (Just . ("VpcSettings",) . toJSON) _directoryServiceSimpleADVpcSettings     ] -instance FromJSON DirectoryServiceSimpleAD where-  parseJSON (Object obj) =-    DirectoryServiceSimpleAD <$>-      fmap (fmap (fmap unBool')) (obj .:? "CreateAlias") <*>-      (obj .:? "Description") <*>-      fmap (fmap (fmap unBool')) (obj .:? "EnableSso") <*>-      (obj .: "Name") <*>-      (obj .: "Password") <*>-      (obj .:? "ShortName") <*>-      (obj .: "Size") <*>-      (obj .: "VpcSettings")-  parseJSON _ = mempty- -- | Constructor for 'DirectoryServiceSimpleAD' containing required fields as -- arguments. directoryServiceSimpleAD
library-gen/Stratosphere/Resources/DocDBDBCluster.hs view
@@ -53,27 +53,6 @@     , fmap (("VpcSecurityGroupIds",) . toJSON) _docDBDBClusterVpcSecurityGroupIds     ] -instance FromJSON DocDBDBCluster where-  parseJSON (Object obj) =-    DocDBDBCluster <$>-      (obj .:? "AvailabilityZones") <*>-      fmap (fmap (fmap unInteger')) (obj .:? "BackupRetentionPeriod") <*>-      (obj .:? "DBClusterIdentifier") <*>-      (obj .:? "DBClusterParameterGroupName") <*>-      (obj .:? "DBSubnetGroupName") <*>-      (obj .:? "EngineVersion") <*>-      (obj .:? "KmsKeyId") <*>-      (obj .:? "MasterUserPassword") <*>-      (obj .:? "MasterUsername") <*>-      fmap (fmap (fmap unInteger')) (obj .:? "Port") <*>-      (obj .:? "PreferredBackupWindow") <*>-      (obj .:? "PreferredMaintenanceWindow") <*>-      (obj .:? "SnapshotIdentifier") <*>-      fmap (fmap (fmap unBool')) (obj .:? "StorageEncrypted") <*>-      (obj .:? "Tags") <*>-      (obj .:? "VpcSecurityGroupIds")-  parseJSON _ = mempty- -- | Constructor for 'DocDBDBCluster' containing required fields as arguments. docDBDBCluster   :: DocDBDBCluster
library-gen/Stratosphere/Resources/DocDBDBClusterParameterGroup.hs view
@@ -31,16 +31,6 @@     , fmap (("Tags",) . toJSON) _docDBDBClusterParameterGroupTags     ] -instance FromJSON DocDBDBClusterParameterGroup where-  parseJSON (Object obj) =-    DocDBDBClusterParameterGroup <$>-      (obj .: "Description") <*>-      (obj .: "Family") <*>-      (obj .:? "Name") <*>-      (obj .: "Parameters") <*>-      (obj .:? "Tags")-  parseJSON _ = mempty- -- | Constructor for 'DocDBDBClusterParameterGroup' containing required fields -- as arguments. docDBDBClusterParameterGroup
library-gen/Stratosphere/Resources/DocDBDBInstance.hs view
@@ -35,18 +35,6 @@     , fmap (("Tags",) . toJSON) _docDBDBInstanceTags     ] -instance FromJSON DocDBDBInstance where-  parseJSON (Object obj) =-    DocDBDBInstance <$>-      fmap (fmap (fmap unBool')) (obj .:? "AutoMinorVersionUpgrade") <*>-      (obj .:? "AvailabilityZone") <*>-      (obj .: "DBClusterIdentifier") <*>-      (obj .: "DBInstanceClass") <*>-      (obj .:? "DBInstanceIdentifier") <*>-      (obj .:? "PreferredMaintenanceWindow") <*>-      (obj .:? "Tags")-  parseJSON _ = mempty- -- | Constructor for 'DocDBDBInstance' containing required fields as -- arguments. docDBDBInstance
library-gen/Stratosphere/Resources/DocDBDBSubnetGroup.hs view
@@ -29,15 +29,6 @@     , fmap (("Tags",) . toJSON) _docDBDBSubnetGroupTags     ] -instance FromJSON DocDBDBSubnetGroup where-  parseJSON (Object obj) =-    DocDBDBSubnetGroup <$>-      (obj .: "DBSubnetGroupDescription") <*>-      (obj .:? "DBSubnetGroupName") <*>-      (obj .: "SubnetIds") <*>-      (obj .:? "Tags")-  parseJSON _ = mempty- -- | Constructor for 'DocDBDBSubnetGroup' containing required fields as -- arguments. docDBDBSubnetGroup
library-gen/Stratosphere/Resources/DynamoDBTable.hs view
@@ -54,23 +54,6 @@     , fmap (("TimeToLiveSpecification",) . toJSON) _dynamoDBTableTimeToLiveSpecification     ] -instance FromJSON DynamoDBTable where-  parseJSON (Object obj) =-    DynamoDBTable <$>-      (obj .:? "AttributeDefinitions") <*>-      (obj .:? "BillingMode") <*>-      (obj .:? "GlobalSecondaryIndexes") <*>-      (obj .: "KeySchema") <*>-      (obj .:? "LocalSecondaryIndexes") <*>-      (obj .:? "PointInTimeRecoverySpecification") <*>-      (obj .:? "ProvisionedThroughput") <*>-      (obj .:? "SSESpecification") <*>-      (obj .:? "StreamSpecification") <*>-      (obj .:? "TableName") <*>-      (obj .:? "Tags") <*>-      (obj .:? "TimeToLiveSpecification")-  parseJSON _ = mempty- -- | Constructor for 'DynamoDBTable' containing required fields as arguments. dynamoDBTable   :: [DynamoDBTableKeySchema] -- ^ 'ddbtKeySchema'
library-gen/Stratosphere/Resources/EC2CustomerGateway.hs view
@@ -29,15 +29,6 @@     , (Just . ("Type",) . toJSON) _eC2CustomerGatewayType     ] -instance FromJSON EC2CustomerGateway where-  parseJSON (Object obj) =-    EC2CustomerGateway <$>-      fmap (fmap unInteger') (obj .: "BgpAsn") <*>-      (obj .: "IpAddress") <*>-      (obj .:? "Tags") <*>-      (obj .: "Type")-  parseJSON _ = mempty- -- | Constructor for 'EC2CustomerGateway' containing required fields as -- arguments. ec2CustomerGateway
library-gen/Stratosphere/Resources/EC2DHCPOptions.hs view
@@ -33,17 +33,6 @@     , fmap (("Tags",) . toJSON) _eC2DHCPOptionsTags     ] -instance FromJSON EC2DHCPOptions where-  parseJSON (Object obj) =-    EC2DHCPOptions <$>-      (obj .:? "DomainName") <*>-      (obj .:? "DomainNameServers") <*>-      (obj .:? "NetbiosNameServers") <*>-      fmap (fmap (fmap unInteger')) (obj .:? "NetbiosNodeType") <*>-      (obj .:? "NtpServers") <*>-      (obj .:? "Tags")-  parseJSON _ = mempty- -- | Constructor for 'EC2DHCPOptions' containing required fields as arguments. ec2DHCPOptions   :: EC2DHCPOptions
library-gen/Stratosphere/Resources/EC2EC2Fleet.hs view
@@ -47,22 +47,6 @@     , fmap (("ValidUntil",) . toJSON) _eC2EC2FleetValidUntil     ] -instance FromJSON EC2EC2Fleet where-  parseJSON (Object obj) =-    EC2EC2Fleet <$>-      (obj .:? "ExcessCapacityTerminationPolicy") <*>-      (obj .: "LaunchTemplateConfigs") <*>-      (obj .:? "OnDemandOptions") <*>-      fmap (fmap (fmap unBool')) (obj .:? "ReplaceUnhealthyInstances") <*>-      (obj .:? "SpotOptions") <*>-      (obj .:? "TagSpecifications") <*>-      (obj .: "TargetCapacitySpecification") <*>-      fmap (fmap (fmap unBool')) (obj .:? "TerminateInstancesWithExpiration") <*>-      (obj .:? "Type") <*>-      (obj .:? "ValidFrom") <*>-      (obj .:? "ValidUntil")-  parseJSON _ = mempty- -- | Constructor for 'EC2EC2Fleet' containing required fields as arguments. ec2EC2Fleet   :: [EC2EC2FleetFleetLaunchTemplateConfigRequest] -- ^ 'ececfLaunchTemplateConfigs'
library-gen/Stratosphere/Resources/EC2EIP.hs view
@@ -27,14 +27,6 @@     , fmap (("PublicIpv4Pool",) . toJSON) _eC2EIPPublicIpv4Pool     ] -instance FromJSON EC2EIP where-  parseJSON (Object obj) =-    EC2EIP <$>-      (obj .:? "Domain") <*>-      (obj .:? "InstanceId") <*>-      (obj .:? "PublicIpv4Pool")-  parseJSON _ = mempty- -- | Constructor for 'EC2EIP' containing required fields as arguments. ec2EIP   :: EC2EIP
library-gen/Stratosphere/Resources/EC2EIPAssociation.hs view
@@ -31,16 +31,6 @@     , fmap (("PrivateIpAddress",) . toJSON) _eC2EIPAssociationPrivateIpAddress     ] -instance FromJSON EC2EIPAssociation where-  parseJSON (Object obj) =-    EC2EIPAssociation <$>-      (obj .:? "AllocationId") <*>-      (obj .:? "EIP") <*>-      (obj .:? "InstanceId") <*>-      (obj .:? "NetworkInterfaceId") <*>-      (obj .:? "PrivateIpAddress")-  parseJSON _ = mempty- -- | Constructor for 'EC2EIPAssociation' containing required fields as -- arguments. ec2EIPAssociation
library-gen/Stratosphere/Resources/EC2EgressOnlyInternetGateway.hs view
@@ -23,12 +23,6 @@     [ (Just . ("VpcId",) . toJSON) _eC2EgressOnlyInternetGatewayVpcId     ] -instance FromJSON EC2EgressOnlyInternetGateway where-  parseJSON (Object obj) =-    EC2EgressOnlyInternetGateway <$>-      (obj .: "VpcId")-  parseJSON _ = mempty- -- | Constructor for 'EC2EgressOnlyInternetGateway' containing required fields -- as arguments. ec2EgressOnlyInternetGateway
library-gen/Stratosphere/Resources/EC2FlowLog.hs view
@@ -35,18 +35,6 @@     , (Just . ("TrafficType",) . toJSON) _eC2FlowLogTrafficType     ] -instance FromJSON EC2FlowLog where-  parseJSON (Object obj) =-    EC2FlowLog <$>-      (obj .:? "DeliverLogsPermissionArn") <*>-      (obj .:? "LogDestination") <*>-      (obj .:? "LogDestinationType") <*>-      (obj .:? "LogGroupName") <*>-      (obj .: "ResourceId") <*>-      (obj .: "ResourceType") <*>-      (obj .: "TrafficType")-  parseJSON _ = mempty- -- | Constructor for 'EC2FlowLog' containing required fields as arguments. ec2FlowLog   :: Val Text -- ^ 'ecflResourceId'
library-gen/Stratosphere/Resources/EC2Host.hs view
@@ -27,14 +27,6 @@     , (Just . ("InstanceType",) . toJSON) _eC2HostInstanceType     ] -instance FromJSON EC2Host where-  parseJSON (Object obj) =-    EC2Host <$>-      (obj .:? "AutoPlacement") <*>-      (obj .: "AvailabilityZone") <*>-      (obj .: "InstanceType")-  parseJSON _ = mempty- -- | Constructor for 'EC2Host' containing required fields as arguments. ec2Host   :: Val Text -- ^ 'echAvailabilityZone'
library-gen/Stratosphere/Resources/EC2Instance.hs view
@@ -99,45 +99,6 @@     , fmap (("Volumes",) . toJSON) _eC2InstanceVolumes     ] -instance FromJSON EC2Instance where-  parseJSON (Object obj) =-    EC2Instance <$>-      (obj .:? "AdditionalInfo") <*>-      (obj .:? "Affinity") <*>-      (obj .:? "AvailabilityZone") <*>-      (obj .:? "BlockDeviceMappings") <*>-      (obj .:? "CreditSpecification") <*>-      fmap (fmap (fmap unBool')) (obj .:? "DisableApiTermination") <*>-      fmap (fmap (fmap unBool')) (obj .:? "EbsOptimized") <*>-      (obj .:? "ElasticGpuSpecifications") <*>-      (obj .:? "ElasticInferenceAccelerators") <*>-      (obj .:? "HostId") <*>-      (obj .:? "IamInstanceProfile") <*>-      (obj .:? "ImageId") <*>-      (obj .:? "InstanceInitiatedShutdownBehavior") <*>-      (obj .:? "InstanceType") <*>-      fmap (fmap (fmap unInteger')) (obj .:? "Ipv6AddressCount") <*>-      (obj .:? "Ipv6Addresses") <*>-      (obj .:? "KernelId") <*>-      (obj .:? "KeyName") <*>-      (obj .:? "LaunchTemplate") <*>-      (obj .:? "LicenseSpecifications") <*>-      fmap (fmap (fmap unBool')) (obj .:? "Monitoring") <*>-      (obj .:? "NetworkInterfaces") <*>-      (obj .:? "PlacementGroupName") <*>-      (obj .:? "PrivateIpAddress") <*>-      (obj .:? "RamdiskId") <*>-      (obj .:? "SecurityGroupIds") <*>-      (obj .:? "SecurityGroups") <*>-      fmap (fmap (fmap unBool')) (obj .:? "SourceDestCheck") <*>-      (obj .:? "SsmAssociations") <*>-      (obj .:? "SubnetId") <*>-      (obj .:? "Tags") <*>-      (obj .:? "Tenancy") <*>-      (obj .:? "UserData") <*>-      (obj .:? "Volumes")-  parseJSON _ = mempty- -- | Constructor for 'EC2Instance' containing required fields as arguments. ec2Instance   :: EC2Instance
library-gen/Stratosphere/Resources/EC2InternetGateway.hs view
@@ -23,12 +23,6 @@     [ fmap (("Tags",) . toJSON) _eC2InternetGatewayTags     ] -instance FromJSON EC2InternetGateway where-  parseJSON (Object obj) =-    EC2InternetGateway <$>-      (obj .:? "Tags")-  parseJSON _ = mempty- -- | Constructor for 'EC2InternetGateway' containing required fields as -- arguments. ec2InternetGateway
library-gen/Stratosphere/Resources/EC2LaunchTemplate.hs view
@@ -25,13 +25,6 @@     , fmap (("LaunchTemplateName",) . toJSON) _eC2LaunchTemplateLaunchTemplateName     ] -instance FromJSON EC2LaunchTemplate where-  parseJSON (Object obj) =-    EC2LaunchTemplate <$>-      (obj .:? "LaunchTemplateData") <*>-      (obj .:? "LaunchTemplateName")-  parseJSON _ = mempty- -- | Constructor for 'EC2LaunchTemplate' containing required fields as -- arguments. ec2LaunchTemplate
library-gen/Stratosphere/Resources/EC2NatGateway.hs view
@@ -27,14 +27,6 @@     , fmap (("Tags",) . toJSON) _eC2NatGatewayTags     ] -instance FromJSON EC2NatGateway where-  parseJSON (Object obj) =-    EC2NatGateway <$>-      (obj .: "AllocationId") <*>-      (obj .: "SubnetId") <*>-      (obj .:? "Tags")-  parseJSON _ = mempty- -- | Constructor for 'EC2NatGateway' containing required fields as arguments. ec2NatGateway   :: Val Text -- ^ 'ecngAllocationId'
library-gen/Stratosphere/Resources/EC2NetworkAcl.hs view
@@ -25,13 +25,6 @@     , (Just . ("VpcId",) . toJSON) _eC2NetworkAclVpcId     ] -instance FromJSON EC2NetworkAcl where-  parseJSON (Object obj) =-    EC2NetworkAcl <$>-      (obj .:? "Tags") <*>-      (obj .: "VpcId")-  parseJSON _ = mempty- -- | Constructor for 'EC2NetworkAcl' containing required fields as arguments. ec2NetworkAcl   :: Val Text -- ^ 'ecnaVpcId'
library-gen/Stratosphere/Resources/EC2NetworkAclEntry.hs view
@@ -40,20 +40,6 @@     , (Just . ("RuleNumber",) . toJSON . fmap Integer') _eC2NetworkAclEntryRuleNumber     ] -instance FromJSON EC2NetworkAclEntry where-  parseJSON (Object obj) =-    EC2NetworkAclEntry <$>-      (obj .: "CidrBlock") <*>-      fmap (fmap (fmap unBool')) (obj .:? "Egress") <*>-      (obj .:? "Icmp") <*>-      (obj .:? "Ipv6CidrBlock") <*>-      (obj .: "NetworkAclId") <*>-      (obj .:? "PortRange") <*>-      fmap (fmap unInteger') (obj .: "Protocol") <*>-      (obj .: "RuleAction") <*>-      fmap (fmap unInteger') (obj .: "RuleNumber")-  parseJSON _ = mempty- -- | Constructor for 'EC2NetworkAclEntry' containing required fields as -- arguments. ec2NetworkAclEntry
library-gen/Stratosphere/Resources/EC2NetworkInterface.hs view
@@ -45,22 +45,6 @@     , fmap (("Tags",) . toJSON) _eC2NetworkInterfaceTags     ] -instance FromJSON EC2NetworkInterface where-  parseJSON (Object obj) =-    EC2NetworkInterface <$>-      (obj .:? "Description") <*>-      (obj .:? "GroupSet") <*>-      (obj .:? "InterfaceType") <*>-      fmap (fmap (fmap unInteger')) (obj .:? "Ipv6AddressCount") <*>-      (obj .:? "Ipv6Addresses") <*>-      (obj .:? "PrivateIpAddress") <*>-      (obj .:? "PrivateIpAddresses") <*>-      fmap (fmap (fmap unInteger')) (obj .:? "SecondaryPrivateIpAddressCount") <*>-      fmap (fmap (fmap unBool')) (obj .:? "SourceDestCheck") <*>-      (obj .: "SubnetId") <*>-      (obj .:? "Tags")-  parseJSON _ = mempty- -- | Constructor for 'EC2NetworkInterface' containing required fields as -- arguments. ec2NetworkInterface
library-gen/Stratosphere/Resources/EC2NetworkInterfaceAttachment.hs view
@@ -29,15 +29,6 @@     , (Just . ("NetworkInterfaceId",) . toJSON) _eC2NetworkInterfaceAttachmentNetworkInterfaceId     ] -instance FromJSON EC2NetworkInterfaceAttachment where-  parseJSON (Object obj) =-    EC2NetworkInterfaceAttachment <$>-      fmap (fmap (fmap unBool')) (obj .:? "DeleteOnTermination") <*>-      (obj .: "DeviceIndex") <*>-      (obj .: "InstanceId") <*>-      (obj .: "NetworkInterfaceId")-  parseJSON _ = mempty- -- | Constructor for 'EC2NetworkInterfaceAttachment' containing required -- fields as arguments. ec2NetworkInterfaceAttachment
library-gen/Stratosphere/Resources/EC2NetworkInterfacePermission.hs view
@@ -27,14 +27,6 @@     , (Just . ("Permission",) . toJSON) _eC2NetworkInterfacePermissionPermission     ] -instance FromJSON EC2NetworkInterfacePermission where-  parseJSON (Object obj) =-    EC2NetworkInterfacePermission <$>-      (obj .: "AwsAccountId") <*>-      (obj .: "NetworkInterfaceId") <*>-      (obj .: "Permission")-  parseJSON _ = mempty- -- | Constructor for 'EC2NetworkInterfacePermission' containing required -- fields as arguments. ec2NetworkInterfacePermission
library-gen/Stratosphere/Resources/EC2PlacementGroup.hs view
@@ -23,12 +23,6 @@     [ fmap (("Strategy",) . toJSON) _eC2PlacementGroupStrategy     ] -instance FromJSON EC2PlacementGroup where-  parseJSON (Object obj) =-    EC2PlacementGroup <$>-      (obj .:? "Strategy")-  parseJSON _ = mempty- -- | Constructor for 'EC2PlacementGroup' containing required fields as -- arguments. ec2PlacementGroup
library-gen/Stratosphere/Resources/EC2Route.hs view
@@ -39,20 +39,6 @@     , fmap (("VpcPeeringConnectionId",) . toJSON) _eC2RouteVpcPeeringConnectionId     ] -instance FromJSON EC2Route where-  parseJSON (Object obj) =-    EC2Route <$>-      (obj .:? "DestinationCidrBlock") <*>-      (obj .:? "DestinationIpv6CidrBlock") <*>-      (obj .:? "EgressOnlyInternetGatewayId") <*>-      (obj .:? "GatewayId") <*>-      (obj .:? "InstanceId") <*>-      (obj .:? "NatGatewayId") <*>-      (obj .:? "NetworkInterfaceId") <*>-      (obj .: "RouteTableId") <*>-      (obj .:? "VpcPeeringConnectionId")-  parseJSON _ = mempty- -- | Constructor for 'EC2Route' containing required fields as arguments. ec2Route   :: Val Text -- ^ 'ecrRouteTableId'
library-gen/Stratosphere/Resources/EC2RouteTable.hs view
@@ -25,13 +25,6 @@     , (Just . ("VpcId",) . toJSON) _eC2RouteTableVpcId     ] -instance FromJSON EC2RouteTable where-  parseJSON (Object obj) =-    EC2RouteTable <$>-      (obj .:? "Tags") <*>-      (obj .: "VpcId")-  parseJSON _ = mempty- -- | Constructor for 'EC2RouteTable' containing required fields as arguments. ec2RouteTable   :: Val Text -- ^ 'ecrtVpcId'
library-gen/Stratosphere/Resources/EC2SecurityGroup.hs view
@@ -35,17 +35,6 @@     , fmap (("VpcId",) . toJSON) _eC2SecurityGroupVpcId     ] -instance FromJSON EC2SecurityGroup where-  parseJSON (Object obj) =-    EC2SecurityGroup <$>-      (obj .: "GroupDescription") <*>-      (obj .:? "GroupName") <*>-      (obj .:? "SecurityGroupEgress") <*>-      (obj .:? "SecurityGroupIngress") <*>-      (obj .:? "Tags") <*>-      (obj .:? "VpcId")-  parseJSON _ = mempty- -- | Constructor for 'EC2SecurityGroup' containing required fields as -- arguments. ec2SecurityGroup
library-gen/Stratosphere/Resources/EC2SecurityGroupEgress.hs view
@@ -39,20 +39,6 @@     , fmap (("ToPort",) . toJSON . fmap Integer') _eC2SecurityGroupEgressToPort     ] -instance FromJSON EC2SecurityGroupEgress where-  parseJSON (Object obj) =-    EC2SecurityGroupEgress <$>-      (obj .:? "CidrIp") <*>-      (obj .:? "CidrIpv6") <*>-      (obj .:? "Description") <*>-      (obj .:? "DestinationPrefixListId") <*>-      (obj .:? "DestinationSecurityGroupId") <*>-      fmap (fmap (fmap unInteger')) (obj .:? "FromPort") <*>-      (obj .: "GroupId") <*>-      (obj .: "IpProtocol") <*>-      fmap (fmap (fmap unInteger')) (obj .:? "ToPort")-  parseJSON _ = mempty- -- | Constructor for 'EC2SecurityGroupEgress' containing required fields as -- arguments. ec2SecurityGroupEgress
library-gen/Stratosphere/Resources/EC2SecurityGroupIngress.hs view
@@ -45,23 +45,6 @@     , fmap (("ToPort",) . toJSON . fmap Integer') _eC2SecurityGroupIngressToPort     ] -instance FromJSON EC2SecurityGroupIngress where-  parseJSON (Object obj) =-    EC2SecurityGroupIngress <$>-      (obj .:? "CidrIp") <*>-      (obj .:? "CidrIpv6") <*>-      (obj .:? "Description") <*>-      fmap (fmap (fmap unInteger')) (obj .:? "FromPort") <*>-      (obj .:? "GroupId") <*>-      (obj .:? "GroupName") <*>-      (obj .: "IpProtocol") <*>-      (obj .:? "SourcePrefixListId") <*>-      (obj .:? "SourceSecurityGroupId") <*>-      (obj .:? "SourceSecurityGroupName") <*>-      (obj .:? "SourceSecurityGroupOwnerId") <*>-      fmap (fmap (fmap unInteger')) (obj .:? "ToPort")-  parseJSON _ = mempty- -- | Constructor for 'EC2SecurityGroupIngress' containing required fields as -- arguments. ec2SecurityGroupIngress
library-gen/Stratosphere/Resources/EC2SpotFleet.hs view
@@ -23,12 +23,6 @@     [ (Just . ("SpotFleetRequestConfigData",) . toJSON) _eC2SpotFleetSpotFleetRequestConfigData     ] -instance FromJSON EC2SpotFleet where-  parseJSON (Object obj) =-    EC2SpotFleet <$>-      (obj .: "SpotFleetRequestConfigData")-  parseJSON _ = mempty- -- | Constructor for 'EC2SpotFleet' containing required fields as arguments. ec2SpotFleet   :: EC2SpotFleetSpotFleetRequestConfigData -- ^ 'ecsfSpotFleetRequestConfigData'
library-gen/Stratosphere/Resources/EC2Subnet.hs view
@@ -35,18 +35,6 @@     , (Just . ("VpcId",) . toJSON) _eC2SubnetVpcId     ] -instance FromJSON EC2Subnet where-  parseJSON (Object obj) =-    EC2Subnet <$>-      fmap (fmap (fmap unBool')) (obj .:? "AssignIpv6AddressOnCreation") <*>-      (obj .:? "AvailabilityZone") <*>-      (obj .: "CidrBlock") <*>-      (obj .:? "Ipv6CidrBlock") <*>-      fmap (fmap (fmap unBool')) (obj .:? "MapPublicIpOnLaunch") <*>-      (obj .:? "Tags") <*>-      (obj .: "VpcId")-  parseJSON _ = mempty- -- | Constructor for 'EC2Subnet' containing required fields as arguments. ec2Subnet   :: Val Text -- ^ 'ecsCidrBlock'
library-gen/Stratosphere/Resources/EC2SubnetCidrBlock.hs view
@@ -25,13 +25,6 @@     , (Just . ("SubnetId",) . toJSON) _eC2SubnetCidrBlockSubnetId     ] -instance FromJSON EC2SubnetCidrBlock where-  parseJSON (Object obj) =-    EC2SubnetCidrBlock <$>-      (obj .: "Ipv6CidrBlock") <*>-      (obj .: "SubnetId")-  parseJSON _ = mempty- -- | Constructor for 'EC2SubnetCidrBlock' containing required fields as -- arguments. ec2SubnetCidrBlock
library-gen/Stratosphere/Resources/EC2SubnetNetworkAclAssociation.hs view
@@ -25,13 +25,6 @@     , (Just . ("SubnetId",) . toJSON) _eC2SubnetNetworkAclAssociationSubnetId     ] -instance FromJSON EC2SubnetNetworkAclAssociation where-  parseJSON (Object obj) =-    EC2SubnetNetworkAclAssociation <$>-      (obj .: "NetworkAclId") <*>-      (obj .: "SubnetId")-  parseJSON _ = mempty- -- | Constructor for 'EC2SubnetNetworkAclAssociation' containing required -- fields as arguments. ec2SubnetNetworkAclAssociation
library-gen/Stratosphere/Resources/EC2SubnetRouteTableAssociation.hs view
@@ -25,13 +25,6 @@     , (Just . ("SubnetId",) . toJSON) _eC2SubnetRouteTableAssociationSubnetId     ] -instance FromJSON EC2SubnetRouteTableAssociation where-  parseJSON (Object obj) =-    EC2SubnetRouteTableAssociation <$>-      (obj .: "RouteTableId") <*>-      (obj .: "SubnetId")-  parseJSON _ = mempty- -- | Constructor for 'EC2SubnetRouteTableAssociation' containing required -- fields as arguments. ec2SubnetRouteTableAssociation
library-gen/Stratosphere/Resources/EC2TransitGateway.hs view
@@ -37,19 +37,6 @@     , fmap (("VpnEcmpSupport",) . toJSON) _eC2TransitGatewayVpnEcmpSupport     ] -instance FromJSON EC2TransitGateway where-  parseJSON (Object obj) =-    EC2TransitGateway <$>-      fmap (fmap (fmap unInteger')) (obj .:? "AmazonSideAsn") <*>-      (obj .:? "AutoAcceptSharedAttachments") <*>-      (obj .:? "DefaultRouteTableAssociation") <*>-      (obj .:? "DefaultRouteTablePropagation") <*>-      (obj .:? "Description") <*>-      (obj .:? "DnsSupport") <*>-      (obj .:? "Tags") <*>-      (obj .:? "VpnEcmpSupport")-  parseJSON _ = mempty- -- | Constructor for 'EC2TransitGateway' containing required fields as -- arguments. ec2TransitGateway
library-gen/Stratosphere/Resources/EC2TransitGatewayAttachment.hs view
@@ -29,15 +29,6 @@     , (Just . ("VpcId",) . toJSON) _eC2TransitGatewayAttachmentVpcId     ] -instance FromJSON EC2TransitGatewayAttachment where-  parseJSON (Object obj) =-    EC2TransitGatewayAttachment <$>-      (obj .: "SubnetIds") <*>-      (obj .:? "Tags") <*>-      (obj .: "TransitGatewayId") <*>-      (obj .: "VpcId")-  parseJSON _ = mempty- -- | Constructor for 'EC2TransitGatewayAttachment' containing required fields -- as arguments. ec2TransitGatewayAttachment
library-gen/Stratosphere/Resources/EC2TransitGatewayRoute.hs view
@@ -29,15 +29,6 @@     , (Just . ("TransitGatewayRouteTableId",) . toJSON) _eC2TransitGatewayRouteTransitGatewayRouteTableId     ] -instance FromJSON EC2TransitGatewayRoute where-  parseJSON (Object obj) =-    EC2TransitGatewayRoute <$>-      fmap (fmap (fmap unBool')) (obj .:? "Blackhole") <*>-      (obj .:? "DestinationCidrBlock") <*>-      (obj .:? "TransitGatewayAttachmentId") <*>-      (obj .: "TransitGatewayRouteTableId")-  parseJSON _ = mempty- -- | Constructor for 'EC2TransitGatewayRoute' containing required fields as -- arguments. ec2TransitGatewayRoute
library-gen/Stratosphere/Resources/EC2TransitGatewayRouteTable.hs view
@@ -25,13 +25,6 @@     , (Just . ("TransitGatewayId",) . toJSON) _eC2TransitGatewayRouteTableTransitGatewayId     ] -instance FromJSON EC2TransitGatewayRouteTable where-  parseJSON (Object obj) =-    EC2TransitGatewayRouteTable <$>-      (obj .:? "Tags") <*>-      (obj .: "TransitGatewayId")-  parseJSON _ = mempty- -- | Constructor for 'EC2TransitGatewayRouteTable' containing required fields -- as arguments. ec2TransitGatewayRouteTable
library-gen/Stratosphere/Resources/EC2TransitGatewayRouteTableAssociation.hs view
@@ -26,13 +26,6 @@     , (Just . ("TransitGatewayRouteTableId",) . toJSON) _eC2TransitGatewayRouteTableAssociationTransitGatewayRouteTableId     ] -instance FromJSON EC2TransitGatewayRouteTableAssociation where-  parseJSON (Object obj) =-    EC2TransitGatewayRouteTableAssociation <$>-      (obj .: "TransitGatewayAttachmentId") <*>-      (obj .: "TransitGatewayRouteTableId")-  parseJSON _ = mempty- -- | Constructor for 'EC2TransitGatewayRouteTableAssociation' containing -- required fields as arguments. ec2TransitGatewayRouteTableAssociation
library-gen/Stratosphere/Resources/EC2TransitGatewayRouteTablePropagation.hs view
@@ -26,13 +26,6 @@     , (Just . ("TransitGatewayRouteTableId",) . toJSON) _eC2TransitGatewayRouteTablePropagationTransitGatewayRouteTableId     ] -instance FromJSON EC2TransitGatewayRouteTablePropagation where-  parseJSON (Object obj) =-    EC2TransitGatewayRouteTablePropagation <$>-      (obj .: "TransitGatewayAttachmentId") <*>-      (obj .: "TransitGatewayRouteTableId")-  parseJSON _ = mempty- -- | Constructor for 'EC2TransitGatewayRouteTablePropagation' containing -- required fields as arguments. ec2TransitGatewayRouteTablePropagation
library-gen/Stratosphere/Resources/EC2TrunkInterfaceAssociation.hs view
@@ -29,15 +29,6 @@     , fmap (("VLANId",) . toJSON . fmap Integer') _eC2TrunkInterfaceAssociationVLANId     ] -instance FromJSON EC2TrunkInterfaceAssociation where-  parseJSON (Object obj) =-    EC2TrunkInterfaceAssociation <$>-      (obj .: "BranchInterfaceId") <*>-      fmap (fmap (fmap unInteger')) (obj .:? "GREKey") <*>-      (obj .: "TrunkInterfaceId") <*>-      fmap (fmap (fmap unInteger')) (obj .:? "VLANId")-  parseJSON _ = mempty- -- | Constructor for 'EC2TrunkInterfaceAssociation' containing required fields -- as arguments. ec2TrunkInterfaceAssociation
library-gen/Stratosphere/Resources/EC2VPC.hs view
@@ -31,16 +31,6 @@     , fmap (("Tags",) . toJSON) _eC2VPCTags     ] -instance FromJSON EC2VPC where-  parseJSON (Object obj) =-    EC2VPC <$>-      (obj .: "CidrBlock") <*>-      fmap (fmap (fmap unBool')) (obj .:? "EnableDnsHostnames") <*>-      fmap (fmap (fmap unBool')) (obj .:? "EnableDnsSupport") <*>-      (obj .:? "InstanceTenancy") <*>-      (obj .:? "Tags")-  parseJSON _ = mempty- -- | Constructor for 'EC2VPC' containing required fields as arguments. ec2VPC   :: Val Text -- ^ 'ecvpcCidrBlock'
library-gen/Stratosphere/Resources/EC2VPCCidrBlock.hs view
@@ -27,14 +27,6 @@     , (Just . ("VpcId",) . toJSON) _eC2VPCCidrBlockVpcId     ] -instance FromJSON EC2VPCCidrBlock where-  parseJSON (Object obj) =-    EC2VPCCidrBlock <$>-      fmap (fmap (fmap unBool')) (obj .:? "AmazonProvidedIpv6CidrBlock") <*>-      (obj .:? "CidrBlock") <*>-      (obj .: "VpcId")-  parseJSON _ = mempty- -- | Constructor for 'EC2VPCCidrBlock' containing required fields as -- arguments. ec2VPCCidrBlock
library-gen/Stratosphere/Resources/EC2VPCDHCPOptionsAssociation.hs view
@@ -25,13 +25,6 @@     , (Just . ("VpcId",) . toJSON) _eC2VPCDHCPOptionsAssociationVpcId     ] -instance FromJSON EC2VPCDHCPOptionsAssociation where-  parseJSON (Object obj) =-    EC2VPCDHCPOptionsAssociation <$>-      (obj .: "DhcpOptionsId") <*>-      (obj .: "VpcId")-  parseJSON _ = mempty- -- | Constructor for 'EC2VPCDHCPOptionsAssociation' containing required fields -- as arguments. ec2VPCDHCPOptionsAssociation
library-gen/Stratosphere/Resources/EC2VPCEndpoint.hs view
@@ -37,19 +37,6 @@     , (Just . ("VpcId",) . toJSON) _eC2VPCEndpointVpcId     ] -instance FromJSON EC2VPCEndpoint where-  parseJSON (Object obj) =-    EC2VPCEndpoint <$>-      (obj .:? "PolicyDocument") <*>-      fmap (fmap (fmap unBool')) (obj .:? "PrivateDnsEnabled") <*>-      (obj .:? "RouteTableIds") <*>-      (obj .:? "SecurityGroupIds") <*>-      (obj .: "ServiceName") <*>-      (obj .:? "SubnetIds") <*>-      (obj .:? "VpcEndpointType") <*>-      (obj .: "VpcId")-  parseJSON _ = mempty- -- | Constructor for 'EC2VPCEndpoint' containing required fields as arguments. ec2VPCEndpoint   :: Val Text -- ^ 'ecvpceServiceName'
library-gen/Stratosphere/Resources/EC2VPCEndpointConnectionNotification.hs view
@@ -29,15 +29,6 @@     , fmap (("VPCEndpointId",) . toJSON) _eC2VPCEndpointConnectionNotificationVPCEndpointId     ] -instance FromJSON EC2VPCEndpointConnectionNotification where-  parseJSON (Object obj) =-    EC2VPCEndpointConnectionNotification <$>-      (obj .: "ConnectionEvents") <*>-      (obj .: "ConnectionNotificationArn") <*>-      (obj .:? "ServiceId") <*>-      (obj .:? "VPCEndpointId")-  parseJSON _ = mempty- -- | Constructor for 'EC2VPCEndpointConnectionNotification' containing -- required fields as arguments. ec2VPCEndpointConnectionNotification
library-gen/Stratosphere/Resources/EC2VPCEndpointServicePermissions.hs view
@@ -25,13 +25,6 @@     , (Just . ("ServiceId",) . toJSON) _eC2VPCEndpointServicePermissionsServiceId     ] -instance FromJSON EC2VPCEndpointServicePermissions where-  parseJSON (Object obj) =-    EC2VPCEndpointServicePermissions <$>-      (obj .:? "AllowedPrincipals") <*>-      (obj .: "ServiceId")-  parseJSON _ = mempty- -- | Constructor for 'EC2VPCEndpointServicePermissions' containing required -- fields as arguments. ec2VPCEndpointServicePermissions
library-gen/Stratosphere/Resources/EC2VPCGatewayAttachment.hs view
@@ -27,14 +27,6 @@     , fmap (("VpnGatewayId",) . toJSON) _eC2VPCGatewayAttachmentVpnGatewayId     ] -instance FromJSON EC2VPCGatewayAttachment where-  parseJSON (Object obj) =-    EC2VPCGatewayAttachment <$>-      (obj .:? "InternetGatewayId") <*>-      (obj .: "VpcId") <*>-      (obj .:? "VpnGatewayId")-  parseJSON _ = mempty- -- | Constructor for 'EC2VPCGatewayAttachment' containing required fields as -- arguments. ec2VPCGatewayAttachment
library-gen/Stratosphere/Resources/EC2VPCPeeringConnection.hs view
@@ -33,17 +33,6 @@     , (Just . ("VpcId",) . toJSON) _eC2VPCPeeringConnectionVpcId     ] -instance FromJSON EC2VPCPeeringConnection where-  parseJSON (Object obj) =-    EC2VPCPeeringConnection <$>-      (obj .:? "PeerOwnerId") <*>-      (obj .:? "PeerRegion") <*>-      (obj .:? "PeerRoleArn") <*>-      (obj .: "PeerVpcId") <*>-      (obj .:? "Tags") <*>-      (obj .: "VpcId")-  parseJSON _ = mempty- -- | Constructor for 'EC2VPCPeeringConnection' containing required fields as -- arguments. ec2VPCPeeringConnection
library-gen/Stratosphere/Resources/EC2VPNConnection.hs view
@@ -34,17 +34,6 @@     , fmap (("VpnTunnelOptionsSpecifications",) . toJSON) _eC2VPNConnectionVpnTunnelOptionsSpecifications     ] -instance FromJSON EC2VPNConnection where-  parseJSON (Object obj) =-    EC2VPNConnection <$>-      (obj .: "CustomerGatewayId") <*>-      fmap (fmap (fmap unBool')) (obj .:? "StaticRoutesOnly") <*>-      (obj .:? "Tags") <*>-      (obj .: "Type") <*>-      (obj .: "VpnGatewayId") <*>-      (obj .:? "VpnTunnelOptionsSpecifications")-  parseJSON _ = mempty- -- | Constructor for 'EC2VPNConnection' containing required fields as -- arguments. ec2VPNConnection
library-gen/Stratosphere/Resources/EC2VPNConnectionRoute.hs view
@@ -25,13 +25,6 @@     , (Just . ("VpnConnectionId",) . toJSON) _eC2VPNConnectionRouteVpnConnectionId     ] -instance FromJSON EC2VPNConnectionRoute where-  parseJSON (Object obj) =-    EC2VPNConnectionRoute <$>-      (obj .: "DestinationCidrBlock") <*>-      (obj .: "VpnConnectionId")-  parseJSON _ = mempty- -- | Constructor for 'EC2VPNConnectionRoute' containing required fields as -- arguments. ec2VPNConnectionRoute
library-gen/Stratosphere/Resources/EC2VPNGateway.hs view
@@ -27,14 +27,6 @@     , (Just . ("Type",) . toJSON) _eC2VPNGatewayType     ] -instance FromJSON EC2VPNGateway where-  parseJSON (Object obj) =-    EC2VPNGateway <$>-      fmap (fmap (fmap unInteger')) (obj .:? "AmazonSideAsn") <*>-      (obj .:? "Tags") <*>-      (obj .: "Type")-  parseJSON _ = mempty- -- | Constructor for 'EC2VPNGateway' containing required fields as arguments. ec2VPNGateway   :: Val Text -- ^ 'ecvpngType'
library-gen/Stratosphere/Resources/EC2VPNGatewayRoutePropagation.hs view
@@ -25,13 +25,6 @@     , (Just . ("VpnGatewayId",) . toJSON) _eC2VPNGatewayRoutePropagationVpnGatewayId     ] -instance FromJSON EC2VPNGatewayRoutePropagation where-  parseJSON (Object obj) =-    EC2VPNGatewayRoutePropagation <$>-      (obj .: "RouteTableIds") <*>-      (obj .: "VpnGatewayId")-  parseJSON _ = mempty- -- | Constructor for 'EC2VPNGatewayRoutePropagation' containing required -- fields as arguments. ec2VPNGatewayRoutePropagation
library-gen/Stratosphere/Resources/EC2Volume.hs view
@@ -39,20 +39,6 @@     , fmap (("VolumeType",) . toJSON) _eC2VolumeVolumeType     ] -instance FromJSON EC2Volume where-  parseJSON (Object obj) =-    EC2Volume <$>-      fmap (fmap (fmap unBool')) (obj .:? "AutoEnableIO") <*>-      (obj .: "AvailabilityZone") <*>-      fmap (fmap (fmap unBool')) (obj .:? "Encrypted") <*>-      fmap (fmap (fmap unInteger')) (obj .:? "Iops") <*>-      (obj .:? "KmsKeyId") <*>-      fmap (fmap (fmap unInteger')) (obj .:? "Size") <*>-      (obj .:? "SnapshotId") <*>-      (obj .:? "Tags") <*>-      (obj .:? "VolumeType")-  parseJSON _ = mempty- -- | Constructor for 'EC2Volume' containing required fields as arguments. ec2Volume   :: Val Text -- ^ 'ecvAvailabilityZone'
library-gen/Stratosphere/Resources/EC2VolumeAttachment.hs view
@@ -27,14 +27,6 @@     , (Just . ("VolumeId",) . toJSON) _eC2VolumeAttachmentVolumeId     ] -instance FromJSON EC2VolumeAttachment where-  parseJSON (Object obj) =-    EC2VolumeAttachment <$>-      (obj .: "Device") <*>-      (obj .: "InstanceId") <*>-      (obj .: "VolumeId")-  parseJSON _ = mempty- -- | Constructor for 'EC2VolumeAttachment' containing required fields as -- arguments. ec2VolumeAttachment
library-gen/Stratosphere/Resources/ECRRepository.hs view
@@ -27,14 +27,6 @@     , fmap (("RepositoryPolicyText",) . toJSON) _eCRRepositoryRepositoryPolicyText     ] -instance FromJSON ECRRepository where-  parseJSON (Object obj) =-    ECRRepository <$>-      (obj .:? "LifecyclePolicy") <*>-      (obj .:? "RepositoryName") <*>-      (obj .:? "RepositoryPolicyText")-  parseJSON _ = mempty- -- | Constructor for 'ECRRepository' containing required fields as arguments. ecrRepository   :: ECRRepository
library-gen/Stratosphere/Resources/ECSCluster.hs view
@@ -23,12 +23,6 @@     [ fmap (("ClusterName",) . toJSON) _eCSClusterClusterName     ] -instance FromJSON ECSCluster where-  parseJSON (Object obj) =-    ECSCluster <$>-      (obj .:? "ClusterName")-  parseJSON _ = mempty- -- | Constructor for 'ECSCluster' containing required fields as arguments. ecsCluster   :: ECSCluster
library-gen/Stratosphere/Resources/ECSService.hs view
@@ -56,26 +56,6 @@     , (Just . ("TaskDefinition",) . toJSON) _eCSServiceTaskDefinition     ] -instance FromJSON ECSService where-  parseJSON (Object obj) =-    ECSService <$>-      (obj .:? "Cluster") <*>-      (obj .:? "DeploymentConfiguration") <*>-      fmap (fmap (fmap unInteger')) (obj .:? "DesiredCount") <*>-      fmap (fmap (fmap unInteger')) (obj .:? "HealthCheckGracePeriodSeconds") <*>-      (obj .:? "LaunchType") <*>-      (obj .:? "LoadBalancers") <*>-      (obj .:? "NetworkConfiguration") <*>-      (obj .:? "PlacementConstraints") <*>-      (obj .:? "PlacementStrategies") <*>-      (obj .:? "PlatformVersion") <*>-      (obj .:? "Role") <*>-      (obj .:? "SchedulingStrategy") <*>-      (obj .:? "ServiceName") <*>-      (obj .:? "ServiceRegistries") <*>-      (obj .: "TaskDefinition")-  parseJSON _ = mempty- -- | Constructor for 'ECSService' containing required fields as arguments. ecsService   :: Val Text -- ^ 'ecssTaskDefinition'
library-gen/Stratosphere/Resources/ECSTaskDefinition.hs view
@@ -43,21 +43,6 @@     , fmap (("Volumes",) . toJSON) _eCSTaskDefinitionVolumes     ] -instance FromJSON ECSTaskDefinition where-  parseJSON (Object obj) =-    ECSTaskDefinition <$>-      (obj .:? "ContainerDefinitions") <*>-      (obj .:? "Cpu") <*>-      (obj .:? "ExecutionRoleArn") <*>-      (obj .:? "Family") <*>-      (obj .:? "Memory") <*>-      (obj .:? "NetworkMode") <*>-      (obj .:? "PlacementConstraints") <*>-      (obj .:? "RequiresCompatibilities") <*>-      (obj .:? "TaskRoleArn") <*>-      (obj .:? "Volumes")-  parseJSON _ = mempty- -- | Constructor for 'ECSTaskDefinition' containing required fields as -- arguments. ecsTaskDefinition
library-gen/Stratosphere/Resources/EFSFileSystem.hs view
@@ -33,17 +33,6 @@     , fmap (("ThroughputMode",) . toJSON) _eFSFileSystemThroughputMode     ] -instance FromJSON EFSFileSystem where-  parseJSON (Object obj) =-    EFSFileSystem <$>-      fmap (fmap (fmap unBool')) (obj .:? "Encrypted") <*>-      (obj .:? "FileSystemTags") <*>-      (obj .:? "KmsKeyId") <*>-      (obj .:? "PerformanceMode") <*>-      fmap (fmap (fmap unDouble')) (obj .:? "ProvisionedThroughputInMibps") <*>-      (obj .:? "ThroughputMode")-  parseJSON _ = mempty- -- | Constructor for 'EFSFileSystem' containing required fields as arguments. efsFileSystem   :: EFSFileSystem
library-gen/Stratosphere/Resources/EFSMountTarget.hs view
@@ -29,15 +29,6 @@     , (Just . ("SubnetId",) . toJSON) _eFSMountTargetSubnetId     ] -instance FromJSON EFSMountTarget where-  parseJSON (Object obj) =-    EFSMountTarget <$>-      (obj .: "FileSystemId") <*>-      (obj .:? "IpAddress") <*>-      (obj .: "SecurityGroups") <*>-      (obj .: "SubnetId")-  parseJSON _ = mempty- -- | Constructor for 'EFSMountTarget' containing required fields as arguments. efsMountTarget   :: Val Text -- ^ 'efsmtFileSystemId'
library-gen/Stratosphere/Resources/EKSCluster.hs view
@@ -29,15 +29,6 @@     , fmap (("Version",) . toJSON) _eKSClusterVersion     ] -instance FromJSON EKSCluster where-  parseJSON (Object obj) =-    EKSCluster <$>-      (obj .:? "Name") <*>-      (obj .: "ResourcesVpcConfig") <*>-      (obj .: "RoleArn") <*>-      (obj .:? "Version")-  parseJSON _ = mempty- -- | Constructor for 'EKSCluster' containing required fields as arguments. eksCluster   :: EKSClusterResourcesVpcConfig -- ^ 'ekscResourcesVpcConfig'
library-gen/Stratosphere/Resources/EMRCluster.hs view
@@ -65,30 +65,6 @@     , fmap (("VisibleToAllUsers",) . toJSON . fmap Bool') _eMRClusterVisibleToAllUsers     ] -instance FromJSON EMRCluster where-  parseJSON (Object obj) =-    EMRCluster <$>-      (obj .:? "AdditionalInfo") <*>-      (obj .:? "Applications") <*>-      (obj .:? "AutoScalingRole") <*>-      (obj .:? "BootstrapActions") <*>-      (obj .:? "Configurations") <*>-      (obj .:? "CustomAmiId") <*>-      fmap (fmap (fmap unInteger')) (obj .:? "EbsRootVolumeSize") <*>-      (obj .: "Instances") <*>-      (obj .: "JobFlowRole") <*>-      (obj .:? "KerberosAttributes") <*>-      (obj .:? "LogUri") <*>-      (obj .: "Name") <*>-      (obj .:? "ReleaseLabel") <*>-      (obj .:? "ScaleDownBehavior") <*>-      (obj .:? "SecurityConfiguration") <*>-      (obj .: "ServiceRole") <*>-      (obj .:? "Steps") <*>-      (obj .:? "Tags") <*>-      fmap (fmap (fmap unBool')) (obj .:? "VisibleToAllUsers")-  parseJSON _ = mempty- -- | Constructor for 'EMRCluster' containing required fields as arguments. emrCluster   :: EMRClusterJobFlowInstancesConfig -- ^ 'emrcInstances'
library-gen/Stratosphere/Resources/EMRInstanceFleetConfig.hs view
@@ -36,18 +36,6 @@     , fmap (("TargetSpotCapacity",) . toJSON . fmap Integer') _eMRInstanceFleetConfigTargetSpotCapacity     ] -instance FromJSON EMRInstanceFleetConfig where-  parseJSON (Object obj) =-    EMRInstanceFleetConfig <$>-      (obj .: "ClusterId") <*>-      (obj .: "InstanceFleetType") <*>-      (obj .:? "InstanceTypeConfigs") <*>-      (obj .:? "LaunchSpecifications") <*>-      (obj .:? "Name") <*>-      fmap (fmap (fmap unInteger')) (obj .:? "TargetOnDemandCapacity") <*>-      fmap (fmap (fmap unInteger')) (obj .:? "TargetSpotCapacity")-  parseJSON _ = mempty- -- | Constructor for 'EMRInstanceFleetConfig' containing required fields as -- arguments. emrInstanceFleetConfig
library-gen/Stratosphere/Resources/EMRInstanceGroupConfig.hs view
@@ -43,21 +43,6 @@     , fmap (("Name",) . toJSON) _eMRInstanceGroupConfigName     ] -instance FromJSON EMRInstanceGroupConfig where-  parseJSON (Object obj) =-    EMRInstanceGroupConfig <$>-      (obj .:? "AutoScalingPolicy") <*>-      (obj .:? "BidPrice") <*>-      (obj .:? "Configurations") <*>-      (obj .:? "EbsConfiguration") <*>-      fmap (fmap unInteger') (obj .: "InstanceCount") <*>-      (obj .: "InstanceRole") <*>-      (obj .: "InstanceType") <*>-      (obj .: "JobFlowId") <*>-      (obj .:? "Market") <*>-      (obj .:? "Name")-  parseJSON _ = mempty- -- | Constructor for 'EMRInstanceGroupConfig' containing required fields as -- arguments. emrInstanceGroupConfig
library-gen/Stratosphere/Resources/EMRSecurityConfiguration.hs view
@@ -25,13 +25,6 @@     , (Just . ("SecurityConfiguration",) . toJSON) _eMRSecurityConfigurationSecurityConfiguration     ] -instance FromJSON EMRSecurityConfiguration where-  parseJSON (Object obj) =-    EMRSecurityConfiguration <$>-      (obj .:? "Name") <*>-      (obj .: "SecurityConfiguration")-  parseJSON _ = mempty- -- | Constructor for 'EMRSecurityConfiguration' containing required fields as -- arguments. emrSecurityConfiguration
library-gen/Stratosphere/Resources/EMRStep.hs view
@@ -29,15 +29,6 @@     , (Just . ("Name",) . toJSON) _eMRStepName     ] -instance FromJSON EMRStep where-  parseJSON (Object obj) =-    EMRStep <$>-      (obj .: "ActionOnFailure") <*>-      (obj .: "HadoopJarStep") <*>-      (obj .: "JobFlowId") <*>-      (obj .: "Name")-  parseJSON _ = mempty- -- | Constructor for 'EMRStep' containing required fields as arguments. emrStep   :: Val Text -- ^ 'emrsActionOnFailure'
library-gen/Stratosphere/Resources/ElastiCacheCacheCluster.hs view
@@ -63,32 +63,6 @@     , fmap (("VpcSecurityGroupIds",) . toJSON) _elastiCacheCacheClusterVpcSecurityGroupIds     ] -instance FromJSON ElastiCacheCacheCluster where-  parseJSON (Object obj) =-    ElastiCacheCacheCluster <$>-      (obj .:? "AZMode") <*>-      fmap (fmap (fmap unBool')) (obj .:? "AutoMinorVersionUpgrade") <*>-      (obj .: "CacheNodeType") <*>-      (obj .:? "CacheParameterGroupName") <*>-      (obj .:? "CacheSecurityGroupNames") <*>-      (obj .:? "CacheSubnetGroupName") <*>-      (obj .:? "ClusterName") <*>-      (obj .: "Engine") <*>-      (obj .:? "EngineVersion") <*>-      (obj .:? "NotificationTopicArn") <*>-      fmap (fmap unInteger') (obj .: "NumCacheNodes") <*>-      fmap (fmap (fmap unInteger')) (obj .:? "Port") <*>-      (obj .:? "PreferredAvailabilityZone") <*>-      (obj .:? "PreferredAvailabilityZones") <*>-      (obj .:? "PreferredMaintenanceWindow") <*>-      (obj .:? "SnapshotArns") <*>-      (obj .:? "SnapshotName") <*>-      fmap (fmap (fmap unInteger')) (obj .:? "SnapshotRetentionLimit") <*>-      (obj .:? "SnapshotWindow") <*>-      (obj .:? "Tags") <*>-      (obj .:? "VpcSecurityGroupIds")-  parseJSON _ = mempty- -- | Constructor for 'ElastiCacheCacheCluster' containing required fields as -- arguments. elastiCacheCacheCluster
library-gen/Stratosphere/Resources/ElastiCacheParameterGroup.hs view
@@ -27,14 +27,6 @@     , fmap (("Properties",) . toJSON) _elastiCacheParameterGroupProperties     ] -instance FromJSON ElastiCacheParameterGroup where-  parseJSON (Object obj) =-    ElastiCacheParameterGroup <$>-      (obj .: "CacheParameterGroupFamily") <*>-      (obj .: "Description") <*>-      (obj .:? "Properties")-  parseJSON _ = mempty- -- | Constructor for 'ElastiCacheParameterGroup' containing required fields as -- arguments. elastiCacheParameterGroup
library-gen/Stratosphere/Resources/ElastiCacheReplicationGroup.hs view
@@ -80,40 +80,6 @@     , fmap (("TransitEncryptionEnabled",) . toJSON . fmap Bool') _elastiCacheReplicationGroupTransitEncryptionEnabled     ] -instance FromJSON ElastiCacheReplicationGroup where-  parseJSON (Object obj) =-    ElastiCacheReplicationGroup <$>-      fmap (fmap (fmap unBool')) (obj .:? "AtRestEncryptionEnabled") <*>-      (obj .:? "AuthToken") <*>-      fmap (fmap (fmap unBool')) (obj .:? "AutoMinorVersionUpgrade") <*>-      fmap (fmap (fmap unBool')) (obj .:? "AutomaticFailoverEnabled") <*>-      (obj .:? "CacheNodeType") <*>-      (obj .:? "CacheParameterGroupName") <*>-      (obj .:? "CacheSecurityGroupNames") <*>-      (obj .:? "CacheSubnetGroupName") <*>-      (obj .:? "Engine") <*>-      (obj .:? "EngineVersion") <*>-      (obj .:? "NodeGroupConfiguration") <*>-      (obj .:? "NotificationTopicArn") <*>-      fmap (fmap (fmap unInteger')) (obj .:? "NumCacheClusters") <*>-      fmap (fmap (fmap unInteger')) (obj .:? "NumNodeGroups") <*>-      fmap (fmap (fmap unInteger')) (obj .:? "Port") <*>-      (obj .:? "PreferredCacheClusterAZs") <*>-      (obj .:? "PreferredMaintenanceWindow") <*>-      (obj .:? "PrimaryClusterId") <*>-      fmap (fmap (fmap unInteger')) (obj .:? "ReplicasPerNodeGroup") <*>-      (obj .: "ReplicationGroupDescription") <*>-      (obj .:? "ReplicationGroupId") <*>-      (obj .:? "SecurityGroupIds") <*>-      (obj .:? "SnapshotArns") <*>-      (obj .:? "SnapshotName") <*>-      fmap (fmap (fmap unInteger')) (obj .:? "SnapshotRetentionLimit") <*>-      (obj .:? "SnapshotWindow") <*>-      (obj .:? "SnapshottingClusterId") <*>-      (obj .:? "Tags") <*>-      fmap (fmap (fmap unBool')) (obj .:? "TransitEncryptionEnabled")-  parseJSON _ = mempty- -- | Constructor for 'ElastiCacheReplicationGroup' containing required fields -- as arguments. elastiCacheReplicationGroup
library-gen/Stratosphere/Resources/ElastiCacheSecurityGroup.hs view
@@ -23,12 +23,6 @@     [ (Just . ("Description",) . toJSON) _elastiCacheSecurityGroupDescription     ] -instance FromJSON ElastiCacheSecurityGroup where-  parseJSON (Object obj) =-    ElastiCacheSecurityGroup <$>-      (obj .: "Description")-  parseJSON _ = mempty- -- | Constructor for 'ElastiCacheSecurityGroup' containing required fields as -- arguments. elastiCacheSecurityGroup
library-gen/Stratosphere/Resources/ElastiCacheSecurityGroupIngress.hs view
@@ -27,14 +27,6 @@     , fmap (("EC2SecurityGroupOwnerId",) . toJSON) _elastiCacheSecurityGroupIngressEC2SecurityGroupOwnerId     ] -instance FromJSON ElastiCacheSecurityGroupIngress where-  parseJSON (Object obj) =-    ElastiCacheSecurityGroupIngress <$>-      (obj .: "CacheSecurityGroupName") <*>-      (obj .: "EC2SecurityGroupName") <*>-      (obj .:? "EC2SecurityGroupOwnerId")-  parseJSON _ = mempty- -- | Constructor for 'ElastiCacheSecurityGroupIngress' containing required -- fields as arguments. elastiCacheSecurityGroupIngress
library-gen/Stratosphere/Resources/ElastiCacheSubnetGroup.hs view
@@ -27,14 +27,6 @@     , (Just . ("SubnetIds",) . toJSON) _elastiCacheSubnetGroupSubnetIds     ] -instance FromJSON ElastiCacheSubnetGroup where-  parseJSON (Object obj) =-    ElastiCacheSubnetGroup <$>-      (obj .:? "CacheSubnetGroupName") <*>-      (obj .: "Description") <*>-      (obj .: "SubnetIds")-  parseJSON _ = mempty- -- | Constructor for 'ElastiCacheSubnetGroup' containing required fields as -- arguments. elastiCacheSubnetGroup
library-gen/Stratosphere/Resources/ElasticBeanstalkApplication.hs view
@@ -27,14 +27,6 @@     , fmap (("ResourceLifecycleConfig",) . toJSON) _elasticBeanstalkApplicationResourceLifecycleConfig     ] -instance FromJSON ElasticBeanstalkApplication where-  parseJSON (Object obj) =-    ElasticBeanstalkApplication <$>-      (obj .:? "ApplicationName") <*>-      (obj .:? "Description") <*>-      (obj .:? "ResourceLifecycleConfig")-  parseJSON _ = mempty- -- | Constructor for 'ElasticBeanstalkApplication' containing required fields -- as arguments. elasticBeanstalkApplication
library-gen/Stratosphere/Resources/ElasticBeanstalkApplicationVersion.hs view
@@ -27,14 +27,6 @@     , (Just . ("SourceBundle",) . toJSON) _elasticBeanstalkApplicationVersionSourceBundle     ] -instance FromJSON ElasticBeanstalkApplicationVersion where-  parseJSON (Object obj) =-    ElasticBeanstalkApplicationVersion <$>-      (obj .: "ApplicationName") <*>-      (obj .:? "Description") <*>-      (obj .: "SourceBundle")-  parseJSON _ = mempty- -- | Constructor for 'ElasticBeanstalkApplicationVersion' containing required -- fields as arguments. elasticBeanstalkApplicationVersion
library-gen/Stratosphere/Resources/ElasticBeanstalkConfigurationTemplate.hs view
@@ -37,18 +37,6 @@     , fmap (("SourceConfiguration",) . toJSON) _elasticBeanstalkConfigurationTemplateSourceConfiguration     ] -instance FromJSON ElasticBeanstalkConfigurationTemplate where-  parseJSON (Object obj) =-    ElasticBeanstalkConfigurationTemplate <$>-      (obj .: "ApplicationName") <*>-      (obj .:? "Description") <*>-      (obj .:? "EnvironmentId") <*>-      (obj .:? "OptionSettings") <*>-      (obj .:? "PlatformArn") <*>-      (obj .:? "SolutionStackName") <*>-      (obj .:? "SourceConfiguration")-  parseJSON _ = mempty- -- | Constructor for 'ElasticBeanstalkConfigurationTemplate' containing -- required fields as arguments. elasticBeanstalkConfigurationTemplate
library-gen/Stratosphere/Resources/ElasticBeanstalkEnvironment.hs view
@@ -45,22 +45,6 @@     , fmap (("VersionLabel",) . toJSON) _elasticBeanstalkEnvironmentVersionLabel     ] -instance FromJSON ElasticBeanstalkEnvironment where-  parseJSON (Object obj) =-    ElasticBeanstalkEnvironment <$>-      (obj .: "ApplicationName") <*>-      (obj .:? "CNAMEPrefix") <*>-      (obj .:? "Description") <*>-      (obj .:? "EnvironmentName") <*>-      (obj .:? "OptionSettings") <*>-      (obj .:? "PlatformArn") <*>-      (obj .:? "SolutionStackName") <*>-      (obj .:? "Tags") <*>-      (obj .:? "TemplateName") <*>-      (obj .:? "Tier") <*>-      (obj .:? "VersionLabel")-  parseJSON _ = mempty- -- | Constructor for 'ElasticBeanstalkEnvironment' containing required fields -- as arguments. elasticBeanstalkEnvironment
library-gen/Stratosphere/Resources/ElasticLoadBalancingLoadBalancer.hs view
@@ -61,27 +61,6 @@     , fmap (("Tags",) . toJSON) _elasticLoadBalancingLoadBalancerTags     ] -instance FromJSON ElasticLoadBalancingLoadBalancer where-  parseJSON (Object obj) =-    ElasticLoadBalancingLoadBalancer <$>-      (obj .:? "AccessLoggingPolicy") <*>-      (obj .:? "AppCookieStickinessPolicy") <*>-      (obj .:? "AvailabilityZones") <*>-      (obj .:? "ConnectionDrainingPolicy") <*>-      (obj .:? "ConnectionSettings") <*>-      fmap (fmap (fmap unBool')) (obj .:? "CrossZone") <*>-      (obj .:? "HealthCheck") <*>-      (obj .:? "Instances") <*>-      (obj .:? "LBCookieStickinessPolicy") <*>-      (obj .: "Listeners") <*>-      (obj .:? "LoadBalancerName") <*>-      (obj .:? "Policies") <*>-      (obj .:? "Scheme") <*>-      (obj .:? "SecurityGroups") <*>-      (obj .:? "Subnets") <*>-      (obj .:? "Tags")-  parseJSON _ = mempty- -- | Constructor for 'ElasticLoadBalancingLoadBalancer' containing required -- fields as arguments. elasticLoadBalancingLoadBalancer
library-gen/Stratosphere/Resources/ElasticLoadBalancingV2Listener.hs view
@@ -34,17 +34,6 @@     , fmap (("SslPolicy",) . toJSON) _elasticLoadBalancingV2ListenerSslPolicy     ] -instance FromJSON ElasticLoadBalancingV2Listener where-  parseJSON (Object obj) =-    ElasticLoadBalancingV2Listener <$>-      (obj .:? "Certificates") <*>-      (obj .: "DefaultActions") <*>-      (obj .: "LoadBalancerArn") <*>-      fmap (fmap unInteger') (obj .: "Port") <*>-      (obj .: "Protocol") <*>-      (obj .:? "SslPolicy")-  parseJSON _ = mempty- -- | Constructor for 'ElasticLoadBalancingV2Listener' containing required -- fields as arguments. elasticLoadBalancingV2Listener
library-gen/Stratosphere/Resources/ElasticLoadBalancingV2ListenerCertificateResource.hs view
@@ -27,13 +27,6 @@     , (Just . ("ListenerArn",) . toJSON) _elasticLoadBalancingV2ListenerCertificateResourceListenerArn     ] -instance FromJSON ElasticLoadBalancingV2ListenerCertificateResource where-  parseJSON (Object obj) =-    ElasticLoadBalancingV2ListenerCertificateResource <$>-      (obj .: "Certificates") <*>-      (obj .: "ListenerArn")-  parseJSON _ = mempty- -- | Constructor for 'ElasticLoadBalancingV2ListenerCertificateResource' -- containing required fields as arguments. elasticLoadBalancingV2ListenerCertificateResource
library-gen/Stratosphere/Resources/ElasticLoadBalancingV2ListenerRule.hs view
@@ -30,15 +30,6 @@     , (Just . ("Priority",) . toJSON . fmap Integer') _elasticLoadBalancingV2ListenerRulePriority     ] -instance FromJSON ElasticLoadBalancingV2ListenerRule where-  parseJSON (Object obj) =-    ElasticLoadBalancingV2ListenerRule <$>-      (obj .: "Actions") <*>-      (obj .: "Conditions") <*>-      (obj .: "ListenerArn") <*>-      fmap (fmap unInteger') (obj .: "Priority")-  parseJSON _ = mempty- -- | Constructor for 'ElasticLoadBalancingV2ListenerRule' containing required -- fields as arguments. elasticLoadBalancingV2ListenerRule
library-gen/Stratosphere/Resources/ElasticLoadBalancingV2LoadBalancer.hs view
@@ -41,20 +41,6 @@     , fmap (("Type",) . toJSON) _elasticLoadBalancingV2LoadBalancerType     ] -instance FromJSON ElasticLoadBalancingV2LoadBalancer where-  parseJSON (Object obj) =-    ElasticLoadBalancingV2LoadBalancer <$>-      (obj .:? "IpAddressType") <*>-      (obj .:? "LoadBalancerAttributes") <*>-      (obj .:? "Name") <*>-      (obj .:? "Scheme") <*>-      (obj .:? "SecurityGroups") <*>-      (obj .:? "SubnetMappings") <*>-      (obj .:? "Subnets") <*>-      (obj .:? "Tags") <*>-      (obj .:? "Type")-  parseJSON _ = mempty- -- | Constructor for 'ElasticLoadBalancingV2LoadBalancer' containing required -- fields as arguments. elasticLoadBalancingV2LoadBalancer
library-gen/Stratosphere/Resources/ElasticLoadBalancingV2TargetGroup.hs view
@@ -58,28 +58,6 @@     , fmap (("VpcId",) . toJSON) _elasticLoadBalancingV2TargetGroupVpcId     ] -instance FromJSON ElasticLoadBalancingV2TargetGroup where-  parseJSON (Object obj) =-    ElasticLoadBalancingV2TargetGroup <$>-      fmap (fmap (fmap unBool')) (obj .:? "HealthCheckEnabled") <*>-      fmap (fmap (fmap unInteger')) (obj .:? "HealthCheckIntervalSeconds") <*>-      (obj .:? "HealthCheckPath") <*>-      (obj .:? "HealthCheckPort") <*>-      (obj .:? "HealthCheckProtocol") <*>-      fmap (fmap (fmap unInteger')) (obj .:? "HealthCheckTimeoutSeconds") <*>-      fmap (fmap (fmap unInteger')) (obj .:? "HealthyThresholdCount") <*>-      (obj .:? "Matcher") <*>-      (obj .:? "Name") <*>-      fmap (fmap (fmap unInteger')) (obj .:? "Port") <*>-      (obj .:? "Protocol") <*>-      (obj .:? "Tags") <*>-      (obj .:? "TargetGroupAttributes") <*>-      (obj .:? "TargetType") <*>-      (obj .:? "Targets") <*>-      fmap (fmap (fmap unInteger')) (obj .:? "UnhealthyThresholdCount") <*>-      (obj .:? "VpcId")-  parseJSON _ = mempty- -- | Constructor for 'ElasticLoadBalancingV2TargetGroup' containing required -- fields as arguments. elasticLoadBalancingV2TargetGroup
library-gen/Stratosphere/Resources/ElasticsearchDomain.hs view
@@ -49,22 +49,6 @@     , fmap (("VPCOptions",) . toJSON) _elasticsearchDomainVPCOptions     ] -instance FromJSON ElasticsearchDomain where-  parseJSON (Object obj) =-    ElasticsearchDomain <$>-      (obj .:? "AccessPolicies") <*>-      (obj .:? "AdvancedOptions") <*>-      (obj .:? "DomainName") <*>-      (obj .:? "EBSOptions") <*>-      (obj .:? "ElasticsearchClusterConfig") <*>-      (obj .:? "ElasticsearchVersion") <*>-      (obj .:? "EncryptionAtRestOptions") <*>-      (obj .:? "NodeToNodeEncryptionOptions") <*>-      (obj .:? "SnapshotOptions") <*>-      (obj .:? "Tags") <*>-      (obj .:? "VPCOptions")-  parseJSON _ = mempty- -- | Constructor for 'ElasticsearchDomain' containing required fields as -- arguments. elasticsearchDomain
library-gen/Stratosphere/Resources/EventsEventBusPolicy.hs view
@@ -29,15 +29,6 @@     , (Just . ("StatementId",) . toJSON) _eventsEventBusPolicyStatementId     ] -instance FromJSON EventsEventBusPolicy where-  parseJSON (Object obj) =-    EventsEventBusPolicy <$>-      (obj .: "Action") <*>-      (obj .:? "Condition") <*>-      (obj .: "Principal") <*>-      (obj .: "StatementId")-  parseJSON _ = mempty- -- | Constructor for 'EventsEventBusPolicy' containing required fields as -- arguments. eventsEventBusPolicy
library-gen/Stratosphere/Resources/EventsRule.hs view
@@ -36,18 +36,6 @@     , fmap (("Targets",) . toJSON) _eventsRuleTargets     ] -instance FromJSON EventsRule where-  parseJSON (Object obj) =-    EventsRule <$>-      (obj .:? "Description") <*>-      (obj .:? "EventPattern") <*>-      (obj .:? "Name") <*>-      (obj .:? "RoleArn") <*>-      (obj .:? "ScheduleExpression") <*>-      (obj .:? "State") <*>-      (obj .:? "Targets")-  parseJSON _ = mempty- -- | Constructor for 'EventsRule' containing required fields as arguments. eventsRule   :: EventsRule
library-gen/Stratosphere/Resources/FSxFileSystem.hs view
@@ -41,20 +41,6 @@     , fmap (("WindowsConfiguration",) . toJSON) _fSxFileSystemWindowsConfiguration     ] -instance FromJSON FSxFileSystem where-  parseJSON (Object obj) =-    FSxFileSystem <$>-      (obj .:? "BackupId") <*>-      (obj .:? "FileSystemType") <*>-      (obj .:? "KmsKeyId") <*>-      (obj .:? "LustreConfiguration") <*>-      (obj .:? "SecurityGroupIds") <*>-      fmap (fmap (fmap unInteger')) (obj .:? "StorageCapacity") <*>-      (obj .:? "SubnetIds") <*>-      (obj .:? "Tags") <*>-      (obj .:? "WindowsConfiguration")-  parseJSON _ = mempty- -- | Constructor for 'FSxFileSystem' containing required fields as arguments. fSxFileSystem   :: FSxFileSystem
library-gen/Stratosphere/Resources/GameLiftAlias.hs view
@@ -27,14 +27,6 @@     , (Just . ("RoutingStrategy",) . toJSON) _gameLiftAliasRoutingStrategy     ] -instance FromJSON GameLiftAlias where-  parseJSON (Object obj) =-    GameLiftAlias <$>-      (obj .:? "Description") <*>-      (obj .: "Name") <*>-      (obj .: "RoutingStrategy")-  parseJSON _ = mempty- -- | Constructor for 'GameLiftAlias' containing required fields as arguments. gameLiftAlias   :: Val Text -- ^ 'glaName'
library-gen/Stratosphere/Resources/GameLiftBuild.hs view
@@ -27,14 +27,6 @@     , fmap (("Version",) . toJSON) _gameLiftBuildVersion     ] -instance FromJSON GameLiftBuild where-  parseJSON (Object obj) =-    GameLiftBuild <$>-      (obj .:? "Name") <*>-      (obj .:? "StorageLocation") <*>-      (obj .:? "Version")-  parseJSON _ = mempty- -- | Constructor for 'GameLiftBuild' containing required fields as arguments. gameLiftBuild   :: GameLiftBuild
library-gen/Stratosphere/Resources/GameLiftFleet.hs view
@@ -43,22 +43,6 @@     , (Just . ("ServerLaunchPath",) . toJSON) _gameLiftFleetServerLaunchPath     ] -instance FromJSON GameLiftFleet where-  parseJSON (Object obj) =-    GameLiftFleet <$>-      (obj .: "BuildId") <*>-      (obj .:? "Description") <*>-      fmap (fmap unInteger') (obj .: "DesiredEC2Instances") <*>-      (obj .:? "EC2InboundPermissions") <*>-      (obj .: "EC2InstanceType") <*>-      (obj .:? "LogPaths") <*>-      fmap (fmap (fmap unInteger')) (obj .:? "MaxSize") <*>-      fmap (fmap (fmap unInteger')) (obj .:? "MinSize") <*>-      (obj .: "Name") <*>-      (obj .:? "ServerLaunchParameters") <*>-      (obj .: "ServerLaunchPath")-  parseJSON _ = mempty- -- | Constructor for 'GameLiftFleet' containing required fields as arguments. gameLiftFleet   :: Val Text -- ^ 'glfBuildId'
library-gen/Stratosphere/Resources/GlueClassifier.hs view
@@ -29,14 +29,6 @@     , fmap (("XMLClassifier",) . toJSON) _glueClassifierXMLClassifier     ] -instance FromJSON GlueClassifier where-  parseJSON (Object obj) =-    GlueClassifier <$>-      (obj .:? "GrokClassifier") <*>-      (obj .:? "JsonClassifier") <*>-      (obj .:? "XMLClassifier")-  parseJSON _ = mempty- -- | Constructor for 'GlueClassifier' containing required fields as arguments. glueClassifier   :: GlueClassifier
library-gen/Stratosphere/Resources/GlueConnection.hs view
@@ -25,13 +25,6 @@     , (Just . ("ConnectionInput",) . toJSON) _glueConnectionConnectionInput     ] -instance FromJSON GlueConnection where-  parseJSON (Object obj) =-    GlueConnection <$>-      (obj .: "CatalogId") <*>-      (obj .: "ConnectionInput")-  parseJSON _ = mempty- -- | Constructor for 'GlueConnection' containing required fields as arguments. glueConnection   :: Val Text -- ^ 'gcCatalogId'
library-gen/Stratosphere/Resources/GlueCrawler.hs view
@@ -43,21 +43,6 @@     , (Just . ("Targets",) . toJSON) _glueCrawlerTargets     ] -instance FromJSON GlueCrawler where-  parseJSON (Object obj) =-    GlueCrawler <$>-      (obj .:? "Classifiers") <*>-      (obj .:? "Configuration") <*>-      (obj .: "DatabaseName") <*>-      (obj .:? "Description") <*>-      (obj .:? "Name") <*>-      (obj .: "Role") <*>-      (obj .:? "Schedule") <*>-      (obj .:? "SchemaChangePolicy") <*>-      (obj .:? "TablePrefix") <*>-      (obj .: "Targets")-  parseJSON _ = mempty- -- | Constructor for 'GlueCrawler' containing required fields as arguments. glueCrawler   :: Val Text -- ^ 'gcDatabaseName'
library-gen/Stratosphere/Resources/GlueDatabase.hs view
@@ -25,13 +25,6 @@     , (Just . ("DatabaseInput",) . toJSON) _glueDatabaseDatabaseInput     ] -instance FromJSON GlueDatabase where-  parseJSON (Object obj) =-    GlueDatabase <$>-      (obj .: "CatalogId") <*>-      (obj .: "DatabaseInput")-  parseJSON _ = mempty- -- | Constructor for 'GlueDatabase' containing required fields as arguments. glueDatabase   :: Val Text -- ^ 'gdCatalogId'
library-gen/Stratosphere/Resources/GlueDevEndpoint.hs view
@@ -37,19 +37,6 @@     , fmap (("SubnetId",) . toJSON) _glueDevEndpointSubnetId     ] -instance FromJSON GlueDevEndpoint where-  parseJSON (Object obj) =-    GlueDevEndpoint <$>-      (obj .:? "EndpointName") <*>-      (obj .:? "ExtraJarsS3Path") <*>-      (obj .:? "ExtraPythonLibsS3Path") <*>-      fmap (fmap (fmap unInteger')) (obj .:? "NumberOfNodes") <*>-      (obj .: "PublicKey") <*>-      (obj .: "RoleArn") <*>-      (obj .:? "SecurityGroupIds") <*>-      (obj .:? "SubnetId")-  parseJSON _ = mempty- -- | Constructor for 'GlueDevEndpoint' containing required fields as -- arguments. glueDevEndpoint
library-gen/Stratosphere/Resources/GlueJob.hs view
@@ -43,21 +43,6 @@     , (Just . ("Role",) . toJSON) _glueJobRole     ] -instance FromJSON GlueJob where-  parseJSON (Object obj) =-    GlueJob <$>-      fmap (fmap (fmap unDouble')) (obj .:? "AllocatedCapacity") <*>-      (obj .: "Command") <*>-      (obj .:? "Connections") <*>-      (obj .:? "DefaultArguments") <*>-      (obj .:? "Description") <*>-      (obj .:? "ExecutionProperty") <*>-      (obj .:? "LogUri") <*>-      fmap (fmap (fmap unDouble')) (obj .:? "MaxRetries") <*>-      (obj .:? "Name") <*>-      (obj .: "Role")-  parseJSON _ = mempty- -- | Constructor for 'GlueJob' containing required fields as arguments. glueJob   :: GlueJobJobCommand -- ^ 'gjCommand'
library-gen/Stratosphere/Resources/GluePartition.hs view
@@ -29,15 +29,6 @@     , (Just . ("TableName",) . toJSON) _gluePartitionTableName     ] -instance FromJSON GluePartition where-  parseJSON (Object obj) =-    GluePartition <$>-      (obj .: "CatalogId") <*>-      (obj .: "DatabaseName") <*>-      (obj .: "PartitionInput") <*>-      (obj .: "TableName")-  parseJSON _ = mempty- -- | Constructor for 'GluePartition' containing required fields as arguments. gluePartition   :: Val Text -- ^ 'gpCatalogId'
library-gen/Stratosphere/Resources/GlueTable.hs view
@@ -27,14 +27,6 @@     , (Just . ("TableInput",) . toJSON) _glueTableTableInput     ] -instance FromJSON GlueTable where-  parseJSON (Object obj) =-    GlueTable <$>-      (obj .: "CatalogId") <*>-      (obj .: "DatabaseName") <*>-      (obj .: "TableInput")-  parseJSON _ = mempty- -- | Constructor for 'GlueTable' containing required fields as arguments. glueTable   :: Val Text -- ^ 'gtCatalogId'
library-gen/Stratosphere/Resources/GlueTrigger.hs view
@@ -34,17 +34,6 @@     , (Just . ("Type",) . toJSON) _glueTriggerType     ] -instance FromJSON GlueTrigger where-  parseJSON (Object obj) =-    GlueTrigger <$>-      (obj .: "Actions") <*>-      (obj .:? "Description") <*>-      (obj .:? "Name") <*>-      (obj .:? "Predicate") <*>-      (obj .:? "Schedule") <*>-      (obj .: "Type")-  parseJSON _ = mempty- -- | Constructor for 'GlueTrigger' containing required fields as arguments. glueTrigger   :: [GlueTriggerAction] -- ^ 'gtActions'
library-gen/Stratosphere/Resources/GuardDutyDetector.hs view
@@ -25,13 +25,6 @@     , fmap (("FindingPublishingFrequency",) . toJSON) _guardDutyDetectorFindingPublishingFrequency     ] -instance FromJSON GuardDutyDetector where-  parseJSON (Object obj) =-    GuardDutyDetector <$>-      fmap (fmap unBool') (obj .: "Enable") <*>-      (obj .:? "FindingPublishingFrequency")-  parseJSON _ = mempty- -- | Constructor for 'GuardDutyDetector' containing required fields as -- arguments. guardDutyDetector
library-gen/Stratosphere/Resources/GuardDutyFilter.hs view
@@ -33,17 +33,6 @@     , (Just . ("Rank",) . toJSON . fmap Integer') _guardDutyFilterRank     ] -instance FromJSON GuardDutyFilter where-  parseJSON (Object obj) =-    GuardDutyFilter <$>-      (obj .: "Action") <*>-      (obj .: "Description") <*>-      (obj .: "DetectorId") <*>-      (obj .: "FindingCriteria") <*>-      (obj .:? "Name") <*>-      fmap (fmap unInteger') (obj .: "Rank")-  parseJSON _ = mempty- -- | Constructor for 'GuardDutyFilter' containing required fields as -- arguments. guardDutyFilter
library-gen/Stratosphere/Resources/GuardDutyIPSet.hs view
@@ -31,16 +31,6 @@     , fmap (("Name",) . toJSON) _guardDutyIPSetName     ] -instance FromJSON GuardDutyIPSet where-  parseJSON (Object obj) =-    GuardDutyIPSet <$>-      fmap (fmap unBool') (obj .: "Activate") <*>-      (obj .: "DetectorId") <*>-      (obj .: "Format") <*>-      (obj .: "Location") <*>-      (obj .:? "Name")-  parseJSON _ = mempty- -- | Constructor for 'GuardDutyIPSet' containing required fields as arguments. guardDutyIPSet   :: Val Bool -- ^ 'gdipsActivate'
library-gen/Stratosphere/Resources/GuardDutyMaster.hs view
@@ -27,14 +27,6 @@     , (Just . ("MasterId",) . toJSON) _guardDutyMasterMasterId     ] -instance FromJSON GuardDutyMaster where-  parseJSON (Object obj) =-    GuardDutyMaster <$>-      (obj .: "DetectorId") <*>-      (obj .:? "InvitationId") <*>-      (obj .: "MasterId")-  parseJSON _ = mempty- -- | Constructor for 'GuardDutyMaster' containing required fields as -- arguments. guardDutyMaster
library-gen/Stratosphere/Resources/GuardDutyMember.hs view
@@ -33,17 +33,6 @@     , fmap (("Status",) . toJSON) _guardDutyMemberStatus     ] -instance FromJSON GuardDutyMember where-  parseJSON (Object obj) =-    GuardDutyMember <$>-      (obj .: "DetectorId") <*>-      fmap (fmap (fmap unBool')) (obj .:? "DisableEmailNotification") <*>-      (obj .: "Email") <*>-      (obj .: "MemberId") <*>-      (obj .:? "Message") <*>-      (obj .:? "Status")-  parseJSON _ = mempty- -- | Constructor for 'GuardDutyMember' containing required fields as -- arguments. guardDutyMember
library-gen/Stratosphere/Resources/GuardDutyThreatIntelSet.hs view
@@ -31,16 +31,6 @@     , fmap (("Name",) . toJSON) _guardDutyThreatIntelSetName     ] -instance FromJSON GuardDutyThreatIntelSet where-  parseJSON (Object obj) =-    GuardDutyThreatIntelSet <$>-      fmap (fmap unBool') (obj .: "Activate") <*>-      (obj .: "DetectorId") <*>-      (obj .: "Format") <*>-      (obj .: "Location") <*>-      (obj .:? "Name")-  parseJSON _ = mempty- -- | Constructor for 'GuardDutyThreatIntelSet' containing required fields as -- arguments. guardDutyThreatIntelSet
library-gen/Stratosphere/Resources/IAMAccessKey.hs view
@@ -27,14 +27,6 @@     , (Just . ("UserName",) . toJSON) _iAMAccessKeyUserName     ] -instance FromJSON IAMAccessKey where-  parseJSON (Object obj) =-    IAMAccessKey <$>-      fmap (fmap (fmap unInteger')) (obj .:? "Serial") <*>-      (obj .:? "Status") <*>-      (obj .: "UserName")-  parseJSON _ = mempty- -- | Constructor for 'IAMAccessKey' containing required fields as arguments. iamAccessKey   :: Val Text -- ^ 'iamakUserName'
library-gen/Stratosphere/Resources/IAMGroup.hs view
@@ -29,15 +29,6 @@     , fmap (("Policies",) . toJSON) _iAMGroupPolicies     ] -instance FromJSON IAMGroup where-  parseJSON (Object obj) =-    IAMGroup <$>-      (obj .:? "GroupName") <*>-      (obj .:? "ManagedPolicyArns") <*>-      (obj .:? "Path") <*>-      (obj .:? "Policies")-  parseJSON _ = mempty- -- | Constructor for 'IAMGroup' containing required fields as arguments. iamGroup   :: IAMGroup
library-gen/Stratosphere/Resources/IAMInstanceProfile.hs view
@@ -27,14 +27,6 @@     , (Just . ("Roles",) . toJSON) _iAMInstanceProfileRoles     ] -instance FromJSON IAMInstanceProfile where-  parseJSON (Object obj) =-    IAMInstanceProfile <$>-      (obj .:? "InstanceProfileName") <*>-      (obj .:? "Path") <*>-      (obj .: "Roles")-  parseJSON _ = mempty- -- | Constructor for 'IAMInstanceProfile' containing required fields as -- arguments. iamInstanceProfile
library-gen/Stratosphere/Resources/IAMManagedPolicy.hs view
@@ -35,18 +35,6 @@     , fmap (("Users",) . toJSON) _iAMManagedPolicyUsers     ] -instance FromJSON IAMManagedPolicy where-  parseJSON (Object obj) =-    IAMManagedPolicy <$>-      (obj .:? "Description") <*>-      (obj .:? "Groups") <*>-      (obj .:? "ManagedPolicyName") <*>-      (obj .:? "Path") <*>-      (obj .: "PolicyDocument") <*>-      (obj .:? "Roles") <*>-      (obj .:? "Users")-  parseJSON _ = mempty- -- | Constructor for 'IAMManagedPolicy' containing required fields as -- arguments. iamManagedPolicy
library-gen/Stratosphere/Resources/IAMPolicy.hs view
@@ -31,16 +31,6 @@     , fmap (("Users",) . toJSON) _iAMPolicyUsers     ] -instance FromJSON IAMPolicy where-  parseJSON (Object obj) =-    IAMPolicy <$>-      (obj .:? "Groups") <*>-      (obj .: "PolicyDocument") <*>-      (obj .: "PolicyName") <*>-      (obj .:? "Roles") <*>-      (obj .:? "Users")-  parseJSON _ = mempty- -- | Constructor for 'IAMPolicy' containing required fields as arguments. iamPolicy   :: Object -- ^ 'iampPolicyDocument'
library-gen/Stratosphere/Resources/IAMRole.hs view
@@ -35,18 +35,6 @@     , fmap (("RoleName",) . toJSON) _iAMRoleRoleName     ] -instance FromJSON IAMRole where-  parseJSON (Object obj) =-    IAMRole <$>-      (obj .: "AssumeRolePolicyDocument") <*>-      (obj .:? "ManagedPolicyArns") <*>-      fmap (fmap (fmap unInteger')) (obj .:? "MaxSessionDuration") <*>-      (obj .:? "Path") <*>-      (obj .:? "PermissionsBoundary") <*>-      (obj .:? "Policies") <*>-      (obj .:? "RoleName")-  parseJSON _ = mempty- -- | Constructor for 'IAMRole' containing required fields as arguments. iamRole   :: Object -- ^ 'iamrAssumeRolePolicyDocument'
library-gen/Stratosphere/Resources/IAMServiceLinkedRole.hs view
@@ -27,14 +27,6 @@     , fmap (("Description",) . toJSON) _iAMServiceLinkedRoleDescription     ] -instance FromJSON IAMServiceLinkedRole where-  parseJSON (Object obj) =-    IAMServiceLinkedRole <$>-      (obj .: "AWSServiceName") <*>-      (obj .:? "CustomSuffix") <*>-      (obj .:? "Description")-  parseJSON _ = mempty- -- | Constructor for 'IAMServiceLinkedRole' containing required fields as -- arguments. iamServiceLinkedRole
library-gen/Stratosphere/Resources/IAMUser.hs view
@@ -36,18 +36,6 @@     , fmap (("UserName",) . toJSON) _iAMUserUserName     ] -instance FromJSON IAMUser where-  parseJSON (Object obj) =-    IAMUser <$>-      (obj .:? "Groups") <*>-      (obj .:? "LoginProfile") <*>-      (obj .:? "ManagedPolicyArns") <*>-      (obj .:? "Path") <*>-      (obj .:? "PermissionsBoundary") <*>-      (obj .:? "Policies") <*>-      (obj .:? "UserName")-  parseJSON _ = mempty- -- | Constructor for 'IAMUser' containing required fields as arguments. iamUser   :: IAMUser
library-gen/Stratosphere/Resources/IAMUserToGroupAddition.hs view
@@ -25,13 +25,6 @@     , (Just . ("Users",) . toJSON) _iAMUserToGroupAdditionUsers     ] -instance FromJSON IAMUserToGroupAddition where-  parseJSON (Object obj) =-    IAMUserToGroupAddition <$>-      (obj .: "GroupName") <*>-      (obj .: "Users")-  parseJSON _ = mempty- -- | Constructor for 'IAMUserToGroupAddition' containing required fields as -- arguments. iamUserToGroupAddition
library-gen/Stratosphere/Resources/InspectorAssessmentTarget.hs view
@@ -25,13 +25,6 @@     , fmap (("ResourceGroupArn",) . toJSON) _inspectorAssessmentTargetResourceGroupArn     ] -instance FromJSON InspectorAssessmentTarget where-  parseJSON (Object obj) =-    InspectorAssessmentTarget <$>-      (obj .:? "AssessmentTargetName") <*>-      (obj .:? "ResourceGroupArn")-  parseJSON _ = mempty- -- | Constructor for 'InspectorAssessmentTarget' containing required fields as -- arguments. inspectorAssessmentTarget
library-gen/Stratosphere/Resources/InspectorAssessmentTemplate.hs view
@@ -31,16 +31,6 @@     , fmap (("UserAttributesForFindings",) . toJSON) _inspectorAssessmentTemplateUserAttributesForFindings     ] -instance FromJSON InspectorAssessmentTemplate where-  parseJSON (Object obj) =-    InspectorAssessmentTemplate <$>-      (obj .: "AssessmentTargetArn") <*>-      (obj .:? "AssessmentTemplateName") <*>-      fmap (fmap unInteger') (obj .: "DurationInSeconds") <*>-      (obj .: "RulesPackageArns") <*>-      (obj .:? "UserAttributesForFindings")-  parseJSON _ = mempty- -- | Constructor for 'InspectorAssessmentTemplate' containing required fields -- as arguments. inspectorAssessmentTemplate
library-gen/Stratosphere/Resources/InspectorResourceGroup.hs view
@@ -23,12 +23,6 @@     [ (Just . ("ResourceGroupTags",) . toJSON) _inspectorResourceGroupResourceGroupTags     ] -instance FromJSON InspectorResourceGroup where-  parseJSON (Object obj) =-    InspectorResourceGroup <$>-      (obj .: "ResourceGroupTags")-  parseJSON _ = mempty- -- | Constructor for 'InspectorResourceGroup' containing required fields as -- arguments. inspectorResourceGroup
library-gen/Stratosphere/Resources/IoT1ClickDevice.hs view
@@ -25,13 +25,6 @@     , (Just . ("Enabled",) . toJSON . fmap Bool') _ioT1ClickDeviceEnabled     ] -instance FromJSON IoT1ClickDevice where-  parseJSON (Object obj) =-    IoT1ClickDevice <$>-      (obj .: "DeviceId") <*>-      fmap (fmap unBool') (obj .: "Enabled")-  parseJSON _ = mempty- -- | Constructor for 'IoT1ClickDevice' containing required fields as -- arguments. ioT1ClickDevice
library-gen/Stratosphere/Resources/IoT1ClickPlacement.hs view
@@ -29,15 +29,6 @@     , (Just . ("ProjectName",) . toJSON) _ioT1ClickPlacementProjectName     ] -instance FromJSON IoT1ClickPlacement where-  parseJSON (Object obj) =-    IoT1ClickPlacement <$>-      (obj .:? "AssociatedDevices") <*>-      (obj .:? "Attributes") <*>-      (obj .:? "PlacementName") <*>-      (obj .: "ProjectName")-  parseJSON _ = mempty- -- | Constructor for 'IoT1ClickPlacement' containing required fields as -- arguments. ioT1ClickPlacement
library-gen/Stratosphere/Resources/IoT1ClickProject.hs view
@@ -27,14 +27,6 @@     , fmap (("ProjectName",) . toJSON) _ioT1ClickProjectProjectName     ] -instance FromJSON IoT1ClickProject where-  parseJSON (Object obj) =-    IoT1ClickProject <$>-      (obj .:? "Description") <*>-      (obj .: "PlacementTemplate") <*>-      (obj .:? "ProjectName")-  parseJSON _ = mempty- -- | Constructor for 'IoT1ClickProject' containing required fields as -- arguments. ioT1ClickProject
library-gen/Stratosphere/Resources/IoTAnalyticsChannel.hs view
@@ -28,14 +28,6 @@     , fmap (("Tags",) . toJSON) _ioTAnalyticsChannelTags     ] -instance FromJSON IoTAnalyticsChannel where-  parseJSON (Object obj) =-    IoTAnalyticsChannel <$>-      (obj .:? "ChannelName") <*>-      (obj .:? "RetentionPeriod") <*>-      (obj .:? "Tags")-  parseJSON _ = mempty- -- | Constructor for 'IoTAnalyticsChannel' containing required fields as -- arguments. ioTAnalyticsChannel
library-gen/Stratosphere/Resources/IoTAnalyticsDataset.hs view
@@ -34,16 +34,6 @@     , fmap (("Triggers",) . toJSON) _ioTAnalyticsDatasetTriggers     ] -instance FromJSON IoTAnalyticsDataset where-  parseJSON (Object obj) =-    IoTAnalyticsDataset <$>-      (obj .: "Actions") <*>-      (obj .:? "DatasetName") <*>-      (obj .:? "RetentionPeriod") <*>-      (obj .:? "Tags") <*>-      (obj .:? "Triggers")-  parseJSON _ = mempty- -- | Constructor for 'IoTAnalyticsDataset' containing required fields as -- arguments. ioTAnalyticsDataset
library-gen/Stratosphere/Resources/IoTAnalyticsDatastore.hs view
@@ -28,14 +28,6 @@     , fmap (("Tags",) . toJSON) _ioTAnalyticsDatastoreTags     ] -instance FromJSON IoTAnalyticsDatastore where-  parseJSON (Object obj) =-    IoTAnalyticsDatastore <$>-      (obj .:? "DatastoreName") <*>-      (obj .:? "RetentionPeriod") <*>-      (obj .:? "Tags")-  parseJSON _ = mempty- -- | Constructor for 'IoTAnalyticsDatastore' containing required fields as -- arguments. ioTAnalyticsDatastore
library-gen/Stratosphere/Resources/IoTAnalyticsPipeline.hs view
@@ -28,14 +28,6 @@     , fmap (("Tags",) . toJSON) _ioTAnalyticsPipelineTags     ] -instance FromJSON IoTAnalyticsPipeline where-  parseJSON (Object obj) =-    IoTAnalyticsPipeline <$>-      (obj .: "PipelineActivities") <*>-      (obj .:? "PipelineName") <*>-      (obj .:? "Tags")-  parseJSON _ = mempty- -- | Constructor for 'IoTAnalyticsPipeline' containing required fields as -- arguments. ioTAnalyticsPipeline
library-gen/Stratosphere/Resources/IoTCertificate.hs view
@@ -25,13 +25,6 @@     , (Just . ("Status",) . toJSON) _ioTCertificateStatus     ] -instance FromJSON IoTCertificate where-  parseJSON (Object obj) =-    IoTCertificate <$>-      (obj .: "CertificateSigningRequest") <*>-      (obj .: "Status")-  parseJSON _ = mempty- -- | Constructor for 'IoTCertificate' containing required fields as arguments. ioTCertificate   :: Val Text -- ^ 'itcCertificateSigningRequest'
library-gen/Stratosphere/Resources/IoTPolicy.hs view
@@ -25,13 +25,6 @@     , fmap (("PolicyName",) . toJSON) _ioTPolicyPolicyName     ] -instance FromJSON IoTPolicy where-  parseJSON (Object obj) =-    IoTPolicy <$>-      (obj .: "PolicyDocument") <*>-      (obj .:? "PolicyName")-  parseJSON _ = mempty- -- | Constructor for 'IoTPolicy' containing required fields as arguments. ioTPolicy   :: Object -- ^ 'itpPolicyDocument'
library-gen/Stratosphere/Resources/IoTPolicyPrincipalAttachment.hs view
@@ -25,13 +25,6 @@     , (Just . ("Principal",) . toJSON) _ioTPolicyPrincipalAttachmentPrincipal     ] -instance FromJSON IoTPolicyPrincipalAttachment where-  parseJSON (Object obj) =-    IoTPolicyPrincipalAttachment <$>-      (obj .: "PolicyName") <*>-      (obj .: "Principal")-  parseJSON _ = mempty- -- | Constructor for 'IoTPolicyPrincipalAttachment' containing required fields -- as arguments. ioTPolicyPrincipalAttachment
library-gen/Stratosphere/Resources/IoTThing.hs view
@@ -25,13 +25,6 @@     , fmap (("ThingName",) . toJSON) _ioTThingThingName     ] -instance FromJSON IoTThing where-  parseJSON (Object obj) =-    IoTThing <$>-      (obj .:? "AttributePayload") <*>-      (obj .:? "ThingName")-  parseJSON _ = mempty- -- | Constructor for 'IoTThing' containing required fields as arguments. ioTThing   :: IoTThing
library-gen/Stratosphere/Resources/IoTThingPrincipalAttachment.hs view
@@ -25,13 +25,6 @@     , (Just . ("ThingName",) . toJSON) _ioTThingPrincipalAttachmentThingName     ] -instance FromJSON IoTThingPrincipalAttachment where-  parseJSON (Object obj) =-    IoTThingPrincipalAttachment <$>-      (obj .: "Principal") <*>-      (obj .: "ThingName")-  parseJSON _ = mempty- -- | Constructor for 'IoTThingPrincipalAttachment' containing required fields -- as arguments. ioTThingPrincipalAttachment
library-gen/Stratosphere/Resources/IoTTopicRule.hs view
@@ -25,13 +25,6 @@     , (Just . ("TopicRulePayload",) . toJSON) _ioTTopicRuleTopicRulePayload     ] -instance FromJSON IoTTopicRule where-  parseJSON (Object obj) =-    IoTTopicRule <$>-      (obj .:? "RuleName") <*>-      (obj .: "TopicRulePayload")-  parseJSON _ = mempty- -- | Constructor for 'IoTTopicRule' containing required fields as arguments. ioTTopicRule   :: IoTTopicRuleTopicRulePayload -- ^ 'ittrTopicRulePayload'
library-gen/Stratosphere/Resources/KMSAlias.hs view
@@ -25,13 +25,6 @@     , (Just . ("TargetKeyId",) . toJSON) _kMSAliasTargetKeyId     ] -instance FromJSON KMSAlias where-  parseJSON (Object obj) =-    KMSAlias <$>-      (obj .: "AliasName") <*>-      (obj .: "TargetKeyId")-  parseJSON _ = mempty- -- | Constructor for 'KMSAlias' containing required fields as arguments. kmsAlias   :: Val Text -- ^ 'kmsaAliasName'
library-gen/Stratosphere/Resources/KMSKey.hs view
@@ -35,18 +35,6 @@     , fmap (("Tags",) . toJSON) _kMSKeyTags     ] -instance FromJSON KMSKey where-  parseJSON (Object obj) =-    KMSKey <$>-      (obj .:? "Description") <*>-      fmap (fmap (fmap unBool')) (obj .:? "EnableKeyRotation") <*>-      fmap (fmap (fmap unBool')) (obj .:? "Enabled") <*>-      (obj .: "KeyPolicy") <*>-      (obj .:? "KeyUsage") <*>-      fmap (fmap (fmap unInteger')) (obj .:? "PendingWindowInDays") <*>-      (obj .:? "Tags")-  parseJSON _ = mempty- -- | Constructor for 'KMSKey' containing required fields as arguments. kmsKey   :: Object -- ^ 'kmskKeyPolicy'
library-gen/Stratosphere/Resources/KinesisAnalyticsApplication.hs view
@@ -29,15 +29,6 @@     , (Just . ("Inputs",) . toJSON) _kinesisAnalyticsApplicationInputs     ] -instance FromJSON KinesisAnalyticsApplication where-  parseJSON (Object obj) =-    KinesisAnalyticsApplication <$>-      (obj .:? "ApplicationCode") <*>-      (obj .:? "ApplicationDescription") <*>-      (obj .:? "ApplicationName") <*>-      (obj .: "Inputs")-  parseJSON _ = mempty- -- | Constructor for 'KinesisAnalyticsApplication' containing required fields -- as arguments. kinesisAnalyticsApplication
library-gen/Stratosphere/Resources/KinesisAnalyticsApplicationOutput.hs view
@@ -25,13 +25,6 @@     , (Just . ("Output",) . toJSON) _kinesisAnalyticsApplicationOutputOutput     ] -instance FromJSON KinesisAnalyticsApplicationOutput where-  parseJSON (Object obj) =-    KinesisAnalyticsApplicationOutput <$>-      (obj .: "ApplicationName") <*>-      (obj .: "Output")-  parseJSON _ = mempty- -- | Constructor for 'KinesisAnalyticsApplicationOutput' containing required -- fields as arguments. kinesisAnalyticsApplicationOutput
library-gen/Stratosphere/Resources/KinesisAnalyticsApplicationReferenceDataSource.hs view
@@ -27,13 +27,6 @@     , (Just . ("ReferenceDataSource",) . toJSON) _kinesisAnalyticsApplicationReferenceDataSourceReferenceDataSource     ] -instance FromJSON KinesisAnalyticsApplicationReferenceDataSource where-  parseJSON (Object obj) =-    KinesisAnalyticsApplicationReferenceDataSource <$>-      (obj .: "ApplicationName") <*>-      (obj .: "ReferenceDataSource")-  parseJSON _ = mempty- -- | Constructor for 'KinesisAnalyticsApplicationReferenceDataSource' -- containing required fields as arguments. kinesisAnalyticsApplicationReferenceDataSource
library-gen/Stratosphere/Resources/KinesisAnalyticsV2Application.hs view
@@ -31,16 +31,6 @@     , (Just . ("ServiceExecutionRole",) . toJSON) _kinesisAnalyticsV2ApplicationServiceExecutionRole     ] -instance FromJSON KinesisAnalyticsV2Application where-  parseJSON (Object obj) =-    KinesisAnalyticsV2Application <$>-      (obj .:? "ApplicationConfiguration") <*>-      (obj .:? "ApplicationDescription") <*>-      (obj .:? "ApplicationName") <*>-      (obj .: "RuntimeEnvironment") <*>-      (obj .: "ServiceExecutionRole")-  parseJSON _ = mempty- -- | Constructor for 'KinesisAnalyticsV2Application' containing required -- fields as arguments. kinesisAnalyticsV2Application
library-gen/Stratosphere/Resources/KinesisAnalyticsV2ApplicationCloudWatchLoggingOption.hs view
@@ -27,13 +27,6 @@     , (Just . ("CloudWatchLoggingOption",) . toJSON) _kinesisAnalyticsV2ApplicationCloudWatchLoggingOptionCloudWatchLoggingOption     ] -instance FromJSON KinesisAnalyticsV2ApplicationCloudWatchLoggingOption where-  parseJSON (Object obj) =-    KinesisAnalyticsV2ApplicationCloudWatchLoggingOption <$>-      (obj .: "ApplicationName") <*>-      (obj .: "CloudWatchLoggingOption")-  parseJSON _ = mempty- -- | Constructor for 'KinesisAnalyticsV2ApplicationCloudWatchLoggingOption' -- containing required fields as arguments. kinesisAnalyticsV2ApplicationCloudWatchLoggingOption
library-gen/Stratosphere/Resources/KinesisAnalyticsV2ApplicationOutput.hs view
@@ -25,13 +25,6 @@     , (Just . ("Output",) . toJSON) _kinesisAnalyticsV2ApplicationOutputOutput     ] -instance FromJSON KinesisAnalyticsV2ApplicationOutput where-  parseJSON (Object obj) =-    KinesisAnalyticsV2ApplicationOutput <$>-      (obj .: "ApplicationName") <*>-      (obj .: "Output")-  parseJSON _ = mempty- -- | Constructor for 'KinesisAnalyticsV2ApplicationOutput' containing required -- fields as arguments. kinesisAnalyticsV2ApplicationOutput
library-gen/Stratosphere/Resources/KinesisAnalyticsV2ApplicationReferenceDataSource.hs view
@@ -27,13 +27,6 @@     , (Just . ("ReferenceDataSource",) . toJSON) _kinesisAnalyticsV2ApplicationReferenceDataSourceReferenceDataSource     ] -instance FromJSON KinesisAnalyticsV2ApplicationReferenceDataSource where-  parseJSON (Object obj) =-    KinesisAnalyticsV2ApplicationReferenceDataSource <$>-      (obj .: "ApplicationName") <*>-      (obj .: "ReferenceDataSource")-  parseJSON _ = mempty- -- | Constructor for 'KinesisAnalyticsV2ApplicationReferenceDataSource' -- containing required fields as arguments. kinesisAnalyticsV2ApplicationReferenceDataSource
library-gen/Stratosphere/Resources/KinesisFirehoseDeliveryStream.hs view
@@ -42,19 +42,6 @@     , fmap (("SplunkDestinationConfiguration",) . toJSON) _kinesisFirehoseDeliveryStreamSplunkDestinationConfiguration     ] -instance FromJSON KinesisFirehoseDeliveryStream where-  parseJSON (Object obj) =-    KinesisFirehoseDeliveryStream <$>-      (obj .:? "DeliveryStreamName") <*>-      (obj .:? "DeliveryStreamType") <*>-      (obj .:? "ElasticsearchDestinationConfiguration") <*>-      (obj .:? "ExtendedS3DestinationConfiguration") <*>-      (obj .:? "KinesisStreamSourceConfiguration") <*>-      (obj .:? "RedshiftDestinationConfiguration") <*>-      (obj .:? "S3DestinationConfiguration") <*>-      (obj .:? "SplunkDestinationConfiguration")-  parseJSON _ = mempty- -- | Constructor for 'KinesisFirehoseDeliveryStream' containing required -- fields as arguments. kinesisFirehoseDeliveryStream
library-gen/Stratosphere/Resources/KinesisStream.hs view
@@ -32,16 +32,6 @@     , fmap (("Tags",) . toJSON) _kinesisStreamTags     ] -instance FromJSON KinesisStream where-  parseJSON (Object obj) =-    KinesisStream <$>-      (obj .:? "Name") <*>-      fmap (fmap (fmap unInteger')) (obj .:? "RetentionPeriodHours") <*>-      fmap (fmap unInteger') (obj .: "ShardCount") <*>-      (obj .:? "StreamEncryption") <*>-      (obj .:? "Tags")-  parseJSON _ = mempty- -- | Constructor for 'KinesisStream' containing required fields as arguments. kinesisStream   :: Val Integer -- ^ 'ksShardCount'
library-gen/Stratosphere/Resources/KinesisStreamConsumer.hs view
@@ -25,13 +25,6 @@     , (Just . ("StreamARN",) . toJSON) _kinesisStreamConsumerStreamARN     ] -instance FromJSON KinesisStreamConsumer where-  parseJSON (Object obj) =-    KinesisStreamConsumer <$>-      (obj .: "ConsumerName") <*>-      (obj .: "StreamARN")-  parseJSON _ = mempty- -- | Constructor for 'KinesisStreamConsumer' containing required fields as -- arguments. kinesisStreamConsumer
library-gen/Stratosphere/Resources/LambdaAlias.hs view
@@ -31,16 +31,6 @@     , fmap (("RoutingConfig",) . toJSON) _lambdaAliasRoutingConfig     ] -instance FromJSON LambdaAlias where-  parseJSON (Object obj) =-    LambdaAlias <$>-      (obj .:? "Description") <*>-      (obj .: "FunctionName") <*>-      (obj .: "FunctionVersion") <*>-      (obj .: "Name") <*>-      (obj .:? "RoutingConfig")-  parseJSON _ = mempty- -- | Constructor for 'LambdaAlias' containing required fields as arguments. lambdaAlias   :: Val Text -- ^ 'laFunctionName'
library-gen/Stratosphere/Resources/LambdaEventSourceMapping.hs view
@@ -31,16 +31,6 @@     , fmap (("StartingPosition",) . toJSON) _lambdaEventSourceMappingStartingPosition     ] -instance FromJSON LambdaEventSourceMapping where-  parseJSON (Object obj) =-    LambdaEventSourceMapping <$>-      fmap (fmap (fmap unInteger')) (obj .:? "BatchSize") <*>-      fmap (fmap (fmap unBool')) (obj .:? "Enabled") <*>-      (obj .: "EventSourceArn") <*>-      (obj .: "FunctionName") <*>-      (obj .:? "StartingPosition")-  parseJSON _ = mempty- -- | Constructor for 'LambdaEventSourceMapping' containing required fields as -- arguments. lambdaEventSourceMapping
library-gen/Stratosphere/Resources/LambdaFunction.hs view
@@ -59,27 +59,6 @@     , fmap (("VpcConfig",) . toJSON) _lambdaFunctionVpcConfig     ] -instance FromJSON LambdaFunction where-  parseJSON (Object obj) =-    LambdaFunction <$>-      (obj .: "Code") <*>-      (obj .:? "DeadLetterConfig") <*>-      (obj .:? "Description") <*>-      (obj .:? "Environment") <*>-      (obj .:? "FunctionName") <*>-      (obj .: "Handler") <*>-      (obj .:? "KmsKeyArn") <*>-      (obj .:? "Layers") <*>-      fmap (fmap (fmap unInteger')) (obj .:? "MemorySize") <*>-      fmap (fmap (fmap unInteger')) (obj .:? "ReservedConcurrentExecutions") <*>-      (obj .: "Role") <*>-      (obj .: "Runtime") <*>-      (obj .:? "Tags") <*>-      fmap (fmap (fmap unInteger')) (obj .:? "Timeout") <*>-      (obj .:? "TracingConfig") <*>-      (obj .:? "VpcConfig")-  parseJSON _ = mempty- -- | Constructor for 'LambdaFunction' containing required fields as arguments. lambdaFunction   :: LambdaFunctionCode -- ^ 'lfCode'
library-gen/Stratosphere/Resources/LambdaLayerVersion.hs view
@@ -31,16 +31,6 @@     , fmap (("LicenseInfo",) . toJSON) _lambdaLayerVersionLicenseInfo     ] -instance FromJSON LambdaLayerVersion where-  parseJSON (Object obj) =-    LambdaLayerVersion <$>-      (obj .:? "CompatibleRuntimes") <*>-      (obj .: "Content") <*>-      (obj .:? "Description") <*>-      (obj .:? "LayerName") <*>-      (obj .:? "LicenseInfo")-  parseJSON _ = mempty- -- | Constructor for 'LambdaLayerVersion' containing required fields as -- arguments. lambdaLayerVersion
library-gen/Stratosphere/Resources/LambdaLayerVersionPermission.hs view
@@ -29,15 +29,6 @@     , (Just . ("Principal",) . toJSON) _lambdaLayerVersionPermissionPrincipal     ] -instance FromJSON LambdaLayerVersionPermission where-  parseJSON (Object obj) =-    LambdaLayerVersionPermission <$>-      (obj .: "Action") <*>-      (obj .: "LayerVersionArn") <*>-      (obj .:? "OrganizationId") <*>-      (obj .: "Principal")-  parseJSON _ = mempty- -- | Constructor for 'LambdaLayerVersionPermission' containing required fields -- as arguments. lambdaLayerVersionPermission
library-gen/Stratosphere/Resources/LambdaPermission.hs view
@@ -33,17 +33,6 @@     , fmap (("SourceArn",) . toJSON) _lambdaPermissionSourceArn     ] -instance FromJSON LambdaPermission where-  parseJSON (Object obj) =-    LambdaPermission <$>-      (obj .: "Action") <*>-      (obj .:? "EventSourceToken") <*>-      (obj .: "FunctionName") <*>-      (obj .: "Principal") <*>-      (obj .:? "SourceAccount") <*>-      (obj .:? "SourceArn")-  parseJSON _ = mempty- -- | Constructor for 'LambdaPermission' containing required fields as -- arguments. lambdaPermission
library-gen/Stratosphere/Resources/LambdaVersion.hs view
@@ -27,14 +27,6 @@     , (Just . ("FunctionName",) . toJSON) _lambdaVersionFunctionName     ] -instance FromJSON LambdaVersion where-  parseJSON (Object obj) =-    LambdaVersion <$>-      (obj .:? "CodeSha256") <*>-      (obj .:? "Description") <*>-      (obj .: "FunctionName")-  parseJSON _ = mempty- -- | Constructor for 'LambdaVersion' containing required fields as arguments. lambdaVersion   :: Val Text -- ^ 'lvFunctionName'
library-gen/Stratosphere/Resources/LogsDestination.hs view
@@ -29,15 +29,6 @@     , (Just . ("TargetArn",) . toJSON) _logsDestinationTargetArn     ] -instance FromJSON LogsDestination where-  parseJSON (Object obj) =-    LogsDestination <$>-      (obj .: "DestinationName") <*>-      (obj .: "DestinationPolicy") <*>-      (obj .: "RoleArn") <*>-      (obj .: "TargetArn")-  parseJSON _ = mempty- -- | Constructor for 'LogsDestination' containing required fields as -- arguments. logsDestination
library-gen/Stratosphere/Resources/LogsLogGroup.hs view
@@ -25,13 +25,6 @@     , fmap (("RetentionInDays",) . toJSON . fmap Integer') _logsLogGroupRetentionInDays     ] -instance FromJSON LogsLogGroup where-  parseJSON (Object obj) =-    LogsLogGroup <$>-      (obj .:? "LogGroupName") <*>-      fmap (fmap (fmap unInteger')) (obj .:? "RetentionInDays")-  parseJSON _ = mempty- -- | Constructor for 'LogsLogGroup' containing required fields as arguments. logsLogGroup   :: LogsLogGroup
library-gen/Stratosphere/Resources/LogsLogStream.hs view
@@ -25,13 +25,6 @@     , fmap (("LogStreamName",) . toJSON) _logsLogStreamLogStreamName     ] -instance FromJSON LogsLogStream where-  parseJSON (Object obj) =-    LogsLogStream <$>-      (obj .: "LogGroupName") <*>-      (obj .:? "LogStreamName")-  parseJSON _ = mempty- -- | Constructor for 'LogsLogStream' containing required fields as arguments. logsLogStream   :: Val Text -- ^ 'llsLogGroupName'
library-gen/Stratosphere/Resources/LogsMetricFilter.hs view
@@ -27,14 +27,6 @@     , (Just . ("MetricTransformations",) . toJSON) _logsMetricFilterMetricTransformations     ] -instance FromJSON LogsMetricFilter where-  parseJSON (Object obj) =-    LogsMetricFilter <$>-      (obj .: "FilterPattern") <*>-      (obj .: "LogGroupName") <*>-      (obj .: "MetricTransformations")-  parseJSON _ = mempty- -- | Constructor for 'LogsMetricFilter' containing required fields as -- arguments. logsMetricFilter
library-gen/Stratosphere/Resources/LogsSubscriptionFilter.hs view
@@ -29,15 +29,6 @@     , fmap (("RoleArn",) . toJSON) _logsSubscriptionFilterRoleArn     ] -instance FromJSON LogsSubscriptionFilter where-  parseJSON (Object obj) =-    LogsSubscriptionFilter <$>-      (obj .: "DestinationArn") <*>-      (obj .: "FilterPattern") <*>-      (obj .: "LogGroupName") <*>-      (obj .:? "RoleArn")-  parseJSON _ = mempty- -- | Constructor for 'LogsSubscriptionFilter' containing required fields as -- arguments. logsSubscriptionFilter
library-gen/Stratosphere/Resources/NeptuneDBCluster.hs view
@@ -49,25 +49,6 @@     , fmap (("VpcSecurityGroupIds",) . toJSON) _neptuneDBClusterVpcSecurityGroupIds     ] -instance FromJSON NeptuneDBCluster where-  parseJSON (Object obj) =-    NeptuneDBCluster <$>-      (obj .:? "AvailabilityZones") <*>-      fmap (fmap (fmap unInteger')) (obj .:? "BackupRetentionPeriod") <*>-      (obj .:? "DBClusterIdentifier") <*>-      (obj .:? "DBClusterParameterGroupName") <*>-      (obj .:? "DBSubnetGroupName") <*>-      fmap (fmap (fmap unBool')) (obj .:? "IamAuthEnabled") <*>-      (obj .:? "KmsKeyId") <*>-      fmap (fmap (fmap unInteger')) (obj .:? "Port") <*>-      (obj .:? "PreferredBackupWindow") <*>-      (obj .:? "PreferredMaintenanceWindow") <*>-      (obj .:? "SnapshotIdentifier") <*>-      fmap (fmap (fmap unBool')) (obj .:? "StorageEncrypted") <*>-      (obj .:? "Tags") <*>-      (obj .:? "VpcSecurityGroupIds")-  parseJSON _ = mempty- -- | Constructor for 'NeptuneDBCluster' containing required fields as -- arguments. neptuneDBCluster
library-gen/Stratosphere/Resources/NeptuneDBClusterParameterGroup.hs view
@@ -31,16 +31,6 @@     , fmap (("Tags",) . toJSON) _neptuneDBClusterParameterGroupTags     ] -instance FromJSON NeptuneDBClusterParameterGroup where-  parseJSON (Object obj) =-    NeptuneDBClusterParameterGroup <$>-      (obj .: "Description") <*>-      (obj .: "Family") <*>-      (obj .:? "Name") <*>-      (obj .: "Parameters") <*>-      (obj .:? "Tags")-  parseJSON _ = mempty- -- | Constructor for 'NeptuneDBClusterParameterGroup' containing required -- fields as arguments. neptuneDBClusterParameterGroup
library-gen/Stratosphere/Resources/NeptuneDBInstance.hs view
@@ -43,22 +43,6 @@     , fmap (("Tags",) . toJSON) _neptuneDBInstanceTags     ] -instance FromJSON NeptuneDBInstance where-  parseJSON (Object obj) =-    NeptuneDBInstance <$>-      fmap (fmap (fmap unBool')) (obj .:? "AllowMajorVersionUpgrade") <*>-      fmap (fmap (fmap unBool')) (obj .:? "AutoMinorVersionUpgrade") <*>-      (obj .:? "AvailabilityZone") <*>-      (obj .:? "DBClusterIdentifier") <*>-      (obj .: "DBInstanceClass") <*>-      (obj .:? "DBInstanceIdentifier") <*>-      (obj .:? "DBParameterGroupName") <*>-      (obj .:? "DBSnapshotIdentifier") <*>-      (obj .:? "DBSubnetGroupName") <*>-      (obj .:? "PreferredMaintenanceWindow") <*>-      (obj .:? "Tags")-  parseJSON _ = mempty- -- | Constructor for 'NeptuneDBInstance' containing required fields as -- arguments. neptuneDBInstance
library-gen/Stratosphere/Resources/NeptuneDBParameterGroup.hs view
@@ -31,16 +31,6 @@     , fmap (("Tags",) . toJSON) _neptuneDBParameterGroupTags     ] -instance FromJSON NeptuneDBParameterGroup where-  parseJSON (Object obj) =-    NeptuneDBParameterGroup <$>-      (obj .: "Description") <*>-      (obj .: "Family") <*>-      (obj .:? "Name") <*>-      (obj .: "Parameters") <*>-      (obj .:? "Tags")-  parseJSON _ = mempty- -- | Constructor for 'NeptuneDBParameterGroup' containing required fields as -- arguments. neptuneDBParameterGroup
library-gen/Stratosphere/Resources/NeptuneDBSubnetGroup.hs view
@@ -29,15 +29,6 @@     , fmap (("Tags",) . toJSON) _neptuneDBSubnetGroupTags     ] -instance FromJSON NeptuneDBSubnetGroup where-  parseJSON (Object obj) =-    NeptuneDBSubnetGroup <$>-      (obj .: "DBSubnetGroupDescription") <*>-      (obj .:? "DBSubnetGroupName") <*>-      (obj .: "SubnetIds") <*>-      (obj .:? "Tags")-  parseJSON _ = mempty- -- | Constructor for 'NeptuneDBSubnetGroup' containing required fields as -- arguments. neptuneDBSubnetGroup
library-gen/Stratosphere/Resources/OpsWorksApp.hs view
@@ -48,23 +48,6 @@     , (Just . ("Type",) . toJSON) _opsWorksAppType     ] -instance FromJSON OpsWorksApp where-  parseJSON (Object obj) =-    OpsWorksApp <$>-      (obj .:? "AppSource") <*>-      (obj .:? "Attributes") <*>-      (obj .:? "DataSources") <*>-      (obj .:? "Description") <*>-      (obj .:? "Domains") <*>-      fmap (fmap (fmap unBool')) (obj .:? "EnableSsl") <*>-      (obj .:? "Environment") <*>-      (obj .: "Name") <*>-      (obj .:? "Shortname") <*>-      (obj .:? "SslConfiguration") <*>-      (obj .: "StackId") <*>-      (obj .: "Type")-  parseJSON _ = mempty- -- | Constructor for 'OpsWorksApp' containing required fields as arguments. opsWorksApp   :: Val Text -- ^ 'owaName'
library-gen/Stratosphere/Resources/OpsWorksCMServer.hs view
@@ -55,28 +55,6 @@     , fmap (("SubnetIds",) . toJSON) _opsWorksCMServerSubnetIds     ] -instance FromJSON OpsWorksCMServer where-  parseJSON (Object obj) =-    OpsWorksCMServer <$>-      fmap (fmap (fmap unBool')) (obj .:? "AssociatePublicIpAddress") <*>-      (obj .:? "BackupId") <*>-      fmap (fmap (fmap unInteger')) (obj .:? "BackupRetentionCount") <*>-      fmap (fmap (fmap unBool')) (obj .:? "DisableAutomatedBackup") <*>-      (obj .:? "Engine") <*>-      (obj .:? "EngineAttributes") <*>-      (obj .:? "EngineModel") <*>-      (obj .:? "EngineVersion") <*>-      (obj .: "InstanceProfileArn") <*>-      (obj .: "InstanceType") <*>-      (obj .:? "KeyPair") <*>-      (obj .:? "PreferredBackupWindow") <*>-      (obj .:? "PreferredMaintenanceWindow") <*>-      (obj .:? "SecurityGroupIds") <*>-      (obj .:? "ServerName") <*>-      (obj .: "ServiceRoleArn") <*>-      (obj .:? "SubnetIds")-  parseJSON _ = mempty- -- | Constructor for 'OpsWorksCMServer' containing required fields as -- arguments. opsWorksCMServer
library-gen/Stratosphere/Resources/OpsWorksElasticLoadBalancerAttachment.hs view
@@ -26,13 +26,6 @@     , (Just . ("LayerId",) . toJSON) _opsWorksElasticLoadBalancerAttachmentLayerId     ] -instance FromJSON OpsWorksElasticLoadBalancerAttachment where-  parseJSON (Object obj) =-    OpsWorksElasticLoadBalancerAttachment <$>-      (obj .: "ElasticLoadBalancerName") <*>-      (obj .: "LayerId")-  parseJSON _ = mempty- -- | Constructor for 'OpsWorksElasticLoadBalancerAttachment' containing -- required fields as arguments. opsWorksElasticLoadBalancerAttachment
library-gen/Stratosphere/Resources/OpsWorksInstance.hs view
@@ -64,32 +64,6 @@     , fmap (("Volumes",) . toJSON) _opsWorksInstanceVolumes     ] -instance FromJSON OpsWorksInstance where-  parseJSON (Object obj) =-    OpsWorksInstance <$>-      (obj .:? "AgentVersion") <*>-      (obj .:? "AmiId") <*>-      (obj .:? "Architecture") <*>-      (obj .:? "AutoScalingType") <*>-      (obj .:? "AvailabilityZone") <*>-      (obj .:? "BlockDeviceMappings") <*>-      fmap (fmap (fmap unBool')) (obj .:? "EbsOptimized") <*>-      (obj .:? "ElasticIps") <*>-      (obj .:? "Hostname") <*>-      fmap (fmap (fmap unBool')) (obj .:? "InstallUpdatesOnBoot") <*>-      (obj .: "InstanceType") <*>-      (obj .: "LayerIds") <*>-      (obj .:? "Os") <*>-      (obj .:? "RootDeviceType") <*>-      (obj .:? "SshKeyName") <*>-      (obj .: "StackId") <*>-      (obj .:? "SubnetId") <*>-      (obj .:? "Tenancy") <*>-      (obj .:? "TimeBasedAutoScaling") <*>-      (obj .:? "VirtualizationType") <*>-      (obj .:? "Volumes")-  parseJSON _ = mempty- -- | Constructor for 'OpsWorksInstance' containing required fields as -- arguments. opsWorksInstance
library-gen/Stratosphere/Resources/OpsWorksLayer.hs view
@@ -63,30 +63,6 @@     , fmap (("VolumeConfigurations",) . toJSON) _opsWorksLayerVolumeConfigurations     ] -instance FromJSON OpsWorksLayer where-  parseJSON (Object obj) =-    OpsWorksLayer <$>-      (obj .:? "Attributes") <*>-      fmap (fmap unBool') (obj .: "AutoAssignElasticIps") <*>-      fmap (fmap unBool') (obj .: "AutoAssignPublicIps") <*>-      (obj .:? "CustomInstanceProfileArn") <*>-      (obj .:? "CustomJson") <*>-      (obj .:? "CustomRecipes") <*>-      (obj .:? "CustomSecurityGroupIds") <*>-      fmap (fmap unBool') (obj .: "EnableAutoHealing") <*>-      fmap (fmap (fmap unBool')) (obj .:? "InstallUpdatesOnBoot") <*>-      (obj .:? "LifecycleEventConfiguration") <*>-      (obj .:? "LoadBasedAutoScaling") <*>-      (obj .: "Name") <*>-      (obj .:? "Packages") <*>-      (obj .: "Shortname") <*>-      (obj .: "StackId") <*>-      (obj .:? "Tags") <*>-      (obj .: "Type") <*>-      fmap (fmap (fmap unBool')) (obj .:? "UseEbsOptimizedInstances") <*>-      (obj .:? "VolumeConfigurations")-  parseJSON _ = mempty- -- | Constructor for 'OpsWorksLayer' containing required fields as arguments. opsWorksLayer   :: Val Bool -- ^ 'owlAutoAssignElasticIps'
library-gen/Stratosphere/Resources/OpsWorksStack.hs view
@@ -76,36 +76,6 @@     , fmap (("VpcId",) . toJSON) _opsWorksStackVpcId     ] -instance FromJSON OpsWorksStack where-  parseJSON (Object obj) =-    OpsWorksStack <$>-      (obj .:? "AgentVersion") <*>-      (obj .:? "Attributes") <*>-      (obj .:? "ChefConfiguration") <*>-      (obj .:? "CloneAppIds") <*>-      fmap (fmap (fmap unBool')) (obj .:? "ClonePermissions") <*>-      (obj .:? "ConfigurationManager") <*>-      (obj .:? "CustomCookbooksSource") <*>-      (obj .:? "CustomJson") <*>-      (obj .:? "DefaultAvailabilityZone") <*>-      (obj .: "DefaultInstanceProfileArn") <*>-      (obj .:? "DefaultOs") <*>-      (obj .:? "DefaultRootDeviceType") <*>-      (obj .:? "DefaultSshKeyName") <*>-      (obj .:? "DefaultSubnetId") <*>-      (obj .:? "EcsClusterArn") <*>-      (obj .:? "ElasticIps") <*>-      (obj .:? "HostnameTheme") <*>-      (obj .: "Name") <*>-      (obj .:? "RdsDbInstances") <*>-      (obj .: "ServiceRoleArn") <*>-      (obj .:? "SourceStackId") <*>-      (obj .:? "Tags") <*>-      fmap (fmap (fmap unBool')) (obj .:? "UseCustomCookbooks") <*>-      fmap (fmap (fmap unBool')) (obj .:? "UseOpsworksSecurityGroups") <*>-      (obj .:? "VpcId")-  parseJSON _ = mempty- -- | Constructor for 'OpsWorksStack' containing required fields as arguments. opsWorksStack   :: Val Text -- ^ 'owsDefaultInstanceProfileArn'
library-gen/Stratosphere/Resources/OpsWorksUserProfile.hs view
@@ -29,15 +29,6 @@     , fmap (("SshUsername",) . toJSON) _opsWorksUserProfileSshUsername     ] -instance FromJSON OpsWorksUserProfile where-  parseJSON (Object obj) =-    OpsWorksUserProfile <$>-      fmap (fmap (fmap unBool')) (obj .:? "AllowSelfManagement") <*>-      (obj .: "IamUserArn") <*>-      (obj .:? "SshPublicKey") <*>-      (obj .:? "SshUsername")-  parseJSON _ = mempty- -- | Constructor for 'OpsWorksUserProfile' containing required fields as -- arguments. opsWorksUserProfile
library-gen/Stratosphere/Resources/OpsWorksVolume.hs view
@@ -29,15 +29,6 @@     , (Just . ("StackId",) . toJSON) _opsWorksVolumeStackId     ] -instance FromJSON OpsWorksVolume where-  parseJSON (Object obj) =-    OpsWorksVolume <$>-      (obj .: "Ec2VolumeId") <*>-      (obj .:? "MountPoint") <*>-      (obj .:? "Name") <*>-      (obj .: "StackId")-  parseJSON _ = mempty- -- | Constructor for 'OpsWorksVolume' containing required fields as arguments. opsWorksVolume   :: Val Text -- ^ 'owvEc2VolumeId'
library-gen/Stratosphere/Resources/RAMResourceShare.hs view
@@ -31,16 +31,6 @@     , fmap (("Tags",) . toJSON) _rAMResourceShareTags     ] -instance FromJSON RAMResourceShare where-  parseJSON (Object obj) =-    RAMResourceShare <$>-      fmap (fmap (fmap unBool')) (obj .:? "AllowExternalPrincipals") <*>-      (obj .: "Name") <*>-      (obj .:? "Principals") <*>-      (obj .:? "ResourceArns") <*>-      (obj .:? "Tags")-  parseJSON _ = mempty- -- | Constructor for 'RAMResourceShare' containing required fields as -- arguments. ramResourceShare
library-gen/Stratosphere/Resources/RDSDBCluster.hs view
@@ -74,37 +74,6 @@     , fmap (("VpcSecurityGroupIds",) . toJSON) _rDSDBClusterVpcSecurityGroupIds     ] -instance FromJSON RDSDBCluster where-  parseJSON (Object obj) =-    RDSDBCluster <$>-      (obj .:? "AvailabilityZones") <*>-      fmap (fmap (fmap unInteger')) (obj .:? "BacktrackWindow") <*>-      fmap (fmap (fmap unInteger')) (obj .:? "BackupRetentionPeriod") <*>-      (obj .:? "DBClusterIdentifier") <*>-      (obj .:? "DBClusterParameterGroupName") <*>-      (obj .:? "DBSubnetGroupName") <*>-      (obj .:? "DatabaseName") <*>-      fmap (fmap (fmap unBool')) (obj .:? "DeletionProtection") <*>-      (obj .:? "EnableCloudwatchLogsExports") <*>-      fmap (fmap (fmap unBool')) (obj .:? "EnableIAMDatabaseAuthentication") <*>-      (obj .: "Engine") <*>-      (obj .:? "EngineMode") <*>-      (obj .:? "EngineVersion") <*>-      (obj .:? "KmsKeyId") <*>-      (obj .:? "MasterUserPassword") <*>-      (obj .:? "MasterUsername") <*>-      fmap (fmap (fmap unInteger')) (obj .:? "Port") <*>-      (obj .:? "PreferredBackupWindow") <*>-      (obj .:? "PreferredMaintenanceWindow") <*>-      (obj .:? "ReplicationSourceIdentifier") <*>-      (obj .:? "ScalingConfiguration") <*>-      (obj .:? "SnapshotIdentifier") <*>-      (obj .:? "SourceRegion") <*>-      fmap (fmap (fmap unBool')) (obj .:? "StorageEncrypted") <*>-      (obj .:? "Tags") <*>-      (obj .:? "VpcSecurityGroupIds")-  parseJSON _ = mempty- -- | Constructor for 'RDSDBCluster' containing required fields as arguments. rdsdbCluster   :: Val Text -- ^ 'rdsdbcEngine'
library-gen/Stratosphere/Resources/RDSDBClusterParameterGroup.hs view
@@ -29,15 +29,6 @@     , fmap (("Tags",) . toJSON) _rDSDBClusterParameterGroupTags     ] -instance FromJSON RDSDBClusterParameterGroup where-  parseJSON (Object obj) =-    RDSDBClusterParameterGroup <$>-      (obj .: "Description") <*>-      (obj .: "Family") <*>-      (obj .: "Parameters") <*>-      (obj .:? "Tags")-  parseJSON _ = mempty- -- | Constructor for 'RDSDBClusterParameterGroup' containing required fields -- as arguments. rdsdbClusterParameterGroup
library-gen/Stratosphere/Resources/RDSDBInstance.hs view
@@ -120,60 +120,6 @@     , fmap (("VPCSecurityGroups",) . toJSON) _rDSDBInstanceVPCSecurityGroups     ] -instance FromJSON RDSDBInstance where-  parseJSON (Object obj) =-    RDSDBInstance <$>-      (obj .:? "AllocatedStorage") <*>-      fmap (fmap (fmap unBool')) (obj .:? "AllowMajorVersionUpgrade") <*>-      fmap (fmap (fmap unBool')) (obj .:? "AutoMinorVersionUpgrade") <*>-      (obj .:? "AvailabilityZone") <*>-      (obj .:? "BackupRetentionPeriod") <*>-      (obj .:? "CharacterSetName") <*>-      fmap (fmap (fmap unBool')) (obj .:? "CopyTagsToSnapshot") <*>-      (obj .:? "DBClusterIdentifier") <*>-      (obj .: "DBInstanceClass") <*>-      (obj .:? "DBInstanceIdentifier") <*>-      (obj .:? "DBName") <*>-      (obj .:? "DBParameterGroupName") <*>-      (obj .:? "DBSecurityGroups") <*>-      (obj .:? "DBSnapshotIdentifier") <*>-      (obj .:? "DBSubnetGroupName") <*>-      fmap (fmap (fmap unBool')) (obj .:? "DeleteAutomatedBackups") <*>-      fmap (fmap (fmap unBool')) (obj .:? "DeletionProtection") <*>-      (obj .:? "Domain") <*>-      (obj .:? "DomainIAMRoleName") <*>-      (obj .:? "EnableCloudwatchLogsExports") <*>-      fmap (fmap (fmap unBool')) (obj .:? "EnableIAMDatabaseAuthentication") <*>-      fmap (fmap (fmap unBool')) (obj .:? "EnablePerformanceInsights") <*>-      (obj .:? "Engine") <*>-      (obj .:? "EngineVersion") <*>-      fmap (fmap (fmap unInteger')) (obj .:? "Iops") <*>-      (obj .:? "KmsKeyId") <*>-      (obj .:? "LicenseModel") <*>-      (obj .:? "MasterUserPassword") <*>-      (obj .:? "MasterUsername") <*>-      fmap (fmap (fmap unInteger')) (obj .:? "MonitoringInterval") <*>-      (obj .:? "MonitoringRoleArn") <*>-      fmap (fmap (fmap unBool')) (obj .:? "MultiAZ") <*>-      (obj .:? "OptionGroupName") <*>-      (obj .:? "PerformanceInsightsKMSKeyId") <*>-      fmap (fmap (fmap unInteger')) (obj .:? "PerformanceInsightsRetentionPeriod") <*>-      (obj .:? "Port") <*>-      (obj .:? "PreferredBackupWindow") <*>-      (obj .:? "PreferredMaintenanceWindow") <*>-      (obj .:? "ProcessorFeatures") <*>-      fmap (fmap (fmap unInteger')) (obj .:? "PromotionTier") <*>-      fmap (fmap (fmap unBool')) (obj .:? "PubliclyAccessible") <*>-      (obj .:? "SourceDBInstanceIdentifier") <*>-      (obj .:? "SourceRegion") <*>-      fmap (fmap (fmap unBool')) (obj .:? "StorageEncrypted") <*>-      (obj .:? "StorageType") <*>-      (obj .:? "Tags") <*>-      (obj .:? "Timezone") <*>-      fmap (fmap (fmap unBool')) (obj .:? "UseDefaultProcessorFeatures") <*>-      (obj .:? "VPCSecurityGroups")-  parseJSON _ = mempty- -- | Constructor for 'RDSDBInstance' containing required fields as arguments. rdsdbInstance   :: Val Text -- ^ 'rdsdbiDBInstanceClass'
library-gen/Stratosphere/Resources/RDSDBParameterGroup.hs view
@@ -29,15 +29,6 @@     , fmap (("Tags",) . toJSON) _rDSDBParameterGroupTags     ] -instance FromJSON RDSDBParameterGroup where-  parseJSON (Object obj) =-    RDSDBParameterGroup <$>-      (obj .: "Description") <*>-      (obj .: "Family") <*>-      (obj .:? "Parameters") <*>-      (obj .:? "Tags")-  parseJSON _ = mempty- -- | Constructor for 'RDSDBParameterGroup' containing required fields as -- arguments. rdsdbParameterGroup
library-gen/Stratosphere/Resources/RDSDBSecurityGroup.hs view
@@ -30,15 +30,6 @@     , fmap (("Tags",) . toJSON) _rDSDBSecurityGroupTags     ] -instance FromJSON RDSDBSecurityGroup where-  parseJSON (Object obj) =-    RDSDBSecurityGroup <$>-      (obj .: "DBSecurityGroupIngress") <*>-      (obj .:? "EC2VpcId") <*>-      (obj .: "GroupDescription") <*>-      (obj .:? "Tags")-  parseJSON _ = mempty- -- | Constructor for 'RDSDBSecurityGroup' containing required fields as -- arguments. rdsdbSecurityGroup
library-gen/Stratosphere/Resources/RDSDBSecurityGroupIngress.hs view
@@ -31,16 +31,6 @@     , fmap (("EC2SecurityGroupOwnerId",) . toJSON) _rDSDBSecurityGroupIngressEC2SecurityGroupOwnerId     ] -instance FromJSON RDSDBSecurityGroupIngress where-  parseJSON (Object obj) =-    RDSDBSecurityGroupIngress <$>-      (obj .:? "CIDRIP") <*>-      (obj .: "DBSecurityGroupName") <*>-      (obj .:? "EC2SecurityGroupId") <*>-      (obj .:? "EC2SecurityGroupName") <*>-      (obj .:? "EC2SecurityGroupOwnerId")-  parseJSON _ = mempty- -- | Constructor for 'RDSDBSecurityGroupIngress' containing required fields as -- arguments. rdsdbSecurityGroupIngress
library-gen/Stratosphere/Resources/RDSDBSubnetGroup.hs view
@@ -29,15 +29,6 @@     , fmap (("Tags",) . toJSON) _rDSDBSubnetGroupTags     ] -instance FromJSON RDSDBSubnetGroup where-  parseJSON (Object obj) =-    RDSDBSubnetGroup <$>-      (obj .: "DBSubnetGroupDescription") <*>-      (obj .:? "DBSubnetGroupName") <*>-      (obj .: "SubnetIds") <*>-      (obj .:? "Tags")-  parseJSON _ = mempty- -- | Constructor for 'RDSDBSubnetGroup' containing required fields as -- arguments. rdsdbSubnetGroup
library-gen/Stratosphere/Resources/RDSEventSubscription.hs view
@@ -31,16 +31,6 @@     , fmap (("SourceType",) . toJSON) _rDSEventSubscriptionSourceType     ] -instance FromJSON RDSEventSubscription where-  parseJSON (Object obj) =-    RDSEventSubscription <$>-      fmap (fmap (fmap unBool')) (obj .:? "Enabled") <*>-      (obj .:? "EventCategories") <*>-      (obj .: "SnsTopicArn") <*>-      (obj .:? "SourceIds") <*>-      (obj .:? "SourceType")-  parseJSON _ = mempty- -- | Constructor for 'RDSEventSubscription' containing required fields as -- arguments. rdsEventSubscription
library-gen/Stratosphere/Resources/RDSOptionGroup.hs view
@@ -32,16 +32,6 @@     , fmap (("Tags",) . toJSON) _rDSOptionGroupTags     ] -instance FromJSON RDSOptionGroup where-  parseJSON (Object obj) =-    RDSOptionGroup <$>-      (obj .: "EngineName") <*>-      (obj .: "MajorEngineVersion") <*>-      (obj .: "OptionConfigurations") <*>-      (obj .: "OptionGroupDescription") <*>-      (obj .:? "Tags")-  parseJSON _ = mempty- -- | Constructor for 'RDSOptionGroup' containing required fields as arguments. rdsOptionGroup   :: Val Text -- ^ 'rdsogEngineName'
library-gen/Stratosphere/Resources/RedshiftCluster.hs view
@@ -80,40 +80,6 @@     , fmap (("VpcSecurityGroupIds",) . toJSON) _redshiftClusterVpcSecurityGroupIds     ] -instance FromJSON RedshiftCluster where-  parseJSON (Object obj) =-    RedshiftCluster <$>-      fmap (fmap (fmap unBool')) (obj .:? "AllowVersionUpgrade") <*>-      fmap (fmap (fmap unInteger')) (obj .:? "AutomatedSnapshotRetentionPeriod") <*>-      (obj .:? "AvailabilityZone") <*>-      (obj .:? "ClusterIdentifier") <*>-      (obj .:? "ClusterParameterGroupName") <*>-      (obj .:? "ClusterSecurityGroups") <*>-      (obj .:? "ClusterSubnetGroupName") <*>-      (obj .: "ClusterType") <*>-      (obj .:? "ClusterVersion") <*>-      (obj .: "DBName") <*>-      (obj .:? "ElasticIp") <*>-      fmap (fmap (fmap unBool')) (obj .:? "Encrypted") <*>-      (obj .:? "HsmClientCertificateIdentifier") <*>-      (obj .:? "HsmConfigurationIdentifier") <*>-      (obj .:? "IamRoles") <*>-      (obj .:? "KmsKeyId") <*>-      (obj .:? "LoggingProperties") <*>-      (obj .: "MasterUserPassword") <*>-      (obj .: "MasterUsername") <*>-      (obj .: "NodeType") <*>-      fmap (fmap (fmap unInteger')) (obj .:? "NumberOfNodes") <*>-      (obj .:? "OwnerAccount") <*>-      fmap (fmap (fmap unInteger')) (obj .:? "Port") <*>-      (obj .:? "PreferredMaintenanceWindow") <*>-      fmap (fmap (fmap unBool')) (obj .:? "PubliclyAccessible") <*>-      (obj .:? "SnapshotClusterIdentifier") <*>-      (obj .:? "SnapshotIdentifier") <*>-      (obj .:? "Tags") <*>-      (obj .:? "VpcSecurityGroupIds")-  parseJSON _ = mempty- -- | Constructor for 'RedshiftCluster' containing required fields as -- arguments. redshiftCluster
library-gen/Stratosphere/Resources/RedshiftClusterParameterGroup.hs view
@@ -30,15 +30,6 @@     , fmap (("Tags",) . toJSON) _redshiftClusterParameterGroupTags     ] -instance FromJSON RedshiftClusterParameterGroup where-  parseJSON (Object obj) =-    RedshiftClusterParameterGroup <$>-      (obj .: "Description") <*>-      (obj .: "ParameterGroupFamily") <*>-      (obj .:? "Parameters") <*>-      (obj .:? "Tags")-  parseJSON _ = mempty- -- | Constructor for 'RedshiftClusterParameterGroup' containing required -- fields as arguments. redshiftClusterParameterGroup
library-gen/Stratosphere/Resources/RedshiftClusterSecurityGroup.hs view
@@ -25,13 +25,6 @@     , fmap (("Tags",) . toJSON) _redshiftClusterSecurityGroupTags     ] -instance FromJSON RedshiftClusterSecurityGroup where-  parseJSON (Object obj) =-    RedshiftClusterSecurityGroup <$>-      (obj .: "Description") <*>-      (obj .:? "Tags")-  parseJSON _ = mempty- -- | Constructor for 'RedshiftClusterSecurityGroup' containing required fields -- as arguments. redshiftClusterSecurityGroup
library-gen/Stratosphere/Resources/RedshiftClusterSecurityGroupIngress.hs view
@@ -29,15 +29,6 @@     , fmap (("EC2SecurityGroupOwnerId",) . toJSON) _redshiftClusterSecurityGroupIngressEC2SecurityGroupOwnerId     ] -instance FromJSON RedshiftClusterSecurityGroupIngress where-  parseJSON (Object obj) =-    RedshiftClusterSecurityGroupIngress <$>-      (obj .:? "CIDRIP") <*>-      (obj .: "ClusterSecurityGroupName") <*>-      (obj .:? "EC2SecurityGroupName") <*>-      (obj .:? "EC2SecurityGroupOwnerId")-  parseJSON _ = mempty- -- | Constructor for 'RedshiftClusterSecurityGroupIngress' containing required -- fields as arguments. redshiftClusterSecurityGroupIngress
library-gen/Stratosphere/Resources/RedshiftClusterSubnetGroup.hs view
@@ -27,14 +27,6 @@     , fmap (("Tags",) . toJSON) _redshiftClusterSubnetGroupTags     ] -instance FromJSON RedshiftClusterSubnetGroup where-  parseJSON (Object obj) =-    RedshiftClusterSubnetGroup <$>-      (obj .: "Description") <*>-      (obj .: "SubnetIds") <*>-      (obj .:? "Tags")-  parseJSON _ = mempty- -- | Constructor for 'RedshiftClusterSubnetGroup' containing required fields -- as arguments. redshiftClusterSubnetGroup
library-gen/Stratosphere/Resources/RoboMakerFleet.hs view
@@ -25,13 +25,6 @@     , fmap (("Tags",) . toJSON) _roboMakerFleetTags     ] -instance FromJSON RoboMakerFleet where-  parseJSON (Object obj) =-    RoboMakerFleet <$>-      (obj .:? "Name") <*>-      (obj .:? "Tags")-  parseJSON _ = mempty- -- | Constructor for 'RoboMakerFleet' containing required fields as arguments. roboMakerFleet   :: RoboMakerFleet
library-gen/Stratosphere/Resources/RoboMakerRobot.hs view
@@ -31,16 +31,6 @@     , fmap (("Tags",) . toJSON) _roboMakerRobotTags     ] -instance FromJSON RoboMakerRobot where-  parseJSON (Object obj) =-    RoboMakerRobot <$>-      (obj .: "Architecture") <*>-      (obj .:? "Fleet") <*>-      (obj .: "GreengrassGroupId") <*>-      (obj .:? "Name") <*>-      (obj .:? "Tags")-  parseJSON _ = mempty- -- | Constructor for 'RoboMakerRobot' containing required fields as arguments. roboMakerRobot   :: Val Text -- ^ 'rmrArchitecture'
library-gen/Stratosphere/Resources/RoboMakerRobotApplication.hs view
@@ -32,16 +32,6 @@     , fmap (("Tags",) . toJSON) _roboMakerRobotApplicationTags     ] -instance FromJSON RoboMakerRobotApplication where-  parseJSON (Object obj) =-    RoboMakerRobotApplication <$>-      (obj .:? "CurrentRevisionId") <*>-      (obj .:? "Name") <*>-      (obj .: "RobotSoftwareSuite") <*>-      (obj .: "Sources") <*>-      (obj .:? "Tags")-  parseJSON _ = mempty- -- | Constructor for 'RoboMakerRobotApplication' containing required fields as -- arguments. roboMakerRobotApplication
library-gen/Stratosphere/Resources/RoboMakerRobotApplicationVersion.hs view
@@ -25,13 +25,6 @@     , fmap (("CurrentRevisionId",) . toJSON) _roboMakerRobotApplicationVersionCurrentRevisionId     ] -instance FromJSON RoboMakerRobotApplicationVersion where-  parseJSON (Object obj) =-    RoboMakerRobotApplicationVersion <$>-      (obj .: "Application") <*>-      (obj .:? "CurrentRevisionId")-  parseJSON _ = mempty- -- | Constructor for 'RoboMakerRobotApplicationVersion' containing required -- fields as arguments. roboMakerRobotApplicationVersion
library-gen/Stratosphere/Resources/RoboMakerSimulationApplication.hs view
@@ -38,18 +38,6 @@     , fmap (("Tags",) . toJSON) _roboMakerSimulationApplicationTags     ] -instance FromJSON RoboMakerSimulationApplication where-  parseJSON (Object obj) =-    RoboMakerSimulationApplication <$>-      (obj .:? "CurrentRevisionId") <*>-      (obj .:? "Name") <*>-      (obj .: "RenderingEngine") <*>-      (obj .: "RobotSoftwareSuite") <*>-      (obj .: "SimulationSoftwareSuite") <*>-      (obj .: "Sources") <*>-      (obj .:? "Tags")-  parseJSON _ = mempty- -- | Constructor for 'RoboMakerSimulationApplication' containing required -- fields as arguments. roboMakerSimulationApplication
library-gen/Stratosphere/Resources/RoboMakerSimulationApplicationVersion.hs view
@@ -26,13 +26,6 @@     , fmap (("CurrentRevisionId",) . toJSON) _roboMakerSimulationApplicationVersionCurrentRevisionId     ] -instance FromJSON RoboMakerSimulationApplicationVersion where-  parseJSON (Object obj) =-    RoboMakerSimulationApplicationVersion <$>-      (obj .: "Application") <*>-      (obj .:? "CurrentRevisionId")-  parseJSON _ = mempty- -- | Constructor for 'RoboMakerSimulationApplicationVersion' containing -- required fields as arguments. roboMakerSimulationApplicationVersion
library-gen/Stratosphere/Resources/Route53HealthCheck.hs view
@@ -26,13 +26,6 @@     , fmap (("HealthCheckTags",) . toJSON) _route53HealthCheckHealthCheckTags     ] -instance FromJSON Route53HealthCheck where-  parseJSON (Object obj) =-    Route53HealthCheck <$>-      (obj .: "HealthCheckConfig") <*>-      (obj .:? "HealthCheckTags")-  parseJSON _ = mempty- -- | Constructor for 'Route53HealthCheck' containing required fields as -- arguments. route53HealthCheck
library-gen/Stratosphere/Resources/Route53HostedZone.hs view
@@ -34,16 +34,6 @@     , fmap (("VPCs",) . toJSON) _route53HostedZoneVPCs     ] -instance FromJSON Route53HostedZone where-  parseJSON (Object obj) =-    Route53HostedZone <$>-      (obj .:? "HostedZoneConfig") <*>-      (obj .:? "HostedZoneTags") <*>-      (obj .: "Name") <*>-      (obj .:? "QueryLoggingConfig") <*>-      (obj .:? "VPCs")-  parseJSON _ = mempty- -- | Constructor for 'Route53HostedZone' containing required fields as -- arguments. route53HostedZone
library-gen/Stratosphere/Resources/Route53RecordSet.hs view
@@ -52,26 +52,6 @@     , fmap (("Weight",) . toJSON . fmap Integer') _route53RecordSetWeight     ] -instance FromJSON Route53RecordSet where-  parseJSON (Object obj) =-    Route53RecordSet <$>-      (obj .:? "AliasTarget") <*>-      (obj .:? "Comment") <*>-      (obj .:? "Failover") <*>-      (obj .:? "GeoLocation") <*>-      (obj .:? "HealthCheckId") <*>-      (obj .:? "HostedZoneId") <*>-      (obj .:? "HostedZoneName") <*>-      fmap (fmap (fmap unBool')) (obj .:? "MultiValueAnswer") <*>-      (obj .: "Name") <*>-      (obj .:? "Region") <*>-      (obj .:? "ResourceRecords") <*>-      (obj .:? "SetIdentifier") <*>-      (obj .:? "TTL") <*>-      (obj .: "Type") <*>-      fmap (fmap (fmap unInteger')) (obj .:? "Weight")-  parseJSON _ = mempty- -- | Constructor for 'Route53RecordSet' containing required fields as -- arguments. route53RecordSet
library-gen/Stratosphere/Resources/Route53RecordSetGroup.hs view
@@ -29,15 +29,6 @@     , fmap (("RecordSets",) . toJSON) _route53RecordSetGroupRecordSets     ] -instance FromJSON Route53RecordSetGroup where-  parseJSON (Object obj) =-    Route53RecordSetGroup <$>-      (obj .:? "Comment") <*>-      (obj .:? "HostedZoneId") <*>-      (obj .:? "HostedZoneName") <*>-      (obj .:? "RecordSets")-  parseJSON _ = mempty- -- | Constructor for 'Route53RecordSetGroup' containing required fields as -- arguments. route53RecordSetGroup
library-gen/Stratosphere/Resources/Route53ResolverResolverEndpoint.hs view
@@ -32,16 +32,6 @@     , fmap (("Tags",) . toJSON) _route53ResolverResolverEndpointTags     ] -instance FromJSON Route53ResolverResolverEndpoint where-  parseJSON (Object obj) =-    Route53ResolverResolverEndpoint <$>-      (obj .: "Direction") <*>-      (obj .: "IpAddresses") <*>-      (obj .:? "Name") <*>-      (obj .: "SecurityGroupIds") <*>-      (obj .:? "Tags")-  parseJSON _ = mempty- -- | Constructor for 'Route53ResolverResolverEndpoint' containing required -- fields as arguments. route53ResolverResolverEndpoint
library-gen/Stratosphere/Resources/Route53ResolverResolverRule.hs view
@@ -34,17 +34,6 @@     , fmap (("TargetIps",) . toJSON) _route53ResolverResolverRuleTargetIps     ] -instance FromJSON Route53ResolverResolverRule where-  parseJSON (Object obj) =-    Route53ResolverResolverRule <$>-      (obj .: "DomainName") <*>-      (obj .:? "Name") <*>-      (obj .:? "ResolverEndpointId") <*>-      (obj .: "RuleType") <*>-      (obj .:? "Tags") <*>-      (obj .:? "TargetIps")-  parseJSON _ = mempty- -- | Constructor for 'Route53ResolverResolverRule' containing required fields -- as arguments. route53ResolverResolverRule
library-gen/Stratosphere/Resources/Route53ResolverResolverRuleAssociation.hs view
@@ -28,14 +28,6 @@     , (Just . ("VPCId",) . toJSON) _route53ResolverResolverRuleAssociationVPCId     ] -instance FromJSON Route53ResolverResolverRuleAssociation where-  parseJSON (Object obj) =-    Route53ResolverResolverRuleAssociation <$>-      (obj .:? "Name") <*>-      (obj .: "ResolverRuleId") <*>-      (obj .: "VPCId")-  parseJSON _ = mempty- -- | Constructor for 'Route53ResolverResolverRuleAssociation' containing -- required fields as arguments. route53ResolverResolverRuleAssociation
library-gen/Stratosphere/Resources/S3Bucket.hs view
@@ -67,27 +67,6 @@     , fmap (("WebsiteConfiguration",) . toJSON) _s3BucketWebsiteConfiguration     ] -instance FromJSON S3Bucket where-  parseJSON (Object obj) =-    S3Bucket <$>-      (obj .:? "AccelerateConfiguration") <*>-      (obj .:? "AccessControl") <*>-      (obj .:? "AnalyticsConfigurations") <*>-      (obj .:? "BucketEncryption") <*>-      (obj .:? "BucketName") <*>-      (obj .:? "CorsConfiguration") <*>-      (obj .:? "InventoryConfigurations") <*>-      (obj .:? "LifecycleConfiguration") <*>-      (obj .:? "LoggingConfiguration") <*>-      (obj .:? "MetricsConfigurations") <*>-      (obj .:? "NotificationConfiguration") <*>-      (obj .:? "PublicAccessBlockConfiguration") <*>-      (obj .:? "ReplicationConfiguration") <*>-      (obj .:? "Tags") <*>-      (obj .:? "VersioningConfiguration") <*>-      (obj .:? "WebsiteConfiguration")-  parseJSON _ = mempty- -- | Constructor for 'S3Bucket' containing required fields as arguments. s3Bucket   :: S3Bucket
library-gen/Stratosphere/Resources/S3BucketPolicy.hs view
@@ -25,13 +25,6 @@     , (Just . ("PolicyDocument",) . toJSON) _s3BucketPolicyPolicyDocument     ] -instance FromJSON S3BucketPolicy where-  parseJSON (Object obj) =-    S3BucketPolicy <$>-      (obj .: "Bucket") <*>-      (obj .: "PolicyDocument")-  parseJSON _ = mempty- -- | Constructor for 'S3BucketPolicy' containing required fields as arguments. s3BucketPolicy   :: Val Text -- ^ 'sbpBucket'
library-gen/Stratosphere/Resources/SDBDomain.hs view
@@ -23,12 +23,6 @@     [ fmap (("Description",) . toJSON) _sDBDomainDescription     ] -instance FromJSON SDBDomain where-  parseJSON (Object obj) =-    SDBDomain <$>-      (obj .:? "Description")-  parseJSON _ = mempty- -- | Constructor for 'SDBDomain' containing required fields as arguments. sdbDomain   :: SDBDomain
library-gen/Stratosphere/Resources/SESConfigurationSet.hs view
@@ -23,12 +23,6 @@     [ fmap (("Name",) . toJSON) _sESConfigurationSetName     ] -instance FromJSON SESConfigurationSet where-  parseJSON (Object obj) =-    SESConfigurationSet <$>-      (obj .:? "Name")-  parseJSON _ = mempty- -- | Constructor for 'SESConfigurationSet' containing required fields as -- arguments. sesConfigurationSet
library-gen/Stratosphere/Resources/SESConfigurationSetEventDestination.hs view
@@ -25,13 +25,6 @@     , (Just . ("EventDestination",) . toJSON) _sESConfigurationSetEventDestinationEventDestination     ] -instance FromJSON SESConfigurationSetEventDestination where-  parseJSON (Object obj) =-    SESConfigurationSetEventDestination <$>-      (obj .: "ConfigurationSetName") <*>-      (obj .: "EventDestination")-  parseJSON _ = mempty- -- | Constructor for 'SESConfigurationSetEventDestination' containing required -- fields as arguments. sesConfigurationSetEventDestination
library-gen/Stratosphere/Resources/SESReceiptFilter.hs view
@@ -23,12 +23,6 @@     [ (Just . ("Filter",) . toJSON) _sESReceiptFilterFilter     ] -instance FromJSON SESReceiptFilter where-  parseJSON (Object obj) =-    SESReceiptFilter <$>-      (obj .: "Filter")-  parseJSON _ = mempty- -- | Constructor for 'SESReceiptFilter' containing required fields as -- arguments. sesReceiptFilter
library-gen/Stratosphere/Resources/SESReceiptRule.hs view
@@ -27,14 +27,6 @@     , (Just . ("RuleSetName",) . toJSON) _sESReceiptRuleRuleSetName     ] -instance FromJSON SESReceiptRule where-  parseJSON (Object obj) =-    SESReceiptRule <$>-      (obj .:? "After") <*>-      (obj .: "Rule") <*>-      (obj .: "RuleSetName")-  parseJSON _ = mempty- -- | Constructor for 'SESReceiptRule' containing required fields as arguments. sesReceiptRule   :: SESReceiptRuleRule -- ^ 'sesrrRule'
library-gen/Stratosphere/Resources/SESReceiptRuleSet.hs view
@@ -23,12 +23,6 @@     [ fmap (("RuleSetName",) . toJSON) _sESReceiptRuleSetRuleSetName     ] -instance FromJSON SESReceiptRuleSet where-  parseJSON (Object obj) =-    SESReceiptRuleSet <$>-      (obj .:? "RuleSetName")-  parseJSON _ = mempty- -- | Constructor for 'SESReceiptRuleSet' containing required fields as -- arguments. sesReceiptRuleSet
library-gen/Stratosphere/Resources/SESTemplate.hs view
@@ -23,12 +23,6 @@     [ fmap (("Template",) . toJSON) _sESTemplateTemplate     ] -instance FromJSON SESTemplate where-  parseJSON (Object obj) =-    SESTemplate <$>-      (obj .:? "Template")-  parseJSON _ = mempty- -- | Constructor for 'SESTemplate' containing required fields as arguments. sesTemplate   :: SESTemplate
library-gen/Stratosphere/Resources/SNSSubscription.hs view
@@ -35,18 +35,6 @@     , (Just . ("TopicArn",) . toJSON) _sNSSubscriptionTopicArn     ] -instance FromJSON SNSSubscription where-  parseJSON (Object obj) =-    SNSSubscription <$>-      (obj .:? "DeliveryPolicy") <*>-      (obj .:? "Endpoint") <*>-      (obj .:? "FilterPolicy") <*>-      (obj .: "Protocol") <*>-      fmap (fmap (fmap unBool')) (obj .:? "RawMessageDelivery") <*>-      (obj .:? "Region") <*>-      (obj .: "TopicArn")-  parseJSON _ = mempty- -- | Constructor for 'SNSSubscription' containing required fields as -- arguments. snsSubscription
library-gen/Stratosphere/Resources/SNSTopic.hs view
@@ -29,15 +29,6 @@     , fmap (("TopicName",) . toJSON) _sNSTopicTopicName     ] -instance FromJSON SNSTopic where-  parseJSON (Object obj) =-    SNSTopic <$>-      (obj .:? "DisplayName") <*>-      (obj .:? "KmsMasterKeyId") <*>-      (obj .:? "Subscription") <*>-      (obj .:? "TopicName")-  parseJSON _ = mempty- -- | Constructor for 'SNSTopic' containing required fields as arguments. snsTopic   :: SNSTopic
library-gen/Stratosphere/Resources/SNSTopicPolicy.hs view
@@ -25,13 +25,6 @@     , (Just . ("Topics",) . toJSON) _sNSTopicPolicyTopics     ] -instance FromJSON SNSTopicPolicy where-  parseJSON (Object obj) =-    SNSTopicPolicy <$>-      (obj .: "PolicyDocument") <*>-      (obj .: "Topics")-  parseJSON _ = mempty- -- | Constructor for 'SNSTopicPolicy' containing required fields as arguments. snsTopicPolicy   :: Object -- ^ 'snstpPolicyDocument'
library-gen/Stratosphere/Resources/SQSQueue.hs view
@@ -45,23 +45,6 @@     , fmap (("VisibilityTimeout",) . toJSON . fmap Integer') _sQSQueueVisibilityTimeout     ] -instance FromJSON SQSQueue where-  parseJSON (Object obj) =-    SQSQueue <$>-      fmap (fmap (fmap unBool')) (obj .:? "ContentBasedDeduplication") <*>-      fmap (fmap (fmap unInteger')) (obj .:? "DelaySeconds") <*>-      fmap (fmap (fmap unBool')) (obj .:? "FifoQueue") <*>-      fmap (fmap (fmap unInteger')) (obj .:? "KmsDataKeyReusePeriodSeconds") <*>-      (obj .:? "KmsMasterKeyId") <*>-      fmap (fmap (fmap unInteger')) (obj .:? "MaximumMessageSize") <*>-      fmap (fmap (fmap unInteger')) (obj .:? "MessageRetentionPeriod") <*>-      (obj .:? "QueueName") <*>-      fmap (fmap (fmap unInteger')) (obj .:? "ReceiveMessageWaitTimeSeconds") <*>-      (obj .:? "RedrivePolicy") <*>-      (obj .:? "Tags") <*>-      fmap (fmap (fmap unInteger')) (obj .:? "VisibilityTimeout")-  parseJSON _ = mempty- -- | Constructor for 'SQSQueue' containing required fields as arguments. sqsQueue   :: SQSQueue
library-gen/Stratosphere/Resources/SQSQueuePolicy.hs view
@@ -25,13 +25,6 @@     , (Just . ("Queues",) . toJSON) _sQSQueuePolicyQueues     ] -instance FromJSON SQSQueuePolicy where-  parseJSON (Object obj) =-    SQSQueuePolicy <$>-      (obj .: "PolicyDocument") <*>-      (obj .: "Queues")-  parseJSON _ = mempty- -- | Constructor for 'SQSQueuePolicy' containing required fields as arguments. sqsQueuePolicy   :: Object -- ^ 'sqsqpPolicyDocument'
library-gen/Stratosphere/Resources/SSMAssociation.hs view
@@ -39,19 +39,6 @@     , fmap (("Targets",) . toJSON) _sSMAssociationTargets     ] -instance FromJSON SSMAssociation where-  parseJSON (Object obj) =-    SSMAssociation <$>-      (obj .:? "AssociationName") <*>-      (obj .:? "DocumentVersion") <*>-      (obj .:? "InstanceId") <*>-      (obj .: "Name") <*>-      (obj .:? "OutputLocation") <*>-      (obj .:? "Parameters") <*>-      (obj .:? "ScheduleExpression") <*>-      (obj .:? "Targets")-  parseJSON _ = mempty- -- | Constructor for 'SSMAssociation' containing required fields as arguments. ssmAssociation   :: Val Text -- ^ 'ssmaName'
library-gen/Stratosphere/Resources/SSMDocument.hs view
@@ -27,14 +27,6 @@     , fmap (("Tags",) . toJSON) _sSMDocumentTags     ] -instance FromJSON SSMDocument where-  parseJSON (Object obj) =-    SSMDocument <$>-      (obj .: "Content") <*>-      (obj .:? "DocumentType") <*>-      (obj .:? "Tags")-  parseJSON _ = mempty- -- | Constructor for 'SSMDocument' containing required fields as arguments. ssmDocument   :: Object -- ^ 'ssmdContent'
library-gen/Stratosphere/Resources/SSMMaintenanceWindow.hs view
@@ -41,21 +41,6 @@     , fmap (("Tags",) . toJSON) _sSMMaintenanceWindowTags     ] -instance FromJSON SSMMaintenanceWindow where-  parseJSON (Object obj) =-    SSMMaintenanceWindow <$>-      fmap (fmap unBool') (obj .: "AllowUnassociatedTargets") <*>-      fmap (fmap unInteger') (obj .: "Cutoff") <*>-      (obj .:? "Description") <*>-      fmap (fmap unInteger') (obj .: "Duration") <*>-      (obj .:? "EndDate") <*>-      (obj .: "Name") <*>-      (obj .: "Schedule") <*>-      (obj .:? "ScheduleTimezone") <*>-      (obj .:? "StartDate") <*>-      (obj .:? "Tags")-  parseJSON _ = mempty- -- | Constructor for 'SSMMaintenanceWindow' containing required fields as -- arguments. ssmMaintenanceWindow
library-gen/Stratosphere/Resources/SSMMaintenanceWindowTask.hs view
@@ -49,24 +49,6 @@     , fmap (("WindowId",) . toJSON) _sSMMaintenanceWindowTaskWindowId     ] -instance FromJSON SSMMaintenanceWindowTask where-  parseJSON (Object obj) =-    SSMMaintenanceWindowTask <$>-      (obj .:? "Description") <*>-      (obj .:? "LoggingInfo") <*>-      (obj .: "MaxConcurrency") <*>-      (obj .: "MaxErrors") <*>-      (obj .:? "Name") <*>-      fmap (fmap unInteger') (obj .: "Priority") <*>-      (obj .: "ServiceRoleArn") <*>-      (obj .: "Targets") <*>-      (obj .: "TaskArn") <*>-      (obj .:? "TaskInvocationParameters") <*>-      (obj .:? "TaskParameters") <*>-      (obj .: "TaskType") <*>-      (obj .:? "WindowId")-  parseJSON _ = mempty- -- | Constructor for 'SSMMaintenanceWindowTask' containing required fields as -- arguments. ssmMaintenanceWindowTask
library-gen/Stratosphere/Resources/SSMParameter.hs view
@@ -31,16 +31,6 @@     , (Just . ("Value",) . toJSON) _sSMParameterValue     ] -instance FromJSON SSMParameter where-  parseJSON (Object obj) =-    SSMParameter <$>-      (obj .:? "AllowedPattern") <*>-      (obj .:? "Description") <*>-      (obj .:? "Name") <*>-      (obj .: "Type") <*>-      (obj .: "Value")-  parseJSON _ = mempty- -- | Constructor for 'SSMParameter' containing required fields as arguments. ssmParameter   :: Val Text -- ^ 'ssmpType'
library-gen/Stratosphere/Resources/SSMPatchBaseline.hs view
@@ -47,23 +47,6 @@     , fmap (("Sources",) . toJSON) _sSMPatchBaselineSources     ] -instance FromJSON SSMPatchBaseline where-  parseJSON (Object obj) =-    SSMPatchBaseline <$>-      (obj .:? "ApprovalRules") <*>-      (obj .:? "ApprovedPatches") <*>-      (obj .:? "ApprovedPatchesComplianceLevel") <*>-      fmap (fmap (fmap unBool')) (obj .:? "ApprovedPatchesEnableNonSecurity") <*>-      (obj .:? "Description") <*>-      (obj .:? "GlobalFilters") <*>-      (obj .: "Name") <*>-      (obj .:? "OperatingSystem") <*>-      (obj .:? "PatchGroups") <*>-      (obj .:? "RejectedPatches") <*>-      (obj .:? "RejectedPatchesAction") <*>-      (obj .:? "Sources")-  parseJSON _ = mempty- -- | Constructor for 'SSMPatchBaseline' containing required fields as -- arguments. ssmPatchBaseline
library-gen/Stratosphere/Resources/SSMResourceDataSync.hs view
@@ -33,17 +33,6 @@     , (Just . ("SyncName",) . toJSON) _sSMResourceDataSyncSyncName     ] -instance FromJSON SSMResourceDataSync where-  parseJSON (Object obj) =-    SSMResourceDataSync <$>-      (obj .: "BucketName") <*>-      (obj .:? "BucketPrefix") <*>-      (obj .: "BucketRegion") <*>-      (obj .:? "KMSKeyArn") <*>-      (obj .: "SyncFormat") <*>-      (obj .: "SyncName")-  parseJSON _ = mempty- -- | Constructor for 'SSMResourceDataSync' containing required fields as -- arguments. ssmResourceDataSync
library-gen/Stratosphere/Resources/SageMakerEndpoint.hs view
@@ -27,14 +27,6 @@     , fmap (("Tags",) . toJSON) _sageMakerEndpointTags     ] -instance FromJSON SageMakerEndpoint where-  parseJSON (Object obj) =-    SageMakerEndpoint <$>-      (obj .: "EndpointConfigName") <*>-      (obj .:? "EndpointName") <*>-      (obj .:? "Tags")-  parseJSON _ = mempty- -- | Constructor for 'SageMakerEndpoint' containing required fields as -- arguments. sageMakerEndpoint
library-gen/Stratosphere/Resources/SageMakerEndpointConfig.hs view
@@ -30,15 +30,6 @@     , fmap (("Tags",) . toJSON) _sageMakerEndpointConfigTags     ] -instance FromJSON SageMakerEndpointConfig where-  parseJSON (Object obj) =-    SageMakerEndpointConfig <$>-      (obj .:? "EndpointConfigName") <*>-      (obj .:? "KmsKeyId") <*>-      (obj .: "ProductionVariants") <*>-      (obj .:? "Tags")-  parseJSON _ = mempty- -- | Constructor for 'SageMakerEndpointConfig' containing required fields as -- arguments. sageMakerEndpointConfig
library-gen/Stratosphere/Resources/SageMakerModel.hs view
@@ -35,17 +35,6 @@     , fmap (("VpcConfig",) . toJSON) _sageMakerModelVpcConfig     ] -instance FromJSON SageMakerModel where-  parseJSON (Object obj) =-    SageMakerModel <$>-      (obj .:? "Containers") <*>-      (obj .: "ExecutionRoleArn") <*>-      (obj .:? "ModelName") <*>-      (obj .:? "PrimaryContainer") <*>-      (obj .:? "Tags") <*>-      (obj .:? "VpcConfig")-  parseJSON _ = mempty- -- | Constructor for 'SageMakerModel' containing required fields as arguments. sageMakerModel   :: Val Text -- ^ 'smmExecutionRoleArn'
library-gen/Stratosphere/Resources/SageMakerNotebookInstance.hs view
@@ -41,21 +41,6 @@     , fmap (("VolumeSizeInGB",) . toJSON . fmap Integer') _sageMakerNotebookInstanceVolumeSizeInGB     ] -instance FromJSON SageMakerNotebookInstance where-  parseJSON (Object obj) =-    SageMakerNotebookInstance <$>-      (obj .:? "DirectInternetAccess") <*>-      (obj .: "InstanceType") <*>-      (obj .:? "KmsKeyId") <*>-      (obj .:? "LifecycleConfigName") <*>-      (obj .:? "NotebookInstanceName") <*>-      (obj .: "RoleArn") <*>-      (obj .:? "SecurityGroupIds") <*>-      (obj .:? "SubnetId") <*>-      (obj .:? "Tags") <*>-      fmap (fmap (fmap unInteger')) (obj .:? "VolumeSizeInGB")-  parseJSON _ = mempty- -- | Constructor for 'SageMakerNotebookInstance' containing required fields as -- arguments. sageMakerNotebookInstance
library-gen/Stratosphere/Resources/SageMakerNotebookInstanceLifecycleConfig.hs view
@@ -28,14 +28,6 @@     , fmap (("OnStart",) . toJSON) _sageMakerNotebookInstanceLifecycleConfigOnStart     ] -instance FromJSON SageMakerNotebookInstanceLifecycleConfig where-  parseJSON (Object obj) =-    SageMakerNotebookInstanceLifecycleConfig <$>-      (obj .:? "NotebookInstanceLifecycleConfigName") <*>-      (obj .:? "OnCreate") <*>-      (obj .:? "OnStart")-  parseJSON _ = mempty- -- | Constructor for 'SageMakerNotebookInstanceLifecycleConfig' containing -- required fields as arguments. sageMakerNotebookInstanceLifecycleConfig
library-gen/Stratosphere/Resources/SecretsManagerResourcePolicy.hs view
@@ -25,13 +25,6 @@     , (Just . ("SecretId",) . toJSON) _secretsManagerResourcePolicySecretId     ] -instance FromJSON SecretsManagerResourcePolicy where-  parseJSON (Object obj) =-    SecretsManagerResourcePolicy <$>-      (obj .: "ResourcePolicy") <*>-      (obj .: "SecretId")-  parseJSON _ = mempty- -- | Constructor for 'SecretsManagerResourcePolicy' containing required fields -- as arguments. secretsManagerResourcePolicy
library-gen/Stratosphere/Resources/SecretsManagerRotationSchedule.hs view
@@ -27,14 +27,6 @@     , (Just . ("SecretId",) . toJSON) _secretsManagerRotationScheduleSecretId     ] -instance FromJSON SecretsManagerRotationSchedule where-  parseJSON (Object obj) =-    SecretsManagerRotationSchedule <$>-      (obj .:? "RotationLambdaARN") <*>-      (obj .:? "RotationRules") <*>-      (obj .: "SecretId")-  parseJSON _ = mempty- -- | Constructor for 'SecretsManagerRotationSchedule' containing required -- fields as arguments. secretsManagerRotationSchedule
library-gen/Stratosphere/Resources/SecretsManagerSecret.hs view
@@ -34,17 +34,6 @@     , fmap (("Tags",) . toJSON) _secretsManagerSecretTags     ] -instance FromJSON SecretsManagerSecret where-  parseJSON (Object obj) =-    SecretsManagerSecret <$>-      (obj .:? "Description") <*>-      (obj .:? "GenerateSecretString") <*>-      (obj .:? "KmsKeyId") <*>-      (obj .:? "Name") <*>-      (obj .:? "SecretString") <*>-      (obj .:? "Tags")-  parseJSON _ = mempty- -- | Constructor for 'SecretsManagerSecret' containing required fields as -- arguments. secretsManagerSecret
library-gen/Stratosphere/Resources/SecretsManagerSecretTargetAttachment.hs view
@@ -27,14 +27,6 @@     , (Just . ("TargetType",) . toJSON) _secretsManagerSecretTargetAttachmentTargetType     ] -instance FromJSON SecretsManagerSecretTargetAttachment where-  parseJSON (Object obj) =-    SecretsManagerSecretTargetAttachment <$>-      (obj .: "SecretId") <*>-      (obj .: "TargetId") <*>-      (obj .: "TargetType")-  parseJSON _ = mempty- -- | Constructor for 'SecretsManagerSecretTargetAttachment' containing -- required fields as arguments. secretsManagerSecretTargetAttachment
library-gen/Stratosphere/Resources/ServiceCatalogAcceptedPortfolioShare.hs view
@@ -25,13 +25,6 @@     , (Just . ("PortfolioId",) . toJSON) _serviceCatalogAcceptedPortfolioSharePortfolioId     ] -instance FromJSON ServiceCatalogAcceptedPortfolioShare where-  parseJSON (Object obj) =-    ServiceCatalogAcceptedPortfolioShare <$>-      (obj .:? "AcceptLanguage") <*>-      (obj .: "PortfolioId")-  parseJSON _ = mempty- -- | Constructor for 'ServiceCatalogAcceptedPortfolioShare' containing -- required fields as arguments. serviceCatalogAcceptedPortfolioShare
library-gen/Stratosphere/Resources/ServiceCatalogCloudFormationProduct.hs view
@@ -42,21 +42,6 @@     , fmap (("Tags",) . toJSON) _serviceCatalogCloudFormationProductTags     ] -instance FromJSON ServiceCatalogCloudFormationProduct where-  parseJSON (Object obj) =-    ServiceCatalogCloudFormationProduct <$>-      (obj .:? "AcceptLanguage") <*>-      (obj .:? "Description") <*>-      (obj .:? "Distributor") <*>-      (obj .: "Name") <*>-      (obj .: "Owner") <*>-      (obj .: "ProvisioningArtifactParameters") <*>-      (obj .:? "SupportDescription") <*>-      (obj .:? "SupportEmail") <*>-      (obj .:? "SupportUrl") <*>-      (obj .:? "Tags")-  parseJSON _ = mempty- -- | Constructor for 'ServiceCatalogCloudFormationProduct' containing required -- fields as arguments. serviceCatalogCloudFormationProduct
library-gen/Stratosphere/Resources/ServiceCatalogCloudFormationProvisionedProduct.hs view
@@ -44,21 +44,6 @@     , fmap (("Tags",) . toJSON) _serviceCatalogCloudFormationProvisionedProductTags     ] -instance FromJSON ServiceCatalogCloudFormationProvisionedProduct where-  parseJSON (Object obj) =-    ServiceCatalogCloudFormationProvisionedProduct <$>-      (obj .:? "AcceptLanguage") <*>-      (obj .:? "NotificationArns") <*>-      (obj .:? "PathId") <*>-      (obj .:? "ProductId") <*>-      (obj .:? "ProductName") <*>-      (obj .:? "ProvisionedProductName") <*>-      (obj .:? "ProvisioningArtifactId") <*>-      (obj .:? "ProvisioningArtifactName") <*>-      (obj .:? "ProvisioningParameters") <*>-      (obj .:? "Tags")-  parseJSON _ = mempty- -- | Constructor for 'ServiceCatalogCloudFormationProvisionedProduct' -- containing required fields as arguments. serviceCatalogCloudFormationProvisionedProduct
library-gen/Stratosphere/Resources/ServiceCatalogLaunchNotificationConstraint.hs view
@@ -32,16 +32,6 @@     , (Just . ("ProductId",) . toJSON) _serviceCatalogLaunchNotificationConstraintProductId     ] -instance FromJSON ServiceCatalogLaunchNotificationConstraint where-  parseJSON (Object obj) =-    ServiceCatalogLaunchNotificationConstraint <$>-      (obj .:? "AcceptLanguage") <*>-      (obj .:? "Description") <*>-      (obj .: "NotificationArns") <*>-      (obj .: "PortfolioId") <*>-      (obj .: "ProductId")-  parseJSON _ = mempty- -- | Constructor for 'ServiceCatalogLaunchNotificationConstraint' containing -- required fields as arguments. serviceCatalogLaunchNotificationConstraint
library-gen/Stratosphere/Resources/ServiceCatalogLaunchRoleConstraint.hs view
@@ -31,16 +31,6 @@     , (Just . ("RoleArn",) . toJSON) _serviceCatalogLaunchRoleConstraintRoleArn     ] -instance FromJSON ServiceCatalogLaunchRoleConstraint where-  parseJSON (Object obj) =-    ServiceCatalogLaunchRoleConstraint <$>-      (obj .:? "AcceptLanguage") <*>-      (obj .:? "Description") <*>-      (obj .: "PortfolioId") <*>-      (obj .: "ProductId") <*>-      (obj .: "RoleArn")-  parseJSON _ = mempty- -- | Constructor for 'ServiceCatalogLaunchRoleConstraint' containing required -- fields as arguments. serviceCatalogLaunchRoleConstraint
library-gen/Stratosphere/Resources/ServiceCatalogLaunchTemplateConstraint.hs view
@@ -32,16 +32,6 @@     , (Just . ("Rules",) . toJSON) _serviceCatalogLaunchTemplateConstraintRules     ] -instance FromJSON ServiceCatalogLaunchTemplateConstraint where-  parseJSON (Object obj) =-    ServiceCatalogLaunchTemplateConstraint <$>-      (obj .:? "AcceptLanguage") <*>-      (obj .:? "Description") <*>-      (obj .: "PortfolioId") <*>-      (obj .: "ProductId") <*>-      (obj .: "Rules")-  parseJSON _ = mempty- -- | Constructor for 'ServiceCatalogLaunchTemplateConstraint' containing -- required fields as arguments. serviceCatalogLaunchTemplateConstraint
library-gen/Stratosphere/Resources/ServiceCatalogPortfolio.hs view
@@ -31,16 +31,6 @@     , fmap (("Tags",) . toJSON) _serviceCatalogPortfolioTags     ] -instance FromJSON ServiceCatalogPortfolio where-  parseJSON (Object obj) =-    ServiceCatalogPortfolio <$>-      (obj .:? "AcceptLanguage") <*>-      (obj .:? "Description") <*>-      (obj .: "DisplayName") <*>-      (obj .: "ProviderName") <*>-      (obj .:? "Tags")-  parseJSON _ = mempty- -- | Constructor for 'ServiceCatalogPortfolio' containing required fields as -- arguments. serviceCatalogPortfolio
library-gen/Stratosphere/Resources/ServiceCatalogPortfolioPrincipalAssociation.hs view
@@ -31,15 +31,6 @@     , (Just . ("PrincipalType",) . toJSON) _serviceCatalogPortfolioPrincipalAssociationPrincipalType     ] -instance FromJSON ServiceCatalogPortfolioPrincipalAssociation where-  parseJSON (Object obj) =-    ServiceCatalogPortfolioPrincipalAssociation <$>-      (obj .:? "AcceptLanguage") <*>-      (obj .: "PortfolioId") <*>-      (obj .: "PrincipalARN") <*>-      (obj .: "PrincipalType")-  parseJSON _ = mempty- -- | Constructor for 'ServiceCatalogPortfolioPrincipalAssociation' containing -- required fields as arguments. serviceCatalogPortfolioPrincipalAssociation
library-gen/Stratosphere/Resources/ServiceCatalogPortfolioProductAssociation.hs view
@@ -30,15 +30,6 @@     , fmap (("SourcePortfolioId",) . toJSON) _serviceCatalogPortfolioProductAssociationSourcePortfolioId     ] -instance FromJSON ServiceCatalogPortfolioProductAssociation where-  parseJSON (Object obj) =-    ServiceCatalogPortfolioProductAssociation <$>-      (obj .:? "AcceptLanguage") <*>-      (obj .: "PortfolioId") <*>-      (obj .: "ProductId") <*>-      (obj .:? "SourcePortfolioId")-  parseJSON _ = mempty- -- | Constructor for 'ServiceCatalogPortfolioProductAssociation' containing -- required fields as arguments. serviceCatalogPortfolioProductAssociation
library-gen/Stratosphere/Resources/ServiceCatalogPortfolioShare.hs view
@@ -27,14 +27,6 @@     , (Just . ("PortfolioId",) . toJSON) _serviceCatalogPortfolioSharePortfolioId     ] -instance FromJSON ServiceCatalogPortfolioShare where-  parseJSON (Object obj) =-    ServiceCatalogPortfolioShare <$>-      (obj .:? "AcceptLanguage") <*>-      (obj .: "AccountId") <*>-      (obj .: "PortfolioId")-  parseJSON _ = mempty- -- | Constructor for 'ServiceCatalogPortfolioShare' containing required fields -- as arguments. serviceCatalogPortfolioShare
library-gen/Stratosphere/Resources/ServiceCatalogTagOption.hs view
@@ -27,14 +27,6 @@     , (Just . ("Value",) . toJSON) _serviceCatalogTagOptionValue     ] -instance FromJSON ServiceCatalogTagOption where-  parseJSON (Object obj) =-    ServiceCatalogTagOption <$>-      fmap (fmap (fmap unBool')) (obj .:? "Active") <*>-      (obj .: "Key") <*>-      (obj .: "Value")-  parseJSON _ = mempty- -- | Constructor for 'ServiceCatalogTagOption' containing required fields as -- arguments. serviceCatalogTagOption
library-gen/Stratosphere/Resources/ServiceCatalogTagOptionAssociation.hs view
@@ -25,13 +25,6 @@     , (Just . ("TagOptionId",) . toJSON) _serviceCatalogTagOptionAssociationTagOptionId     ] -instance FromJSON ServiceCatalogTagOptionAssociation where-  parseJSON (Object obj) =-    ServiceCatalogTagOptionAssociation <$>-      (obj .: "ResourceId") <*>-      (obj .: "TagOptionId")-  parseJSON _ = mempty- -- | Constructor for 'ServiceCatalogTagOptionAssociation' containing required -- fields as arguments. serviceCatalogTagOptionAssociation
library-gen/Stratosphere/Resources/ServiceDiscoveryHttpNamespace.hs view
@@ -25,13 +25,6 @@     , (Just . ("Name",) . toJSON) _serviceDiscoveryHttpNamespaceName     ] -instance FromJSON ServiceDiscoveryHttpNamespace where-  parseJSON (Object obj) =-    ServiceDiscoveryHttpNamespace <$>-      (obj .:? "Description") <*>-      (obj .: "Name")-  parseJSON _ = mempty- -- | Constructor for 'ServiceDiscoveryHttpNamespace' containing required -- fields as arguments. serviceDiscoveryHttpNamespace
library-gen/Stratosphere/Resources/ServiceDiscoveryInstance.hs view
@@ -27,14 +27,6 @@     , (Just . ("ServiceId",) . toJSON) _serviceDiscoveryInstanceServiceId     ] -instance FromJSON ServiceDiscoveryInstance where-  parseJSON (Object obj) =-    ServiceDiscoveryInstance <$>-      (obj .: "InstanceAttributes") <*>-      (obj .:? "InstanceId") <*>-      (obj .: "ServiceId")-  parseJSON _ = mempty- -- | Constructor for 'ServiceDiscoveryInstance' containing required fields as -- arguments. serviceDiscoveryInstance
library-gen/Stratosphere/Resources/ServiceDiscoveryPrivateDnsNamespace.hs view
@@ -27,14 +27,6 @@     , (Just . ("Vpc",) . toJSON) _serviceDiscoveryPrivateDnsNamespaceVpc     ] -instance FromJSON ServiceDiscoveryPrivateDnsNamespace where-  parseJSON (Object obj) =-    ServiceDiscoveryPrivateDnsNamespace <$>-      (obj .:? "Description") <*>-      (obj .: "Name") <*>-      (obj .: "Vpc")-  parseJSON _ = mempty- -- | Constructor for 'ServiceDiscoveryPrivateDnsNamespace' containing required -- fields as arguments. serviceDiscoveryPrivateDnsNamespace
library-gen/Stratosphere/Resources/ServiceDiscoveryPublicDnsNamespace.hs view
@@ -25,13 +25,6 @@     , (Just . ("Name",) . toJSON) _serviceDiscoveryPublicDnsNamespaceName     ] -instance FromJSON ServiceDiscoveryPublicDnsNamespace where-  parseJSON (Object obj) =-    ServiceDiscoveryPublicDnsNamespace <$>-      (obj .:? "Description") <*>-      (obj .: "Name")-  parseJSON _ = mempty- -- | Constructor for 'ServiceDiscoveryPublicDnsNamespace' containing required -- fields as arguments. serviceDiscoveryPublicDnsNamespace
library-gen/Stratosphere/Resources/ServiceDiscoveryService.hs view
@@ -35,17 +35,6 @@     , fmap (("NamespaceId",) . toJSON) _serviceDiscoveryServiceNamespaceId     ] -instance FromJSON ServiceDiscoveryService where-  parseJSON (Object obj) =-    ServiceDiscoveryService <$>-      (obj .:? "Description") <*>-      (obj .:? "DnsConfig") <*>-      (obj .:? "HealthCheckConfig") <*>-      (obj .:? "HealthCheckCustomConfig") <*>-      (obj .:? "Name") <*>-      (obj .:? "NamespaceId")-  parseJSON _ = mempty- -- | Constructor for 'ServiceDiscoveryService' containing required fields as -- arguments. serviceDiscoveryService
library-gen/Stratosphere/Resources/StepFunctionsActivity.hs view
@@ -23,12 +23,6 @@     [ (Just . ("Name",) . toJSON) _stepFunctionsActivityName     ] -instance FromJSON StepFunctionsActivity where-  parseJSON (Object obj) =-    StepFunctionsActivity <$>-      (obj .: "Name")-  parseJSON _ = mempty- -- | Constructor for 'StepFunctionsActivity' containing required fields as -- arguments. stepFunctionsActivity
library-gen/Stratosphere/Resources/StepFunctionsStateMachine.hs view
@@ -27,14 +27,6 @@     , fmap (("StateMachineName",) . toJSON) _stepFunctionsStateMachineStateMachineName     ] -instance FromJSON StepFunctionsStateMachine where-  parseJSON (Object obj) =-    StepFunctionsStateMachine <$>-      (obj .: "DefinitionString") <*>-      (obj .: "RoleArn") <*>-      (obj .:? "StateMachineName")-  parseJSON _ = mempty- -- | Constructor for 'StepFunctionsStateMachine' containing required fields as -- arguments. stepFunctionsStateMachine
library-gen/Stratosphere/Resources/WAFByteMatchSet.hs view
@@ -25,13 +25,6 @@     , (Just . ("Name",) . toJSON) _wAFByteMatchSetName     ] -instance FromJSON WAFByteMatchSet where-  parseJSON (Object obj) =-    WAFByteMatchSet <$>-      (obj .:? "ByteMatchTuples") <*>-      (obj .: "Name")-  parseJSON _ = mempty- -- | Constructor for 'WAFByteMatchSet' containing required fields as -- arguments. wafByteMatchSet
library-gen/Stratosphere/Resources/WAFIPSet.hs view
@@ -25,13 +25,6 @@     , (Just . ("Name",) . toJSON) _wAFIPSetName     ] -instance FromJSON WAFIPSet where-  parseJSON (Object obj) =-    WAFIPSet <$>-      (obj .:? "IPSetDescriptors") <*>-      (obj .: "Name")-  parseJSON _ = mempty- -- | Constructor for 'WAFIPSet' containing required fields as arguments. wafipSet   :: Val Text -- ^ 'wafipsName'
library-gen/Stratosphere/Resources/WAFRegionalByteMatchSet.hs view
@@ -25,13 +25,6 @@     , (Just . ("Name",) . toJSON) _wAFRegionalByteMatchSetName     ] -instance FromJSON WAFRegionalByteMatchSet where-  parseJSON (Object obj) =-    WAFRegionalByteMatchSet <$>-      (obj .:? "ByteMatchTuples") <*>-      (obj .: "Name")-  parseJSON _ = mempty- -- | Constructor for 'WAFRegionalByteMatchSet' containing required fields as -- arguments. wafRegionalByteMatchSet
library-gen/Stratosphere/Resources/WAFRegionalIPSet.hs view
@@ -25,13 +25,6 @@     , (Just . ("Name",) . toJSON) _wAFRegionalIPSetName     ] -instance FromJSON WAFRegionalIPSet where-  parseJSON (Object obj) =-    WAFRegionalIPSet <$>-      (obj .:? "IPSetDescriptors") <*>-      (obj .: "Name")-  parseJSON _ = mempty- -- | Constructor for 'WAFRegionalIPSet' containing required fields as -- arguments. wafRegionalIPSet
library-gen/Stratosphere/Resources/WAFRegionalRule.hs view
@@ -27,14 +27,6 @@     , fmap (("Predicates",) . toJSON) _wAFRegionalRulePredicates     ] -instance FromJSON WAFRegionalRule where-  parseJSON (Object obj) =-    WAFRegionalRule <$>-      (obj .: "MetricName") <*>-      (obj .: "Name") <*>-      (obj .:? "Predicates")-  parseJSON _ = mempty- -- | Constructor for 'WAFRegionalRule' containing required fields as -- arguments. wafRegionalRule
library-gen/Stratosphere/Resources/WAFRegionalSizeConstraintSet.hs view
@@ -25,13 +25,6 @@     , fmap (("SizeConstraints",) . toJSON) _wAFRegionalSizeConstraintSetSizeConstraints     ] -instance FromJSON WAFRegionalSizeConstraintSet where-  parseJSON (Object obj) =-    WAFRegionalSizeConstraintSet <$>-      (obj .: "Name") <*>-      (obj .:? "SizeConstraints")-  parseJSON _ = mempty- -- | Constructor for 'WAFRegionalSizeConstraintSet' containing required fields -- as arguments. wafRegionalSizeConstraintSet
library-gen/Stratosphere/Resources/WAFRegionalSqlInjectionMatchSet.hs view
@@ -25,13 +25,6 @@     , fmap (("SqlInjectionMatchTuples",) . toJSON) _wAFRegionalSqlInjectionMatchSetSqlInjectionMatchTuples     ] -instance FromJSON WAFRegionalSqlInjectionMatchSet where-  parseJSON (Object obj) =-    WAFRegionalSqlInjectionMatchSet <$>-      (obj .: "Name") <*>-      (obj .:? "SqlInjectionMatchTuples")-  parseJSON _ = mempty- -- | Constructor for 'WAFRegionalSqlInjectionMatchSet' containing required -- fields as arguments. wafRegionalSqlInjectionMatchSet
library-gen/Stratosphere/Resources/WAFRegionalWebACL.hs view
@@ -30,15 +30,6 @@     , fmap (("Rules",) . toJSON) _wAFRegionalWebACLRules     ] -instance FromJSON WAFRegionalWebACL where-  parseJSON (Object obj) =-    WAFRegionalWebACL <$>-      (obj .: "DefaultAction") <*>-      (obj .: "MetricName") <*>-      (obj .: "Name") <*>-      (obj .:? "Rules")-  parseJSON _ = mempty- -- | Constructor for 'WAFRegionalWebACL' containing required fields as -- arguments. wafRegionalWebACL
library-gen/Stratosphere/Resources/WAFRegionalWebACLAssociation.hs view
@@ -25,13 +25,6 @@     , (Just . ("WebACLId",) . toJSON) _wAFRegionalWebACLAssociationWebACLId     ] -instance FromJSON WAFRegionalWebACLAssociation where-  parseJSON (Object obj) =-    WAFRegionalWebACLAssociation <$>-      (obj .: "ResourceArn") <*>-      (obj .: "WebACLId")-  parseJSON _ = mempty- -- | Constructor for 'WAFRegionalWebACLAssociation' containing required fields -- as arguments. wafRegionalWebACLAssociation
library-gen/Stratosphere/Resources/WAFRegionalXssMatchSet.hs view
@@ -25,13 +25,6 @@     , fmap (("XssMatchTuples",) . toJSON) _wAFRegionalXssMatchSetXssMatchTuples     ] -instance FromJSON WAFRegionalXssMatchSet where-  parseJSON (Object obj) =-    WAFRegionalXssMatchSet <$>-      (obj .: "Name") <*>-      (obj .:? "XssMatchTuples")-  parseJSON _ = mempty- -- | Constructor for 'WAFRegionalXssMatchSet' containing required fields as -- arguments. wafRegionalXssMatchSet
library-gen/Stratosphere/Resources/WAFRule.hs view
@@ -27,14 +27,6 @@     , fmap (("Predicates",) . toJSON) _wAFRulePredicates     ] -instance FromJSON WAFRule where-  parseJSON (Object obj) =-    WAFRule <$>-      (obj .: "MetricName") <*>-      (obj .: "Name") <*>-      (obj .:? "Predicates")-  parseJSON _ = mempty- -- | Constructor for 'WAFRule' containing required fields as arguments. wafRule   :: Val Text -- ^ 'wafrMetricName'
library-gen/Stratosphere/Resources/WAFSizeConstraintSet.hs view
@@ -25,13 +25,6 @@     , (Just . ("SizeConstraints",) . toJSON) _wAFSizeConstraintSetSizeConstraints     ] -instance FromJSON WAFSizeConstraintSet where-  parseJSON (Object obj) =-    WAFSizeConstraintSet <$>-      (obj .: "Name") <*>-      (obj .: "SizeConstraints")-  parseJSON _ = mempty- -- | Constructor for 'WAFSizeConstraintSet' containing required fields as -- arguments. wafSizeConstraintSet
library-gen/Stratosphere/Resources/WAFSqlInjectionMatchSet.hs view
@@ -25,13 +25,6 @@     , fmap (("SqlInjectionMatchTuples",) . toJSON) _wAFSqlInjectionMatchSetSqlInjectionMatchTuples     ] -instance FromJSON WAFSqlInjectionMatchSet where-  parseJSON (Object obj) =-    WAFSqlInjectionMatchSet <$>-      (obj .: "Name") <*>-      (obj .:? "SqlInjectionMatchTuples")-  parseJSON _ = mempty- -- | Constructor for 'WAFSqlInjectionMatchSet' containing required fields as -- arguments. wafSqlInjectionMatchSet
library-gen/Stratosphere/Resources/WAFWebACL.hs view
@@ -30,15 +30,6 @@     , fmap (("Rules",) . toJSON) _wAFWebACLRules     ] -instance FromJSON WAFWebACL where-  parseJSON (Object obj) =-    WAFWebACL <$>-      (obj .: "DefaultAction") <*>-      (obj .: "MetricName") <*>-      (obj .: "Name") <*>-      (obj .:? "Rules")-  parseJSON _ = mempty- -- | Constructor for 'WAFWebACL' containing required fields as arguments. wafWebACL   :: WAFWebACLWafAction -- ^ 'wafwaclDefaultAction'
library-gen/Stratosphere/Resources/WAFXssMatchSet.hs view
@@ -25,13 +25,6 @@     , (Just . ("XssMatchTuples",) . toJSON) _wAFXssMatchSetXssMatchTuples     ] -instance FromJSON WAFXssMatchSet where-  parseJSON (Object obj) =-    WAFXssMatchSet <$>-      (obj .: "Name") <*>-      (obj .: "XssMatchTuples")-  parseJSON _ = mempty- -- | Constructor for 'WAFXssMatchSet' containing required fields as arguments. wafXssMatchSet   :: Val Text -- ^ 'wafxmsName'
library-gen/Stratosphere/Resources/WorkSpacesWorkspace.hs view
@@ -38,19 +38,6 @@     , fmap (("WorkspaceProperties",) . toJSON) _workSpacesWorkspaceWorkspaceProperties     ] -instance FromJSON WorkSpacesWorkspace where-  parseJSON (Object obj) =-    WorkSpacesWorkspace <$>-      (obj .: "BundleId") <*>-      (obj .: "DirectoryId") <*>-      fmap (fmap (fmap unBool')) (obj .:? "RootVolumeEncryptionEnabled") <*>-      (obj .:? "Tags") <*>-      (obj .: "UserName") <*>-      fmap (fmap (fmap unBool')) (obj .:? "UserVolumeEncryptionEnabled") <*>-      (obj .:? "VolumeEncryptionKey") <*>-      (obj .:? "WorkspaceProperties")-  parseJSON _ = mempty- -- | Constructor for 'WorkSpacesWorkspace' containing required fields as -- arguments. workSpacesWorkspace
library/Stratosphere/Helpers.hs view
@@ -5,15 +5,12 @@        , modTemplateJSONField        , NamedItem (..)        , namedItemToJSON-       , namedItemFromJSON        ) where  import Control.Lens (set) import Control.Lens.TH import Data.Aeson-import Data.Aeson.Types (Parser) import Data.Char (isUpper, toLower)-import qualified Data.HashMap.Strict as HM import Data.List (stripPrefix) import Data.Maybe (maybeToList) import qualified Data.Text as T@@ -54,14 +51,7 @@ class NamedItem a where   itemName :: a -> T.Text   nameToJSON :: a -> Value-  nameParseJSON :: T.Text -> Object -> Parser a  namedItemToJSON :: (NamedItem a) => [a] -> Value namedItemToJSON xs =     object $ fmap (\x -> itemName x .= nameToJSON x) xs--namedItemFromJSON :: (NamedItem a) => Value -> Parser [a]-namedItemFromJSON v = do-    objs <- parseJSON v :: Parser (HM.HashMap T.Text Value)-    sequence [withObject "NamedItem" (nameParseJSON n) obj |-              (n, obj) <- HM.toList objs]
library/Stratosphere/Outputs.hs view
@@ -30,7 +30,6 @@  import Control.Lens hiding ((.=)) import Data.Aeson-import Data.Aeson.Types (Parser) import Data.Maybe (catMaybes) import Data.Semigroup (Semigroup) import Data.Text (Text)@@ -50,12 +49,6 @@     [ "Name" .= outputExportName     ] -instance FromJSON OutputExport where-  parseJSON (Object o) =-    OutputExport <$>-      o .: "Name"-  parseJSON _ = mempty- -- | See 'output' for a convenient constructor. data Output =   Output@@ -98,13 +91,6 @@   , maybeField "Export" _outputExport   ] -outputFromJSON :: Text -> Object -> Parser Output-outputFromJSON n o =-  Output n-  <$> o .:? "Description"-  <*> o .: "Value"-  <*> o .:? "Export"- -- | Wrapper around a list of 'Output's to we can modify the aeson instances. newtype Outputs = Outputs { unOutputs :: [Output] }   deriving (Show, Eq, Semigroup, Monoid)@@ -117,10 +103,6 @@ instance NamedItem Output where   itemName = _outputName   nameToJSON = outputToJSON-  nameParseJSON = outputFromJSON  instance ToJSON Outputs where   toJSON = namedItemToJSON . unOutputs--instance FromJSON Outputs where-  parseJSON v = Outputs <$> namedItemFromJSON v
library/Stratosphere/Parameters.hs view
@@ -23,7 +23,6 @@  import Control.Lens hiding ((.=)) import Data.Aeson-import Data.Aeson.Types (Parser) import Data.Maybe (catMaybes) import Data.Semigroup (Semigroup) import qualified Data.Text as T@@ -89,21 +88,6 @@   , maybeField "ConstraintDescription" _parameterConstraintDescription   ] -parameterFromJSON :: T.Text -> Object -> Parser Parameter-parameterFromJSON n o =-  Parameter n-  <$> o .:  "Type"-  <*> o .:? "Default"-  <*> o .:? "NoEcho"-  <*> o .:? "AllowedValues"-  <*> o .:? "AllowedPattern"-  <*> fmap (fmap unInteger') (o .:? "MaxLength")-  <*> fmap (fmap unInteger') (o .:? "MinLength")-  <*> fmap (fmap unInteger') (o .:? "MaxValue")-  <*> fmap (fmap unInteger') (o .:? "MinValue")-  <*> o .:? "Description"-  <*> o .:? "ConstraintDescription"- -- | Constructor for 'Parameter' with required arguments. parameter   :: T.Text -- ^ Name@@ -138,10 +122,6 @@ instance NamedItem Parameter where   itemName = _parameterName   nameToJSON = parameterToJSON-  nameParseJSON = parameterFromJSON  instance ToJSON Parameters where   toJSON = namedItemToJSON . unParameters--instance FromJSON Parameters where-  parseJSON v = Parameters <$> namedItemFromJSON v
library/Stratosphere/ResourceAttributes/AutoScalingReplacingUpdatePolicy.hs view
@@ -24,12 +24,6 @@     [ fmap (("WillReplace",) . toJSON . fmap Bool') _autoScalingReplacingUpdatePolicyWillReplace     ] -instance FromJSON AutoScalingReplacingUpdatePolicy where-  parseJSON (Object obj) =-    AutoScalingReplacingUpdatePolicy <$>-      fmap (fmap (fmap unBool')) (obj .:? "WillReplace")-  parseJSON _ = mempty- -- | Constructor for 'AutoScalingReplacingUpdatePolicy' containing required fields -- as arguments. autoScalingReplacingUpdatePolicy
library/Stratosphere/ResourceAttributes/AutoScalingRollingUpdatePolicy.hs view
@@ -34,17 +34,6 @@     , fmap (("WaitOnResourceSignals",) . toJSON . fmap Bool') _autoScalingRollingUpdatePolicyWaitOnResourceSignals     ] -instance FromJSON AutoScalingRollingUpdatePolicy where-  parseJSON (Object obj) =-    AutoScalingRollingUpdatePolicy <$>-      fmap (fmap (fmap unInteger')) (obj .:? "MaxBatchSize") <*>-      fmap (fmap (fmap unInteger')) (obj .:? "MinInstancesInService") <*>-      fmap (fmap (fmap unInteger')) (obj .:? "MinSuccessfulInstancesPercent") <*>-      (obj .:? "PauseTime") <*>-      (obj .:? "SuspendProcesses") <*>-      fmap (fmap (fmap unBool')) (obj .:? "WaitOnResourceSignals")-  parseJSON _ = mempty- -- | Constructor for 'AutoScalingRollingUpdatePolicy' containing required fields as -- arguments. autoScalingRollingUpdatePolicy
library/Stratosphere/ResourceAttributes/AutoScalingScheduledActionPolicy.hs view
@@ -37,12 +37,6 @@     [ fmap (("IgnoreUnmodifiedGroupSizeProperties",) . toJSON . fmap Bool') _autoScalingScheduledActionPolicyIgnoreUnmodifiedGroupSizeProperties     ] -instance FromJSON AutoScalingScheduledActionPolicy where-  parseJSON (Object obj) =-    AutoScalingScheduledActionPolicy <$>-      fmap (fmap (fmap unBool')) (obj .:? "IgnoreUnmodifiedGroupSizeProperties")-  parseJSON _ = mempty- -- | Constructor for 'AutoScalingScheduledActionPolicy' containing required fields -- as arguments. autoScalingScheduledActionPolicy
library/Stratosphere/ResourceAttributes/CreationPolicy.hs view
@@ -36,9 +36,6 @@ instance ToJSON CreationPolicy where   toJSON = genericToJSON defaultOptions { fieldLabelModifier = Prelude.drop 15, omitNothingFields = True } -instance FromJSON CreationPolicy where-  parseJSON = genericParseJSON defaultOptions { fieldLabelModifier = Prelude.drop 15, omitNothingFields = True }- -- | Constructor for 'CreationPolicy' containing required fields as arguments. creationPolicy   :: ResourceSignal -- ^ 'cpResourceSignal'
library/Stratosphere/ResourceAttributes/ResourceSignal.hs view
@@ -25,13 +25,6 @@     , fmap (("Timeout",) . toJSON) _resourceSignalTimeout     ] -instance FromJSON ResourceSignal where-  parseJSON (Object obj) =-    ResourceSignal <$>-      fmap (fmap (fmap unInteger')) (obj .:? "Count") <*>-      (obj .:? "Timeout")-  parseJSON _ = mempty- -- | Constructor for 'ResourceSignal' containing required fields as arguments. resourceSignal   :: ResourceSignal
library/Stratosphere/ResourceAttributes/UpdatePolicy.hs view
@@ -27,9 +27,6 @@ instance ToJSON UpdatePolicy where   toJSON = genericToJSON defaultOptions { fieldLabelModifier = Prelude.drop 13, omitNothingFields = True } -instance FromJSON UpdatePolicy where-  parseJSON = genericParseJSON defaultOptions { fieldLabelModifier = Prelude.drop 13, omitNothingFields = True }- -- | Constructor for 'UpdatePolicy' containing required fields as arguments. updatePolicy   :: UpdatePolicy
library/Stratosphere/Template.hs view
@@ -82,8 +82,8 @@   } deriving (Show, Eq)  -$(deriveJSON defaultOptions { fieldLabelModifier = modTemplateJSONField-                            , omitNothingFields = True } ''Template)+$(deriveToJSON defaultOptions { fieldLabelModifier = modTemplateJSONField+                              , omitNothingFields = True } ''Template) $(makeLenses ''Template)  -- | Convenient constructor for 'Template' with required arguments.
library/Stratosphere/Types.hs view
@@ -26,14 +26,14 @@   ) where  import Data.Aeson-import Data.Text (Text, unpack)+import Data.Text (Text) import GHC.Generics   data EnabledState   = ENABLED   | DISABLED-  deriving (Show, Read, Eq, Generic, FromJSON, ToJSON)+  deriving (Show, Read, Eq, Generic, ToJSON)  -- https://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-apigateway-authorizer.html#cfn-apigateway-authorizer-type data AuthorizerType@@ -41,24 +41,16 @@   | COGNITO_USER_POOLS_AUTH   deriving (Show, Read, Eq) -instance FromJSON AuthorizerType where-  parseJSON = withText "AuthorizerType" parse-    where-      parse "TOKEN"               = pure TOKEN_AUTH-      parse "COGNITO_USER_POOLS"  = pure COGNITO_USER_POOLS_AUTH-      parse authorizerType = fail ("Unexpected authorizer type " ++ unpack authorizerType)- instance ToJSON AuthorizerType where   toJSON TOKEN_AUTH               = String "TOKEN"   toJSON COGNITO_USER_POOLS_AUTH  = String "COGNITO_USER_POOLS" - data AuthorizationType   = NONE   | AWS_IAM   | CUSTOM   | COGNITO_USER_POOLS-  deriving (Show, Read, Eq, Generic, FromJSON, ToJSON)+  deriving (Show, Read, Eq, Generic, ToJSON)  data HttpMethod   = GET@@ -67,13 +59,13 @@   | HEAD   | DELETE   | OPTIONS-  deriving (Show, Read, Eq, Generic, FromJSON, ToJSON)+  deriving (Show, Read, Eq, Generic, ToJSON)  data LoggingLevel   = OFF   | ERROR   | INFO-  deriving (Show, Read, Eq, Generic, FromJSON, ToJSON)+  deriving (Show, Read, Eq, Generic, ToJSON)  data ApiBackendType   = HTTP@@ -81,25 +73,24 @@   | MOCK   | HTTP_PROXY   | AWS_PROXY-  deriving (Show, Read, Eq, Generic, FromJSON, ToJSON)+  deriving (Show, Read, Eq, Generic, ToJSON)  data Period   = DAY   | WEEK   | MONTH-  deriving (Show, Read, Eq, Generic, FromJSON, ToJSON)+  deriving (Show, Read, Eq, Generic, ToJSON)  data AttributeType   = S   | N   | B-  deriving (Show, Read, Eq, Generic, FromJSON, ToJSON)+  deriving (Show, Read, Eq, Generic, ToJSON)  data KeyType   = HASH   | RANGE-  deriving (Show, Read, Eq, Generic, FromJSON, ToJSON)-+  deriving (Show, Read, Eq, Generic, ToJSON)  data ProjectionType   = ProjectKeysOnly@@ -107,26 +98,17 @@   | ProjectAll   deriving (Show, Read, Eq, Generic) -instance FromJSON ProjectionType where-  parseJSON = withText "ProjectionType" parse-    where-      parse "KEYS_ONLY"     = pure ProjectKeysOnly-      parse "INCLUDE"       = pure ProjectIncluded-      parse "ALL"           = pure ProjectAll-      parse projectionType  = fail ("Unexpected projection type " ++ unpack projectionType)- instance ToJSON ProjectionType where   toJSON ProjectKeysOnly = String "KEYS_ONLY"   toJSON ProjectIncluded = String "INCLUDE"   toJSON ProjectAll      = String "ALL" - data StreamViewType   = KEYS_ONLY   | NEW_IMAGE   | OLD_IMAGE   | NEW_AND_OLD_IMAGES-  deriving (Show, Read, Eq, Generic, FromJSON, ToJSON)+  deriving (Show, Read, Eq, Generic, ToJSON)  data SNSProtocol   = SnsHttp@@ -139,20 +121,6 @@   | SnsLambda   deriving (Show, Read, Eq, Generic) --instance FromJSON SNSProtocol where-  parseJSON = withText "SNSProtocol" parse-    where-      parse "http"        = pure SnsHttp-      parse "https"       = pure SnsHttps-      parse "email"       = pure SnsEmail-      parse "email-json"  = pure SnsEmailJson-      parse "sms"         = pure SnsSms-      parse "sqs"         = pure SnsSqs-      parse "application" = pure SnsApplication-      parse "lambda"      = pure SnsLambda-      parse protocol = fail ("Unexpected SNS protocol " ++ unpack protocol)- instance ToJSON SNSProtocol where   toJSON SnsHttp        = String "http"   toJSON SnsHttps       = String "https"@@ -184,22 +152,6 @@   | OtherRuntime Text   deriving (Show, Read, Eq, Generic) -instance FromJSON Runtime where-  parseJSON = withText "Runtime" parse-    where-      parse "nodejs" = pure NodeJS-      parse "nodejs4.3" = pure NodeJS43-      parse "nodejs4.3-edge" = pure NodeJS43Edge-      parse "nodejs6.10" = pure NodeJS610-      parse "nodejs8.10" = pure NodeJS810-      parse "java8" = pure Java8-      parse "python2.7" = pure Python27-      parse "python3.6" = pure Python36-      parse "dotnetcore1.0" = pure DotNetCore10-      parse "dotnetcore2.0" = pure DotNetCore20-      parse "go1.x" = pure Go1X-      parse runtime = pure $ OtherRuntime runtime- instance ToJSON Runtime where   toJSON NodeJS = String "nodejs"   toJSON NodeJS43 = String "nodejs4.3"@@ -220,7 +172,7 @@   = WHEN_NO_MATCH   | WHEN_NO_TEMPLATES   | NEVER-  deriving (Show, Read, Eq, Generic, FromJSON, ToJSON)+  deriving (Show, Read, Eq, Generic, ToJSON)  -- | Amazon S3 supports a set of predefined grants, known as canned ACLs. Each -- canned ACL has a predefined a set of grantees and permissions. The following@@ -236,7 +188,7 @@   | Private   | PublicRead   | PublicReadWrite-  deriving (Show, Read, Eq, Generic, FromJSON, ToJSON)+  deriving (Show, Read, Eq, Generic, ToJSON)  -- | See: -- http://docs.aws.amazon.com/firehose/latest/APIReference/API_S3DestinationConfiguration.html@@ -254,17 +206,6 @@   toJSON KFS3Zip          = String "ZIP"   toJSON KFS3Snappy       = String "SNAPPY" --instance FromJSON KinesisFirehoseS3CompressionFormat where-  parseJSON = withText "KinesisFirehoseS3CompressionFormat" parse-    where-      parse "UNCOMPRESSED" = pure KFS3Uncompressed-      parse "GZIP"         = pure KFS3Gzip-      parse "ZIP"          = pure KFS3Zip-      parse "SNAPPY"       = pure KFS3Snappy-      parse fmt            = fail ("Unexpected compression format " ++ unpack fmt)-- -- | See: -- http://docs.aws.amazon.com/firehose/latest/APIReference/API_ElasticsearchDestinationConfiguration.html data KinesisFirehoseElasticsearchS3BackupMode@@ -277,15 +218,6 @@   toJSON KFS3FailedDocumentsOnly = String "FailedDocumentsOnly"   toJSON KFS3AllDocuments        = String "AllDocuments" --instance FromJSON KinesisFirehoseElasticsearchS3BackupMode where-  parseJSON = withText "KinesisFirehoseElasticsearchS3BackupMode" parse-    where-      parse "FailedDocumentsOnly" = pure KFS3FailedDocumentsOnly-      parse "AllDocuments"        = pure KFS3AllDocuments-      parse t                     = fail ("Unexpected S3 backup mode " ++ unpack t)-- -- | See: -- http://docs.aws.amazon.com/firehose/latest/APIReference/API_EncryptionConfiguration.html data KinesisFirehoseNoEncryptionConfig = KinesisFirehoseNoEncryptionConfig@@ -294,10 +226,3 @@  instance ToJSON KinesisFirehoseNoEncryptionConfig where   toJSON _ = String "NoEncryption"---instance FromJSON KinesisFirehoseNoEncryptionConfig where-  parseJSON = withText "KinesisFirehoseNoEncryptionConfig" parse-    where-      parse "NoEncryption" = pure KinesisFirehoseNoEncryptionConfig-      parse t              = fail ("Unexpected no encryption config value " ++ unpack t)
library/Stratosphere/Values.hs view
@@ -18,13 +18,13 @@  import Data.Aeson import Data.HashMap.Strict (HashMap)-import qualified Data.HashMap.Strict as HM import Data.String (IsString (..)) import Data.Text (Text)-import Text.Read (readMaybe) import GHC.Exts (IsList(..)) --- GADTs are cool, but I couldn't get this to work with FromJSON+-- GADTs are cool, but I couldn't get this to work with FromJSON. Now that we+-- don't have FromJSON though, we can revisit this.+ -- data Val a where --   Literal :: a -> Val a --   Ref :: Text -> Val a@@ -88,31 +88,6 @@ mkFunc :: Text -> [Value] -> Value mkFunc name args = object [(name, Array $ fromList args)] -instance (FromJSON a) => FromJSON (Val a) where-  parseJSON (Object o) =-    case HM.toList o of-      [] -> fail "Empty object as Val"-      [("Ref", o')] -> Ref <$> parseJSON o'-      [("Fn::If", o')] -> (\(i, x, y) -> If i x y) <$> parseJSON o'-      [("Fn::And", o')] -> (\(x, y) -> And (unBool' <$> x) (unBool' <$> y)) <$> parseJSON o'-      [("Fn::Equals", o')] -> uncurry Equals <$> parseJSON o'-      [("Fn::Or", o')] -> (\(x, y) -> Or (unBool' <$> x) (unBool' <$> y)) <$> parseJSON o'-      [("Fn::GetAtt", o')] -> uncurry GetAtt <$> parseJSON o'-      [("Fn::Base64", o')] -> Base64 <$> parseJSON o'-      [("Fn::Join", o')] -> uncurry Join <$> parseJSON o'-      [("Fn::Select", o')] -> (\(x, y) -> Select (unInteger' x) y) <$> parseJSON o'-      [("Fn::FindInMap", o')] -> do-        (mapName, topKey, secondKey) <- parseJSON o'-        return (FindInMap mapName topKey secondKey)-      [("Fn::ImportValue", o')] -> ImportValue <$> parseJSON o'-      [("Fn::Sub", vals)] ->-        case vals of-          (String s) -> return $ Sub s Nothing-          otherwise' -> uncurry Sub <$> parseJSON otherwise'-      [(n, o')] -> Literal <$> parseJSON (object [(n, o')])-      os -> Literal <$> parseJSON (object os)-  parseJSON v = Literal <$> parseJSON v- -- | 'ValList' is like 'Val', except it is used in place of lists of Vals in -- templates. For example, if you have a parameter called @SubnetIds@ of type -- @List<AWS::EC2::Subnet::Id>@ then, you can use @RefList "SubnetIds"@ to@@ -146,17 +121,6 @@   toJSON (Split d s) = mkFunc "Fn::Split" [toJSON d, toJSON s]   toJSON (GetAZs r) = object [("Fn::GetAZs", toJSON r)] -instance (FromJSON a) => FromJSON (ValList a) where-  parseJSON a@(Array _) = ValList <$> parseJSON a-  parseJSON (Object o) =-    case HM.toList o of-      [("Ref", o')] -> RefList <$> parseJSON o'-      [("Fn::ImportValue", o')] -> ImportValueList <$> parseJSON o'-      [("Fn::Split", o')] -> uncurry Split <$> parseJSON o'-      [("Fn::GetAZs", o')] -> GetAZs <$> parseJSON o'-      _ -> fail "Could not parse object into RefList"-  parseJSON _ = fail "Expected Array or Object for ValList in parseJSON"- -- | We need to wrap integers so we can override the Aeson type-classes. This -- is necessary because CloudFront made the silly decision to represent numbers -- as JSON strings.@@ -166,13 +130,6 @@ instance ToJSON Integer' where   toJSON (Integer' i) = toJSON $ show i -instance FromJSON Integer' where-  parseJSON v = Integer' <$> do-    numString <- parseJSON v-    case readMaybe (numString :: String) of-      Nothing -> fail "Can't read number from string"-      (Just n) -> return n- -- | We need to wrap Bools for the same reason we need to wrap Ints. newtype Bool' = Bool' { unBool' :: Bool }   deriving (Show, Bounded, Enum, Eq, Ord)@@ -181,14 +138,6 @@   toJSON (Bool' True) = "true"   toJSON (Bool' False) = "false" -instance FromJSON Bool' where-  parseJSON v = do-    string <- parseJSON v-    case string of-      "true" -> return (Bool' True)-      "false" -> return (Bool' False)-      _ -> fail $ "Unknown bool string " ++ string- -- | Class used to create a 'Ref' from another type. class ToRef a b where   toRef :: a -> Val b@@ -199,10 +148,3 @@  instance ToJSON Double' where   toJSON (Double' i) = toJSON $ show i--instance FromJSON Double' where-  parseJSON v = Double' <$> do-    numString <- parseJSON v-    case readMaybe (numString :: String) of-      Nothing -> fail "Can't read number from string"-      (Just n) -> return n
stratosphere.cabal view
@@ -4,10 +4,10 @@ -- -- see: https://github.com/sol/hpack ----- hash: 1b39c35a049bf62220d11130ca8043229817186cc4af03e3f7be35aeb3519779+-- hash: e12fa823bbfa5eea3d5d782df67bf0c2196b69e40d7b58f656b038b178d6fee8  name:           stratosphere-version:        0.31.0+version:        0.32.0 synopsis:       EDSL for AWS CloudFormation description:    EDSL for AWS CloudFormation category:       AWS, Cloud
tests/Stratosphere/ValuesSpec.hs view
@@ -14,15 +14,6 @@ spec :: Spec spec = do   describe "Val/ValList JSON instances" $ do-    it "is idempotent for Sub" $ do-      idempotentJSON (sub "MyString")-      idempotentJSON (Sub "${Greeting} ${Name}" (Just []) :: Val Text)-      let-        values =-          [ ("Greeting", "Hello")-          , ("Name", "Bob")-          ]-      idempotentJSON (Sub "${Greeting} ${Name}" (Just values) :: Val Text)      it "Ref and RefList produce the same JSON" $ do       toJSON (Ref "MyVal" :: Val Text) `shouldBe` toJSON (RefList "MyVal" :: ValList Text)@@ -48,6 +39,3 @@             , Literal 3             ]       fmap (+1) input `shouldBe` expected--idempotentJSON :: (ToJSON a, FromJSON a, Show a, Eq a) => a -> Expectation-idempotentJSON x = decode (encode x) `shouldBe` Just x