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

-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-codebuild-project-s3logsconfig.html

module Stratosphere.ResourceProperties.CodeBuildProjectS3LogsConfig where

import Stratosphere.ResourceImports


-- | Full data type definition for CodeBuildProjectS3LogsConfig. See
-- 'codeBuildProjectS3LogsConfig' for a more convenient constructor.
data CodeBuildProjectS3LogsConfig =
  CodeBuildProjectS3LogsConfig
  { _codeBuildProjectS3LogsConfigLocation :: Maybe (Val Text)
  , _codeBuildProjectS3LogsConfigStatus :: Val Text
  } deriving (Show, Eq)

instance ToJSON CodeBuildProjectS3LogsConfig where
  toJSON CodeBuildProjectS3LogsConfig{..} =
    object $
    catMaybes
    [ fmap (("Location",) . toJSON) _codeBuildProjectS3LogsConfigLocation
    , (Just . ("Status",) . toJSON) _codeBuildProjectS3LogsConfigStatus
    ]

instance FromJSON CodeBuildProjectS3LogsConfig where
  parseJSON (Object obj) =
    CodeBuildProjectS3LogsConfig <$>
      (obj .:? "Location") <*>
      (obj .: "Status")
  parseJSON _ = mempty

-- | Constructor for 'CodeBuildProjectS3LogsConfig' containing required fields
-- as arguments.
codeBuildProjectS3LogsConfig
  :: Val Text -- ^ 'cbpslcStatus'
  -> CodeBuildProjectS3LogsConfig
codeBuildProjectS3LogsConfig statusarg =
  CodeBuildProjectS3LogsConfig
  { _codeBuildProjectS3LogsConfigLocation = Nothing
  , _codeBuildProjectS3LogsConfigStatus = statusarg
  }

-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-codebuild-project-s3logsconfig.html#cfn-codebuild-project-s3logsconfig-location
cbpslcLocation :: Lens' CodeBuildProjectS3LogsConfig (Maybe (Val Text))
cbpslcLocation = lens _codeBuildProjectS3LogsConfigLocation (\s a -> s { _codeBuildProjectS3LogsConfigLocation = a })

-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-codebuild-project-s3logsconfig.html#cfn-codebuild-project-s3logsconfig-status
cbpslcStatus :: Lens' CodeBuildProjectS3LogsConfig (Val Text)
cbpslcStatus = lens _codeBuildProjectS3LogsConfigStatus (\s a -> s { _codeBuildProjectS3LogsConfigStatus = a })