packages feed

stratosphere 0.24.3 → 0.24.4

raw patch · 10 files changed

+293/−6 lines, 10 files

Files

CHANGELOG.md view
@@ -1,5 +1,9 @@ # Change Log +## 0.24.4++* Update resource specification document to new unspecified version+ ## 0.24.3  * Update resource specification document to new unspecified version
library-gen/Stratosphere/ResourceProperties/CodeBuildProjectArtifacts.hs view
@@ -13,9 +13,11 @@ -- 'codeBuildProjectArtifacts' for a more convenient constructor. data CodeBuildProjectArtifacts =   CodeBuildProjectArtifacts-  { _codeBuildProjectArtifactsLocation :: Maybe (Val Text)+  { _codeBuildProjectArtifactsEncryptionDisabled :: Maybe (Val Bool)+  , _codeBuildProjectArtifactsLocation :: Maybe (Val Text)   , _codeBuildProjectArtifactsName :: Maybe (Val Text)   , _codeBuildProjectArtifactsNamespaceType :: Maybe (Val Text)+  , _codeBuildProjectArtifactsOverrideArtifactName :: Maybe (Val Bool)   , _codeBuildProjectArtifactsPackaging :: Maybe (Val Text)   , _codeBuildProjectArtifactsPath :: Maybe (Val Text)   , _codeBuildProjectArtifactsType :: Val Text@@ -25,9 +27,11 @@   toJSON CodeBuildProjectArtifacts{..} =     object $     catMaybes-    [ fmap (("Location",) . toJSON) _codeBuildProjectArtifactsLocation+    [ fmap (("EncryptionDisabled",) . toJSON . fmap Bool') _codeBuildProjectArtifactsEncryptionDisabled+    , fmap (("Location",) . toJSON) _codeBuildProjectArtifactsLocation     , fmap (("Name",) . toJSON) _codeBuildProjectArtifactsName     , fmap (("NamespaceType",) . toJSON) _codeBuildProjectArtifactsNamespaceType+    , fmap (("OverrideArtifactName",) . toJSON . fmap Bool') _codeBuildProjectArtifactsOverrideArtifactName     , fmap (("Packaging",) . toJSON) _codeBuildProjectArtifactsPackaging     , fmap (("Path",) . toJSON) _codeBuildProjectArtifactsPath     , (Just . ("Type",) . toJSON) _codeBuildProjectArtifactsType@@ -36,9 +40,11 @@ instance FromJSON CodeBuildProjectArtifacts where   parseJSON (Object obj) =     CodeBuildProjectArtifacts <$>+      fmap (fmap (fmap unBool')) (obj .:? "EncryptionDisabled") <*>       (obj .:? "Location") <*>       (obj .:? "Name") <*>       (obj .:? "NamespaceType") <*>+      fmap (fmap (fmap unBool')) (obj .:? "OverrideArtifactName") <*>       (obj .:? "Packaging") <*>       (obj .:? "Path") <*>       (obj .: "Type")@@ -51,14 +57,20 @@   -> CodeBuildProjectArtifacts codeBuildProjectArtifacts typearg =   CodeBuildProjectArtifacts-  { _codeBuildProjectArtifactsLocation = Nothing+  { _codeBuildProjectArtifactsEncryptionDisabled = Nothing+  , _codeBuildProjectArtifactsLocation = Nothing   , _codeBuildProjectArtifactsName = Nothing   , _codeBuildProjectArtifactsNamespaceType = Nothing+  , _codeBuildProjectArtifactsOverrideArtifactName = Nothing   , _codeBuildProjectArtifactsPackaging = Nothing   , _codeBuildProjectArtifactsPath = Nothing   , _codeBuildProjectArtifactsType = typearg   } +-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-codebuild-project-artifacts.html#cfn-codebuild-project-artifacts-encryptiondisabled+cbpaEncryptionDisabled :: Lens' CodeBuildProjectArtifacts (Maybe (Val Bool))+cbpaEncryptionDisabled = lens _codeBuildProjectArtifactsEncryptionDisabled (\s a -> s { _codeBuildProjectArtifactsEncryptionDisabled = a })+ -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-codebuild-project-artifacts.html#cfn-codebuild-project-artifacts-location cbpaLocation :: Lens' CodeBuildProjectArtifacts (Maybe (Val Text)) cbpaLocation = lens _codeBuildProjectArtifactsLocation (\s a -> s { _codeBuildProjectArtifactsLocation = a })@@ -70,6 +82,10 @@ -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-codebuild-project-artifacts.html#cfn-codebuild-project-artifacts-namespacetype cbpaNamespaceType :: Lens' CodeBuildProjectArtifacts (Maybe (Val Text)) cbpaNamespaceType = lens _codeBuildProjectArtifactsNamespaceType (\s a -> s { _codeBuildProjectArtifactsNamespaceType = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-codebuild-project-artifacts.html#cfn-codebuild-project-artifacts-overrideartifactname+cbpaOverrideArtifactName :: Lens' CodeBuildProjectArtifacts (Maybe (Val Bool))+cbpaOverrideArtifactName = lens _codeBuildProjectArtifactsOverrideArtifactName (\s a -> s { _codeBuildProjectArtifactsOverrideArtifactName = a })  -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-codebuild-project-artifacts.html#cfn-codebuild-project-artifacts-packaging cbpaPackaging :: Lens' CodeBuildProjectArtifacts (Maybe (Val Text))
+ library-gen/Stratosphere/ResourceProperties/GlueClassifierJsonClassifier.hs view
@@ -0,0 +1,52 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-glue-classifier-jsonclassifier.html++module Stratosphere.ResourceProperties.GlueClassifierJsonClassifier where++import Stratosphere.ResourceImports+++-- | Full data type definition for GlueClassifierJsonClassifier. See+-- 'glueClassifierJsonClassifier' for a more convenient constructor.+data GlueClassifierJsonClassifier =+  GlueClassifierJsonClassifier+  { _glueClassifierJsonClassifierJsonPath :: Val Text+  , _glueClassifierJsonClassifierName :: Maybe (Val Text)+  } deriving (Show, Eq)++instance ToJSON GlueClassifierJsonClassifier where+  toJSON GlueClassifierJsonClassifier{..} =+    object $+    catMaybes+    [ (Just . ("JsonPath",) . toJSON) _glueClassifierJsonClassifierJsonPath+    , fmap (("Name",) . toJSON) _glueClassifierJsonClassifierName+    ]++instance FromJSON GlueClassifierJsonClassifier where+  parseJSON (Object obj) =+    GlueClassifierJsonClassifier <$>+      (obj .: "JsonPath") <*>+      (obj .:? "Name")+  parseJSON _ = mempty++-- | Constructor for 'GlueClassifierJsonClassifier' containing required fields+-- as arguments.+glueClassifierJsonClassifier+  :: Val Text -- ^ 'gcjcJsonPath'+  -> GlueClassifierJsonClassifier+glueClassifierJsonClassifier jsonPatharg =+  GlueClassifierJsonClassifier+  { _glueClassifierJsonClassifierJsonPath = jsonPatharg+  , _glueClassifierJsonClassifierName = Nothing+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-glue-classifier-jsonclassifier.html#cfn-glue-classifier-jsonclassifier-jsonpath+gcjcJsonPath :: Lens' GlueClassifierJsonClassifier (Val Text)+gcjcJsonPath = lens _glueClassifierJsonClassifierJsonPath (\s a -> s { _glueClassifierJsonClassifierJsonPath = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-glue-classifier-jsonclassifier.html#cfn-glue-classifier-jsonclassifier-name+gcjcName :: Lens' GlueClassifierJsonClassifier (Maybe (Val Text))+gcjcName = lens _glueClassifierJsonClassifierName (\s a -> s { _glueClassifierJsonClassifierName = a })
+ library-gen/Stratosphere/ResourceProperties/GlueClassifierXMLClassifier.hs view
@@ -0,0 +1,61 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-glue-classifier-xmlclassifier.html++module Stratosphere.ResourceProperties.GlueClassifierXMLClassifier where++import Stratosphere.ResourceImports+++-- | Full data type definition for GlueClassifierXMLClassifier. See+-- 'glueClassifierXMLClassifier' for a more convenient constructor.+data GlueClassifierXMLClassifier =+  GlueClassifierXMLClassifier+  { _glueClassifierXMLClassifierClassification :: Val Text+  , _glueClassifierXMLClassifierName :: Maybe (Val Text)+  , _glueClassifierXMLClassifierRowTag :: Val Text+  } deriving (Show, Eq)++instance ToJSON GlueClassifierXMLClassifier where+  toJSON GlueClassifierXMLClassifier{..} =+    object $+    catMaybes+    [ (Just . ("Classification",) . toJSON) _glueClassifierXMLClassifierClassification+    , fmap (("Name",) . toJSON) _glueClassifierXMLClassifierName+    , (Just . ("RowTag",) . toJSON) _glueClassifierXMLClassifierRowTag+    ]++instance FromJSON GlueClassifierXMLClassifier where+  parseJSON (Object obj) =+    GlueClassifierXMLClassifier <$>+      (obj .: "Classification") <*>+      (obj .:? "Name") <*>+      (obj .: "RowTag")+  parseJSON _ = mempty++-- | Constructor for 'GlueClassifierXMLClassifier' containing required fields+-- as arguments.+glueClassifierXMLClassifier+  :: Val Text -- ^ 'gcxmlcClassification'+  -> Val Text -- ^ 'gcxmlcRowTag'+  -> GlueClassifierXMLClassifier+glueClassifierXMLClassifier classificationarg rowTagarg =+  GlueClassifierXMLClassifier+  { _glueClassifierXMLClassifierClassification = classificationarg+  , _glueClassifierXMLClassifierName = Nothing+  , _glueClassifierXMLClassifierRowTag = rowTagarg+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-glue-classifier-xmlclassifier.html#cfn-glue-classifier-xmlclassifier-classification+gcxmlcClassification :: Lens' GlueClassifierXMLClassifier (Val Text)+gcxmlcClassification = lens _glueClassifierXMLClassifierClassification (\s a -> s { _glueClassifierXMLClassifierClassification = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-glue-classifier-xmlclassifier.html#cfn-glue-classifier-xmlclassifier-name+gcxmlcName :: Lens' GlueClassifierXMLClassifier (Maybe (Val Text))+gcxmlcName = lens _glueClassifierXMLClassifierName (\s a -> s { _glueClassifierXMLClassifierName = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-glue-classifier-xmlclassifier.html#cfn-glue-classifier-xmlclassifier-rowtag+gcxmlcRowTag :: Lens' GlueClassifierXMLClassifier (Val Text)+gcxmlcRowTag = lens _glueClassifierXMLClassifierRowTag (\s a -> s { _glueClassifierXMLClassifierRowTag = a })
library-gen/Stratosphere/Resources.hs view
@@ -164,6 +164,7 @@ import Stratosphere.Resources.EC2VPCDHCPOptionsAssociation as X import Stratosphere.Resources.EC2VPCEndpoint as X import Stratosphere.Resources.EC2VPCEndpointConnectionNotification as X+import Stratosphere.Resources.EC2VPCEndpointServicePermissions as X import Stratosphere.Resources.EC2VPCGatewayAttachment as X import Stratosphere.Resources.EC2VPCPeeringConnection as X import Stratosphere.Resources.EC2VPNConnection as X@@ -226,6 +227,7 @@ import Stratosphere.Resources.IAMManagedPolicy as X import Stratosphere.Resources.IAMPolicy as X import Stratosphere.Resources.IAMRole as X+import Stratosphere.Resources.IAMServiceLinkedRole as X import Stratosphere.Resources.IAMUser as X import Stratosphere.Resources.IAMUserToGroupAddition as X import Stratosphere.Resources.InspectorAssessmentTarget as X@@ -675,6 +677,8 @@ import Stratosphere.ResourceProperties.GameLiftBuildS3Location as X import Stratosphere.ResourceProperties.GameLiftFleetIpPermission as X import Stratosphere.ResourceProperties.GlueClassifierGrokClassifier as X+import Stratosphere.ResourceProperties.GlueClassifierJsonClassifier as X+import Stratosphere.ResourceProperties.GlueClassifierXMLClassifier as X import Stratosphere.ResourceProperties.GlueConnectionConnectionInput as X import Stratosphere.ResourceProperties.GlueConnectionPhysicalConnectionRequirements as X import Stratosphere.ResourceProperties.GlueCrawlerJdbcTarget as X@@ -1045,6 +1049,7 @@   | EC2VPCDHCPOptionsAssociationProperties EC2VPCDHCPOptionsAssociation   | EC2VPCEndpointProperties EC2VPCEndpoint   | EC2VPCEndpointConnectionNotificationProperties EC2VPCEndpointConnectionNotification+  | EC2VPCEndpointServicePermissionsProperties EC2VPCEndpointServicePermissions   | EC2VPCGatewayAttachmentProperties EC2VPCGatewayAttachment   | EC2VPCPeeringConnectionProperties EC2VPCPeeringConnection   | EC2VPNConnectionProperties EC2VPNConnection@@ -1107,6 +1112,7 @@   | IAMManagedPolicyProperties IAMManagedPolicy   | IAMPolicyProperties IAMPolicy   | IAMRoleProperties IAMRole+  | IAMServiceLinkedRoleProperties IAMServiceLinkedRole   | IAMUserProperties IAMUser   | IAMUserToGroupAdditionProperties IAMUserToGroupAddition   | InspectorAssessmentTargetProperties InspectorAssessmentTarget@@ -1513,6 +1519,8 @@   [ "Type" .= ("AWS::EC2::VPCEndpoint" :: String), "Properties" .= toJSON x] resourcePropertiesJSON (EC2VPCEndpointConnectionNotificationProperties x) =   [ "Type" .= ("AWS::EC2::VPCEndpointConnectionNotification" :: String), "Properties" .= toJSON x]+resourcePropertiesJSON (EC2VPCEndpointServicePermissionsProperties x) =+  [ "Type" .= ("AWS::EC2::VPCEndpointServicePermissions" :: String), "Properties" .= toJSON x] resourcePropertiesJSON (EC2VPCGatewayAttachmentProperties x) =   [ "Type" .= ("AWS::EC2::VPCGatewayAttachment" :: String), "Properties" .= toJSON x] resourcePropertiesJSON (EC2VPCPeeringConnectionProperties x) =@@ -1637,6 +1645,8 @@   [ "Type" .= ("AWS::IAM::Policy" :: String), "Properties" .= toJSON x] resourcePropertiesJSON (IAMRoleProperties x) =   [ "Type" .= ("AWS::IAM::Role" :: String), "Properties" .= toJSON x]+resourcePropertiesJSON (IAMServiceLinkedRoleProperties x) =+  [ "Type" .= ("AWS::IAM::ServiceLinkedRole" :: String), "Properties" .= toJSON x] resourcePropertiesJSON (IAMUserProperties x) =   [ "Type" .= ("AWS::IAM::User" :: String), "Properties" .= toJSON x] resourcePropertiesJSON (IAMUserToGroupAdditionProperties x) =@@ -1994,6 +2004,7 @@          "AWS::EC2::VPCDHCPOptionsAssociation" -> EC2VPCDHCPOptionsAssociationProperties <$> (o .: "Properties")          "AWS::EC2::VPCEndpoint" -> EC2VPCEndpointProperties <$> (o .: "Properties")          "AWS::EC2::VPCEndpointConnectionNotification" -> EC2VPCEndpointConnectionNotificationProperties <$> (o .: "Properties")+         "AWS::EC2::VPCEndpointServicePermissions" -> EC2VPCEndpointServicePermissionsProperties <$> (o .: "Properties")          "AWS::EC2::VPCGatewayAttachment" -> EC2VPCGatewayAttachmentProperties <$> (o .: "Properties")          "AWS::EC2::VPCPeeringConnection" -> EC2VPCPeeringConnectionProperties <$> (o .: "Properties")          "AWS::EC2::VPNConnection" -> EC2VPNConnectionProperties <$> (o .: "Properties")@@ -2056,6 +2067,7 @@          "AWS::IAM::ManagedPolicy" -> IAMManagedPolicyProperties <$> (o .: "Properties")          "AWS::IAM::Policy" -> IAMPolicyProperties <$> (o .: "Properties")          "AWS::IAM::Role" -> IAMRoleProperties <$> (o .: "Properties")+         "AWS::IAM::ServiceLinkedRole" -> IAMServiceLinkedRoleProperties <$> (o .: "Properties")          "AWS::IAM::User" -> IAMUserProperties <$> (o .: "Properties")          "AWS::IAM::UserToGroupAddition" -> IAMUserToGroupAdditionProperties <$> (o .: "Properties")          "AWS::Inspector::AssessmentTarget" -> InspectorAssessmentTargetProperties <$> (o .: "Properties")
+ library-gen/Stratosphere/Resources/EC2VPCEndpointServicePermissions.hs view
@@ -0,0 +1,52 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ec2-vpcendpointservicepermissions.html++module Stratosphere.Resources.EC2VPCEndpointServicePermissions where++import Stratosphere.ResourceImports+++-- | Full data type definition for EC2VPCEndpointServicePermissions. See+-- 'ec2VPCEndpointServicePermissions' for a more convenient constructor.+data EC2VPCEndpointServicePermissions =+  EC2VPCEndpointServicePermissions+  { _eC2VPCEndpointServicePermissionsAllowedPrincipals :: Maybe (ValList Text)+  , _eC2VPCEndpointServicePermissionsServiceId :: Val Text+  } deriving (Show, Eq)++instance ToJSON EC2VPCEndpointServicePermissions where+  toJSON EC2VPCEndpointServicePermissions{..} =+    object $+    catMaybes+    [ fmap (("AllowedPrincipals",) . toJSON) _eC2VPCEndpointServicePermissionsAllowedPrincipals+    , (Just . ("ServiceId",) . toJSON) _eC2VPCEndpointServicePermissionsServiceId+    ]++instance FromJSON EC2VPCEndpointServicePermissions where+  parseJSON (Object obj) =+    EC2VPCEndpointServicePermissions <$>+      (obj .:? "AllowedPrincipals") <*>+      (obj .: "ServiceId")+  parseJSON _ = mempty++-- | Constructor for 'EC2VPCEndpointServicePermissions' containing required+-- fields as arguments.+ec2VPCEndpointServicePermissions+  :: Val Text -- ^ 'ecvpcespServiceId'+  -> EC2VPCEndpointServicePermissions+ec2VPCEndpointServicePermissions serviceIdarg =+  EC2VPCEndpointServicePermissions+  { _eC2VPCEndpointServicePermissionsAllowedPrincipals = Nothing+  , _eC2VPCEndpointServicePermissionsServiceId = serviceIdarg+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ec2-vpcendpointservicepermissions.html#cfn-ec2-vpcendpointservicepermissions-allowedprincipals+ecvpcespAllowedPrincipals :: Lens' EC2VPCEndpointServicePermissions (Maybe (ValList Text))+ecvpcespAllowedPrincipals = lens _eC2VPCEndpointServicePermissionsAllowedPrincipals (\s a -> s { _eC2VPCEndpointServicePermissionsAllowedPrincipals = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-ec2-vpcendpointservicepermissions.html#cfn-ec2-vpcendpointservicepermissions-serviceid+ecvpcespServiceId :: Lens' EC2VPCEndpointServicePermissions (Val Text)+ecvpcespServiceId = lens _eC2VPCEndpointServicePermissionsServiceId (\s a -> s { _eC2VPCEndpointServicePermissionsServiceId = a })
library-gen/Stratosphere/Resources/GlueClassifier.hs view
@@ -8,12 +8,16 @@  import Stratosphere.ResourceImports import Stratosphere.ResourceProperties.GlueClassifierGrokClassifier+import Stratosphere.ResourceProperties.GlueClassifierJsonClassifier+import Stratosphere.ResourceProperties.GlueClassifierXMLClassifier  -- | Full data type definition for GlueClassifier. See 'glueClassifier' for a -- more convenient constructor. data GlueClassifier =   GlueClassifier   { _glueClassifierGrokClassifier :: Maybe GlueClassifierGrokClassifier+  , _glueClassifierJsonClassifier :: Maybe GlueClassifierJsonClassifier+  , _glueClassifierXMLClassifier :: Maybe GlueClassifierXMLClassifier   } deriving (Show, Eq)  instance ToJSON GlueClassifier where@@ -21,12 +25,16 @@     object $     catMaybes     [ fmap (("GrokClassifier",) . toJSON) _glueClassifierGrokClassifier+    , fmap (("JsonClassifier",) . toJSON) _glueClassifierJsonClassifier+    , fmap (("XMLClassifier",) . toJSON) _glueClassifierXMLClassifier     ]  instance FromJSON GlueClassifier where   parseJSON (Object obj) =     GlueClassifier <$>-      (obj .:? "GrokClassifier")+      (obj .:? "GrokClassifier") <*>+      (obj .:? "JsonClassifier") <*>+      (obj .:? "XMLClassifier")   parseJSON _ = mempty  -- | Constructor for 'GlueClassifier' containing required fields as arguments.@@ -35,8 +43,18 @@ glueClassifier  =   GlueClassifier   { _glueClassifierGrokClassifier = Nothing+  , _glueClassifierJsonClassifier = Nothing+  , _glueClassifierXMLClassifier = Nothing   }  -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-glue-classifier.html#cfn-glue-classifier-grokclassifier gcGrokClassifier :: Lens' GlueClassifier (Maybe GlueClassifierGrokClassifier) gcGrokClassifier = lens _glueClassifierGrokClassifier (\s a -> s { _glueClassifierGrokClassifier = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-glue-classifier.html#cfn-glue-classifier-jsonclassifier+gcJsonClassifier :: Lens' GlueClassifier (Maybe GlueClassifierJsonClassifier)+gcJsonClassifier = lens _glueClassifierJsonClassifier (\s a -> s { _glueClassifierJsonClassifier = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-glue-classifier.html#cfn-glue-classifier-xmlclassifier+gcXMLClassifier :: Lens' GlueClassifier (Maybe GlueClassifierXMLClassifier)+gcXMLClassifier = lens _glueClassifierXMLClassifier (\s a -> s { _glueClassifierXMLClassifier = a })
library-gen/Stratosphere/Resources/GlueCrawler.hs view
@@ -16,6 +16,7 @@ data GlueCrawler =   GlueCrawler   { _glueCrawlerClassifiers :: Maybe (ValList Text)+  , _glueCrawlerConfiguration :: Maybe (Val Text)   , _glueCrawlerDatabaseName :: Val Text   , _glueCrawlerDescription :: Maybe (Val Text)   , _glueCrawlerName :: Maybe (Val Text)@@ -31,6 +32,7 @@     object $     catMaybes     [ fmap (("Classifiers",) . toJSON) _glueCrawlerClassifiers+    , fmap (("Configuration",) . toJSON) _glueCrawlerConfiguration     , (Just . ("DatabaseName",) . toJSON) _glueCrawlerDatabaseName     , fmap (("Description",) . toJSON) _glueCrawlerDescription     , fmap (("Name",) . toJSON) _glueCrawlerName@@ -45,6 +47,7 @@   parseJSON (Object obj) =     GlueCrawler <$>       (obj .:? "Classifiers") <*>+      (obj .:? "Configuration") <*>       (obj .: "DatabaseName") <*>       (obj .:? "Description") <*>       (obj .:? "Name") <*>@@ -64,6 +67,7 @@ glueCrawler databaseNamearg rolearg targetsarg =   GlueCrawler   { _glueCrawlerClassifiers = Nothing+  , _glueCrawlerConfiguration = Nothing   , _glueCrawlerDatabaseName = databaseNamearg   , _glueCrawlerDescription = Nothing   , _glueCrawlerName = Nothing@@ -77,6 +81,10 @@ -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-glue-crawler.html#cfn-glue-crawler-classifiers gcClassifiers :: Lens' GlueCrawler (Maybe (ValList Text)) gcClassifiers = lens _glueCrawlerClassifiers (\s a -> s { _glueCrawlerClassifiers = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-glue-crawler.html#cfn-glue-crawler-configuration+gcConfiguration :: Lens' GlueCrawler (Maybe (Val Text))+gcConfiguration = lens _glueCrawlerConfiguration (\s a -> s { _glueCrawlerConfiguration = a })  -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-glue-crawler.html#cfn-glue-crawler-databasename gcDatabaseName :: Lens' GlueCrawler (Val Text)
+ library-gen/Stratosphere/Resources/IAMServiceLinkedRole.hs view
@@ -0,0 +1,60 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-iam-servicelinkedrole.html++module Stratosphere.Resources.IAMServiceLinkedRole where++import Stratosphere.ResourceImports+++-- | Full data type definition for IAMServiceLinkedRole. See+-- 'iamServiceLinkedRole' for a more convenient constructor.+data IAMServiceLinkedRole =+  IAMServiceLinkedRole+  { _iAMServiceLinkedRoleAWSServiceName :: Val Text+  , _iAMServiceLinkedRoleCustomSuffix :: Maybe (Val Text)+  , _iAMServiceLinkedRoleDescription :: Maybe (Val Text)+  } deriving (Show, Eq)++instance ToJSON IAMServiceLinkedRole where+  toJSON IAMServiceLinkedRole{..} =+    object $+    catMaybes+    [ (Just . ("AWSServiceName",) . toJSON) _iAMServiceLinkedRoleAWSServiceName+    , fmap (("CustomSuffix",) . toJSON) _iAMServiceLinkedRoleCustomSuffix+    , fmap (("Description",) . toJSON) _iAMServiceLinkedRoleDescription+    ]++instance FromJSON IAMServiceLinkedRole where+  parseJSON (Object obj) =+    IAMServiceLinkedRole <$>+      (obj .: "AWSServiceName") <*>+      (obj .:? "CustomSuffix") <*>+      (obj .:? "Description")+  parseJSON _ = mempty++-- | Constructor for 'IAMServiceLinkedRole' containing required fields as+-- arguments.+iamServiceLinkedRole+  :: Val Text -- ^ 'iamslrAWSServiceName'+  -> IAMServiceLinkedRole+iamServiceLinkedRole aWSServiceNamearg =+  IAMServiceLinkedRole+  { _iAMServiceLinkedRoleAWSServiceName = aWSServiceNamearg+  , _iAMServiceLinkedRoleCustomSuffix = Nothing+  , _iAMServiceLinkedRoleDescription = Nothing+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-iam-servicelinkedrole.html#cfn-iam-servicelinkedrole-awsservicename+iamslrAWSServiceName :: Lens' IAMServiceLinkedRole (Val Text)+iamslrAWSServiceName = lens _iAMServiceLinkedRoleAWSServiceName (\s a -> s { _iAMServiceLinkedRoleAWSServiceName = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-iam-servicelinkedrole.html#cfn-iam-servicelinkedrole-customsuffix+iamslrCustomSuffix :: Lens' IAMServiceLinkedRole (Maybe (Val Text))+iamslrCustomSuffix = lens _iAMServiceLinkedRoleCustomSuffix (\s a -> s { _iAMServiceLinkedRoleCustomSuffix = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-iam-servicelinkedrole.html#cfn-iam-servicelinkedrole-description+iamslrDescription :: Lens' IAMServiceLinkedRole (Maybe (Val Text))+iamslrDescription = lens _iAMServiceLinkedRoleDescription (\s a -> s { _iAMServiceLinkedRoleDescription = a })
stratosphere.cabal view
@@ -2,10 +2,10 @@ -- -- see: https://github.com/sol/hpack ----- hash: 9a967e0f56d8f06f24e3d8b89033e5eee5691b6face3eae84ed633e35815a8d9+-- hash: 83bf792117e7f6a55911f942484536c93826f6cd02831415741fa235711b3273  name:           stratosphere-version:        0.24.3+version:        0.24.4 synopsis:       EDSL for AWS CloudFormation description:    EDSL for AWS CloudFormation category:       AWS, Cloud@@ -379,6 +379,8 @@       Stratosphere.ResourceProperties.GameLiftBuildS3Location       Stratosphere.ResourceProperties.GameLiftFleetIpPermission       Stratosphere.ResourceProperties.GlueClassifierGrokClassifier+      Stratosphere.ResourceProperties.GlueClassifierJsonClassifier+      Stratosphere.ResourceProperties.GlueClassifierXMLClassifier       Stratosphere.ResourceProperties.GlueConnectionConnectionInput       Stratosphere.ResourceProperties.GlueConnectionPhysicalConnectionRequirements       Stratosphere.ResourceProperties.GlueCrawlerJdbcTarget@@ -741,6 +743,7 @@       Stratosphere.Resources.EC2VPCDHCPOptionsAssociation       Stratosphere.Resources.EC2VPCEndpoint       Stratosphere.Resources.EC2VPCEndpointConnectionNotification+      Stratosphere.Resources.EC2VPCEndpointServicePermissions       Stratosphere.Resources.EC2VPCGatewayAttachment       Stratosphere.Resources.EC2VPCPeeringConnection       Stratosphere.Resources.EC2VPNConnection@@ -801,6 +804,7 @@       Stratosphere.Resources.IAMManagedPolicy       Stratosphere.Resources.IAMPolicy       Stratosphere.Resources.IAMRole+      Stratosphere.Resources.IAMServiceLinkedRole       Stratosphere.Resources.IAMUser       Stratosphere.Resources.IAMUserToGroupAddition       Stratosphere.Resources.InspectorAssessmentTarget