stratosphere-0.34.0: library-gen/Stratosphere/ResourceProperties/GreengrassFunctionDefinitionDefaultConfig.hs
{-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE RecordWildCards #-}
{-# LANGUAGE StrictData #-}
{-# LANGUAGE TupleSections #-}
-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-greengrass-functiondefinition-defaultconfig.html
module Stratosphere.ResourceProperties.GreengrassFunctionDefinitionDefaultConfig where
import Stratosphere.ResourceImports
import Stratosphere.ResourceProperties.GreengrassFunctionDefinitionExecution
-- | Full data type definition for GreengrassFunctionDefinitionDefaultConfig.
-- See 'greengrassFunctionDefinitionDefaultConfig' for a more convenient
-- constructor.
data GreengrassFunctionDefinitionDefaultConfig =
GreengrassFunctionDefinitionDefaultConfig
{ _greengrassFunctionDefinitionDefaultConfigExecution :: GreengrassFunctionDefinitionExecution
} deriving (Show, Eq)
instance ToJSON GreengrassFunctionDefinitionDefaultConfig where
toJSON GreengrassFunctionDefinitionDefaultConfig{..} =
object $
catMaybes
[ (Just . ("Execution",) . toJSON) _greengrassFunctionDefinitionDefaultConfigExecution
]
-- | Constructor for 'GreengrassFunctionDefinitionDefaultConfig' containing
-- required fields as arguments.
greengrassFunctionDefinitionDefaultConfig
:: GreengrassFunctionDefinitionExecution -- ^ 'gfddcExecution'
-> GreengrassFunctionDefinitionDefaultConfig
greengrassFunctionDefinitionDefaultConfig executionarg =
GreengrassFunctionDefinitionDefaultConfig
{ _greengrassFunctionDefinitionDefaultConfigExecution = executionarg
}
-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-greengrass-functiondefinition-defaultconfig.html#cfn-greengrass-functiondefinition-defaultconfig-execution
gfddcExecution :: Lens' GreengrassFunctionDefinitionDefaultConfig GreengrassFunctionDefinitionExecution
gfddcExecution = lens _greengrassFunctionDefinitionDefaultConfigExecution (\s a -> s { _greengrassFunctionDefinitionDefaultConfigExecution = a })