stratosphere-0.60.0: library-gen/Stratosphere/Resources/RoboMakerSimulationApplicationVersion.hs

{-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE RecordWildCards #-}
{-# LANGUAGE StrictData #-}
{-# LANGUAGE TupleSections #-}

-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-robomaker-simulationapplicationversion.html

module Stratosphere.Resources.RoboMakerSimulationApplicationVersion where

import Stratosphere.ResourceImports


-- | Full data type definition for RoboMakerSimulationApplicationVersion. See
-- 'roboMakerSimulationApplicationVersion' for a more convenient
-- constructor.
data RoboMakerSimulationApplicationVersion =
  RoboMakerSimulationApplicationVersion
  { _roboMakerSimulationApplicationVersionApplication :: Val Text
  , _roboMakerSimulationApplicationVersionCurrentRevisionId :: Maybe (Val Text)
  } deriving (Show, Eq)

instance ToResourceProperties RoboMakerSimulationApplicationVersion where
  toResourceProperties RoboMakerSimulationApplicationVersion{..} =
    ResourceProperties
    { resourcePropertiesType = "AWS::RoboMaker::SimulationApplicationVersion"
    , resourcePropertiesProperties =
        keyMapFromList $ catMaybes
        [ (Just . ("Application",) . toJSON) _roboMakerSimulationApplicationVersionApplication
        , fmap (("CurrentRevisionId",) . toJSON) _roboMakerSimulationApplicationVersionCurrentRevisionId
        ]
    }

-- | Constructor for 'RoboMakerSimulationApplicationVersion' containing
-- required fields as arguments.
roboMakerSimulationApplicationVersion
  :: Val Text -- ^ 'rmsavApplication'
  -> RoboMakerSimulationApplicationVersion
roboMakerSimulationApplicationVersion applicationarg =
  RoboMakerSimulationApplicationVersion
  { _roboMakerSimulationApplicationVersionApplication = applicationarg
  , _roboMakerSimulationApplicationVersionCurrentRevisionId = Nothing
  }

-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-robomaker-simulationapplicationversion.html#cfn-robomaker-simulationapplicationversion-application
rmsavApplication :: Lens' RoboMakerSimulationApplicationVersion (Val Text)
rmsavApplication = lens _roboMakerSimulationApplicationVersionApplication (\s a -> s { _roboMakerSimulationApplicationVersionApplication = a })

-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-robomaker-simulationapplicationversion.html#cfn-robomaker-simulationapplicationversion-currentrevisionid
rmsavCurrentRevisionId :: Lens' RoboMakerSimulationApplicationVersion (Maybe (Val Text))
rmsavCurrentRevisionId = lens _roboMakerSimulationApplicationVersionCurrentRevisionId (\s a -> s { _roboMakerSimulationApplicationVersionCurrentRevisionId = a })