{-# 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.ConnectContactLens.Types.Transcript
-- 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.ConnectContactLens.Types.Transcript where

import Amazonka.ConnectContactLens.Types.IssueDetected
import Amazonka.ConnectContactLens.Types.SentimentValue
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

-- | A list of messages in the session.
--
-- /See:/ 'newTranscript' smart constructor.
data Transcript = Transcript'
  { -- | List of positions where issues were detected on the transcript.
    issuesDetected :: Prelude.Maybe [IssueDetected],
    -- | The identifier of the transcript.
    id :: Prelude.Text,
    -- | The identifier of the participant.
    participantId :: Prelude.Text,
    -- | The role of participant. For example, is it a customer, agent, or
    -- system.
    participantRole :: Prelude.Text,
    -- | The content of the transcript.
    content :: Prelude.Text,
    -- | The beginning offset in the contact for this transcript.
    beginOffsetMillis :: Prelude.Natural,
    -- | The end offset in the contact for this transcript.
    endOffsetMillis :: Prelude.Natural,
    -- | The sentiment of the detected for this piece of transcript.
    sentiment :: SentimentValue
  }
  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)

-- |
-- Create a value of 'Transcript' with all optional fields omitted.
--
-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.
--
-- The following record fields are available, with the corresponding lenses provided
-- for backwards compatibility:
--
-- 'issuesDetected', 'transcript_issuesDetected' - List of positions where issues were detected on the transcript.
--
-- 'id', 'transcript_id' - The identifier of the transcript.
--
-- 'participantId', 'transcript_participantId' - The identifier of the participant.
--
-- 'participantRole', 'transcript_participantRole' - The role of participant. For example, is it a customer, agent, or
-- system.
--
-- 'content', 'transcript_content' - The content of the transcript.
--
-- 'beginOffsetMillis', 'transcript_beginOffsetMillis' - The beginning offset in the contact for this transcript.
--
-- 'endOffsetMillis', 'transcript_endOffsetMillis' - The end offset in the contact for this transcript.
--
-- 'sentiment', 'transcript_sentiment' - The sentiment of the detected for this piece of transcript.
newTranscript ::
  -- | 'id'
  Prelude.Text ->
  -- | 'participantId'
  Prelude.Text ->
  -- | 'participantRole'
  Prelude.Text ->
  -- | 'content'
  Prelude.Text ->
  -- | 'beginOffsetMillis'
  Prelude.Natural ->
  -- | 'endOffsetMillis'
  Prelude.Natural ->
  -- | 'sentiment'
  SentimentValue ->
  Transcript
newTranscript
  pId_
  pParticipantId_
  pParticipantRole_
  pContent_
  pBeginOffsetMillis_
  pEndOffsetMillis_
  pSentiment_ =
    Transcript'
      { issuesDetected = Prelude.Nothing,
        id = pId_,
        participantId = pParticipantId_,
        participantRole = pParticipantRole_,
        content = pContent_,
        beginOffsetMillis = pBeginOffsetMillis_,
        endOffsetMillis = pEndOffsetMillis_,
        sentiment = pSentiment_
      }

-- | List of positions where issues were detected on the transcript.
transcript_issuesDetected :: Lens.Lens' Transcript (Prelude.Maybe [IssueDetected])
transcript_issuesDetected = Lens.lens (\Transcript' {issuesDetected} -> issuesDetected) (\s@Transcript' {} a -> s {issuesDetected = a} :: Transcript) Prelude.. Lens.mapping Lens.coerced

-- | The identifier of the transcript.
transcript_id :: Lens.Lens' Transcript Prelude.Text
transcript_id = Lens.lens (\Transcript' {id} -> id) (\s@Transcript' {} a -> s {id = a} :: Transcript)

-- | The identifier of the participant.
transcript_participantId :: Lens.Lens' Transcript Prelude.Text
transcript_participantId = Lens.lens (\Transcript' {participantId} -> participantId) (\s@Transcript' {} a -> s {participantId = a} :: Transcript)

-- | The role of participant. For example, is it a customer, agent, or
-- system.
transcript_participantRole :: Lens.Lens' Transcript Prelude.Text
transcript_participantRole = Lens.lens (\Transcript' {participantRole} -> participantRole) (\s@Transcript' {} a -> s {participantRole = a} :: Transcript)

-- | The content of the transcript.
transcript_content :: Lens.Lens' Transcript Prelude.Text
transcript_content = Lens.lens (\Transcript' {content} -> content) (\s@Transcript' {} a -> s {content = a} :: Transcript)

-- | The beginning offset in the contact for this transcript.
transcript_beginOffsetMillis :: Lens.Lens' Transcript Prelude.Natural
transcript_beginOffsetMillis = Lens.lens (\Transcript' {beginOffsetMillis} -> beginOffsetMillis) (\s@Transcript' {} a -> s {beginOffsetMillis = a} :: Transcript)

-- | The end offset in the contact for this transcript.
transcript_endOffsetMillis :: Lens.Lens' Transcript Prelude.Natural
transcript_endOffsetMillis = Lens.lens (\Transcript' {endOffsetMillis} -> endOffsetMillis) (\s@Transcript' {} a -> s {endOffsetMillis = a} :: Transcript)

-- | The sentiment of the detected for this piece of transcript.
transcript_sentiment :: Lens.Lens' Transcript SentimentValue
transcript_sentiment = Lens.lens (\Transcript' {sentiment} -> sentiment) (\s@Transcript' {} a -> s {sentiment = a} :: Transcript)

instance Data.FromJSON Transcript where
  parseJSON =
    Data.withObject
      "Transcript"
      ( \x ->
          Transcript'
            Prelude.<$> (x Data..:? "IssuesDetected" Data..!= Prelude.mempty)
            Prelude.<*> (x Data..: "Id")
            Prelude.<*> (x Data..: "ParticipantId")
            Prelude.<*> (x Data..: "ParticipantRole")
            Prelude.<*> (x Data..: "Content")
            Prelude.<*> (x Data..: "BeginOffsetMillis")
            Prelude.<*> (x Data..: "EndOffsetMillis")
            Prelude.<*> (x Data..: "Sentiment")
      )

instance Prelude.Hashable Transcript where
  hashWithSalt _salt Transcript' {..} =
    _salt
      `Prelude.hashWithSalt` issuesDetected
      `Prelude.hashWithSalt` id
      `Prelude.hashWithSalt` participantId
      `Prelude.hashWithSalt` participantRole
      `Prelude.hashWithSalt` content
      `Prelude.hashWithSalt` beginOffsetMillis
      `Prelude.hashWithSalt` endOffsetMillis
      `Prelude.hashWithSalt` sentiment

instance Prelude.NFData Transcript where
  rnf Transcript' {..} =
    Prelude.rnf issuesDetected
      `Prelude.seq` Prelude.rnf id
      `Prelude.seq` Prelude.rnf participantId
      `Prelude.seq` Prelude.rnf participantRole
      `Prelude.seq` Prelude.rnf content
      `Prelude.seq` Prelude.rnf beginOffsetMillis
      `Prelude.seq` Prelude.rnf endOffsetMillis
      `Prelude.seq` Prelude.rnf sentiment