{-# LANGUAGE DeriveGeneric #-} {-# LANGUAGE DuplicateRecordFields #-} {-# LANGUAGE NamedFieldPuns #-} {-# LANGUAGE OverloadedStrings #-} {-# LANGUAGE RecordWildCards #-} {-# LANGUAGE StrictData #-} {-# LANGUAGE NoImplicitPrelude #-} {-# OPTIONS_GHC -fno-warn-unused-imports #-} {-# OPTIONS_GHC -fno-warn-unused-matches #-} -- Derived from AWS service descriptions, licensed under Apache 2.0. -- | -- Module : Amazonka.CodeBuild.Types.CloudWatchLogsConfig -- Copyright : (c) 2013-2023 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated -- Portability : non-portable (GHC extensions) module Amazonka.CodeBuild.Types.CloudWatchLogsConfig where import Amazonka.CodeBuild.Types.LogsConfigStatusType import qualified Amazonka.Core as Core import qualified Amazonka.Core.Lens.Internal as Lens import qualified Amazonka.Data as Data import qualified Amazonka.Prelude as Prelude -- | Information about CloudWatch Logs for a build project. -- -- /See:/ 'newCloudWatchLogsConfig' smart constructor. data CloudWatchLogsConfig = CloudWatchLogsConfig' { -- | The group name of the logs in CloudWatch Logs. For more information, see -- . groupName :: Prelude.Maybe Prelude.Text, -- | The prefix of the stream name of the CloudWatch Logs. For more -- information, see -- . streamName :: Prelude.Maybe Prelude.Text, -- | The current status of the logs in CloudWatch Logs for a build project. -- Valid values are: -- -- - @ENABLED@: CloudWatch Logs are enabled for this build project. -- -- - @DISABLED@: CloudWatch Logs are not enabled for this build project. status :: LogsConfigStatusType } deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic) -- | -- Create a value of 'CloudWatchLogsConfig' with all optional fields omitted. -- -- Use or to modify other optional fields. -- -- The following record fields are available, with the corresponding lenses provided -- for backwards compatibility: -- -- 'groupName', 'cloudWatchLogsConfig_groupName' - The group name of the logs in CloudWatch Logs. For more information, see -- . -- -- 'streamName', 'cloudWatchLogsConfig_streamName' - The prefix of the stream name of the CloudWatch Logs. For more -- information, see -- . -- -- 'status', 'cloudWatchLogsConfig_status' - The current status of the logs in CloudWatch Logs for a build project. -- Valid values are: -- -- - @ENABLED@: CloudWatch Logs are enabled for this build project. -- -- - @DISABLED@: CloudWatch Logs are not enabled for this build project. newCloudWatchLogsConfig :: -- | 'status' LogsConfigStatusType -> CloudWatchLogsConfig newCloudWatchLogsConfig pStatus_ = CloudWatchLogsConfig' { groupName = Prelude.Nothing, streamName = Prelude.Nothing, status = pStatus_ } -- | The group name of the logs in CloudWatch Logs. For more information, see -- . cloudWatchLogsConfig_groupName :: Lens.Lens' CloudWatchLogsConfig (Prelude.Maybe Prelude.Text) cloudWatchLogsConfig_groupName = Lens.lens (\CloudWatchLogsConfig' {groupName} -> groupName) (\s@CloudWatchLogsConfig' {} a -> s {groupName = a} :: CloudWatchLogsConfig) -- | The prefix of the stream name of the CloudWatch Logs. For more -- information, see -- . cloudWatchLogsConfig_streamName :: Lens.Lens' CloudWatchLogsConfig (Prelude.Maybe Prelude.Text) cloudWatchLogsConfig_streamName = Lens.lens (\CloudWatchLogsConfig' {streamName} -> streamName) (\s@CloudWatchLogsConfig' {} a -> s {streamName = a} :: CloudWatchLogsConfig) -- | The current status of the logs in CloudWatch Logs for a build project. -- Valid values are: -- -- - @ENABLED@: CloudWatch Logs are enabled for this build project. -- -- - @DISABLED@: CloudWatch Logs are not enabled for this build project. cloudWatchLogsConfig_status :: Lens.Lens' CloudWatchLogsConfig LogsConfigStatusType cloudWatchLogsConfig_status = Lens.lens (\CloudWatchLogsConfig' {status} -> status) (\s@CloudWatchLogsConfig' {} a -> s {status = a} :: CloudWatchLogsConfig) instance Data.FromJSON CloudWatchLogsConfig where parseJSON = Data.withObject "CloudWatchLogsConfig" ( \x -> CloudWatchLogsConfig' Prelude.<$> (x Data..:? "groupName") Prelude.<*> (x Data..:? "streamName") Prelude.<*> (x Data..: "status") ) instance Prelude.Hashable CloudWatchLogsConfig where hashWithSalt _salt CloudWatchLogsConfig' {..} = _salt `Prelude.hashWithSalt` groupName `Prelude.hashWithSalt` streamName `Prelude.hashWithSalt` status instance Prelude.NFData CloudWatchLogsConfig where rnf CloudWatchLogsConfig' {..} = Prelude.rnf groupName `Prelude.seq` Prelude.rnf streamName `Prelude.seq` Prelude.rnf status instance Data.ToJSON CloudWatchLogsConfig where toJSON CloudWatchLogsConfig' {..} = Data.object ( Prelude.catMaybes [ ("groupName" Data..=) Prelude.<$> groupName, ("streamName" Data..=) Prelude.<$> streamName, Prelude.Just ("status" Data..= status) ] )