packages feed

stratosphere 0.38.0 → 0.39.0

raw patch · 131 files changed

+6497/−42 lines, 131 files

Files

CHANGELOG.md view
@@ -1,5 +1,9 @@ # Change Log +## 0.39.0++* Update resource specification document to version 3.4.0+ ## 0.38.0  * Update resource specification document to version 3.3.0
examples/rds-master-replica.hs view
@@ -45,10 +45,9 @@   & rdsdbiMasterUserPassword ?~ Ref "RdsMasterPassword"   & rdsdbiDBName ?~ "the_database"   & rdsdbiPreferredMaintenanceWindow ?~ "Sun:01:00-Sun:02:00"-  & rdsdbiBackupRetentionPeriod ?~ "30"+  & rdsdbiBackupRetentionPeriod ?~ Literal 30   & rdsdbiPreferredBackupWindow ?~ "08:00-09:00"   & rdsdbiPort ?~ "5432"-  & rdsdbiBackupRetentionPeriod ?~ "2"   & rdsdbiTags ?~   [ tag "Role" "rds-master"   ]
+ library-gen/Stratosphere/ResourceProperties/AmplifyAppBasicAuthConfig.hs view
@@ -0,0 +1,54 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-amplify-app-basicauthconfig.html++module Stratosphere.ResourceProperties.AmplifyAppBasicAuthConfig where++import Stratosphere.ResourceImports+++-- | Full data type definition for AmplifyAppBasicAuthConfig. See+-- 'amplifyAppBasicAuthConfig' for a more convenient constructor.+data AmplifyAppBasicAuthConfig =+  AmplifyAppBasicAuthConfig+  { _amplifyAppBasicAuthConfigEnableBasicAuth :: Maybe (Val Bool)+  , _amplifyAppBasicAuthConfigPassword :: Val Text+  , _amplifyAppBasicAuthConfigUsername :: Val Text+  } deriving (Show, Eq)++instance ToJSON AmplifyAppBasicAuthConfig where+  toJSON AmplifyAppBasicAuthConfig{..} =+    object $+    catMaybes+    [ fmap (("EnableBasicAuth",) . toJSON) _amplifyAppBasicAuthConfigEnableBasicAuth+    , (Just . ("Password",) . toJSON) _amplifyAppBasicAuthConfigPassword+    , (Just . ("Username",) . toJSON) _amplifyAppBasicAuthConfigUsername+    ]++-- | Constructor for 'AmplifyAppBasicAuthConfig' containing required fields as+-- arguments.+amplifyAppBasicAuthConfig+  :: Val Text -- ^ 'aabacPassword'+  -> Val Text -- ^ 'aabacUsername'+  -> AmplifyAppBasicAuthConfig+amplifyAppBasicAuthConfig passwordarg usernamearg =+  AmplifyAppBasicAuthConfig+  { _amplifyAppBasicAuthConfigEnableBasicAuth = Nothing+  , _amplifyAppBasicAuthConfigPassword = passwordarg+  , _amplifyAppBasicAuthConfigUsername = usernamearg+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-amplify-app-basicauthconfig.html#cfn-amplify-app-basicauthconfig-enablebasicauth+aabacEnableBasicAuth :: Lens' AmplifyAppBasicAuthConfig (Maybe (Val Bool))+aabacEnableBasicAuth = lens _amplifyAppBasicAuthConfigEnableBasicAuth (\s a -> s { _amplifyAppBasicAuthConfigEnableBasicAuth = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-amplify-app-basicauthconfig.html#cfn-amplify-app-basicauthconfig-password+aabacPassword :: Lens' AmplifyAppBasicAuthConfig (Val Text)+aabacPassword = lens _amplifyAppBasicAuthConfigPassword (\s a -> s { _amplifyAppBasicAuthConfigPassword = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-amplify-app-basicauthconfig.html#cfn-amplify-app-basicauthconfig-username+aabacUsername :: Lens' AmplifyAppBasicAuthConfig (Val Text)+aabacUsername = lens _amplifyAppBasicAuthConfigUsername (\s a -> s { _amplifyAppBasicAuthConfigUsername = a })
+ library-gen/Stratosphere/ResourceProperties/AmplifyAppCustomRule.hs view
@@ -0,0 +1,61 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-amplify-app-customrule.html++module Stratosphere.ResourceProperties.AmplifyAppCustomRule where++import Stratosphere.ResourceImports+++-- | Full data type definition for AmplifyAppCustomRule. See+-- 'amplifyAppCustomRule' for a more convenient constructor.+data AmplifyAppCustomRule =+  AmplifyAppCustomRule+  { _amplifyAppCustomRuleCondition :: Maybe (Val Text)+  , _amplifyAppCustomRuleSource :: Val Text+  , _amplifyAppCustomRuleStatus :: Maybe (Val Text)+  , _amplifyAppCustomRuleTarget :: Val Text+  } deriving (Show, Eq)++instance ToJSON AmplifyAppCustomRule where+  toJSON AmplifyAppCustomRule{..} =+    object $+    catMaybes+    [ fmap (("Condition",) . toJSON) _amplifyAppCustomRuleCondition+    , (Just . ("Source",) . toJSON) _amplifyAppCustomRuleSource+    , fmap (("Status",) . toJSON) _amplifyAppCustomRuleStatus+    , (Just . ("Target",) . toJSON) _amplifyAppCustomRuleTarget+    ]++-- | Constructor for 'AmplifyAppCustomRule' containing required fields as+-- arguments.+amplifyAppCustomRule+  :: Val Text -- ^ 'aacrSource'+  -> Val Text -- ^ 'aacrTarget'+  -> AmplifyAppCustomRule+amplifyAppCustomRule sourcearg targetarg =+  AmplifyAppCustomRule+  { _amplifyAppCustomRuleCondition = Nothing+  , _amplifyAppCustomRuleSource = sourcearg+  , _amplifyAppCustomRuleStatus = Nothing+  , _amplifyAppCustomRuleTarget = targetarg+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-amplify-app-customrule.html#cfn-amplify-app-customrule-condition+aacrCondition :: Lens' AmplifyAppCustomRule (Maybe (Val Text))+aacrCondition = lens _amplifyAppCustomRuleCondition (\s a -> s { _amplifyAppCustomRuleCondition = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-amplify-app-customrule.html#cfn-amplify-app-customrule-source+aacrSource :: Lens' AmplifyAppCustomRule (Val Text)+aacrSource = lens _amplifyAppCustomRuleSource (\s a -> s { _amplifyAppCustomRuleSource = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-amplify-app-customrule.html#cfn-amplify-app-customrule-status+aacrStatus :: Lens' AmplifyAppCustomRule (Maybe (Val Text))+aacrStatus = lens _amplifyAppCustomRuleStatus (\s a -> s { _amplifyAppCustomRuleStatus = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-amplify-app-customrule.html#cfn-amplify-app-customrule-target+aacrTarget :: Lens' AmplifyAppCustomRule (Val Text)+aacrTarget = lens _amplifyAppCustomRuleTarget (\s a -> s { _amplifyAppCustomRuleTarget = a })
+ library-gen/Stratosphere/ResourceProperties/AmplifyAppEnvironmentVariable.hs view
@@ -0,0 +1,47 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-amplify-app-environmentvariable.html++module Stratosphere.ResourceProperties.AmplifyAppEnvironmentVariable where++import Stratosphere.ResourceImports+++-- | Full data type definition for AmplifyAppEnvironmentVariable. See+-- 'amplifyAppEnvironmentVariable' for a more convenient constructor.+data AmplifyAppEnvironmentVariable =+  AmplifyAppEnvironmentVariable+  { _amplifyAppEnvironmentVariableName :: Val Text+  , _amplifyAppEnvironmentVariableValue :: Val Text+  } deriving (Show, Eq)++instance ToJSON AmplifyAppEnvironmentVariable where+  toJSON AmplifyAppEnvironmentVariable{..} =+    object $+    catMaybes+    [ (Just . ("Name",) . toJSON) _amplifyAppEnvironmentVariableName+    , (Just . ("Value",) . toJSON) _amplifyAppEnvironmentVariableValue+    ]++-- | Constructor for 'AmplifyAppEnvironmentVariable' containing required+-- fields as arguments.+amplifyAppEnvironmentVariable+  :: Val Text -- ^ 'aaevName'+  -> Val Text -- ^ 'aaevValue'+  -> AmplifyAppEnvironmentVariable+amplifyAppEnvironmentVariable namearg valuearg =+  AmplifyAppEnvironmentVariable+  { _amplifyAppEnvironmentVariableName = namearg+  , _amplifyAppEnvironmentVariableValue = valuearg+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-amplify-app-environmentvariable.html#cfn-amplify-app-environmentvariable-name+aaevName :: Lens' AmplifyAppEnvironmentVariable (Val Text)+aaevName = lens _amplifyAppEnvironmentVariableName (\s a -> s { _amplifyAppEnvironmentVariableName = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-amplify-app-environmentvariable.html#cfn-amplify-app-environmentvariable-value+aaevValue :: Lens' AmplifyAppEnvironmentVariable (Val Text)+aaevValue = lens _amplifyAppEnvironmentVariableValue (\s a -> s { _amplifyAppEnvironmentVariableValue = a })
+ library-gen/Stratosphere/ResourceProperties/AmplifyAppToken.hs view
@@ -0,0 +1,47 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-amplify-app-token.html++module Stratosphere.ResourceProperties.AmplifyAppToken where++import Stratosphere.ResourceImports+++-- | Full data type definition for AmplifyAppToken. See 'amplifyAppToken' for+-- a more convenient constructor.+data AmplifyAppToken =+  AmplifyAppToken+  { _amplifyAppTokenKey :: Val Text+  , _amplifyAppTokenValue :: Val Text+  } deriving (Show, Eq)++instance ToJSON AmplifyAppToken where+  toJSON AmplifyAppToken{..} =+    object $+    catMaybes+    [ (Just . ("Key",) . toJSON) _amplifyAppTokenKey+    , (Just . ("Value",) . toJSON) _amplifyAppTokenValue+    ]++-- | Constructor for 'AmplifyAppToken' containing required fields as+-- arguments.+amplifyAppToken+  :: Val Text -- ^ 'aatKey'+  -> Val Text -- ^ 'aatValue'+  -> AmplifyAppToken+amplifyAppToken keyarg valuearg =+  AmplifyAppToken+  { _amplifyAppTokenKey = keyarg+  , _amplifyAppTokenValue = valuearg+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-amplify-app-token.html#cfn-amplify-app-token-key+aatKey :: Lens' AmplifyAppToken (Val Text)+aatKey = lens _amplifyAppTokenKey (\s a -> s { _amplifyAppTokenKey = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-amplify-app-token.html#cfn-amplify-app-token-value+aatValue :: Lens' AmplifyAppToken (Val Text)+aatValue = lens _amplifyAppTokenValue (\s a -> s { _amplifyAppTokenValue = a })
+ library-gen/Stratosphere/ResourceProperties/AmplifyBranchBasicAuthConfig.hs view
@@ -0,0 +1,54 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-amplify-branch-basicauthconfig.html++module Stratosphere.ResourceProperties.AmplifyBranchBasicAuthConfig where++import Stratosphere.ResourceImports+++-- | Full data type definition for AmplifyBranchBasicAuthConfig. See+-- 'amplifyBranchBasicAuthConfig' for a more convenient constructor.+data AmplifyBranchBasicAuthConfig =+  AmplifyBranchBasicAuthConfig+  { _amplifyBranchBasicAuthConfigEnableBasicAuth :: Maybe (Val Bool)+  , _amplifyBranchBasicAuthConfigPassword :: Val Text+  , _amplifyBranchBasicAuthConfigUsername :: Val Text+  } deriving (Show, Eq)++instance ToJSON AmplifyBranchBasicAuthConfig where+  toJSON AmplifyBranchBasicAuthConfig{..} =+    object $+    catMaybes+    [ fmap (("EnableBasicAuth",) . toJSON) _amplifyBranchBasicAuthConfigEnableBasicAuth+    , (Just . ("Password",) . toJSON) _amplifyBranchBasicAuthConfigPassword+    , (Just . ("Username",) . toJSON) _amplifyBranchBasicAuthConfigUsername+    ]++-- | Constructor for 'AmplifyBranchBasicAuthConfig' containing required fields+-- as arguments.+amplifyBranchBasicAuthConfig+  :: Val Text -- ^ 'abbacPassword'+  -> Val Text -- ^ 'abbacUsername'+  -> AmplifyBranchBasicAuthConfig+amplifyBranchBasicAuthConfig passwordarg usernamearg =+  AmplifyBranchBasicAuthConfig+  { _amplifyBranchBasicAuthConfigEnableBasicAuth = Nothing+  , _amplifyBranchBasicAuthConfigPassword = passwordarg+  , _amplifyBranchBasicAuthConfigUsername = usernamearg+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-amplify-branch-basicauthconfig.html#cfn-amplify-branch-basicauthconfig-enablebasicauth+abbacEnableBasicAuth :: Lens' AmplifyBranchBasicAuthConfig (Maybe (Val Bool))+abbacEnableBasicAuth = lens _amplifyBranchBasicAuthConfigEnableBasicAuth (\s a -> s { _amplifyBranchBasicAuthConfigEnableBasicAuth = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-amplify-branch-basicauthconfig.html#cfn-amplify-branch-basicauthconfig-password+abbacPassword :: Lens' AmplifyBranchBasicAuthConfig (Val Text)+abbacPassword = lens _amplifyBranchBasicAuthConfigPassword (\s a -> s { _amplifyBranchBasicAuthConfigPassword = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-amplify-branch-basicauthconfig.html#cfn-amplify-branch-basicauthconfig-username+abbacUsername :: Lens' AmplifyBranchBasicAuthConfig (Val Text)+abbacUsername = lens _amplifyBranchBasicAuthConfigUsername (\s a -> s { _amplifyBranchBasicAuthConfigUsername = a })
+ library-gen/Stratosphere/ResourceProperties/AmplifyBranchEnvironmentVariable.hs view
@@ -0,0 +1,47 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-amplify-branch-environmentvariable.html++module Stratosphere.ResourceProperties.AmplifyBranchEnvironmentVariable where++import Stratosphere.ResourceImports+++-- | Full data type definition for AmplifyBranchEnvironmentVariable. See+-- 'amplifyBranchEnvironmentVariable' for a more convenient constructor.+data AmplifyBranchEnvironmentVariable =+  AmplifyBranchEnvironmentVariable+  { _amplifyBranchEnvironmentVariableName :: Val Text+  , _amplifyBranchEnvironmentVariableValue :: Val Text+  } deriving (Show, Eq)++instance ToJSON AmplifyBranchEnvironmentVariable where+  toJSON AmplifyBranchEnvironmentVariable{..} =+    object $+    catMaybes+    [ (Just . ("Name",) . toJSON) _amplifyBranchEnvironmentVariableName+    , (Just . ("Value",) . toJSON) _amplifyBranchEnvironmentVariableValue+    ]++-- | Constructor for 'AmplifyBranchEnvironmentVariable' containing required+-- fields as arguments.+amplifyBranchEnvironmentVariable+  :: Val Text -- ^ 'abevName'+  -> Val Text -- ^ 'abevValue'+  -> AmplifyBranchEnvironmentVariable+amplifyBranchEnvironmentVariable namearg valuearg =+  AmplifyBranchEnvironmentVariable+  { _amplifyBranchEnvironmentVariableName = namearg+  , _amplifyBranchEnvironmentVariableValue = valuearg+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-amplify-branch-environmentvariable.html#cfn-amplify-branch-environmentvariable-name+abevName :: Lens' AmplifyBranchEnvironmentVariable (Val Text)+abevName = lens _amplifyBranchEnvironmentVariableName (\s a -> s { _amplifyBranchEnvironmentVariableName = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-amplify-branch-environmentvariable.html#cfn-amplify-branch-environmentvariable-value+abevValue :: Lens' AmplifyBranchEnvironmentVariable (Val Text)+abevValue = lens _amplifyBranchEnvironmentVariableValue (\s a -> s { _amplifyBranchEnvironmentVariableValue = a })
+ library-gen/Stratosphere/ResourceProperties/AmplifyDomainSubDomainSetting.hs view
@@ -0,0 +1,47 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-amplify-domain-subdomainsetting.html++module Stratosphere.ResourceProperties.AmplifyDomainSubDomainSetting where++import Stratosphere.ResourceImports+++-- | Full data type definition for AmplifyDomainSubDomainSetting. See+-- 'amplifyDomainSubDomainSetting' for a more convenient constructor.+data AmplifyDomainSubDomainSetting =+  AmplifyDomainSubDomainSetting+  { _amplifyDomainSubDomainSettingBranchName :: Val Text+  , _amplifyDomainSubDomainSettingPrefix :: Val Text+  } deriving (Show, Eq)++instance ToJSON AmplifyDomainSubDomainSetting where+  toJSON AmplifyDomainSubDomainSetting{..} =+    object $+    catMaybes+    [ (Just . ("BranchName",) . toJSON) _amplifyDomainSubDomainSettingBranchName+    , (Just . ("Prefix",) . toJSON) _amplifyDomainSubDomainSettingPrefix+    ]++-- | Constructor for 'AmplifyDomainSubDomainSetting' containing required+-- fields as arguments.+amplifyDomainSubDomainSetting+  :: Val Text -- ^ 'adsdsBranchName'+  -> Val Text -- ^ 'adsdsPrefix'+  -> AmplifyDomainSubDomainSetting+amplifyDomainSubDomainSetting branchNamearg prefixarg =+  AmplifyDomainSubDomainSetting+  { _amplifyDomainSubDomainSettingBranchName = branchNamearg+  , _amplifyDomainSubDomainSettingPrefix = prefixarg+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-amplify-domain-subdomainsetting.html#cfn-amplify-domain-subdomainsetting-branchname+adsdsBranchName :: Lens' AmplifyDomainSubDomainSetting (Val Text)+adsdsBranchName = lens _amplifyDomainSubDomainSettingBranchName (\s a -> s { _amplifyDomainSubDomainSettingBranchName = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-amplify-domain-subdomainsetting.html#cfn-amplify-domain-subdomainsetting-prefix+adsdsPrefix :: Lens' AmplifyDomainSubDomainSetting (Val Text)+adsdsPrefix = lens _amplifyDomainSubDomainSettingPrefix (\s a -> s { _amplifyDomainSubDomainSettingPrefix = a })
library-gen/Stratosphere/ResourceProperties/AppMeshVirtualNodeServiceDiscovery.hs view
@@ -14,26 +14,25 @@ -- 'appMeshVirtualNodeServiceDiscovery' for a more convenient constructor. data AppMeshVirtualNodeServiceDiscovery =   AppMeshVirtualNodeServiceDiscovery-  { _appMeshVirtualNodeServiceDiscoveryDNS :: AppMeshVirtualNodeDnsServiceDiscovery+  { _appMeshVirtualNodeServiceDiscoveryDNS :: Maybe AppMeshVirtualNodeDnsServiceDiscovery   } deriving (Show, Eq)  instance ToJSON AppMeshVirtualNodeServiceDiscovery where   toJSON AppMeshVirtualNodeServiceDiscovery{..} =     object $     catMaybes-    [ (Just . ("DNS",) . toJSON) _appMeshVirtualNodeServiceDiscoveryDNS+    [ fmap (("DNS",) . toJSON) _appMeshVirtualNodeServiceDiscoveryDNS     ]  -- | Constructor for 'AppMeshVirtualNodeServiceDiscovery' containing required -- fields as arguments. appMeshVirtualNodeServiceDiscovery-  :: AppMeshVirtualNodeDnsServiceDiscovery -- ^ 'amvnsdDNS'-  -> AppMeshVirtualNodeServiceDiscovery-appMeshVirtualNodeServiceDiscovery dNSarg =+  :: AppMeshVirtualNodeServiceDiscovery+appMeshVirtualNodeServiceDiscovery  =   AppMeshVirtualNodeServiceDiscovery-  { _appMeshVirtualNodeServiceDiscoveryDNS = dNSarg+  { _appMeshVirtualNodeServiceDiscoveryDNS = Nothing   }  -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appmesh-virtualnode-servicediscovery.html#cfn-appmesh-virtualnode-servicediscovery-dns-amvnsdDNS :: Lens' AppMeshVirtualNodeServiceDiscovery AppMeshVirtualNodeDnsServiceDiscovery+amvnsdDNS :: Lens' AppMeshVirtualNodeServiceDiscovery (Maybe AppMeshVirtualNodeDnsServiceDiscovery) amvnsdDNS = lens _appMeshVirtualNodeServiceDiscoveryDNS (\s a -> s { _appMeshVirtualNodeServiceDiscoveryDNS = a })
+ library-gen/Stratosphere/ResourceProperties/DLMLifecyclePolicyParameters.hs view
@@ -0,0 +1,38 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-dlm-lifecyclepolicy-parameters.html++module Stratosphere.ResourceProperties.DLMLifecyclePolicyParameters where++import Stratosphere.ResourceImports+++-- | Full data type definition for DLMLifecyclePolicyParameters. See+-- 'dlmLifecyclePolicyParameters' for a more convenient constructor.+data DLMLifecyclePolicyParameters =+  DLMLifecyclePolicyParameters+  { _dLMLifecyclePolicyParametersExcludeBootVolume :: Maybe (Val Bool)+  } deriving (Show, Eq)++instance ToJSON DLMLifecyclePolicyParameters where+  toJSON DLMLifecyclePolicyParameters{..} =+    object $+    catMaybes+    [ fmap (("ExcludeBootVolume",) . toJSON) _dLMLifecyclePolicyParametersExcludeBootVolume+    ]++-- | Constructor for 'DLMLifecyclePolicyParameters' containing required fields+-- as arguments.+dlmLifecyclePolicyParameters+  :: DLMLifecyclePolicyParameters+dlmLifecyclePolicyParameters  =+  DLMLifecyclePolicyParameters+  { _dLMLifecyclePolicyParametersExcludeBootVolume = Nothing+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-dlm-lifecyclepolicy-parameters.html#cfn-dlm-lifecyclepolicy-parameters-excludebootvolume+dlmlppExcludeBootVolume :: Lens' DLMLifecyclePolicyParameters (Maybe (Val Bool))+dlmlppExcludeBootVolume = lens _dLMLifecyclePolicyParametersExcludeBootVolume (\s a -> s { _dLMLifecyclePolicyParametersExcludeBootVolume = a })
library-gen/Stratosphere/ResourceProperties/DLMLifecyclePolicyPolicyDetails.hs view
@@ -8,6 +8,7 @@ module Stratosphere.ResourceProperties.DLMLifecyclePolicyPolicyDetails where  import Stratosphere.ResourceImports+import Stratosphere.ResourceProperties.DLMLifecyclePolicyParameters import Stratosphere.ResourceProperties.DLMLifecyclePolicySchedule import Stratosphere.ResourceProperties.Tag @@ -15,7 +16,9 @@ -- 'dlmLifecyclePolicyPolicyDetails' for a more convenient constructor. data DLMLifecyclePolicyPolicyDetails =   DLMLifecyclePolicyPolicyDetails-  { _dLMLifecyclePolicyPolicyDetailsResourceTypes :: Maybe (ValList Text)+  { _dLMLifecyclePolicyPolicyDetailsParameters :: Maybe DLMLifecyclePolicyParameters+  , _dLMLifecyclePolicyPolicyDetailsPolicyType :: Maybe (Val Text)+  , _dLMLifecyclePolicyPolicyDetailsResourceTypes :: Maybe (ValList Text)   , _dLMLifecyclePolicyPolicyDetailsSchedules :: Maybe [DLMLifecyclePolicySchedule]   , _dLMLifecyclePolicyPolicyDetailsTargetTags :: Maybe [Tag]   } deriving (Show, Eq)@@ -24,7 +27,9 @@   toJSON DLMLifecyclePolicyPolicyDetails{..} =     object $     catMaybes-    [ fmap (("ResourceTypes",) . toJSON) _dLMLifecyclePolicyPolicyDetailsResourceTypes+    [ fmap (("Parameters",) . toJSON) _dLMLifecyclePolicyPolicyDetailsParameters+    , fmap (("PolicyType",) . toJSON) _dLMLifecyclePolicyPolicyDetailsPolicyType+    , fmap (("ResourceTypes",) . toJSON) _dLMLifecyclePolicyPolicyDetailsResourceTypes     , fmap (("Schedules",) . toJSON) _dLMLifecyclePolicyPolicyDetailsSchedules     , fmap (("TargetTags",) . toJSON) _dLMLifecyclePolicyPolicyDetailsTargetTags     ]@@ -35,10 +40,20 @@   :: DLMLifecyclePolicyPolicyDetails dlmLifecyclePolicyPolicyDetails  =   DLMLifecyclePolicyPolicyDetails-  { _dLMLifecyclePolicyPolicyDetailsResourceTypes = Nothing+  { _dLMLifecyclePolicyPolicyDetailsParameters = Nothing+  , _dLMLifecyclePolicyPolicyDetailsPolicyType = Nothing+  , _dLMLifecyclePolicyPolicyDetailsResourceTypes = Nothing   , _dLMLifecyclePolicyPolicyDetailsSchedules = Nothing   , _dLMLifecyclePolicyPolicyDetailsTargetTags = Nothing   }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-dlm-lifecyclepolicy-policydetails.html#cfn-dlm-lifecyclepolicy-policydetails-parameters+dlmlppdParameters :: Lens' DLMLifecyclePolicyPolicyDetails (Maybe DLMLifecyclePolicyParameters)+dlmlppdParameters = lens _dLMLifecyclePolicyPolicyDetailsParameters (\s a -> s { _dLMLifecyclePolicyPolicyDetailsParameters = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-dlm-lifecyclepolicy-policydetails.html#cfn-dlm-lifecyclepolicy-policydetails-policytype+dlmlppdPolicyType :: Lens' DLMLifecyclePolicyPolicyDetails (Maybe (Val Text))+dlmlppdPolicyType = lens _dLMLifecyclePolicyPolicyDetailsPolicyType (\s a -> s { _dLMLifecyclePolicyPolicyDetailsPolicyType = a })  -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-dlm-lifecyclepolicy-policydetails.html#cfn-dlm-lifecyclepolicy-policydetails-resourcetypes dlmlppdResourceTypes :: Lens' DLMLifecyclePolicyPolicyDetails (Maybe (ValList Text))
library-gen/Stratosphere/ResourceProperties/DLMLifecyclePolicySchedule.hs view
@@ -21,6 +21,7 @@   , _dLMLifecyclePolicyScheduleName :: Maybe (Val Text)   , _dLMLifecyclePolicyScheduleRetainRule :: Maybe DLMLifecyclePolicyRetainRule   , _dLMLifecyclePolicyScheduleTagsToAdd :: Maybe [Tag]+  , _dLMLifecyclePolicyScheduleVariableTags :: Maybe [Tag]   } deriving (Show, Eq)  instance ToJSON DLMLifecyclePolicySchedule where@@ -32,6 +33,7 @@     , fmap (("Name",) . toJSON) _dLMLifecyclePolicyScheduleName     , fmap (("RetainRule",) . toJSON) _dLMLifecyclePolicyScheduleRetainRule     , fmap (("TagsToAdd",) . toJSON) _dLMLifecyclePolicyScheduleTagsToAdd+    , fmap (("VariableTags",) . toJSON) _dLMLifecyclePolicyScheduleVariableTags     ]  -- | Constructor for 'DLMLifecyclePolicySchedule' containing required fields@@ -45,6 +47,7 @@   , _dLMLifecyclePolicyScheduleName = Nothing   , _dLMLifecyclePolicyScheduleRetainRule = Nothing   , _dLMLifecyclePolicyScheduleTagsToAdd = Nothing+  , _dLMLifecyclePolicyScheduleVariableTags = Nothing   }  -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-dlm-lifecyclepolicy-schedule.html#cfn-dlm-lifecyclepolicy-schedule-copytags@@ -66,3 +69,7 @@ -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-dlm-lifecyclepolicy-schedule.html#cfn-dlm-lifecyclepolicy-schedule-tagstoadd dlmlpsTagsToAdd :: Lens' DLMLifecyclePolicySchedule (Maybe [Tag]) dlmlpsTagsToAdd = lens _dLMLifecyclePolicyScheduleTagsToAdd (\s a -> s { _dLMLifecyclePolicyScheduleTagsToAdd = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-dlm-lifecyclepolicy-schedule.html#cfn-dlm-lifecyclepolicy-schedule-variabletags+dlmlpsVariableTags :: Lens' DLMLifecyclePolicySchedule (Maybe [Tag])+dlmlpsVariableTags = lens _dLMLifecyclePolicyScheduleVariableTags (\s a -> s { _dLMLifecyclePolicyScheduleVariableTags = a })
+ library-gen/Stratosphere/ResourceProperties/EC2ClientVpnEndpointCertificateAuthenticationRequest.hs view
@@ -0,0 +1,41 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-clientvpnendpoint-certificateauthenticationrequest.html++module Stratosphere.ResourceProperties.EC2ClientVpnEndpointCertificateAuthenticationRequest where++import Stratosphere.ResourceImports+++-- | Full data type definition for+-- EC2ClientVpnEndpointCertificateAuthenticationRequest. See+-- 'ec2ClientVpnEndpointCertificateAuthenticationRequest' for a more+-- convenient constructor.+data EC2ClientVpnEndpointCertificateAuthenticationRequest =+  EC2ClientVpnEndpointCertificateAuthenticationRequest+  { _eC2ClientVpnEndpointCertificateAuthenticationRequestClientRootCertificateChainArn :: Val Text+  } deriving (Show, Eq)++instance ToJSON EC2ClientVpnEndpointCertificateAuthenticationRequest where+  toJSON EC2ClientVpnEndpointCertificateAuthenticationRequest{..} =+    object $+    catMaybes+    [ (Just . ("ClientRootCertificateChainArn",) . toJSON) _eC2ClientVpnEndpointCertificateAuthenticationRequestClientRootCertificateChainArn+    ]++-- | Constructor for 'EC2ClientVpnEndpointCertificateAuthenticationRequest'+-- containing required fields as arguments.+ec2ClientVpnEndpointCertificateAuthenticationRequest+  :: Val Text -- ^ 'eccvecarClientRootCertificateChainArn'+  -> EC2ClientVpnEndpointCertificateAuthenticationRequest+ec2ClientVpnEndpointCertificateAuthenticationRequest clientRootCertificateChainArnarg =+  EC2ClientVpnEndpointCertificateAuthenticationRequest+  { _eC2ClientVpnEndpointCertificateAuthenticationRequestClientRootCertificateChainArn = clientRootCertificateChainArnarg+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-clientvpnendpoint-certificateauthenticationrequest.html#cfn-ec2-clientvpnendpoint-certificateauthenticationrequest-clientrootcertificatechainarn+eccvecarClientRootCertificateChainArn :: Lens' EC2ClientVpnEndpointCertificateAuthenticationRequest (Val Text)+eccvecarClientRootCertificateChainArn = lens _eC2ClientVpnEndpointCertificateAuthenticationRequestClientRootCertificateChainArn (\s a -> s { _eC2ClientVpnEndpointCertificateAuthenticationRequestClientRootCertificateChainArn = a })
+ library-gen/Stratosphere/ResourceProperties/EC2ClientVpnEndpointClientAuthenticationRequest.hs view
@@ -0,0 +1,56 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-clientvpnendpoint-clientauthenticationrequest.html++module Stratosphere.ResourceProperties.EC2ClientVpnEndpointClientAuthenticationRequest where++import Stratosphere.ResourceImports+import Stratosphere.ResourceProperties.EC2ClientVpnEndpointDirectoryServiceAuthenticationRequest+import Stratosphere.ResourceProperties.EC2ClientVpnEndpointCertificateAuthenticationRequest++-- | Full data type definition for+-- EC2ClientVpnEndpointClientAuthenticationRequest. See+-- 'ec2ClientVpnEndpointClientAuthenticationRequest' for a more convenient+-- constructor.+data EC2ClientVpnEndpointClientAuthenticationRequest =+  EC2ClientVpnEndpointClientAuthenticationRequest+  { _eC2ClientVpnEndpointClientAuthenticationRequestActiveDirectory :: Maybe EC2ClientVpnEndpointDirectoryServiceAuthenticationRequest+  , _eC2ClientVpnEndpointClientAuthenticationRequestMutualAuthentication :: Maybe EC2ClientVpnEndpointCertificateAuthenticationRequest+  , _eC2ClientVpnEndpointClientAuthenticationRequestType :: Val Text+  } deriving (Show, Eq)++instance ToJSON EC2ClientVpnEndpointClientAuthenticationRequest where+  toJSON EC2ClientVpnEndpointClientAuthenticationRequest{..} =+    object $+    catMaybes+    [ fmap (("ActiveDirectory",) . toJSON) _eC2ClientVpnEndpointClientAuthenticationRequestActiveDirectory+    , fmap (("MutualAuthentication",) . toJSON) _eC2ClientVpnEndpointClientAuthenticationRequestMutualAuthentication+    , (Just . ("Type",) . toJSON) _eC2ClientVpnEndpointClientAuthenticationRequestType+    ]++-- | Constructor for 'EC2ClientVpnEndpointClientAuthenticationRequest'+-- containing required fields as arguments.+ec2ClientVpnEndpointClientAuthenticationRequest+  :: Val Text -- ^ 'eccvecarType'+  -> EC2ClientVpnEndpointClientAuthenticationRequest+ec2ClientVpnEndpointClientAuthenticationRequest typearg =+  EC2ClientVpnEndpointClientAuthenticationRequest+  { _eC2ClientVpnEndpointClientAuthenticationRequestActiveDirectory = Nothing+  , _eC2ClientVpnEndpointClientAuthenticationRequestMutualAuthentication = Nothing+  , _eC2ClientVpnEndpointClientAuthenticationRequestType = typearg+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-clientvpnendpoint-clientauthenticationrequest.html#cfn-ec2-clientvpnendpoint-clientauthenticationrequest-activedirectory+eccvecarActiveDirectory :: Lens' EC2ClientVpnEndpointClientAuthenticationRequest (Maybe EC2ClientVpnEndpointDirectoryServiceAuthenticationRequest)+eccvecarActiveDirectory = lens _eC2ClientVpnEndpointClientAuthenticationRequestActiveDirectory (\s a -> s { _eC2ClientVpnEndpointClientAuthenticationRequestActiveDirectory = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-clientvpnendpoint-clientauthenticationrequest.html#cfn-ec2-clientvpnendpoint-clientauthenticationrequest-mutualauthentication+eccvecarMutualAuthentication :: Lens' EC2ClientVpnEndpointClientAuthenticationRequest (Maybe EC2ClientVpnEndpointCertificateAuthenticationRequest)+eccvecarMutualAuthentication = lens _eC2ClientVpnEndpointClientAuthenticationRequestMutualAuthentication (\s a -> s { _eC2ClientVpnEndpointClientAuthenticationRequestMutualAuthentication = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-clientvpnendpoint-clientauthenticationrequest.html#cfn-ec2-clientvpnendpoint-clientauthenticationrequest-type+eccvecarType :: Lens' EC2ClientVpnEndpointClientAuthenticationRequest (Val Text)+eccvecarType = lens _eC2ClientVpnEndpointClientAuthenticationRequestType (\s a -> s { _eC2ClientVpnEndpointClientAuthenticationRequestType = a })
+ library-gen/Stratosphere/ResourceProperties/EC2ClientVpnEndpointConnectionLogOptions.hs view
@@ -0,0 +1,54 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-clientvpnendpoint-connectionlogoptions.html++module Stratosphere.ResourceProperties.EC2ClientVpnEndpointConnectionLogOptions where++import Stratosphere.ResourceImports+++-- | Full data type definition for EC2ClientVpnEndpointConnectionLogOptions.+-- See 'ec2ClientVpnEndpointConnectionLogOptions' for a more convenient+-- constructor.+data EC2ClientVpnEndpointConnectionLogOptions =+  EC2ClientVpnEndpointConnectionLogOptions+  { _eC2ClientVpnEndpointConnectionLogOptionsCloudwatchLogGroup :: Maybe (Val Text)+  , _eC2ClientVpnEndpointConnectionLogOptionsCloudwatchLogStream :: Maybe (Val Text)+  , _eC2ClientVpnEndpointConnectionLogOptionsEnabled :: Val Bool+  } deriving (Show, Eq)++instance ToJSON EC2ClientVpnEndpointConnectionLogOptions where+  toJSON EC2ClientVpnEndpointConnectionLogOptions{..} =+    object $+    catMaybes+    [ fmap (("CloudwatchLogGroup",) . toJSON) _eC2ClientVpnEndpointConnectionLogOptionsCloudwatchLogGroup+    , fmap (("CloudwatchLogStream",) . toJSON) _eC2ClientVpnEndpointConnectionLogOptionsCloudwatchLogStream+    , (Just . ("Enabled",) . toJSON) _eC2ClientVpnEndpointConnectionLogOptionsEnabled+    ]++-- | Constructor for 'EC2ClientVpnEndpointConnectionLogOptions' containing+-- required fields as arguments.+ec2ClientVpnEndpointConnectionLogOptions+  :: Val Bool -- ^ 'eccvecloEnabled'+  -> EC2ClientVpnEndpointConnectionLogOptions+ec2ClientVpnEndpointConnectionLogOptions enabledarg =+  EC2ClientVpnEndpointConnectionLogOptions+  { _eC2ClientVpnEndpointConnectionLogOptionsCloudwatchLogGroup = Nothing+  , _eC2ClientVpnEndpointConnectionLogOptionsCloudwatchLogStream = Nothing+  , _eC2ClientVpnEndpointConnectionLogOptionsEnabled = enabledarg+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-clientvpnendpoint-connectionlogoptions.html#cfn-ec2-clientvpnendpoint-connectionlogoptions-cloudwatchloggroup+eccvecloCloudwatchLogGroup :: Lens' EC2ClientVpnEndpointConnectionLogOptions (Maybe (Val Text))+eccvecloCloudwatchLogGroup = lens _eC2ClientVpnEndpointConnectionLogOptionsCloudwatchLogGroup (\s a -> s { _eC2ClientVpnEndpointConnectionLogOptionsCloudwatchLogGroup = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-clientvpnendpoint-connectionlogoptions.html#cfn-ec2-clientvpnendpoint-connectionlogoptions-cloudwatchlogstream+eccvecloCloudwatchLogStream :: Lens' EC2ClientVpnEndpointConnectionLogOptions (Maybe (Val Text))+eccvecloCloudwatchLogStream = lens _eC2ClientVpnEndpointConnectionLogOptionsCloudwatchLogStream (\s a -> s { _eC2ClientVpnEndpointConnectionLogOptionsCloudwatchLogStream = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-clientvpnendpoint-connectionlogoptions.html#cfn-ec2-clientvpnendpoint-connectionlogoptions-enabled+eccvecloEnabled :: Lens' EC2ClientVpnEndpointConnectionLogOptions (Val Bool)+eccvecloEnabled = lens _eC2ClientVpnEndpointConnectionLogOptionsEnabled (\s a -> s { _eC2ClientVpnEndpointConnectionLogOptionsEnabled = a })
+ library-gen/Stratosphere/ResourceProperties/EC2ClientVpnEndpointDirectoryServiceAuthenticationRequest.hs view
@@ -0,0 +1,42 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-clientvpnendpoint-directoryserviceauthenticationrequest.html++module Stratosphere.ResourceProperties.EC2ClientVpnEndpointDirectoryServiceAuthenticationRequest where++import Stratosphere.ResourceImports+++-- | Full data type definition for+-- EC2ClientVpnEndpointDirectoryServiceAuthenticationRequest. See+-- 'ec2ClientVpnEndpointDirectoryServiceAuthenticationRequest' for a more+-- convenient constructor.+data EC2ClientVpnEndpointDirectoryServiceAuthenticationRequest =+  EC2ClientVpnEndpointDirectoryServiceAuthenticationRequest+  { _eC2ClientVpnEndpointDirectoryServiceAuthenticationRequestDirectoryId :: Val Text+  } deriving (Show, Eq)++instance ToJSON EC2ClientVpnEndpointDirectoryServiceAuthenticationRequest where+  toJSON EC2ClientVpnEndpointDirectoryServiceAuthenticationRequest{..} =+    object $+    catMaybes+    [ (Just . ("DirectoryId",) . toJSON) _eC2ClientVpnEndpointDirectoryServiceAuthenticationRequestDirectoryId+    ]++-- | Constructor for+-- 'EC2ClientVpnEndpointDirectoryServiceAuthenticationRequest' containing+-- required fields as arguments.+ec2ClientVpnEndpointDirectoryServiceAuthenticationRequest+  :: Val Text -- ^ 'eccvedsarDirectoryId'+  -> EC2ClientVpnEndpointDirectoryServiceAuthenticationRequest+ec2ClientVpnEndpointDirectoryServiceAuthenticationRequest directoryIdarg =+  EC2ClientVpnEndpointDirectoryServiceAuthenticationRequest+  { _eC2ClientVpnEndpointDirectoryServiceAuthenticationRequestDirectoryId = directoryIdarg+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-clientvpnendpoint-directoryserviceauthenticationrequest.html#cfn-ec2-clientvpnendpoint-directoryserviceauthenticationrequest-directoryid+eccvedsarDirectoryId :: Lens' EC2ClientVpnEndpointDirectoryServiceAuthenticationRequest (Val Text)+eccvedsarDirectoryId = lens _eC2ClientVpnEndpointDirectoryServiceAuthenticationRequestDirectoryId (\s a -> s { _eC2ClientVpnEndpointDirectoryServiceAuthenticationRequestDirectoryId = a })
+ library-gen/Stratosphere/ResourceProperties/EC2ClientVpnEndpointTagSpecification.hs view
@@ -0,0 +1,45 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-clientvpnendpoint-tagspecification.html++module Stratosphere.ResourceProperties.EC2ClientVpnEndpointTagSpecification where++import Stratosphere.ResourceImports+import Stratosphere.ResourceProperties.Tag++-- | Full data type definition for EC2ClientVpnEndpointTagSpecification. See+-- 'ec2ClientVpnEndpointTagSpecification' for a more convenient constructor.+data EC2ClientVpnEndpointTagSpecification =+  EC2ClientVpnEndpointTagSpecification+  { _eC2ClientVpnEndpointTagSpecificationResourceType :: Maybe (Val Text)+  , _eC2ClientVpnEndpointTagSpecificationTags :: Maybe [Tag]+  } deriving (Show, Eq)++instance ToJSON EC2ClientVpnEndpointTagSpecification where+  toJSON EC2ClientVpnEndpointTagSpecification{..} =+    object $+    catMaybes+    [ fmap (("ResourceType",) . toJSON) _eC2ClientVpnEndpointTagSpecificationResourceType+    , fmap (("Tags",) . toJSON) _eC2ClientVpnEndpointTagSpecificationTags+    ]++-- | Constructor for 'EC2ClientVpnEndpointTagSpecification' containing+-- required fields as arguments.+ec2ClientVpnEndpointTagSpecification+  :: EC2ClientVpnEndpointTagSpecification+ec2ClientVpnEndpointTagSpecification  =+  EC2ClientVpnEndpointTagSpecification+  { _eC2ClientVpnEndpointTagSpecificationResourceType = Nothing+  , _eC2ClientVpnEndpointTagSpecificationTags = Nothing+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-clientvpnendpoint-tagspecification.html#cfn-ec2-clientvpnendpoint-tagspecification-resourcetype+eccvetsResourceType :: Lens' EC2ClientVpnEndpointTagSpecification (Maybe (Val Text))+eccvetsResourceType = lens _eC2ClientVpnEndpointTagSpecificationResourceType (\s a -> s { _eC2ClientVpnEndpointTagSpecificationResourceType = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-clientvpnendpoint-tagspecification.html#cfn-ec2-clientvpnendpoint-tagspecification-tags+eccvetsTags :: Lens' EC2ClientVpnEndpointTagSpecification (Maybe [Tag])+eccvetsTags = lens _eC2ClientVpnEndpointTagSpecificationTags (\s a -> s { _eC2ClientVpnEndpointTagSpecificationTags = a })
library-gen/Stratosphere/ResourceProperties/ECSTaskDefinitionContainerDefinition.hs view
@@ -17,6 +17,8 @@ import Stratosphere.ResourceProperties.ECSTaskDefinitionMountPoint import Stratosphere.ResourceProperties.ECSTaskDefinitionPortMapping import Stratosphere.ResourceProperties.ECSTaskDefinitionRepositoryCredentials+import Stratosphere.ResourceProperties.ECSTaskDefinitionResourceRequirement+import Stratosphere.ResourceProperties.ECSTaskDefinitionSecret import Stratosphere.ResourceProperties.ECSTaskDefinitionUlimit import Stratosphere.ResourceProperties.ECSTaskDefinitionVolumeFrom @@ -50,6 +52,8 @@   , _eCSTaskDefinitionContainerDefinitionPrivileged :: Maybe (Val Bool)   , _eCSTaskDefinitionContainerDefinitionReadonlyRootFilesystem :: Maybe (Val Bool)   , _eCSTaskDefinitionContainerDefinitionRepositoryCredentials :: Maybe ECSTaskDefinitionRepositoryCredentials+  , _eCSTaskDefinitionContainerDefinitionResourceRequirements :: Maybe [ECSTaskDefinitionResourceRequirement]+  , _eCSTaskDefinitionContainerDefinitionSecrets :: Maybe [ECSTaskDefinitionSecret]   , _eCSTaskDefinitionContainerDefinitionStartTimeout :: Maybe (Val Integer)   , _eCSTaskDefinitionContainerDefinitionStopTimeout :: Maybe (Val Integer)   , _eCSTaskDefinitionContainerDefinitionUlimits :: Maybe [ECSTaskDefinitionUlimit]@@ -88,6 +92,8 @@     , fmap (("Privileged",) . toJSON) _eCSTaskDefinitionContainerDefinitionPrivileged     , fmap (("ReadonlyRootFilesystem",) . toJSON) _eCSTaskDefinitionContainerDefinitionReadonlyRootFilesystem     , fmap (("RepositoryCredentials",) . toJSON) _eCSTaskDefinitionContainerDefinitionRepositoryCredentials+    , fmap (("ResourceRequirements",) . toJSON) _eCSTaskDefinitionContainerDefinitionResourceRequirements+    , fmap (("Secrets",) . toJSON) _eCSTaskDefinitionContainerDefinitionSecrets     , fmap (("StartTimeout",) . toJSON) _eCSTaskDefinitionContainerDefinitionStartTimeout     , fmap (("StopTimeout",) . toJSON) _eCSTaskDefinitionContainerDefinitionStopTimeout     , fmap (("Ulimits",) . toJSON) _eCSTaskDefinitionContainerDefinitionUlimits@@ -130,6 +136,8 @@   , _eCSTaskDefinitionContainerDefinitionPrivileged = Nothing   , _eCSTaskDefinitionContainerDefinitionReadonlyRootFilesystem = Nothing   , _eCSTaskDefinitionContainerDefinitionRepositoryCredentials = Nothing+  , _eCSTaskDefinitionContainerDefinitionResourceRequirements = Nothing+  , _eCSTaskDefinitionContainerDefinitionSecrets = Nothing   , _eCSTaskDefinitionContainerDefinitionStartTimeout = Nothing   , _eCSTaskDefinitionContainerDefinitionStopTimeout = Nothing   , _eCSTaskDefinitionContainerDefinitionUlimits = Nothing@@ -241,6 +249,14 @@ -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ecs-taskdefinition-containerdefinitions.html#cfn-ecs-taskdefinition-containerdefinition-repositorycredentials ecstdcdRepositoryCredentials :: Lens' ECSTaskDefinitionContainerDefinition (Maybe ECSTaskDefinitionRepositoryCredentials) ecstdcdRepositoryCredentials = lens _eCSTaskDefinitionContainerDefinitionRepositoryCredentials (\s a -> s { _eCSTaskDefinitionContainerDefinitionRepositoryCredentials = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ecs-taskdefinition-containerdefinitions.html#cfn-ecs-taskdefinition-containerdefinition-resourcerequirements+ecstdcdResourceRequirements :: Lens' ECSTaskDefinitionContainerDefinition (Maybe [ECSTaskDefinitionResourceRequirement])+ecstdcdResourceRequirements = lens _eCSTaskDefinitionContainerDefinitionResourceRequirements (\s a -> s { _eCSTaskDefinitionContainerDefinitionResourceRequirements = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ecs-taskdefinition-containerdefinitions.html#cfn-ecs-taskdefinition-containerdefinition-secrets+ecstdcdSecrets :: Lens' ECSTaskDefinitionContainerDefinition (Maybe [ECSTaskDefinitionSecret])+ecstdcdSecrets = lens _eCSTaskDefinitionContainerDefinitionSecrets (\s a -> s { _eCSTaskDefinitionContainerDefinitionSecrets = a })  -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ecs-taskdefinition-containerdefinitions.html#cfn-ecs-taskdefinition-containerdefinition-starttimeout ecstdcdStartTimeout :: Lens' ECSTaskDefinitionContainerDefinition (Maybe (Val Integer))
+ library-gen/Stratosphere/ResourceProperties/ECSTaskDefinitionResourceRequirement.hs view
@@ -0,0 +1,47 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ecs-taskdefinition-resourcerequirement.html++module Stratosphere.ResourceProperties.ECSTaskDefinitionResourceRequirement where++import Stratosphere.ResourceImports+++-- | Full data type definition for ECSTaskDefinitionResourceRequirement. See+-- 'ecsTaskDefinitionResourceRequirement' for a more convenient constructor.+data ECSTaskDefinitionResourceRequirement =+  ECSTaskDefinitionResourceRequirement+  { _eCSTaskDefinitionResourceRequirementType :: Val Text+  , _eCSTaskDefinitionResourceRequirementValue :: Val Text+  } deriving (Show, Eq)++instance ToJSON ECSTaskDefinitionResourceRequirement where+  toJSON ECSTaskDefinitionResourceRequirement{..} =+    object $+    catMaybes+    [ (Just . ("Type",) . toJSON) _eCSTaskDefinitionResourceRequirementType+    , (Just . ("Value",) . toJSON) _eCSTaskDefinitionResourceRequirementValue+    ]++-- | Constructor for 'ECSTaskDefinitionResourceRequirement' containing+-- required fields as arguments.+ecsTaskDefinitionResourceRequirement+  :: Val Text -- ^ 'ecstdrrType'+  -> Val Text -- ^ 'ecstdrrValue'+  -> ECSTaskDefinitionResourceRequirement+ecsTaskDefinitionResourceRequirement typearg valuearg =+  ECSTaskDefinitionResourceRequirement+  { _eCSTaskDefinitionResourceRequirementType = typearg+  , _eCSTaskDefinitionResourceRequirementValue = valuearg+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ecs-taskdefinition-resourcerequirement.html#cfn-ecs-taskdefinition-resourcerequirement-type+ecstdrrType :: Lens' ECSTaskDefinitionResourceRequirement (Val Text)+ecstdrrType = lens _eCSTaskDefinitionResourceRequirementType (\s a -> s { _eCSTaskDefinitionResourceRequirementType = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ecs-taskdefinition-resourcerequirement.html#cfn-ecs-taskdefinition-resourcerequirement-value+ecstdrrValue :: Lens' ECSTaskDefinitionResourceRequirement (Val Text)+ecstdrrValue = lens _eCSTaskDefinitionResourceRequirementValue (\s a -> s { _eCSTaskDefinitionResourceRequirementValue = a })
+ library-gen/Stratosphere/ResourceProperties/ECSTaskDefinitionSecret.hs view
@@ -0,0 +1,47 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ecs-taskdefinition-secret.html++module Stratosphere.ResourceProperties.ECSTaskDefinitionSecret where++import Stratosphere.ResourceImports+++-- | Full data type definition for ECSTaskDefinitionSecret. See+-- 'ecsTaskDefinitionSecret' for a more convenient constructor.+data ECSTaskDefinitionSecret =+  ECSTaskDefinitionSecret+  { _eCSTaskDefinitionSecretName :: Val Text+  , _eCSTaskDefinitionSecretValueFrom :: Val Text+  } deriving (Show, Eq)++instance ToJSON ECSTaskDefinitionSecret where+  toJSON ECSTaskDefinitionSecret{..} =+    object $+    catMaybes+    [ (Just . ("Name",) . toJSON) _eCSTaskDefinitionSecretName+    , (Just . ("ValueFrom",) . toJSON) _eCSTaskDefinitionSecretValueFrom+    ]++-- | Constructor for 'ECSTaskDefinitionSecret' containing required fields as+-- arguments.+ecsTaskDefinitionSecret+  :: Val Text -- ^ 'ecstdsName'+  -> Val Text -- ^ 'ecstdsValueFrom'+  -> ECSTaskDefinitionSecret+ecsTaskDefinitionSecret namearg valueFromarg =+  ECSTaskDefinitionSecret+  { _eCSTaskDefinitionSecretName = namearg+  , _eCSTaskDefinitionSecretValueFrom = valueFromarg+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ecs-taskdefinition-secret.html#cfn-ecs-taskdefinition-secret-name+ecstdsName :: Lens' ECSTaskDefinitionSecret (Val Text)+ecstdsName = lens _eCSTaskDefinitionSecretName (\s a -> s { _eCSTaskDefinitionSecretName = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ecs-taskdefinition-secret.html#cfn-ecs-taskdefinition-secret-valuefrom+ecstdsValueFrom :: Lens' ECSTaskDefinitionSecret (Val Text)+ecstdsValueFrom = lens _eCSTaskDefinitionSecretValueFrom (\s a -> s { _eCSTaskDefinitionSecretValueFrom = a })
+ library-gen/Stratosphere/ResourceProperties/EFSFileSystemLifecyclePolicy.hs view
@@ -0,0 +1,39 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticfilesystem-filesystem-lifecyclepolicy.html++module Stratosphere.ResourceProperties.EFSFileSystemLifecyclePolicy where++import Stratosphere.ResourceImports+++-- | Full data type definition for EFSFileSystemLifecyclePolicy. See+-- 'efsFileSystemLifecyclePolicy' for a more convenient constructor.+data EFSFileSystemLifecyclePolicy =+  EFSFileSystemLifecyclePolicy+  { _eFSFileSystemLifecyclePolicyTransitionToIA :: Val Text+  } deriving (Show, Eq)++instance ToJSON EFSFileSystemLifecyclePolicy where+  toJSON EFSFileSystemLifecyclePolicy{..} =+    object $+    catMaybes+    [ (Just . ("TransitionToIA",) . toJSON) _eFSFileSystemLifecyclePolicyTransitionToIA+    ]++-- | Constructor for 'EFSFileSystemLifecyclePolicy' containing required fields+-- as arguments.+efsFileSystemLifecyclePolicy+  :: Val Text -- ^ 'efsfslpTransitionToIA'+  -> EFSFileSystemLifecyclePolicy+efsFileSystemLifecyclePolicy transitionToIAarg =+  EFSFileSystemLifecyclePolicy+  { _eFSFileSystemLifecyclePolicyTransitionToIA = transitionToIAarg+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticfilesystem-filesystem-lifecyclepolicy.html#cfn-elasticfilesystem-filesystem-lifecyclepolicy-transitiontoia+efsfslpTransitionToIA :: Lens' EFSFileSystemLifecyclePolicy (Val Text)+efsfslpTransitionToIA = lens _eFSFileSystemLifecyclePolicyTransitionToIA (\s a -> s { _eFSFileSystemLifecyclePolicyTransitionToIA = a })
library-gen/Stratosphere/ResourceProperties/EMRClusterJobFlowInstancesConfig.hs view
@@ -22,6 +22,7 @@   , _eMRClusterJobFlowInstancesConfigCoreInstanceGroup :: Maybe EMRClusterInstanceGroupConfig   , _eMRClusterJobFlowInstancesConfigEc2KeyName :: Maybe (Val Text)   , _eMRClusterJobFlowInstancesConfigEc2SubnetId :: Maybe (Val Text)+  , _eMRClusterJobFlowInstancesConfigEc2SubnetIds :: Maybe (ValList Text)   , _eMRClusterJobFlowInstancesConfigEmrManagedMasterSecurityGroup :: Maybe (Val Text)   , _eMRClusterJobFlowInstancesConfigEmrManagedSlaveSecurityGroup :: Maybe (Val Text)   , _eMRClusterJobFlowInstancesConfigHadoopVersion :: Maybe (Val Text)@@ -43,6 +44,7 @@     , fmap (("CoreInstanceGroup",) . toJSON) _eMRClusterJobFlowInstancesConfigCoreInstanceGroup     , fmap (("Ec2KeyName",) . toJSON) _eMRClusterJobFlowInstancesConfigEc2KeyName     , fmap (("Ec2SubnetId",) . toJSON) _eMRClusterJobFlowInstancesConfigEc2SubnetId+    , fmap (("Ec2SubnetIds",) . toJSON) _eMRClusterJobFlowInstancesConfigEc2SubnetIds     , fmap (("EmrManagedMasterSecurityGroup",) . toJSON) _eMRClusterJobFlowInstancesConfigEmrManagedMasterSecurityGroup     , fmap (("EmrManagedSlaveSecurityGroup",) . toJSON) _eMRClusterJobFlowInstancesConfigEmrManagedSlaveSecurityGroup     , fmap (("HadoopVersion",) . toJSON) _eMRClusterJobFlowInstancesConfigHadoopVersion@@ -66,6 +68,7 @@   , _eMRClusterJobFlowInstancesConfigCoreInstanceGroup = Nothing   , _eMRClusterJobFlowInstancesConfigEc2KeyName = Nothing   , _eMRClusterJobFlowInstancesConfigEc2SubnetId = Nothing+  , _eMRClusterJobFlowInstancesConfigEc2SubnetIds = Nothing   , _eMRClusterJobFlowInstancesConfigEmrManagedMasterSecurityGroup = Nothing   , _eMRClusterJobFlowInstancesConfigEmrManagedSlaveSecurityGroup = Nothing   , _eMRClusterJobFlowInstancesConfigHadoopVersion = Nothing@@ -100,6 +103,10 @@ -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticmapreduce-cluster-jobflowinstancesconfig.html#cfn-elasticmapreduce-cluster-jobflowinstancesconfig-ec2subnetid emrcjficEc2SubnetId :: Lens' EMRClusterJobFlowInstancesConfig (Maybe (Val Text)) emrcjficEc2SubnetId = lens _eMRClusterJobFlowInstancesConfigEc2SubnetId (\s a -> s { _eMRClusterJobFlowInstancesConfigEc2SubnetId = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticmapreduce-cluster-jobflowinstancesconfig.html#cfn-elasticmapreduce-cluster-jobflowinstancesconfig-ec2subnetids+emrcjficEc2SubnetIds :: Lens' EMRClusterJobFlowInstancesConfig (Maybe (ValList Text))+emrcjficEc2SubnetIds = lens _eMRClusterJobFlowInstancesConfigEc2SubnetIds (\s a -> s { _eMRClusterJobFlowInstancesConfigEc2SubnetIds = a })  -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticmapreduce-cluster-jobflowinstancesconfig.html#cfn-elasticmapreduce-cluster-jobflowinstancesconfig-emrmanagedmastersecuritygroup emrcjficEmrManagedMasterSecurityGroup :: Lens' EMRClusterJobFlowInstancesConfig (Maybe (Val Text))
+ library-gen/Stratosphere/ResourceProperties/ElasticLoadBalancingV2ListenerRuleHostHeaderConfig.hs view
@@ -0,0 +1,40 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticloadbalancingv2-listenerrule-hostheaderconfig.html++module Stratosphere.ResourceProperties.ElasticLoadBalancingV2ListenerRuleHostHeaderConfig where++import Stratosphere.ResourceImports+++-- | Full data type definition for+-- ElasticLoadBalancingV2ListenerRuleHostHeaderConfig. See+-- 'elasticLoadBalancingV2ListenerRuleHostHeaderConfig' for a more+-- convenient constructor.+data ElasticLoadBalancingV2ListenerRuleHostHeaderConfig =+  ElasticLoadBalancingV2ListenerRuleHostHeaderConfig+  { _elasticLoadBalancingV2ListenerRuleHostHeaderConfigValues :: Maybe (ValList Text)+  } deriving (Show, Eq)++instance ToJSON ElasticLoadBalancingV2ListenerRuleHostHeaderConfig where+  toJSON ElasticLoadBalancingV2ListenerRuleHostHeaderConfig{..} =+    object $+    catMaybes+    [ fmap (("Values",) . toJSON) _elasticLoadBalancingV2ListenerRuleHostHeaderConfigValues+    ]++-- | Constructor for 'ElasticLoadBalancingV2ListenerRuleHostHeaderConfig'+-- containing required fields as arguments.+elasticLoadBalancingV2ListenerRuleHostHeaderConfig+  :: ElasticLoadBalancingV2ListenerRuleHostHeaderConfig+elasticLoadBalancingV2ListenerRuleHostHeaderConfig  =+  ElasticLoadBalancingV2ListenerRuleHostHeaderConfig+  { _elasticLoadBalancingV2ListenerRuleHostHeaderConfigValues = Nothing+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticloadbalancingv2-listenerrule-hostheaderconfig.html#cfn-elasticloadbalancingv2-listenerrule-hostheaderconfig-values+elbvlrhohcValues :: Lens' ElasticLoadBalancingV2ListenerRuleHostHeaderConfig (Maybe (ValList Text))+elbvlrhohcValues = lens _elasticLoadBalancingV2ListenerRuleHostHeaderConfigValues (\s a -> s { _elasticLoadBalancingV2ListenerRuleHostHeaderConfigValues = a })
+ library-gen/Stratosphere/ResourceProperties/ElasticLoadBalancingV2ListenerRuleHttpHeaderConfig.hs view
@@ -0,0 +1,47 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticloadbalancingv2-listenerrule-httpheaderconfig.html++module Stratosphere.ResourceProperties.ElasticLoadBalancingV2ListenerRuleHttpHeaderConfig where++import Stratosphere.ResourceImports+++-- | Full data type definition for+-- ElasticLoadBalancingV2ListenerRuleHttpHeaderConfig. See+-- 'elasticLoadBalancingV2ListenerRuleHttpHeaderConfig' for a more+-- convenient constructor.+data ElasticLoadBalancingV2ListenerRuleHttpHeaderConfig =+  ElasticLoadBalancingV2ListenerRuleHttpHeaderConfig+  { _elasticLoadBalancingV2ListenerRuleHttpHeaderConfigHttpHeaderName :: Maybe (Val Text)+  , _elasticLoadBalancingV2ListenerRuleHttpHeaderConfigValues :: Maybe (ValList Text)+  } deriving (Show, Eq)++instance ToJSON ElasticLoadBalancingV2ListenerRuleHttpHeaderConfig where+  toJSON ElasticLoadBalancingV2ListenerRuleHttpHeaderConfig{..} =+    object $+    catMaybes+    [ fmap (("HttpHeaderName",) . toJSON) _elasticLoadBalancingV2ListenerRuleHttpHeaderConfigHttpHeaderName+    , fmap (("Values",) . toJSON) _elasticLoadBalancingV2ListenerRuleHttpHeaderConfigValues+    ]++-- | Constructor for 'ElasticLoadBalancingV2ListenerRuleHttpHeaderConfig'+-- containing required fields as arguments.+elasticLoadBalancingV2ListenerRuleHttpHeaderConfig+  :: ElasticLoadBalancingV2ListenerRuleHttpHeaderConfig+elasticLoadBalancingV2ListenerRuleHttpHeaderConfig  =+  ElasticLoadBalancingV2ListenerRuleHttpHeaderConfig+  { _elasticLoadBalancingV2ListenerRuleHttpHeaderConfigHttpHeaderName = Nothing+  , _elasticLoadBalancingV2ListenerRuleHttpHeaderConfigValues = Nothing+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticloadbalancingv2-listenerrule-httpheaderconfig.html#cfn-elasticloadbalancingv2-listenerrule-httpheaderconfig-httpheadername+elbvlrhthcHttpHeaderName :: Lens' ElasticLoadBalancingV2ListenerRuleHttpHeaderConfig (Maybe (Val Text))+elbvlrhthcHttpHeaderName = lens _elasticLoadBalancingV2ListenerRuleHttpHeaderConfigHttpHeaderName (\s a -> s { _elasticLoadBalancingV2ListenerRuleHttpHeaderConfigHttpHeaderName = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticloadbalancingv2-listenerrule-httpheaderconfig.html#cfn-elasticloadbalancingv2-listenerrule-httpheaderconfig-values+elbvlrhthcValues :: Lens' ElasticLoadBalancingV2ListenerRuleHttpHeaderConfig (Maybe (ValList Text))+elbvlrhthcValues = lens _elasticLoadBalancingV2ListenerRuleHttpHeaderConfigValues (\s a -> s { _elasticLoadBalancingV2ListenerRuleHttpHeaderConfigValues = a })
+ library-gen/Stratosphere/ResourceProperties/ElasticLoadBalancingV2ListenerRuleHttpRequestMethodConfig.hs view
@@ -0,0 +1,41 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticloadbalancingv2-listenerrule-httprequestmethodconfig.html++module Stratosphere.ResourceProperties.ElasticLoadBalancingV2ListenerRuleHttpRequestMethodConfig where++import Stratosphere.ResourceImports+++-- | Full data type definition for+-- ElasticLoadBalancingV2ListenerRuleHttpRequestMethodConfig. See+-- 'elasticLoadBalancingV2ListenerRuleHttpRequestMethodConfig' for a more+-- convenient constructor.+data ElasticLoadBalancingV2ListenerRuleHttpRequestMethodConfig =+  ElasticLoadBalancingV2ListenerRuleHttpRequestMethodConfig+  { _elasticLoadBalancingV2ListenerRuleHttpRequestMethodConfigValues :: Maybe (ValList Text)+  } deriving (Show, Eq)++instance ToJSON ElasticLoadBalancingV2ListenerRuleHttpRequestMethodConfig where+  toJSON ElasticLoadBalancingV2ListenerRuleHttpRequestMethodConfig{..} =+    object $+    catMaybes+    [ fmap (("Values",) . toJSON) _elasticLoadBalancingV2ListenerRuleHttpRequestMethodConfigValues+    ]++-- | Constructor for+-- 'ElasticLoadBalancingV2ListenerRuleHttpRequestMethodConfig' containing+-- required fields as arguments.+elasticLoadBalancingV2ListenerRuleHttpRequestMethodConfig+  :: ElasticLoadBalancingV2ListenerRuleHttpRequestMethodConfig+elasticLoadBalancingV2ListenerRuleHttpRequestMethodConfig  =+  ElasticLoadBalancingV2ListenerRuleHttpRequestMethodConfig+  { _elasticLoadBalancingV2ListenerRuleHttpRequestMethodConfigValues = Nothing+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticloadbalancingv2-listenerrule-httprequestmethodconfig.html#cfn-elasticloadbalancingv2-listenerrule-httprequestmethodconfig-values+elbvlrhrmcValues :: Lens' ElasticLoadBalancingV2ListenerRuleHttpRequestMethodConfig (Maybe (ValList Text))+elbvlrhrmcValues = lens _elasticLoadBalancingV2ListenerRuleHttpRequestMethodConfigValues (\s a -> s { _elasticLoadBalancingV2ListenerRuleHttpRequestMethodConfigValues = a })
+ library-gen/Stratosphere/ResourceProperties/ElasticLoadBalancingV2ListenerRulePathPatternConfig.hs view
@@ -0,0 +1,40 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticloadbalancingv2-listenerrule-pathpatternconfig.html++module Stratosphere.ResourceProperties.ElasticLoadBalancingV2ListenerRulePathPatternConfig where++import Stratosphere.ResourceImports+++-- | Full data type definition for+-- ElasticLoadBalancingV2ListenerRulePathPatternConfig. See+-- 'elasticLoadBalancingV2ListenerRulePathPatternConfig' for a more+-- convenient constructor.+data ElasticLoadBalancingV2ListenerRulePathPatternConfig =+  ElasticLoadBalancingV2ListenerRulePathPatternConfig+  { _elasticLoadBalancingV2ListenerRulePathPatternConfigValues :: Maybe (ValList Text)+  } deriving (Show, Eq)++instance ToJSON ElasticLoadBalancingV2ListenerRulePathPatternConfig where+  toJSON ElasticLoadBalancingV2ListenerRulePathPatternConfig{..} =+    object $+    catMaybes+    [ fmap (("Values",) . toJSON) _elasticLoadBalancingV2ListenerRulePathPatternConfigValues+    ]++-- | Constructor for 'ElasticLoadBalancingV2ListenerRulePathPatternConfig'+-- containing required fields as arguments.+elasticLoadBalancingV2ListenerRulePathPatternConfig+  :: ElasticLoadBalancingV2ListenerRulePathPatternConfig+elasticLoadBalancingV2ListenerRulePathPatternConfig  =+  ElasticLoadBalancingV2ListenerRulePathPatternConfig+  { _elasticLoadBalancingV2ListenerRulePathPatternConfigValues = Nothing+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticloadbalancingv2-listenerrule-pathpatternconfig.html#cfn-elasticloadbalancingv2-listenerrule-pathpatternconfig-values+elbvlrppcValues :: Lens' ElasticLoadBalancingV2ListenerRulePathPatternConfig (Maybe (ValList Text))+elbvlrppcValues = lens _elasticLoadBalancingV2ListenerRulePathPatternConfigValues (\s a -> s { _elasticLoadBalancingV2ListenerRulePathPatternConfigValues = a })
+ library-gen/Stratosphere/ResourceProperties/ElasticLoadBalancingV2ListenerRuleQueryStringConfig.hs view
@@ -0,0 +1,40 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticloadbalancingv2-listenerrule-querystringconfig.html++module Stratosphere.ResourceProperties.ElasticLoadBalancingV2ListenerRuleQueryStringConfig where++import Stratosphere.ResourceImports+import Stratosphere.ResourceProperties.ElasticLoadBalancingV2ListenerRuleQueryStringKeyValue++-- | Full data type definition for+-- ElasticLoadBalancingV2ListenerRuleQueryStringConfig. See+-- 'elasticLoadBalancingV2ListenerRuleQueryStringConfig' for a more+-- convenient constructor.+data ElasticLoadBalancingV2ListenerRuleQueryStringConfig =+  ElasticLoadBalancingV2ListenerRuleQueryStringConfig+  { _elasticLoadBalancingV2ListenerRuleQueryStringConfigValues :: Maybe [ElasticLoadBalancingV2ListenerRuleQueryStringKeyValue]+  } deriving (Show, Eq)++instance ToJSON ElasticLoadBalancingV2ListenerRuleQueryStringConfig where+  toJSON ElasticLoadBalancingV2ListenerRuleQueryStringConfig{..} =+    object $+    catMaybes+    [ fmap (("Values",) . toJSON) _elasticLoadBalancingV2ListenerRuleQueryStringConfigValues+    ]++-- | Constructor for 'ElasticLoadBalancingV2ListenerRuleQueryStringConfig'+-- containing required fields as arguments.+elasticLoadBalancingV2ListenerRuleQueryStringConfig+  :: ElasticLoadBalancingV2ListenerRuleQueryStringConfig+elasticLoadBalancingV2ListenerRuleQueryStringConfig  =+  ElasticLoadBalancingV2ListenerRuleQueryStringConfig+  { _elasticLoadBalancingV2ListenerRuleQueryStringConfigValues = Nothing+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticloadbalancingv2-listenerrule-querystringconfig.html#cfn-elasticloadbalancingv2-listenerrule-querystringconfig-values+elbvlrqscValues :: Lens' ElasticLoadBalancingV2ListenerRuleQueryStringConfig (Maybe [ElasticLoadBalancingV2ListenerRuleQueryStringKeyValue])+elbvlrqscValues = lens _elasticLoadBalancingV2ListenerRuleQueryStringConfigValues (\s a -> s { _elasticLoadBalancingV2ListenerRuleQueryStringConfigValues = a })
+ library-gen/Stratosphere/ResourceProperties/ElasticLoadBalancingV2ListenerRuleQueryStringKeyValue.hs view
@@ -0,0 +1,47 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticloadbalancingv2-listenerrule-querystringkeyvalue.html++module Stratosphere.ResourceProperties.ElasticLoadBalancingV2ListenerRuleQueryStringKeyValue where++import Stratosphere.ResourceImports+++-- | Full data type definition for+-- ElasticLoadBalancingV2ListenerRuleQueryStringKeyValue. See+-- 'elasticLoadBalancingV2ListenerRuleQueryStringKeyValue' for a more+-- convenient constructor.+data ElasticLoadBalancingV2ListenerRuleQueryStringKeyValue =+  ElasticLoadBalancingV2ListenerRuleQueryStringKeyValue+  { _elasticLoadBalancingV2ListenerRuleQueryStringKeyValueKey :: Maybe (Val Text)+  , _elasticLoadBalancingV2ListenerRuleQueryStringKeyValueValue :: Maybe (Val Text)+  } deriving (Show, Eq)++instance ToJSON ElasticLoadBalancingV2ListenerRuleQueryStringKeyValue where+  toJSON ElasticLoadBalancingV2ListenerRuleQueryStringKeyValue{..} =+    object $+    catMaybes+    [ fmap (("Key",) . toJSON) _elasticLoadBalancingV2ListenerRuleQueryStringKeyValueKey+    , fmap (("Value",) . toJSON) _elasticLoadBalancingV2ListenerRuleQueryStringKeyValueValue+    ]++-- | Constructor for 'ElasticLoadBalancingV2ListenerRuleQueryStringKeyValue'+-- containing required fields as arguments.+elasticLoadBalancingV2ListenerRuleQueryStringKeyValue+  :: ElasticLoadBalancingV2ListenerRuleQueryStringKeyValue+elasticLoadBalancingV2ListenerRuleQueryStringKeyValue  =+  ElasticLoadBalancingV2ListenerRuleQueryStringKeyValue+  { _elasticLoadBalancingV2ListenerRuleQueryStringKeyValueKey = Nothing+  , _elasticLoadBalancingV2ListenerRuleQueryStringKeyValueValue = Nothing+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticloadbalancingv2-listenerrule-querystringkeyvalue.html#cfn-elasticloadbalancingv2-listenerrule-querystringkeyvalue-key+elbvlrqskvKey :: Lens' ElasticLoadBalancingV2ListenerRuleQueryStringKeyValue (Maybe (Val Text))+elbvlrqskvKey = lens _elasticLoadBalancingV2ListenerRuleQueryStringKeyValueKey (\s a -> s { _elasticLoadBalancingV2ListenerRuleQueryStringKeyValueKey = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticloadbalancingv2-listenerrule-querystringkeyvalue.html#cfn-elasticloadbalancingv2-listenerrule-querystringkeyvalue-value+elbvlrqskvValue :: Lens' ElasticLoadBalancingV2ListenerRuleQueryStringKeyValue (Maybe (Val Text))+elbvlrqskvValue = lens _elasticLoadBalancingV2ListenerRuleQueryStringKeyValueValue (\s a -> s { _elasticLoadBalancingV2ListenerRuleQueryStringKeyValueValue = a })
library-gen/Stratosphere/ResourceProperties/ElasticLoadBalancingV2ListenerRuleRuleCondition.hs view
@@ -8,7 +8,12 @@ module Stratosphere.ResourceProperties.ElasticLoadBalancingV2ListenerRuleRuleCondition where  import Stratosphere.ResourceImports-+import Stratosphere.ResourceProperties.ElasticLoadBalancingV2ListenerRuleHostHeaderConfig+import Stratosphere.ResourceProperties.ElasticLoadBalancingV2ListenerRuleHttpHeaderConfig+import Stratosphere.ResourceProperties.ElasticLoadBalancingV2ListenerRuleHttpRequestMethodConfig+import Stratosphere.ResourceProperties.ElasticLoadBalancingV2ListenerRulePathPatternConfig+import Stratosphere.ResourceProperties.ElasticLoadBalancingV2ListenerRuleQueryStringConfig+import Stratosphere.ResourceProperties.ElasticLoadBalancingV2ListenerRuleSourceIpConfig  -- | Full data type definition for -- ElasticLoadBalancingV2ListenerRuleRuleCondition. See@@ -17,6 +22,12 @@ data ElasticLoadBalancingV2ListenerRuleRuleCondition =   ElasticLoadBalancingV2ListenerRuleRuleCondition   { _elasticLoadBalancingV2ListenerRuleRuleConditionField :: Maybe (Val Text)+  , _elasticLoadBalancingV2ListenerRuleRuleConditionHostHeaderConfig :: Maybe ElasticLoadBalancingV2ListenerRuleHostHeaderConfig+  , _elasticLoadBalancingV2ListenerRuleRuleConditionHttpHeaderConfig :: Maybe ElasticLoadBalancingV2ListenerRuleHttpHeaderConfig+  , _elasticLoadBalancingV2ListenerRuleRuleConditionHttpRequestMethodConfig :: Maybe ElasticLoadBalancingV2ListenerRuleHttpRequestMethodConfig+  , _elasticLoadBalancingV2ListenerRuleRuleConditionPathPatternConfig :: Maybe ElasticLoadBalancingV2ListenerRulePathPatternConfig+  , _elasticLoadBalancingV2ListenerRuleRuleConditionQueryStringConfig :: Maybe ElasticLoadBalancingV2ListenerRuleQueryStringConfig+  , _elasticLoadBalancingV2ListenerRuleRuleConditionSourceIpConfig :: Maybe ElasticLoadBalancingV2ListenerRuleSourceIpConfig   , _elasticLoadBalancingV2ListenerRuleRuleConditionValues :: Maybe (ValList Text)   } deriving (Show, Eq) @@ -25,6 +36,12 @@     object $     catMaybes     [ fmap (("Field",) . toJSON) _elasticLoadBalancingV2ListenerRuleRuleConditionField+    , fmap (("HostHeaderConfig",) . toJSON) _elasticLoadBalancingV2ListenerRuleRuleConditionHostHeaderConfig+    , fmap (("HttpHeaderConfig",) . toJSON) _elasticLoadBalancingV2ListenerRuleRuleConditionHttpHeaderConfig+    , fmap (("HttpRequestMethodConfig",) . toJSON) _elasticLoadBalancingV2ListenerRuleRuleConditionHttpRequestMethodConfig+    , fmap (("PathPatternConfig",) . toJSON) _elasticLoadBalancingV2ListenerRuleRuleConditionPathPatternConfig+    , fmap (("QueryStringConfig",) . toJSON) _elasticLoadBalancingV2ListenerRuleRuleConditionQueryStringConfig+    , fmap (("SourceIpConfig",) . toJSON) _elasticLoadBalancingV2ListenerRuleRuleConditionSourceIpConfig     , fmap (("Values",) . toJSON) _elasticLoadBalancingV2ListenerRuleRuleConditionValues     ] @@ -35,12 +52,42 @@ elasticLoadBalancingV2ListenerRuleRuleCondition  =   ElasticLoadBalancingV2ListenerRuleRuleCondition   { _elasticLoadBalancingV2ListenerRuleRuleConditionField = Nothing+  , _elasticLoadBalancingV2ListenerRuleRuleConditionHostHeaderConfig = Nothing+  , _elasticLoadBalancingV2ListenerRuleRuleConditionHttpHeaderConfig = Nothing+  , _elasticLoadBalancingV2ListenerRuleRuleConditionHttpRequestMethodConfig = Nothing+  , _elasticLoadBalancingV2ListenerRuleRuleConditionPathPatternConfig = Nothing+  , _elasticLoadBalancingV2ListenerRuleRuleConditionQueryStringConfig = Nothing+  , _elasticLoadBalancingV2ListenerRuleRuleConditionSourceIpConfig = Nothing   , _elasticLoadBalancingV2ListenerRuleRuleConditionValues = Nothing   }  -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticloadbalancingv2-listenerrule-conditions.html#cfn-elasticloadbalancingv2-listenerrule-conditions-field elbvlrrcField :: Lens' ElasticLoadBalancingV2ListenerRuleRuleCondition (Maybe (Val Text)) elbvlrrcField = lens _elasticLoadBalancingV2ListenerRuleRuleConditionField (\s a -> s { _elasticLoadBalancingV2ListenerRuleRuleConditionField = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticloadbalancingv2-listenerrule-conditions.html#cfn-elasticloadbalancingv2-listenerrule-rulecondition-hostheaderconfig+elbvlrrcHostHeaderConfig :: Lens' ElasticLoadBalancingV2ListenerRuleRuleCondition (Maybe ElasticLoadBalancingV2ListenerRuleHostHeaderConfig)+elbvlrrcHostHeaderConfig = lens _elasticLoadBalancingV2ListenerRuleRuleConditionHostHeaderConfig (\s a -> s { _elasticLoadBalancingV2ListenerRuleRuleConditionHostHeaderConfig = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticloadbalancingv2-listenerrule-conditions.html#cfn-elasticloadbalancingv2-listenerrule-rulecondition-httpheaderconfig+elbvlrrcHttpHeaderConfig :: Lens' ElasticLoadBalancingV2ListenerRuleRuleCondition (Maybe ElasticLoadBalancingV2ListenerRuleHttpHeaderConfig)+elbvlrrcHttpHeaderConfig = lens _elasticLoadBalancingV2ListenerRuleRuleConditionHttpHeaderConfig (\s a -> s { _elasticLoadBalancingV2ListenerRuleRuleConditionHttpHeaderConfig = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticloadbalancingv2-listenerrule-conditions.html#cfn-elasticloadbalancingv2-listenerrule-rulecondition-httprequestmethodconfig+elbvlrrcHttpRequestMethodConfig :: Lens' ElasticLoadBalancingV2ListenerRuleRuleCondition (Maybe ElasticLoadBalancingV2ListenerRuleHttpRequestMethodConfig)+elbvlrrcHttpRequestMethodConfig = lens _elasticLoadBalancingV2ListenerRuleRuleConditionHttpRequestMethodConfig (\s a -> s { _elasticLoadBalancingV2ListenerRuleRuleConditionHttpRequestMethodConfig = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticloadbalancingv2-listenerrule-conditions.html#cfn-elasticloadbalancingv2-listenerrule-rulecondition-pathpatternconfig+elbvlrrcPathPatternConfig :: Lens' ElasticLoadBalancingV2ListenerRuleRuleCondition (Maybe ElasticLoadBalancingV2ListenerRulePathPatternConfig)+elbvlrrcPathPatternConfig = lens _elasticLoadBalancingV2ListenerRuleRuleConditionPathPatternConfig (\s a -> s { _elasticLoadBalancingV2ListenerRuleRuleConditionPathPatternConfig = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticloadbalancingv2-listenerrule-conditions.html#cfn-elasticloadbalancingv2-listenerrule-rulecondition-querystringconfig+elbvlrrcQueryStringConfig :: Lens' ElasticLoadBalancingV2ListenerRuleRuleCondition (Maybe ElasticLoadBalancingV2ListenerRuleQueryStringConfig)+elbvlrrcQueryStringConfig = lens _elasticLoadBalancingV2ListenerRuleRuleConditionQueryStringConfig (\s a -> s { _elasticLoadBalancingV2ListenerRuleRuleConditionQueryStringConfig = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticloadbalancingv2-listenerrule-conditions.html#cfn-elasticloadbalancingv2-listenerrule-rulecondition-sourceipconfig+elbvlrrcSourceIpConfig :: Lens' ElasticLoadBalancingV2ListenerRuleRuleCondition (Maybe ElasticLoadBalancingV2ListenerRuleSourceIpConfig)+elbvlrrcSourceIpConfig = lens _elasticLoadBalancingV2ListenerRuleRuleConditionSourceIpConfig (\s a -> s { _elasticLoadBalancingV2ListenerRuleRuleConditionSourceIpConfig = a })  -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticloadbalancingv2-listenerrule-conditions.html#cfn-elasticloadbalancingv2-listenerrule-conditions-values elbvlrrcValues :: Lens' ElasticLoadBalancingV2ListenerRuleRuleCondition (Maybe (ValList Text))
+ library-gen/Stratosphere/ResourceProperties/ElasticLoadBalancingV2ListenerRuleSourceIpConfig.hs view
@@ -0,0 +1,40 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticloadbalancingv2-listenerrule-sourceipconfig.html++module Stratosphere.ResourceProperties.ElasticLoadBalancingV2ListenerRuleSourceIpConfig where++import Stratosphere.ResourceImports+++-- | Full data type definition for+-- ElasticLoadBalancingV2ListenerRuleSourceIpConfig. See+-- 'elasticLoadBalancingV2ListenerRuleSourceIpConfig' for a more convenient+-- constructor.+data ElasticLoadBalancingV2ListenerRuleSourceIpConfig =+  ElasticLoadBalancingV2ListenerRuleSourceIpConfig+  { _elasticLoadBalancingV2ListenerRuleSourceIpConfigValues :: Maybe (ValList Text)+  } deriving (Show, Eq)++instance ToJSON ElasticLoadBalancingV2ListenerRuleSourceIpConfig where+  toJSON ElasticLoadBalancingV2ListenerRuleSourceIpConfig{..} =+    object $+    catMaybes+    [ fmap (("Values",) . toJSON) _elasticLoadBalancingV2ListenerRuleSourceIpConfigValues+    ]++-- | Constructor for 'ElasticLoadBalancingV2ListenerRuleSourceIpConfig'+-- containing required fields as arguments.+elasticLoadBalancingV2ListenerRuleSourceIpConfig+  :: ElasticLoadBalancingV2ListenerRuleSourceIpConfig+elasticLoadBalancingV2ListenerRuleSourceIpConfig  =+  ElasticLoadBalancingV2ListenerRuleSourceIpConfig+  { _elasticLoadBalancingV2ListenerRuleSourceIpConfigValues = Nothing+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-elasticloadbalancingv2-listenerrule-sourceipconfig.html#cfn-elasticloadbalancingv2-listenerrule-sourceipconfig-values+elbvlrsicValues :: Lens' ElasticLoadBalancingV2ListenerRuleSourceIpConfig (Maybe (ValList Text))+elbvlrsicValues = lens _elasticLoadBalancingV2ListenerRuleSourceIpConfigValues (\s a -> s { _elasticLoadBalancingV2ListenerRuleSourceIpConfigValues = a })
+ library-gen/Stratosphere/ResourceProperties/IoTAnalyticsDatasetDatasetContentDeliveryRule.hs view
@@ -0,0 +1,48 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iotanalytics-dataset-datasetcontentdeliveryrule.html++module Stratosphere.ResourceProperties.IoTAnalyticsDatasetDatasetContentDeliveryRule where++import Stratosphere.ResourceImports+import Stratosphere.ResourceProperties.IoTAnalyticsDatasetDatasetContentDeliveryRuleDestination++-- | Full data type definition for+-- IoTAnalyticsDatasetDatasetContentDeliveryRule. See+-- 'ioTAnalyticsDatasetDatasetContentDeliveryRule' for a more convenient+-- constructor.+data IoTAnalyticsDatasetDatasetContentDeliveryRule =+  IoTAnalyticsDatasetDatasetContentDeliveryRule+  { _ioTAnalyticsDatasetDatasetContentDeliveryRuleDestination :: IoTAnalyticsDatasetDatasetContentDeliveryRuleDestination+  , _ioTAnalyticsDatasetDatasetContentDeliveryRuleEntryName :: Maybe (Val Text)+  } deriving (Show, Eq)++instance ToJSON IoTAnalyticsDatasetDatasetContentDeliveryRule where+  toJSON IoTAnalyticsDatasetDatasetContentDeliveryRule{..} =+    object $+    catMaybes+    [ (Just . ("Destination",) . toJSON) _ioTAnalyticsDatasetDatasetContentDeliveryRuleDestination+    , fmap (("EntryName",) . toJSON) _ioTAnalyticsDatasetDatasetContentDeliveryRuleEntryName+    ]++-- | Constructor for 'IoTAnalyticsDatasetDatasetContentDeliveryRule'+-- containing required fields as arguments.+ioTAnalyticsDatasetDatasetContentDeliveryRule+  :: IoTAnalyticsDatasetDatasetContentDeliveryRuleDestination -- ^ 'itaddcdrDestination'+  -> IoTAnalyticsDatasetDatasetContentDeliveryRule+ioTAnalyticsDatasetDatasetContentDeliveryRule destinationarg =+  IoTAnalyticsDatasetDatasetContentDeliveryRule+  { _ioTAnalyticsDatasetDatasetContentDeliveryRuleDestination = destinationarg+  , _ioTAnalyticsDatasetDatasetContentDeliveryRuleEntryName = Nothing+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iotanalytics-dataset-datasetcontentdeliveryrule.html#cfn-iotanalytics-dataset-datasetcontentdeliveryrule-destination+itaddcdrDestination :: Lens' IoTAnalyticsDatasetDatasetContentDeliveryRule IoTAnalyticsDatasetDatasetContentDeliveryRuleDestination+itaddcdrDestination = lens _ioTAnalyticsDatasetDatasetContentDeliveryRuleDestination (\s a -> s { _ioTAnalyticsDatasetDatasetContentDeliveryRuleDestination = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iotanalytics-dataset-datasetcontentdeliveryrule.html#cfn-iotanalytics-dataset-datasetcontentdeliveryrule-entryname+itaddcdrEntryName :: Lens' IoTAnalyticsDatasetDatasetContentDeliveryRule (Maybe (Val Text))+itaddcdrEntryName = lens _ioTAnalyticsDatasetDatasetContentDeliveryRuleEntryName (\s a -> s { _ioTAnalyticsDatasetDatasetContentDeliveryRuleEntryName = a })
+ library-gen/Stratosphere/ResourceProperties/IoTAnalyticsDatasetDatasetContentDeliveryRuleDestination.hs view
@@ -0,0 +1,49 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iotanalytics-dataset-datasetcontentdeliveryruledestination.html++module Stratosphere.ResourceProperties.IoTAnalyticsDatasetDatasetContentDeliveryRuleDestination where++import Stratosphere.ResourceImports+import Stratosphere.ResourceProperties.IoTAnalyticsDatasetIotEventsDestinationConfiguration+import Stratosphere.ResourceProperties.IoTAnalyticsDatasetS3DestinationConfiguration++-- | Full data type definition for+-- IoTAnalyticsDatasetDatasetContentDeliveryRuleDestination. See+-- 'ioTAnalyticsDatasetDatasetContentDeliveryRuleDestination' for a more+-- convenient constructor.+data IoTAnalyticsDatasetDatasetContentDeliveryRuleDestination =+  IoTAnalyticsDatasetDatasetContentDeliveryRuleDestination+  { _ioTAnalyticsDatasetDatasetContentDeliveryRuleDestinationIotEventsDestinationConfiguration :: Maybe IoTAnalyticsDatasetIotEventsDestinationConfiguration+  , _ioTAnalyticsDatasetDatasetContentDeliveryRuleDestinationS3DestinationConfiguration :: Maybe IoTAnalyticsDatasetS3DestinationConfiguration+  } deriving (Show, Eq)++instance ToJSON IoTAnalyticsDatasetDatasetContentDeliveryRuleDestination where+  toJSON IoTAnalyticsDatasetDatasetContentDeliveryRuleDestination{..} =+    object $+    catMaybes+    [ fmap (("IotEventsDestinationConfiguration",) . toJSON) _ioTAnalyticsDatasetDatasetContentDeliveryRuleDestinationIotEventsDestinationConfiguration+    , fmap (("S3DestinationConfiguration",) . toJSON) _ioTAnalyticsDatasetDatasetContentDeliveryRuleDestinationS3DestinationConfiguration+    ]++-- | Constructor for+-- 'IoTAnalyticsDatasetDatasetContentDeliveryRuleDestination' containing+-- required fields as arguments.+ioTAnalyticsDatasetDatasetContentDeliveryRuleDestination+  :: IoTAnalyticsDatasetDatasetContentDeliveryRuleDestination+ioTAnalyticsDatasetDatasetContentDeliveryRuleDestination  =+  IoTAnalyticsDatasetDatasetContentDeliveryRuleDestination+  { _ioTAnalyticsDatasetDatasetContentDeliveryRuleDestinationIotEventsDestinationConfiguration = Nothing+  , _ioTAnalyticsDatasetDatasetContentDeliveryRuleDestinationS3DestinationConfiguration = Nothing+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iotanalytics-dataset-datasetcontentdeliveryruledestination.html#cfn-iotanalytics-dataset-datasetcontentdeliveryruledestination-ioteventsdestinationconfiguration+itaddcdrdIotEventsDestinationConfiguration :: Lens' IoTAnalyticsDatasetDatasetContentDeliveryRuleDestination (Maybe IoTAnalyticsDatasetIotEventsDestinationConfiguration)+itaddcdrdIotEventsDestinationConfiguration = lens _ioTAnalyticsDatasetDatasetContentDeliveryRuleDestinationIotEventsDestinationConfiguration (\s a -> s { _ioTAnalyticsDatasetDatasetContentDeliveryRuleDestinationIotEventsDestinationConfiguration = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iotanalytics-dataset-datasetcontentdeliveryruledestination.html#cfn-iotanalytics-dataset-datasetcontentdeliveryruledestination-s3destinationconfiguration+itaddcdrdS3DestinationConfiguration :: Lens' IoTAnalyticsDatasetDatasetContentDeliveryRuleDestination (Maybe IoTAnalyticsDatasetS3DestinationConfiguration)+itaddcdrdS3DestinationConfiguration = lens _ioTAnalyticsDatasetDatasetContentDeliveryRuleDestinationS3DestinationConfiguration (\s a -> s { _ioTAnalyticsDatasetDatasetContentDeliveryRuleDestinationS3DestinationConfiguration = a })
+ library-gen/Stratosphere/ResourceProperties/IoTAnalyticsDatasetGlueConfiguration.hs view
@@ -0,0 +1,47 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iotanalytics-dataset-glueconfiguration.html++module Stratosphere.ResourceProperties.IoTAnalyticsDatasetGlueConfiguration where++import Stratosphere.ResourceImports+++-- | Full data type definition for IoTAnalyticsDatasetGlueConfiguration. See+-- 'ioTAnalyticsDatasetGlueConfiguration' for a more convenient constructor.+data IoTAnalyticsDatasetGlueConfiguration =+  IoTAnalyticsDatasetGlueConfiguration+  { _ioTAnalyticsDatasetGlueConfigurationDatabaseName :: Val Text+  , _ioTAnalyticsDatasetGlueConfigurationTableName :: Val Text+  } deriving (Show, Eq)++instance ToJSON IoTAnalyticsDatasetGlueConfiguration where+  toJSON IoTAnalyticsDatasetGlueConfiguration{..} =+    object $+    catMaybes+    [ (Just . ("DatabaseName",) . toJSON) _ioTAnalyticsDatasetGlueConfigurationDatabaseName+    , (Just . ("TableName",) . toJSON) _ioTAnalyticsDatasetGlueConfigurationTableName+    ]++-- | Constructor for 'IoTAnalyticsDatasetGlueConfiguration' containing+-- required fields as arguments.+ioTAnalyticsDatasetGlueConfiguration+  :: Val Text -- ^ 'itadgcDatabaseName'+  -> Val Text -- ^ 'itadgcTableName'+  -> IoTAnalyticsDatasetGlueConfiguration+ioTAnalyticsDatasetGlueConfiguration databaseNamearg tableNamearg =+  IoTAnalyticsDatasetGlueConfiguration+  { _ioTAnalyticsDatasetGlueConfigurationDatabaseName = databaseNamearg+  , _ioTAnalyticsDatasetGlueConfigurationTableName = tableNamearg+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iotanalytics-dataset-glueconfiguration.html#cfn-iotanalytics-dataset-glueconfiguration-databasename+itadgcDatabaseName :: Lens' IoTAnalyticsDatasetGlueConfiguration (Val Text)+itadgcDatabaseName = lens _ioTAnalyticsDatasetGlueConfigurationDatabaseName (\s a -> s { _ioTAnalyticsDatasetGlueConfigurationDatabaseName = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iotanalytics-dataset-glueconfiguration.html#cfn-iotanalytics-dataset-glueconfiguration-tablename+itadgcTableName :: Lens' IoTAnalyticsDatasetGlueConfiguration (Val Text)+itadgcTableName = lens _ioTAnalyticsDatasetGlueConfigurationTableName (\s a -> s { _ioTAnalyticsDatasetGlueConfigurationTableName = a })
+ library-gen/Stratosphere/ResourceProperties/IoTAnalyticsDatasetIotEventsDestinationConfiguration.hs view
@@ -0,0 +1,49 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iotanalytics-dataset-ioteventsdestinationconfiguration.html++module Stratosphere.ResourceProperties.IoTAnalyticsDatasetIotEventsDestinationConfiguration where++import Stratosphere.ResourceImports+++-- | Full data type definition for+-- IoTAnalyticsDatasetIotEventsDestinationConfiguration. See+-- 'ioTAnalyticsDatasetIotEventsDestinationConfiguration' for a more+-- convenient constructor.+data IoTAnalyticsDatasetIotEventsDestinationConfiguration =+  IoTAnalyticsDatasetIotEventsDestinationConfiguration+  { _ioTAnalyticsDatasetIotEventsDestinationConfigurationInputName :: Val Text+  , _ioTAnalyticsDatasetIotEventsDestinationConfigurationRoleArn :: Val Text+  } deriving (Show, Eq)++instance ToJSON IoTAnalyticsDatasetIotEventsDestinationConfiguration where+  toJSON IoTAnalyticsDatasetIotEventsDestinationConfiguration{..} =+    object $+    catMaybes+    [ (Just . ("InputName",) . toJSON) _ioTAnalyticsDatasetIotEventsDestinationConfigurationInputName+    , (Just . ("RoleArn",) . toJSON) _ioTAnalyticsDatasetIotEventsDestinationConfigurationRoleArn+    ]++-- | Constructor for 'IoTAnalyticsDatasetIotEventsDestinationConfiguration'+-- containing required fields as arguments.+ioTAnalyticsDatasetIotEventsDestinationConfiguration+  :: Val Text -- ^ 'itadiedcInputName'+  -> Val Text -- ^ 'itadiedcRoleArn'+  -> IoTAnalyticsDatasetIotEventsDestinationConfiguration+ioTAnalyticsDatasetIotEventsDestinationConfiguration inputNamearg roleArnarg =+  IoTAnalyticsDatasetIotEventsDestinationConfiguration+  { _ioTAnalyticsDatasetIotEventsDestinationConfigurationInputName = inputNamearg+  , _ioTAnalyticsDatasetIotEventsDestinationConfigurationRoleArn = roleArnarg+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iotanalytics-dataset-ioteventsdestinationconfiguration.html#cfn-iotanalytics-dataset-ioteventsdestinationconfiguration-inputname+itadiedcInputName :: Lens' IoTAnalyticsDatasetIotEventsDestinationConfiguration (Val Text)+itadiedcInputName = lens _ioTAnalyticsDatasetIotEventsDestinationConfigurationInputName (\s a -> s { _ioTAnalyticsDatasetIotEventsDestinationConfigurationInputName = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iotanalytics-dataset-ioteventsdestinationconfiguration.html#cfn-iotanalytics-dataset-ioteventsdestinationconfiguration-rolearn+itadiedcRoleArn :: Lens' IoTAnalyticsDatasetIotEventsDestinationConfiguration (Val Text)+itadiedcRoleArn = lens _ioTAnalyticsDatasetIotEventsDestinationConfigurationRoleArn (\s a -> s { _ioTAnalyticsDatasetIotEventsDestinationConfigurationRoleArn = a })
+ library-gen/Stratosphere/ResourceProperties/IoTAnalyticsDatasetS3DestinationConfiguration.hs view
@@ -0,0 +1,64 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iotanalytics-dataset-s3destinationconfiguration.html++module Stratosphere.ResourceProperties.IoTAnalyticsDatasetS3DestinationConfiguration where++import Stratosphere.ResourceImports+import Stratosphere.ResourceProperties.IoTAnalyticsDatasetGlueConfiguration++-- | Full data type definition for+-- IoTAnalyticsDatasetS3DestinationConfiguration. See+-- 'ioTAnalyticsDatasetS3DestinationConfiguration' for a more convenient+-- constructor.+data IoTAnalyticsDatasetS3DestinationConfiguration =+  IoTAnalyticsDatasetS3DestinationConfiguration+  { _ioTAnalyticsDatasetS3DestinationConfigurationBucket :: Val Text+  , _ioTAnalyticsDatasetS3DestinationConfigurationGlueConfiguration :: Maybe IoTAnalyticsDatasetGlueConfiguration+  , _ioTAnalyticsDatasetS3DestinationConfigurationKey :: Val Text+  , _ioTAnalyticsDatasetS3DestinationConfigurationRoleArn :: Val Text+  } deriving (Show, Eq)++instance ToJSON IoTAnalyticsDatasetS3DestinationConfiguration where+  toJSON IoTAnalyticsDatasetS3DestinationConfiguration{..} =+    object $+    catMaybes+    [ (Just . ("Bucket",) . toJSON) _ioTAnalyticsDatasetS3DestinationConfigurationBucket+    , fmap (("GlueConfiguration",) . toJSON) _ioTAnalyticsDatasetS3DestinationConfigurationGlueConfiguration+    , (Just . ("Key",) . toJSON) _ioTAnalyticsDatasetS3DestinationConfigurationKey+    , (Just . ("RoleArn",) . toJSON) _ioTAnalyticsDatasetS3DestinationConfigurationRoleArn+    ]++-- | Constructor for 'IoTAnalyticsDatasetS3DestinationConfiguration'+-- containing required fields as arguments.+ioTAnalyticsDatasetS3DestinationConfiguration+  :: Val Text -- ^ 'itadsdcBucket'+  -> Val Text -- ^ 'itadsdcKey'+  -> Val Text -- ^ 'itadsdcRoleArn'+  -> IoTAnalyticsDatasetS3DestinationConfiguration+ioTAnalyticsDatasetS3DestinationConfiguration bucketarg keyarg roleArnarg =+  IoTAnalyticsDatasetS3DestinationConfiguration+  { _ioTAnalyticsDatasetS3DestinationConfigurationBucket = bucketarg+  , _ioTAnalyticsDatasetS3DestinationConfigurationGlueConfiguration = Nothing+  , _ioTAnalyticsDatasetS3DestinationConfigurationKey = keyarg+  , _ioTAnalyticsDatasetS3DestinationConfigurationRoleArn = roleArnarg+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iotanalytics-dataset-s3destinationconfiguration.html#cfn-iotanalytics-dataset-s3destinationconfiguration-bucket+itadsdcBucket :: Lens' IoTAnalyticsDatasetS3DestinationConfiguration (Val Text)+itadsdcBucket = lens _ioTAnalyticsDatasetS3DestinationConfigurationBucket (\s a -> s { _ioTAnalyticsDatasetS3DestinationConfigurationBucket = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iotanalytics-dataset-s3destinationconfiguration.html#cfn-iotanalytics-dataset-s3destinationconfiguration-glueconfiguration+itadsdcGlueConfiguration :: Lens' IoTAnalyticsDatasetS3DestinationConfiguration (Maybe IoTAnalyticsDatasetGlueConfiguration)+itadsdcGlueConfiguration = lens _ioTAnalyticsDatasetS3DestinationConfigurationGlueConfiguration (\s a -> s { _ioTAnalyticsDatasetS3DestinationConfigurationGlueConfiguration = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iotanalytics-dataset-s3destinationconfiguration.html#cfn-iotanalytics-dataset-s3destinationconfiguration-key+itadsdcKey :: Lens' IoTAnalyticsDatasetS3DestinationConfiguration (Val Text)+itadsdcKey = lens _ioTAnalyticsDatasetS3DestinationConfigurationKey (\s a -> s { _ioTAnalyticsDatasetS3DestinationConfigurationKey = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iotanalytics-dataset-s3destinationconfiguration.html#cfn-iotanalytics-dataset-s3destinationconfiguration-rolearn+itadsdcRoleArn :: Lens' IoTAnalyticsDatasetS3DestinationConfiguration (Val Text)+itadsdcRoleArn = lens _ioTAnalyticsDatasetS3DestinationConfigurationRoleArn (\s a -> s { _ioTAnalyticsDatasetS3DestinationConfigurationRoleArn = a })
+ library-gen/Stratosphere/ResourceProperties/IoTAnalyticsDatasetVersioningConfiguration.hs view
@@ -0,0 +1,46 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iotanalytics-dataset-versioningconfiguration.html++module Stratosphere.ResourceProperties.IoTAnalyticsDatasetVersioningConfiguration where++import Stratosphere.ResourceImports+++-- | Full data type definition for IoTAnalyticsDatasetVersioningConfiguration.+-- See 'ioTAnalyticsDatasetVersioningConfiguration' for a more convenient+-- constructor.+data IoTAnalyticsDatasetVersioningConfiguration =+  IoTAnalyticsDatasetVersioningConfiguration+  { _ioTAnalyticsDatasetVersioningConfigurationMaxVersions :: Maybe (Val Integer)+  , _ioTAnalyticsDatasetVersioningConfigurationUnlimited :: Maybe (Val Bool)+  } deriving (Show, Eq)++instance ToJSON IoTAnalyticsDatasetVersioningConfiguration where+  toJSON IoTAnalyticsDatasetVersioningConfiguration{..} =+    object $+    catMaybes+    [ fmap (("MaxVersions",) . toJSON) _ioTAnalyticsDatasetVersioningConfigurationMaxVersions+    , fmap (("Unlimited",) . toJSON) _ioTAnalyticsDatasetVersioningConfigurationUnlimited+    ]++-- | Constructor for 'IoTAnalyticsDatasetVersioningConfiguration' containing+-- required fields as arguments.+ioTAnalyticsDatasetVersioningConfiguration+  :: IoTAnalyticsDatasetVersioningConfiguration+ioTAnalyticsDatasetVersioningConfiguration  =+  IoTAnalyticsDatasetVersioningConfiguration+  { _ioTAnalyticsDatasetVersioningConfigurationMaxVersions = Nothing+  , _ioTAnalyticsDatasetVersioningConfigurationUnlimited = Nothing+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iotanalytics-dataset-versioningconfiguration.html#cfn-iotanalytics-dataset-versioningconfiguration-maxversions+itadvcMaxVersions :: Lens' IoTAnalyticsDatasetVersioningConfiguration (Maybe (Val Integer))+itadvcMaxVersions = lens _ioTAnalyticsDatasetVersioningConfigurationMaxVersions (\s a -> s { _ioTAnalyticsDatasetVersioningConfigurationMaxVersions = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iotanalytics-dataset-versioningconfiguration.html#cfn-iotanalytics-dataset-versioningconfiguration-unlimited+itadvcUnlimited :: Lens' IoTAnalyticsDatasetVersioningConfiguration (Maybe (Val Bool))+itadvcUnlimited = lens _ioTAnalyticsDatasetVersioningConfigurationUnlimited (\s a -> s { _ioTAnalyticsDatasetVersioningConfigurationUnlimited = a })
+ library-gen/Stratosphere/ResourceProperties/IoTThingsGraphFlowTemplateDefinitionDocument.hs view
@@ -0,0 +1,49 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iotthingsgraph-flowtemplate-definitiondocument.html++module Stratosphere.ResourceProperties.IoTThingsGraphFlowTemplateDefinitionDocument where++import Stratosphere.ResourceImports+++-- | Full data type definition for+-- IoTThingsGraphFlowTemplateDefinitionDocument. See+-- 'ioTThingsGraphFlowTemplateDefinitionDocument' for a more convenient+-- constructor.+data IoTThingsGraphFlowTemplateDefinitionDocument =+  IoTThingsGraphFlowTemplateDefinitionDocument+  { _ioTThingsGraphFlowTemplateDefinitionDocumentLanguage :: Val Text+  , _ioTThingsGraphFlowTemplateDefinitionDocumentText :: Val Text+  } deriving (Show, Eq)++instance ToJSON IoTThingsGraphFlowTemplateDefinitionDocument where+  toJSON IoTThingsGraphFlowTemplateDefinitionDocument{..} =+    object $+    catMaybes+    [ (Just . ("Language",) . toJSON) _ioTThingsGraphFlowTemplateDefinitionDocumentLanguage+    , (Just . ("Text",) . toJSON) _ioTThingsGraphFlowTemplateDefinitionDocumentText+    ]++-- | Constructor for 'IoTThingsGraphFlowTemplateDefinitionDocument' containing+-- required fields as arguments.+ioTThingsGraphFlowTemplateDefinitionDocument+  :: Val Text -- ^ 'ittgftddLanguage'+  -> Val Text -- ^ 'ittgftddText'+  -> IoTThingsGraphFlowTemplateDefinitionDocument+ioTThingsGraphFlowTemplateDefinitionDocument languagearg textarg =+  IoTThingsGraphFlowTemplateDefinitionDocument+  { _ioTThingsGraphFlowTemplateDefinitionDocumentLanguage = languagearg+  , _ioTThingsGraphFlowTemplateDefinitionDocumentText = textarg+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iotthingsgraph-flowtemplate-definitiondocument.html#cfn-iotthingsgraph-flowtemplate-definitiondocument-language+ittgftddLanguage :: Lens' IoTThingsGraphFlowTemplateDefinitionDocument (Val Text)+ittgftddLanguage = lens _ioTThingsGraphFlowTemplateDefinitionDocumentLanguage (\s a -> s { _ioTThingsGraphFlowTemplateDefinitionDocumentLanguage = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-iotthingsgraph-flowtemplate-definitiondocument.html#cfn-iotthingsgraph-flowtemplate-definitiondocument-text+ittgftddText :: Lens' IoTThingsGraphFlowTemplateDefinitionDocument (Val Text)+ittgftddText = lens _ioTThingsGraphFlowTemplateDefinitionDocumentText (\s a -> s { _ioTThingsGraphFlowTemplateDefinitionDocumentText = a })
+ library-gen/Stratosphere/ResourceProperties/KinesisFirehoseDeliveryStreamDataFormatConversionConfiguration.hs view
@@ -0,0 +1,68 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisfirehose-deliverystream-dataformatconversionconfiguration.html++module Stratosphere.ResourceProperties.KinesisFirehoseDeliveryStreamDataFormatConversionConfiguration where++import Stratosphere.ResourceImports+import Stratosphere.ResourceProperties.KinesisFirehoseDeliveryStreamInputFormatConfiguration+import Stratosphere.ResourceProperties.KinesisFirehoseDeliveryStreamOutputFormatConfiguration+import Stratosphere.ResourceProperties.KinesisFirehoseDeliveryStreamSchemaConfiguration++-- | Full data type definition for+-- KinesisFirehoseDeliveryStreamDataFormatConversionConfiguration. See+-- 'kinesisFirehoseDeliveryStreamDataFormatConversionConfiguration' for a+-- more convenient constructor.+data KinesisFirehoseDeliveryStreamDataFormatConversionConfiguration =+  KinesisFirehoseDeliveryStreamDataFormatConversionConfiguration+  { _kinesisFirehoseDeliveryStreamDataFormatConversionConfigurationEnabled :: Val Bool+  , _kinesisFirehoseDeliveryStreamDataFormatConversionConfigurationInputFormatConfiguration :: KinesisFirehoseDeliveryStreamInputFormatConfiguration+  , _kinesisFirehoseDeliveryStreamDataFormatConversionConfigurationOutputFormatConfiguration :: KinesisFirehoseDeliveryStreamOutputFormatConfiguration+  , _kinesisFirehoseDeliveryStreamDataFormatConversionConfigurationSchemaConfiguration :: KinesisFirehoseDeliveryStreamSchemaConfiguration+  } deriving (Show, Eq)++instance ToJSON KinesisFirehoseDeliveryStreamDataFormatConversionConfiguration where+  toJSON KinesisFirehoseDeliveryStreamDataFormatConversionConfiguration{..} =+    object $+    catMaybes+    [ (Just . ("Enabled",) . toJSON) _kinesisFirehoseDeliveryStreamDataFormatConversionConfigurationEnabled+    , (Just . ("InputFormatConfiguration",) . toJSON) _kinesisFirehoseDeliveryStreamDataFormatConversionConfigurationInputFormatConfiguration+    , (Just . ("OutputFormatConfiguration",) . toJSON) _kinesisFirehoseDeliveryStreamDataFormatConversionConfigurationOutputFormatConfiguration+    , (Just . ("SchemaConfiguration",) . toJSON) _kinesisFirehoseDeliveryStreamDataFormatConversionConfigurationSchemaConfiguration+    ]++-- | Constructor for+-- 'KinesisFirehoseDeliveryStreamDataFormatConversionConfiguration'+-- containing required fields as arguments.+kinesisFirehoseDeliveryStreamDataFormatConversionConfiguration+  :: Val Bool -- ^ 'kfdsdfccEnabled'+  -> KinesisFirehoseDeliveryStreamInputFormatConfiguration -- ^ 'kfdsdfccInputFormatConfiguration'+  -> KinesisFirehoseDeliveryStreamOutputFormatConfiguration -- ^ 'kfdsdfccOutputFormatConfiguration'+  -> KinesisFirehoseDeliveryStreamSchemaConfiguration -- ^ 'kfdsdfccSchemaConfiguration'+  -> KinesisFirehoseDeliveryStreamDataFormatConversionConfiguration+kinesisFirehoseDeliveryStreamDataFormatConversionConfiguration enabledarg inputFormatConfigurationarg outputFormatConfigurationarg schemaConfigurationarg =+  KinesisFirehoseDeliveryStreamDataFormatConversionConfiguration+  { _kinesisFirehoseDeliveryStreamDataFormatConversionConfigurationEnabled = enabledarg+  , _kinesisFirehoseDeliveryStreamDataFormatConversionConfigurationInputFormatConfiguration = inputFormatConfigurationarg+  , _kinesisFirehoseDeliveryStreamDataFormatConversionConfigurationOutputFormatConfiguration = outputFormatConfigurationarg+  , _kinesisFirehoseDeliveryStreamDataFormatConversionConfigurationSchemaConfiguration = schemaConfigurationarg+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisfirehose-deliverystream-dataformatconversionconfiguration.html#cfn-kinesisfirehose-deliverystream-dataformatconversionconfiguration-enabled+kfdsdfccEnabled :: Lens' KinesisFirehoseDeliveryStreamDataFormatConversionConfiguration (Val Bool)+kfdsdfccEnabled = lens _kinesisFirehoseDeliveryStreamDataFormatConversionConfigurationEnabled (\s a -> s { _kinesisFirehoseDeliveryStreamDataFormatConversionConfigurationEnabled = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisfirehose-deliverystream-dataformatconversionconfiguration.html#cfn-kinesisfirehose-deliverystream-dataformatconversionconfiguration-inputformatconfiguration+kfdsdfccInputFormatConfiguration :: Lens' KinesisFirehoseDeliveryStreamDataFormatConversionConfiguration KinesisFirehoseDeliveryStreamInputFormatConfiguration+kfdsdfccInputFormatConfiguration = lens _kinesisFirehoseDeliveryStreamDataFormatConversionConfigurationInputFormatConfiguration (\s a -> s { _kinesisFirehoseDeliveryStreamDataFormatConversionConfigurationInputFormatConfiguration = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisfirehose-deliverystream-dataformatconversionconfiguration.html#cfn-kinesisfirehose-deliverystream-dataformatconversionconfiguration-outputformatconfiguration+kfdsdfccOutputFormatConfiguration :: Lens' KinesisFirehoseDeliveryStreamDataFormatConversionConfiguration KinesisFirehoseDeliveryStreamOutputFormatConfiguration+kfdsdfccOutputFormatConfiguration = lens _kinesisFirehoseDeliveryStreamDataFormatConversionConfigurationOutputFormatConfiguration (\s a -> s { _kinesisFirehoseDeliveryStreamDataFormatConversionConfigurationOutputFormatConfiguration = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisfirehose-deliverystream-dataformatconversionconfiguration.html#cfn-kinesisfirehose-deliverystream-dataformatconversionconfiguration-schemaconfiguration+kfdsdfccSchemaConfiguration :: Lens' KinesisFirehoseDeliveryStreamDataFormatConversionConfiguration KinesisFirehoseDeliveryStreamSchemaConfiguration+kfdsdfccSchemaConfiguration = lens _kinesisFirehoseDeliveryStreamDataFormatConversionConfigurationSchemaConfiguration (\s a -> s { _kinesisFirehoseDeliveryStreamDataFormatConversionConfigurationSchemaConfiguration = a })
+ library-gen/Stratosphere/ResourceProperties/KinesisFirehoseDeliveryStreamDeserializer.hs view
@@ -0,0 +1,47 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisfirehose-deliverystream-deserializer.html++module Stratosphere.ResourceProperties.KinesisFirehoseDeliveryStreamDeserializer where++import Stratosphere.ResourceImports+import Stratosphere.ResourceProperties.KinesisFirehoseDeliveryStreamHiveJsonSerDe+import Stratosphere.ResourceProperties.KinesisFirehoseDeliveryStreamOpenXJsonSerDe++-- | Full data type definition for KinesisFirehoseDeliveryStreamDeserializer.+-- See 'kinesisFirehoseDeliveryStreamDeserializer' for a more convenient+-- constructor.+data KinesisFirehoseDeliveryStreamDeserializer =+  KinesisFirehoseDeliveryStreamDeserializer+  { _kinesisFirehoseDeliveryStreamDeserializerHiveJsonSerDe :: Maybe KinesisFirehoseDeliveryStreamHiveJsonSerDe+  , _kinesisFirehoseDeliveryStreamDeserializerOpenXJsonSerDe :: Maybe KinesisFirehoseDeliveryStreamOpenXJsonSerDe+  } deriving (Show, Eq)++instance ToJSON KinesisFirehoseDeliveryStreamDeserializer where+  toJSON KinesisFirehoseDeliveryStreamDeserializer{..} =+    object $+    catMaybes+    [ fmap (("HiveJsonSerDe",) . toJSON) _kinesisFirehoseDeliveryStreamDeserializerHiveJsonSerDe+    , fmap (("OpenXJsonSerDe",) . toJSON) _kinesisFirehoseDeliveryStreamDeserializerOpenXJsonSerDe+    ]++-- | Constructor for 'KinesisFirehoseDeliveryStreamDeserializer' containing+-- required fields as arguments.+kinesisFirehoseDeliveryStreamDeserializer+  :: KinesisFirehoseDeliveryStreamDeserializer+kinesisFirehoseDeliveryStreamDeserializer  =+  KinesisFirehoseDeliveryStreamDeserializer+  { _kinesisFirehoseDeliveryStreamDeserializerHiveJsonSerDe = Nothing+  , _kinesisFirehoseDeliveryStreamDeserializerOpenXJsonSerDe = Nothing+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisfirehose-deliverystream-deserializer.html#cfn-kinesisfirehose-deliverystream-deserializer-hivejsonserde+kfdsdHiveJsonSerDe :: Lens' KinesisFirehoseDeliveryStreamDeserializer (Maybe KinesisFirehoseDeliveryStreamHiveJsonSerDe)+kfdsdHiveJsonSerDe = lens _kinesisFirehoseDeliveryStreamDeserializerHiveJsonSerDe (\s a -> s { _kinesisFirehoseDeliveryStreamDeserializerHiveJsonSerDe = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisfirehose-deliverystream-deserializer.html#cfn-kinesisfirehose-deliverystream-deserializer-openxjsonserde+kfdsdOpenXJsonSerDe :: Lens' KinesisFirehoseDeliveryStreamDeserializer (Maybe KinesisFirehoseDeliveryStreamOpenXJsonSerDe)+kfdsdOpenXJsonSerDe = lens _kinesisFirehoseDeliveryStreamDeserializerOpenXJsonSerDe (\s a -> s { _kinesisFirehoseDeliveryStreamDeserializerOpenXJsonSerDe = a })
library-gen/Stratosphere/ResourceProperties/KinesisFirehoseDeliveryStreamExtendedS3DestinationConfiguration.hs view
@@ -10,6 +10,7 @@ import Stratosphere.ResourceImports import Stratosphere.ResourceProperties.KinesisFirehoseDeliveryStreamBufferingHints import Stratosphere.ResourceProperties.KinesisFirehoseDeliveryStreamCloudWatchLoggingOptions+import Stratosphere.ResourceProperties.KinesisFirehoseDeliveryStreamDataFormatConversionConfiguration import Stratosphere.ResourceProperties.KinesisFirehoseDeliveryStreamEncryptionConfiguration import Stratosphere.ResourceProperties.KinesisFirehoseDeliveryStreamProcessingConfiguration import Stratosphere.ResourceProperties.KinesisFirehoseDeliveryStreamS3DestinationConfiguration@@ -24,8 +25,10 @@   , _kinesisFirehoseDeliveryStreamExtendedS3DestinationConfigurationBufferingHints :: KinesisFirehoseDeliveryStreamBufferingHints   , _kinesisFirehoseDeliveryStreamExtendedS3DestinationConfigurationCloudWatchLoggingOptions :: Maybe KinesisFirehoseDeliveryStreamCloudWatchLoggingOptions   , _kinesisFirehoseDeliveryStreamExtendedS3DestinationConfigurationCompressionFormat :: Val Text+  , _kinesisFirehoseDeliveryStreamExtendedS3DestinationConfigurationDataFormatConversionConfiguration :: Maybe KinesisFirehoseDeliveryStreamDataFormatConversionConfiguration   , _kinesisFirehoseDeliveryStreamExtendedS3DestinationConfigurationEncryptionConfiguration :: Maybe KinesisFirehoseDeliveryStreamEncryptionConfiguration-  , _kinesisFirehoseDeliveryStreamExtendedS3DestinationConfigurationPrefix :: Val Text+  , _kinesisFirehoseDeliveryStreamExtendedS3DestinationConfigurationErrorOutputPrefix :: Maybe (Val Text)+  , _kinesisFirehoseDeliveryStreamExtendedS3DestinationConfigurationPrefix :: Maybe (Val Text)   , _kinesisFirehoseDeliveryStreamExtendedS3DestinationConfigurationProcessingConfiguration :: Maybe KinesisFirehoseDeliveryStreamProcessingConfiguration   , _kinesisFirehoseDeliveryStreamExtendedS3DestinationConfigurationRoleARN :: Val Text   , _kinesisFirehoseDeliveryStreamExtendedS3DestinationConfigurationS3BackupConfiguration :: Maybe KinesisFirehoseDeliveryStreamS3DestinationConfiguration@@ -40,8 +43,10 @@     , (Just . ("BufferingHints",) . toJSON) _kinesisFirehoseDeliveryStreamExtendedS3DestinationConfigurationBufferingHints     , fmap (("CloudWatchLoggingOptions",) . toJSON) _kinesisFirehoseDeliveryStreamExtendedS3DestinationConfigurationCloudWatchLoggingOptions     , (Just . ("CompressionFormat",) . toJSON) _kinesisFirehoseDeliveryStreamExtendedS3DestinationConfigurationCompressionFormat+    , fmap (("DataFormatConversionConfiguration",) . toJSON) _kinesisFirehoseDeliveryStreamExtendedS3DestinationConfigurationDataFormatConversionConfiguration     , fmap (("EncryptionConfiguration",) . toJSON) _kinesisFirehoseDeliveryStreamExtendedS3DestinationConfigurationEncryptionConfiguration-    , (Just . ("Prefix",) . toJSON) _kinesisFirehoseDeliveryStreamExtendedS3DestinationConfigurationPrefix+    , fmap (("ErrorOutputPrefix",) . toJSON) _kinesisFirehoseDeliveryStreamExtendedS3DestinationConfigurationErrorOutputPrefix+    , fmap (("Prefix",) . toJSON) _kinesisFirehoseDeliveryStreamExtendedS3DestinationConfigurationPrefix     , fmap (("ProcessingConfiguration",) . toJSON) _kinesisFirehoseDeliveryStreamExtendedS3DestinationConfigurationProcessingConfiguration     , (Just . ("RoleARN",) . toJSON) _kinesisFirehoseDeliveryStreamExtendedS3DestinationConfigurationRoleARN     , fmap (("S3BackupConfiguration",) . toJSON) _kinesisFirehoseDeliveryStreamExtendedS3DestinationConfigurationS3BackupConfiguration@@ -55,17 +60,18 @@   :: Val Text -- ^ 'kfdsesdcBucketARN'   -> KinesisFirehoseDeliveryStreamBufferingHints -- ^ 'kfdsesdcBufferingHints'   -> Val Text -- ^ 'kfdsesdcCompressionFormat'-  -> Val Text -- ^ 'kfdsesdcPrefix'   -> Val Text -- ^ 'kfdsesdcRoleARN'   -> KinesisFirehoseDeliveryStreamExtendedS3DestinationConfiguration-kinesisFirehoseDeliveryStreamExtendedS3DestinationConfiguration bucketARNarg bufferingHintsarg compressionFormatarg prefixarg roleARNarg =+kinesisFirehoseDeliveryStreamExtendedS3DestinationConfiguration bucketARNarg bufferingHintsarg compressionFormatarg roleARNarg =   KinesisFirehoseDeliveryStreamExtendedS3DestinationConfiguration   { _kinesisFirehoseDeliveryStreamExtendedS3DestinationConfigurationBucketARN = bucketARNarg   , _kinesisFirehoseDeliveryStreamExtendedS3DestinationConfigurationBufferingHints = bufferingHintsarg   , _kinesisFirehoseDeliveryStreamExtendedS3DestinationConfigurationCloudWatchLoggingOptions = Nothing   , _kinesisFirehoseDeliveryStreamExtendedS3DestinationConfigurationCompressionFormat = compressionFormatarg+  , _kinesisFirehoseDeliveryStreamExtendedS3DestinationConfigurationDataFormatConversionConfiguration = Nothing   , _kinesisFirehoseDeliveryStreamExtendedS3DestinationConfigurationEncryptionConfiguration = Nothing-  , _kinesisFirehoseDeliveryStreamExtendedS3DestinationConfigurationPrefix = prefixarg+  , _kinesisFirehoseDeliveryStreamExtendedS3DestinationConfigurationErrorOutputPrefix = Nothing+  , _kinesisFirehoseDeliveryStreamExtendedS3DestinationConfigurationPrefix = Nothing   , _kinesisFirehoseDeliveryStreamExtendedS3DestinationConfigurationProcessingConfiguration = Nothing   , _kinesisFirehoseDeliveryStreamExtendedS3DestinationConfigurationRoleARN = roleARNarg   , _kinesisFirehoseDeliveryStreamExtendedS3DestinationConfigurationS3BackupConfiguration = Nothing@@ -88,12 +94,20 @@ kfdsesdcCompressionFormat :: Lens' KinesisFirehoseDeliveryStreamExtendedS3DestinationConfiguration (Val Text) kfdsesdcCompressionFormat = lens _kinesisFirehoseDeliveryStreamExtendedS3DestinationConfigurationCompressionFormat (\s a -> s { _kinesisFirehoseDeliveryStreamExtendedS3DestinationConfigurationCompressionFormat = a }) +-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisfirehose-deliverystream-extendeds3destinationconfiguration.html#cfn-kinesisfirehose-deliverystream-extendeds3destinationconfiguration-dataformatconversionconfiguration+kfdsesdcDataFormatConversionConfiguration :: Lens' KinesisFirehoseDeliveryStreamExtendedS3DestinationConfiguration (Maybe KinesisFirehoseDeliveryStreamDataFormatConversionConfiguration)+kfdsesdcDataFormatConversionConfiguration = lens _kinesisFirehoseDeliveryStreamExtendedS3DestinationConfigurationDataFormatConversionConfiguration (\s a -> s { _kinesisFirehoseDeliveryStreamExtendedS3DestinationConfigurationDataFormatConversionConfiguration = a })+ -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisfirehose-deliverystream-extendeds3destinationconfiguration.html#cfn-kinesisfirehose-deliverystream-extendeds3destinationconfiguration-encryptionconfiguration kfdsesdcEncryptionConfiguration :: Lens' KinesisFirehoseDeliveryStreamExtendedS3DestinationConfiguration (Maybe KinesisFirehoseDeliveryStreamEncryptionConfiguration) kfdsesdcEncryptionConfiguration = lens _kinesisFirehoseDeliveryStreamExtendedS3DestinationConfigurationEncryptionConfiguration (\s a -> s { _kinesisFirehoseDeliveryStreamExtendedS3DestinationConfigurationEncryptionConfiguration = a }) +-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisfirehose-deliverystream-extendeds3destinationconfiguration.html#cfn-kinesisfirehose-deliverystream-extendeds3destinationconfiguration-erroroutputprefix+kfdsesdcErrorOutputPrefix :: Lens' KinesisFirehoseDeliveryStreamExtendedS3DestinationConfiguration (Maybe (Val Text))+kfdsesdcErrorOutputPrefix = lens _kinesisFirehoseDeliveryStreamExtendedS3DestinationConfigurationErrorOutputPrefix (\s a -> s { _kinesisFirehoseDeliveryStreamExtendedS3DestinationConfigurationErrorOutputPrefix = a })+ -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisfirehose-deliverystream-extendeds3destinationconfiguration.html#cfn-kinesisfirehose-deliverystream-extendeds3destinationconfiguration-prefix-kfdsesdcPrefix :: Lens' KinesisFirehoseDeliveryStreamExtendedS3DestinationConfiguration (Val Text)+kfdsesdcPrefix :: Lens' KinesisFirehoseDeliveryStreamExtendedS3DestinationConfiguration (Maybe (Val Text)) kfdsesdcPrefix = lens _kinesisFirehoseDeliveryStreamExtendedS3DestinationConfigurationPrefix (\s a -> s { _kinesisFirehoseDeliveryStreamExtendedS3DestinationConfigurationPrefix = a })  -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisfirehose-deliverystream-extendeds3destinationconfiguration.html#cfn-kinesisfirehose-deliverystream-extendeds3destinationconfiguration-processingconfiguration
+ library-gen/Stratosphere/ResourceProperties/KinesisFirehoseDeliveryStreamHiveJsonSerDe.hs view
@@ -0,0 +1,39 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisfirehose-deliverystream-hivejsonserde.html++module Stratosphere.ResourceProperties.KinesisFirehoseDeliveryStreamHiveJsonSerDe where++import Stratosphere.ResourceImports+++-- | Full data type definition for KinesisFirehoseDeliveryStreamHiveJsonSerDe.+-- See 'kinesisFirehoseDeliveryStreamHiveJsonSerDe' for a more convenient+-- constructor.+data KinesisFirehoseDeliveryStreamHiveJsonSerDe =+  KinesisFirehoseDeliveryStreamHiveJsonSerDe+  { _kinesisFirehoseDeliveryStreamHiveJsonSerDeTimestampFormats :: Maybe (ValList Text)+  } deriving (Show, Eq)++instance ToJSON KinesisFirehoseDeliveryStreamHiveJsonSerDe where+  toJSON KinesisFirehoseDeliveryStreamHiveJsonSerDe{..} =+    object $+    catMaybes+    [ fmap (("TimestampFormats",) . toJSON) _kinesisFirehoseDeliveryStreamHiveJsonSerDeTimestampFormats+    ]++-- | Constructor for 'KinesisFirehoseDeliveryStreamHiveJsonSerDe' containing+-- required fields as arguments.+kinesisFirehoseDeliveryStreamHiveJsonSerDe+  :: KinesisFirehoseDeliveryStreamHiveJsonSerDe+kinesisFirehoseDeliveryStreamHiveJsonSerDe  =+  KinesisFirehoseDeliveryStreamHiveJsonSerDe+  { _kinesisFirehoseDeliveryStreamHiveJsonSerDeTimestampFormats = Nothing+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisfirehose-deliverystream-hivejsonserde.html#cfn-kinesisfirehose-deliverystream-hivejsonserde-timestampformats+kfdshjsdTimestampFormats :: Lens' KinesisFirehoseDeliveryStreamHiveJsonSerDe (Maybe (ValList Text))+kfdshjsdTimestampFormats = lens _kinesisFirehoseDeliveryStreamHiveJsonSerDeTimestampFormats (\s a -> s { _kinesisFirehoseDeliveryStreamHiveJsonSerDeTimestampFormats = a })
+ library-gen/Stratosphere/ResourceProperties/KinesisFirehoseDeliveryStreamInputFormatConfiguration.hs view
@@ -0,0 +1,41 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisfirehose-deliverystream-inputformatconfiguration.html++module Stratosphere.ResourceProperties.KinesisFirehoseDeliveryStreamInputFormatConfiguration where++import Stratosphere.ResourceImports+import Stratosphere.ResourceProperties.KinesisFirehoseDeliveryStreamDeserializer++-- | Full data type definition for+-- KinesisFirehoseDeliveryStreamInputFormatConfiguration. See+-- 'kinesisFirehoseDeliveryStreamInputFormatConfiguration' for a more+-- convenient constructor.+data KinesisFirehoseDeliveryStreamInputFormatConfiguration =+  KinesisFirehoseDeliveryStreamInputFormatConfiguration+  { _kinesisFirehoseDeliveryStreamInputFormatConfigurationDeserializer :: KinesisFirehoseDeliveryStreamDeserializer+  } deriving (Show, Eq)++instance ToJSON KinesisFirehoseDeliveryStreamInputFormatConfiguration where+  toJSON KinesisFirehoseDeliveryStreamInputFormatConfiguration{..} =+    object $+    catMaybes+    [ (Just . ("Deserializer",) . toJSON) _kinesisFirehoseDeliveryStreamInputFormatConfigurationDeserializer+    ]++-- | Constructor for 'KinesisFirehoseDeliveryStreamInputFormatConfiguration'+-- containing required fields as arguments.+kinesisFirehoseDeliveryStreamInputFormatConfiguration+  :: KinesisFirehoseDeliveryStreamDeserializer -- ^ 'kfdsifcDeserializer'+  -> KinesisFirehoseDeliveryStreamInputFormatConfiguration+kinesisFirehoseDeliveryStreamInputFormatConfiguration deserializerarg =+  KinesisFirehoseDeliveryStreamInputFormatConfiguration+  { _kinesisFirehoseDeliveryStreamInputFormatConfigurationDeserializer = deserializerarg+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisfirehose-deliverystream-inputformatconfiguration.html#cfn-kinesisfirehose-deliverystream-inputformatconfiguration-deserializer+kfdsifcDeserializer :: Lens' KinesisFirehoseDeliveryStreamInputFormatConfiguration KinesisFirehoseDeliveryStreamDeserializer+kfdsifcDeserializer = lens _kinesisFirehoseDeliveryStreamInputFormatConfigurationDeserializer (\s a -> s { _kinesisFirehoseDeliveryStreamInputFormatConfigurationDeserializer = a })
+ library-gen/Stratosphere/ResourceProperties/KinesisFirehoseDeliveryStreamOpenXJsonSerDe.hs view
@@ -0,0 +1,54 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisfirehose-deliverystream-openxjsonserde.html++module Stratosphere.ResourceProperties.KinesisFirehoseDeliveryStreamOpenXJsonSerDe where++import Stratosphere.ResourceImports+++-- | Full data type definition for+-- KinesisFirehoseDeliveryStreamOpenXJsonSerDe. See+-- 'kinesisFirehoseDeliveryStreamOpenXJsonSerDe' for a more convenient+-- constructor.+data KinesisFirehoseDeliveryStreamOpenXJsonSerDe =+  KinesisFirehoseDeliveryStreamOpenXJsonSerDe+  { _kinesisFirehoseDeliveryStreamOpenXJsonSerDeCaseInsensitive :: Maybe (Val Bool)+  , _kinesisFirehoseDeliveryStreamOpenXJsonSerDeColumnToJsonKeyMappings :: Maybe Object+  , _kinesisFirehoseDeliveryStreamOpenXJsonSerDeConvertDotsInJsonKeysToUnderscores :: Maybe (Val Bool)+  } deriving (Show, Eq)++instance ToJSON KinesisFirehoseDeliveryStreamOpenXJsonSerDe where+  toJSON KinesisFirehoseDeliveryStreamOpenXJsonSerDe{..} =+    object $+    catMaybes+    [ fmap (("CaseInsensitive",) . toJSON) _kinesisFirehoseDeliveryStreamOpenXJsonSerDeCaseInsensitive+    , fmap (("ColumnToJsonKeyMappings",) . toJSON) _kinesisFirehoseDeliveryStreamOpenXJsonSerDeColumnToJsonKeyMappings+    , fmap (("ConvertDotsInJsonKeysToUnderscores",) . toJSON) _kinesisFirehoseDeliveryStreamOpenXJsonSerDeConvertDotsInJsonKeysToUnderscores+    ]++-- | Constructor for 'KinesisFirehoseDeliveryStreamOpenXJsonSerDe' containing+-- required fields as arguments.+kinesisFirehoseDeliveryStreamOpenXJsonSerDe+  :: KinesisFirehoseDeliveryStreamOpenXJsonSerDe+kinesisFirehoseDeliveryStreamOpenXJsonSerDe  =+  KinesisFirehoseDeliveryStreamOpenXJsonSerDe+  { _kinesisFirehoseDeliveryStreamOpenXJsonSerDeCaseInsensitive = Nothing+  , _kinesisFirehoseDeliveryStreamOpenXJsonSerDeColumnToJsonKeyMappings = Nothing+  , _kinesisFirehoseDeliveryStreamOpenXJsonSerDeConvertDotsInJsonKeysToUnderscores = Nothing+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisfirehose-deliverystream-openxjsonserde.html#cfn-kinesisfirehose-deliverystream-openxjsonserde-caseinsensitive+kfdsoxjsdCaseInsensitive :: Lens' KinesisFirehoseDeliveryStreamOpenXJsonSerDe (Maybe (Val Bool))+kfdsoxjsdCaseInsensitive = lens _kinesisFirehoseDeliveryStreamOpenXJsonSerDeCaseInsensitive (\s a -> s { _kinesisFirehoseDeliveryStreamOpenXJsonSerDeCaseInsensitive = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisfirehose-deliverystream-openxjsonserde.html#cfn-kinesisfirehose-deliverystream-openxjsonserde-columntojsonkeymappings+kfdsoxjsdColumnToJsonKeyMappings :: Lens' KinesisFirehoseDeliveryStreamOpenXJsonSerDe (Maybe Object)+kfdsoxjsdColumnToJsonKeyMappings = lens _kinesisFirehoseDeliveryStreamOpenXJsonSerDeColumnToJsonKeyMappings (\s a -> s { _kinesisFirehoseDeliveryStreamOpenXJsonSerDeColumnToJsonKeyMappings = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisfirehose-deliverystream-openxjsonserde.html#cfn-kinesisfirehose-deliverystream-openxjsonserde-convertdotsinjsonkeystounderscores+kfdsoxjsdConvertDotsInJsonKeysToUnderscores :: Lens' KinesisFirehoseDeliveryStreamOpenXJsonSerDe (Maybe (Val Bool))+kfdsoxjsdConvertDotsInJsonKeysToUnderscores = lens _kinesisFirehoseDeliveryStreamOpenXJsonSerDeConvertDotsInJsonKeysToUnderscores (\s a -> s { _kinesisFirehoseDeliveryStreamOpenXJsonSerDeConvertDotsInJsonKeysToUnderscores = a })
+ library-gen/Stratosphere/ResourceProperties/KinesisFirehoseDeliveryStreamOrcSerDe.hs view
@@ -0,0 +1,102 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisfirehose-deliverystream-orcserde.html++module Stratosphere.ResourceProperties.KinesisFirehoseDeliveryStreamOrcSerDe where++import Stratosphere.ResourceImports+++-- | Full data type definition for KinesisFirehoseDeliveryStreamOrcSerDe. See+-- 'kinesisFirehoseDeliveryStreamOrcSerDe' for a more convenient+-- constructor.+data KinesisFirehoseDeliveryStreamOrcSerDe =+  KinesisFirehoseDeliveryStreamOrcSerDe+  { _kinesisFirehoseDeliveryStreamOrcSerDeBlockSizeBytes :: Maybe (Val Integer)+  , _kinesisFirehoseDeliveryStreamOrcSerDeBloomFilterColumns :: Maybe (ValList Text)+  , _kinesisFirehoseDeliveryStreamOrcSerDeBloomFilterFalsePositiveProbability :: Maybe (Val Double)+  , _kinesisFirehoseDeliveryStreamOrcSerDeCompression :: Maybe (Val Text)+  , _kinesisFirehoseDeliveryStreamOrcSerDeDictionaryKeyThreshold :: Maybe (Val Double)+  , _kinesisFirehoseDeliveryStreamOrcSerDeEnablePadding :: Maybe (Val Bool)+  , _kinesisFirehoseDeliveryStreamOrcSerDeFormatVersion :: Maybe (Val Text)+  , _kinesisFirehoseDeliveryStreamOrcSerDePaddingTolerance :: Maybe (Val Double)+  , _kinesisFirehoseDeliveryStreamOrcSerDeRowIndexStride :: Maybe (Val Integer)+  , _kinesisFirehoseDeliveryStreamOrcSerDeStripeSizeBytes :: Maybe (Val Integer)+  } deriving (Show, Eq)++instance ToJSON KinesisFirehoseDeliveryStreamOrcSerDe where+  toJSON KinesisFirehoseDeliveryStreamOrcSerDe{..} =+    object $+    catMaybes+    [ fmap (("BlockSizeBytes",) . toJSON) _kinesisFirehoseDeliveryStreamOrcSerDeBlockSizeBytes+    , fmap (("BloomFilterColumns",) . toJSON) _kinesisFirehoseDeliveryStreamOrcSerDeBloomFilterColumns+    , fmap (("BloomFilterFalsePositiveProbability",) . toJSON) _kinesisFirehoseDeliveryStreamOrcSerDeBloomFilterFalsePositiveProbability+    , fmap (("Compression",) . toJSON) _kinesisFirehoseDeliveryStreamOrcSerDeCompression+    , fmap (("DictionaryKeyThreshold",) . toJSON) _kinesisFirehoseDeliveryStreamOrcSerDeDictionaryKeyThreshold+    , fmap (("EnablePadding",) . toJSON) _kinesisFirehoseDeliveryStreamOrcSerDeEnablePadding+    , fmap (("FormatVersion",) . toJSON) _kinesisFirehoseDeliveryStreamOrcSerDeFormatVersion+    , fmap (("PaddingTolerance",) . toJSON) _kinesisFirehoseDeliveryStreamOrcSerDePaddingTolerance+    , fmap (("RowIndexStride",) . toJSON) _kinesisFirehoseDeliveryStreamOrcSerDeRowIndexStride+    , fmap (("StripeSizeBytes",) . toJSON) _kinesisFirehoseDeliveryStreamOrcSerDeStripeSizeBytes+    ]++-- | Constructor for 'KinesisFirehoseDeliveryStreamOrcSerDe' containing+-- required fields as arguments.+kinesisFirehoseDeliveryStreamOrcSerDe+  :: KinesisFirehoseDeliveryStreamOrcSerDe+kinesisFirehoseDeliveryStreamOrcSerDe  =+  KinesisFirehoseDeliveryStreamOrcSerDe+  { _kinesisFirehoseDeliveryStreamOrcSerDeBlockSizeBytes = Nothing+  , _kinesisFirehoseDeliveryStreamOrcSerDeBloomFilterColumns = Nothing+  , _kinesisFirehoseDeliveryStreamOrcSerDeBloomFilterFalsePositiveProbability = Nothing+  , _kinesisFirehoseDeliveryStreamOrcSerDeCompression = Nothing+  , _kinesisFirehoseDeliveryStreamOrcSerDeDictionaryKeyThreshold = Nothing+  , _kinesisFirehoseDeliveryStreamOrcSerDeEnablePadding = Nothing+  , _kinesisFirehoseDeliveryStreamOrcSerDeFormatVersion = Nothing+  , _kinesisFirehoseDeliveryStreamOrcSerDePaddingTolerance = Nothing+  , _kinesisFirehoseDeliveryStreamOrcSerDeRowIndexStride = Nothing+  , _kinesisFirehoseDeliveryStreamOrcSerDeStripeSizeBytes = Nothing+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisfirehose-deliverystream-orcserde.html#cfn-kinesisfirehose-deliverystream-orcserde-blocksizebytes+kfdsosdBlockSizeBytes :: Lens' KinesisFirehoseDeliveryStreamOrcSerDe (Maybe (Val Integer))+kfdsosdBlockSizeBytes = lens _kinesisFirehoseDeliveryStreamOrcSerDeBlockSizeBytes (\s a -> s { _kinesisFirehoseDeliveryStreamOrcSerDeBlockSizeBytes = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisfirehose-deliverystream-orcserde.html#cfn-kinesisfirehose-deliverystream-orcserde-bloomfiltercolumns+kfdsosdBloomFilterColumns :: Lens' KinesisFirehoseDeliveryStreamOrcSerDe (Maybe (ValList Text))+kfdsosdBloomFilterColumns = lens _kinesisFirehoseDeliveryStreamOrcSerDeBloomFilterColumns (\s a -> s { _kinesisFirehoseDeliveryStreamOrcSerDeBloomFilterColumns = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisfirehose-deliverystream-orcserde.html#cfn-kinesisfirehose-deliverystream-orcserde-bloomfilterfalsepositiveprobability+kfdsosdBloomFilterFalsePositiveProbability :: Lens' KinesisFirehoseDeliveryStreamOrcSerDe (Maybe (Val Double))+kfdsosdBloomFilterFalsePositiveProbability = lens _kinesisFirehoseDeliveryStreamOrcSerDeBloomFilterFalsePositiveProbability (\s a -> s { _kinesisFirehoseDeliveryStreamOrcSerDeBloomFilterFalsePositiveProbability = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisfirehose-deliverystream-orcserde.html#cfn-kinesisfirehose-deliverystream-orcserde-compression+kfdsosdCompression :: Lens' KinesisFirehoseDeliveryStreamOrcSerDe (Maybe (Val Text))+kfdsosdCompression = lens _kinesisFirehoseDeliveryStreamOrcSerDeCompression (\s a -> s { _kinesisFirehoseDeliveryStreamOrcSerDeCompression = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisfirehose-deliverystream-orcserde.html#cfn-kinesisfirehose-deliverystream-orcserde-dictionarykeythreshold+kfdsosdDictionaryKeyThreshold :: Lens' KinesisFirehoseDeliveryStreamOrcSerDe (Maybe (Val Double))+kfdsosdDictionaryKeyThreshold = lens _kinesisFirehoseDeliveryStreamOrcSerDeDictionaryKeyThreshold (\s a -> s { _kinesisFirehoseDeliveryStreamOrcSerDeDictionaryKeyThreshold = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisfirehose-deliverystream-orcserde.html#cfn-kinesisfirehose-deliverystream-orcserde-enablepadding+kfdsosdEnablePadding :: Lens' KinesisFirehoseDeliveryStreamOrcSerDe (Maybe (Val Bool))+kfdsosdEnablePadding = lens _kinesisFirehoseDeliveryStreamOrcSerDeEnablePadding (\s a -> s { _kinesisFirehoseDeliveryStreamOrcSerDeEnablePadding = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisfirehose-deliverystream-orcserde.html#cfn-kinesisfirehose-deliverystream-orcserde-formatversion+kfdsosdFormatVersion :: Lens' KinesisFirehoseDeliveryStreamOrcSerDe (Maybe (Val Text))+kfdsosdFormatVersion = lens _kinesisFirehoseDeliveryStreamOrcSerDeFormatVersion (\s a -> s { _kinesisFirehoseDeliveryStreamOrcSerDeFormatVersion = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisfirehose-deliverystream-orcserde.html#cfn-kinesisfirehose-deliverystream-orcserde-paddingtolerance+kfdsosdPaddingTolerance :: Lens' KinesisFirehoseDeliveryStreamOrcSerDe (Maybe (Val Double))+kfdsosdPaddingTolerance = lens _kinesisFirehoseDeliveryStreamOrcSerDePaddingTolerance (\s a -> s { _kinesisFirehoseDeliveryStreamOrcSerDePaddingTolerance = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisfirehose-deliverystream-orcserde.html#cfn-kinesisfirehose-deliverystream-orcserde-rowindexstride+kfdsosdRowIndexStride :: Lens' KinesisFirehoseDeliveryStreamOrcSerDe (Maybe (Val Integer))+kfdsosdRowIndexStride = lens _kinesisFirehoseDeliveryStreamOrcSerDeRowIndexStride (\s a -> s { _kinesisFirehoseDeliveryStreamOrcSerDeRowIndexStride = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisfirehose-deliverystream-orcserde.html#cfn-kinesisfirehose-deliverystream-orcserde-stripesizebytes+kfdsosdStripeSizeBytes :: Lens' KinesisFirehoseDeliveryStreamOrcSerDe (Maybe (Val Integer))+kfdsosdStripeSizeBytes = lens _kinesisFirehoseDeliveryStreamOrcSerDeStripeSizeBytes (\s a -> s { _kinesisFirehoseDeliveryStreamOrcSerDeStripeSizeBytes = a })
+ library-gen/Stratosphere/ResourceProperties/KinesisFirehoseDeliveryStreamOutputFormatConfiguration.hs view
@@ -0,0 +1,41 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisfirehose-deliverystream-outputformatconfiguration.html++module Stratosphere.ResourceProperties.KinesisFirehoseDeliveryStreamOutputFormatConfiguration where++import Stratosphere.ResourceImports+import Stratosphere.ResourceProperties.KinesisFirehoseDeliveryStreamSerializer++-- | Full data type definition for+-- KinesisFirehoseDeliveryStreamOutputFormatConfiguration. See+-- 'kinesisFirehoseDeliveryStreamOutputFormatConfiguration' for a more+-- convenient constructor.+data KinesisFirehoseDeliveryStreamOutputFormatConfiguration =+  KinesisFirehoseDeliveryStreamOutputFormatConfiguration+  { _kinesisFirehoseDeliveryStreamOutputFormatConfigurationSerializer :: KinesisFirehoseDeliveryStreamSerializer+  } deriving (Show, Eq)++instance ToJSON KinesisFirehoseDeliveryStreamOutputFormatConfiguration where+  toJSON KinesisFirehoseDeliveryStreamOutputFormatConfiguration{..} =+    object $+    catMaybes+    [ (Just . ("Serializer",) . toJSON) _kinesisFirehoseDeliveryStreamOutputFormatConfigurationSerializer+    ]++-- | Constructor for 'KinesisFirehoseDeliveryStreamOutputFormatConfiguration'+-- containing required fields as arguments.+kinesisFirehoseDeliveryStreamOutputFormatConfiguration+  :: KinesisFirehoseDeliveryStreamSerializer -- ^ 'kfdsofcSerializer'+  -> KinesisFirehoseDeliveryStreamOutputFormatConfiguration+kinesisFirehoseDeliveryStreamOutputFormatConfiguration serializerarg =+  KinesisFirehoseDeliveryStreamOutputFormatConfiguration+  { _kinesisFirehoseDeliveryStreamOutputFormatConfigurationSerializer = serializerarg+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisfirehose-deliverystream-outputformatconfiguration.html#cfn-kinesisfirehose-deliverystream-outputformatconfiguration-serializer+kfdsofcSerializer :: Lens' KinesisFirehoseDeliveryStreamOutputFormatConfiguration KinesisFirehoseDeliveryStreamSerializer+kfdsofcSerializer = lens _kinesisFirehoseDeliveryStreamOutputFormatConfigurationSerializer (\s a -> s { _kinesisFirehoseDeliveryStreamOutputFormatConfigurationSerializer = a })
+ library-gen/Stratosphere/ResourceProperties/KinesisFirehoseDeliveryStreamParquetSerDe.hs view
@@ -0,0 +1,74 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisfirehose-deliverystream-parquetserde.html++module Stratosphere.ResourceProperties.KinesisFirehoseDeliveryStreamParquetSerDe where++import Stratosphere.ResourceImports+++-- | Full data type definition for KinesisFirehoseDeliveryStreamParquetSerDe.+-- See 'kinesisFirehoseDeliveryStreamParquetSerDe' for a more convenient+-- constructor.+data KinesisFirehoseDeliveryStreamParquetSerDe =+  KinesisFirehoseDeliveryStreamParquetSerDe+  { _kinesisFirehoseDeliveryStreamParquetSerDeBlockSizeBytes :: Maybe (Val Integer)+  , _kinesisFirehoseDeliveryStreamParquetSerDeCompression :: Maybe (Val Text)+  , _kinesisFirehoseDeliveryStreamParquetSerDeEnableDictionaryCompression :: Maybe (Val Bool)+  , _kinesisFirehoseDeliveryStreamParquetSerDeMaxPaddingBytes :: Maybe (Val Integer)+  , _kinesisFirehoseDeliveryStreamParquetSerDePageSizeBytes :: Maybe (Val Integer)+  , _kinesisFirehoseDeliveryStreamParquetSerDeWriterVersion :: Maybe (Val Text)+  } deriving (Show, Eq)++instance ToJSON KinesisFirehoseDeliveryStreamParquetSerDe where+  toJSON KinesisFirehoseDeliveryStreamParquetSerDe{..} =+    object $+    catMaybes+    [ fmap (("BlockSizeBytes",) . toJSON) _kinesisFirehoseDeliveryStreamParquetSerDeBlockSizeBytes+    , fmap (("Compression",) . toJSON) _kinesisFirehoseDeliveryStreamParquetSerDeCompression+    , fmap (("EnableDictionaryCompression",) . toJSON) _kinesisFirehoseDeliveryStreamParquetSerDeEnableDictionaryCompression+    , fmap (("MaxPaddingBytes",) . toJSON) _kinesisFirehoseDeliveryStreamParquetSerDeMaxPaddingBytes+    , fmap (("PageSizeBytes",) . toJSON) _kinesisFirehoseDeliveryStreamParquetSerDePageSizeBytes+    , fmap (("WriterVersion",) . toJSON) _kinesisFirehoseDeliveryStreamParquetSerDeWriterVersion+    ]++-- | Constructor for 'KinesisFirehoseDeliveryStreamParquetSerDe' containing+-- required fields as arguments.+kinesisFirehoseDeliveryStreamParquetSerDe+  :: KinesisFirehoseDeliveryStreamParquetSerDe+kinesisFirehoseDeliveryStreamParquetSerDe  =+  KinesisFirehoseDeliveryStreamParquetSerDe+  { _kinesisFirehoseDeliveryStreamParquetSerDeBlockSizeBytes = Nothing+  , _kinesisFirehoseDeliveryStreamParquetSerDeCompression = Nothing+  , _kinesisFirehoseDeliveryStreamParquetSerDeEnableDictionaryCompression = Nothing+  , _kinesisFirehoseDeliveryStreamParquetSerDeMaxPaddingBytes = Nothing+  , _kinesisFirehoseDeliveryStreamParquetSerDePageSizeBytes = Nothing+  , _kinesisFirehoseDeliveryStreamParquetSerDeWriterVersion = Nothing+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisfirehose-deliverystream-parquetserde.html#cfn-kinesisfirehose-deliverystream-parquetserde-blocksizebytes+kfdspsdBlockSizeBytes :: Lens' KinesisFirehoseDeliveryStreamParquetSerDe (Maybe (Val Integer))+kfdspsdBlockSizeBytes = lens _kinesisFirehoseDeliveryStreamParquetSerDeBlockSizeBytes (\s a -> s { _kinesisFirehoseDeliveryStreamParquetSerDeBlockSizeBytes = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisfirehose-deliverystream-parquetserde.html#cfn-kinesisfirehose-deliverystream-parquetserde-compression+kfdspsdCompression :: Lens' KinesisFirehoseDeliveryStreamParquetSerDe (Maybe (Val Text))+kfdspsdCompression = lens _kinesisFirehoseDeliveryStreamParquetSerDeCompression (\s a -> s { _kinesisFirehoseDeliveryStreamParquetSerDeCompression = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisfirehose-deliverystream-parquetserde.html#cfn-kinesisfirehose-deliverystream-parquetserde-enabledictionarycompression+kfdspsdEnableDictionaryCompression :: Lens' KinesisFirehoseDeliveryStreamParquetSerDe (Maybe (Val Bool))+kfdspsdEnableDictionaryCompression = lens _kinesisFirehoseDeliveryStreamParquetSerDeEnableDictionaryCompression (\s a -> s { _kinesisFirehoseDeliveryStreamParquetSerDeEnableDictionaryCompression = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisfirehose-deliverystream-parquetserde.html#cfn-kinesisfirehose-deliverystream-parquetserde-maxpaddingbytes+kfdspsdMaxPaddingBytes :: Lens' KinesisFirehoseDeliveryStreamParquetSerDe (Maybe (Val Integer))+kfdspsdMaxPaddingBytes = lens _kinesisFirehoseDeliveryStreamParquetSerDeMaxPaddingBytes (\s a -> s { _kinesisFirehoseDeliveryStreamParquetSerDeMaxPaddingBytes = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisfirehose-deliverystream-parquetserde.html#cfn-kinesisfirehose-deliverystream-parquetserde-pagesizebytes+kfdspsdPageSizeBytes :: Lens' KinesisFirehoseDeliveryStreamParquetSerDe (Maybe (Val Integer))+kfdspsdPageSizeBytes = lens _kinesisFirehoseDeliveryStreamParquetSerDePageSizeBytes (\s a -> s { _kinesisFirehoseDeliveryStreamParquetSerDePageSizeBytes = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisfirehose-deliverystream-parquetserde.html#cfn-kinesisfirehose-deliverystream-parquetserde-writerversion+kfdspsdWriterVersion :: Lens' KinesisFirehoseDeliveryStreamParquetSerDe (Maybe (Val Text))+kfdspsdWriterVersion = lens _kinesisFirehoseDeliveryStreamParquetSerDeWriterVersion (\s a -> s { _kinesisFirehoseDeliveryStreamParquetSerDeWriterVersion = a })
library-gen/Stratosphere/ResourceProperties/KinesisFirehoseDeliveryStreamS3DestinationConfiguration.hs view
@@ -24,6 +24,7 @@   , _kinesisFirehoseDeliveryStreamS3DestinationConfigurationCloudWatchLoggingOptions :: Maybe KinesisFirehoseDeliveryStreamCloudWatchLoggingOptions   , _kinesisFirehoseDeliveryStreamS3DestinationConfigurationCompressionFormat :: Val KinesisFirehoseS3CompressionFormat   , _kinesisFirehoseDeliveryStreamS3DestinationConfigurationEncryptionConfiguration :: Maybe KinesisFirehoseDeliveryStreamEncryptionConfiguration+  , _kinesisFirehoseDeliveryStreamS3DestinationConfigurationErrorOutputPrefix :: Maybe (Val Text)   , _kinesisFirehoseDeliveryStreamS3DestinationConfigurationPrefix :: Maybe (Val Text)   , _kinesisFirehoseDeliveryStreamS3DestinationConfigurationRoleARN :: Val Text   } deriving (Show, Eq)@@ -37,6 +38,7 @@     , fmap (("CloudWatchLoggingOptions",) . toJSON) _kinesisFirehoseDeliveryStreamS3DestinationConfigurationCloudWatchLoggingOptions     , (Just . ("CompressionFormat",) . toJSON) _kinesisFirehoseDeliveryStreamS3DestinationConfigurationCompressionFormat     , fmap (("EncryptionConfiguration",) . toJSON) _kinesisFirehoseDeliveryStreamS3DestinationConfigurationEncryptionConfiguration+    , fmap (("ErrorOutputPrefix",) . toJSON) _kinesisFirehoseDeliveryStreamS3DestinationConfigurationErrorOutputPrefix     , fmap (("Prefix",) . toJSON) _kinesisFirehoseDeliveryStreamS3DestinationConfigurationPrefix     , (Just . ("RoleARN",) . toJSON) _kinesisFirehoseDeliveryStreamS3DestinationConfigurationRoleARN     ]@@ -56,6 +58,7 @@   , _kinesisFirehoseDeliveryStreamS3DestinationConfigurationCloudWatchLoggingOptions = Nothing   , _kinesisFirehoseDeliveryStreamS3DestinationConfigurationCompressionFormat = compressionFormatarg   , _kinesisFirehoseDeliveryStreamS3DestinationConfigurationEncryptionConfiguration = Nothing+  , _kinesisFirehoseDeliveryStreamS3DestinationConfigurationErrorOutputPrefix = Nothing   , _kinesisFirehoseDeliveryStreamS3DestinationConfigurationPrefix = Nothing   , _kinesisFirehoseDeliveryStreamS3DestinationConfigurationRoleARN = roleARNarg   }@@ -79,6 +82,10 @@ -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisfirehose-deliverystream-s3destinationconfiguration.html#cfn-kinesisfirehose-deliverystream-s3destinationconfiguration-encryptionconfiguration kfdssdcEncryptionConfiguration :: Lens' KinesisFirehoseDeliveryStreamS3DestinationConfiguration (Maybe KinesisFirehoseDeliveryStreamEncryptionConfiguration) kfdssdcEncryptionConfiguration = lens _kinesisFirehoseDeliveryStreamS3DestinationConfigurationEncryptionConfiguration (\s a -> s { _kinesisFirehoseDeliveryStreamS3DestinationConfigurationEncryptionConfiguration = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisfirehose-deliverystream-s3destinationconfiguration.html#cfn-kinesisfirehose-deliverystream-s3destinationconfiguration-erroroutputprefix+kfdssdcErrorOutputPrefix :: Lens' KinesisFirehoseDeliveryStreamS3DestinationConfiguration (Maybe (Val Text))+kfdssdcErrorOutputPrefix = lens _kinesisFirehoseDeliveryStreamS3DestinationConfigurationErrorOutputPrefix (\s a -> s { _kinesisFirehoseDeliveryStreamS3DestinationConfigurationErrorOutputPrefix = a })  -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisfirehose-deliverystream-s3destinationconfiguration.html#cfn-kinesisfirehose-deliverystream-s3destinationconfiguration-prefix kfdssdcPrefix :: Lens' KinesisFirehoseDeliveryStreamS3DestinationConfiguration (Maybe (Val Text))
+ library-gen/Stratosphere/ResourceProperties/KinesisFirehoseDeliveryStreamSchemaConfiguration.hs view
@@ -0,0 +1,81 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisfirehose-deliverystream-schemaconfiguration.html++module Stratosphere.ResourceProperties.KinesisFirehoseDeliveryStreamSchemaConfiguration where++import Stratosphere.ResourceImports+++-- | Full data type definition for+-- KinesisFirehoseDeliveryStreamSchemaConfiguration. See+-- 'kinesisFirehoseDeliveryStreamSchemaConfiguration' for a more convenient+-- constructor.+data KinesisFirehoseDeliveryStreamSchemaConfiguration =+  KinesisFirehoseDeliveryStreamSchemaConfiguration+  { _kinesisFirehoseDeliveryStreamSchemaConfigurationCatalogId :: Val Text+  , _kinesisFirehoseDeliveryStreamSchemaConfigurationDatabaseName :: Val Text+  , _kinesisFirehoseDeliveryStreamSchemaConfigurationRegion :: Val Text+  , _kinesisFirehoseDeliveryStreamSchemaConfigurationRoleARN :: Val Text+  , _kinesisFirehoseDeliveryStreamSchemaConfigurationTableName :: Val Text+  , _kinesisFirehoseDeliveryStreamSchemaConfigurationVersionId :: Val Text+  } deriving (Show, Eq)++instance ToJSON KinesisFirehoseDeliveryStreamSchemaConfiguration where+  toJSON KinesisFirehoseDeliveryStreamSchemaConfiguration{..} =+    object $+    catMaybes+    [ (Just . ("CatalogId",) . toJSON) _kinesisFirehoseDeliveryStreamSchemaConfigurationCatalogId+    , (Just . ("DatabaseName",) . toJSON) _kinesisFirehoseDeliveryStreamSchemaConfigurationDatabaseName+    , (Just . ("Region",) . toJSON) _kinesisFirehoseDeliveryStreamSchemaConfigurationRegion+    , (Just . ("RoleARN",) . toJSON) _kinesisFirehoseDeliveryStreamSchemaConfigurationRoleARN+    , (Just . ("TableName",) . toJSON) _kinesisFirehoseDeliveryStreamSchemaConfigurationTableName+    , (Just . ("VersionId",) . toJSON) _kinesisFirehoseDeliveryStreamSchemaConfigurationVersionId+    ]++-- | Constructor for 'KinesisFirehoseDeliveryStreamSchemaConfiguration'+-- containing required fields as arguments.+kinesisFirehoseDeliveryStreamSchemaConfiguration+  :: Val Text -- ^ 'kfdsscCatalogId'+  -> Val Text -- ^ 'kfdsscDatabaseName'+  -> Val Text -- ^ 'kfdsscRegion'+  -> Val Text -- ^ 'kfdsscRoleARN'+  -> Val Text -- ^ 'kfdsscTableName'+  -> Val Text -- ^ 'kfdsscVersionId'+  -> KinesisFirehoseDeliveryStreamSchemaConfiguration+kinesisFirehoseDeliveryStreamSchemaConfiguration catalogIdarg databaseNamearg regionarg roleARNarg tableNamearg versionIdarg =+  KinesisFirehoseDeliveryStreamSchemaConfiguration+  { _kinesisFirehoseDeliveryStreamSchemaConfigurationCatalogId = catalogIdarg+  , _kinesisFirehoseDeliveryStreamSchemaConfigurationDatabaseName = databaseNamearg+  , _kinesisFirehoseDeliveryStreamSchemaConfigurationRegion = regionarg+  , _kinesisFirehoseDeliveryStreamSchemaConfigurationRoleARN = roleARNarg+  , _kinesisFirehoseDeliveryStreamSchemaConfigurationTableName = tableNamearg+  , _kinesisFirehoseDeliveryStreamSchemaConfigurationVersionId = versionIdarg+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisfirehose-deliverystream-schemaconfiguration.html#cfn-kinesisfirehose-deliverystream-schemaconfiguration-catalogid+kfdsscCatalogId :: Lens' KinesisFirehoseDeliveryStreamSchemaConfiguration (Val Text)+kfdsscCatalogId = lens _kinesisFirehoseDeliveryStreamSchemaConfigurationCatalogId (\s a -> s { _kinesisFirehoseDeliveryStreamSchemaConfigurationCatalogId = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisfirehose-deliverystream-schemaconfiguration.html#cfn-kinesisfirehose-deliverystream-schemaconfiguration-databasename+kfdsscDatabaseName :: Lens' KinesisFirehoseDeliveryStreamSchemaConfiguration (Val Text)+kfdsscDatabaseName = lens _kinesisFirehoseDeliveryStreamSchemaConfigurationDatabaseName (\s a -> s { _kinesisFirehoseDeliveryStreamSchemaConfigurationDatabaseName = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisfirehose-deliverystream-schemaconfiguration.html#cfn-kinesisfirehose-deliverystream-schemaconfiguration-region+kfdsscRegion :: Lens' KinesisFirehoseDeliveryStreamSchemaConfiguration (Val Text)+kfdsscRegion = lens _kinesisFirehoseDeliveryStreamSchemaConfigurationRegion (\s a -> s { _kinesisFirehoseDeliveryStreamSchemaConfigurationRegion = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisfirehose-deliverystream-schemaconfiguration.html#cfn-kinesisfirehose-deliverystream-schemaconfiguration-rolearn+kfdsscRoleARN :: Lens' KinesisFirehoseDeliveryStreamSchemaConfiguration (Val Text)+kfdsscRoleARN = lens _kinesisFirehoseDeliveryStreamSchemaConfigurationRoleARN (\s a -> s { _kinesisFirehoseDeliveryStreamSchemaConfigurationRoleARN = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisfirehose-deliverystream-schemaconfiguration.html#cfn-kinesisfirehose-deliverystream-schemaconfiguration-tablename+kfdsscTableName :: Lens' KinesisFirehoseDeliveryStreamSchemaConfiguration (Val Text)+kfdsscTableName = lens _kinesisFirehoseDeliveryStreamSchemaConfigurationTableName (\s a -> s { _kinesisFirehoseDeliveryStreamSchemaConfigurationTableName = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisfirehose-deliverystream-schemaconfiguration.html#cfn-kinesisfirehose-deliverystream-schemaconfiguration-versionid+kfdsscVersionId :: Lens' KinesisFirehoseDeliveryStreamSchemaConfiguration (Val Text)+kfdsscVersionId = lens _kinesisFirehoseDeliveryStreamSchemaConfigurationVersionId (\s a -> s { _kinesisFirehoseDeliveryStreamSchemaConfigurationVersionId = a })
+ library-gen/Stratosphere/ResourceProperties/KinesisFirehoseDeliveryStreamSerializer.hs view
@@ -0,0 +1,47 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisfirehose-deliverystream-serializer.html++module Stratosphere.ResourceProperties.KinesisFirehoseDeliveryStreamSerializer where++import Stratosphere.ResourceImports+import Stratosphere.ResourceProperties.KinesisFirehoseDeliveryStreamOrcSerDe+import Stratosphere.ResourceProperties.KinesisFirehoseDeliveryStreamParquetSerDe++-- | Full data type definition for KinesisFirehoseDeliveryStreamSerializer.+-- See 'kinesisFirehoseDeliveryStreamSerializer' for a more convenient+-- constructor.+data KinesisFirehoseDeliveryStreamSerializer =+  KinesisFirehoseDeliveryStreamSerializer+  { _kinesisFirehoseDeliveryStreamSerializerOrcSerDe :: Maybe KinesisFirehoseDeliveryStreamOrcSerDe+  , _kinesisFirehoseDeliveryStreamSerializerParquetSerDe :: Maybe KinesisFirehoseDeliveryStreamParquetSerDe+  } deriving (Show, Eq)++instance ToJSON KinesisFirehoseDeliveryStreamSerializer where+  toJSON KinesisFirehoseDeliveryStreamSerializer{..} =+    object $+    catMaybes+    [ fmap (("OrcSerDe",) . toJSON) _kinesisFirehoseDeliveryStreamSerializerOrcSerDe+    , fmap (("ParquetSerDe",) . toJSON) _kinesisFirehoseDeliveryStreamSerializerParquetSerDe+    ]++-- | Constructor for 'KinesisFirehoseDeliveryStreamSerializer' containing+-- required fields as arguments.+kinesisFirehoseDeliveryStreamSerializer+  :: KinesisFirehoseDeliveryStreamSerializer+kinesisFirehoseDeliveryStreamSerializer  =+  KinesisFirehoseDeliveryStreamSerializer+  { _kinesisFirehoseDeliveryStreamSerializerOrcSerDe = Nothing+  , _kinesisFirehoseDeliveryStreamSerializerParquetSerDe = Nothing+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisfirehose-deliverystream-serializer.html#cfn-kinesisfirehose-deliverystream-serializer-orcserde+kfdssOrcSerDe :: Lens' KinesisFirehoseDeliveryStreamSerializer (Maybe KinesisFirehoseDeliveryStreamOrcSerDe)+kfdssOrcSerDe = lens _kinesisFirehoseDeliveryStreamSerializerOrcSerDe (\s a -> s { _kinesisFirehoseDeliveryStreamSerializerOrcSerDe = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-kinesisfirehose-deliverystream-serializer.html#cfn-kinesisfirehose-deliverystream-serializer-parquetserde+kfdssParquetSerDe :: Lens' KinesisFirehoseDeliveryStreamSerializer (Maybe KinesisFirehoseDeliveryStreamParquetSerDe)+kfdssParquetSerDe = lens _kinesisFirehoseDeliveryStreamSerializerParquetSerDe (\s a -> s { _kinesisFirehoseDeliveryStreamSerializerParquetSerDe = a })
+ library-gen/Stratosphere/ResourceProperties/MSKClusterBrokerNodeGroupInfo.hs view
@@ -0,0 +1,68 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-msk-cluster-brokernodegroupinfo.html++module Stratosphere.ResourceProperties.MSKClusterBrokerNodeGroupInfo where++import Stratosphere.ResourceImports+import Stratosphere.ResourceProperties.MSKClusterStorageInfo++-- | Full data type definition for MSKClusterBrokerNodeGroupInfo. See+-- 'mskClusterBrokerNodeGroupInfo' for a more convenient constructor.+data MSKClusterBrokerNodeGroupInfo =+  MSKClusterBrokerNodeGroupInfo+  { _mSKClusterBrokerNodeGroupInfoBrokerAZDistribution :: Maybe (Val Text)+  , _mSKClusterBrokerNodeGroupInfoClientSubnets :: ValList Text+  , _mSKClusterBrokerNodeGroupInfoInstanceType :: Val Text+  , _mSKClusterBrokerNodeGroupInfoSecurityGroups :: Maybe (ValList Text)+  , _mSKClusterBrokerNodeGroupInfoStorageInfo :: Maybe MSKClusterStorageInfo+  } deriving (Show, Eq)++instance ToJSON MSKClusterBrokerNodeGroupInfo where+  toJSON MSKClusterBrokerNodeGroupInfo{..} =+    object $+    catMaybes+    [ fmap (("BrokerAZDistribution",) . toJSON) _mSKClusterBrokerNodeGroupInfoBrokerAZDistribution+    , (Just . ("ClientSubnets",) . toJSON) _mSKClusterBrokerNodeGroupInfoClientSubnets+    , (Just . ("InstanceType",) . toJSON) _mSKClusterBrokerNodeGroupInfoInstanceType+    , fmap (("SecurityGroups",) . toJSON) _mSKClusterBrokerNodeGroupInfoSecurityGroups+    , fmap (("StorageInfo",) . toJSON) _mSKClusterBrokerNodeGroupInfoStorageInfo+    ]++-- | Constructor for 'MSKClusterBrokerNodeGroupInfo' containing required+-- fields as arguments.+mskClusterBrokerNodeGroupInfo+  :: ValList Text -- ^ 'mskcbngiClientSubnets'+  -> Val Text -- ^ 'mskcbngiInstanceType'+  -> MSKClusterBrokerNodeGroupInfo+mskClusterBrokerNodeGroupInfo clientSubnetsarg instanceTypearg =+  MSKClusterBrokerNodeGroupInfo+  { _mSKClusterBrokerNodeGroupInfoBrokerAZDistribution = Nothing+  , _mSKClusterBrokerNodeGroupInfoClientSubnets = clientSubnetsarg+  , _mSKClusterBrokerNodeGroupInfoInstanceType = instanceTypearg+  , _mSKClusterBrokerNodeGroupInfoSecurityGroups = Nothing+  , _mSKClusterBrokerNodeGroupInfoStorageInfo = Nothing+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-msk-cluster-brokernodegroupinfo.html#cfn-msk-cluster-brokernodegroupinfo-brokerazdistribution+mskcbngiBrokerAZDistribution :: Lens' MSKClusterBrokerNodeGroupInfo (Maybe (Val Text))+mskcbngiBrokerAZDistribution = lens _mSKClusterBrokerNodeGroupInfoBrokerAZDistribution (\s a -> s { _mSKClusterBrokerNodeGroupInfoBrokerAZDistribution = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-msk-cluster-brokernodegroupinfo.html#cfn-msk-cluster-brokernodegroupinfo-clientsubnets+mskcbngiClientSubnets :: Lens' MSKClusterBrokerNodeGroupInfo (ValList Text)+mskcbngiClientSubnets = lens _mSKClusterBrokerNodeGroupInfoClientSubnets (\s a -> s { _mSKClusterBrokerNodeGroupInfoClientSubnets = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-msk-cluster-brokernodegroupinfo.html#cfn-msk-cluster-brokernodegroupinfo-instancetype+mskcbngiInstanceType :: Lens' MSKClusterBrokerNodeGroupInfo (Val Text)+mskcbngiInstanceType = lens _mSKClusterBrokerNodeGroupInfoInstanceType (\s a -> s { _mSKClusterBrokerNodeGroupInfoInstanceType = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-msk-cluster-brokernodegroupinfo.html#cfn-msk-cluster-brokernodegroupinfo-securitygroups+mskcbngiSecurityGroups :: Lens' MSKClusterBrokerNodeGroupInfo (Maybe (ValList Text))+mskcbngiSecurityGroups = lens _mSKClusterBrokerNodeGroupInfoSecurityGroups (\s a -> s { _mSKClusterBrokerNodeGroupInfoSecurityGroups = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-msk-cluster-brokernodegroupinfo.html#cfn-msk-cluster-brokernodegroupinfo-storageinfo+mskcbngiStorageInfo :: Lens' MSKClusterBrokerNodeGroupInfo (Maybe MSKClusterStorageInfo)+mskcbngiStorageInfo = lens _mSKClusterBrokerNodeGroupInfoStorageInfo (\s a -> s { _mSKClusterBrokerNodeGroupInfoStorageInfo = a })
+ library-gen/Stratosphere/ResourceProperties/MSKClusterClientAuthentication.hs view
@@ -0,0 +1,38 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-msk-cluster-clientauthentication.html++module Stratosphere.ResourceProperties.MSKClusterClientAuthentication where++import Stratosphere.ResourceImports+import Stratosphere.ResourceProperties.MSKClusterTls++-- | Full data type definition for MSKClusterClientAuthentication. See+-- 'mskClusterClientAuthentication' for a more convenient constructor.+data MSKClusterClientAuthentication =+  MSKClusterClientAuthentication+  { _mSKClusterClientAuthenticationTls :: Maybe MSKClusterTls+  } deriving (Show, Eq)++instance ToJSON MSKClusterClientAuthentication where+  toJSON MSKClusterClientAuthentication{..} =+    object $+    catMaybes+    [ fmap (("Tls",) . toJSON) _mSKClusterClientAuthenticationTls+    ]++-- | Constructor for 'MSKClusterClientAuthentication' containing required+-- fields as arguments.+mskClusterClientAuthentication+  :: MSKClusterClientAuthentication+mskClusterClientAuthentication  =+  MSKClusterClientAuthentication+  { _mSKClusterClientAuthenticationTls = Nothing+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-msk-cluster-clientauthentication.html#cfn-msk-cluster-clientauthentication-tls+mskccaTls :: Lens' MSKClusterClientAuthentication (Maybe MSKClusterTls)+mskccaTls = lens _mSKClusterClientAuthenticationTls (\s a -> s { _mSKClusterClientAuthenticationTls = a })
+ library-gen/Stratosphere/ResourceProperties/MSKClusterConfigurationInfo.hs view
@@ -0,0 +1,47 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-msk-cluster-configurationinfo.html++module Stratosphere.ResourceProperties.MSKClusterConfigurationInfo where++import Stratosphere.ResourceImports+++-- | Full data type definition for MSKClusterConfigurationInfo. See+-- 'mskClusterConfigurationInfo' for a more convenient constructor.+data MSKClusterConfigurationInfo =+  MSKClusterConfigurationInfo+  { _mSKClusterConfigurationInfoArn :: Val Text+  , _mSKClusterConfigurationInfoRevision :: Val Integer+  } deriving (Show, Eq)++instance ToJSON MSKClusterConfigurationInfo where+  toJSON MSKClusterConfigurationInfo{..} =+    object $+    catMaybes+    [ (Just . ("Arn",) . toJSON) _mSKClusterConfigurationInfoArn+    , (Just . ("Revision",) . toJSON) _mSKClusterConfigurationInfoRevision+    ]++-- | Constructor for 'MSKClusterConfigurationInfo' containing required fields+-- as arguments.+mskClusterConfigurationInfo+  :: Val Text -- ^ 'mskcciArn'+  -> Val Integer -- ^ 'mskcciRevision'+  -> MSKClusterConfigurationInfo+mskClusterConfigurationInfo arnarg revisionarg =+  MSKClusterConfigurationInfo+  { _mSKClusterConfigurationInfoArn = arnarg+  , _mSKClusterConfigurationInfoRevision = revisionarg+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-msk-cluster-configurationinfo.html#cfn-msk-cluster-configurationinfo-arn+mskcciArn :: Lens' MSKClusterConfigurationInfo (Val Text)+mskcciArn = lens _mSKClusterConfigurationInfoArn (\s a -> s { _mSKClusterConfigurationInfoArn = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-msk-cluster-configurationinfo.html#cfn-msk-cluster-configurationinfo-revision+mskcciRevision :: Lens' MSKClusterConfigurationInfo (Val Integer)+mskcciRevision = lens _mSKClusterConfigurationInfoRevision (\s a -> s { _mSKClusterConfigurationInfoRevision = a })
+ library-gen/Stratosphere/ResourceProperties/MSKClusterEBSStorageInfo.hs view
@@ -0,0 +1,38 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-msk-cluster-ebsstorageinfo.html++module Stratosphere.ResourceProperties.MSKClusterEBSStorageInfo where++import Stratosphere.ResourceImports+++-- | Full data type definition for MSKClusterEBSStorageInfo. See+-- 'mskClusterEBSStorageInfo' for a more convenient constructor.+data MSKClusterEBSStorageInfo =+  MSKClusterEBSStorageInfo+  { _mSKClusterEBSStorageInfoVolumeSize :: Maybe (Val Integer)+  } deriving (Show, Eq)++instance ToJSON MSKClusterEBSStorageInfo where+  toJSON MSKClusterEBSStorageInfo{..} =+    object $+    catMaybes+    [ fmap (("VolumeSize",) . toJSON) _mSKClusterEBSStorageInfoVolumeSize+    ]++-- | Constructor for 'MSKClusterEBSStorageInfo' containing required fields as+-- arguments.+mskClusterEBSStorageInfo+  :: MSKClusterEBSStorageInfo+mskClusterEBSStorageInfo  =+  MSKClusterEBSStorageInfo+  { _mSKClusterEBSStorageInfoVolumeSize = Nothing+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-msk-cluster-ebsstorageinfo.html#cfn-msk-cluster-ebsstorageinfo-volumesize+mskcebssiVolumeSize :: Lens' MSKClusterEBSStorageInfo (Maybe (Val Integer))+mskcebssiVolumeSize = lens _mSKClusterEBSStorageInfoVolumeSize (\s a -> s { _mSKClusterEBSStorageInfoVolumeSize = a })
+ library-gen/Stratosphere/ResourceProperties/MSKClusterEncryptionAtRest.hs view
@@ -0,0 +1,39 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-msk-cluster-encryptionatrest.html++module Stratosphere.ResourceProperties.MSKClusterEncryptionAtRest where++import Stratosphere.ResourceImports+++-- | Full data type definition for MSKClusterEncryptionAtRest. See+-- 'mskClusterEncryptionAtRest' for a more convenient constructor.+data MSKClusterEncryptionAtRest =+  MSKClusterEncryptionAtRest+  { _mSKClusterEncryptionAtRestDataVolumeKMSKeyId :: Val Text+  } deriving (Show, Eq)++instance ToJSON MSKClusterEncryptionAtRest where+  toJSON MSKClusterEncryptionAtRest{..} =+    object $+    catMaybes+    [ (Just . ("DataVolumeKMSKeyId",) . toJSON) _mSKClusterEncryptionAtRestDataVolumeKMSKeyId+    ]++-- | Constructor for 'MSKClusterEncryptionAtRest' containing required fields+-- as arguments.+mskClusterEncryptionAtRest+  :: Val Text -- ^ 'mskcearDataVolumeKMSKeyId'+  -> MSKClusterEncryptionAtRest+mskClusterEncryptionAtRest dataVolumeKMSKeyIdarg =+  MSKClusterEncryptionAtRest+  { _mSKClusterEncryptionAtRestDataVolumeKMSKeyId = dataVolumeKMSKeyIdarg+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-msk-cluster-encryptionatrest.html#cfn-msk-cluster-encryptionatrest-datavolumekmskeyid+mskcearDataVolumeKMSKeyId :: Lens' MSKClusterEncryptionAtRest (Val Text)+mskcearDataVolumeKMSKeyId = lens _mSKClusterEncryptionAtRestDataVolumeKMSKeyId (\s a -> s { _mSKClusterEncryptionAtRestDataVolumeKMSKeyId = a })
+ library-gen/Stratosphere/ResourceProperties/MSKClusterEncryptionInTransit.hs view
@@ -0,0 +1,45 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-msk-cluster-encryptionintransit.html++module Stratosphere.ResourceProperties.MSKClusterEncryptionInTransit where++import Stratosphere.ResourceImports+++-- | Full data type definition for MSKClusterEncryptionInTransit. See+-- 'mskClusterEncryptionInTransit' for a more convenient constructor.+data MSKClusterEncryptionInTransit =+  MSKClusterEncryptionInTransit+  { _mSKClusterEncryptionInTransitClientBroker :: Maybe (Val Text)+  , _mSKClusterEncryptionInTransitInCluster :: Maybe (Val Bool)+  } deriving (Show, Eq)++instance ToJSON MSKClusterEncryptionInTransit where+  toJSON MSKClusterEncryptionInTransit{..} =+    object $+    catMaybes+    [ fmap (("ClientBroker",) . toJSON) _mSKClusterEncryptionInTransitClientBroker+    , fmap (("InCluster",) . toJSON) _mSKClusterEncryptionInTransitInCluster+    ]++-- | Constructor for 'MSKClusterEncryptionInTransit' containing required+-- fields as arguments.+mskClusterEncryptionInTransit+  :: MSKClusterEncryptionInTransit+mskClusterEncryptionInTransit  =+  MSKClusterEncryptionInTransit+  { _mSKClusterEncryptionInTransitClientBroker = Nothing+  , _mSKClusterEncryptionInTransitInCluster = Nothing+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-msk-cluster-encryptionintransit.html#cfn-msk-cluster-encryptionintransit-clientbroker+mskceitClientBroker :: Lens' MSKClusterEncryptionInTransit (Maybe (Val Text))+mskceitClientBroker = lens _mSKClusterEncryptionInTransitClientBroker (\s a -> s { _mSKClusterEncryptionInTransitClientBroker = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-msk-cluster-encryptionintransit.html#cfn-msk-cluster-encryptionintransit-incluster+mskceitInCluster :: Lens' MSKClusterEncryptionInTransit (Maybe (Val Bool))+mskceitInCluster = lens _mSKClusterEncryptionInTransitInCluster (\s a -> s { _mSKClusterEncryptionInTransitInCluster = a })
+ library-gen/Stratosphere/ResourceProperties/MSKClusterEncryptionInfo.hs view
@@ -0,0 +1,46 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-msk-cluster-encryptioninfo.html++module Stratosphere.ResourceProperties.MSKClusterEncryptionInfo where++import Stratosphere.ResourceImports+import Stratosphere.ResourceProperties.MSKClusterEncryptionAtRest+import Stratosphere.ResourceProperties.MSKClusterEncryptionInTransit++-- | Full data type definition for MSKClusterEncryptionInfo. See+-- 'mskClusterEncryptionInfo' for a more convenient constructor.+data MSKClusterEncryptionInfo =+  MSKClusterEncryptionInfo+  { _mSKClusterEncryptionInfoEncryptionAtRest :: Maybe MSKClusterEncryptionAtRest+  , _mSKClusterEncryptionInfoEncryptionInTransit :: Maybe MSKClusterEncryptionInTransit+  } deriving (Show, Eq)++instance ToJSON MSKClusterEncryptionInfo where+  toJSON MSKClusterEncryptionInfo{..} =+    object $+    catMaybes+    [ fmap (("EncryptionAtRest",) . toJSON) _mSKClusterEncryptionInfoEncryptionAtRest+    , fmap (("EncryptionInTransit",) . toJSON) _mSKClusterEncryptionInfoEncryptionInTransit+    ]++-- | Constructor for 'MSKClusterEncryptionInfo' containing required fields as+-- arguments.+mskClusterEncryptionInfo+  :: MSKClusterEncryptionInfo+mskClusterEncryptionInfo  =+  MSKClusterEncryptionInfo+  { _mSKClusterEncryptionInfoEncryptionAtRest = Nothing+  , _mSKClusterEncryptionInfoEncryptionInTransit = Nothing+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-msk-cluster-encryptioninfo.html#cfn-msk-cluster-encryptioninfo-encryptionatrest+mskceiEncryptionAtRest :: Lens' MSKClusterEncryptionInfo (Maybe MSKClusterEncryptionAtRest)+mskceiEncryptionAtRest = lens _mSKClusterEncryptionInfoEncryptionAtRest (\s a -> s { _mSKClusterEncryptionInfoEncryptionAtRest = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-msk-cluster-encryptioninfo.html#cfn-msk-cluster-encryptioninfo-encryptionintransit+mskceiEncryptionInTransit :: Lens' MSKClusterEncryptionInfo (Maybe MSKClusterEncryptionInTransit)+mskceiEncryptionInTransit = lens _mSKClusterEncryptionInfoEncryptionInTransit (\s a -> s { _mSKClusterEncryptionInfoEncryptionInTransit = a })
+ library-gen/Stratosphere/ResourceProperties/MSKClusterStorageInfo.hs view
@@ -0,0 +1,38 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-msk-cluster-storageinfo.html++module Stratosphere.ResourceProperties.MSKClusterStorageInfo where++import Stratosphere.ResourceImports+import Stratosphere.ResourceProperties.MSKClusterEBSStorageInfo++-- | Full data type definition for MSKClusterStorageInfo. See+-- 'mskClusterStorageInfo' for a more convenient constructor.+data MSKClusterStorageInfo =+  MSKClusterStorageInfo+  { _mSKClusterStorageInfoEBSStorageInfo :: Maybe MSKClusterEBSStorageInfo+  } deriving (Show, Eq)++instance ToJSON MSKClusterStorageInfo where+  toJSON MSKClusterStorageInfo{..} =+    object $+    catMaybes+    [ fmap (("EBSStorageInfo",) . toJSON) _mSKClusterStorageInfoEBSStorageInfo+    ]++-- | Constructor for 'MSKClusterStorageInfo' containing required fields as+-- arguments.+mskClusterStorageInfo+  :: MSKClusterStorageInfo+mskClusterStorageInfo  =+  MSKClusterStorageInfo+  { _mSKClusterStorageInfoEBSStorageInfo = Nothing+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-msk-cluster-storageinfo.html#cfn-msk-cluster-storageinfo-ebsstorageinfo+mskcsiEBSStorageInfo :: Lens' MSKClusterStorageInfo (Maybe MSKClusterEBSStorageInfo)+mskcsiEBSStorageInfo = lens _mSKClusterStorageInfoEBSStorageInfo (\s a -> s { _mSKClusterStorageInfoEBSStorageInfo = a })
+ library-gen/Stratosphere/ResourceProperties/MSKClusterTls.hs view
@@ -0,0 +1,37 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-msk-cluster-tls.html++module Stratosphere.ResourceProperties.MSKClusterTls where++import Stratosphere.ResourceImports+++-- | Full data type definition for MSKClusterTls. See 'mskClusterTls' for a+-- more convenient constructor.+data MSKClusterTls =+  MSKClusterTls+  { _mSKClusterTlsCertificateAuthorityArnList :: Maybe (ValList Text)+  } deriving (Show, Eq)++instance ToJSON MSKClusterTls where+  toJSON MSKClusterTls{..} =+    object $+    catMaybes+    [ fmap (("CertificateAuthorityArnList",) . toJSON) _mSKClusterTlsCertificateAuthorityArnList+    ]++-- | Constructor for 'MSKClusterTls' containing required fields as arguments.+mskClusterTls+  :: MSKClusterTls+mskClusterTls  =+  MSKClusterTls+  { _mSKClusterTlsCertificateAuthorityArnList = Nothing+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-msk-cluster-tls.html#cfn-msk-cluster-tls-certificateauthorityarnlist+mskctCertificateAuthorityArnList :: Lens' MSKClusterTls (Maybe (ValList Text))+mskctCertificateAuthorityArnList = lens _mSKClusterTlsCertificateAuthorityArnList (\s a -> s { _mSKClusterTlsCertificateAuthorityArnList = a })
+ library-gen/Stratosphere/ResourceProperties/PinpointApplicationSettingsCampaignHook.hs view
@@ -0,0 +1,53 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-pinpoint-applicationsettings-campaignhook.html++module Stratosphere.ResourceProperties.PinpointApplicationSettingsCampaignHook where++import Stratosphere.ResourceImports+++-- | Full data type definition for PinpointApplicationSettingsCampaignHook.+-- See 'pinpointApplicationSettingsCampaignHook' for a more convenient+-- constructor.+data PinpointApplicationSettingsCampaignHook =+  PinpointApplicationSettingsCampaignHook+  { _pinpointApplicationSettingsCampaignHookLambdaFunctionName :: Maybe (Val Text)+  , _pinpointApplicationSettingsCampaignHookMode :: Maybe (Val Text)+  , _pinpointApplicationSettingsCampaignHookWebUrl :: Maybe (Val Text)+  } deriving (Show, Eq)++instance ToJSON PinpointApplicationSettingsCampaignHook where+  toJSON PinpointApplicationSettingsCampaignHook{..} =+    object $+    catMaybes+    [ fmap (("LambdaFunctionName",) . toJSON) _pinpointApplicationSettingsCampaignHookLambdaFunctionName+    , fmap (("Mode",) . toJSON) _pinpointApplicationSettingsCampaignHookMode+    , fmap (("WebUrl",) . toJSON) _pinpointApplicationSettingsCampaignHookWebUrl+    ]++-- | Constructor for 'PinpointApplicationSettingsCampaignHook' containing+-- required fields as arguments.+pinpointApplicationSettingsCampaignHook+  :: PinpointApplicationSettingsCampaignHook+pinpointApplicationSettingsCampaignHook  =+  PinpointApplicationSettingsCampaignHook+  { _pinpointApplicationSettingsCampaignHookLambdaFunctionName = Nothing+  , _pinpointApplicationSettingsCampaignHookMode = Nothing+  , _pinpointApplicationSettingsCampaignHookWebUrl = Nothing+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-pinpoint-applicationsettings-campaignhook.html#cfn-pinpoint-applicationsettings-campaignhook-lambdafunctionname+paschLambdaFunctionName :: Lens' PinpointApplicationSettingsCampaignHook (Maybe (Val Text))+paschLambdaFunctionName = lens _pinpointApplicationSettingsCampaignHookLambdaFunctionName (\s a -> s { _pinpointApplicationSettingsCampaignHookLambdaFunctionName = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-pinpoint-applicationsettings-campaignhook.html#cfn-pinpoint-applicationsettings-campaignhook-mode+paschMode :: Lens' PinpointApplicationSettingsCampaignHook (Maybe (Val Text))+paschMode = lens _pinpointApplicationSettingsCampaignHookMode (\s a -> s { _pinpointApplicationSettingsCampaignHookMode = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-pinpoint-applicationsettings-campaignhook.html#cfn-pinpoint-applicationsettings-campaignhook-weburl+paschWebUrl :: Lens' PinpointApplicationSettingsCampaignHook (Maybe (Val Text))+paschWebUrl = lens _pinpointApplicationSettingsCampaignHookWebUrl (\s a -> s { _pinpointApplicationSettingsCampaignHookWebUrl = a })
+ library-gen/Stratosphere/ResourceProperties/PinpointApplicationSettingsLimits.hs view
@@ -0,0 +1,59 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-pinpoint-applicationsettings-limits.html++module Stratosphere.ResourceProperties.PinpointApplicationSettingsLimits where++import Stratosphere.ResourceImports+++-- | Full data type definition for PinpointApplicationSettingsLimits. See+-- 'pinpointApplicationSettingsLimits' for a more convenient constructor.+data PinpointApplicationSettingsLimits =+  PinpointApplicationSettingsLimits+  { _pinpointApplicationSettingsLimitsDaily :: Maybe (Val Integer)+  , _pinpointApplicationSettingsLimitsMaximumDuration :: Maybe (Val Integer)+  , _pinpointApplicationSettingsLimitsMessagesPerSecond :: Maybe (Val Integer)+  , _pinpointApplicationSettingsLimitsTotal :: Maybe (Val Integer)+  } deriving (Show, Eq)++instance ToJSON PinpointApplicationSettingsLimits where+  toJSON PinpointApplicationSettingsLimits{..} =+    object $+    catMaybes+    [ fmap (("Daily",) . toJSON) _pinpointApplicationSettingsLimitsDaily+    , fmap (("MaximumDuration",) . toJSON) _pinpointApplicationSettingsLimitsMaximumDuration+    , fmap (("MessagesPerSecond",) . toJSON) _pinpointApplicationSettingsLimitsMessagesPerSecond+    , fmap (("Total",) . toJSON) _pinpointApplicationSettingsLimitsTotal+    ]++-- | Constructor for 'PinpointApplicationSettingsLimits' containing required+-- fields as arguments.+pinpointApplicationSettingsLimits+  :: PinpointApplicationSettingsLimits+pinpointApplicationSettingsLimits  =+  PinpointApplicationSettingsLimits+  { _pinpointApplicationSettingsLimitsDaily = Nothing+  , _pinpointApplicationSettingsLimitsMaximumDuration = Nothing+  , _pinpointApplicationSettingsLimitsMessagesPerSecond = Nothing+  , _pinpointApplicationSettingsLimitsTotal = Nothing+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-pinpoint-applicationsettings-limits.html#cfn-pinpoint-applicationsettings-limits-daily+paslDaily :: Lens' PinpointApplicationSettingsLimits (Maybe (Val Integer))+paslDaily = lens _pinpointApplicationSettingsLimitsDaily (\s a -> s { _pinpointApplicationSettingsLimitsDaily = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-pinpoint-applicationsettings-limits.html#cfn-pinpoint-applicationsettings-limits-maximumduration+paslMaximumDuration :: Lens' PinpointApplicationSettingsLimits (Maybe (Val Integer))+paslMaximumDuration = lens _pinpointApplicationSettingsLimitsMaximumDuration (\s a -> s { _pinpointApplicationSettingsLimitsMaximumDuration = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-pinpoint-applicationsettings-limits.html#cfn-pinpoint-applicationsettings-limits-messagespersecond+paslMessagesPerSecond :: Lens' PinpointApplicationSettingsLimits (Maybe (Val Integer))+paslMessagesPerSecond = lens _pinpointApplicationSettingsLimitsMessagesPerSecond (\s a -> s { _pinpointApplicationSettingsLimitsMessagesPerSecond = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-pinpoint-applicationsettings-limits.html#cfn-pinpoint-applicationsettings-limits-total+paslTotal :: Lens' PinpointApplicationSettingsLimits (Maybe (Val Integer))+paslTotal = lens _pinpointApplicationSettingsLimitsTotal (\s a -> s { _pinpointApplicationSettingsLimitsTotal = a })
+ library-gen/Stratosphere/ResourceProperties/PinpointApplicationSettingsQuietTime.hs view
@@ -0,0 +1,47 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-pinpoint-applicationsettings-quiettime.html++module Stratosphere.ResourceProperties.PinpointApplicationSettingsQuietTime where++import Stratosphere.ResourceImports+++-- | Full data type definition for PinpointApplicationSettingsQuietTime. See+-- 'pinpointApplicationSettingsQuietTime' for a more convenient constructor.+data PinpointApplicationSettingsQuietTime =+  PinpointApplicationSettingsQuietTime+  { _pinpointApplicationSettingsQuietTimeEnd :: Val Text+  , _pinpointApplicationSettingsQuietTimeStart :: Val Text+  } deriving (Show, Eq)++instance ToJSON PinpointApplicationSettingsQuietTime where+  toJSON PinpointApplicationSettingsQuietTime{..} =+    object $+    catMaybes+    [ (Just . ("End",) . toJSON) _pinpointApplicationSettingsQuietTimeEnd+    , (Just . ("Start",) . toJSON) _pinpointApplicationSettingsQuietTimeStart+    ]++-- | Constructor for 'PinpointApplicationSettingsQuietTime' containing+-- required fields as arguments.+pinpointApplicationSettingsQuietTime+  :: Val Text -- ^ 'pasqtEnd'+  -> Val Text -- ^ 'pasqtStart'+  -> PinpointApplicationSettingsQuietTime+pinpointApplicationSettingsQuietTime endarg startarg =+  PinpointApplicationSettingsQuietTime+  { _pinpointApplicationSettingsQuietTimeEnd = endarg+  , _pinpointApplicationSettingsQuietTimeStart = startarg+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-pinpoint-applicationsettings-quiettime.html#cfn-pinpoint-applicationsettings-quiettime-end+pasqtEnd :: Lens' PinpointApplicationSettingsQuietTime (Val Text)+pasqtEnd = lens _pinpointApplicationSettingsQuietTimeEnd (\s a -> s { _pinpointApplicationSettingsQuietTimeEnd = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-pinpoint-applicationsettings-quiettime.html#cfn-pinpoint-applicationsettings-quiettime-start+pasqtStart :: Lens' PinpointApplicationSettingsQuietTime (Val Text)+pasqtStart = lens _pinpointApplicationSettingsQuietTimeStart (\s a -> s { _pinpointApplicationSettingsQuietTimeStart = a })
+ library-gen/Stratosphere/ResourceProperties/PinpointCampaignAttributeDimension.hs view
@@ -0,0 +1,45 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-pinpoint-campaign-attributedimension.html++module Stratosphere.ResourceProperties.PinpointCampaignAttributeDimension where++import Stratosphere.ResourceImports+++-- | Full data type definition for PinpointCampaignAttributeDimension. See+-- 'pinpointCampaignAttributeDimension' for a more convenient constructor.+data PinpointCampaignAttributeDimension =+  PinpointCampaignAttributeDimension+  { _pinpointCampaignAttributeDimensionAttributeType :: Maybe (Val Text)+  , _pinpointCampaignAttributeDimensionValues :: Maybe (ValList Text)+  } deriving (Show, Eq)++instance ToJSON PinpointCampaignAttributeDimension where+  toJSON PinpointCampaignAttributeDimension{..} =+    object $+    catMaybes+    [ fmap (("AttributeType",) . toJSON) _pinpointCampaignAttributeDimensionAttributeType+    , fmap (("Values",) . toJSON) _pinpointCampaignAttributeDimensionValues+    ]++-- | Constructor for 'PinpointCampaignAttributeDimension' containing required+-- fields as arguments.+pinpointCampaignAttributeDimension+  :: PinpointCampaignAttributeDimension+pinpointCampaignAttributeDimension  =+  PinpointCampaignAttributeDimension+  { _pinpointCampaignAttributeDimensionAttributeType = Nothing+  , _pinpointCampaignAttributeDimensionValues = Nothing+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-pinpoint-campaign-attributedimension.html#cfn-pinpoint-campaign-attributedimension-attributetype+pcadAttributeType :: Lens' PinpointCampaignAttributeDimension (Maybe (Val Text))+pcadAttributeType = lens _pinpointCampaignAttributeDimensionAttributeType (\s a -> s { _pinpointCampaignAttributeDimensionAttributeType = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-pinpoint-campaign-attributedimension.html#cfn-pinpoint-campaign-attributedimension-values+pcadValues :: Lens' PinpointCampaignAttributeDimension (Maybe (ValList Text))+pcadValues = lens _pinpointCampaignAttributeDimensionValues (\s a -> s { _pinpointCampaignAttributeDimensionValues = a })
+ library-gen/Stratosphere/ResourceProperties/PinpointCampaignCampaignEmailMessage.hs view
@@ -0,0 +1,59 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-pinpoint-campaign-campaignemailmessage.html++module Stratosphere.ResourceProperties.PinpointCampaignCampaignEmailMessage where++import Stratosphere.ResourceImports+++-- | Full data type definition for PinpointCampaignCampaignEmailMessage. See+-- 'pinpointCampaignCampaignEmailMessage' for a more convenient constructor.+data PinpointCampaignCampaignEmailMessage =+  PinpointCampaignCampaignEmailMessage+  { _pinpointCampaignCampaignEmailMessageBody :: Maybe (Val Text)+  , _pinpointCampaignCampaignEmailMessageFromAddress :: Maybe (Val Text)+  , _pinpointCampaignCampaignEmailMessageHtmlBody :: Maybe (Val Text)+  , _pinpointCampaignCampaignEmailMessageTitle :: Maybe (Val Text)+  } deriving (Show, Eq)++instance ToJSON PinpointCampaignCampaignEmailMessage where+  toJSON PinpointCampaignCampaignEmailMessage{..} =+    object $+    catMaybes+    [ fmap (("Body",) . toJSON) _pinpointCampaignCampaignEmailMessageBody+    , fmap (("FromAddress",) . toJSON) _pinpointCampaignCampaignEmailMessageFromAddress+    , fmap (("HtmlBody",) . toJSON) _pinpointCampaignCampaignEmailMessageHtmlBody+    , fmap (("Title",) . toJSON) _pinpointCampaignCampaignEmailMessageTitle+    ]++-- | Constructor for 'PinpointCampaignCampaignEmailMessage' containing+-- required fields as arguments.+pinpointCampaignCampaignEmailMessage+  :: PinpointCampaignCampaignEmailMessage+pinpointCampaignCampaignEmailMessage  =+  PinpointCampaignCampaignEmailMessage+  { _pinpointCampaignCampaignEmailMessageBody = Nothing+  , _pinpointCampaignCampaignEmailMessageFromAddress = Nothing+  , _pinpointCampaignCampaignEmailMessageHtmlBody = Nothing+  , _pinpointCampaignCampaignEmailMessageTitle = Nothing+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-pinpoint-campaign-campaignemailmessage.html#cfn-pinpoint-campaign-campaignemailmessage-body+pccemBody :: Lens' PinpointCampaignCampaignEmailMessage (Maybe (Val Text))+pccemBody = lens _pinpointCampaignCampaignEmailMessageBody (\s a -> s { _pinpointCampaignCampaignEmailMessageBody = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-pinpoint-campaign-campaignemailmessage.html#cfn-pinpoint-campaign-campaignemailmessage-fromaddress+pccemFromAddress :: Lens' PinpointCampaignCampaignEmailMessage (Maybe (Val Text))+pccemFromAddress = lens _pinpointCampaignCampaignEmailMessageFromAddress (\s a -> s { _pinpointCampaignCampaignEmailMessageFromAddress = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-pinpoint-campaign-campaignemailmessage.html#cfn-pinpoint-campaign-campaignemailmessage-htmlbody+pccemHtmlBody :: Lens' PinpointCampaignCampaignEmailMessage (Maybe (Val Text))+pccemHtmlBody = lens _pinpointCampaignCampaignEmailMessageHtmlBody (\s a -> s { _pinpointCampaignCampaignEmailMessageHtmlBody = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-pinpoint-campaign-campaignemailmessage.html#cfn-pinpoint-campaign-campaignemailmessage-title+pccemTitle :: Lens' PinpointCampaignCampaignEmailMessage (Maybe (Val Text))+pccemTitle = lens _pinpointCampaignCampaignEmailMessageTitle (\s a -> s { _pinpointCampaignCampaignEmailMessageTitle = a })
+ library-gen/Stratosphere/ResourceProperties/PinpointCampaignCampaignEventFilter.hs view
@@ -0,0 +1,45 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-pinpoint-campaign-campaigneventfilter.html++module Stratosphere.ResourceProperties.PinpointCampaignCampaignEventFilter where++import Stratosphere.ResourceImports+import Stratosphere.ResourceProperties.PinpointCampaignEventDimensions++-- | Full data type definition for PinpointCampaignCampaignEventFilter. See+-- 'pinpointCampaignCampaignEventFilter' for a more convenient constructor.+data PinpointCampaignCampaignEventFilter =+  PinpointCampaignCampaignEventFilter+  { _pinpointCampaignCampaignEventFilterDimensions :: Maybe PinpointCampaignEventDimensions+  , _pinpointCampaignCampaignEventFilterFilterType :: Maybe (Val Text)+  } deriving (Show, Eq)++instance ToJSON PinpointCampaignCampaignEventFilter where+  toJSON PinpointCampaignCampaignEventFilter{..} =+    object $+    catMaybes+    [ fmap (("Dimensions",) . toJSON) _pinpointCampaignCampaignEventFilterDimensions+    , fmap (("FilterType",) . toJSON) _pinpointCampaignCampaignEventFilterFilterType+    ]++-- | Constructor for 'PinpointCampaignCampaignEventFilter' containing required+-- fields as arguments.+pinpointCampaignCampaignEventFilter+  :: PinpointCampaignCampaignEventFilter+pinpointCampaignCampaignEventFilter  =+  PinpointCampaignCampaignEventFilter+  { _pinpointCampaignCampaignEventFilterDimensions = Nothing+  , _pinpointCampaignCampaignEventFilterFilterType = Nothing+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-pinpoint-campaign-campaigneventfilter.html#cfn-pinpoint-campaign-campaigneventfilter-dimensions+pccefDimensions :: Lens' PinpointCampaignCampaignEventFilter (Maybe PinpointCampaignEventDimensions)+pccefDimensions = lens _pinpointCampaignCampaignEventFilterDimensions (\s a -> s { _pinpointCampaignCampaignEventFilterDimensions = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-pinpoint-campaign-campaigneventfilter.html#cfn-pinpoint-campaign-campaigneventfilter-filtertype+pccefFilterType :: Lens' PinpointCampaignCampaignEventFilter (Maybe (Val Text))+pccefFilterType = lens _pinpointCampaignCampaignEventFilterFilterType (\s a -> s { _pinpointCampaignCampaignEventFilterFilterType = a })
+ library-gen/Stratosphere/ResourceProperties/PinpointCampaignCampaignHook.hs view
@@ -0,0 +1,52 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-pinpoint-campaign-campaignhook.html++module Stratosphere.ResourceProperties.PinpointCampaignCampaignHook where++import Stratosphere.ResourceImports+++-- | Full data type definition for PinpointCampaignCampaignHook. See+-- 'pinpointCampaignCampaignHook' for a more convenient constructor.+data PinpointCampaignCampaignHook =+  PinpointCampaignCampaignHook+  { _pinpointCampaignCampaignHookLambdaFunctionName :: Maybe (Val Text)+  , _pinpointCampaignCampaignHookMode :: Maybe (Val Text)+  , _pinpointCampaignCampaignHookWebUrl :: Maybe (Val Text)+  } deriving (Show, Eq)++instance ToJSON PinpointCampaignCampaignHook where+  toJSON PinpointCampaignCampaignHook{..} =+    object $+    catMaybes+    [ fmap (("LambdaFunctionName",) . toJSON) _pinpointCampaignCampaignHookLambdaFunctionName+    , fmap (("Mode",) . toJSON) _pinpointCampaignCampaignHookMode+    , fmap (("WebUrl",) . toJSON) _pinpointCampaignCampaignHookWebUrl+    ]++-- | Constructor for 'PinpointCampaignCampaignHook' containing required fields+-- as arguments.+pinpointCampaignCampaignHook+  :: PinpointCampaignCampaignHook+pinpointCampaignCampaignHook  =+  PinpointCampaignCampaignHook+  { _pinpointCampaignCampaignHookLambdaFunctionName = Nothing+  , _pinpointCampaignCampaignHookMode = Nothing+  , _pinpointCampaignCampaignHookWebUrl = Nothing+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-pinpoint-campaign-campaignhook.html#cfn-pinpoint-campaign-campaignhook-lambdafunctionname+pcchLambdaFunctionName :: Lens' PinpointCampaignCampaignHook (Maybe (Val Text))+pcchLambdaFunctionName = lens _pinpointCampaignCampaignHookLambdaFunctionName (\s a -> s { _pinpointCampaignCampaignHookLambdaFunctionName = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-pinpoint-campaign-campaignhook.html#cfn-pinpoint-campaign-campaignhook-mode+pcchMode :: Lens' PinpointCampaignCampaignHook (Maybe (Val Text))+pcchMode = lens _pinpointCampaignCampaignHookMode (\s a -> s { _pinpointCampaignCampaignHookMode = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-pinpoint-campaign-campaignhook.html#cfn-pinpoint-campaign-campaignhook-weburl+pcchWebUrl :: Lens' PinpointCampaignCampaignHook (Maybe (Val Text))+pcchWebUrl = lens _pinpointCampaignCampaignHookWebUrl (\s a -> s { _pinpointCampaignCampaignHookWebUrl = a })
+ library-gen/Stratosphere/ResourceProperties/PinpointCampaignCampaignSmsMessage.hs view
@@ -0,0 +1,52 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-pinpoint-campaign-campaignsmsmessage.html++module Stratosphere.ResourceProperties.PinpointCampaignCampaignSmsMessage where++import Stratosphere.ResourceImports+++-- | Full data type definition for PinpointCampaignCampaignSmsMessage. See+-- 'pinpointCampaignCampaignSmsMessage' for a more convenient constructor.+data PinpointCampaignCampaignSmsMessage =+  PinpointCampaignCampaignSmsMessage+  { _pinpointCampaignCampaignSmsMessageBody :: Maybe (Val Text)+  , _pinpointCampaignCampaignSmsMessageMessageType :: Maybe (Val Text)+  , _pinpointCampaignCampaignSmsMessageSenderId :: Maybe (Val Text)+  } deriving (Show, Eq)++instance ToJSON PinpointCampaignCampaignSmsMessage where+  toJSON PinpointCampaignCampaignSmsMessage{..} =+    object $+    catMaybes+    [ fmap (("Body",) . toJSON) _pinpointCampaignCampaignSmsMessageBody+    , fmap (("MessageType",) . toJSON) _pinpointCampaignCampaignSmsMessageMessageType+    , fmap (("SenderId",) . toJSON) _pinpointCampaignCampaignSmsMessageSenderId+    ]++-- | Constructor for 'PinpointCampaignCampaignSmsMessage' containing required+-- fields as arguments.+pinpointCampaignCampaignSmsMessage+  :: PinpointCampaignCampaignSmsMessage+pinpointCampaignCampaignSmsMessage  =+  PinpointCampaignCampaignSmsMessage+  { _pinpointCampaignCampaignSmsMessageBody = Nothing+  , _pinpointCampaignCampaignSmsMessageMessageType = Nothing+  , _pinpointCampaignCampaignSmsMessageSenderId = Nothing+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-pinpoint-campaign-campaignsmsmessage.html#cfn-pinpoint-campaign-campaignsmsmessage-body+pccsmBody :: Lens' PinpointCampaignCampaignSmsMessage (Maybe (Val Text))+pccsmBody = lens _pinpointCampaignCampaignSmsMessageBody (\s a -> s { _pinpointCampaignCampaignSmsMessageBody = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-pinpoint-campaign-campaignsmsmessage.html#cfn-pinpoint-campaign-campaignsmsmessage-messagetype+pccsmMessageType :: Lens' PinpointCampaignCampaignSmsMessage (Maybe (Val Text))+pccsmMessageType = lens _pinpointCampaignCampaignSmsMessageMessageType (\s a -> s { _pinpointCampaignCampaignSmsMessageMessageType = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-pinpoint-campaign-campaignsmsmessage.html#cfn-pinpoint-campaign-campaignsmsmessage-senderid+pccsmSenderId :: Lens' PinpointCampaignCampaignSmsMessage (Maybe (Val Text))+pccsmSenderId = lens _pinpointCampaignCampaignSmsMessageSenderId (\s a -> s { _pinpointCampaignCampaignSmsMessageSenderId = a })
+ library-gen/Stratosphere/ResourceProperties/PinpointCampaignEventDimensions.hs view
@@ -0,0 +1,52 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-pinpoint-campaign-eventdimensions.html++module Stratosphere.ResourceProperties.PinpointCampaignEventDimensions where++import Stratosphere.ResourceImports+import Stratosphere.ResourceProperties.PinpointCampaignSetDimension++-- | Full data type definition for PinpointCampaignEventDimensions. See+-- 'pinpointCampaignEventDimensions' for a more convenient constructor.+data PinpointCampaignEventDimensions =+  PinpointCampaignEventDimensions+  { _pinpointCampaignEventDimensionsAttributes :: Maybe Object+  , _pinpointCampaignEventDimensionsEventType :: Maybe PinpointCampaignSetDimension+  , _pinpointCampaignEventDimensionsMetrics :: Maybe Object+  } deriving (Show, Eq)++instance ToJSON PinpointCampaignEventDimensions where+  toJSON PinpointCampaignEventDimensions{..} =+    object $+    catMaybes+    [ fmap (("Attributes",) . toJSON) _pinpointCampaignEventDimensionsAttributes+    , fmap (("EventType",) . toJSON) _pinpointCampaignEventDimensionsEventType+    , fmap (("Metrics",) . toJSON) _pinpointCampaignEventDimensionsMetrics+    ]++-- | Constructor for 'PinpointCampaignEventDimensions' containing required+-- fields as arguments.+pinpointCampaignEventDimensions+  :: PinpointCampaignEventDimensions+pinpointCampaignEventDimensions  =+  PinpointCampaignEventDimensions+  { _pinpointCampaignEventDimensionsAttributes = Nothing+  , _pinpointCampaignEventDimensionsEventType = Nothing+  , _pinpointCampaignEventDimensionsMetrics = Nothing+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-pinpoint-campaign-eventdimensions.html#cfn-pinpoint-campaign-eventdimensions-attributes+pcedAttributes :: Lens' PinpointCampaignEventDimensions (Maybe Object)+pcedAttributes = lens _pinpointCampaignEventDimensionsAttributes (\s a -> s { _pinpointCampaignEventDimensionsAttributes = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-pinpoint-campaign-eventdimensions.html#cfn-pinpoint-campaign-eventdimensions-eventtype+pcedEventType :: Lens' PinpointCampaignEventDimensions (Maybe PinpointCampaignSetDimension)+pcedEventType = lens _pinpointCampaignEventDimensionsEventType (\s a -> s { _pinpointCampaignEventDimensionsEventType = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-pinpoint-campaign-eventdimensions.html#cfn-pinpoint-campaign-eventdimensions-metrics+pcedMetrics :: Lens' PinpointCampaignEventDimensions (Maybe Object)+pcedMetrics = lens _pinpointCampaignEventDimensionsMetrics (\s a -> s { _pinpointCampaignEventDimensionsMetrics = a })
+ library-gen/Stratosphere/ResourceProperties/PinpointCampaignLimits.hs view
@@ -0,0 +1,59 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-pinpoint-campaign-limits.html++module Stratosphere.ResourceProperties.PinpointCampaignLimits where++import Stratosphere.ResourceImports+++-- | Full data type definition for PinpointCampaignLimits. See+-- 'pinpointCampaignLimits' for a more convenient constructor.+data PinpointCampaignLimits =+  PinpointCampaignLimits+  { _pinpointCampaignLimitsDaily :: Maybe (Val Integer)+  , _pinpointCampaignLimitsMaximumDuration :: Maybe (Val Integer)+  , _pinpointCampaignLimitsMessagesPerSecond :: Maybe (Val Integer)+  , _pinpointCampaignLimitsTotal :: Maybe (Val Integer)+  } deriving (Show, Eq)++instance ToJSON PinpointCampaignLimits where+  toJSON PinpointCampaignLimits{..} =+    object $+    catMaybes+    [ fmap (("Daily",) . toJSON) _pinpointCampaignLimitsDaily+    , fmap (("MaximumDuration",) . toJSON) _pinpointCampaignLimitsMaximumDuration+    , fmap (("MessagesPerSecond",) . toJSON) _pinpointCampaignLimitsMessagesPerSecond+    , fmap (("Total",) . toJSON) _pinpointCampaignLimitsTotal+    ]++-- | Constructor for 'PinpointCampaignLimits' containing required fields as+-- arguments.+pinpointCampaignLimits+  :: PinpointCampaignLimits+pinpointCampaignLimits  =+  PinpointCampaignLimits+  { _pinpointCampaignLimitsDaily = Nothing+  , _pinpointCampaignLimitsMaximumDuration = Nothing+  , _pinpointCampaignLimitsMessagesPerSecond = Nothing+  , _pinpointCampaignLimitsTotal = Nothing+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-pinpoint-campaign-limits.html#cfn-pinpoint-campaign-limits-daily+pclDaily :: Lens' PinpointCampaignLimits (Maybe (Val Integer))+pclDaily = lens _pinpointCampaignLimitsDaily (\s a -> s { _pinpointCampaignLimitsDaily = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-pinpoint-campaign-limits.html#cfn-pinpoint-campaign-limits-maximumduration+pclMaximumDuration :: Lens' PinpointCampaignLimits (Maybe (Val Integer))+pclMaximumDuration = lens _pinpointCampaignLimitsMaximumDuration (\s a -> s { _pinpointCampaignLimitsMaximumDuration = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-pinpoint-campaign-limits.html#cfn-pinpoint-campaign-limits-messagespersecond+pclMessagesPerSecond :: Lens' PinpointCampaignLimits (Maybe (Val Integer))+pclMessagesPerSecond = lens _pinpointCampaignLimitsMessagesPerSecond (\s a -> s { _pinpointCampaignLimitsMessagesPerSecond = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-pinpoint-campaign-limits.html#cfn-pinpoint-campaign-limits-total+pclTotal :: Lens' PinpointCampaignLimits (Maybe (Val Integer))+pclTotal = lens _pinpointCampaignLimitsTotal (\s a -> s { _pinpointCampaignLimitsTotal = a })
+ library-gen/Stratosphere/ResourceProperties/PinpointCampaignMessage.hs view
@@ -0,0 +1,115 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-pinpoint-campaign-message.html++module Stratosphere.ResourceProperties.PinpointCampaignMessage where++import Stratosphere.ResourceImports+++-- | Full data type definition for PinpointCampaignMessage. See+-- 'pinpointCampaignMessage' for a more convenient constructor.+data PinpointCampaignMessage =+  PinpointCampaignMessage+  { _pinpointCampaignMessageAction :: Maybe (Val Text)+  , _pinpointCampaignMessageBody :: Maybe (Val Text)+  , _pinpointCampaignMessageImageIconUrl :: Maybe (Val Text)+  , _pinpointCampaignMessageImageSmallIconUrl :: Maybe (Val Text)+  , _pinpointCampaignMessageImageUrl :: Maybe (Val Text)+  , _pinpointCampaignMessageJsonBody :: Maybe (Val Text)+  , _pinpointCampaignMessageMediaUrl :: Maybe (Val Text)+  , _pinpointCampaignMessageRawContent :: Maybe (Val Text)+  , _pinpointCampaignMessageSilentPush :: Maybe (Val Bool)+  , _pinpointCampaignMessageTimeToLive :: Maybe (Val Integer)+  , _pinpointCampaignMessageTitle :: Maybe (Val Text)+  , _pinpointCampaignMessageUrl :: Maybe (Val Text)+  } deriving (Show, Eq)++instance ToJSON PinpointCampaignMessage where+  toJSON PinpointCampaignMessage{..} =+    object $+    catMaybes+    [ fmap (("Action",) . toJSON) _pinpointCampaignMessageAction+    , fmap (("Body",) . toJSON) _pinpointCampaignMessageBody+    , fmap (("ImageIconUrl",) . toJSON) _pinpointCampaignMessageImageIconUrl+    , fmap (("ImageSmallIconUrl",) . toJSON) _pinpointCampaignMessageImageSmallIconUrl+    , fmap (("ImageUrl",) . toJSON) _pinpointCampaignMessageImageUrl+    , fmap (("JsonBody",) . toJSON) _pinpointCampaignMessageJsonBody+    , fmap (("MediaUrl",) . toJSON) _pinpointCampaignMessageMediaUrl+    , fmap (("RawContent",) . toJSON) _pinpointCampaignMessageRawContent+    , fmap (("SilentPush",) . toJSON) _pinpointCampaignMessageSilentPush+    , fmap (("TimeToLive",) . toJSON) _pinpointCampaignMessageTimeToLive+    , fmap (("Title",) . toJSON) _pinpointCampaignMessageTitle+    , fmap (("Url",) . toJSON) _pinpointCampaignMessageUrl+    ]++-- | Constructor for 'PinpointCampaignMessage' containing required fields as+-- arguments.+pinpointCampaignMessage+  :: PinpointCampaignMessage+pinpointCampaignMessage  =+  PinpointCampaignMessage+  { _pinpointCampaignMessageAction = Nothing+  , _pinpointCampaignMessageBody = Nothing+  , _pinpointCampaignMessageImageIconUrl = Nothing+  , _pinpointCampaignMessageImageSmallIconUrl = Nothing+  , _pinpointCampaignMessageImageUrl = Nothing+  , _pinpointCampaignMessageJsonBody = Nothing+  , _pinpointCampaignMessageMediaUrl = Nothing+  , _pinpointCampaignMessageRawContent = Nothing+  , _pinpointCampaignMessageSilentPush = Nothing+  , _pinpointCampaignMessageTimeToLive = Nothing+  , _pinpointCampaignMessageTitle = Nothing+  , _pinpointCampaignMessageUrl = Nothing+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-pinpoint-campaign-message.html#cfn-pinpoint-campaign-message-action+pcmAction :: Lens' PinpointCampaignMessage (Maybe (Val Text))+pcmAction = lens _pinpointCampaignMessageAction (\s a -> s { _pinpointCampaignMessageAction = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-pinpoint-campaign-message.html#cfn-pinpoint-campaign-message-body+pcmBody :: Lens' PinpointCampaignMessage (Maybe (Val Text))+pcmBody = lens _pinpointCampaignMessageBody (\s a -> s { _pinpointCampaignMessageBody = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-pinpoint-campaign-message.html#cfn-pinpoint-campaign-message-imageiconurl+pcmImageIconUrl :: Lens' PinpointCampaignMessage (Maybe (Val Text))+pcmImageIconUrl = lens _pinpointCampaignMessageImageIconUrl (\s a -> s { _pinpointCampaignMessageImageIconUrl = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-pinpoint-campaign-message.html#cfn-pinpoint-campaign-message-imagesmalliconurl+pcmImageSmallIconUrl :: Lens' PinpointCampaignMessage (Maybe (Val Text))+pcmImageSmallIconUrl = lens _pinpointCampaignMessageImageSmallIconUrl (\s a -> s { _pinpointCampaignMessageImageSmallIconUrl = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-pinpoint-campaign-message.html#cfn-pinpoint-campaign-message-imageurl+pcmImageUrl :: Lens' PinpointCampaignMessage (Maybe (Val Text))+pcmImageUrl = lens _pinpointCampaignMessageImageUrl (\s a -> s { _pinpointCampaignMessageImageUrl = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-pinpoint-campaign-message.html#cfn-pinpoint-campaign-message-jsonbody+pcmJsonBody :: Lens' PinpointCampaignMessage (Maybe (Val Text))+pcmJsonBody = lens _pinpointCampaignMessageJsonBody (\s a -> s { _pinpointCampaignMessageJsonBody = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-pinpoint-campaign-message.html#cfn-pinpoint-campaign-message-mediaurl+pcmMediaUrl :: Lens' PinpointCampaignMessage (Maybe (Val Text))+pcmMediaUrl = lens _pinpointCampaignMessageMediaUrl (\s a -> s { _pinpointCampaignMessageMediaUrl = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-pinpoint-campaign-message.html#cfn-pinpoint-campaign-message-rawcontent+pcmRawContent :: Lens' PinpointCampaignMessage (Maybe (Val Text))+pcmRawContent = lens _pinpointCampaignMessageRawContent (\s a -> s { _pinpointCampaignMessageRawContent = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-pinpoint-campaign-message.html#cfn-pinpoint-campaign-message-silentpush+pcmSilentPush :: Lens' PinpointCampaignMessage (Maybe (Val Bool))+pcmSilentPush = lens _pinpointCampaignMessageSilentPush (\s a -> s { _pinpointCampaignMessageSilentPush = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-pinpoint-campaign-message.html#cfn-pinpoint-campaign-message-timetolive+pcmTimeToLive :: Lens' PinpointCampaignMessage (Maybe (Val Integer))+pcmTimeToLive = lens _pinpointCampaignMessageTimeToLive (\s a -> s { _pinpointCampaignMessageTimeToLive = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-pinpoint-campaign-message.html#cfn-pinpoint-campaign-message-title+pcmTitle :: Lens' PinpointCampaignMessage (Maybe (Val Text))+pcmTitle = lens _pinpointCampaignMessageTitle (\s a -> s { _pinpointCampaignMessageTitle = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-pinpoint-campaign-message.html#cfn-pinpoint-campaign-message-url+pcmUrl :: Lens' PinpointCampaignMessage (Maybe (Val Text))+pcmUrl = lens _pinpointCampaignMessageUrl (\s a -> s { _pinpointCampaignMessageUrl = a })
+ library-gen/Stratosphere/ResourceProperties/PinpointCampaignMessageConfiguration.hs view
@@ -0,0 +1,82 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-pinpoint-campaign-messageconfiguration.html++module Stratosphere.ResourceProperties.PinpointCampaignMessageConfiguration where++import Stratosphere.ResourceImports+import Stratosphere.ResourceProperties.PinpointCampaignMessage+import Stratosphere.ResourceProperties.PinpointCampaignCampaignEmailMessage+import Stratosphere.ResourceProperties.PinpointCampaignCampaignSmsMessage++-- | Full data type definition for PinpointCampaignMessageConfiguration. See+-- 'pinpointCampaignMessageConfiguration' for a more convenient constructor.+data PinpointCampaignMessageConfiguration =+  PinpointCampaignMessageConfiguration+  { _pinpointCampaignMessageConfigurationADMMessage :: Maybe PinpointCampaignMessage+  , _pinpointCampaignMessageConfigurationAPNSMessage :: Maybe PinpointCampaignMessage+  , _pinpointCampaignMessageConfigurationBaiduMessage :: Maybe PinpointCampaignMessage+  , _pinpointCampaignMessageConfigurationDefaultMessage :: Maybe PinpointCampaignMessage+  , _pinpointCampaignMessageConfigurationEmailMessage :: Maybe PinpointCampaignCampaignEmailMessage+  , _pinpointCampaignMessageConfigurationGCMMessage :: Maybe PinpointCampaignMessage+  , _pinpointCampaignMessageConfigurationSMSMessage :: Maybe PinpointCampaignCampaignSmsMessage+  } deriving (Show, Eq)++instance ToJSON PinpointCampaignMessageConfiguration where+  toJSON PinpointCampaignMessageConfiguration{..} =+    object $+    catMaybes+    [ fmap (("ADMMessage",) . toJSON) _pinpointCampaignMessageConfigurationADMMessage+    , fmap (("APNSMessage",) . toJSON) _pinpointCampaignMessageConfigurationAPNSMessage+    , fmap (("BaiduMessage",) . toJSON) _pinpointCampaignMessageConfigurationBaiduMessage+    , fmap (("DefaultMessage",) . toJSON) _pinpointCampaignMessageConfigurationDefaultMessage+    , fmap (("EmailMessage",) . toJSON) _pinpointCampaignMessageConfigurationEmailMessage+    , fmap (("GCMMessage",) . toJSON) _pinpointCampaignMessageConfigurationGCMMessage+    , fmap (("SMSMessage",) . toJSON) _pinpointCampaignMessageConfigurationSMSMessage+    ]++-- | Constructor for 'PinpointCampaignMessageConfiguration' containing+-- required fields as arguments.+pinpointCampaignMessageConfiguration+  :: PinpointCampaignMessageConfiguration+pinpointCampaignMessageConfiguration  =+  PinpointCampaignMessageConfiguration+  { _pinpointCampaignMessageConfigurationADMMessage = Nothing+  , _pinpointCampaignMessageConfigurationAPNSMessage = Nothing+  , _pinpointCampaignMessageConfigurationBaiduMessage = Nothing+  , _pinpointCampaignMessageConfigurationDefaultMessage = Nothing+  , _pinpointCampaignMessageConfigurationEmailMessage = Nothing+  , _pinpointCampaignMessageConfigurationGCMMessage = Nothing+  , _pinpointCampaignMessageConfigurationSMSMessage = Nothing+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-pinpoint-campaign-messageconfiguration.html#cfn-pinpoint-campaign-messageconfiguration-admmessage+pcmcADMMessage :: Lens' PinpointCampaignMessageConfiguration (Maybe PinpointCampaignMessage)+pcmcADMMessage = lens _pinpointCampaignMessageConfigurationADMMessage (\s a -> s { _pinpointCampaignMessageConfigurationADMMessage = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-pinpoint-campaign-messageconfiguration.html#cfn-pinpoint-campaign-messageconfiguration-apnsmessage+pcmcAPNSMessage :: Lens' PinpointCampaignMessageConfiguration (Maybe PinpointCampaignMessage)+pcmcAPNSMessage = lens _pinpointCampaignMessageConfigurationAPNSMessage (\s a -> s { _pinpointCampaignMessageConfigurationAPNSMessage = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-pinpoint-campaign-messageconfiguration.html#cfn-pinpoint-campaign-messageconfiguration-baidumessage+pcmcBaiduMessage :: Lens' PinpointCampaignMessageConfiguration (Maybe PinpointCampaignMessage)+pcmcBaiduMessage = lens _pinpointCampaignMessageConfigurationBaiduMessage (\s a -> s { _pinpointCampaignMessageConfigurationBaiduMessage = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-pinpoint-campaign-messageconfiguration.html#cfn-pinpoint-campaign-messageconfiguration-defaultmessage+pcmcDefaultMessage :: Lens' PinpointCampaignMessageConfiguration (Maybe PinpointCampaignMessage)+pcmcDefaultMessage = lens _pinpointCampaignMessageConfigurationDefaultMessage (\s a -> s { _pinpointCampaignMessageConfigurationDefaultMessage = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-pinpoint-campaign-messageconfiguration.html#cfn-pinpoint-campaign-messageconfiguration-emailmessage+pcmcEmailMessage :: Lens' PinpointCampaignMessageConfiguration (Maybe PinpointCampaignCampaignEmailMessage)+pcmcEmailMessage = lens _pinpointCampaignMessageConfigurationEmailMessage (\s a -> s { _pinpointCampaignMessageConfigurationEmailMessage = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-pinpoint-campaign-messageconfiguration.html#cfn-pinpoint-campaign-messageconfiguration-gcmmessage+pcmcGCMMessage :: Lens' PinpointCampaignMessageConfiguration (Maybe PinpointCampaignMessage)+pcmcGCMMessage = lens _pinpointCampaignMessageConfigurationGCMMessage (\s a -> s { _pinpointCampaignMessageConfigurationGCMMessage = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-pinpoint-campaign-messageconfiguration.html#cfn-pinpoint-campaign-messageconfiguration-smsmessage+pcmcSMSMessage :: Lens' PinpointCampaignMessageConfiguration (Maybe PinpointCampaignCampaignSmsMessage)+pcmcSMSMessage = lens _pinpointCampaignMessageConfigurationSMSMessage (\s a -> s { _pinpointCampaignMessageConfigurationSMSMessage = a })
+ library-gen/Stratosphere/ResourceProperties/PinpointCampaignMetricDimension.hs view
@@ -0,0 +1,45 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-pinpoint-campaign-metricdimension.html++module Stratosphere.ResourceProperties.PinpointCampaignMetricDimension where++import Stratosphere.ResourceImports+++-- | Full data type definition for PinpointCampaignMetricDimension. See+-- 'pinpointCampaignMetricDimension' for a more convenient constructor.+data PinpointCampaignMetricDimension =+  PinpointCampaignMetricDimension+  { _pinpointCampaignMetricDimensionComparisonOperator :: Maybe (Val Text)+  , _pinpointCampaignMetricDimensionValue :: Maybe (Val Double)+  } deriving (Show, Eq)++instance ToJSON PinpointCampaignMetricDimension where+  toJSON PinpointCampaignMetricDimension{..} =+    object $+    catMaybes+    [ fmap (("ComparisonOperator",) . toJSON) _pinpointCampaignMetricDimensionComparisonOperator+    , fmap (("Value",) . toJSON) _pinpointCampaignMetricDimensionValue+    ]++-- | Constructor for 'PinpointCampaignMetricDimension' containing required+-- fields as arguments.+pinpointCampaignMetricDimension+  :: PinpointCampaignMetricDimension+pinpointCampaignMetricDimension  =+  PinpointCampaignMetricDimension+  { _pinpointCampaignMetricDimensionComparisonOperator = Nothing+  , _pinpointCampaignMetricDimensionValue = Nothing+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-pinpoint-campaign-metricdimension.html#cfn-pinpoint-campaign-metricdimension-comparisonoperator+pcmdComparisonOperator :: Lens' PinpointCampaignMetricDimension (Maybe (Val Text))+pcmdComparisonOperator = lens _pinpointCampaignMetricDimensionComparisonOperator (\s a -> s { _pinpointCampaignMetricDimensionComparisonOperator = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-pinpoint-campaign-metricdimension.html#cfn-pinpoint-campaign-metricdimension-value+pcmdValue :: Lens' PinpointCampaignMetricDimension (Maybe (Val Double))+pcmdValue = lens _pinpointCampaignMetricDimensionValue (\s a -> s { _pinpointCampaignMetricDimensionValue = a })
+ library-gen/Stratosphere/ResourceProperties/PinpointCampaignQuietTime.hs view
@@ -0,0 +1,47 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-pinpoint-campaign-schedule-quiettime.html++module Stratosphere.ResourceProperties.PinpointCampaignQuietTime where++import Stratosphere.ResourceImports+++-- | Full data type definition for PinpointCampaignQuietTime. See+-- 'pinpointCampaignQuietTime' for a more convenient constructor.+data PinpointCampaignQuietTime =+  PinpointCampaignQuietTime+  { _pinpointCampaignQuietTimeEnd :: Val Text+  , _pinpointCampaignQuietTimeStart :: Val Text+  } deriving (Show, Eq)++instance ToJSON PinpointCampaignQuietTime where+  toJSON PinpointCampaignQuietTime{..} =+    object $+    catMaybes+    [ (Just . ("End",) . toJSON) _pinpointCampaignQuietTimeEnd+    , (Just . ("Start",) . toJSON) _pinpointCampaignQuietTimeStart+    ]++-- | Constructor for 'PinpointCampaignQuietTime' containing required fields as+-- arguments.+pinpointCampaignQuietTime+  :: Val Text -- ^ 'pcqtEnd'+  -> Val Text -- ^ 'pcqtStart'+  -> PinpointCampaignQuietTime+pinpointCampaignQuietTime endarg startarg =+  PinpointCampaignQuietTime+  { _pinpointCampaignQuietTimeEnd = endarg+  , _pinpointCampaignQuietTimeStart = startarg+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-pinpoint-campaign-schedule-quiettime.html#cfn-pinpoint-campaign-schedule-quiettime-end+pcqtEnd :: Lens' PinpointCampaignQuietTime (Val Text)+pcqtEnd = lens _pinpointCampaignQuietTimeEnd (\s a -> s { _pinpointCampaignQuietTimeEnd = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-pinpoint-campaign-schedule-quiettime.html#cfn-pinpoint-campaign-schedule-quiettime-start+pcqtStart :: Lens' PinpointCampaignQuietTime (Val Text)+pcqtStart = lens _pinpointCampaignQuietTimeStart (\s a -> s { _pinpointCampaignQuietTimeStart = a })
+ library-gen/Stratosphere/ResourceProperties/PinpointCampaignSchedule.hs view
@@ -0,0 +1,81 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-pinpoint-campaign-schedule.html++module Stratosphere.ResourceProperties.PinpointCampaignSchedule where++import Stratosphere.ResourceImports+import Stratosphere.ResourceProperties.PinpointCampaignCampaignEventFilter+import Stratosphere.ResourceProperties.PinpointCampaignQuietTime++-- | Full data type definition for PinpointCampaignSchedule. See+-- 'pinpointCampaignSchedule' for a more convenient constructor.+data PinpointCampaignSchedule =+  PinpointCampaignSchedule+  { _pinpointCampaignScheduleEndTime :: Maybe (Val Text)+  , _pinpointCampaignScheduleEventFilter :: Maybe PinpointCampaignCampaignEventFilter+  , _pinpointCampaignScheduleFrequency :: Maybe (Val Text)+  , _pinpointCampaignScheduleIsLocalTime :: Maybe (Val Bool)+  , _pinpointCampaignScheduleQuietTime :: Maybe PinpointCampaignQuietTime+  , _pinpointCampaignScheduleStartTime :: Maybe (Val Text)+  , _pinpointCampaignScheduleTimeZone :: Maybe (Val Text)+  } deriving (Show, Eq)++instance ToJSON PinpointCampaignSchedule where+  toJSON PinpointCampaignSchedule{..} =+    object $+    catMaybes+    [ fmap (("EndTime",) . toJSON) _pinpointCampaignScheduleEndTime+    , fmap (("EventFilter",) . toJSON) _pinpointCampaignScheduleEventFilter+    , fmap (("Frequency",) . toJSON) _pinpointCampaignScheduleFrequency+    , fmap (("IsLocalTime",) . toJSON) _pinpointCampaignScheduleIsLocalTime+    , fmap (("QuietTime",) . toJSON) _pinpointCampaignScheduleQuietTime+    , fmap (("StartTime",) . toJSON) _pinpointCampaignScheduleStartTime+    , fmap (("TimeZone",) . toJSON) _pinpointCampaignScheduleTimeZone+    ]++-- | Constructor for 'PinpointCampaignSchedule' containing required fields as+-- arguments.+pinpointCampaignSchedule+  :: PinpointCampaignSchedule+pinpointCampaignSchedule  =+  PinpointCampaignSchedule+  { _pinpointCampaignScheduleEndTime = Nothing+  , _pinpointCampaignScheduleEventFilter = Nothing+  , _pinpointCampaignScheduleFrequency = Nothing+  , _pinpointCampaignScheduleIsLocalTime = Nothing+  , _pinpointCampaignScheduleQuietTime = Nothing+  , _pinpointCampaignScheduleStartTime = Nothing+  , _pinpointCampaignScheduleTimeZone = Nothing+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-pinpoint-campaign-schedule.html#cfn-pinpoint-campaign-schedule-endtime+pcsEndTime :: Lens' PinpointCampaignSchedule (Maybe (Val Text))+pcsEndTime = lens _pinpointCampaignScheduleEndTime (\s a -> s { _pinpointCampaignScheduleEndTime = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-pinpoint-campaign-schedule.html#cfn-pinpoint-campaign-schedule-eventfilter+pcsEventFilter :: Lens' PinpointCampaignSchedule (Maybe PinpointCampaignCampaignEventFilter)+pcsEventFilter = lens _pinpointCampaignScheduleEventFilter (\s a -> s { _pinpointCampaignScheduleEventFilter = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-pinpoint-campaign-schedule.html#cfn-pinpoint-campaign-schedule-frequency+pcsFrequency :: Lens' PinpointCampaignSchedule (Maybe (Val Text))+pcsFrequency = lens _pinpointCampaignScheduleFrequency (\s a -> s { _pinpointCampaignScheduleFrequency = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-pinpoint-campaign-schedule.html#cfn-pinpoint-campaign-schedule-islocaltime+pcsIsLocalTime :: Lens' PinpointCampaignSchedule (Maybe (Val Bool))+pcsIsLocalTime = lens _pinpointCampaignScheduleIsLocalTime (\s a -> s { _pinpointCampaignScheduleIsLocalTime = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-pinpoint-campaign-schedule.html#cfn-pinpoint-campaign-schedule-quiettime+pcsQuietTime :: Lens' PinpointCampaignSchedule (Maybe PinpointCampaignQuietTime)+pcsQuietTime = lens _pinpointCampaignScheduleQuietTime (\s a -> s { _pinpointCampaignScheduleQuietTime = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-pinpoint-campaign-schedule.html#cfn-pinpoint-campaign-schedule-starttime+pcsStartTime :: Lens' PinpointCampaignSchedule (Maybe (Val Text))+pcsStartTime = lens _pinpointCampaignScheduleStartTime (\s a -> s { _pinpointCampaignScheduleStartTime = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-pinpoint-campaign-schedule.html#cfn-pinpoint-campaign-schedule-timezone+pcsTimeZone :: Lens' PinpointCampaignSchedule (Maybe (Val Text))+pcsTimeZone = lens _pinpointCampaignScheduleTimeZone (\s a -> s { _pinpointCampaignScheduleTimeZone = a })
+ library-gen/Stratosphere/ResourceProperties/PinpointCampaignSetDimension.hs view
@@ -0,0 +1,45 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-pinpoint-campaign-setdimension.html++module Stratosphere.ResourceProperties.PinpointCampaignSetDimension where++import Stratosphere.ResourceImports+++-- | Full data type definition for PinpointCampaignSetDimension. See+-- 'pinpointCampaignSetDimension' for a more convenient constructor.+data PinpointCampaignSetDimension =+  PinpointCampaignSetDimension+  { _pinpointCampaignSetDimensionDimensionType :: Maybe (Val Text)+  , _pinpointCampaignSetDimensionValues :: Maybe (ValList Text)+  } deriving (Show, Eq)++instance ToJSON PinpointCampaignSetDimension where+  toJSON PinpointCampaignSetDimension{..} =+    object $+    catMaybes+    [ fmap (("DimensionType",) . toJSON) _pinpointCampaignSetDimensionDimensionType+    , fmap (("Values",) . toJSON) _pinpointCampaignSetDimensionValues+    ]++-- | Constructor for 'PinpointCampaignSetDimension' containing required fields+-- as arguments.+pinpointCampaignSetDimension+  :: PinpointCampaignSetDimension+pinpointCampaignSetDimension  =+  PinpointCampaignSetDimension+  { _pinpointCampaignSetDimensionDimensionType = Nothing+  , _pinpointCampaignSetDimensionValues = Nothing+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-pinpoint-campaign-setdimension.html#cfn-pinpoint-campaign-setdimension-dimensiontype+pcsdDimensionType :: Lens' PinpointCampaignSetDimension (Maybe (Val Text))+pcsdDimensionType = lens _pinpointCampaignSetDimensionDimensionType (\s a -> s { _pinpointCampaignSetDimensionDimensionType = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-pinpoint-campaign-setdimension.html#cfn-pinpoint-campaign-setdimension-values+pcsdValues :: Lens' PinpointCampaignSetDimension (Maybe (ValList Text))+pcsdValues = lens _pinpointCampaignSetDimensionValues (\s a -> s { _pinpointCampaignSetDimensionValues = a })
+ library-gen/Stratosphere/ResourceProperties/PinpointCampaignWriteTreatmentResource.hs view
@@ -0,0 +1,68 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-pinpoint-campaign-writetreatmentresource.html++module Stratosphere.ResourceProperties.PinpointCampaignWriteTreatmentResource where++import Stratosphere.ResourceImports+import Stratosphere.ResourceProperties.PinpointCampaignMessageConfiguration+import Stratosphere.ResourceProperties.PinpointCampaignSchedule++-- | Full data type definition for PinpointCampaignWriteTreatmentResource. See+-- 'pinpointCampaignWriteTreatmentResource' for a more convenient+-- constructor.+data PinpointCampaignWriteTreatmentResource =+  PinpointCampaignWriteTreatmentResource+  { _pinpointCampaignWriteTreatmentResourceMessageConfiguration :: Maybe PinpointCampaignMessageConfiguration+  , _pinpointCampaignWriteTreatmentResourceSchedule :: Maybe PinpointCampaignSchedule+  , _pinpointCampaignWriteTreatmentResourceSizePercent :: Maybe (Val Integer)+  , _pinpointCampaignWriteTreatmentResourceTreatmentDescription :: Maybe (Val Text)+  , _pinpointCampaignWriteTreatmentResourceTreatmentName :: Maybe (Val Text)+  } deriving (Show, Eq)++instance ToJSON PinpointCampaignWriteTreatmentResource where+  toJSON PinpointCampaignWriteTreatmentResource{..} =+    object $+    catMaybes+    [ fmap (("MessageConfiguration",) . toJSON) _pinpointCampaignWriteTreatmentResourceMessageConfiguration+    , fmap (("Schedule",) . toJSON) _pinpointCampaignWriteTreatmentResourceSchedule+    , fmap (("SizePercent",) . toJSON) _pinpointCampaignWriteTreatmentResourceSizePercent+    , fmap (("TreatmentDescription",) . toJSON) _pinpointCampaignWriteTreatmentResourceTreatmentDescription+    , fmap (("TreatmentName",) . toJSON) _pinpointCampaignWriteTreatmentResourceTreatmentName+    ]++-- | Constructor for 'PinpointCampaignWriteTreatmentResource' containing+-- required fields as arguments.+pinpointCampaignWriteTreatmentResource+  :: PinpointCampaignWriteTreatmentResource+pinpointCampaignWriteTreatmentResource  =+  PinpointCampaignWriteTreatmentResource+  { _pinpointCampaignWriteTreatmentResourceMessageConfiguration = Nothing+  , _pinpointCampaignWriteTreatmentResourceSchedule = Nothing+  , _pinpointCampaignWriteTreatmentResourceSizePercent = Nothing+  , _pinpointCampaignWriteTreatmentResourceTreatmentDescription = Nothing+  , _pinpointCampaignWriteTreatmentResourceTreatmentName = Nothing+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-pinpoint-campaign-writetreatmentresource.html#cfn-pinpoint-campaign-writetreatmentresource-messageconfiguration+pcwtrMessageConfiguration :: Lens' PinpointCampaignWriteTreatmentResource (Maybe PinpointCampaignMessageConfiguration)+pcwtrMessageConfiguration = lens _pinpointCampaignWriteTreatmentResourceMessageConfiguration (\s a -> s { _pinpointCampaignWriteTreatmentResourceMessageConfiguration = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-pinpoint-campaign-writetreatmentresource.html#cfn-pinpoint-campaign-writetreatmentresource-schedule+pcwtrSchedule :: Lens' PinpointCampaignWriteTreatmentResource (Maybe PinpointCampaignSchedule)+pcwtrSchedule = lens _pinpointCampaignWriteTreatmentResourceSchedule (\s a -> s { _pinpointCampaignWriteTreatmentResourceSchedule = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-pinpoint-campaign-writetreatmentresource.html#cfn-pinpoint-campaign-writetreatmentresource-sizepercent+pcwtrSizePercent :: Lens' PinpointCampaignWriteTreatmentResource (Maybe (Val Integer))+pcwtrSizePercent = lens _pinpointCampaignWriteTreatmentResourceSizePercent (\s a -> s { _pinpointCampaignWriteTreatmentResourceSizePercent = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-pinpoint-campaign-writetreatmentresource.html#cfn-pinpoint-campaign-writetreatmentresource-treatmentdescription+pcwtrTreatmentDescription :: Lens' PinpointCampaignWriteTreatmentResource (Maybe (Val Text))+pcwtrTreatmentDescription = lens _pinpointCampaignWriteTreatmentResourceTreatmentDescription (\s a -> s { _pinpointCampaignWriteTreatmentResourceTreatmentDescription = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-pinpoint-campaign-writetreatmentresource.html#cfn-pinpoint-campaign-writetreatmentresource-treatmentname+pcwtrTreatmentName :: Lens' PinpointCampaignWriteTreatmentResource (Maybe (Val Text))+pcwtrTreatmentName = lens _pinpointCampaignWriteTreatmentResourceTreatmentName (\s a -> s { _pinpointCampaignWriteTreatmentResourceTreatmentName = a })
+ library-gen/Stratosphere/ResourceProperties/PinpointSegmentAttributeDimension.hs view
@@ -0,0 +1,45 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-pinpoint-segment-attributedimension.html++module Stratosphere.ResourceProperties.PinpointSegmentAttributeDimension where++import Stratosphere.ResourceImports+++-- | Full data type definition for PinpointSegmentAttributeDimension. See+-- 'pinpointSegmentAttributeDimension' for a more convenient constructor.+data PinpointSegmentAttributeDimension =+  PinpointSegmentAttributeDimension+  { _pinpointSegmentAttributeDimensionAttributeType :: Maybe (Val Text)+  , _pinpointSegmentAttributeDimensionValues :: Maybe (ValList Text)+  } deriving (Show, Eq)++instance ToJSON PinpointSegmentAttributeDimension where+  toJSON PinpointSegmentAttributeDimension{..} =+    object $+    catMaybes+    [ fmap (("AttributeType",) . toJSON) _pinpointSegmentAttributeDimensionAttributeType+    , fmap (("Values",) . toJSON) _pinpointSegmentAttributeDimensionValues+    ]++-- | Constructor for 'PinpointSegmentAttributeDimension' containing required+-- fields as arguments.+pinpointSegmentAttributeDimension+  :: PinpointSegmentAttributeDimension+pinpointSegmentAttributeDimension  =+  PinpointSegmentAttributeDimension+  { _pinpointSegmentAttributeDimensionAttributeType = Nothing+  , _pinpointSegmentAttributeDimensionValues = Nothing+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-pinpoint-segment-attributedimension.html#cfn-pinpoint-segment-attributedimension-attributetype+psadAttributeType :: Lens' PinpointSegmentAttributeDimension (Maybe (Val Text))+psadAttributeType = lens _pinpointSegmentAttributeDimensionAttributeType (\s a -> s { _pinpointSegmentAttributeDimensionAttributeType = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-pinpoint-segment-attributedimension.html#cfn-pinpoint-segment-attributedimension-values+psadValues :: Lens' PinpointSegmentAttributeDimension (Maybe (ValList Text))+psadValues = lens _pinpointSegmentAttributeDimensionValues (\s a -> s { _pinpointSegmentAttributeDimensionValues = a })
+ library-gen/Stratosphere/ResourceProperties/PinpointSegmentBehavior.hs view
@@ -0,0 +1,38 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-pinpoint-segment-segmentdimensions-behavior.html++module Stratosphere.ResourceProperties.PinpointSegmentBehavior where++import Stratosphere.ResourceImports+import Stratosphere.ResourceProperties.PinpointSegmentRecency++-- | Full data type definition for PinpointSegmentBehavior. See+-- 'pinpointSegmentBehavior' for a more convenient constructor.+data PinpointSegmentBehavior =+  PinpointSegmentBehavior+  { _pinpointSegmentBehaviorRecency :: Maybe PinpointSegmentRecency+  } deriving (Show, Eq)++instance ToJSON PinpointSegmentBehavior where+  toJSON PinpointSegmentBehavior{..} =+    object $+    catMaybes+    [ fmap (("Recency",) . toJSON) _pinpointSegmentBehaviorRecency+    ]++-- | Constructor for 'PinpointSegmentBehavior' containing required fields as+-- arguments.+pinpointSegmentBehavior+  :: PinpointSegmentBehavior+pinpointSegmentBehavior  =+  PinpointSegmentBehavior+  { _pinpointSegmentBehaviorRecency = Nothing+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-pinpoint-segment-segmentdimensions-behavior.html#cfn-pinpoint-segment-segmentdimensions-behavior-recency+psbRecency :: Lens' PinpointSegmentBehavior (Maybe PinpointSegmentRecency)+psbRecency = lens _pinpointSegmentBehaviorRecency (\s a -> s { _pinpointSegmentBehaviorRecency = a })
+ library-gen/Stratosphere/ResourceProperties/PinpointSegmentCoordinates.hs view
@@ -0,0 +1,47 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-pinpoint-segment-segmentdimensions-location-gpspoint-coordinates.html++module Stratosphere.ResourceProperties.PinpointSegmentCoordinates where++import Stratosphere.ResourceImports+++-- | Full data type definition for PinpointSegmentCoordinates. See+-- 'pinpointSegmentCoordinates' for a more convenient constructor.+data PinpointSegmentCoordinates =+  PinpointSegmentCoordinates+  { _pinpointSegmentCoordinatesLatitude :: Val Double+  , _pinpointSegmentCoordinatesLongitude :: Val Double+  } deriving (Show, Eq)++instance ToJSON PinpointSegmentCoordinates where+  toJSON PinpointSegmentCoordinates{..} =+    object $+    catMaybes+    [ (Just . ("Latitude",) . toJSON) _pinpointSegmentCoordinatesLatitude+    , (Just . ("Longitude",) . toJSON) _pinpointSegmentCoordinatesLongitude+    ]++-- | Constructor for 'PinpointSegmentCoordinates' containing required fields+-- as arguments.+pinpointSegmentCoordinates+  :: Val Double -- ^ 'pscLatitude'+  -> Val Double -- ^ 'pscLongitude'+  -> PinpointSegmentCoordinates+pinpointSegmentCoordinates latitudearg longitudearg =+  PinpointSegmentCoordinates+  { _pinpointSegmentCoordinatesLatitude = latitudearg+  , _pinpointSegmentCoordinatesLongitude = longitudearg+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-pinpoint-segment-segmentdimensions-location-gpspoint-coordinates.html#cfn-pinpoint-segment-segmentdimensions-location-gpspoint-coordinates-latitude+pscLatitude :: Lens' PinpointSegmentCoordinates (Val Double)+pscLatitude = lens _pinpointSegmentCoordinatesLatitude (\s a -> s { _pinpointSegmentCoordinatesLatitude = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-pinpoint-segment-segmentdimensions-location-gpspoint-coordinates.html#cfn-pinpoint-segment-segmentdimensions-location-gpspoint-coordinates-longitude+pscLongitude :: Lens' PinpointSegmentCoordinates (Val Double)+pscLongitude = lens _pinpointSegmentCoordinatesLongitude (\s a -> s { _pinpointSegmentCoordinatesLongitude = a })
+ library-gen/Stratosphere/ResourceProperties/PinpointSegmentDemographic.hs view
@@ -0,0 +1,73 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-pinpoint-segment-segmentdimensions-demographic.html++module Stratosphere.ResourceProperties.PinpointSegmentDemographic where++import Stratosphere.ResourceImports+import Stratosphere.ResourceProperties.PinpointSegmentSetDimension++-- | Full data type definition for PinpointSegmentDemographic. See+-- 'pinpointSegmentDemographic' for a more convenient constructor.+data PinpointSegmentDemographic =+  PinpointSegmentDemographic+  { _pinpointSegmentDemographicAppVersion :: Maybe PinpointSegmentSetDimension+  , _pinpointSegmentDemographicChannel :: Maybe PinpointSegmentSetDimension+  , _pinpointSegmentDemographicDeviceType :: Maybe PinpointSegmentSetDimension+  , _pinpointSegmentDemographicMake :: Maybe PinpointSegmentSetDimension+  , _pinpointSegmentDemographicModel :: Maybe PinpointSegmentSetDimension+  , _pinpointSegmentDemographicPlatform :: Maybe PinpointSegmentSetDimension+  } deriving (Show, Eq)++instance ToJSON PinpointSegmentDemographic where+  toJSON PinpointSegmentDemographic{..} =+    object $+    catMaybes+    [ fmap (("AppVersion",) . toJSON) _pinpointSegmentDemographicAppVersion+    , fmap (("Channel",) . toJSON) _pinpointSegmentDemographicChannel+    , fmap (("DeviceType",) . toJSON) _pinpointSegmentDemographicDeviceType+    , fmap (("Make",) . toJSON) _pinpointSegmentDemographicMake+    , fmap (("Model",) . toJSON) _pinpointSegmentDemographicModel+    , fmap (("Platform",) . toJSON) _pinpointSegmentDemographicPlatform+    ]++-- | Constructor for 'PinpointSegmentDemographic' containing required fields+-- as arguments.+pinpointSegmentDemographic+  :: PinpointSegmentDemographic+pinpointSegmentDemographic  =+  PinpointSegmentDemographic+  { _pinpointSegmentDemographicAppVersion = Nothing+  , _pinpointSegmentDemographicChannel = Nothing+  , _pinpointSegmentDemographicDeviceType = Nothing+  , _pinpointSegmentDemographicMake = Nothing+  , _pinpointSegmentDemographicModel = Nothing+  , _pinpointSegmentDemographicPlatform = Nothing+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-pinpoint-segment-segmentdimensions-demographic.html#cfn-pinpoint-segment-segmentdimensions-demographic-appversion+psdAppVersion :: Lens' PinpointSegmentDemographic (Maybe PinpointSegmentSetDimension)+psdAppVersion = lens _pinpointSegmentDemographicAppVersion (\s a -> s { _pinpointSegmentDemographicAppVersion = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-pinpoint-segment-segmentdimensions-demographic.html#cfn-pinpoint-segment-segmentdimensions-demographic-channel+psdChannel :: Lens' PinpointSegmentDemographic (Maybe PinpointSegmentSetDimension)+psdChannel = lens _pinpointSegmentDemographicChannel (\s a -> s { _pinpointSegmentDemographicChannel = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-pinpoint-segment-segmentdimensions-demographic.html#cfn-pinpoint-segment-segmentdimensions-demographic-devicetype+psdDeviceType :: Lens' PinpointSegmentDemographic (Maybe PinpointSegmentSetDimension)+psdDeviceType = lens _pinpointSegmentDemographicDeviceType (\s a -> s { _pinpointSegmentDemographicDeviceType = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-pinpoint-segment-segmentdimensions-demographic.html#cfn-pinpoint-segment-segmentdimensions-demographic-make+psdMake :: Lens' PinpointSegmentDemographic (Maybe PinpointSegmentSetDimension)+psdMake = lens _pinpointSegmentDemographicMake (\s a -> s { _pinpointSegmentDemographicMake = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-pinpoint-segment-segmentdimensions-demographic.html#cfn-pinpoint-segment-segmentdimensions-demographic-model+psdModel :: Lens' PinpointSegmentDemographic (Maybe PinpointSegmentSetDimension)+psdModel = lens _pinpointSegmentDemographicModel (\s a -> s { _pinpointSegmentDemographicModel = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-pinpoint-segment-segmentdimensions-demographic.html#cfn-pinpoint-segment-segmentdimensions-demographic-platform+psdPlatform :: Lens' PinpointSegmentDemographic (Maybe PinpointSegmentSetDimension)+psdPlatform = lens _pinpointSegmentDemographicPlatform (\s a -> s { _pinpointSegmentDemographicPlatform = a })
+ library-gen/Stratosphere/ResourceProperties/PinpointSegmentGPSPoint.hs view
@@ -0,0 +1,47 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-pinpoint-segment-segmentdimensions-location-gpspoint.html++module Stratosphere.ResourceProperties.PinpointSegmentGPSPoint where++import Stratosphere.ResourceImports+import Stratosphere.ResourceProperties.PinpointSegmentCoordinates++-- | Full data type definition for PinpointSegmentGPSPoint. See+-- 'pinpointSegmentGPSPoint' for a more convenient constructor.+data PinpointSegmentGPSPoint =+  PinpointSegmentGPSPoint+  { _pinpointSegmentGPSPointCoordinates :: PinpointSegmentCoordinates+  , _pinpointSegmentGPSPointRangeInKilometers :: Val Double+  } deriving (Show, Eq)++instance ToJSON PinpointSegmentGPSPoint where+  toJSON PinpointSegmentGPSPoint{..} =+    object $+    catMaybes+    [ (Just . ("Coordinates",) . toJSON) _pinpointSegmentGPSPointCoordinates+    , (Just . ("RangeInKilometers",) . toJSON) _pinpointSegmentGPSPointRangeInKilometers+    ]++-- | Constructor for 'PinpointSegmentGPSPoint' containing required fields as+-- arguments.+pinpointSegmentGPSPoint+  :: PinpointSegmentCoordinates -- ^ 'psgpspCoordinates'+  -> Val Double -- ^ 'psgpspRangeInKilometers'+  -> PinpointSegmentGPSPoint+pinpointSegmentGPSPoint coordinatesarg rangeInKilometersarg =+  PinpointSegmentGPSPoint+  { _pinpointSegmentGPSPointCoordinates = coordinatesarg+  , _pinpointSegmentGPSPointRangeInKilometers = rangeInKilometersarg+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-pinpoint-segment-segmentdimensions-location-gpspoint.html#cfn-pinpoint-segment-segmentdimensions-location-gpspoint-coordinates+psgpspCoordinates :: Lens' PinpointSegmentGPSPoint PinpointSegmentCoordinates+psgpspCoordinates = lens _pinpointSegmentGPSPointCoordinates (\s a -> s { _pinpointSegmentGPSPointCoordinates = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-pinpoint-segment-segmentdimensions-location-gpspoint.html#cfn-pinpoint-segment-segmentdimensions-location-gpspoint-rangeinkilometers+psgpspRangeInKilometers :: Lens' PinpointSegmentGPSPoint (Val Double)+psgpspRangeInKilometers = lens _pinpointSegmentGPSPointRangeInKilometers (\s a -> s { _pinpointSegmentGPSPointRangeInKilometers = a })
+ library-gen/Stratosphere/ResourceProperties/PinpointSegmentGroups.hs view
@@ -0,0 +1,60 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-pinpoint-segment-segmentgroups-groups.html++module Stratosphere.ResourceProperties.PinpointSegmentGroups where++import Stratosphere.ResourceImports+import Stratosphere.ResourceProperties.PinpointSegmentSegmentDimensions+import Stratosphere.ResourceProperties.PinpointSegmentSourceSegments++-- | Full data type definition for PinpointSegmentGroups. See+-- 'pinpointSegmentGroups' for a more convenient constructor.+data PinpointSegmentGroups =+  PinpointSegmentGroups+  { _pinpointSegmentGroupsDimensions :: Maybe [PinpointSegmentSegmentDimensions]+  , _pinpointSegmentGroupsSourceSegments :: Maybe [PinpointSegmentSourceSegments]+  , _pinpointSegmentGroupsSourceType :: Maybe (Val Text)+  , _pinpointSegmentGroupsType :: Maybe (Val Text)+  } deriving (Show, Eq)++instance ToJSON PinpointSegmentGroups where+  toJSON PinpointSegmentGroups{..} =+    object $+    catMaybes+    [ fmap (("Dimensions",) . toJSON) _pinpointSegmentGroupsDimensions+    , fmap (("SourceSegments",) . toJSON) _pinpointSegmentGroupsSourceSegments+    , fmap (("SourceType",) . toJSON) _pinpointSegmentGroupsSourceType+    , fmap (("Type",) . toJSON) _pinpointSegmentGroupsType+    ]++-- | Constructor for 'PinpointSegmentGroups' containing required fields as+-- arguments.+pinpointSegmentGroups+  :: PinpointSegmentGroups+pinpointSegmentGroups  =+  PinpointSegmentGroups+  { _pinpointSegmentGroupsDimensions = Nothing+  , _pinpointSegmentGroupsSourceSegments = Nothing+  , _pinpointSegmentGroupsSourceType = Nothing+  , _pinpointSegmentGroupsType = Nothing+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-pinpoint-segment-segmentgroups-groups.html#cfn-pinpoint-segment-segmentgroups-groups-dimensions+psgDimensions :: Lens' PinpointSegmentGroups (Maybe [PinpointSegmentSegmentDimensions])+psgDimensions = lens _pinpointSegmentGroupsDimensions (\s a -> s { _pinpointSegmentGroupsDimensions = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-pinpoint-segment-segmentgroups-groups.html#cfn-pinpoint-segment-segmentgroups-groups-sourcesegments+psgSourceSegments :: Lens' PinpointSegmentGroups (Maybe [PinpointSegmentSourceSegments])+psgSourceSegments = lens _pinpointSegmentGroupsSourceSegments (\s a -> s { _pinpointSegmentGroupsSourceSegments = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-pinpoint-segment-segmentgroups-groups.html#cfn-pinpoint-segment-segmentgroups-groups-sourcetype+psgSourceType :: Lens' PinpointSegmentGroups (Maybe (Val Text))+psgSourceType = lens _pinpointSegmentGroupsSourceType (\s a -> s { _pinpointSegmentGroupsSourceType = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-pinpoint-segment-segmentgroups-groups.html#cfn-pinpoint-segment-segmentgroups-groups-type+psgType :: Lens' PinpointSegmentGroups (Maybe (Val Text))+psgType = lens _pinpointSegmentGroupsType (\s a -> s { _pinpointSegmentGroupsType = a })
+ library-gen/Stratosphere/ResourceProperties/PinpointSegmentLocation.hs view
@@ -0,0 +1,46 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-pinpoint-segment-segmentdimensions-location.html++module Stratosphere.ResourceProperties.PinpointSegmentLocation where++import Stratosphere.ResourceImports+import Stratosphere.ResourceProperties.PinpointSegmentSetDimension+import Stratosphere.ResourceProperties.PinpointSegmentGPSPoint++-- | Full data type definition for PinpointSegmentLocation. See+-- 'pinpointSegmentLocation' for a more convenient constructor.+data PinpointSegmentLocation =+  PinpointSegmentLocation+  { _pinpointSegmentLocationCountry :: Maybe PinpointSegmentSetDimension+  , _pinpointSegmentLocationGPSPoint :: Maybe PinpointSegmentGPSPoint+  } deriving (Show, Eq)++instance ToJSON PinpointSegmentLocation where+  toJSON PinpointSegmentLocation{..} =+    object $+    catMaybes+    [ fmap (("Country",) . toJSON) _pinpointSegmentLocationCountry+    , fmap (("GPSPoint",) . toJSON) _pinpointSegmentLocationGPSPoint+    ]++-- | Constructor for 'PinpointSegmentLocation' containing required fields as+-- arguments.+pinpointSegmentLocation+  :: PinpointSegmentLocation+pinpointSegmentLocation  =+  PinpointSegmentLocation+  { _pinpointSegmentLocationCountry = Nothing+  , _pinpointSegmentLocationGPSPoint = Nothing+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-pinpoint-segment-segmentdimensions-location.html#cfn-pinpoint-segment-segmentdimensions-location-country+pslCountry :: Lens' PinpointSegmentLocation (Maybe PinpointSegmentSetDimension)+pslCountry = lens _pinpointSegmentLocationCountry (\s a -> s { _pinpointSegmentLocationCountry = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-pinpoint-segment-segmentdimensions-location.html#cfn-pinpoint-segment-segmentdimensions-location-gpspoint+pslGPSPoint :: Lens' PinpointSegmentLocation (Maybe PinpointSegmentGPSPoint)+pslGPSPoint = lens _pinpointSegmentLocationGPSPoint (\s a -> s { _pinpointSegmentLocationGPSPoint = a })
+ library-gen/Stratosphere/ResourceProperties/PinpointSegmentRecency.hs view
@@ -0,0 +1,47 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-pinpoint-segment-segmentdimensions-behavior-recency.html++module Stratosphere.ResourceProperties.PinpointSegmentRecency where++import Stratosphere.ResourceImports+++-- | Full data type definition for PinpointSegmentRecency. See+-- 'pinpointSegmentRecency' for a more convenient constructor.+data PinpointSegmentRecency =+  PinpointSegmentRecency+  { _pinpointSegmentRecencyDuration :: Val Text+  , _pinpointSegmentRecencyRecencyType :: Val Text+  } deriving (Show, Eq)++instance ToJSON PinpointSegmentRecency where+  toJSON PinpointSegmentRecency{..} =+    object $+    catMaybes+    [ (Just . ("Duration",) . toJSON) _pinpointSegmentRecencyDuration+    , (Just . ("RecencyType",) . toJSON) _pinpointSegmentRecencyRecencyType+    ]++-- | Constructor for 'PinpointSegmentRecency' containing required fields as+-- arguments.+pinpointSegmentRecency+  :: Val Text -- ^ 'psrDuration'+  -> Val Text -- ^ 'psrRecencyType'+  -> PinpointSegmentRecency+pinpointSegmentRecency durationarg recencyTypearg =+  PinpointSegmentRecency+  { _pinpointSegmentRecencyDuration = durationarg+  , _pinpointSegmentRecencyRecencyType = recencyTypearg+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-pinpoint-segment-segmentdimensions-behavior-recency.html#cfn-pinpoint-segment-segmentdimensions-behavior-recency-duration+psrDuration :: Lens' PinpointSegmentRecency (Val Text)+psrDuration = lens _pinpointSegmentRecencyDuration (\s a -> s { _pinpointSegmentRecencyDuration = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-pinpoint-segment-segmentdimensions-behavior-recency.html#cfn-pinpoint-segment-segmentdimensions-behavior-recency-recencytype+psrRecencyType :: Lens' PinpointSegmentRecency (Val Text)+psrRecencyType = lens _pinpointSegmentRecencyRecencyType (\s a -> s { _pinpointSegmentRecencyRecencyType = a })
+ library-gen/Stratosphere/ResourceProperties/PinpointSegmentSegmentDimensions.hs view
@@ -0,0 +1,75 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-pinpoint-segment-segmentdimensions.html++module Stratosphere.ResourceProperties.PinpointSegmentSegmentDimensions where++import Stratosphere.ResourceImports+import Stratosphere.ResourceProperties.PinpointSegmentBehavior+import Stratosphere.ResourceProperties.PinpointSegmentDemographic+import Stratosphere.ResourceProperties.PinpointSegmentLocation++-- | Full data type definition for PinpointSegmentSegmentDimensions. See+-- 'pinpointSegmentSegmentDimensions' for a more convenient constructor.+data PinpointSegmentSegmentDimensions =+  PinpointSegmentSegmentDimensions+  { _pinpointSegmentSegmentDimensionsAttributes :: Maybe Object+  , _pinpointSegmentSegmentDimensionsBehavior :: Maybe PinpointSegmentBehavior+  , _pinpointSegmentSegmentDimensionsDemographic :: Maybe PinpointSegmentDemographic+  , _pinpointSegmentSegmentDimensionsLocation :: Maybe PinpointSegmentLocation+  , _pinpointSegmentSegmentDimensionsMetrics :: Maybe Object+  , _pinpointSegmentSegmentDimensionsUserAttributes :: Maybe Object+  } deriving (Show, Eq)++instance ToJSON PinpointSegmentSegmentDimensions where+  toJSON PinpointSegmentSegmentDimensions{..} =+    object $+    catMaybes+    [ fmap (("Attributes",) . toJSON) _pinpointSegmentSegmentDimensionsAttributes+    , fmap (("Behavior",) . toJSON) _pinpointSegmentSegmentDimensionsBehavior+    , fmap (("Demographic",) . toJSON) _pinpointSegmentSegmentDimensionsDemographic+    , fmap (("Location",) . toJSON) _pinpointSegmentSegmentDimensionsLocation+    , fmap (("Metrics",) . toJSON) _pinpointSegmentSegmentDimensionsMetrics+    , fmap (("UserAttributes",) . toJSON) _pinpointSegmentSegmentDimensionsUserAttributes+    ]++-- | Constructor for 'PinpointSegmentSegmentDimensions' containing required+-- fields as arguments.+pinpointSegmentSegmentDimensions+  :: PinpointSegmentSegmentDimensions+pinpointSegmentSegmentDimensions  =+  PinpointSegmentSegmentDimensions+  { _pinpointSegmentSegmentDimensionsAttributes = Nothing+  , _pinpointSegmentSegmentDimensionsBehavior = Nothing+  , _pinpointSegmentSegmentDimensionsDemographic = Nothing+  , _pinpointSegmentSegmentDimensionsLocation = Nothing+  , _pinpointSegmentSegmentDimensionsMetrics = Nothing+  , _pinpointSegmentSegmentDimensionsUserAttributes = Nothing+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-pinpoint-segment-segmentdimensions.html#cfn-pinpoint-segment-segmentdimensions-attributes+pssdAttributes :: Lens' PinpointSegmentSegmentDimensions (Maybe Object)+pssdAttributes = lens _pinpointSegmentSegmentDimensionsAttributes (\s a -> s { _pinpointSegmentSegmentDimensionsAttributes = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-pinpoint-segment-segmentdimensions.html#cfn-pinpoint-segment-segmentdimensions-behavior+pssdBehavior :: Lens' PinpointSegmentSegmentDimensions (Maybe PinpointSegmentBehavior)+pssdBehavior = lens _pinpointSegmentSegmentDimensionsBehavior (\s a -> s { _pinpointSegmentSegmentDimensionsBehavior = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-pinpoint-segment-segmentdimensions.html#cfn-pinpoint-segment-segmentdimensions-demographic+pssdDemographic :: Lens' PinpointSegmentSegmentDimensions (Maybe PinpointSegmentDemographic)+pssdDemographic = lens _pinpointSegmentSegmentDimensionsDemographic (\s a -> s { _pinpointSegmentSegmentDimensionsDemographic = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-pinpoint-segment-segmentdimensions.html#cfn-pinpoint-segment-segmentdimensions-location+pssdLocation :: Lens' PinpointSegmentSegmentDimensions (Maybe PinpointSegmentLocation)+pssdLocation = lens _pinpointSegmentSegmentDimensionsLocation (\s a -> s { _pinpointSegmentSegmentDimensionsLocation = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-pinpoint-segment-segmentdimensions.html#cfn-pinpoint-segment-segmentdimensions-metrics+pssdMetrics :: Lens' PinpointSegmentSegmentDimensions (Maybe Object)+pssdMetrics = lens _pinpointSegmentSegmentDimensionsMetrics (\s a -> s { _pinpointSegmentSegmentDimensionsMetrics = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-pinpoint-segment-segmentdimensions.html#cfn-pinpoint-segment-segmentdimensions-userattributes+pssdUserAttributes :: Lens' PinpointSegmentSegmentDimensions (Maybe Object)+pssdUserAttributes = lens _pinpointSegmentSegmentDimensionsUserAttributes (\s a -> s { _pinpointSegmentSegmentDimensionsUserAttributes = a })
+ library-gen/Stratosphere/ResourceProperties/PinpointSegmentSegmentGroups.hs view
@@ -0,0 +1,45 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-pinpoint-segment-segmentgroups.html++module Stratosphere.ResourceProperties.PinpointSegmentSegmentGroups where++import Stratosphere.ResourceImports+import Stratosphere.ResourceProperties.PinpointSegmentGroups++-- | Full data type definition for PinpointSegmentSegmentGroups. See+-- 'pinpointSegmentSegmentGroups' for a more convenient constructor.+data PinpointSegmentSegmentGroups =+  PinpointSegmentSegmentGroups+  { _pinpointSegmentSegmentGroupsGroups :: Maybe [PinpointSegmentGroups]+  , _pinpointSegmentSegmentGroupsInclude :: Maybe (Val Text)+  } deriving (Show, Eq)++instance ToJSON PinpointSegmentSegmentGroups where+  toJSON PinpointSegmentSegmentGroups{..} =+    object $+    catMaybes+    [ fmap (("Groups",) . toJSON) _pinpointSegmentSegmentGroupsGroups+    , fmap (("Include",) . toJSON) _pinpointSegmentSegmentGroupsInclude+    ]++-- | Constructor for 'PinpointSegmentSegmentGroups' containing required fields+-- as arguments.+pinpointSegmentSegmentGroups+  :: PinpointSegmentSegmentGroups+pinpointSegmentSegmentGroups  =+  PinpointSegmentSegmentGroups+  { _pinpointSegmentSegmentGroupsGroups = Nothing+  , _pinpointSegmentSegmentGroupsInclude = Nothing+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-pinpoint-segment-segmentgroups.html#cfn-pinpoint-segment-segmentgroups-groups+pssgGroups :: Lens' PinpointSegmentSegmentGroups (Maybe [PinpointSegmentGroups])+pssgGroups = lens _pinpointSegmentSegmentGroupsGroups (\s a -> s { _pinpointSegmentSegmentGroupsGroups = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-pinpoint-segment-segmentgroups.html#cfn-pinpoint-segment-segmentgroups-include+pssgInclude :: Lens' PinpointSegmentSegmentGroups (Maybe (Val Text))+pssgInclude = lens _pinpointSegmentSegmentGroupsInclude (\s a -> s { _pinpointSegmentSegmentGroupsInclude = a })
+ library-gen/Stratosphere/ResourceProperties/PinpointSegmentSetDimension.hs view
@@ -0,0 +1,45 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-pinpoint-segment-setdimension.html++module Stratosphere.ResourceProperties.PinpointSegmentSetDimension where++import Stratosphere.ResourceImports+++-- | Full data type definition for PinpointSegmentSetDimension. See+-- 'pinpointSegmentSetDimension' for a more convenient constructor.+data PinpointSegmentSetDimension =+  PinpointSegmentSetDimension+  { _pinpointSegmentSetDimensionDimensionType :: Maybe (Val Text)+  , _pinpointSegmentSetDimensionValues :: Maybe (ValList Text)+  } deriving (Show, Eq)++instance ToJSON PinpointSegmentSetDimension where+  toJSON PinpointSegmentSetDimension{..} =+    object $+    catMaybes+    [ fmap (("DimensionType",) . toJSON) _pinpointSegmentSetDimensionDimensionType+    , fmap (("Values",) . toJSON) _pinpointSegmentSetDimensionValues+    ]++-- | Constructor for 'PinpointSegmentSetDimension' containing required fields+-- as arguments.+pinpointSegmentSetDimension+  :: PinpointSegmentSetDimension+pinpointSegmentSetDimension  =+  PinpointSegmentSetDimension+  { _pinpointSegmentSetDimensionDimensionType = Nothing+  , _pinpointSegmentSetDimensionValues = Nothing+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-pinpoint-segment-setdimension.html#cfn-pinpoint-segment-setdimension-dimensiontype+pssdDimensionType :: Lens' PinpointSegmentSetDimension (Maybe (Val Text))+pssdDimensionType = lens _pinpointSegmentSetDimensionDimensionType (\s a -> s { _pinpointSegmentSetDimensionDimensionType = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-pinpoint-segment-setdimension.html#cfn-pinpoint-segment-setdimension-values+pssdValues :: Lens' PinpointSegmentSetDimension (Maybe (ValList Text))+pssdValues = lens _pinpointSegmentSetDimensionValues (\s a -> s { _pinpointSegmentSetDimensionValues = a })
+ library-gen/Stratosphere/ResourceProperties/PinpointSegmentSourceSegments.hs view
@@ -0,0 +1,46 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-pinpoint-segment-segmentgroups-groups-sourcesegments.html++module Stratosphere.ResourceProperties.PinpointSegmentSourceSegments where++import Stratosphere.ResourceImports+++-- | Full data type definition for PinpointSegmentSourceSegments. See+-- 'pinpointSegmentSourceSegments' for a more convenient constructor.+data PinpointSegmentSourceSegments =+  PinpointSegmentSourceSegments+  { _pinpointSegmentSourceSegmentsId :: Val Text+  , _pinpointSegmentSourceSegmentsVersion :: Maybe (Val Integer)+  } deriving (Show, Eq)++instance ToJSON PinpointSegmentSourceSegments where+  toJSON PinpointSegmentSourceSegments{..} =+    object $+    catMaybes+    [ (Just . ("Id",) . toJSON) _pinpointSegmentSourceSegmentsId+    , fmap (("Version",) . toJSON) _pinpointSegmentSourceSegmentsVersion+    ]++-- | Constructor for 'PinpointSegmentSourceSegments' containing required+-- fields as arguments.+pinpointSegmentSourceSegments+  :: Val Text -- ^ 'psssId'+  -> PinpointSegmentSourceSegments+pinpointSegmentSourceSegments idarg =+  PinpointSegmentSourceSegments+  { _pinpointSegmentSourceSegmentsId = idarg+  , _pinpointSegmentSourceSegmentsVersion = Nothing+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-pinpoint-segment-segmentgroups-groups-sourcesegments.html#cfn-pinpoint-segment-segmentgroups-groups-sourcesegments-id+psssId :: Lens' PinpointSegmentSourceSegments (Val Text)+psssId = lens _pinpointSegmentSourceSegmentsId (\s a -> s { _pinpointSegmentSourceSegmentsId = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-pinpoint-segment-segmentgroups-groups-sourcesegments.html#cfn-pinpoint-segment-segmentgroups-groups-sourcesegments-version+psssVersion :: Lens' PinpointSegmentSourceSegments (Maybe (Val Integer))+psssVersion = lens _pinpointSegmentSourceSegmentsVersion (\s a -> s { _pinpointSegmentSourceSegmentsVersion = a })
+ library-gen/Stratosphere/ResourceProperties/S3BucketDefaultRetention.hs view
@@ -0,0 +1,52 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-s3-bucket-defaultretention.html++module Stratosphere.ResourceProperties.S3BucketDefaultRetention where++import Stratosphere.ResourceImports+++-- | Full data type definition for S3BucketDefaultRetention. See+-- 's3BucketDefaultRetention' for a more convenient constructor.+data S3BucketDefaultRetention =+  S3BucketDefaultRetention+  { _s3BucketDefaultRetentionDays :: Maybe (Val Integer)+  , _s3BucketDefaultRetentionMode :: Maybe (Val Text)+  , _s3BucketDefaultRetentionYears :: Maybe (Val Integer)+  } deriving (Show, Eq)++instance ToJSON S3BucketDefaultRetention where+  toJSON S3BucketDefaultRetention{..} =+    object $+    catMaybes+    [ fmap (("Days",) . toJSON) _s3BucketDefaultRetentionDays+    , fmap (("Mode",) . toJSON) _s3BucketDefaultRetentionMode+    , fmap (("Years",) . toJSON) _s3BucketDefaultRetentionYears+    ]++-- | Constructor for 'S3BucketDefaultRetention' containing required fields as+-- arguments.+s3BucketDefaultRetention+  :: S3BucketDefaultRetention+s3BucketDefaultRetention  =+  S3BucketDefaultRetention+  { _s3BucketDefaultRetentionDays = Nothing+  , _s3BucketDefaultRetentionMode = Nothing+  , _s3BucketDefaultRetentionYears = Nothing+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-s3-bucket-defaultretention.html#cfn-s3-bucket-defaultretention-days+sbdrDays :: Lens' S3BucketDefaultRetention (Maybe (Val Integer))+sbdrDays = lens _s3BucketDefaultRetentionDays (\s a -> s { _s3BucketDefaultRetentionDays = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-s3-bucket-defaultretention.html#cfn-s3-bucket-defaultretention-mode+sbdrMode :: Lens' S3BucketDefaultRetention (Maybe (Val Text))+sbdrMode = lens _s3BucketDefaultRetentionMode (\s a -> s { _s3BucketDefaultRetentionMode = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-s3-bucket-defaultretention.html#cfn-s3-bucket-defaultretention-years+sbdrYears :: Lens' S3BucketDefaultRetention (Maybe (Val Integer))+sbdrYears = lens _s3BucketDefaultRetentionYears (\s a -> s { _s3BucketDefaultRetentionYears = a })
+ library-gen/Stratosphere/ResourceProperties/S3BucketObjectLockConfiguration.hs view
@@ -0,0 +1,45 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-s3-bucket-objectlockconfiguration.html++module Stratosphere.ResourceProperties.S3BucketObjectLockConfiguration where++import Stratosphere.ResourceImports+import Stratosphere.ResourceProperties.S3BucketObjectLockRule++-- | Full data type definition for S3BucketObjectLockConfiguration. See+-- 's3BucketObjectLockConfiguration' for a more convenient constructor.+data S3BucketObjectLockConfiguration =+  S3BucketObjectLockConfiguration+  { _s3BucketObjectLockConfigurationObjectLockEnabled :: Maybe (Val Text)+  , _s3BucketObjectLockConfigurationRule :: Maybe S3BucketObjectLockRule+  } deriving (Show, Eq)++instance ToJSON S3BucketObjectLockConfiguration where+  toJSON S3BucketObjectLockConfiguration{..} =+    object $+    catMaybes+    [ fmap (("ObjectLockEnabled",) . toJSON) _s3BucketObjectLockConfigurationObjectLockEnabled+    , fmap (("Rule",) . toJSON) _s3BucketObjectLockConfigurationRule+    ]++-- | Constructor for 'S3BucketObjectLockConfiguration' containing required+-- fields as arguments.+s3BucketObjectLockConfiguration+  :: S3BucketObjectLockConfiguration+s3BucketObjectLockConfiguration  =+  S3BucketObjectLockConfiguration+  { _s3BucketObjectLockConfigurationObjectLockEnabled = Nothing+  , _s3BucketObjectLockConfigurationRule = Nothing+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-s3-bucket-objectlockconfiguration.html#cfn-s3-bucket-objectlockconfiguration-objectlockenabled+sbolcObjectLockEnabled :: Lens' S3BucketObjectLockConfiguration (Maybe (Val Text))+sbolcObjectLockEnabled = lens _s3BucketObjectLockConfigurationObjectLockEnabled (\s a -> s { _s3BucketObjectLockConfigurationObjectLockEnabled = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-s3-bucket-objectlockconfiguration.html#cfn-s3-bucket-objectlockconfiguration-rule+sbolcRule :: Lens' S3BucketObjectLockConfiguration (Maybe S3BucketObjectLockRule)+sbolcRule = lens _s3BucketObjectLockConfigurationRule (\s a -> s { _s3BucketObjectLockConfigurationRule = a })
+ library-gen/Stratosphere/ResourceProperties/S3BucketObjectLockRule.hs view
@@ -0,0 +1,38 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-s3-bucket-objectlockrule.html++module Stratosphere.ResourceProperties.S3BucketObjectLockRule where++import Stratosphere.ResourceImports+import Stratosphere.ResourceProperties.S3BucketDefaultRetention++-- | Full data type definition for S3BucketObjectLockRule. See+-- 's3BucketObjectLockRule' for a more convenient constructor.+data S3BucketObjectLockRule =+  S3BucketObjectLockRule+  { _s3BucketObjectLockRuleDefaultRetention :: Maybe S3BucketDefaultRetention+  } deriving (Show, Eq)++instance ToJSON S3BucketObjectLockRule where+  toJSON S3BucketObjectLockRule{..} =+    object $+    catMaybes+    [ fmap (("DefaultRetention",) . toJSON) _s3BucketObjectLockRuleDefaultRetention+    ]++-- | Constructor for 'S3BucketObjectLockRule' containing required fields as+-- arguments.+s3BucketObjectLockRule+  :: S3BucketObjectLockRule+s3BucketObjectLockRule  =+  S3BucketObjectLockRule+  { _s3BucketObjectLockRuleDefaultRetention = Nothing+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-s3-bucket-objectlockrule.html#cfn-s3-bucket-objectlockrule-defaultretention+sbolrDefaultRetention :: Lens' S3BucketObjectLockRule (Maybe S3BucketDefaultRetention)+sbolrDefaultRetention = lens _s3BucketObjectLockRuleDefaultRetention (\s a -> s { _s3BucketObjectLockRuleDefaultRetention = a })
library-gen/Stratosphere/ResourceProperties/Tag.hs view
@@ -3,7 +3,7 @@ {-# LANGUAGE StrictData #-} {-# LANGUAGE TupleSections #-} --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-resource-tags.html+-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-amplify-branch-tag.html  module Stratosphere.ResourceProperties.Tag where @@ -37,10 +37,10 @@   , _tagValue = valuearg   } --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-resource-tags.html#cfn-resource-tags-key+-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-amplify-branch-tag.html#cfn-amplify-branch-tag-key tagKey :: Lens' Tag (Val Text) tagKey = lens _tagKey (\s a -> s { _tagKey = a }) --- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-resource-tags.html#cfn-resource-tags-value+-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-amplify-branch-tag.html#cfn-amplify-branch-tag-value tagValue :: Lens' Tag (Val Text) tagValue = lens _tagValue (\s a -> s { _tagValue = a })
library-gen/Stratosphere/Resources.hs view
@@ -47,6 +47,9 @@ import Stratosphere.Resources.AmazonMQBroker as X import Stratosphere.Resources.AmazonMQConfiguration as X import Stratosphere.Resources.AmazonMQConfigurationAssociation as X+import Stratosphere.Resources.AmplifyApp as X+import Stratosphere.Resources.AmplifyBranch as X+import Stratosphere.Resources.AmplifyDomain as X import Stratosphere.Resources.ApiGatewayAccount as X import Stratosphere.Resources.ApiGatewayApiKey as X import Stratosphere.Resources.ApiGatewayAuthorizer as X@@ -160,6 +163,10 @@ import Stratosphere.Resources.DocDBDBSubnetGroup as X import Stratosphere.Resources.DynamoDBTable as X import Stratosphere.Resources.EC2CapacityReservation as X+import Stratosphere.Resources.EC2ClientVpnAuthorizationRule as X+import Stratosphere.Resources.EC2ClientVpnEndpoint as X+import Stratosphere.Resources.EC2ClientVpnRoute as X+import Stratosphere.Resources.EC2ClientVpnTargetNetworkAssociation as X import Stratosphere.Resources.EC2CustomerGateway as X import Stratosphere.Resources.EC2DHCPOptions as X import Stratosphere.Resources.EC2EC2Fleet as X@@ -301,6 +308,7 @@ import Stratosphere.Resources.IoTAnalyticsDataset as X import Stratosphere.Resources.IoTAnalyticsDatastore as X import Stratosphere.Resources.IoTAnalyticsPipeline as X+import Stratosphere.Resources.IoTThingsGraphFlowTemplate as X import Stratosphere.Resources.KMSAlias as X import Stratosphere.Resources.KMSKey as X import Stratosphere.Resources.KinesisStream as X@@ -325,6 +333,7 @@ import Stratosphere.Resources.LogsLogStream as X import Stratosphere.Resources.LogsMetricFilter as X import Stratosphere.Resources.LogsSubscriptionFilter as X+import Stratosphere.Resources.MSKCluster as X import Stratosphere.Resources.MediaStoreContainer as X import Stratosphere.Resources.NeptuneDBCluster as X import Stratosphere.Resources.NeptuneDBClusterParameterGroup as X@@ -339,6 +348,21 @@ import Stratosphere.Resources.OpsWorksUserProfile as X import Stratosphere.Resources.OpsWorksVolume as X import Stratosphere.Resources.OpsWorksCMServer as X+import Stratosphere.Resources.PinpointADMChannel as X+import Stratosphere.Resources.PinpointAPNSChannel as X+import Stratosphere.Resources.PinpointAPNSSandboxChannel as X+import Stratosphere.Resources.PinpointAPNSVoipChannel as X+import Stratosphere.Resources.PinpointAPNSVoipSandboxChannel as X+import Stratosphere.Resources.PinpointApp as X+import Stratosphere.Resources.PinpointApplicationSettings as X+import Stratosphere.Resources.PinpointBaiduChannel as X+import Stratosphere.Resources.PinpointCampaign as X+import Stratosphere.Resources.PinpointEmailChannel as X+import Stratosphere.Resources.PinpointEventStream as X+import Stratosphere.Resources.PinpointGCMChannel as X+import Stratosphere.Resources.PinpointSMSChannel as X+import Stratosphere.Resources.PinpointSegment as X+import Stratosphere.Resources.PinpointVoiceChannel as X import Stratosphere.Resources.PinpointEmailConfigurationSet as X import Stratosphere.Resources.PinpointEmailConfigurationSetEventDestination as X import Stratosphere.Resources.PinpointEmailDedicatedIpPool as X@@ -450,6 +474,13 @@ import Stratosphere.ResourceProperties.AmazonMQBrokerUser as X import Stratosphere.ResourceProperties.AmazonMQConfigurationTagsEntry as X import Stratosphere.ResourceProperties.AmazonMQConfigurationAssociationConfigurationId as X+import Stratosphere.ResourceProperties.AmplifyAppBasicAuthConfig as X+import Stratosphere.ResourceProperties.AmplifyAppCustomRule as X+import Stratosphere.ResourceProperties.AmplifyAppEnvironmentVariable as X+import Stratosphere.ResourceProperties.AmplifyAppToken as X+import Stratosphere.ResourceProperties.AmplifyBranchBasicAuthConfig as X+import Stratosphere.ResourceProperties.AmplifyBranchEnvironmentVariable as X+import Stratosphere.ResourceProperties.AmplifyDomainSubDomainSetting as X import Stratosphere.ResourceProperties.ApiGatewayApiKeyStageKey as X import Stratosphere.ResourceProperties.ApiGatewayDeploymentAccessLogSetting as X import Stratosphere.ResourceProperties.ApiGatewayDeploymentCanarySetting as X@@ -690,6 +721,7 @@ import Stratosphere.ResourceProperties.ConfigDeliveryChannelConfigSnapshotDeliveryProperties as X import Stratosphere.ResourceProperties.DAXClusterSSESpecification as X import Stratosphere.ResourceProperties.DLMLifecyclePolicyCreateRule as X+import Stratosphere.ResourceProperties.DLMLifecyclePolicyParameters as X import Stratosphere.ResourceProperties.DLMLifecyclePolicyPolicyDetails as X import Stratosphere.ResourceProperties.DLMLifecyclePolicyRetainRule as X import Stratosphere.ResourceProperties.DLMLifecyclePolicySchedule as X@@ -717,6 +749,11 @@ import Stratosphere.ResourceProperties.DynamoDBTableStreamSpecification as X import Stratosphere.ResourceProperties.DynamoDBTableTimeToLiveSpecification as X import Stratosphere.ResourceProperties.EC2CapacityReservationTagSpecification as X+import Stratosphere.ResourceProperties.EC2ClientVpnEndpointCertificateAuthenticationRequest as X+import Stratosphere.ResourceProperties.EC2ClientVpnEndpointClientAuthenticationRequest as X+import Stratosphere.ResourceProperties.EC2ClientVpnEndpointConnectionLogOptions as X+import Stratosphere.ResourceProperties.EC2ClientVpnEndpointDirectoryServiceAuthenticationRequest as X+import Stratosphere.ResourceProperties.EC2ClientVpnEndpointTagSpecification as X import Stratosphere.ResourceProperties.EC2EC2FleetFleetLaunchTemplateConfigRequest as X import Stratosphere.ResourceProperties.EC2EC2FleetFleetLaunchTemplateOverridesRequest as X import Stratosphere.ResourceProperties.EC2EC2FleetFleetLaunchTemplateSpecificationRequest as X@@ -809,12 +846,15 @@ import Stratosphere.ResourceProperties.ECSTaskDefinitionPortMapping as X import Stratosphere.ResourceProperties.ECSTaskDefinitionProxyConfiguration as X import Stratosphere.ResourceProperties.ECSTaskDefinitionRepositoryCredentials as X+import Stratosphere.ResourceProperties.ECSTaskDefinitionResourceRequirement as X+import Stratosphere.ResourceProperties.ECSTaskDefinitionSecret as X import Stratosphere.ResourceProperties.ECSTaskDefinitionTaskDefinitionPlacementConstraint as X import Stratosphere.ResourceProperties.ECSTaskDefinitionTmpfs as X import Stratosphere.ResourceProperties.ECSTaskDefinitionUlimit as X import Stratosphere.ResourceProperties.ECSTaskDefinitionVolume as X import Stratosphere.ResourceProperties.ECSTaskDefinitionVolumeFrom as X import Stratosphere.ResourceProperties.EFSFileSystemElasticFileSystemTag as X+import Stratosphere.ResourceProperties.EFSFileSystemLifecyclePolicy as X import Stratosphere.ResourceProperties.EKSClusterResourcesVpcConfig as X import Stratosphere.ResourceProperties.EMRClusterApplication as X import Stratosphere.ResourceProperties.EMRClusterAutoScalingPolicy as X@@ -892,8 +932,15 @@ import Stratosphere.ResourceProperties.ElasticLoadBalancingV2ListenerRuleAuthenticateCognitoConfig as X import Stratosphere.ResourceProperties.ElasticLoadBalancingV2ListenerRuleAuthenticateOidcConfig as X import Stratosphere.ResourceProperties.ElasticLoadBalancingV2ListenerRuleFixedResponseConfig as X+import Stratosphere.ResourceProperties.ElasticLoadBalancingV2ListenerRuleHostHeaderConfig as X+import Stratosphere.ResourceProperties.ElasticLoadBalancingV2ListenerRuleHttpHeaderConfig as X+import Stratosphere.ResourceProperties.ElasticLoadBalancingV2ListenerRuleHttpRequestMethodConfig as X+import Stratosphere.ResourceProperties.ElasticLoadBalancingV2ListenerRulePathPatternConfig as X+import Stratosphere.ResourceProperties.ElasticLoadBalancingV2ListenerRuleQueryStringConfig as X+import Stratosphere.ResourceProperties.ElasticLoadBalancingV2ListenerRuleQueryStringKeyValue as X import Stratosphere.ResourceProperties.ElasticLoadBalancingV2ListenerRuleRedirectConfig as X import Stratosphere.ResourceProperties.ElasticLoadBalancingV2ListenerRuleRuleCondition as X+import Stratosphere.ResourceProperties.ElasticLoadBalancingV2ListenerRuleSourceIpConfig as X import Stratosphere.ResourceProperties.ElasticLoadBalancingV2LoadBalancerLoadBalancerAttribute as X import Stratosphere.ResourceProperties.ElasticLoadBalancingV2LoadBalancerSubnetMapping as X import Stratosphere.ResourceProperties.ElasticLoadBalancingV2TargetGroupMatcher as X@@ -1032,17 +1079,23 @@ import Stratosphere.ResourceProperties.IoTAnalyticsChannelRetentionPeriod as X import Stratosphere.ResourceProperties.IoTAnalyticsDatasetAction as X import Stratosphere.ResourceProperties.IoTAnalyticsDatasetContainerAction as X+import Stratosphere.ResourceProperties.IoTAnalyticsDatasetDatasetContentDeliveryRule as X+import Stratosphere.ResourceProperties.IoTAnalyticsDatasetDatasetContentDeliveryRuleDestination as X import Stratosphere.ResourceProperties.IoTAnalyticsDatasetDatasetContentVersionValue as X import Stratosphere.ResourceProperties.IoTAnalyticsDatasetDeltaTime as X import Stratosphere.ResourceProperties.IoTAnalyticsDatasetFilter as X+import Stratosphere.ResourceProperties.IoTAnalyticsDatasetGlueConfiguration as X+import Stratosphere.ResourceProperties.IoTAnalyticsDatasetIotEventsDestinationConfiguration as X import Stratosphere.ResourceProperties.IoTAnalyticsDatasetOutputFileUriValue as X import Stratosphere.ResourceProperties.IoTAnalyticsDatasetQueryAction as X import Stratosphere.ResourceProperties.IoTAnalyticsDatasetResourceConfiguration as X import Stratosphere.ResourceProperties.IoTAnalyticsDatasetRetentionPeriod as X+import Stratosphere.ResourceProperties.IoTAnalyticsDatasetS3DestinationConfiguration as X import Stratosphere.ResourceProperties.IoTAnalyticsDatasetSchedule as X import Stratosphere.ResourceProperties.IoTAnalyticsDatasetTrigger as X import Stratosphere.ResourceProperties.IoTAnalyticsDatasetTriggeringDataset as X import Stratosphere.ResourceProperties.IoTAnalyticsDatasetVariable as X+import Stratosphere.ResourceProperties.IoTAnalyticsDatasetVersioningConfiguration as X import Stratosphere.ResourceProperties.IoTAnalyticsDatastoreRetentionPeriod as X import Stratosphere.ResourceProperties.IoTAnalyticsPipelineActivity as X import Stratosphere.ResourceProperties.IoTAnalyticsPipelineAddAttributes as X@@ -1055,6 +1108,7 @@ import Stratosphere.ResourceProperties.IoTAnalyticsPipelineMath as X import Stratosphere.ResourceProperties.IoTAnalyticsPipelineRemoveAttributes as X import Stratosphere.ResourceProperties.IoTAnalyticsPipelineSelectAttributes as X+import Stratosphere.ResourceProperties.IoTThingsGraphFlowTemplateDefinitionDocument as X import Stratosphere.ResourceProperties.KinesisStreamStreamEncryption as X import Stratosphere.ResourceProperties.KinesisAnalyticsApplicationCSVMappingParameters as X import Stratosphere.ResourceProperties.KinesisAnalyticsApplicationInput as X@@ -1122,18 +1176,28 @@ import Stratosphere.ResourceProperties.KinesisFirehoseDeliveryStreamBufferingHints as X import Stratosphere.ResourceProperties.KinesisFirehoseDeliveryStreamCloudWatchLoggingOptions as X import Stratosphere.ResourceProperties.KinesisFirehoseDeliveryStreamCopyCommand as X+import Stratosphere.ResourceProperties.KinesisFirehoseDeliveryStreamDataFormatConversionConfiguration as X+import Stratosphere.ResourceProperties.KinesisFirehoseDeliveryStreamDeserializer as X import Stratosphere.ResourceProperties.KinesisFirehoseDeliveryStreamElasticsearchBufferingHints as X import Stratosphere.ResourceProperties.KinesisFirehoseDeliveryStreamElasticsearchDestinationConfiguration as X import Stratosphere.ResourceProperties.KinesisFirehoseDeliveryStreamElasticsearchRetryOptions as X import Stratosphere.ResourceProperties.KinesisFirehoseDeliveryStreamEncryptionConfiguration as X import Stratosphere.ResourceProperties.KinesisFirehoseDeliveryStreamExtendedS3DestinationConfiguration as X+import Stratosphere.ResourceProperties.KinesisFirehoseDeliveryStreamHiveJsonSerDe as X+import Stratosphere.ResourceProperties.KinesisFirehoseDeliveryStreamInputFormatConfiguration as X import Stratosphere.ResourceProperties.KinesisFirehoseDeliveryStreamKMSEncryptionConfig as X import Stratosphere.ResourceProperties.KinesisFirehoseDeliveryStreamKinesisStreamSourceConfiguration as X+import Stratosphere.ResourceProperties.KinesisFirehoseDeliveryStreamOpenXJsonSerDe as X+import Stratosphere.ResourceProperties.KinesisFirehoseDeliveryStreamOrcSerDe as X+import Stratosphere.ResourceProperties.KinesisFirehoseDeliveryStreamOutputFormatConfiguration as X+import Stratosphere.ResourceProperties.KinesisFirehoseDeliveryStreamParquetSerDe as X import Stratosphere.ResourceProperties.KinesisFirehoseDeliveryStreamProcessingConfiguration as X import Stratosphere.ResourceProperties.KinesisFirehoseDeliveryStreamProcessor as X import Stratosphere.ResourceProperties.KinesisFirehoseDeliveryStreamProcessorParameter as X import Stratosphere.ResourceProperties.KinesisFirehoseDeliveryStreamRedshiftDestinationConfiguration as X import Stratosphere.ResourceProperties.KinesisFirehoseDeliveryStreamS3DestinationConfiguration as X+import Stratosphere.ResourceProperties.KinesisFirehoseDeliveryStreamSchemaConfiguration as X+import Stratosphere.ResourceProperties.KinesisFirehoseDeliveryStreamSerializer as X import Stratosphere.ResourceProperties.KinesisFirehoseDeliveryStreamSplunkDestinationConfiguration as X import Stratosphere.ResourceProperties.KinesisFirehoseDeliveryStreamSplunkRetryOptions as X import Stratosphere.ResourceProperties.LambdaAliasAliasRoutingConfiguration as X@@ -1145,6 +1209,15 @@ import Stratosphere.ResourceProperties.LambdaFunctionVpcConfig as X import Stratosphere.ResourceProperties.LambdaLayerVersionContent as X import Stratosphere.ResourceProperties.LogsMetricFilterMetricTransformation as X+import Stratosphere.ResourceProperties.MSKClusterBrokerNodeGroupInfo as X+import Stratosphere.ResourceProperties.MSKClusterClientAuthentication as X+import Stratosphere.ResourceProperties.MSKClusterConfigurationInfo as X+import Stratosphere.ResourceProperties.MSKClusterEBSStorageInfo as X+import Stratosphere.ResourceProperties.MSKClusterEncryptionAtRest as X+import Stratosphere.ResourceProperties.MSKClusterEncryptionInTransit as X+import Stratosphere.ResourceProperties.MSKClusterEncryptionInfo as X+import Stratosphere.ResourceProperties.MSKClusterStorageInfo as X+import Stratosphere.ResourceProperties.MSKClusterTls as X import Stratosphere.ResourceProperties.MediaStoreContainerCorsRule as X import Stratosphere.ResourceProperties.OpsWorksAppDataSource as X import Stratosphere.ResourceProperties.OpsWorksAppEnvironmentVariable as X@@ -1165,6 +1238,35 @@ import Stratosphere.ResourceProperties.OpsWorksStackSource as X import Stratosphere.ResourceProperties.OpsWorksStackStackConfigurationManager as X import Stratosphere.ResourceProperties.OpsWorksCMServerEngineAttribute as X+import Stratosphere.ResourceProperties.PinpointApplicationSettingsCampaignHook as X+import Stratosphere.ResourceProperties.PinpointApplicationSettingsLimits as X+import Stratosphere.ResourceProperties.PinpointApplicationSettingsQuietTime as X+import Stratosphere.ResourceProperties.PinpointCampaignAttributeDimension as X+import Stratosphere.ResourceProperties.PinpointCampaignCampaignEmailMessage as X+import Stratosphere.ResourceProperties.PinpointCampaignCampaignEventFilter as X+import Stratosphere.ResourceProperties.PinpointCampaignCampaignHook as X+import Stratosphere.ResourceProperties.PinpointCampaignCampaignSmsMessage as X+import Stratosphere.ResourceProperties.PinpointCampaignEventDimensions as X+import Stratosphere.ResourceProperties.PinpointCampaignLimits as X+import Stratosphere.ResourceProperties.PinpointCampaignMessage as X+import Stratosphere.ResourceProperties.PinpointCampaignMessageConfiguration as X+import Stratosphere.ResourceProperties.PinpointCampaignMetricDimension as X+import Stratosphere.ResourceProperties.PinpointCampaignQuietTime as X+import Stratosphere.ResourceProperties.PinpointCampaignSchedule as X+import Stratosphere.ResourceProperties.PinpointCampaignSetDimension as X+import Stratosphere.ResourceProperties.PinpointCampaignWriteTreatmentResource as X+import Stratosphere.ResourceProperties.PinpointSegmentAttributeDimension as X+import Stratosphere.ResourceProperties.PinpointSegmentBehavior as X+import Stratosphere.ResourceProperties.PinpointSegmentCoordinates as X+import Stratosphere.ResourceProperties.PinpointSegmentDemographic as X+import Stratosphere.ResourceProperties.PinpointSegmentGPSPoint as X+import Stratosphere.ResourceProperties.PinpointSegmentGroups as X+import Stratosphere.ResourceProperties.PinpointSegmentLocation as X+import Stratosphere.ResourceProperties.PinpointSegmentRecency as X+import Stratosphere.ResourceProperties.PinpointSegmentSegmentDimensions as X+import Stratosphere.ResourceProperties.PinpointSegmentSegmentGroups as X+import Stratosphere.ResourceProperties.PinpointSegmentSetDimension as X+import Stratosphere.ResourceProperties.PinpointSegmentSourceSegments as X import Stratosphere.ResourceProperties.PinpointEmailConfigurationSetDeliveryOptions as X import Stratosphere.ResourceProperties.PinpointEmailConfigurationSetReputationOptions as X import Stratosphere.ResourceProperties.PinpointEmailConfigurationSetSendingOptions as X@@ -1214,6 +1316,7 @@ import Stratosphere.ResourceProperties.S3BucketCorsConfiguration as X import Stratosphere.ResourceProperties.S3BucketCorsRule as X import Stratosphere.ResourceProperties.S3BucketDataExport as X+import Stratosphere.ResourceProperties.S3BucketDefaultRetention as X import Stratosphere.ResourceProperties.S3BucketDestination as X import Stratosphere.ResourceProperties.S3BucketEncryptionConfiguration as X import Stratosphere.ResourceProperties.S3BucketFilterRule as X@@ -1225,6 +1328,8 @@ import Stratosphere.ResourceProperties.S3BucketNoncurrentVersionTransition as X import Stratosphere.ResourceProperties.S3BucketNotificationConfiguration as X import Stratosphere.ResourceProperties.S3BucketNotificationFilter as X+import Stratosphere.ResourceProperties.S3BucketObjectLockConfiguration as X+import Stratosphere.ResourceProperties.S3BucketObjectLockRule as X import Stratosphere.ResourceProperties.S3BucketPublicAccessBlockConfiguration as X import Stratosphere.ResourceProperties.S3BucketQueueConfiguration as X import Stratosphere.ResourceProperties.S3BucketRedirectAllRequestsTo as X
+ library-gen/Stratosphere/Resources/AmplifyApp.hs view
@@ -0,0 +1,115 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-amplify-app.html++module Stratosphere.Resources.AmplifyApp where++import Stratosphere.ResourceImports+import Stratosphere.ResourceProperties.AmplifyAppBasicAuthConfig+import Stratosphere.ResourceProperties.AmplifyAppCustomRule+import Stratosphere.ResourceProperties.AmplifyAppEnvironmentVariable+import Stratosphere.ResourceProperties.Tag++-- | Full data type definition for AmplifyApp. See 'amplifyApp' for a more+-- convenient constructor.+data AmplifyApp =+  AmplifyApp+  { _amplifyAppAccessToken :: Maybe (Val Text)+  , _amplifyAppBasicAuthConfig :: Maybe AmplifyAppBasicAuthConfig+  , _amplifyAppBuildSpec :: Maybe (Val Text)+  , _amplifyAppCustomRules :: Maybe [AmplifyAppCustomRule]+  , _amplifyAppDescription :: Maybe (Val Text)+  , _amplifyAppEnvironmentVariables :: Maybe [AmplifyAppEnvironmentVariable]+  , _amplifyAppIAMServiceRole :: Maybe (Val Text)+  , _amplifyAppName :: Val Text+  , _amplifyAppOauthToken :: Maybe (Val Text)+  , _amplifyAppRepository :: Val Text+  , _amplifyAppTags :: Maybe [Tag]+  } deriving (Show, Eq)++instance ToResourceProperties AmplifyApp where+  toResourceProperties AmplifyApp{..} =+    ResourceProperties+    { resourcePropertiesType = "AWS::Amplify::App"+    , resourcePropertiesProperties =+        hashMapFromList $ catMaybes+        [ fmap (("AccessToken",) . toJSON) _amplifyAppAccessToken+        , fmap (("BasicAuthConfig",) . toJSON) _amplifyAppBasicAuthConfig+        , fmap (("BuildSpec",) . toJSON) _amplifyAppBuildSpec+        , fmap (("CustomRules",) . toJSON) _amplifyAppCustomRules+        , fmap (("Description",) . toJSON) _amplifyAppDescription+        , fmap (("EnvironmentVariables",) . toJSON) _amplifyAppEnvironmentVariables+        , fmap (("IAMServiceRole",) . toJSON) _amplifyAppIAMServiceRole+        , (Just . ("Name",) . toJSON) _amplifyAppName+        , fmap (("OauthToken",) . toJSON) _amplifyAppOauthToken+        , (Just . ("Repository",) . toJSON) _amplifyAppRepository+        , fmap (("Tags",) . toJSON) _amplifyAppTags+        ]+    }++-- | Constructor for 'AmplifyApp' containing required fields as arguments.+amplifyApp+  :: Val Text -- ^ 'aaName'+  -> Val Text -- ^ 'aaRepository'+  -> AmplifyApp+amplifyApp namearg repositoryarg =+  AmplifyApp+  { _amplifyAppAccessToken = Nothing+  , _amplifyAppBasicAuthConfig = Nothing+  , _amplifyAppBuildSpec = Nothing+  , _amplifyAppCustomRules = Nothing+  , _amplifyAppDescription = Nothing+  , _amplifyAppEnvironmentVariables = Nothing+  , _amplifyAppIAMServiceRole = Nothing+  , _amplifyAppName = namearg+  , _amplifyAppOauthToken = Nothing+  , _amplifyAppRepository = repositoryarg+  , _amplifyAppTags = Nothing+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-amplify-app.html#cfn-amplify-app-accesstoken+aaAccessToken :: Lens' AmplifyApp (Maybe (Val Text))+aaAccessToken = lens _amplifyAppAccessToken (\s a -> s { _amplifyAppAccessToken = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-amplify-app.html#cfn-amplify-app-basicauthconfig+aaBasicAuthConfig :: Lens' AmplifyApp (Maybe AmplifyAppBasicAuthConfig)+aaBasicAuthConfig = lens _amplifyAppBasicAuthConfig (\s a -> s { _amplifyAppBasicAuthConfig = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-amplify-app.html#cfn-amplify-app-buildspec+aaBuildSpec :: Lens' AmplifyApp (Maybe (Val Text))+aaBuildSpec = lens _amplifyAppBuildSpec (\s a -> s { _amplifyAppBuildSpec = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-amplify-app.html#cfn-amplify-app-customrules+aaCustomRules :: Lens' AmplifyApp (Maybe [AmplifyAppCustomRule])+aaCustomRules = lens _amplifyAppCustomRules (\s a -> s { _amplifyAppCustomRules = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-amplify-app.html#cfn-amplify-app-description+aaDescription :: Lens' AmplifyApp (Maybe (Val Text))+aaDescription = lens _amplifyAppDescription (\s a -> s { _amplifyAppDescription = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-amplify-app.html#cfn-amplify-app-environmentvariables+aaEnvironmentVariables :: Lens' AmplifyApp (Maybe [AmplifyAppEnvironmentVariable])+aaEnvironmentVariables = lens _amplifyAppEnvironmentVariables (\s a -> s { _amplifyAppEnvironmentVariables = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-amplify-app.html#cfn-amplify-app-iamservicerole+aaIAMServiceRole :: Lens' AmplifyApp (Maybe (Val Text))+aaIAMServiceRole = lens _amplifyAppIAMServiceRole (\s a -> s { _amplifyAppIAMServiceRole = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-amplify-app.html#cfn-amplify-app-name+aaName :: Lens' AmplifyApp (Val Text)+aaName = lens _amplifyAppName (\s a -> s { _amplifyAppName = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-amplify-app.html#cfn-amplify-app-oauthtoken+aaOauthToken :: Lens' AmplifyApp (Maybe (Val Text))+aaOauthToken = lens _amplifyAppOauthToken (\s a -> s { _amplifyAppOauthToken = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-amplify-app.html#cfn-amplify-app-repository+aaRepository :: Lens' AmplifyApp (Val Text)+aaRepository = lens _amplifyAppRepository (\s a -> s { _amplifyAppRepository = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-amplify-app.html#cfn-amplify-app-tags+aaTags :: Lens' AmplifyApp (Maybe [Tag])+aaTags = lens _amplifyAppTags (\s a -> s { _amplifyAppTags = a })
+ library-gen/Stratosphere/Resources/AmplifyBranch.hs view
@@ -0,0 +1,93 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-amplify-branch.html++module Stratosphere.Resources.AmplifyBranch where++import Stratosphere.ResourceImports+import Stratosphere.ResourceProperties.AmplifyBranchBasicAuthConfig+import Stratosphere.ResourceProperties.AmplifyBranchEnvironmentVariable+import Stratosphere.ResourceProperties.Tag++-- | Full data type definition for AmplifyBranch. See 'amplifyBranch' for a+-- more convenient constructor.+data AmplifyBranch =+  AmplifyBranch+  { _amplifyBranchAppId :: Val Text+  , _amplifyBranchBasicAuthConfig :: Maybe AmplifyBranchBasicAuthConfig+  , _amplifyBranchBranchName :: Val Text+  , _amplifyBranchBuildSpec :: Maybe (Val Text)+  , _amplifyBranchDescription :: Maybe (Val Text)+  , _amplifyBranchEnvironmentVariables :: Maybe [AmplifyBranchEnvironmentVariable]+  , _amplifyBranchStage :: Maybe (Val Text)+  , _amplifyBranchTags :: Maybe [Tag]+  } deriving (Show, Eq)++instance ToResourceProperties AmplifyBranch where+  toResourceProperties AmplifyBranch{..} =+    ResourceProperties+    { resourcePropertiesType = "AWS::Amplify::Branch"+    , resourcePropertiesProperties =+        hashMapFromList $ catMaybes+        [ (Just . ("AppId",) . toJSON) _amplifyBranchAppId+        , fmap (("BasicAuthConfig",) . toJSON) _amplifyBranchBasicAuthConfig+        , (Just . ("BranchName",) . toJSON) _amplifyBranchBranchName+        , fmap (("BuildSpec",) . toJSON) _amplifyBranchBuildSpec+        , fmap (("Description",) . toJSON) _amplifyBranchDescription+        , fmap (("EnvironmentVariables",) . toJSON) _amplifyBranchEnvironmentVariables+        , fmap (("Stage",) . toJSON) _amplifyBranchStage+        , fmap (("Tags",) . toJSON) _amplifyBranchTags+        ]+    }++-- | Constructor for 'AmplifyBranch' containing required fields as arguments.+amplifyBranch+  :: Val Text -- ^ 'abAppId'+  -> Val Text -- ^ 'abBranchName'+  -> AmplifyBranch+amplifyBranch appIdarg branchNamearg =+  AmplifyBranch+  { _amplifyBranchAppId = appIdarg+  , _amplifyBranchBasicAuthConfig = Nothing+  , _amplifyBranchBranchName = branchNamearg+  , _amplifyBranchBuildSpec = Nothing+  , _amplifyBranchDescription = Nothing+  , _amplifyBranchEnvironmentVariables = Nothing+  , _amplifyBranchStage = Nothing+  , _amplifyBranchTags = Nothing+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-amplify-branch.html#cfn-amplify-branch-appid+abAppId :: Lens' AmplifyBranch (Val Text)+abAppId = lens _amplifyBranchAppId (\s a -> s { _amplifyBranchAppId = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-amplify-branch.html#cfn-amplify-branch-basicauthconfig+abBasicAuthConfig :: Lens' AmplifyBranch (Maybe AmplifyBranchBasicAuthConfig)+abBasicAuthConfig = lens _amplifyBranchBasicAuthConfig (\s a -> s { _amplifyBranchBasicAuthConfig = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-amplify-branch.html#cfn-amplify-branch-branchname+abBranchName :: Lens' AmplifyBranch (Val Text)+abBranchName = lens _amplifyBranchBranchName (\s a -> s { _amplifyBranchBranchName = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-amplify-branch.html#cfn-amplify-branch-buildspec+abBuildSpec :: Lens' AmplifyBranch (Maybe (Val Text))+abBuildSpec = lens _amplifyBranchBuildSpec (\s a -> s { _amplifyBranchBuildSpec = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-amplify-branch.html#cfn-amplify-branch-description+abDescription :: Lens' AmplifyBranch (Maybe (Val Text))+abDescription = lens _amplifyBranchDescription (\s a -> s { _amplifyBranchDescription = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-amplify-branch.html#cfn-amplify-branch-environmentvariables+abEnvironmentVariables :: Lens' AmplifyBranch (Maybe [AmplifyBranchEnvironmentVariable])+abEnvironmentVariables = lens _amplifyBranchEnvironmentVariables (\s a -> s { _amplifyBranchEnvironmentVariables = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-amplify-branch.html#cfn-amplify-branch-stage+abStage :: Lens' AmplifyBranch (Maybe (Val Text))+abStage = lens _amplifyBranchStage (\s a -> s { _amplifyBranchStage = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-amplify-branch.html#cfn-amplify-branch-tags+abTags :: Lens' AmplifyBranch (Maybe [Tag])+abTags = lens _amplifyBranchTags (\s a -> s { _amplifyBranchTags = a })
+ library-gen/Stratosphere/Resources/AmplifyDomain.hs view
@@ -0,0 +1,57 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-amplify-domain.html++module Stratosphere.Resources.AmplifyDomain where++import Stratosphere.ResourceImports+import Stratosphere.ResourceProperties.AmplifyDomainSubDomainSetting++-- | Full data type definition for AmplifyDomain. See 'amplifyDomain' for a+-- more convenient constructor.+data AmplifyDomain =+  AmplifyDomain+  { _amplifyDomainAppId :: Val Text+  , _amplifyDomainDomainName :: Val Text+  , _amplifyDomainSubDomainSettings :: [AmplifyDomainSubDomainSetting]+  } deriving (Show, Eq)++instance ToResourceProperties AmplifyDomain where+  toResourceProperties AmplifyDomain{..} =+    ResourceProperties+    { resourcePropertiesType = "AWS::Amplify::Domain"+    , resourcePropertiesProperties =+        hashMapFromList $ catMaybes+        [ (Just . ("AppId",) . toJSON) _amplifyDomainAppId+        , (Just . ("DomainName",) . toJSON) _amplifyDomainDomainName+        , (Just . ("SubDomainSettings",) . toJSON) _amplifyDomainSubDomainSettings+        ]+    }++-- | Constructor for 'AmplifyDomain' containing required fields as arguments.+amplifyDomain+  :: Val Text -- ^ 'adAppId'+  -> Val Text -- ^ 'adDomainName'+  -> [AmplifyDomainSubDomainSetting] -- ^ 'adSubDomainSettings'+  -> AmplifyDomain+amplifyDomain appIdarg domainNamearg subDomainSettingsarg =+  AmplifyDomain+  { _amplifyDomainAppId = appIdarg+  , _amplifyDomainDomainName = domainNamearg+  , _amplifyDomainSubDomainSettings = subDomainSettingsarg+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-amplify-domain.html#cfn-amplify-domain-appid+adAppId :: Lens' AmplifyDomain (Val Text)+adAppId = lens _amplifyDomainAppId (\s a -> s { _amplifyDomainAppId = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-amplify-domain.html#cfn-amplify-domain-domainname+adDomainName :: Lens' AmplifyDomain (Val Text)+adDomainName = lens _amplifyDomainDomainName (\s a -> s { _amplifyDomainDomainName = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-amplify-domain.html#cfn-amplify-domain-subdomainsettings+adSubDomainSettings :: Lens' AmplifyDomain [AmplifyDomainSubDomainSetting]+adSubDomainSettings = lens _amplifyDomainSubDomainSettings (\s a -> s { _amplifyDomainSubDomainSettings = a })
library-gen/Stratosphere/Resources/CodePipelineCustomActionType.hs view
@@ -22,7 +22,7 @@   , _codePipelineCustomActionTypeOutputArtifactDetails :: CodePipelineCustomActionTypeArtifactDetails   , _codePipelineCustomActionTypeProvider :: Val Text   , _codePipelineCustomActionTypeSettings :: Maybe CodePipelineCustomActionTypeSettings-  , _codePipelineCustomActionTypeVersion :: Maybe (Val Text)+  , _codePipelineCustomActionTypeVersion :: Val Text   } deriving (Show, Eq)  instance ToResourceProperties CodePipelineCustomActionType where@@ -37,7 +37,7 @@         , (Just . ("OutputArtifactDetails",) . toJSON) _codePipelineCustomActionTypeOutputArtifactDetails         , (Just . ("Provider",) . toJSON) _codePipelineCustomActionTypeProvider         , fmap (("Settings",) . toJSON) _codePipelineCustomActionTypeSettings-        , fmap (("Version",) . toJSON) _codePipelineCustomActionTypeVersion+        , (Just . ("Version",) . toJSON) _codePipelineCustomActionTypeVersion         ]     } @@ -48,8 +48,9 @@   -> CodePipelineCustomActionTypeArtifactDetails -- ^ 'cpcatInputArtifactDetails'   -> CodePipelineCustomActionTypeArtifactDetails -- ^ 'cpcatOutputArtifactDetails'   -> Val Text -- ^ 'cpcatProvider'+  -> Val Text -- ^ 'cpcatVersion'   -> CodePipelineCustomActionType-codePipelineCustomActionType categoryarg inputArtifactDetailsarg outputArtifactDetailsarg providerarg =+codePipelineCustomActionType categoryarg inputArtifactDetailsarg outputArtifactDetailsarg providerarg versionarg =   CodePipelineCustomActionType   { _codePipelineCustomActionTypeCategory = categoryarg   , _codePipelineCustomActionTypeConfigurationProperties = Nothing@@ -57,7 +58,7 @@   , _codePipelineCustomActionTypeOutputArtifactDetails = outputArtifactDetailsarg   , _codePipelineCustomActionTypeProvider = providerarg   , _codePipelineCustomActionTypeSettings = Nothing-  , _codePipelineCustomActionTypeVersion = Nothing+  , _codePipelineCustomActionTypeVersion = versionarg   }  -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-codepipeline-customactiontype.html#cfn-codepipeline-customactiontype-category@@ -85,5 +86,5 @@ cpcatSettings = lens _codePipelineCustomActionTypeSettings (\s a -> s { _codePipelineCustomActionTypeSettings = a })  -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-codepipeline-customactiontype.html#cfn-codepipeline-customactiontype-version-cpcatVersion :: Lens' CodePipelineCustomActionType (Maybe (Val Text))+cpcatVersion :: Lens' CodePipelineCustomActionType (Val Text) cpcatVersion = lens _codePipelineCustomActionTypeVersion (\s a -> s { _codePipelineCustomActionTypeVersion = a })
+ library-gen/Stratosphere/Resources/EC2ClientVpnAuthorizationRule.hs view
@@ -0,0 +1,71 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ec2-clientvpnauthorizationrule.html++module Stratosphere.Resources.EC2ClientVpnAuthorizationRule where++import Stratosphere.ResourceImports+++-- | Full data type definition for EC2ClientVpnAuthorizationRule. See+-- 'ec2ClientVpnAuthorizationRule' for a more convenient constructor.+data EC2ClientVpnAuthorizationRule =+  EC2ClientVpnAuthorizationRule+  { _eC2ClientVpnAuthorizationRuleAccessGroupId :: Maybe (Val Text)+  , _eC2ClientVpnAuthorizationRuleAuthorizeAllGroups :: Maybe (Val Bool)+  , _eC2ClientVpnAuthorizationRuleClientVpnEndpointId :: Val Text+  , _eC2ClientVpnAuthorizationRuleDescription :: Maybe (Val Text)+  , _eC2ClientVpnAuthorizationRuleTargetNetworkCidr :: Val Text+  } deriving (Show, Eq)++instance ToResourceProperties EC2ClientVpnAuthorizationRule where+  toResourceProperties EC2ClientVpnAuthorizationRule{..} =+    ResourceProperties+    { resourcePropertiesType = "AWS::EC2::ClientVpnAuthorizationRule"+    , resourcePropertiesProperties =+        hashMapFromList $ catMaybes+        [ fmap (("AccessGroupId",) . toJSON) _eC2ClientVpnAuthorizationRuleAccessGroupId+        , fmap (("AuthorizeAllGroups",) . toJSON) _eC2ClientVpnAuthorizationRuleAuthorizeAllGroups+        , (Just . ("ClientVpnEndpointId",) . toJSON) _eC2ClientVpnAuthorizationRuleClientVpnEndpointId+        , fmap (("Description",) . toJSON) _eC2ClientVpnAuthorizationRuleDescription+        , (Just . ("TargetNetworkCidr",) . toJSON) _eC2ClientVpnAuthorizationRuleTargetNetworkCidr+        ]+    }++-- | Constructor for 'EC2ClientVpnAuthorizationRule' containing required+-- fields as arguments.+ec2ClientVpnAuthorizationRule+  :: Val Text -- ^ 'eccvarClientVpnEndpointId'+  -> Val Text -- ^ 'eccvarTargetNetworkCidr'+  -> EC2ClientVpnAuthorizationRule+ec2ClientVpnAuthorizationRule clientVpnEndpointIdarg targetNetworkCidrarg =+  EC2ClientVpnAuthorizationRule+  { _eC2ClientVpnAuthorizationRuleAccessGroupId = Nothing+  , _eC2ClientVpnAuthorizationRuleAuthorizeAllGroups = Nothing+  , _eC2ClientVpnAuthorizationRuleClientVpnEndpointId = clientVpnEndpointIdarg+  , _eC2ClientVpnAuthorizationRuleDescription = Nothing+  , _eC2ClientVpnAuthorizationRuleTargetNetworkCidr = targetNetworkCidrarg+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ec2-clientvpnauthorizationrule.html#cfn-ec2-clientvpnauthorizationrule-accessgroupid+eccvarAccessGroupId :: Lens' EC2ClientVpnAuthorizationRule (Maybe (Val Text))+eccvarAccessGroupId = lens _eC2ClientVpnAuthorizationRuleAccessGroupId (\s a -> s { _eC2ClientVpnAuthorizationRuleAccessGroupId = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ec2-clientvpnauthorizationrule.html#cfn-ec2-clientvpnauthorizationrule-authorizeallgroups+eccvarAuthorizeAllGroups :: Lens' EC2ClientVpnAuthorizationRule (Maybe (Val Bool))+eccvarAuthorizeAllGroups = lens _eC2ClientVpnAuthorizationRuleAuthorizeAllGroups (\s a -> s { _eC2ClientVpnAuthorizationRuleAuthorizeAllGroups = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ec2-clientvpnauthorizationrule.html#cfn-ec2-clientvpnauthorizationrule-clientvpnendpointid+eccvarClientVpnEndpointId :: Lens' EC2ClientVpnAuthorizationRule (Val Text)+eccvarClientVpnEndpointId = lens _eC2ClientVpnAuthorizationRuleClientVpnEndpointId (\s a -> s { _eC2ClientVpnAuthorizationRuleClientVpnEndpointId = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ec2-clientvpnauthorizationrule.html#cfn-ec2-clientvpnauthorizationrule-description+eccvarDescription :: Lens' EC2ClientVpnAuthorizationRule (Maybe (Val Text))+eccvarDescription = lens _eC2ClientVpnAuthorizationRuleDescription (\s a -> s { _eC2ClientVpnAuthorizationRuleDescription = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ec2-clientvpnauthorizationrule.html#cfn-ec2-clientvpnauthorizationrule-targetnetworkcidr+eccvarTargetNetworkCidr :: Lens' EC2ClientVpnAuthorizationRule (Val Text)+eccvarTargetNetworkCidr = lens _eC2ClientVpnAuthorizationRuleTargetNetworkCidr (\s a -> s { _eC2ClientVpnAuthorizationRuleTargetNetworkCidr = a })
+ library-gen/Stratosphere/Resources/EC2ClientVpnEndpoint.hs view
@@ -0,0 +1,96 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ec2-clientvpnendpoint.html++module Stratosphere.Resources.EC2ClientVpnEndpoint where++import Stratosphere.ResourceImports+import Stratosphere.ResourceProperties.EC2ClientVpnEndpointClientAuthenticationRequest+import Stratosphere.ResourceProperties.EC2ClientVpnEndpointConnectionLogOptions+import Stratosphere.ResourceProperties.EC2ClientVpnEndpointTagSpecification++-- | Full data type definition for EC2ClientVpnEndpoint. See+-- 'ec2ClientVpnEndpoint' for a more convenient constructor.+data EC2ClientVpnEndpoint =+  EC2ClientVpnEndpoint+  { _eC2ClientVpnEndpointAuthenticationOptions :: [EC2ClientVpnEndpointClientAuthenticationRequest]+  , _eC2ClientVpnEndpointClientCidrBlock :: Val Text+  , _eC2ClientVpnEndpointConnectionLogOptions :: EC2ClientVpnEndpointConnectionLogOptions+  , _eC2ClientVpnEndpointDescription :: Maybe (Val Text)+  , _eC2ClientVpnEndpointDnsServers :: Maybe (ValList Text)+  , _eC2ClientVpnEndpointServerCertificateArn :: Val Text+  , _eC2ClientVpnEndpointTagSpecifications :: Maybe [EC2ClientVpnEndpointTagSpecification]+  , _eC2ClientVpnEndpointTransportProtocol :: Maybe (Val Text)+  } deriving (Show, Eq)++instance ToResourceProperties EC2ClientVpnEndpoint where+  toResourceProperties EC2ClientVpnEndpoint{..} =+    ResourceProperties+    { resourcePropertiesType = "AWS::EC2::ClientVpnEndpoint"+    , resourcePropertiesProperties =+        hashMapFromList $ catMaybes+        [ (Just . ("AuthenticationOptions",) . toJSON) _eC2ClientVpnEndpointAuthenticationOptions+        , (Just . ("ClientCidrBlock",) . toJSON) _eC2ClientVpnEndpointClientCidrBlock+        , (Just . ("ConnectionLogOptions",) . toJSON) _eC2ClientVpnEndpointConnectionLogOptions+        , fmap (("Description",) . toJSON) _eC2ClientVpnEndpointDescription+        , fmap (("DnsServers",) . toJSON) _eC2ClientVpnEndpointDnsServers+        , (Just . ("ServerCertificateArn",) . toJSON) _eC2ClientVpnEndpointServerCertificateArn+        , fmap (("TagSpecifications",) . toJSON) _eC2ClientVpnEndpointTagSpecifications+        , fmap (("TransportProtocol",) . toJSON) _eC2ClientVpnEndpointTransportProtocol+        ]+    }++-- | Constructor for 'EC2ClientVpnEndpoint' containing required fields as+-- arguments.+ec2ClientVpnEndpoint+  :: [EC2ClientVpnEndpointClientAuthenticationRequest] -- ^ 'eccveAuthenticationOptions'+  -> Val Text -- ^ 'eccveClientCidrBlock'+  -> EC2ClientVpnEndpointConnectionLogOptions -- ^ 'eccveConnectionLogOptions'+  -> Val Text -- ^ 'eccveServerCertificateArn'+  -> EC2ClientVpnEndpoint+ec2ClientVpnEndpoint authenticationOptionsarg clientCidrBlockarg connectionLogOptionsarg serverCertificateArnarg =+  EC2ClientVpnEndpoint+  { _eC2ClientVpnEndpointAuthenticationOptions = authenticationOptionsarg+  , _eC2ClientVpnEndpointClientCidrBlock = clientCidrBlockarg+  , _eC2ClientVpnEndpointConnectionLogOptions = connectionLogOptionsarg+  , _eC2ClientVpnEndpointDescription = Nothing+  , _eC2ClientVpnEndpointDnsServers = Nothing+  , _eC2ClientVpnEndpointServerCertificateArn = serverCertificateArnarg+  , _eC2ClientVpnEndpointTagSpecifications = Nothing+  , _eC2ClientVpnEndpointTransportProtocol = Nothing+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ec2-clientvpnendpoint.html#cfn-ec2-clientvpnendpoint-authenticationoptions+eccveAuthenticationOptions :: Lens' EC2ClientVpnEndpoint [EC2ClientVpnEndpointClientAuthenticationRequest]+eccveAuthenticationOptions = lens _eC2ClientVpnEndpointAuthenticationOptions (\s a -> s { _eC2ClientVpnEndpointAuthenticationOptions = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ec2-clientvpnendpoint.html#cfn-ec2-clientvpnendpoint-clientcidrblock+eccveClientCidrBlock :: Lens' EC2ClientVpnEndpoint (Val Text)+eccveClientCidrBlock = lens _eC2ClientVpnEndpointClientCidrBlock (\s a -> s { _eC2ClientVpnEndpointClientCidrBlock = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ec2-clientvpnendpoint.html#cfn-ec2-clientvpnendpoint-connectionlogoptions+eccveConnectionLogOptions :: Lens' EC2ClientVpnEndpoint EC2ClientVpnEndpointConnectionLogOptions+eccveConnectionLogOptions = lens _eC2ClientVpnEndpointConnectionLogOptions (\s a -> s { _eC2ClientVpnEndpointConnectionLogOptions = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ec2-clientvpnendpoint.html#cfn-ec2-clientvpnendpoint-description+eccveDescription :: Lens' EC2ClientVpnEndpoint (Maybe (Val Text))+eccveDescription = lens _eC2ClientVpnEndpointDescription (\s a -> s { _eC2ClientVpnEndpointDescription = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ec2-clientvpnendpoint.html#cfn-ec2-clientvpnendpoint-dnsservers+eccveDnsServers :: Lens' EC2ClientVpnEndpoint (Maybe (ValList Text))+eccveDnsServers = lens _eC2ClientVpnEndpointDnsServers (\s a -> s { _eC2ClientVpnEndpointDnsServers = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ec2-clientvpnendpoint.html#cfn-ec2-clientvpnendpoint-servercertificatearn+eccveServerCertificateArn :: Lens' EC2ClientVpnEndpoint (Val Text)+eccveServerCertificateArn = lens _eC2ClientVpnEndpointServerCertificateArn (\s a -> s { _eC2ClientVpnEndpointServerCertificateArn = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ec2-clientvpnendpoint.html#cfn-ec2-clientvpnendpoint-tagspecifications+eccveTagSpecifications :: Lens' EC2ClientVpnEndpoint (Maybe [EC2ClientVpnEndpointTagSpecification])+eccveTagSpecifications = lens _eC2ClientVpnEndpointTagSpecifications (\s a -> s { _eC2ClientVpnEndpointTagSpecifications = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ec2-clientvpnendpoint.html#cfn-ec2-clientvpnendpoint-transportprotocol+eccveTransportProtocol :: Lens' EC2ClientVpnEndpoint (Maybe (Val Text))+eccveTransportProtocol = lens _eC2ClientVpnEndpointTransportProtocol (\s a -> s { _eC2ClientVpnEndpointTransportProtocol = a })
+ library-gen/Stratosphere/Resources/EC2ClientVpnRoute.hs view
@@ -0,0 +1,65 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ec2-clientvpnroute.html++module Stratosphere.Resources.EC2ClientVpnRoute where++import Stratosphere.ResourceImports+++-- | Full data type definition for EC2ClientVpnRoute. See 'ec2ClientVpnRoute'+-- for a more convenient constructor.+data EC2ClientVpnRoute =+  EC2ClientVpnRoute+  { _eC2ClientVpnRouteClientVpnEndpointId :: Val Text+  , _eC2ClientVpnRouteDescription :: Maybe (Val Text)+  , _eC2ClientVpnRouteDestinationCidrBlock :: Val Text+  , _eC2ClientVpnRouteTargetVpcSubnetId :: Val Text+  } deriving (Show, Eq)++instance ToResourceProperties EC2ClientVpnRoute where+  toResourceProperties EC2ClientVpnRoute{..} =+    ResourceProperties+    { resourcePropertiesType = "AWS::EC2::ClientVpnRoute"+    , resourcePropertiesProperties =+        hashMapFromList $ catMaybes+        [ (Just . ("ClientVpnEndpointId",) . toJSON) _eC2ClientVpnRouteClientVpnEndpointId+        , fmap (("Description",) . toJSON) _eC2ClientVpnRouteDescription+        , (Just . ("DestinationCidrBlock",) . toJSON) _eC2ClientVpnRouteDestinationCidrBlock+        , (Just . ("TargetVpcSubnetId",) . toJSON) _eC2ClientVpnRouteTargetVpcSubnetId+        ]+    }++-- | Constructor for 'EC2ClientVpnRoute' containing required fields as+-- arguments.+ec2ClientVpnRoute+  :: Val Text -- ^ 'eccvrClientVpnEndpointId'+  -> Val Text -- ^ 'eccvrDestinationCidrBlock'+  -> Val Text -- ^ 'eccvrTargetVpcSubnetId'+  -> EC2ClientVpnRoute+ec2ClientVpnRoute clientVpnEndpointIdarg destinationCidrBlockarg targetVpcSubnetIdarg =+  EC2ClientVpnRoute+  { _eC2ClientVpnRouteClientVpnEndpointId = clientVpnEndpointIdarg+  , _eC2ClientVpnRouteDescription = Nothing+  , _eC2ClientVpnRouteDestinationCidrBlock = destinationCidrBlockarg+  , _eC2ClientVpnRouteTargetVpcSubnetId = targetVpcSubnetIdarg+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ec2-clientvpnroute.html#cfn-ec2-clientvpnroute-clientvpnendpointid+eccvrClientVpnEndpointId :: Lens' EC2ClientVpnRoute (Val Text)+eccvrClientVpnEndpointId = lens _eC2ClientVpnRouteClientVpnEndpointId (\s a -> s { _eC2ClientVpnRouteClientVpnEndpointId = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ec2-clientvpnroute.html#cfn-ec2-clientvpnroute-description+eccvrDescription :: Lens' EC2ClientVpnRoute (Maybe (Val Text))+eccvrDescription = lens _eC2ClientVpnRouteDescription (\s a -> s { _eC2ClientVpnRouteDescription = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ec2-clientvpnroute.html#cfn-ec2-clientvpnroute-destinationcidrblock+eccvrDestinationCidrBlock :: Lens' EC2ClientVpnRoute (Val Text)+eccvrDestinationCidrBlock = lens _eC2ClientVpnRouteDestinationCidrBlock (\s a -> s { _eC2ClientVpnRouteDestinationCidrBlock = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ec2-clientvpnroute.html#cfn-ec2-clientvpnroute-targetvpcsubnetid+eccvrTargetVpcSubnetId :: Lens' EC2ClientVpnRoute (Val Text)+eccvrTargetVpcSubnetId = lens _eC2ClientVpnRouteTargetVpcSubnetId (\s a -> s { _eC2ClientVpnRouteTargetVpcSubnetId = a })
+ library-gen/Stratosphere/Resources/EC2ClientVpnTargetNetworkAssociation.hs view
@@ -0,0 +1,50 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ec2-clientvpntargetnetworkassociation.html++module Stratosphere.Resources.EC2ClientVpnTargetNetworkAssociation where++import Stratosphere.ResourceImports+++-- | Full data type definition for EC2ClientVpnTargetNetworkAssociation. See+-- 'ec2ClientVpnTargetNetworkAssociation' for a more convenient constructor.+data EC2ClientVpnTargetNetworkAssociation =+  EC2ClientVpnTargetNetworkAssociation+  { _eC2ClientVpnTargetNetworkAssociationClientVpnEndpointId :: Val Text+  , _eC2ClientVpnTargetNetworkAssociationSubnetId :: Val Text+  } deriving (Show, Eq)++instance ToResourceProperties EC2ClientVpnTargetNetworkAssociation where+  toResourceProperties EC2ClientVpnTargetNetworkAssociation{..} =+    ResourceProperties+    { resourcePropertiesType = "AWS::EC2::ClientVpnTargetNetworkAssociation"+    , resourcePropertiesProperties =+        hashMapFromList $ catMaybes+        [ (Just . ("ClientVpnEndpointId",) . toJSON) _eC2ClientVpnTargetNetworkAssociationClientVpnEndpointId+        , (Just . ("SubnetId",) . toJSON) _eC2ClientVpnTargetNetworkAssociationSubnetId+        ]+    }++-- | Constructor for 'EC2ClientVpnTargetNetworkAssociation' containing+-- required fields as arguments.+ec2ClientVpnTargetNetworkAssociation+  :: Val Text -- ^ 'eccvtnaClientVpnEndpointId'+  -> Val Text -- ^ 'eccvtnaSubnetId'+  -> EC2ClientVpnTargetNetworkAssociation+ec2ClientVpnTargetNetworkAssociation clientVpnEndpointIdarg subnetIdarg =+  EC2ClientVpnTargetNetworkAssociation+  { _eC2ClientVpnTargetNetworkAssociationClientVpnEndpointId = clientVpnEndpointIdarg+  , _eC2ClientVpnTargetNetworkAssociationSubnetId = subnetIdarg+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ec2-clientvpntargetnetworkassociation.html#cfn-ec2-clientvpntargetnetworkassociation-clientvpnendpointid+eccvtnaClientVpnEndpointId :: Lens' EC2ClientVpnTargetNetworkAssociation (Val Text)+eccvtnaClientVpnEndpointId = lens _eC2ClientVpnTargetNetworkAssociationClientVpnEndpointId (\s a -> s { _eC2ClientVpnTargetNetworkAssociationClientVpnEndpointId = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ec2-clientvpntargetnetworkassociation.html#cfn-ec2-clientvpntargetnetworkassociation-subnetid+eccvtnaSubnetId :: Lens' EC2ClientVpnTargetNetworkAssociation (Val Text)+eccvtnaSubnetId = lens _eC2ClientVpnTargetNetworkAssociationSubnetId (\s a -> s { _eC2ClientVpnTargetNetworkAssociationSubnetId = a })
library-gen/Stratosphere/Resources/EC2Host.hs view
@@ -16,6 +16,7 @@   EC2Host   { _eC2HostAutoPlacement :: Maybe (Val Text)   , _eC2HostAvailabilityZone :: Val Text+  , _eC2HostHostRecovery :: Maybe (Val Text)   , _eC2HostInstanceType :: Val Text   } deriving (Show, Eq) @@ -27,6 +28,7 @@         hashMapFromList $ catMaybes         [ fmap (("AutoPlacement",) . toJSON) _eC2HostAutoPlacement         , (Just . ("AvailabilityZone",) . toJSON) _eC2HostAvailabilityZone+        , fmap (("HostRecovery",) . toJSON) _eC2HostHostRecovery         , (Just . ("InstanceType",) . toJSON) _eC2HostInstanceType         ]     }@@ -40,6 +42,7 @@   EC2Host   { _eC2HostAutoPlacement = Nothing   , _eC2HostAvailabilityZone = availabilityZonearg+  , _eC2HostHostRecovery = Nothing   , _eC2HostInstanceType = instanceTypearg   } @@ -50,6 +53,10 @@ -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ec2-host.html#cfn-ec2-host-availabilityzone echAvailabilityZone :: Lens' EC2Host (Val Text) echAvailabilityZone = lens _eC2HostAvailabilityZone (\s a -> s { _eC2HostAvailabilityZone = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ec2-host.html#cfn-ec2-host-hostrecovery+echHostRecovery :: Lens' EC2Host (Maybe (Val Text))+echHostRecovery = lens _eC2HostHostRecovery (\s a -> s { _eC2HostHostRecovery = a })  -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ec2-host.html#cfn-ec2-host-instancetype echInstanceType :: Lens' EC2Host (Val Text)
library-gen/Stratosphere/Resources/EC2Route.hs view
@@ -22,6 +22,7 @@   , _eC2RouteNatGatewayId :: Maybe (Val Text)   , _eC2RouteNetworkInterfaceId :: Maybe (Val Text)   , _eC2RouteRouteTableId :: Val Text+  , _eC2RouteTransitGatewayId :: Maybe (Val Text)   , _eC2RouteVpcPeeringConnectionId :: Maybe (Val Text)   } deriving (Show, Eq) @@ -39,6 +40,7 @@         , fmap (("NatGatewayId",) . toJSON) _eC2RouteNatGatewayId         , fmap (("NetworkInterfaceId",) . toJSON) _eC2RouteNetworkInterfaceId         , (Just . ("RouteTableId",) . toJSON) _eC2RouteRouteTableId+        , fmap (("TransitGatewayId",) . toJSON) _eC2RouteTransitGatewayId         , fmap (("VpcPeeringConnectionId",) . toJSON) _eC2RouteVpcPeeringConnectionId         ]     }@@ -57,6 +59,7 @@   , _eC2RouteNatGatewayId = Nothing   , _eC2RouteNetworkInterfaceId = Nothing   , _eC2RouteRouteTableId = routeTableIdarg+  , _eC2RouteTransitGatewayId = Nothing   , _eC2RouteVpcPeeringConnectionId = Nothing   } @@ -91,6 +94,10 @@ -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ec2-route.html#cfn-ec2-route-routetableid ecrRouteTableId :: Lens' EC2Route (Val Text) ecrRouteTableId = lens _eC2RouteRouteTableId (\s a -> s { _eC2RouteRouteTableId = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ec2-route.html#cfn-ec2-route-transitgatewayid+ecrTransitGatewayId :: Lens' EC2Route (Maybe (Val Text))+ecrTransitGatewayId = lens _eC2RouteTransitGatewayId (\s a -> s { _eC2RouteTransitGatewayId = a })  -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ec2-route.html#cfn-ec2-route-vpcpeeringconnectionid ecrVpcPeeringConnectionId :: Lens' EC2Route (Maybe (Val Text))
library-gen/Stratosphere/Resources/EC2VPNConnection.hs view
@@ -18,8 +18,9 @@   { _eC2VPNConnectionCustomerGatewayId :: Val Text   , _eC2VPNConnectionStaticRoutesOnly :: Maybe (Val Bool)   , _eC2VPNConnectionTags :: Maybe [Tag]+  , _eC2VPNConnectionTransitGatewayId :: Maybe (Val Text)   , _eC2VPNConnectionType :: Val Text-  , _eC2VPNConnectionVpnGatewayId :: Val Text+  , _eC2VPNConnectionVpnGatewayId :: Maybe (Val Text)   , _eC2VPNConnectionVpnTunnelOptionsSpecifications :: Maybe [EC2VPNConnectionVpnTunnelOptionsSpecification]   } deriving (Show, Eq) @@ -32,8 +33,9 @@         [ (Just . ("CustomerGatewayId",) . toJSON) _eC2VPNConnectionCustomerGatewayId         , fmap (("StaticRoutesOnly",) . toJSON) _eC2VPNConnectionStaticRoutesOnly         , fmap (("Tags",) . toJSON) _eC2VPNConnectionTags+        , fmap (("TransitGatewayId",) . toJSON) _eC2VPNConnectionTransitGatewayId         , (Just . ("Type",) . toJSON) _eC2VPNConnectionType-        , (Just . ("VpnGatewayId",) . toJSON) _eC2VPNConnectionVpnGatewayId+        , fmap (("VpnGatewayId",) . toJSON) _eC2VPNConnectionVpnGatewayId         , fmap (("VpnTunnelOptionsSpecifications",) . toJSON) _eC2VPNConnectionVpnTunnelOptionsSpecifications         ]     }@@ -43,15 +45,15 @@ ec2VPNConnection   :: Val Text -- ^ 'ecvpncCustomerGatewayId'   -> Val Text -- ^ 'ecvpncType'-  -> Val Text -- ^ 'ecvpncVpnGatewayId'   -> EC2VPNConnection-ec2VPNConnection customerGatewayIdarg typearg vpnGatewayIdarg =+ec2VPNConnection customerGatewayIdarg typearg =   EC2VPNConnection   { _eC2VPNConnectionCustomerGatewayId = customerGatewayIdarg   , _eC2VPNConnectionStaticRoutesOnly = Nothing   , _eC2VPNConnectionTags = Nothing+  , _eC2VPNConnectionTransitGatewayId = Nothing   , _eC2VPNConnectionType = typearg-  , _eC2VPNConnectionVpnGatewayId = vpnGatewayIdarg+  , _eC2VPNConnectionVpnGatewayId = Nothing   , _eC2VPNConnectionVpnTunnelOptionsSpecifications = Nothing   } @@ -67,12 +69,16 @@ ecvpncTags :: Lens' EC2VPNConnection (Maybe [Tag]) ecvpncTags = lens _eC2VPNConnectionTags (\s a -> s { _eC2VPNConnectionTags = a }) +-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ec2-vpn-connection.html#cfn-ec2-vpnconnection-transitgatewayid+ecvpncTransitGatewayId :: Lens' EC2VPNConnection (Maybe (Val Text))+ecvpncTransitGatewayId = lens _eC2VPNConnectionTransitGatewayId (\s a -> s { _eC2VPNConnectionTransitGatewayId = a })+ -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ec2-vpn-connection.html#cfn-ec2-vpnconnection-type ecvpncType :: Lens' EC2VPNConnection (Val Text) ecvpncType = lens _eC2VPNConnectionType (\s a -> s { _eC2VPNConnectionType = a })  -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ec2-vpn-connection.html#cfn-ec2-vpnconnection-vpngatewayid-ecvpncVpnGatewayId :: Lens' EC2VPNConnection (Val Text)+ecvpncVpnGatewayId :: Lens' EC2VPNConnection (Maybe (Val Text)) ecvpncVpnGatewayId = lens _eC2VPNConnectionVpnGatewayId (\s a -> s { _eC2VPNConnectionVpnGatewayId = a })  -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ec2-vpn-connection.html#cfn-ec2-vpnconnection-vpntunneloptionsspecifications
library-gen/Stratosphere/Resources/ECRRepository.hs view
@@ -9,6 +9,7 @@  import Stratosphere.ResourceImports import Stratosphere.ResourceProperties.ECRRepositoryLifecyclePolicy+import Stratosphere.ResourceProperties.Tag  -- | Full data type definition for ECRRepository. See 'ecrRepository' for a -- more convenient constructor.@@ -17,6 +18,7 @@   { _eCRRepositoryLifecyclePolicy :: Maybe ECRRepositoryLifecyclePolicy   , _eCRRepositoryRepositoryName :: Maybe (Val Text)   , _eCRRepositoryRepositoryPolicyText :: Maybe Object+  , _eCRRepositoryTags :: Maybe [Tag]   } deriving (Show, Eq)  instance ToResourceProperties ECRRepository where@@ -28,6 +30,7 @@         [ fmap (("LifecyclePolicy",) . toJSON) _eCRRepositoryLifecyclePolicy         , fmap (("RepositoryName",) . toJSON) _eCRRepositoryRepositoryName         , fmap (("RepositoryPolicyText",) . toJSON) _eCRRepositoryRepositoryPolicyText+        , fmap (("Tags",) . toJSON) _eCRRepositoryTags         ]     } @@ -39,6 +42,7 @@   { _eCRRepositoryLifecyclePolicy = Nothing   , _eCRRepositoryRepositoryName = Nothing   , _eCRRepositoryRepositoryPolicyText = Nothing+  , _eCRRepositoryTags = Nothing   }  -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ecr-repository.html#cfn-ecr-repository-lifecyclepolicy@@ -52,3 +56,7 @@ -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ecr-repository.html#cfn-ecr-repository-repositorypolicytext ecrrRepositoryPolicyText :: Lens' ECRRepository (Maybe Object) ecrrRepositoryPolicyText = lens _eCRRepositoryRepositoryPolicyText (\s a -> s { _eCRRepositoryRepositoryPolicyText = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ecr-repository.html#cfn-ecr-repository-tags+ecrrTags :: Lens' ECRRepository (Maybe [Tag])+ecrrTags = lens _eCRRepositoryTags (\s a -> s { _eCRRepositoryTags = a })
library-gen/Stratosphere/Resources/ECSCluster.hs view
@@ -8,13 +8,14 @@ module Stratosphere.Resources.ECSCluster where  import Stratosphere.ResourceImports-+import Stratosphere.ResourceProperties.Tag  -- | Full data type definition for ECSCluster. See 'ecsCluster' for a more -- convenient constructor. data ECSCluster =   ECSCluster   { _eCSClusterClusterName :: Maybe (Val Text)+  , _eCSClusterTags :: Maybe [Tag]   } deriving (Show, Eq)  instance ToResourceProperties ECSCluster where@@ -24,6 +25,7 @@     , resourcePropertiesProperties =         hashMapFromList $ catMaybes         [ fmap (("ClusterName",) . toJSON) _eCSClusterClusterName+        , fmap (("Tags",) . toJSON) _eCSClusterTags         ]     } @@ -33,8 +35,13 @@ ecsCluster  =   ECSCluster   { _eCSClusterClusterName = Nothing+  , _eCSClusterTags = Nothing   }  -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ecs-cluster.html#cfn-ecs-cluster-clustername ecscClusterName :: Lens' ECSCluster (Maybe (Val Text)) ecscClusterName = lens _eCSClusterClusterName (\s a -> s { _eCSClusterClusterName = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ecs-cluster.html#cfn-ecs-cluster-tags+ecscTags :: Lens' ECSCluster (Maybe [Tag])+ecscTags = lens _eCSClusterTags (\s a -> s { _eCSClusterTags = a })
library-gen/Stratosphere/Resources/ECSService.hs view
@@ -14,6 +14,7 @@ import Stratosphere.ResourceProperties.ECSServicePlacementConstraint import Stratosphere.ResourceProperties.ECSServicePlacementStrategy import Stratosphere.ResourceProperties.ECSServiceServiceRegistry+import Stratosphere.ResourceProperties.Tag  -- | Full data type definition for ECSService. See 'ecsService' for a more -- convenient constructor.@@ -22,6 +23,7 @@   { _eCSServiceCluster :: Maybe (Val Text)   , _eCSServiceDeploymentConfiguration :: Maybe ECSServiceDeploymentConfiguration   , _eCSServiceDesiredCount :: Maybe (Val Integer)+  , _eCSServiceEnableECSManagedTags :: Maybe (Val Bool)   , _eCSServiceHealthCheckGracePeriodSeconds :: Maybe (Val Integer)   , _eCSServiceLaunchType :: Maybe (Val Text)   , _eCSServiceLoadBalancers :: Maybe [ECSServiceLoadBalancer]@@ -29,10 +31,12 @@   , _eCSServicePlacementConstraints :: Maybe [ECSServicePlacementConstraint]   , _eCSServicePlacementStrategies :: Maybe [ECSServicePlacementStrategy]   , _eCSServicePlatformVersion :: Maybe (Val Text)+  , _eCSServicePropagateTags :: Maybe (Val Text)   , _eCSServiceRole :: Maybe (Val Text)   , _eCSServiceSchedulingStrategy :: Maybe (Val Text)   , _eCSServiceServiceName :: Maybe (Val Text)   , _eCSServiceServiceRegistries :: Maybe [ECSServiceServiceRegistry]+  , _eCSServiceTags :: Maybe [Tag]   , _eCSServiceTaskDefinition :: Val Text   } deriving (Show, Eq) @@ -45,6 +49,7 @@         [ fmap (("Cluster",) . toJSON) _eCSServiceCluster         , fmap (("DeploymentConfiguration",) . toJSON) _eCSServiceDeploymentConfiguration         , fmap (("DesiredCount",) . toJSON) _eCSServiceDesiredCount+        , fmap (("EnableECSManagedTags",) . toJSON) _eCSServiceEnableECSManagedTags         , fmap (("HealthCheckGracePeriodSeconds",) . toJSON) _eCSServiceHealthCheckGracePeriodSeconds         , fmap (("LaunchType",) . toJSON) _eCSServiceLaunchType         , fmap (("LoadBalancers",) . toJSON) _eCSServiceLoadBalancers@@ -52,10 +57,12 @@         , fmap (("PlacementConstraints",) . toJSON) _eCSServicePlacementConstraints         , fmap (("PlacementStrategies",) . toJSON) _eCSServicePlacementStrategies         , fmap (("PlatformVersion",) . toJSON) _eCSServicePlatformVersion+        , fmap (("PropagateTags",) . toJSON) _eCSServicePropagateTags         , fmap (("Role",) . toJSON) _eCSServiceRole         , fmap (("SchedulingStrategy",) . toJSON) _eCSServiceSchedulingStrategy         , fmap (("ServiceName",) . toJSON) _eCSServiceServiceName         , fmap (("ServiceRegistries",) . toJSON) _eCSServiceServiceRegistries+        , fmap (("Tags",) . toJSON) _eCSServiceTags         , (Just . ("TaskDefinition",) . toJSON) _eCSServiceTaskDefinition         ]     }@@ -69,6 +76,7 @@   { _eCSServiceCluster = Nothing   , _eCSServiceDeploymentConfiguration = Nothing   , _eCSServiceDesiredCount = Nothing+  , _eCSServiceEnableECSManagedTags = Nothing   , _eCSServiceHealthCheckGracePeriodSeconds = Nothing   , _eCSServiceLaunchType = Nothing   , _eCSServiceLoadBalancers = Nothing@@ -76,10 +84,12 @@   , _eCSServicePlacementConstraints = Nothing   , _eCSServicePlacementStrategies = Nothing   , _eCSServicePlatformVersion = Nothing+  , _eCSServicePropagateTags = Nothing   , _eCSServiceRole = Nothing   , _eCSServiceSchedulingStrategy = Nothing   , _eCSServiceServiceName = Nothing   , _eCSServiceServiceRegistries = Nothing+  , _eCSServiceTags = Nothing   , _eCSServiceTaskDefinition = taskDefinitionarg   } @@ -95,6 +105,10 @@ ecssDesiredCount :: Lens' ECSService (Maybe (Val Integer)) ecssDesiredCount = lens _eCSServiceDesiredCount (\s a -> s { _eCSServiceDesiredCount = a }) +-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ecs-service.html#cfn-ecs-service-enableecsmanagedtags+ecssEnableECSManagedTags :: Lens' ECSService (Maybe (Val Bool))+ecssEnableECSManagedTags = lens _eCSServiceEnableECSManagedTags (\s a -> s { _eCSServiceEnableECSManagedTags = a })+ -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ecs-service.html#cfn-ecs-service-healthcheckgraceperiodseconds ecssHealthCheckGracePeriodSeconds :: Lens' ECSService (Maybe (Val Integer)) ecssHealthCheckGracePeriodSeconds = lens _eCSServiceHealthCheckGracePeriodSeconds (\s a -> s { _eCSServiceHealthCheckGracePeriodSeconds = a })@@ -123,6 +137,10 @@ ecssPlatformVersion :: Lens' ECSService (Maybe (Val Text)) ecssPlatformVersion = lens _eCSServicePlatformVersion (\s a -> s { _eCSServicePlatformVersion = a }) +-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ecs-service.html#cfn-ecs-service-propagatetags+ecssPropagateTags :: Lens' ECSService (Maybe (Val Text))+ecssPropagateTags = lens _eCSServicePropagateTags (\s a -> s { _eCSServicePropagateTags = a })+ -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ecs-service.html#cfn-ecs-service-role ecssRole :: Lens' ECSService (Maybe (Val Text)) ecssRole = lens _eCSServiceRole (\s a -> s { _eCSServiceRole = a })@@ -138,6 +156,10 @@ -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ecs-service.html#cfn-ecs-service-serviceregistries ecssServiceRegistries :: Lens' ECSService (Maybe [ECSServiceServiceRegistry]) ecssServiceRegistries = lens _eCSServiceServiceRegistries (\s a -> s { _eCSServiceServiceRegistries = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ecs-service.html#cfn-ecs-service-tags+ecssTags :: Lens' ECSService (Maybe [Tag])+ecssTags = lens _eCSServiceTags (\s a -> s { _eCSServiceTags = a })  -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ecs-service.html#cfn-ecs-service-taskdefinition ecssTaskDefinition :: Lens' ECSService (Val Text)
library-gen/Stratosphere/Resources/ECSTaskDefinition.hs view
@@ -11,6 +11,7 @@ import Stratosphere.ResourceProperties.ECSTaskDefinitionContainerDefinition import Stratosphere.ResourceProperties.ECSTaskDefinitionTaskDefinitionPlacementConstraint import Stratosphere.ResourceProperties.ECSTaskDefinitionProxyConfiguration+import Stratosphere.ResourceProperties.Tag import Stratosphere.ResourceProperties.ECSTaskDefinitionVolume  -- | Full data type definition for ECSTaskDefinition. See 'ecsTaskDefinition'@@ -26,6 +27,7 @@   , _eCSTaskDefinitionPlacementConstraints :: Maybe [ECSTaskDefinitionTaskDefinitionPlacementConstraint]   , _eCSTaskDefinitionProxyConfiguration :: Maybe ECSTaskDefinitionProxyConfiguration   , _eCSTaskDefinitionRequiresCompatibilities :: Maybe (ValList Text)+  , _eCSTaskDefinitionTags :: Maybe [Tag]   , _eCSTaskDefinitionTaskRoleArn :: Maybe (Val Text)   , _eCSTaskDefinitionVolumes :: Maybe [ECSTaskDefinitionVolume]   } deriving (Show, Eq)@@ -45,6 +47,7 @@         , fmap (("PlacementConstraints",) . toJSON) _eCSTaskDefinitionPlacementConstraints         , fmap (("ProxyConfiguration",) . toJSON) _eCSTaskDefinitionProxyConfiguration         , fmap (("RequiresCompatibilities",) . toJSON) _eCSTaskDefinitionRequiresCompatibilities+        , fmap (("Tags",) . toJSON) _eCSTaskDefinitionTags         , fmap (("TaskRoleArn",) . toJSON) _eCSTaskDefinitionTaskRoleArn         , fmap (("Volumes",) . toJSON) _eCSTaskDefinitionVolumes         ]@@ -65,6 +68,7 @@   , _eCSTaskDefinitionPlacementConstraints = Nothing   , _eCSTaskDefinitionProxyConfiguration = Nothing   , _eCSTaskDefinitionRequiresCompatibilities = Nothing+  , _eCSTaskDefinitionTags = Nothing   , _eCSTaskDefinitionTaskRoleArn = Nothing   , _eCSTaskDefinitionVolumes = Nothing   }@@ -104,6 +108,10 @@ -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ecs-taskdefinition.html#cfn-ecs-taskdefinition-requirescompatibilities ecstdRequiresCompatibilities :: Lens' ECSTaskDefinition (Maybe (ValList Text)) ecstdRequiresCompatibilities = lens _eCSTaskDefinitionRequiresCompatibilities (\s a -> s { _eCSTaskDefinitionRequiresCompatibilities = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ecs-taskdefinition.html#cfn-ecs-taskdefinition-tags+ecstdTags :: Lens' ECSTaskDefinition (Maybe [Tag])+ecstdTags = lens _eCSTaskDefinitionTags (\s a -> s { _eCSTaskDefinitionTags = a })  -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ecs-taskdefinition.html#cfn-ecs-taskdefinition-taskrolearn ecstdTaskRoleArn :: Lens' ECSTaskDefinition (Maybe (Val Text))
library-gen/Stratosphere/Resources/EFSFileSystem.hs view
@@ -9,6 +9,7 @@  import Stratosphere.ResourceImports import Stratosphere.ResourceProperties.EFSFileSystemElasticFileSystemTag+import Stratosphere.ResourceProperties.EFSFileSystemLifecyclePolicy  -- | Full data type definition for EFSFileSystem. See 'efsFileSystem' for a -- more convenient constructor.@@ -17,6 +18,7 @@   { _eFSFileSystemEncrypted :: Maybe (Val Bool)   , _eFSFileSystemFileSystemTags :: Maybe [EFSFileSystemElasticFileSystemTag]   , _eFSFileSystemKmsKeyId :: Maybe (Val Text)+  , _eFSFileSystemLifecyclePolicies :: Maybe [EFSFileSystemLifecyclePolicy]   , _eFSFileSystemPerformanceMode :: Maybe (Val Text)   , _eFSFileSystemProvisionedThroughputInMibps :: Maybe (Val Double)   , _eFSFileSystemThroughputMode :: Maybe (Val Text)@@ -31,6 +33,7 @@         [ fmap (("Encrypted",) . toJSON) _eFSFileSystemEncrypted         , fmap (("FileSystemTags",) . toJSON) _eFSFileSystemFileSystemTags         , fmap (("KmsKeyId",) . toJSON) _eFSFileSystemKmsKeyId+        , fmap (("LifecyclePolicies",) . toJSON) _eFSFileSystemLifecyclePolicies         , fmap (("PerformanceMode",) . toJSON) _eFSFileSystemPerformanceMode         , fmap (("ProvisionedThroughputInMibps",) . toJSON) _eFSFileSystemProvisionedThroughputInMibps         , fmap (("ThroughputMode",) . toJSON) _eFSFileSystemThroughputMode@@ -45,6 +48,7 @@   { _eFSFileSystemEncrypted = Nothing   , _eFSFileSystemFileSystemTags = Nothing   , _eFSFileSystemKmsKeyId = Nothing+  , _eFSFileSystemLifecyclePolicies = Nothing   , _eFSFileSystemPerformanceMode = Nothing   , _eFSFileSystemProvisionedThroughputInMibps = Nothing   , _eFSFileSystemThroughputMode = Nothing@@ -61,6 +65,10 @@ -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-efs-filesystem.html#cfn-efs-filesystem-kmskeyid efsfsKmsKeyId :: Lens' EFSFileSystem (Maybe (Val Text)) efsfsKmsKeyId = lens _eFSFileSystemKmsKeyId (\s a -> s { _eFSFileSystemKmsKeyId = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-efs-filesystem.html#cfn-elasticfilesystem-filesystem-lifecyclepolicies+efsfsLifecyclePolicies :: Lens' EFSFileSystem (Maybe [EFSFileSystemLifecyclePolicy])+efsfsLifecyclePolicies = lens _eFSFileSystemLifecyclePolicies (\s a -> s { _eFSFileSystemLifecyclePolicies = a })  -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-efs-filesystem.html#cfn-efs-filesystem-performancemode efsfsPerformanceMode :: Lens' EFSFileSystem (Maybe (Val Text))
library-gen/Stratosphere/Resources/IoTAnalyticsDataset.hs view
@@ -9,19 +9,23 @@  import Stratosphere.ResourceImports import Stratosphere.ResourceProperties.IoTAnalyticsDatasetAction+import Stratosphere.ResourceProperties.IoTAnalyticsDatasetDatasetContentDeliveryRule import Stratosphere.ResourceProperties.IoTAnalyticsDatasetRetentionPeriod import Stratosphere.ResourceProperties.Tag import Stratosphere.ResourceProperties.IoTAnalyticsDatasetTrigger+import Stratosphere.ResourceProperties.IoTAnalyticsDatasetVersioningConfiguration  -- | Full data type definition for IoTAnalyticsDataset. See -- 'ioTAnalyticsDataset' for a more convenient constructor. data IoTAnalyticsDataset =   IoTAnalyticsDataset   { _ioTAnalyticsDatasetActions :: [IoTAnalyticsDatasetAction]+  , _ioTAnalyticsDatasetContentDeliveryRules :: Maybe [IoTAnalyticsDatasetDatasetContentDeliveryRule]   , _ioTAnalyticsDatasetDatasetName :: Maybe (Val Text)   , _ioTAnalyticsDatasetRetentionPeriod :: Maybe IoTAnalyticsDatasetRetentionPeriod   , _ioTAnalyticsDatasetTags :: Maybe [Tag]   , _ioTAnalyticsDatasetTriggers :: Maybe [IoTAnalyticsDatasetTrigger]+  , _ioTAnalyticsDatasetVersioningConfiguration :: Maybe IoTAnalyticsDatasetVersioningConfiguration   } deriving (Show, Eq)  instance ToResourceProperties IoTAnalyticsDataset where@@ -31,10 +35,12 @@     , resourcePropertiesProperties =         hashMapFromList $ catMaybes         [ (Just . ("Actions",) . toJSON) _ioTAnalyticsDatasetActions+        , fmap (("ContentDeliveryRules",) . toJSON) _ioTAnalyticsDatasetContentDeliveryRules         , fmap (("DatasetName",) . toJSON) _ioTAnalyticsDatasetDatasetName         , fmap (("RetentionPeriod",) . toJSON) _ioTAnalyticsDatasetRetentionPeriod         , fmap (("Tags",) . toJSON) _ioTAnalyticsDatasetTags         , fmap (("Triggers",) . toJSON) _ioTAnalyticsDatasetTriggers+        , fmap (("VersioningConfiguration",) . toJSON) _ioTAnalyticsDatasetVersioningConfiguration         ]     } @@ -46,16 +52,22 @@ ioTAnalyticsDataset actionsarg =   IoTAnalyticsDataset   { _ioTAnalyticsDatasetActions = actionsarg+  , _ioTAnalyticsDatasetContentDeliveryRules = Nothing   , _ioTAnalyticsDatasetDatasetName = Nothing   , _ioTAnalyticsDatasetRetentionPeriod = Nothing   , _ioTAnalyticsDatasetTags = Nothing   , _ioTAnalyticsDatasetTriggers = Nothing+  , _ioTAnalyticsDatasetVersioningConfiguration = Nothing   }  -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-iotanalytics-dataset.html#cfn-iotanalytics-dataset-actions itadsActions :: Lens' IoTAnalyticsDataset [IoTAnalyticsDatasetAction] itadsActions = lens _ioTAnalyticsDatasetActions (\s a -> s { _ioTAnalyticsDatasetActions = a }) +-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-iotanalytics-dataset.html#cfn-iotanalytics-dataset-contentdeliveryrules+itadsContentDeliveryRules :: Lens' IoTAnalyticsDataset (Maybe [IoTAnalyticsDatasetDatasetContentDeliveryRule])+itadsContentDeliveryRules = lens _ioTAnalyticsDatasetContentDeliveryRules (\s a -> s { _ioTAnalyticsDatasetContentDeliveryRules = a })+ -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-iotanalytics-dataset.html#cfn-iotanalytics-dataset-datasetname itadsDatasetName :: Lens' IoTAnalyticsDataset (Maybe (Val Text)) itadsDatasetName = lens _ioTAnalyticsDatasetDatasetName (\s a -> s { _ioTAnalyticsDatasetDatasetName = a })@@ -71,3 +83,7 @@ -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-iotanalytics-dataset.html#cfn-iotanalytics-dataset-triggers itadsTriggers :: Lens' IoTAnalyticsDataset (Maybe [IoTAnalyticsDatasetTrigger]) itadsTriggers = lens _ioTAnalyticsDatasetTriggers (\s a -> s { _ioTAnalyticsDatasetTriggers = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-iotanalytics-dataset.html#cfn-iotanalytics-dataset-versioningconfiguration+itadsVersioningConfiguration :: Lens' IoTAnalyticsDataset (Maybe IoTAnalyticsDatasetVersioningConfiguration)+itadsVersioningConfiguration = lens _ioTAnalyticsDatasetVersioningConfiguration (\s a -> s { _ioTAnalyticsDatasetVersioningConfiguration = a })
+ library-gen/Stratosphere/Resources/IoTThingsGraphFlowTemplate.hs view
@@ -0,0 +1,49 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-iotthingsgraph-flowtemplate.html++module Stratosphere.Resources.IoTThingsGraphFlowTemplate where++import Stratosphere.ResourceImports+import Stratosphere.ResourceProperties.IoTThingsGraphFlowTemplateDefinitionDocument++-- | Full data type definition for IoTThingsGraphFlowTemplate. See+-- 'ioTThingsGraphFlowTemplate' for a more convenient constructor.+data IoTThingsGraphFlowTemplate =+  IoTThingsGraphFlowTemplate+  { _ioTThingsGraphFlowTemplateCompatibleNamespaceVersion :: Maybe (Val Double)+  , _ioTThingsGraphFlowTemplateDefinition :: IoTThingsGraphFlowTemplateDefinitionDocument+  } deriving (Show, Eq)++instance ToResourceProperties IoTThingsGraphFlowTemplate where+  toResourceProperties IoTThingsGraphFlowTemplate{..} =+    ResourceProperties+    { resourcePropertiesType = "AWS::IoTThingsGraph::FlowTemplate"+    , resourcePropertiesProperties =+        hashMapFromList $ catMaybes+        [ fmap (("CompatibleNamespaceVersion",) . toJSON) _ioTThingsGraphFlowTemplateCompatibleNamespaceVersion+        , (Just . ("Definition",) . toJSON) _ioTThingsGraphFlowTemplateDefinition+        ]+    }++-- | Constructor for 'IoTThingsGraphFlowTemplate' containing required fields+-- as arguments.+ioTThingsGraphFlowTemplate+  :: IoTThingsGraphFlowTemplateDefinitionDocument -- ^ 'ittgftDefinition'+  -> IoTThingsGraphFlowTemplate+ioTThingsGraphFlowTemplate definitionarg =+  IoTThingsGraphFlowTemplate+  { _ioTThingsGraphFlowTemplateCompatibleNamespaceVersion = Nothing+  , _ioTThingsGraphFlowTemplateDefinition = definitionarg+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-iotthingsgraph-flowtemplate.html#cfn-iotthingsgraph-flowtemplate-compatiblenamespaceversion+ittgftCompatibleNamespaceVersion :: Lens' IoTThingsGraphFlowTemplate (Maybe (Val Double))+ittgftCompatibleNamespaceVersion = lens _ioTThingsGraphFlowTemplateCompatibleNamespaceVersion (\s a -> s { _ioTThingsGraphFlowTemplateCompatibleNamespaceVersion = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-iotthingsgraph-flowtemplate.html#cfn-iotthingsgraph-flowtemplate-definition+ittgftDefinition :: Lens' IoTThingsGraphFlowTemplate IoTThingsGraphFlowTemplateDefinitionDocument+ittgftDefinition = lens _ioTThingsGraphFlowTemplateDefinition (\s a -> s { _ioTThingsGraphFlowTemplateDefinition = a })
+ library-gen/Stratosphere/Resources/MSKCluster.hs view
@@ -0,0 +1,103 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-msk-cluster.html++module Stratosphere.Resources.MSKCluster where++import Stratosphere.ResourceImports+import Stratosphere.ResourceProperties.MSKClusterBrokerNodeGroupInfo+import Stratosphere.ResourceProperties.MSKClusterClientAuthentication+import Stratosphere.ResourceProperties.MSKClusterConfigurationInfo+import Stratosphere.ResourceProperties.MSKClusterEncryptionInfo++-- | Full data type definition for MSKCluster. See 'mskCluster' for a more+-- convenient constructor.+data MSKCluster =+  MSKCluster+  { _mSKClusterBrokerNodeGroupInfo :: MSKClusterBrokerNodeGroupInfo+  , _mSKClusterClientAuthentication :: Maybe MSKClusterClientAuthentication+  , _mSKClusterClusterName :: Val Text+  , _mSKClusterConfigurationInfo :: Maybe MSKClusterConfigurationInfo+  , _mSKClusterEncryptionInfo :: Maybe MSKClusterEncryptionInfo+  , _mSKClusterEnhancedMonitoring :: Maybe (Val Text)+  , _mSKClusterKafkaVersion :: Val Text+  , _mSKClusterNumberOfBrokerNodes :: Val Integer+  , _mSKClusterTags :: Maybe Object+  } deriving (Show, Eq)++instance ToResourceProperties MSKCluster where+  toResourceProperties MSKCluster{..} =+    ResourceProperties+    { resourcePropertiesType = "AWS::MSK::Cluster"+    , resourcePropertiesProperties =+        hashMapFromList $ catMaybes+        [ (Just . ("BrokerNodeGroupInfo",) . toJSON) _mSKClusterBrokerNodeGroupInfo+        , fmap (("ClientAuthentication",) . toJSON) _mSKClusterClientAuthentication+        , (Just . ("ClusterName",) . toJSON) _mSKClusterClusterName+        , fmap (("ConfigurationInfo",) . toJSON) _mSKClusterConfigurationInfo+        , fmap (("EncryptionInfo",) . toJSON) _mSKClusterEncryptionInfo+        , fmap (("EnhancedMonitoring",) . toJSON) _mSKClusterEnhancedMonitoring+        , (Just . ("KafkaVersion",) . toJSON) _mSKClusterKafkaVersion+        , (Just . ("NumberOfBrokerNodes",) . toJSON) _mSKClusterNumberOfBrokerNodes+        , fmap (("Tags",) . toJSON) _mSKClusterTags+        ]+    }++-- | Constructor for 'MSKCluster' containing required fields as arguments.+mskCluster+  :: MSKClusterBrokerNodeGroupInfo -- ^ 'mskcBrokerNodeGroupInfo'+  -> Val Text -- ^ 'mskcClusterName'+  -> Val Text -- ^ 'mskcKafkaVersion'+  -> Val Integer -- ^ 'mskcNumberOfBrokerNodes'+  -> MSKCluster+mskCluster brokerNodeGroupInfoarg clusterNamearg kafkaVersionarg numberOfBrokerNodesarg =+  MSKCluster+  { _mSKClusterBrokerNodeGroupInfo = brokerNodeGroupInfoarg+  , _mSKClusterClientAuthentication = Nothing+  , _mSKClusterClusterName = clusterNamearg+  , _mSKClusterConfigurationInfo = Nothing+  , _mSKClusterEncryptionInfo = Nothing+  , _mSKClusterEnhancedMonitoring = Nothing+  , _mSKClusterKafkaVersion = kafkaVersionarg+  , _mSKClusterNumberOfBrokerNodes = numberOfBrokerNodesarg+  , _mSKClusterTags = Nothing+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-msk-cluster.html#cfn-msk-cluster-brokernodegroupinfo+mskcBrokerNodeGroupInfo :: Lens' MSKCluster MSKClusterBrokerNodeGroupInfo+mskcBrokerNodeGroupInfo = lens _mSKClusterBrokerNodeGroupInfo (\s a -> s { _mSKClusterBrokerNodeGroupInfo = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-msk-cluster.html#cfn-msk-cluster-clientauthentication+mskcClientAuthentication :: Lens' MSKCluster (Maybe MSKClusterClientAuthentication)+mskcClientAuthentication = lens _mSKClusterClientAuthentication (\s a -> s { _mSKClusterClientAuthentication = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-msk-cluster.html#cfn-msk-cluster-clustername+mskcClusterName :: Lens' MSKCluster (Val Text)+mskcClusterName = lens _mSKClusterClusterName (\s a -> s { _mSKClusterClusterName = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-msk-cluster.html#cfn-msk-cluster-configurationinfo+mskcConfigurationInfo :: Lens' MSKCluster (Maybe MSKClusterConfigurationInfo)+mskcConfigurationInfo = lens _mSKClusterConfigurationInfo (\s a -> s { _mSKClusterConfigurationInfo = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-msk-cluster.html#cfn-msk-cluster-encryptioninfo+mskcEncryptionInfo :: Lens' MSKCluster (Maybe MSKClusterEncryptionInfo)+mskcEncryptionInfo = lens _mSKClusterEncryptionInfo (\s a -> s { _mSKClusterEncryptionInfo = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-msk-cluster.html#cfn-msk-cluster-enhancedmonitoring+mskcEnhancedMonitoring :: Lens' MSKCluster (Maybe (Val Text))+mskcEnhancedMonitoring = lens _mSKClusterEnhancedMonitoring (\s a -> s { _mSKClusterEnhancedMonitoring = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-msk-cluster.html#cfn-msk-cluster-kafkaversion+mskcKafkaVersion :: Lens' MSKCluster (Val Text)+mskcKafkaVersion = lens _mSKClusterKafkaVersion (\s a -> s { _mSKClusterKafkaVersion = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-msk-cluster.html#cfn-msk-cluster-numberofbrokernodes+mskcNumberOfBrokerNodes :: Lens' MSKCluster (Val Integer)+mskcNumberOfBrokerNodes = lens _mSKClusterNumberOfBrokerNodes (\s a -> s { _mSKClusterNumberOfBrokerNodes = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-msk-cluster.html#cfn-msk-cluster-tags+mskcTags :: Lens' MSKCluster (Maybe Object)+mskcTags = lens _mSKClusterTags (\s a -> s { _mSKClusterTags = a })
+ library-gen/Stratosphere/Resources/PinpointADMChannel.hs view
@@ -0,0 +1,65 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-pinpoint-admchannel.html++module Stratosphere.Resources.PinpointADMChannel where++import Stratosphere.ResourceImports+++-- | Full data type definition for PinpointADMChannel. See+-- 'pinpointADMChannel' for a more convenient constructor.+data PinpointADMChannel =+  PinpointADMChannel+  { _pinpointADMChannelApplicationId :: Val Text+  , _pinpointADMChannelClientId :: Val Text+  , _pinpointADMChannelClientSecret :: Val Text+  , _pinpointADMChannelEnabled :: Maybe (Val Bool)+  } deriving (Show, Eq)++instance ToResourceProperties PinpointADMChannel where+  toResourceProperties PinpointADMChannel{..} =+    ResourceProperties+    { resourcePropertiesType = "AWS::Pinpoint::ADMChannel"+    , resourcePropertiesProperties =+        hashMapFromList $ catMaybes+        [ (Just . ("ApplicationId",) . toJSON) _pinpointADMChannelApplicationId+        , (Just . ("ClientId",) . toJSON) _pinpointADMChannelClientId+        , (Just . ("ClientSecret",) . toJSON) _pinpointADMChannelClientSecret+        , fmap (("Enabled",) . toJSON) _pinpointADMChannelEnabled+        ]+    }++-- | Constructor for 'PinpointADMChannel' containing required fields as+-- arguments.+pinpointADMChannel+  :: Val Text -- ^ 'padmcApplicationId'+  -> Val Text -- ^ 'padmcClientId'+  -> Val Text -- ^ 'padmcClientSecret'+  -> PinpointADMChannel+pinpointADMChannel applicationIdarg clientIdarg clientSecretarg =+  PinpointADMChannel+  { _pinpointADMChannelApplicationId = applicationIdarg+  , _pinpointADMChannelClientId = clientIdarg+  , _pinpointADMChannelClientSecret = clientSecretarg+  , _pinpointADMChannelEnabled = Nothing+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-pinpoint-admchannel.html#cfn-pinpoint-admchannel-applicationid+padmcApplicationId :: Lens' PinpointADMChannel (Val Text)+padmcApplicationId = lens _pinpointADMChannelApplicationId (\s a -> s { _pinpointADMChannelApplicationId = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-pinpoint-admchannel.html#cfn-pinpoint-admchannel-clientid+padmcClientId :: Lens' PinpointADMChannel (Val Text)+padmcClientId = lens _pinpointADMChannelClientId (\s a -> s { _pinpointADMChannelClientId = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-pinpoint-admchannel.html#cfn-pinpoint-admchannel-clientsecret+padmcClientSecret :: Lens' PinpointADMChannel (Val Text)+padmcClientSecret = lens _pinpointADMChannelClientSecret (\s a -> s { _pinpointADMChannelClientSecret = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-pinpoint-admchannel.html#cfn-pinpoint-admchannel-enabled+padmcEnabled :: Lens' PinpointADMChannel (Maybe (Val Bool))+padmcEnabled = lens _pinpointADMChannelEnabled (\s a -> s { _pinpointADMChannelEnabled = a })
+ library-gen/Stratosphere/Resources/PinpointAPNSChannel.hs view
@@ -0,0 +1,98 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-pinpoint-apnschannel.html++module Stratosphere.Resources.PinpointAPNSChannel where++import Stratosphere.ResourceImports+++-- | Full data type definition for PinpointAPNSChannel. See+-- 'pinpointAPNSChannel' for a more convenient constructor.+data PinpointAPNSChannel =+  PinpointAPNSChannel+  { _pinpointAPNSChannelApplicationId :: Val Text+  , _pinpointAPNSChannelBundleId :: Maybe (Val Text)+  , _pinpointAPNSChannelCertificate :: Maybe (Val Text)+  , _pinpointAPNSChannelDefaultAuthenticationMethod :: Maybe (Val Text)+  , _pinpointAPNSChannelEnabled :: Maybe (Val Bool)+  , _pinpointAPNSChannelPrivateKey :: Maybe (Val Text)+  , _pinpointAPNSChannelTeamId :: Maybe (Val Text)+  , _pinpointAPNSChannelTokenKey :: Maybe (Val Text)+  , _pinpointAPNSChannelTokenKeyId :: Maybe (Val Text)+  } deriving (Show, Eq)++instance ToResourceProperties PinpointAPNSChannel where+  toResourceProperties PinpointAPNSChannel{..} =+    ResourceProperties+    { resourcePropertiesType = "AWS::Pinpoint::APNSChannel"+    , resourcePropertiesProperties =+        hashMapFromList $ catMaybes+        [ (Just . ("ApplicationId",) . toJSON) _pinpointAPNSChannelApplicationId+        , fmap (("BundleId",) . toJSON) _pinpointAPNSChannelBundleId+        , fmap (("Certificate",) . toJSON) _pinpointAPNSChannelCertificate+        , fmap (("DefaultAuthenticationMethod",) . toJSON) _pinpointAPNSChannelDefaultAuthenticationMethod+        , fmap (("Enabled",) . toJSON) _pinpointAPNSChannelEnabled+        , fmap (("PrivateKey",) . toJSON) _pinpointAPNSChannelPrivateKey+        , fmap (("TeamId",) . toJSON) _pinpointAPNSChannelTeamId+        , fmap (("TokenKey",) . toJSON) _pinpointAPNSChannelTokenKey+        , fmap (("TokenKeyId",) . toJSON) _pinpointAPNSChannelTokenKeyId+        ]+    }++-- | Constructor for 'PinpointAPNSChannel' containing required fields as+-- arguments.+pinpointAPNSChannel+  :: Val Text -- ^ 'papnscApplicationId'+  -> PinpointAPNSChannel+pinpointAPNSChannel applicationIdarg =+  PinpointAPNSChannel+  { _pinpointAPNSChannelApplicationId = applicationIdarg+  , _pinpointAPNSChannelBundleId = Nothing+  , _pinpointAPNSChannelCertificate = Nothing+  , _pinpointAPNSChannelDefaultAuthenticationMethod = Nothing+  , _pinpointAPNSChannelEnabled = Nothing+  , _pinpointAPNSChannelPrivateKey = Nothing+  , _pinpointAPNSChannelTeamId = Nothing+  , _pinpointAPNSChannelTokenKey = Nothing+  , _pinpointAPNSChannelTokenKeyId = Nothing+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-pinpoint-apnschannel.html#cfn-pinpoint-apnschannel-applicationid+papnscApplicationId :: Lens' PinpointAPNSChannel (Val Text)+papnscApplicationId = lens _pinpointAPNSChannelApplicationId (\s a -> s { _pinpointAPNSChannelApplicationId = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-pinpoint-apnschannel.html#cfn-pinpoint-apnschannel-bundleid+papnscBundleId :: Lens' PinpointAPNSChannel (Maybe (Val Text))+papnscBundleId = lens _pinpointAPNSChannelBundleId (\s a -> s { _pinpointAPNSChannelBundleId = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-pinpoint-apnschannel.html#cfn-pinpoint-apnschannel-certificate+papnscCertificate :: Lens' PinpointAPNSChannel (Maybe (Val Text))+papnscCertificate = lens _pinpointAPNSChannelCertificate (\s a -> s { _pinpointAPNSChannelCertificate = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-pinpoint-apnschannel.html#cfn-pinpoint-apnschannel-defaultauthenticationmethod+papnscDefaultAuthenticationMethod :: Lens' PinpointAPNSChannel (Maybe (Val Text))+papnscDefaultAuthenticationMethod = lens _pinpointAPNSChannelDefaultAuthenticationMethod (\s a -> s { _pinpointAPNSChannelDefaultAuthenticationMethod = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-pinpoint-apnschannel.html#cfn-pinpoint-apnschannel-enabled+papnscEnabled :: Lens' PinpointAPNSChannel (Maybe (Val Bool))+papnscEnabled = lens _pinpointAPNSChannelEnabled (\s a -> s { _pinpointAPNSChannelEnabled = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-pinpoint-apnschannel.html#cfn-pinpoint-apnschannel-privatekey+papnscPrivateKey :: Lens' PinpointAPNSChannel (Maybe (Val Text))+papnscPrivateKey = lens _pinpointAPNSChannelPrivateKey (\s a -> s { _pinpointAPNSChannelPrivateKey = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-pinpoint-apnschannel.html#cfn-pinpoint-apnschannel-teamid+papnscTeamId :: Lens' PinpointAPNSChannel (Maybe (Val Text))+papnscTeamId = lens _pinpointAPNSChannelTeamId (\s a -> s { _pinpointAPNSChannelTeamId = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-pinpoint-apnschannel.html#cfn-pinpoint-apnschannel-tokenkey+papnscTokenKey :: Lens' PinpointAPNSChannel (Maybe (Val Text))+papnscTokenKey = lens _pinpointAPNSChannelTokenKey (\s a -> s { _pinpointAPNSChannelTokenKey = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-pinpoint-apnschannel.html#cfn-pinpoint-apnschannel-tokenkeyid+papnscTokenKeyId :: Lens' PinpointAPNSChannel (Maybe (Val Text))+papnscTokenKeyId = lens _pinpointAPNSChannelTokenKeyId (\s a -> s { _pinpointAPNSChannelTokenKeyId = a })
+ library-gen/Stratosphere/Resources/PinpointAPNSSandboxChannel.hs view
@@ -0,0 +1,98 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-pinpoint-apnssandboxchannel.html++module Stratosphere.Resources.PinpointAPNSSandboxChannel where++import Stratosphere.ResourceImports+++-- | Full data type definition for PinpointAPNSSandboxChannel. See+-- 'pinpointAPNSSandboxChannel' for a more convenient constructor.+data PinpointAPNSSandboxChannel =+  PinpointAPNSSandboxChannel+  { _pinpointAPNSSandboxChannelApplicationId :: Val Text+  , _pinpointAPNSSandboxChannelBundleId :: Maybe (Val Text)+  , _pinpointAPNSSandboxChannelCertificate :: Maybe (Val Text)+  , _pinpointAPNSSandboxChannelDefaultAuthenticationMethod :: Maybe (Val Text)+  , _pinpointAPNSSandboxChannelEnabled :: Maybe (Val Bool)+  , _pinpointAPNSSandboxChannelPrivateKey :: Maybe (Val Text)+  , _pinpointAPNSSandboxChannelTeamId :: Maybe (Val Text)+  , _pinpointAPNSSandboxChannelTokenKey :: Maybe (Val Text)+  , _pinpointAPNSSandboxChannelTokenKeyId :: Maybe (Val Text)+  } deriving (Show, Eq)++instance ToResourceProperties PinpointAPNSSandboxChannel where+  toResourceProperties PinpointAPNSSandboxChannel{..} =+    ResourceProperties+    { resourcePropertiesType = "AWS::Pinpoint::APNSSandboxChannel"+    , resourcePropertiesProperties =+        hashMapFromList $ catMaybes+        [ (Just . ("ApplicationId",) . toJSON) _pinpointAPNSSandboxChannelApplicationId+        , fmap (("BundleId",) . toJSON) _pinpointAPNSSandboxChannelBundleId+        , fmap (("Certificate",) . toJSON) _pinpointAPNSSandboxChannelCertificate+        , fmap (("DefaultAuthenticationMethod",) . toJSON) _pinpointAPNSSandboxChannelDefaultAuthenticationMethod+        , fmap (("Enabled",) . toJSON) _pinpointAPNSSandboxChannelEnabled+        , fmap (("PrivateKey",) . toJSON) _pinpointAPNSSandboxChannelPrivateKey+        , fmap (("TeamId",) . toJSON) _pinpointAPNSSandboxChannelTeamId+        , fmap (("TokenKey",) . toJSON) _pinpointAPNSSandboxChannelTokenKey+        , fmap (("TokenKeyId",) . toJSON) _pinpointAPNSSandboxChannelTokenKeyId+        ]+    }++-- | Constructor for 'PinpointAPNSSandboxChannel' containing required fields+-- as arguments.+pinpointAPNSSandboxChannel+  :: Val Text -- ^ 'papnsscApplicationId'+  -> PinpointAPNSSandboxChannel+pinpointAPNSSandboxChannel applicationIdarg =+  PinpointAPNSSandboxChannel+  { _pinpointAPNSSandboxChannelApplicationId = applicationIdarg+  , _pinpointAPNSSandboxChannelBundleId = Nothing+  , _pinpointAPNSSandboxChannelCertificate = Nothing+  , _pinpointAPNSSandboxChannelDefaultAuthenticationMethod = Nothing+  , _pinpointAPNSSandboxChannelEnabled = Nothing+  , _pinpointAPNSSandboxChannelPrivateKey = Nothing+  , _pinpointAPNSSandboxChannelTeamId = Nothing+  , _pinpointAPNSSandboxChannelTokenKey = Nothing+  , _pinpointAPNSSandboxChannelTokenKeyId = Nothing+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-pinpoint-apnssandboxchannel.html#cfn-pinpoint-apnssandboxchannel-applicationid+papnsscApplicationId :: Lens' PinpointAPNSSandboxChannel (Val Text)+papnsscApplicationId = lens _pinpointAPNSSandboxChannelApplicationId (\s a -> s { _pinpointAPNSSandboxChannelApplicationId = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-pinpoint-apnssandboxchannel.html#cfn-pinpoint-apnssandboxchannel-bundleid+papnsscBundleId :: Lens' PinpointAPNSSandboxChannel (Maybe (Val Text))+papnsscBundleId = lens _pinpointAPNSSandboxChannelBundleId (\s a -> s { _pinpointAPNSSandboxChannelBundleId = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-pinpoint-apnssandboxchannel.html#cfn-pinpoint-apnssandboxchannel-certificate+papnsscCertificate :: Lens' PinpointAPNSSandboxChannel (Maybe (Val Text))+papnsscCertificate = lens _pinpointAPNSSandboxChannelCertificate (\s a -> s { _pinpointAPNSSandboxChannelCertificate = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-pinpoint-apnssandboxchannel.html#cfn-pinpoint-apnssandboxchannel-defaultauthenticationmethod+papnsscDefaultAuthenticationMethod :: Lens' PinpointAPNSSandboxChannel (Maybe (Val Text))+papnsscDefaultAuthenticationMethod = lens _pinpointAPNSSandboxChannelDefaultAuthenticationMethod (\s a -> s { _pinpointAPNSSandboxChannelDefaultAuthenticationMethod = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-pinpoint-apnssandboxchannel.html#cfn-pinpoint-apnssandboxchannel-enabled+papnsscEnabled :: Lens' PinpointAPNSSandboxChannel (Maybe (Val Bool))+papnsscEnabled = lens _pinpointAPNSSandboxChannelEnabled (\s a -> s { _pinpointAPNSSandboxChannelEnabled = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-pinpoint-apnssandboxchannel.html#cfn-pinpoint-apnssandboxchannel-privatekey+papnsscPrivateKey :: Lens' PinpointAPNSSandboxChannel (Maybe (Val Text))+papnsscPrivateKey = lens _pinpointAPNSSandboxChannelPrivateKey (\s a -> s { _pinpointAPNSSandboxChannelPrivateKey = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-pinpoint-apnssandboxchannel.html#cfn-pinpoint-apnssandboxchannel-teamid+papnsscTeamId :: Lens' PinpointAPNSSandboxChannel (Maybe (Val Text))+papnsscTeamId = lens _pinpointAPNSSandboxChannelTeamId (\s a -> s { _pinpointAPNSSandboxChannelTeamId = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-pinpoint-apnssandboxchannel.html#cfn-pinpoint-apnssandboxchannel-tokenkey+papnsscTokenKey :: Lens' PinpointAPNSSandboxChannel (Maybe (Val Text))+papnsscTokenKey = lens _pinpointAPNSSandboxChannelTokenKey (\s a -> s { _pinpointAPNSSandboxChannelTokenKey = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-pinpoint-apnssandboxchannel.html#cfn-pinpoint-apnssandboxchannel-tokenkeyid+papnsscTokenKeyId :: Lens' PinpointAPNSSandboxChannel (Maybe (Val Text))+papnsscTokenKeyId = lens _pinpointAPNSSandboxChannelTokenKeyId (\s a -> s { _pinpointAPNSSandboxChannelTokenKeyId = a })
+ library-gen/Stratosphere/Resources/PinpointAPNSVoipChannel.hs view
@@ -0,0 +1,98 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-pinpoint-apnsvoipchannel.html++module Stratosphere.Resources.PinpointAPNSVoipChannel where++import Stratosphere.ResourceImports+++-- | Full data type definition for PinpointAPNSVoipChannel. See+-- 'pinpointAPNSVoipChannel' for a more convenient constructor.+data PinpointAPNSVoipChannel =+  PinpointAPNSVoipChannel+  { _pinpointAPNSVoipChannelApplicationId :: Val Text+  , _pinpointAPNSVoipChannelBundleId :: Maybe (Val Text)+  , _pinpointAPNSVoipChannelCertificate :: Maybe (Val Text)+  , _pinpointAPNSVoipChannelDefaultAuthenticationMethod :: Maybe (Val Text)+  , _pinpointAPNSVoipChannelEnabled :: Maybe (Val Bool)+  , _pinpointAPNSVoipChannelPrivateKey :: Maybe (Val Text)+  , _pinpointAPNSVoipChannelTeamId :: Maybe (Val Text)+  , _pinpointAPNSVoipChannelTokenKey :: Maybe (Val Text)+  , _pinpointAPNSVoipChannelTokenKeyId :: Maybe (Val Text)+  } deriving (Show, Eq)++instance ToResourceProperties PinpointAPNSVoipChannel where+  toResourceProperties PinpointAPNSVoipChannel{..} =+    ResourceProperties+    { resourcePropertiesType = "AWS::Pinpoint::APNSVoipChannel"+    , resourcePropertiesProperties =+        hashMapFromList $ catMaybes+        [ (Just . ("ApplicationId",) . toJSON) _pinpointAPNSVoipChannelApplicationId+        , fmap (("BundleId",) . toJSON) _pinpointAPNSVoipChannelBundleId+        , fmap (("Certificate",) . toJSON) _pinpointAPNSVoipChannelCertificate+        , fmap (("DefaultAuthenticationMethod",) . toJSON) _pinpointAPNSVoipChannelDefaultAuthenticationMethod+        , fmap (("Enabled",) . toJSON) _pinpointAPNSVoipChannelEnabled+        , fmap (("PrivateKey",) . toJSON) _pinpointAPNSVoipChannelPrivateKey+        , fmap (("TeamId",) . toJSON) _pinpointAPNSVoipChannelTeamId+        , fmap (("TokenKey",) . toJSON) _pinpointAPNSVoipChannelTokenKey+        , fmap (("TokenKeyId",) . toJSON) _pinpointAPNSVoipChannelTokenKeyId+        ]+    }++-- | Constructor for 'PinpointAPNSVoipChannel' containing required fields as+-- arguments.+pinpointAPNSVoipChannel+  :: Val Text -- ^ 'papnsvcApplicationId'+  -> PinpointAPNSVoipChannel+pinpointAPNSVoipChannel applicationIdarg =+  PinpointAPNSVoipChannel+  { _pinpointAPNSVoipChannelApplicationId = applicationIdarg+  , _pinpointAPNSVoipChannelBundleId = Nothing+  , _pinpointAPNSVoipChannelCertificate = Nothing+  , _pinpointAPNSVoipChannelDefaultAuthenticationMethod = Nothing+  , _pinpointAPNSVoipChannelEnabled = Nothing+  , _pinpointAPNSVoipChannelPrivateKey = Nothing+  , _pinpointAPNSVoipChannelTeamId = Nothing+  , _pinpointAPNSVoipChannelTokenKey = Nothing+  , _pinpointAPNSVoipChannelTokenKeyId = Nothing+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-pinpoint-apnsvoipchannel.html#cfn-pinpoint-apnsvoipchannel-applicationid+papnsvcApplicationId :: Lens' PinpointAPNSVoipChannel (Val Text)+papnsvcApplicationId = lens _pinpointAPNSVoipChannelApplicationId (\s a -> s { _pinpointAPNSVoipChannelApplicationId = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-pinpoint-apnsvoipchannel.html#cfn-pinpoint-apnsvoipchannel-bundleid+papnsvcBundleId :: Lens' PinpointAPNSVoipChannel (Maybe (Val Text))+papnsvcBundleId = lens _pinpointAPNSVoipChannelBundleId (\s a -> s { _pinpointAPNSVoipChannelBundleId = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-pinpoint-apnsvoipchannel.html#cfn-pinpoint-apnsvoipchannel-certificate+papnsvcCertificate :: Lens' PinpointAPNSVoipChannel (Maybe (Val Text))+papnsvcCertificate = lens _pinpointAPNSVoipChannelCertificate (\s a -> s { _pinpointAPNSVoipChannelCertificate = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-pinpoint-apnsvoipchannel.html#cfn-pinpoint-apnsvoipchannel-defaultauthenticationmethod+papnsvcDefaultAuthenticationMethod :: Lens' PinpointAPNSVoipChannel (Maybe (Val Text))+papnsvcDefaultAuthenticationMethod = lens _pinpointAPNSVoipChannelDefaultAuthenticationMethod (\s a -> s { _pinpointAPNSVoipChannelDefaultAuthenticationMethod = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-pinpoint-apnsvoipchannel.html#cfn-pinpoint-apnsvoipchannel-enabled+papnsvcEnabled :: Lens' PinpointAPNSVoipChannel (Maybe (Val Bool))+papnsvcEnabled = lens _pinpointAPNSVoipChannelEnabled (\s a -> s { _pinpointAPNSVoipChannelEnabled = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-pinpoint-apnsvoipchannel.html#cfn-pinpoint-apnsvoipchannel-privatekey+papnsvcPrivateKey :: Lens' PinpointAPNSVoipChannel (Maybe (Val Text))+papnsvcPrivateKey = lens _pinpointAPNSVoipChannelPrivateKey (\s a -> s { _pinpointAPNSVoipChannelPrivateKey = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-pinpoint-apnsvoipchannel.html#cfn-pinpoint-apnsvoipchannel-teamid+papnsvcTeamId :: Lens' PinpointAPNSVoipChannel (Maybe (Val Text))+papnsvcTeamId = lens _pinpointAPNSVoipChannelTeamId (\s a -> s { _pinpointAPNSVoipChannelTeamId = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-pinpoint-apnsvoipchannel.html#cfn-pinpoint-apnsvoipchannel-tokenkey+papnsvcTokenKey :: Lens' PinpointAPNSVoipChannel (Maybe (Val Text))+papnsvcTokenKey = lens _pinpointAPNSVoipChannelTokenKey (\s a -> s { _pinpointAPNSVoipChannelTokenKey = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-pinpoint-apnsvoipchannel.html#cfn-pinpoint-apnsvoipchannel-tokenkeyid+papnsvcTokenKeyId :: Lens' PinpointAPNSVoipChannel (Maybe (Val Text))+papnsvcTokenKeyId = lens _pinpointAPNSVoipChannelTokenKeyId (\s a -> s { _pinpointAPNSVoipChannelTokenKeyId = a })
+ library-gen/Stratosphere/Resources/PinpointAPNSVoipSandboxChannel.hs view
@@ -0,0 +1,98 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-pinpoint-apnsvoipsandboxchannel.html++module Stratosphere.Resources.PinpointAPNSVoipSandboxChannel where++import Stratosphere.ResourceImports+++-- | Full data type definition for PinpointAPNSVoipSandboxChannel. See+-- 'pinpointAPNSVoipSandboxChannel' for a more convenient constructor.+data PinpointAPNSVoipSandboxChannel =+  PinpointAPNSVoipSandboxChannel+  { _pinpointAPNSVoipSandboxChannelApplicationId :: Val Text+  , _pinpointAPNSVoipSandboxChannelBundleId :: Maybe (Val Text)+  , _pinpointAPNSVoipSandboxChannelCertificate :: Maybe (Val Text)+  , _pinpointAPNSVoipSandboxChannelDefaultAuthenticationMethod :: Maybe (Val Text)+  , _pinpointAPNSVoipSandboxChannelEnabled :: Maybe (Val Bool)+  , _pinpointAPNSVoipSandboxChannelPrivateKey :: Maybe (Val Text)+  , _pinpointAPNSVoipSandboxChannelTeamId :: Maybe (Val Text)+  , _pinpointAPNSVoipSandboxChannelTokenKey :: Maybe (Val Text)+  , _pinpointAPNSVoipSandboxChannelTokenKeyId :: Maybe (Val Text)+  } deriving (Show, Eq)++instance ToResourceProperties PinpointAPNSVoipSandboxChannel where+  toResourceProperties PinpointAPNSVoipSandboxChannel{..} =+    ResourceProperties+    { resourcePropertiesType = "AWS::Pinpoint::APNSVoipSandboxChannel"+    , resourcePropertiesProperties =+        hashMapFromList $ catMaybes+        [ (Just . ("ApplicationId",) . toJSON) _pinpointAPNSVoipSandboxChannelApplicationId+        , fmap (("BundleId",) . toJSON) _pinpointAPNSVoipSandboxChannelBundleId+        , fmap (("Certificate",) . toJSON) _pinpointAPNSVoipSandboxChannelCertificate+        , fmap (("DefaultAuthenticationMethod",) . toJSON) _pinpointAPNSVoipSandboxChannelDefaultAuthenticationMethod+        , fmap (("Enabled",) . toJSON) _pinpointAPNSVoipSandboxChannelEnabled+        , fmap (("PrivateKey",) . toJSON) _pinpointAPNSVoipSandboxChannelPrivateKey+        , fmap (("TeamId",) . toJSON) _pinpointAPNSVoipSandboxChannelTeamId+        , fmap (("TokenKey",) . toJSON) _pinpointAPNSVoipSandboxChannelTokenKey+        , fmap (("TokenKeyId",) . toJSON) _pinpointAPNSVoipSandboxChannelTokenKeyId+        ]+    }++-- | Constructor for 'PinpointAPNSVoipSandboxChannel' containing required+-- fields as arguments.+pinpointAPNSVoipSandboxChannel+  :: Val Text -- ^ 'papnsvscApplicationId'+  -> PinpointAPNSVoipSandboxChannel+pinpointAPNSVoipSandboxChannel applicationIdarg =+  PinpointAPNSVoipSandboxChannel+  { _pinpointAPNSVoipSandboxChannelApplicationId = applicationIdarg+  , _pinpointAPNSVoipSandboxChannelBundleId = Nothing+  , _pinpointAPNSVoipSandboxChannelCertificate = Nothing+  , _pinpointAPNSVoipSandboxChannelDefaultAuthenticationMethod = Nothing+  , _pinpointAPNSVoipSandboxChannelEnabled = Nothing+  , _pinpointAPNSVoipSandboxChannelPrivateKey = Nothing+  , _pinpointAPNSVoipSandboxChannelTeamId = Nothing+  , _pinpointAPNSVoipSandboxChannelTokenKey = Nothing+  , _pinpointAPNSVoipSandboxChannelTokenKeyId = Nothing+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-pinpoint-apnsvoipsandboxchannel.html#cfn-pinpoint-apnsvoipsandboxchannel-applicationid+papnsvscApplicationId :: Lens' PinpointAPNSVoipSandboxChannel (Val Text)+papnsvscApplicationId = lens _pinpointAPNSVoipSandboxChannelApplicationId (\s a -> s { _pinpointAPNSVoipSandboxChannelApplicationId = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-pinpoint-apnsvoipsandboxchannel.html#cfn-pinpoint-apnsvoipsandboxchannel-bundleid+papnsvscBundleId :: Lens' PinpointAPNSVoipSandboxChannel (Maybe (Val Text))+papnsvscBundleId = lens _pinpointAPNSVoipSandboxChannelBundleId (\s a -> s { _pinpointAPNSVoipSandboxChannelBundleId = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-pinpoint-apnsvoipsandboxchannel.html#cfn-pinpoint-apnsvoipsandboxchannel-certificate+papnsvscCertificate :: Lens' PinpointAPNSVoipSandboxChannel (Maybe (Val Text))+papnsvscCertificate = lens _pinpointAPNSVoipSandboxChannelCertificate (\s a -> s { _pinpointAPNSVoipSandboxChannelCertificate = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-pinpoint-apnsvoipsandboxchannel.html#cfn-pinpoint-apnsvoipsandboxchannel-defaultauthenticationmethod+papnsvscDefaultAuthenticationMethod :: Lens' PinpointAPNSVoipSandboxChannel (Maybe (Val Text))+papnsvscDefaultAuthenticationMethod = lens _pinpointAPNSVoipSandboxChannelDefaultAuthenticationMethod (\s a -> s { _pinpointAPNSVoipSandboxChannelDefaultAuthenticationMethod = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-pinpoint-apnsvoipsandboxchannel.html#cfn-pinpoint-apnsvoipsandboxchannel-enabled+papnsvscEnabled :: Lens' PinpointAPNSVoipSandboxChannel (Maybe (Val Bool))+papnsvscEnabled = lens _pinpointAPNSVoipSandboxChannelEnabled (\s a -> s { _pinpointAPNSVoipSandboxChannelEnabled = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-pinpoint-apnsvoipsandboxchannel.html#cfn-pinpoint-apnsvoipsandboxchannel-privatekey+papnsvscPrivateKey :: Lens' PinpointAPNSVoipSandboxChannel (Maybe (Val Text))+papnsvscPrivateKey = lens _pinpointAPNSVoipSandboxChannelPrivateKey (\s a -> s { _pinpointAPNSVoipSandboxChannelPrivateKey = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-pinpoint-apnsvoipsandboxchannel.html#cfn-pinpoint-apnsvoipsandboxchannel-teamid+papnsvscTeamId :: Lens' PinpointAPNSVoipSandboxChannel (Maybe (Val Text))+papnsvscTeamId = lens _pinpointAPNSVoipSandboxChannelTeamId (\s a -> s { _pinpointAPNSVoipSandboxChannelTeamId = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-pinpoint-apnsvoipsandboxchannel.html#cfn-pinpoint-apnsvoipsandboxchannel-tokenkey+papnsvscTokenKey :: Lens' PinpointAPNSVoipSandboxChannel (Maybe (Val Text))+papnsvscTokenKey = lens _pinpointAPNSVoipSandboxChannelTokenKey (\s a -> s { _pinpointAPNSVoipSandboxChannelTokenKey = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-pinpoint-apnsvoipsandboxchannel.html#cfn-pinpoint-apnsvoipsandboxchannel-tokenkeyid+papnsvscTokenKeyId :: Lens' PinpointAPNSVoipSandboxChannel (Maybe (Val Text))+papnsvscTokenKeyId = lens _pinpointAPNSVoipSandboxChannelTokenKeyId (\s a -> s { _pinpointAPNSVoipSandboxChannelTokenKeyId = a })
+ library-gen/Stratosphere/Resources/PinpointApp.hs view
@@ -0,0 +1,41 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-pinpoint-app.html++module Stratosphere.Resources.PinpointApp where++import Stratosphere.ResourceImports+++-- | Full data type definition for PinpointApp. See 'pinpointApp' for a more+-- convenient constructor.+data PinpointApp =+  PinpointApp+  { _pinpointAppName :: Val Text+  } deriving (Show, Eq)++instance ToResourceProperties PinpointApp where+  toResourceProperties PinpointApp{..} =+    ResourceProperties+    { resourcePropertiesType = "AWS::Pinpoint::App"+    , resourcePropertiesProperties =+        hashMapFromList $ catMaybes+        [ (Just . ("Name",) . toJSON) _pinpointAppName+        ]+    }++-- | Constructor for 'PinpointApp' containing required fields as arguments.+pinpointApp+  :: Val Text -- ^ 'paName'+  -> PinpointApp+pinpointApp namearg =+  PinpointApp+  { _pinpointAppName = namearg+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-pinpoint-app.html#cfn-pinpoint-app-name+paName :: Lens' PinpointApp (Val Text)+paName = lens _pinpointAppName (\s a -> s { _pinpointAppName = a })
+ library-gen/Stratosphere/Resources/PinpointApplicationSettings.hs view
@@ -0,0 +1,72 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-pinpoint-applicationsettings.html++module Stratosphere.Resources.PinpointApplicationSettings where++import Stratosphere.ResourceImports+import Stratosphere.ResourceProperties.PinpointApplicationSettingsCampaignHook+import Stratosphere.ResourceProperties.PinpointApplicationSettingsLimits+import Stratosphere.ResourceProperties.PinpointApplicationSettingsQuietTime++-- | Full data type definition for PinpointApplicationSettings. See+-- 'pinpointApplicationSettings' for a more convenient constructor.+data PinpointApplicationSettings =+  PinpointApplicationSettings+  { _pinpointApplicationSettingsApplicationId :: Val Text+  , _pinpointApplicationSettingsCampaignHook :: Maybe PinpointApplicationSettingsCampaignHook+  , _pinpointApplicationSettingsCloudWatchMetricsEnabled :: Maybe (Val Bool)+  , _pinpointApplicationSettingsLimits :: Maybe PinpointApplicationSettingsLimits+  , _pinpointApplicationSettingsQuietTime :: Maybe PinpointApplicationSettingsQuietTime+  } deriving (Show, Eq)++instance ToResourceProperties PinpointApplicationSettings where+  toResourceProperties PinpointApplicationSettings{..} =+    ResourceProperties+    { resourcePropertiesType = "AWS::Pinpoint::ApplicationSettings"+    , resourcePropertiesProperties =+        hashMapFromList $ catMaybes+        [ (Just . ("ApplicationId",) . toJSON) _pinpointApplicationSettingsApplicationId+        , fmap (("CampaignHook",) . toJSON) _pinpointApplicationSettingsCampaignHook+        , fmap (("CloudWatchMetricsEnabled",) . toJSON) _pinpointApplicationSettingsCloudWatchMetricsEnabled+        , fmap (("Limits",) . toJSON) _pinpointApplicationSettingsLimits+        , fmap (("QuietTime",) . toJSON) _pinpointApplicationSettingsQuietTime+        ]+    }++-- | Constructor for 'PinpointApplicationSettings' containing required fields+-- as arguments.+pinpointApplicationSettings+  :: Val Text -- ^ 'pasApplicationId'+  -> PinpointApplicationSettings+pinpointApplicationSettings applicationIdarg =+  PinpointApplicationSettings+  { _pinpointApplicationSettingsApplicationId = applicationIdarg+  , _pinpointApplicationSettingsCampaignHook = Nothing+  , _pinpointApplicationSettingsCloudWatchMetricsEnabled = Nothing+  , _pinpointApplicationSettingsLimits = Nothing+  , _pinpointApplicationSettingsQuietTime = Nothing+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-pinpoint-applicationsettings.html#cfn-pinpoint-applicationsettings-applicationid+pasApplicationId :: Lens' PinpointApplicationSettings (Val Text)+pasApplicationId = lens _pinpointApplicationSettingsApplicationId (\s a -> s { _pinpointApplicationSettingsApplicationId = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-pinpoint-applicationsettings.html#cfn-pinpoint-applicationsettings-campaignhook+pasCampaignHook :: Lens' PinpointApplicationSettings (Maybe PinpointApplicationSettingsCampaignHook)+pasCampaignHook = lens _pinpointApplicationSettingsCampaignHook (\s a -> s { _pinpointApplicationSettingsCampaignHook = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-pinpoint-applicationsettings.html#cfn-pinpoint-applicationsettings-cloudwatchmetricsenabled+pasCloudWatchMetricsEnabled :: Lens' PinpointApplicationSettings (Maybe (Val Bool))+pasCloudWatchMetricsEnabled = lens _pinpointApplicationSettingsCloudWatchMetricsEnabled (\s a -> s { _pinpointApplicationSettingsCloudWatchMetricsEnabled = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-pinpoint-applicationsettings.html#cfn-pinpoint-applicationsettings-limits+pasLimits :: Lens' PinpointApplicationSettings (Maybe PinpointApplicationSettingsLimits)+pasLimits = lens _pinpointApplicationSettingsLimits (\s a -> s { _pinpointApplicationSettingsLimits = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-pinpoint-applicationsettings.html#cfn-pinpoint-applicationsettings-quiettime+pasQuietTime :: Lens' PinpointApplicationSettings (Maybe PinpointApplicationSettingsQuietTime)+pasQuietTime = lens _pinpointApplicationSettingsQuietTime (\s a -> s { _pinpointApplicationSettingsQuietTime = a })
+ library-gen/Stratosphere/Resources/PinpointBaiduChannel.hs view
@@ -0,0 +1,65 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-pinpoint-baiduchannel.html++module Stratosphere.Resources.PinpointBaiduChannel where++import Stratosphere.ResourceImports+++-- | Full data type definition for PinpointBaiduChannel. See+-- 'pinpointBaiduChannel' for a more convenient constructor.+data PinpointBaiduChannel =+  PinpointBaiduChannel+  { _pinpointBaiduChannelApiKey :: Val Text+  , _pinpointBaiduChannelApplicationId :: Val Text+  , _pinpointBaiduChannelEnabled :: Maybe (Val Bool)+  , _pinpointBaiduChannelSecretKey :: Val Text+  } deriving (Show, Eq)++instance ToResourceProperties PinpointBaiduChannel where+  toResourceProperties PinpointBaiduChannel{..} =+    ResourceProperties+    { resourcePropertiesType = "AWS::Pinpoint::BaiduChannel"+    , resourcePropertiesProperties =+        hashMapFromList $ catMaybes+        [ (Just . ("ApiKey",) . toJSON) _pinpointBaiduChannelApiKey+        , (Just . ("ApplicationId",) . toJSON) _pinpointBaiduChannelApplicationId+        , fmap (("Enabled",) . toJSON) _pinpointBaiduChannelEnabled+        , (Just . ("SecretKey",) . toJSON) _pinpointBaiduChannelSecretKey+        ]+    }++-- | Constructor for 'PinpointBaiduChannel' containing required fields as+-- arguments.+pinpointBaiduChannel+  :: Val Text -- ^ 'pbcApiKey'+  -> Val Text -- ^ 'pbcApplicationId'+  -> Val Text -- ^ 'pbcSecretKey'+  -> PinpointBaiduChannel+pinpointBaiduChannel apiKeyarg applicationIdarg secretKeyarg =+  PinpointBaiduChannel+  { _pinpointBaiduChannelApiKey = apiKeyarg+  , _pinpointBaiduChannelApplicationId = applicationIdarg+  , _pinpointBaiduChannelEnabled = Nothing+  , _pinpointBaiduChannelSecretKey = secretKeyarg+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-pinpoint-baiduchannel.html#cfn-pinpoint-baiduchannel-apikey+pbcApiKey :: Lens' PinpointBaiduChannel (Val Text)+pbcApiKey = lens _pinpointBaiduChannelApiKey (\s a -> s { _pinpointBaiduChannelApiKey = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-pinpoint-baiduchannel.html#cfn-pinpoint-baiduchannel-applicationid+pbcApplicationId :: Lens' PinpointBaiduChannel (Val Text)+pbcApplicationId = lens _pinpointBaiduChannelApplicationId (\s a -> s { _pinpointBaiduChannelApplicationId = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-pinpoint-baiduchannel.html#cfn-pinpoint-baiduchannel-enabled+pbcEnabled :: Lens' PinpointBaiduChannel (Maybe (Val Bool))+pbcEnabled = lens _pinpointBaiduChannelEnabled (\s a -> s { _pinpointBaiduChannelEnabled = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-pinpoint-baiduchannel.html#cfn-pinpoint-baiduchannel-secretkey+pbcSecretKey :: Lens' PinpointBaiduChannel (Val Text)+pbcSecretKey = lens _pinpointBaiduChannelSecretKey (\s a -> s { _pinpointBaiduChannelSecretKey = a })
+ library-gen/Stratosphere/Resources/PinpointCampaign.hs view
@@ -0,0 +1,141 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-pinpoint-campaign.html++module Stratosphere.Resources.PinpointCampaign where++import Stratosphere.ResourceImports+import Stratosphere.ResourceProperties.PinpointCampaignWriteTreatmentResource+import Stratosphere.ResourceProperties.PinpointCampaignCampaignHook+import Stratosphere.ResourceProperties.PinpointCampaignLimits+import Stratosphere.ResourceProperties.PinpointCampaignMessageConfiguration+import Stratosphere.ResourceProperties.PinpointCampaignSchedule++-- | Full data type definition for PinpointCampaign. See 'pinpointCampaign'+-- for a more convenient constructor.+data PinpointCampaign =+  PinpointCampaign+  { _pinpointCampaignAdditionalTreatments :: Maybe [PinpointCampaignWriteTreatmentResource]+  , _pinpointCampaignApplicationId :: Val Text+  , _pinpointCampaignCampaignHook :: Maybe PinpointCampaignCampaignHook+  , _pinpointCampaignDescription :: Maybe (Val Text)+  , _pinpointCampaignHoldoutPercent :: Maybe (Val Integer)+  , _pinpointCampaignIsPaused :: Maybe (Val Bool)+  , _pinpointCampaignLimits :: Maybe PinpointCampaignLimits+  , _pinpointCampaignMessageConfiguration :: PinpointCampaignMessageConfiguration+  , _pinpointCampaignName :: Val Text+  , _pinpointCampaignSchedule :: PinpointCampaignSchedule+  , _pinpointCampaignSegmentId :: Val Text+  , _pinpointCampaignSegmentVersion :: Maybe (Val Integer)+  , _pinpointCampaignTreatmentDescription :: Maybe (Val Text)+  , _pinpointCampaignTreatmentName :: Maybe (Val Text)+  } deriving (Show, Eq)++instance ToResourceProperties PinpointCampaign where+  toResourceProperties PinpointCampaign{..} =+    ResourceProperties+    { resourcePropertiesType = "AWS::Pinpoint::Campaign"+    , resourcePropertiesProperties =+        hashMapFromList $ catMaybes+        [ fmap (("AdditionalTreatments",) . toJSON) _pinpointCampaignAdditionalTreatments+        , (Just . ("ApplicationId",) . toJSON) _pinpointCampaignApplicationId+        , fmap (("CampaignHook",) . toJSON) _pinpointCampaignCampaignHook+        , fmap (("Description",) . toJSON) _pinpointCampaignDescription+        , fmap (("HoldoutPercent",) . toJSON) _pinpointCampaignHoldoutPercent+        , fmap (("IsPaused",) . toJSON) _pinpointCampaignIsPaused+        , fmap (("Limits",) . toJSON) _pinpointCampaignLimits+        , (Just . ("MessageConfiguration",) . toJSON) _pinpointCampaignMessageConfiguration+        , (Just . ("Name",) . toJSON) _pinpointCampaignName+        , (Just . ("Schedule",) . toJSON) _pinpointCampaignSchedule+        , (Just . ("SegmentId",) . toJSON) _pinpointCampaignSegmentId+        , fmap (("SegmentVersion",) . toJSON) _pinpointCampaignSegmentVersion+        , fmap (("TreatmentDescription",) . toJSON) _pinpointCampaignTreatmentDescription+        , fmap (("TreatmentName",) . toJSON) _pinpointCampaignTreatmentName+        ]+    }++-- | Constructor for 'PinpointCampaign' containing required fields as+-- arguments.+pinpointCampaign+  :: Val Text -- ^ 'pcApplicationId'+  -> PinpointCampaignMessageConfiguration -- ^ 'pcMessageConfiguration'+  -> Val Text -- ^ 'pcName'+  -> PinpointCampaignSchedule -- ^ 'pcSchedule'+  -> Val Text -- ^ 'pcSegmentId'+  -> PinpointCampaign+pinpointCampaign applicationIdarg messageConfigurationarg namearg schedulearg segmentIdarg =+  PinpointCampaign+  { _pinpointCampaignAdditionalTreatments = Nothing+  , _pinpointCampaignApplicationId = applicationIdarg+  , _pinpointCampaignCampaignHook = Nothing+  , _pinpointCampaignDescription = Nothing+  , _pinpointCampaignHoldoutPercent = Nothing+  , _pinpointCampaignIsPaused = Nothing+  , _pinpointCampaignLimits = Nothing+  , _pinpointCampaignMessageConfiguration = messageConfigurationarg+  , _pinpointCampaignName = namearg+  , _pinpointCampaignSchedule = schedulearg+  , _pinpointCampaignSegmentId = segmentIdarg+  , _pinpointCampaignSegmentVersion = Nothing+  , _pinpointCampaignTreatmentDescription = Nothing+  , _pinpointCampaignTreatmentName = Nothing+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-pinpoint-campaign.html#cfn-pinpoint-campaign-additionaltreatments+pcAdditionalTreatments :: Lens' PinpointCampaign (Maybe [PinpointCampaignWriteTreatmentResource])+pcAdditionalTreatments = lens _pinpointCampaignAdditionalTreatments (\s a -> s { _pinpointCampaignAdditionalTreatments = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-pinpoint-campaign.html#cfn-pinpoint-campaign-applicationid+pcApplicationId :: Lens' PinpointCampaign (Val Text)+pcApplicationId = lens _pinpointCampaignApplicationId (\s a -> s { _pinpointCampaignApplicationId = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-pinpoint-campaign.html#cfn-pinpoint-campaign-campaignhook+pcCampaignHook :: Lens' PinpointCampaign (Maybe PinpointCampaignCampaignHook)+pcCampaignHook = lens _pinpointCampaignCampaignHook (\s a -> s { _pinpointCampaignCampaignHook = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-pinpoint-campaign.html#cfn-pinpoint-campaign-description+pcDescription :: Lens' PinpointCampaign (Maybe (Val Text))+pcDescription = lens _pinpointCampaignDescription (\s a -> s { _pinpointCampaignDescription = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-pinpoint-campaign.html#cfn-pinpoint-campaign-holdoutpercent+pcHoldoutPercent :: Lens' PinpointCampaign (Maybe (Val Integer))+pcHoldoutPercent = lens _pinpointCampaignHoldoutPercent (\s a -> s { _pinpointCampaignHoldoutPercent = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-pinpoint-campaign.html#cfn-pinpoint-campaign-ispaused+pcIsPaused :: Lens' PinpointCampaign (Maybe (Val Bool))+pcIsPaused = lens _pinpointCampaignIsPaused (\s a -> s { _pinpointCampaignIsPaused = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-pinpoint-campaign.html#cfn-pinpoint-campaign-limits+pcLimits :: Lens' PinpointCampaign (Maybe PinpointCampaignLimits)+pcLimits = lens _pinpointCampaignLimits (\s a -> s { _pinpointCampaignLimits = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-pinpoint-campaign.html#cfn-pinpoint-campaign-messageconfiguration+pcMessageConfiguration :: Lens' PinpointCampaign PinpointCampaignMessageConfiguration+pcMessageConfiguration = lens _pinpointCampaignMessageConfiguration (\s a -> s { _pinpointCampaignMessageConfiguration = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-pinpoint-campaign.html#cfn-pinpoint-campaign-name+pcName :: Lens' PinpointCampaign (Val Text)+pcName = lens _pinpointCampaignName (\s a -> s { _pinpointCampaignName = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-pinpoint-campaign.html#cfn-pinpoint-campaign-schedule+pcSchedule :: Lens' PinpointCampaign PinpointCampaignSchedule+pcSchedule = lens _pinpointCampaignSchedule (\s a -> s { _pinpointCampaignSchedule = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-pinpoint-campaign.html#cfn-pinpoint-campaign-segmentid+pcSegmentId :: Lens' PinpointCampaign (Val Text)+pcSegmentId = lens _pinpointCampaignSegmentId (\s a -> s { _pinpointCampaignSegmentId = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-pinpoint-campaign.html#cfn-pinpoint-campaign-segmentversion+pcSegmentVersion :: Lens' PinpointCampaign (Maybe (Val Integer))+pcSegmentVersion = lens _pinpointCampaignSegmentVersion (\s a -> s { _pinpointCampaignSegmentVersion = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-pinpoint-campaign.html#cfn-pinpoint-campaign-treatmentdescription+pcTreatmentDescription :: Lens' PinpointCampaign (Maybe (Val Text))+pcTreatmentDescription = lens _pinpointCampaignTreatmentDescription (\s a -> s { _pinpointCampaignTreatmentDescription = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-pinpoint-campaign.html#cfn-pinpoint-campaign-treatmentname+pcTreatmentName :: Lens' PinpointCampaign (Maybe (Val Text))+pcTreatmentName = lens _pinpointCampaignTreatmentName (\s a -> s { _pinpointCampaignTreatmentName = a })
+ library-gen/Stratosphere/Resources/PinpointEmailChannel.hs view
@@ -0,0 +1,79 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-pinpoint-emailchannel.html++module Stratosphere.Resources.PinpointEmailChannel where++import Stratosphere.ResourceImports+++-- | Full data type definition for PinpointEmailChannel. See+-- 'pinpointEmailChannel' for a more convenient constructor.+data PinpointEmailChannel =+  PinpointEmailChannel+  { _pinpointEmailChannelApplicationId :: Val Text+  , _pinpointEmailChannelConfigurationSet :: Maybe (Val Text)+  , _pinpointEmailChannelEnabled :: Maybe (Val Bool)+  , _pinpointEmailChannelFromAddress :: Val Text+  , _pinpointEmailChannelIdentity :: Val Text+  , _pinpointEmailChannelRoleArn :: Maybe (Val Text)+  } deriving (Show, Eq)++instance ToResourceProperties PinpointEmailChannel where+  toResourceProperties PinpointEmailChannel{..} =+    ResourceProperties+    { resourcePropertiesType = "AWS::Pinpoint::EmailChannel"+    , resourcePropertiesProperties =+        hashMapFromList $ catMaybes+        [ (Just . ("ApplicationId",) . toJSON) _pinpointEmailChannelApplicationId+        , fmap (("ConfigurationSet",) . toJSON) _pinpointEmailChannelConfigurationSet+        , fmap (("Enabled",) . toJSON) _pinpointEmailChannelEnabled+        , (Just . ("FromAddress",) . toJSON) _pinpointEmailChannelFromAddress+        , (Just . ("Identity",) . toJSON) _pinpointEmailChannelIdentity+        , fmap (("RoleArn",) . toJSON) _pinpointEmailChannelRoleArn+        ]+    }++-- | Constructor for 'PinpointEmailChannel' containing required fields as+-- arguments.+pinpointEmailChannel+  :: Val Text -- ^ 'pecApplicationId'+  -> Val Text -- ^ 'pecFromAddress'+  -> Val Text -- ^ 'pecIdentity'+  -> PinpointEmailChannel+pinpointEmailChannel applicationIdarg fromAddressarg identityarg =+  PinpointEmailChannel+  { _pinpointEmailChannelApplicationId = applicationIdarg+  , _pinpointEmailChannelConfigurationSet = Nothing+  , _pinpointEmailChannelEnabled = Nothing+  , _pinpointEmailChannelFromAddress = fromAddressarg+  , _pinpointEmailChannelIdentity = identityarg+  , _pinpointEmailChannelRoleArn = Nothing+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-pinpoint-emailchannel.html#cfn-pinpoint-emailchannel-applicationid+pecApplicationId :: Lens' PinpointEmailChannel (Val Text)+pecApplicationId = lens _pinpointEmailChannelApplicationId (\s a -> s { _pinpointEmailChannelApplicationId = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-pinpoint-emailchannel.html#cfn-pinpoint-emailchannel-configurationset+pecConfigurationSet :: Lens' PinpointEmailChannel (Maybe (Val Text))+pecConfigurationSet = lens _pinpointEmailChannelConfigurationSet (\s a -> s { _pinpointEmailChannelConfigurationSet = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-pinpoint-emailchannel.html#cfn-pinpoint-emailchannel-enabled+pecEnabled :: Lens' PinpointEmailChannel (Maybe (Val Bool))+pecEnabled = lens _pinpointEmailChannelEnabled (\s a -> s { _pinpointEmailChannelEnabled = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-pinpoint-emailchannel.html#cfn-pinpoint-emailchannel-fromaddress+pecFromAddress :: Lens' PinpointEmailChannel (Val Text)+pecFromAddress = lens _pinpointEmailChannelFromAddress (\s a -> s { _pinpointEmailChannelFromAddress = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-pinpoint-emailchannel.html#cfn-pinpoint-emailchannel-identity+pecIdentity :: Lens' PinpointEmailChannel (Val Text)+pecIdentity = lens _pinpointEmailChannelIdentity (\s a -> s { _pinpointEmailChannelIdentity = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-pinpoint-emailchannel.html#cfn-pinpoint-emailchannel-rolearn+pecRoleArn :: Lens' PinpointEmailChannel (Maybe (Val Text))+pecRoleArn = lens _pinpointEmailChannelRoleArn (\s a -> s { _pinpointEmailChannelRoleArn = a })
+ library-gen/Stratosphere/Resources/PinpointEventStream.hs view
@@ -0,0 +1,58 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-pinpoint-eventstream.html++module Stratosphere.Resources.PinpointEventStream where++import Stratosphere.ResourceImports+++-- | Full data type definition for PinpointEventStream. See+-- 'pinpointEventStream' for a more convenient constructor.+data PinpointEventStream =+  PinpointEventStream+  { _pinpointEventStreamApplicationId :: Val Text+  , _pinpointEventStreamDestinationStreamArn :: Val Text+  , _pinpointEventStreamRoleArn :: Val Text+  } deriving (Show, Eq)++instance ToResourceProperties PinpointEventStream where+  toResourceProperties PinpointEventStream{..} =+    ResourceProperties+    { resourcePropertiesType = "AWS::Pinpoint::EventStream"+    , resourcePropertiesProperties =+        hashMapFromList $ catMaybes+        [ (Just . ("ApplicationId",) . toJSON) _pinpointEventStreamApplicationId+        , (Just . ("DestinationStreamArn",) . toJSON) _pinpointEventStreamDestinationStreamArn+        , (Just . ("RoleArn",) . toJSON) _pinpointEventStreamRoleArn+        ]+    }++-- | Constructor for 'PinpointEventStream' containing required fields as+-- arguments.+pinpointEventStream+  :: Val Text -- ^ 'pesApplicationId'+  -> Val Text -- ^ 'pesDestinationStreamArn'+  -> Val Text -- ^ 'pesRoleArn'+  -> PinpointEventStream+pinpointEventStream applicationIdarg destinationStreamArnarg roleArnarg =+  PinpointEventStream+  { _pinpointEventStreamApplicationId = applicationIdarg+  , _pinpointEventStreamDestinationStreamArn = destinationStreamArnarg+  , _pinpointEventStreamRoleArn = roleArnarg+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-pinpoint-eventstream.html#cfn-pinpoint-eventstream-applicationid+pesApplicationId :: Lens' PinpointEventStream (Val Text)+pesApplicationId = lens _pinpointEventStreamApplicationId (\s a -> s { _pinpointEventStreamApplicationId = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-pinpoint-eventstream.html#cfn-pinpoint-eventstream-destinationstreamarn+pesDestinationStreamArn :: Lens' PinpointEventStream (Val Text)+pesDestinationStreamArn = lens _pinpointEventStreamDestinationStreamArn (\s a -> s { _pinpointEventStreamDestinationStreamArn = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-pinpoint-eventstream.html#cfn-pinpoint-eventstream-rolearn+pesRoleArn :: Lens' PinpointEventStream (Val Text)+pesRoleArn = lens _pinpointEventStreamRoleArn (\s a -> s { _pinpointEventStreamRoleArn = a })
+ library-gen/Stratosphere/Resources/PinpointGCMChannel.hs view
@@ -0,0 +1,57 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-pinpoint-gcmchannel.html++module Stratosphere.Resources.PinpointGCMChannel where++import Stratosphere.ResourceImports+++-- | Full data type definition for PinpointGCMChannel. See+-- 'pinpointGCMChannel' for a more convenient constructor.+data PinpointGCMChannel =+  PinpointGCMChannel+  { _pinpointGCMChannelApiKey :: Val Text+  , _pinpointGCMChannelApplicationId :: Val Text+  , _pinpointGCMChannelEnabled :: Maybe (Val Bool)+  } deriving (Show, Eq)++instance ToResourceProperties PinpointGCMChannel where+  toResourceProperties PinpointGCMChannel{..} =+    ResourceProperties+    { resourcePropertiesType = "AWS::Pinpoint::GCMChannel"+    , resourcePropertiesProperties =+        hashMapFromList $ catMaybes+        [ (Just . ("ApiKey",) . toJSON) _pinpointGCMChannelApiKey+        , (Just . ("ApplicationId",) . toJSON) _pinpointGCMChannelApplicationId+        , fmap (("Enabled",) . toJSON) _pinpointGCMChannelEnabled+        ]+    }++-- | Constructor for 'PinpointGCMChannel' containing required fields as+-- arguments.+pinpointGCMChannel+  :: Val Text -- ^ 'pgcmcApiKey'+  -> Val Text -- ^ 'pgcmcApplicationId'+  -> PinpointGCMChannel+pinpointGCMChannel apiKeyarg applicationIdarg =+  PinpointGCMChannel+  { _pinpointGCMChannelApiKey = apiKeyarg+  , _pinpointGCMChannelApplicationId = applicationIdarg+  , _pinpointGCMChannelEnabled = Nothing+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-pinpoint-gcmchannel.html#cfn-pinpoint-gcmchannel-apikey+pgcmcApiKey :: Lens' PinpointGCMChannel (Val Text)+pgcmcApiKey = lens _pinpointGCMChannelApiKey (\s a -> s { _pinpointGCMChannelApiKey = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-pinpoint-gcmchannel.html#cfn-pinpoint-gcmchannel-applicationid+pgcmcApplicationId :: Lens' PinpointGCMChannel (Val Text)+pgcmcApplicationId = lens _pinpointGCMChannelApplicationId (\s a -> s { _pinpointGCMChannelApplicationId = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-pinpoint-gcmchannel.html#cfn-pinpoint-gcmchannel-enabled+pgcmcEnabled :: Lens' PinpointGCMChannel (Maybe (Val Bool))+pgcmcEnabled = lens _pinpointGCMChannelEnabled (\s a -> s { _pinpointGCMChannelEnabled = a })
+ library-gen/Stratosphere/Resources/PinpointSMSChannel.hs view
@@ -0,0 +1,63 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-pinpoint-smschannel.html++module Stratosphere.Resources.PinpointSMSChannel where++import Stratosphere.ResourceImports+++-- | Full data type definition for PinpointSMSChannel. See+-- 'pinpointSMSChannel' for a more convenient constructor.+data PinpointSMSChannel =+  PinpointSMSChannel+  { _pinpointSMSChannelApplicationId :: Val Text+  , _pinpointSMSChannelEnabled :: Maybe (Val Bool)+  , _pinpointSMSChannelSenderId :: Maybe (Val Text)+  , _pinpointSMSChannelShortCode :: Maybe (Val Text)+  } deriving (Show, Eq)++instance ToResourceProperties PinpointSMSChannel where+  toResourceProperties PinpointSMSChannel{..} =+    ResourceProperties+    { resourcePropertiesType = "AWS::Pinpoint::SMSChannel"+    , resourcePropertiesProperties =+        hashMapFromList $ catMaybes+        [ (Just . ("ApplicationId",) . toJSON) _pinpointSMSChannelApplicationId+        , fmap (("Enabled",) . toJSON) _pinpointSMSChannelEnabled+        , fmap (("SenderId",) . toJSON) _pinpointSMSChannelSenderId+        , fmap (("ShortCode",) . toJSON) _pinpointSMSChannelShortCode+        ]+    }++-- | Constructor for 'PinpointSMSChannel' containing required fields as+-- arguments.+pinpointSMSChannel+  :: Val Text -- ^ 'psmscApplicationId'+  -> PinpointSMSChannel+pinpointSMSChannel applicationIdarg =+  PinpointSMSChannel+  { _pinpointSMSChannelApplicationId = applicationIdarg+  , _pinpointSMSChannelEnabled = Nothing+  , _pinpointSMSChannelSenderId = Nothing+  , _pinpointSMSChannelShortCode = Nothing+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-pinpoint-smschannel.html#cfn-pinpoint-smschannel-applicationid+psmscApplicationId :: Lens' PinpointSMSChannel (Val Text)+psmscApplicationId = lens _pinpointSMSChannelApplicationId (\s a -> s { _pinpointSMSChannelApplicationId = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-pinpoint-smschannel.html#cfn-pinpoint-smschannel-enabled+psmscEnabled :: Lens' PinpointSMSChannel (Maybe (Val Bool))+psmscEnabled = lens _pinpointSMSChannelEnabled (\s a -> s { _pinpointSMSChannelEnabled = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-pinpoint-smschannel.html#cfn-pinpoint-smschannel-senderid+psmscSenderId :: Lens' PinpointSMSChannel (Maybe (Val Text))+psmscSenderId = lens _pinpointSMSChannelSenderId (\s a -> s { _pinpointSMSChannelSenderId = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-pinpoint-smschannel.html#cfn-pinpoint-smschannel-shortcode+psmscShortCode :: Lens' PinpointSMSChannel (Maybe (Val Text))+psmscShortCode = lens _pinpointSMSChannelShortCode (\s a -> s { _pinpointSMSChannelShortCode = a })
+ library-gen/Stratosphere/Resources/PinpointSegment.hs view
@@ -0,0 +1,65 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-pinpoint-segment.html++module Stratosphere.Resources.PinpointSegment where++import Stratosphere.ResourceImports+import Stratosphere.ResourceProperties.PinpointSegmentSegmentDimensions+import Stratosphere.ResourceProperties.PinpointSegmentSegmentGroups++-- | Full data type definition for PinpointSegment. See 'pinpointSegment' for+-- a more convenient constructor.+data PinpointSegment =+  PinpointSegment+  { _pinpointSegmentApplicationId :: Val Text+  , _pinpointSegmentDimensions :: Maybe PinpointSegmentSegmentDimensions+  , _pinpointSegmentName :: Val Text+  , _pinpointSegmentSegmentGroups :: Maybe PinpointSegmentSegmentGroups+  } deriving (Show, Eq)++instance ToResourceProperties PinpointSegment where+  toResourceProperties PinpointSegment{..} =+    ResourceProperties+    { resourcePropertiesType = "AWS::Pinpoint::Segment"+    , resourcePropertiesProperties =+        hashMapFromList $ catMaybes+        [ (Just . ("ApplicationId",) . toJSON) _pinpointSegmentApplicationId+        , fmap (("Dimensions",) . toJSON) _pinpointSegmentDimensions+        , (Just . ("Name",) . toJSON) _pinpointSegmentName+        , fmap (("SegmentGroups",) . toJSON) _pinpointSegmentSegmentGroups+        ]+    }++-- | Constructor for 'PinpointSegment' containing required fields as+-- arguments.+pinpointSegment+  :: Val Text -- ^ 'psApplicationId'+  -> Val Text -- ^ 'psName'+  -> PinpointSegment+pinpointSegment applicationIdarg namearg =+  PinpointSegment+  { _pinpointSegmentApplicationId = applicationIdarg+  , _pinpointSegmentDimensions = Nothing+  , _pinpointSegmentName = namearg+  , _pinpointSegmentSegmentGroups = Nothing+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-pinpoint-segment.html#cfn-pinpoint-segment-applicationid+psApplicationId :: Lens' PinpointSegment (Val Text)+psApplicationId = lens _pinpointSegmentApplicationId (\s a -> s { _pinpointSegmentApplicationId = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-pinpoint-segment.html#cfn-pinpoint-segment-dimensions+psDimensions :: Lens' PinpointSegment (Maybe PinpointSegmentSegmentDimensions)+psDimensions = lens _pinpointSegmentDimensions (\s a -> s { _pinpointSegmentDimensions = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-pinpoint-segment.html#cfn-pinpoint-segment-name+psName :: Lens' PinpointSegment (Val Text)+psName = lens _pinpointSegmentName (\s a -> s { _pinpointSegmentName = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-pinpoint-segment.html#cfn-pinpoint-segment-segmentgroups+psSegmentGroups :: Lens' PinpointSegment (Maybe PinpointSegmentSegmentGroups)+psSegmentGroups = lens _pinpointSegmentSegmentGroups (\s a -> s { _pinpointSegmentSegmentGroups = a })
+ library-gen/Stratosphere/Resources/PinpointVoiceChannel.hs view
@@ -0,0 +1,49 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-pinpoint-voicechannel.html++module Stratosphere.Resources.PinpointVoiceChannel where++import Stratosphere.ResourceImports+++-- | Full data type definition for PinpointVoiceChannel. See+-- 'pinpointVoiceChannel' for a more convenient constructor.+data PinpointVoiceChannel =+  PinpointVoiceChannel+  { _pinpointVoiceChannelApplicationId :: Val Text+  , _pinpointVoiceChannelEnabled :: Maybe (Val Bool)+  } deriving (Show, Eq)++instance ToResourceProperties PinpointVoiceChannel where+  toResourceProperties PinpointVoiceChannel{..} =+    ResourceProperties+    { resourcePropertiesType = "AWS::Pinpoint::VoiceChannel"+    , resourcePropertiesProperties =+        hashMapFromList $ catMaybes+        [ (Just . ("ApplicationId",) . toJSON) _pinpointVoiceChannelApplicationId+        , fmap (("Enabled",) . toJSON) _pinpointVoiceChannelEnabled+        ]+    }++-- | Constructor for 'PinpointVoiceChannel' containing required fields as+-- arguments.+pinpointVoiceChannel+  :: Val Text -- ^ 'pvcApplicationId'+  -> PinpointVoiceChannel+pinpointVoiceChannel applicationIdarg =+  PinpointVoiceChannel+  { _pinpointVoiceChannelApplicationId = applicationIdarg+  , _pinpointVoiceChannelEnabled = Nothing+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-pinpoint-voicechannel.html#cfn-pinpoint-voicechannel-applicationid+pvcApplicationId :: Lens' PinpointVoiceChannel (Val Text)+pvcApplicationId = lens _pinpointVoiceChannelApplicationId (\s a -> s { _pinpointVoiceChannelApplicationId = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-pinpoint-voicechannel.html#cfn-pinpoint-voicechannel-enabled+pvcEnabled :: Lens' PinpointVoiceChannel (Maybe (Val Bool))+pvcEnabled = lens _pinpointVoiceChannelEnabled (\s a -> s { _pinpointVoiceChannelEnabled = a })
library-gen/Stratosphere/Resources/RDSDBInstance.hs view
@@ -19,7 +19,7 @@   , _rDSDBInstanceAllowMajorVersionUpgrade :: Maybe (Val Bool)   , _rDSDBInstanceAutoMinorVersionUpgrade :: Maybe (Val Bool)   , _rDSDBInstanceAvailabilityZone :: Maybe (Val Text)-  , _rDSDBInstanceBackupRetentionPeriod :: Maybe (Val Text)+  , _rDSDBInstanceBackupRetentionPeriod :: Maybe (Val Integer)   , _rDSDBInstanceCharacterSetName :: Maybe (Val Text)   , _rDSDBInstanceCopyTagsToSnapshot :: Maybe (Val Bool)   , _rDSDBInstanceDBClusterIdentifier :: Maybe (Val Text)@@ -198,7 +198,7 @@ rdsdbiAvailabilityZone = lens _rDSDBInstanceAvailabilityZone (\s a -> s { _rDSDBInstanceAvailabilityZone = a })  -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-rds-database-instance.html#cfn-rds-dbinstance-backupretentionperiod-rdsdbiBackupRetentionPeriod :: Lens' RDSDBInstance (Maybe (Val Text))+rdsdbiBackupRetentionPeriod :: Lens' RDSDBInstance (Maybe (Val Integer)) rdsdbiBackupRetentionPeriod = lens _rDSDBInstanceBackupRetentionPeriod (\s a -> s { _rDSDBInstanceBackupRetentionPeriod = a })  -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-rds-database-instance.html#cfn-rds-dbinstance-charactersetname
library-gen/Stratosphere/Resources/S3Bucket.hs view
@@ -18,6 +18,7 @@ import Stratosphere.ResourceProperties.S3BucketLoggingConfiguration import Stratosphere.ResourceProperties.S3BucketMetricsConfiguration import Stratosphere.ResourceProperties.S3BucketNotificationConfiguration+import Stratosphere.ResourceProperties.S3BucketObjectLockConfiguration import Stratosphere.ResourceProperties.S3BucketPublicAccessBlockConfiguration import Stratosphere.ResourceProperties.S3BucketReplicationConfiguration import Stratosphere.ResourceProperties.Tag@@ -39,6 +40,8 @@   , _s3BucketLoggingConfiguration :: Maybe S3BucketLoggingConfiguration   , _s3BucketMetricsConfigurations :: Maybe [S3BucketMetricsConfiguration]   , _s3BucketNotificationConfiguration :: Maybe S3BucketNotificationConfiguration+  , _s3BucketObjectLockConfiguration :: Maybe S3BucketObjectLockConfiguration+  , _s3BucketObjectLockEnabled :: Maybe (Val Bool)   , _s3BucketPublicAccessBlockConfiguration :: Maybe S3BucketPublicAccessBlockConfiguration   , _s3BucketReplicationConfiguration :: Maybe S3BucketReplicationConfiguration   , _s3BucketTags :: Maybe [Tag]@@ -63,6 +66,8 @@         , fmap (("LoggingConfiguration",) . toJSON) _s3BucketLoggingConfiguration         , fmap (("MetricsConfigurations",) . toJSON) _s3BucketMetricsConfigurations         , fmap (("NotificationConfiguration",) . toJSON) _s3BucketNotificationConfiguration+        , fmap (("ObjectLockConfiguration",) . toJSON) _s3BucketObjectLockConfiguration+        , fmap (("ObjectLockEnabled",) . toJSON) _s3BucketObjectLockEnabled         , fmap (("PublicAccessBlockConfiguration",) . toJSON) _s3BucketPublicAccessBlockConfiguration         , fmap (("ReplicationConfiguration",) . toJSON) _s3BucketReplicationConfiguration         , fmap (("Tags",) . toJSON) _s3BucketTags@@ -87,6 +92,8 @@   , _s3BucketLoggingConfiguration = Nothing   , _s3BucketMetricsConfigurations = Nothing   , _s3BucketNotificationConfiguration = Nothing+  , _s3BucketObjectLockConfiguration = Nothing+  , _s3BucketObjectLockEnabled = Nothing   , _s3BucketPublicAccessBlockConfiguration = Nothing   , _s3BucketReplicationConfiguration = Nothing   , _s3BucketTags = Nothing@@ -137,6 +144,14 @@ -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-s3-bucket.html#cfn-s3-bucket-notification sbNotificationConfiguration :: Lens' S3Bucket (Maybe S3BucketNotificationConfiguration) sbNotificationConfiguration = lens _s3BucketNotificationConfiguration (\s a -> s { _s3BucketNotificationConfiguration = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-s3-bucket.html#cfn-s3-bucket-objectlockconfiguration+sbObjectLockConfiguration :: Lens' S3Bucket (Maybe S3BucketObjectLockConfiguration)+sbObjectLockConfiguration = lens _s3BucketObjectLockConfiguration (\s a -> s { _s3BucketObjectLockConfiguration = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-s3-bucket.html#cfn-s3-bucket-objectlockenabled+sbObjectLockEnabled :: Lens' S3Bucket (Maybe (Val Bool))+sbObjectLockEnabled = lens _s3BucketObjectLockEnabled (\s a -> s { _s3BucketObjectLockEnabled = a })  -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-s3-bucket.html#cfn-s3-bucket-publicaccessblockconfiguration sbPublicAccessBlockConfiguration :: Lens' S3Bucket (Maybe S3BucketPublicAccessBlockConfiguration)
library-gen/Stratosphere/Resources/SageMakerNotebookInstance.hs view
@@ -14,7 +14,10 @@ -- 'sageMakerNotebookInstance' for a more convenient constructor. data SageMakerNotebookInstance =   SageMakerNotebookInstance-  { _sageMakerNotebookInstanceDirectInternetAccess :: Maybe (Val Text)+  { _sageMakerNotebookInstanceAcceleratorTypes :: Maybe (ValList Text)+  , _sageMakerNotebookInstanceAdditionalCodeRepositories :: Maybe (ValList Text)+  , _sageMakerNotebookInstanceDefaultCodeRepository :: Maybe (Val Text)+  , _sageMakerNotebookInstanceDirectInternetAccess :: Maybe (Val Text)   , _sageMakerNotebookInstanceInstanceType :: Val Text   , _sageMakerNotebookInstanceKmsKeyId :: Maybe (Val Text)   , _sageMakerNotebookInstanceLifecycleConfigName :: Maybe (Val Text)@@ -33,7 +36,10 @@     { resourcePropertiesType = "AWS::SageMaker::NotebookInstance"     , resourcePropertiesProperties =         hashMapFromList $ catMaybes-        [ fmap (("DirectInternetAccess",) . toJSON) _sageMakerNotebookInstanceDirectInternetAccess+        [ fmap (("AcceleratorTypes",) . toJSON) _sageMakerNotebookInstanceAcceleratorTypes+        , fmap (("AdditionalCodeRepositories",) . toJSON) _sageMakerNotebookInstanceAdditionalCodeRepositories+        , fmap (("DefaultCodeRepository",) . toJSON) _sageMakerNotebookInstanceDefaultCodeRepository+        , fmap (("DirectInternetAccess",) . toJSON) _sageMakerNotebookInstanceDirectInternetAccess         , (Just . ("InstanceType",) . toJSON) _sageMakerNotebookInstanceInstanceType         , fmap (("KmsKeyId",) . toJSON) _sageMakerNotebookInstanceKmsKeyId         , fmap (("LifecycleConfigName",) . toJSON) _sageMakerNotebookInstanceLifecycleConfigName@@ -55,7 +61,10 @@   -> SageMakerNotebookInstance sageMakerNotebookInstance instanceTypearg roleArnarg =   SageMakerNotebookInstance-  { _sageMakerNotebookInstanceDirectInternetAccess = Nothing+  { _sageMakerNotebookInstanceAcceleratorTypes = Nothing+  , _sageMakerNotebookInstanceAdditionalCodeRepositories = Nothing+  , _sageMakerNotebookInstanceDefaultCodeRepository = Nothing+  , _sageMakerNotebookInstanceDirectInternetAccess = Nothing   , _sageMakerNotebookInstanceInstanceType = instanceTypearg   , _sageMakerNotebookInstanceKmsKeyId = Nothing   , _sageMakerNotebookInstanceLifecycleConfigName = Nothing@@ -67,6 +76,18 @@   , _sageMakerNotebookInstanceTags = Nothing   , _sageMakerNotebookInstanceVolumeSizeInGB = Nothing   }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-sagemaker-notebookinstance.html#cfn-sagemaker-notebookinstance-acceleratortypes+smniAcceleratorTypes :: Lens' SageMakerNotebookInstance (Maybe (ValList Text))+smniAcceleratorTypes = lens _sageMakerNotebookInstanceAcceleratorTypes (\s a -> s { _sageMakerNotebookInstanceAcceleratorTypes = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-sagemaker-notebookinstance.html#cfn-sagemaker-notebookinstance-additionalcoderepositories+smniAdditionalCodeRepositories :: Lens' SageMakerNotebookInstance (Maybe (ValList Text))+smniAdditionalCodeRepositories = lens _sageMakerNotebookInstanceAdditionalCodeRepositories (\s a -> s { _sageMakerNotebookInstanceAdditionalCodeRepositories = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-sagemaker-notebookinstance.html#cfn-sagemaker-notebookinstance-defaultcoderepository+smniDefaultCodeRepository :: Lens' SageMakerNotebookInstance (Maybe (Val Text))+smniDefaultCodeRepository = lens _sageMakerNotebookInstanceDefaultCodeRepository (\s a -> s { _sageMakerNotebookInstanceDefaultCodeRepository = a })  -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-sagemaker-notebookinstance.html#cfn-sagemaker-notebookinstance-directinternetaccess smniDirectInternetAccess :: Lens' SageMakerNotebookInstance (Maybe (Val Text))
stratosphere.cabal view
@@ -1,13 +1,13 @@ cabal-version: 1.12 --- This file has been generated from package.yaml by hpack version 0.31.1.+-- This file has been generated from package.yaml by hpack version 0.31.2. -- -- see: https://github.com/sol/hpack ----- hash: 866acc984fe2a54845e7421026b6720e78e88e473125a00dd5be0a4e07c9cdef+-- hash: 8b9ce3b7b409c9c1990a3745ec4c4d60a4f2f270e6aa9ba5f5d293ca90cfae84  name:           stratosphere-version:        0.38.0+version:        0.39.0 synopsis:       EDSL for AWS CloudFormation description:    EDSL for AWS CloudFormation category:       AWS, Cloud@@ -56,6 +56,13 @@       Stratosphere.ResourceProperties.AmazonMQBrokerUser       Stratosphere.ResourceProperties.AmazonMQConfigurationAssociationConfigurationId       Stratosphere.ResourceProperties.AmazonMQConfigurationTagsEntry+      Stratosphere.ResourceProperties.AmplifyAppBasicAuthConfig+      Stratosphere.ResourceProperties.AmplifyAppCustomRule+      Stratosphere.ResourceProperties.AmplifyAppEnvironmentVariable+      Stratosphere.ResourceProperties.AmplifyAppToken+      Stratosphere.ResourceProperties.AmplifyBranchBasicAuthConfig+      Stratosphere.ResourceProperties.AmplifyBranchEnvironmentVariable+      Stratosphere.ResourceProperties.AmplifyDomainSubDomainSetting       Stratosphere.ResourceProperties.ApiGatewayApiKeyStageKey       Stratosphere.ResourceProperties.ApiGatewayDeploymentAccessLogSetting       Stratosphere.ResourceProperties.ApiGatewayDeploymentCanarySetting@@ -307,6 +314,7 @@       Stratosphere.ResourceProperties.DirectoryServiceMicrosoftADVpcSettings       Stratosphere.ResourceProperties.DirectoryServiceSimpleADVpcSettings       Stratosphere.ResourceProperties.DLMLifecyclePolicyCreateRule+      Stratosphere.ResourceProperties.DLMLifecyclePolicyParameters       Stratosphere.ResourceProperties.DLMLifecyclePolicyPolicyDetails       Stratosphere.ResourceProperties.DLMLifecyclePolicyRetainRule       Stratosphere.ResourceProperties.DLMLifecyclePolicySchedule@@ -326,6 +334,11 @@       Stratosphere.ResourceProperties.DynamoDBTableStreamSpecification       Stratosphere.ResourceProperties.DynamoDBTableTimeToLiveSpecification       Stratosphere.ResourceProperties.EC2CapacityReservationTagSpecification+      Stratosphere.ResourceProperties.EC2ClientVpnEndpointCertificateAuthenticationRequest+      Stratosphere.ResourceProperties.EC2ClientVpnEndpointClientAuthenticationRequest+      Stratosphere.ResourceProperties.EC2ClientVpnEndpointConnectionLogOptions+      Stratosphere.ResourceProperties.EC2ClientVpnEndpointDirectoryServiceAuthenticationRequest+      Stratosphere.ResourceProperties.EC2ClientVpnEndpointTagSpecification       Stratosphere.ResourceProperties.EC2EC2FleetFleetLaunchTemplateConfigRequest       Stratosphere.ResourceProperties.EC2EC2FleetFleetLaunchTemplateOverridesRequest       Stratosphere.ResourceProperties.EC2EC2FleetFleetLaunchTemplateSpecificationRequest@@ -418,12 +431,15 @@       Stratosphere.ResourceProperties.ECSTaskDefinitionPortMapping       Stratosphere.ResourceProperties.ECSTaskDefinitionProxyConfiguration       Stratosphere.ResourceProperties.ECSTaskDefinitionRepositoryCredentials+      Stratosphere.ResourceProperties.ECSTaskDefinitionResourceRequirement+      Stratosphere.ResourceProperties.ECSTaskDefinitionSecret       Stratosphere.ResourceProperties.ECSTaskDefinitionTaskDefinitionPlacementConstraint       Stratosphere.ResourceProperties.ECSTaskDefinitionTmpfs       Stratosphere.ResourceProperties.ECSTaskDefinitionUlimit       Stratosphere.ResourceProperties.ECSTaskDefinitionVolume       Stratosphere.ResourceProperties.ECSTaskDefinitionVolumeFrom       Stratosphere.ResourceProperties.EFSFileSystemElasticFileSystemTag+      Stratosphere.ResourceProperties.EFSFileSystemLifecyclePolicy       Stratosphere.ResourceProperties.EKSClusterResourcesVpcConfig       Stratosphere.ResourceProperties.ElastiCacheReplicationGroupNodeGroupConfiguration       Stratosphere.ResourceProperties.ElasticBeanstalkApplicationApplicationResourceLifecycleConfig@@ -454,8 +470,15 @@       Stratosphere.ResourceProperties.ElasticLoadBalancingV2ListenerRuleAuthenticateCognitoConfig       Stratosphere.ResourceProperties.ElasticLoadBalancingV2ListenerRuleAuthenticateOidcConfig       Stratosphere.ResourceProperties.ElasticLoadBalancingV2ListenerRuleFixedResponseConfig+      Stratosphere.ResourceProperties.ElasticLoadBalancingV2ListenerRuleHostHeaderConfig+      Stratosphere.ResourceProperties.ElasticLoadBalancingV2ListenerRuleHttpHeaderConfig+      Stratosphere.ResourceProperties.ElasticLoadBalancingV2ListenerRuleHttpRequestMethodConfig+      Stratosphere.ResourceProperties.ElasticLoadBalancingV2ListenerRulePathPatternConfig+      Stratosphere.ResourceProperties.ElasticLoadBalancingV2ListenerRuleQueryStringConfig+      Stratosphere.ResourceProperties.ElasticLoadBalancingV2ListenerRuleQueryStringKeyValue       Stratosphere.ResourceProperties.ElasticLoadBalancingV2ListenerRuleRedirectConfig       Stratosphere.ResourceProperties.ElasticLoadBalancingV2ListenerRuleRuleCondition+      Stratosphere.ResourceProperties.ElasticLoadBalancingV2ListenerRuleSourceIpConfig       Stratosphere.ResourceProperties.ElasticLoadBalancingV2LoadBalancerLoadBalancerAttribute       Stratosphere.ResourceProperties.ElasticLoadBalancingV2LoadBalancerSubnetMapping       Stratosphere.ResourceProperties.ElasticLoadBalancingV2TargetGroupMatcher@@ -623,17 +646,23 @@       Stratosphere.ResourceProperties.IoTAnalyticsChannelRetentionPeriod       Stratosphere.ResourceProperties.IoTAnalyticsDatasetAction       Stratosphere.ResourceProperties.IoTAnalyticsDatasetContainerAction+      Stratosphere.ResourceProperties.IoTAnalyticsDatasetDatasetContentDeliveryRule+      Stratosphere.ResourceProperties.IoTAnalyticsDatasetDatasetContentDeliveryRuleDestination       Stratosphere.ResourceProperties.IoTAnalyticsDatasetDatasetContentVersionValue       Stratosphere.ResourceProperties.IoTAnalyticsDatasetDeltaTime       Stratosphere.ResourceProperties.IoTAnalyticsDatasetFilter+      Stratosphere.ResourceProperties.IoTAnalyticsDatasetGlueConfiguration+      Stratosphere.ResourceProperties.IoTAnalyticsDatasetIotEventsDestinationConfiguration       Stratosphere.ResourceProperties.IoTAnalyticsDatasetOutputFileUriValue       Stratosphere.ResourceProperties.IoTAnalyticsDatasetQueryAction       Stratosphere.ResourceProperties.IoTAnalyticsDatasetResourceConfiguration       Stratosphere.ResourceProperties.IoTAnalyticsDatasetRetentionPeriod+      Stratosphere.ResourceProperties.IoTAnalyticsDatasetS3DestinationConfiguration       Stratosphere.ResourceProperties.IoTAnalyticsDatasetSchedule       Stratosphere.ResourceProperties.IoTAnalyticsDatasetTrigger       Stratosphere.ResourceProperties.IoTAnalyticsDatasetTriggeringDataset       Stratosphere.ResourceProperties.IoTAnalyticsDatasetVariable+      Stratosphere.ResourceProperties.IoTAnalyticsDatasetVersioningConfiguration       Stratosphere.ResourceProperties.IoTAnalyticsDatastoreRetentionPeriod       Stratosphere.ResourceProperties.IoTAnalyticsPipelineActivity       Stratosphere.ResourceProperties.IoTAnalyticsPipelineAddAttributes@@ -647,6 +676,7 @@       Stratosphere.ResourceProperties.IoTAnalyticsPipelineRemoveAttributes       Stratosphere.ResourceProperties.IoTAnalyticsPipelineSelectAttributes       Stratosphere.ResourceProperties.IoTThingAttributePayload+      Stratosphere.ResourceProperties.IoTThingsGraphFlowTemplateDefinitionDocument       Stratosphere.ResourceProperties.IoTTopicRuleAction       Stratosphere.ResourceProperties.IoTTopicRuleCloudwatchAlarmAction       Stratosphere.ResourceProperties.IoTTopicRuleCloudwatchMetricAction@@ -730,18 +760,28 @@       Stratosphere.ResourceProperties.KinesisFirehoseDeliveryStreamBufferingHints       Stratosphere.ResourceProperties.KinesisFirehoseDeliveryStreamCloudWatchLoggingOptions       Stratosphere.ResourceProperties.KinesisFirehoseDeliveryStreamCopyCommand+      Stratosphere.ResourceProperties.KinesisFirehoseDeliveryStreamDataFormatConversionConfiguration+      Stratosphere.ResourceProperties.KinesisFirehoseDeliveryStreamDeserializer       Stratosphere.ResourceProperties.KinesisFirehoseDeliveryStreamElasticsearchBufferingHints       Stratosphere.ResourceProperties.KinesisFirehoseDeliveryStreamElasticsearchDestinationConfiguration       Stratosphere.ResourceProperties.KinesisFirehoseDeliveryStreamElasticsearchRetryOptions       Stratosphere.ResourceProperties.KinesisFirehoseDeliveryStreamEncryptionConfiguration       Stratosphere.ResourceProperties.KinesisFirehoseDeliveryStreamExtendedS3DestinationConfiguration+      Stratosphere.ResourceProperties.KinesisFirehoseDeliveryStreamHiveJsonSerDe+      Stratosphere.ResourceProperties.KinesisFirehoseDeliveryStreamInputFormatConfiguration       Stratosphere.ResourceProperties.KinesisFirehoseDeliveryStreamKinesisStreamSourceConfiguration       Stratosphere.ResourceProperties.KinesisFirehoseDeliveryStreamKMSEncryptionConfig+      Stratosphere.ResourceProperties.KinesisFirehoseDeliveryStreamOpenXJsonSerDe+      Stratosphere.ResourceProperties.KinesisFirehoseDeliveryStreamOrcSerDe+      Stratosphere.ResourceProperties.KinesisFirehoseDeliveryStreamOutputFormatConfiguration+      Stratosphere.ResourceProperties.KinesisFirehoseDeliveryStreamParquetSerDe       Stratosphere.ResourceProperties.KinesisFirehoseDeliveryStreamProcessingConfiguration       Stratosphere.ResourceProperties.KinesisFirehoseDeliveryStreamProcessor       Stratosphere.ResourceProperties.KinesisFirehoseDeliveryStreamProcessorParameter       Stratosphere.ResourceProperties.KinesisFirehoseDeliveryStreamRedshiftDestinationConfiguration       Stratosphere.ResourceProperties.KinesisFirehoseDeliveryStreamS3DestinationConfiguration+      Stratosphere.ResourceProperties.KinesisFirehoseDeliveryStreamSchemaConfiguration+      Stratosphere.ResourceProperties.KinesisFirehoseDeliveryStreamSerializer       Stratosphere.ResourceProperties.KinesisFirehoseDeliveryStreamSplunkDestinationConfiguration       Stratosphere.ResourceProperties.KinesisFirehoseDeliveryStreamSplunkRetryOptions       Stratosphere.ResourceProperties.KinesisStreamStreamEncryption@@ -755,6 +795,15 @@       Stratosphere.ResourceProperties.LambdaLayerVersionContent       Stratosphere.ResourceProperties.LogsMetricFilterMetricTransformation       Stratosphere.ResourceProperties.MediaStoreContainerCorsRule+      Stratosphere.ResourceProperties.MSKClusterBrokerNodeGroupInfo+      Stratosphere.ResourceProperties.MSKClusterClientAuthentication+      Stratosphere.ResourceProperties.MSKClusterConfigurationInfo+      Stratosphere.ResourceProperties.MSKClusterEBSStorageInfo+      Stratosphere.ResourceProperties.MSKClusterEncryptionAtRest+      Stratosphere.ResourceProperties.MSKClusterEncryptionInfo+      Stratosphere.ResourceProperties.MSKClusterEncryptionInTransit+      Stratosphere.ResourceProperties.MSKClusterStorageInfo+      Stratosphere.ResourceProperties.MSKClusterTls       Stratosphere.ResourceProperties.OpsWorksAppDataSource       Stratosphere.ResourceProperties.OpsWorksAppEnvironmentVariable       Stratosphere.ResourceProperties.OpsWorksAppSource@@ -774,6 +823,23 @@       Stratosphere.ResourceProperties.OpsWorksStackRdsDbInstance       Stratosphere.ResourceProperties.OpsWorksStackSource       Stratosphere.ResourceProperties.OpsWorksStackStackConfigurationManager+      Stratosphere.ResourceProperties.PinpointApplicationSettingsCampaignHook+      Stratosphere.ResourceProperties.PinpointApplicationSettingsLimits+      Stratosphere.ResourceProperties.PinpointApplicationSettingsQuietTime+      Stratosphere.ResourceProperties.PinpointCampaignAttributeDimension+      Stratosphere.ResourceProperties.PinpointCampaignCampaignEmailMessage+      Stratosphere.ResourceProperties.PinpointCampaignCampaignEventFilter+      Stratosphere.ResourceProperties.PinpointCampaignCampaignHook+      Stratosphere.ResourceProperties.PinpointCampaignCampaignSmsMessage+      Stratosphere.ResourceProperties.PinpointCampaignEventDimensions+      Stratosphere.ResourceProperties.PinpointCampaignLimits+      Stratosphere.ResourceProperties.PinpointCampaignMessage+      Stratosphere.ResourceProperties.PinpointCampaignMessageConfiguration+      Stratosphere.ResourceProperties.PinpointCampaignMetricDimension+      Stratosphere.ResourceProperties.PinpointCampaignQuietTime+      Stratosphere.ResourceProperties.PinpointCampaignSchedule+      Stratosphere.ResourceProperties.PinpointCampaignSetDimension+      Stratosphere.ResourceProperties.PinpointCampaignWriteTreatmentResource       Stratosphere.ResourceProperties.PinpointEmailConfigurationSetDeliveryOptions       Stratosphere.ResourceProperties.PinpointEmailConfigurationSetEventDestinationCloudWatchDestination       Stratosphere.ResourceProperties.PinpointEmailConfigurationSetEventDestinationDimensionConfiguration@@ -788,6 +854,18 @@       Stratosphere.ResourceProperties.PinpointEmailDedicatedIpPoolTags       Stratosphere.ResourceProperties.PinpointEmailIdentityMailFromAttributes       Stratosphere.ResourceProperties.PinpointEmailIdentityTags+      Stratosphere.ResourceProperties.PinpointSegmentAttributeDimension+      Stratosphere.ResourceProperties.PinpointSegmentBehavior+      Stratosphere.ResourceProperties.PinpointSegmentCoordinates+      Stratosphere.ResourceProperties.PinpointSegmentDemographic+      Stratosphere.ResourceProperties.PinpointSegmentGPSPoint+      Stratosphere.ResourceProperties.PinpointSegmentGroups+      Stratosphere.ResourceProperties.PinpointSegmentLocation+      Stratosphere.ResourceProperties.PinpointSegmentRecency+      Stratosphere.ResourceProperties.PinpointSegmentSegmentDimensions+      Stratosphere.ResourceProperties.PinpointSegmentSegmentGroups+      Stratosphere.ResourceProperties.PinpointSegmentSetDimension+      Stratosphere.ResourceProperties.PinpointSegmentSourceSegments       Stratosphere.ResourceProperties.RDSDBClusterScalingConfiguration       Stratosphere.ResourceProperties.RDSDBInstanceProcessorFeature       Stratosphere.ResourceProperties.RDSDBSecurityGroupIngressProperty@@ -823,6 +901,7 @@       Stratosphere.ResourceProperties.S3BucketCorsConfiguration       Stratosphere.ResourceProperties.S3BucketCorsRule       Stratosphere.ResourceProperties.S3BucketDataExport+      Stratosphere.ResourceProperties.S3BucketDefaultRetention       Stratosphere.ResourceProperties.S3BucketDestination       Stratosphere.ResourceProperties.S3BucketEncryptionConfiguration       Stratosphere.ResourceProperties.S3BucketFilterRule@@ -834,6 +913,8 @@       Stratosphere.ResourceProperties.S3BucketNoncurrentVersionTransition       Stratosphere.ResourceProperties.S3BucketNotificationConfiguration       Stratosphere.ResourceProperties.S3BucketNotificationFilter+      Stratosphere.ResourceProperties.S3BucketObjectLockConfiguration+      Stratosphere.ResourceProperties.S3BucketObjectLockRule       Stratosphere.ResourceProperties.S3BucketPublicAccessBlockConfiguration       Stratosphere.ResourceProperties.S3BucketQueueConfiguration       Stratosphere.ResourceProperties.S3BucketRedirectAllRequestsTo@@ -937,6 +1018,9 @@       Stratosphere.Resources.AmazonMQBroker       Stratosphere.Resources.AmazonMQConfiguration       Stratosphere.Resources.AmazonMQConfigurationAssociation+      Stratosphere.Resources.AmplifyApp+      Stratosphere.Resources.AmplifyBranch+      Stratosphere.Resources.AmplifyDomain       Stratosphere.Resources.ApiGatewayAccount       Stratosphere.Resources.ApiGatewayApiKey       Stratosphere.Resources.ApiGatewayAuthorizer@@ -1051,6 +1135,10 @@       Stratosphere.Resources.DocDBDBSubnetGroup       Stratosphere.Resources.DynamoDBTable       Stratosphere.Resources.EC2CapacityReservation+      Stratosphere.Resources.EC2ClientVpnAuthorizationRule+      Stratosphere.Resources.EC2ClientVpnEndpoint+      Stratosphere.Resources.EC2ClientVpnRoute+      Stratosphere.Resources.EC2ClientVpnTargetNetworkAssociation       Stratosphere.Resources.EC2CustomerGateway       Stratosphere.Resources.EC2DHCPOptions       Stratosphere.Resources.EC2EC2Fleet@@ -1191,6 +1279,7 @@       Stratosphere.Resources.IoTPolicyPrincipalAttachment       Stratosphere.Resources.IoTThing       Stratosphere.Resources.IoTThingPrincipalAttachment+      Stratosphere.Resources.IoTThingsGraphFlowTemplate       Stratosphere.Resources.IoTTopicRule       Stratosphere.Resources.KinesisAnalyticsApplication       Stratosphere.Resources.KinesisAnalyticsApplicationOutput@@ -1217,6 +1306,7 @@       Stratosphere.Resources.LogsMetricFilter       Stratosphere.Resources.LogsSubscriptionFilter       Stratosphere.Resources.MediaStoreContainer+      Stratosphere.Resources.MSKCluster       Stratosphere.Resources.NeptuneDBCluster       Stratosphere.Resources.NeptuneDBClusterParameterGroup       Stratosphere.Resources.NeptuneDBInstance@@ -1230,10 +1320,25 @@       Stratosphere.Resources.OpsWorksStack       Stratosphere.Resources.OpsWorksUserProfile       Stratosphere.Resources.OpsWorksVolume+      Stratosphere.Resources.PinpointADMChannel+      Stratosphere.Resources.PinpointAPNSChannel+      Stratosphere.Resources.PinpointAPNSSandboxChannel+      Stratosphere.Resources.PinpointAPNSVoipChannel+      Stratosphere.Resources.PinpointAPNSVoipSandboxChannel+      Stratosphere.Resources.PinpointApp+      Stratosphere.Resources.PinpointApplicationSettings+      Stratosphere.Resources.PinpointBaiduChannel+      Stratosphere.Resources.PinpointCampaign+      Stratosphere.Resources.PinpointEmailChannel       Stratosphere.Resources.PinpointEmailConfigurationSet       Stratosphere.Resources.PinpointEmailConfigurationSetEventDestination       Stratosphere.Resources.PinpointEmailDedicatedIpPool       Stratosphere.Resources.PinpointEmailIdentity+      Stratosphere.Resources.PinpointEventStream+      Stratosphere.Resources.PinpointGCMChannel+      Stratosphere.Resources.PinpointSegment+      Stratosphere.Resources.PinpointSMSChannel+      Stratosphere.Resources.PinpointVoiceChannel       Stratosphere.Resources.RAMResourceShare       Stratosphere.Resources.RDSDBCluster       Stratosphere.Resources.RDSDBClusterParameterGroup