{-# 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.HoneyCode.Types.DelimitedTextImportOptions
-- 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.HoneyCode.Types.DelimitedTextImportOptions where

import qualified Amazonka.Core as Core
import qualified Amazonka.Core.Lens.Internal as Lens
import qualified Amazonka.Data as Data
import Amazonka.HoneyCode.Types.ImportDataCharacterEncoding
import qualified Amazonka.Prelude as Prelude

-- | An object that contains the options relating to parsing delimited text
-- as part of an import request.
--
-- /See:/ 'newDelimitedTextImportOptions' smart constructor.
data DelimitedTextImportOptions = DelimitedTextImportOptions'
  { -- | The encoding of the data in the input file.
    dataCharacterEncoding :: Prelude.Maybe ImportDataCharacterEncoding,
    -- | Indicates whether the input file has a header row at the top containing
    -- the column names.
    hasHeaderRow :: Prelude.Maybe Prelude.Bool,
    -- | A parameter to indicate whether empty rows should be ignored or be
    -- included in the import.
    ignoreEmptyRows :: Prelude.Maybe Prelude.Bool,
    -- | The delimiter to use for separating columns in a single row of the
    -- input.
    delimiter :: Prelude.Text
  }
  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)

-- |
-- Create a value of 'DelimitedTextImportOptions' 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:
--
-- 'dataCharacterEncoding', 'delimitedTextImportOptions_dataCharacterEncoding' - The encoding of the data in the input file.
--
-- 'hasHeaderRow', 'delimitedTextImportOptions_hasHeaderRow' - Indicates whether the input file has a header row at the top containing
-- the column names.
--
-- 'ignoreEmptyRows', 'delimitedTextImportOptions_ignoreEmptyRows' - A parameter to indicate whether empty rows should be ignored or be
-- included in the import.
--
-- 'delimiter', 'delimitedTextImportOptions_delimiter' - The delimiter to use for separating columns in a single row of the
-- input.
newDelimitedTextImportOptions ::
  -- | 'delimiter'
  Prelude.Text ->
  DelimitedTextImportOptions
newDelimitedTextImportOptions pDelimiter_ =
  DelimitedTextImportOptions'
    { dataCharacterEncoding =
        Prelude.Nothing,
      hasHeaderRow = Prelude.Nothing,
      ignoreEmptyRows = Prelude.Nothing,
      delimiter = pDelimiter_
    }

-- | The encoding of the data in the input file.
delimitedTextImportOptions_dataCharacterEncoding :: Lens.Lens' DelimitedTextImportOptions (Prelude.Maybe ImportDataCharacterEncoding)
delimitedTextImportOptions_dataCharacterEncoding = Lens.lens (\DelimitedTextImportOptions' {dataCharacterEncoding} -> dataCharacterEncoding) (\s@DelimitedTextImportOptions' {} a -> s {dataCharacterEncoding = a} :: DelimitedTextImportOptions)

-- | Indicates whether the input file has a header row at the top containing
-- the column names.
delimitedTextImportOptions_hasHeaderRow :: Lens.Lens' DelimitedTextImportOptions (Prelude.Maybe Prelude.Bool)
delimitedTextImportOptions_hasHeaderRow = Lens.lens (\DelimitedTextImportOptions' {hasHeaderRow} -> hasHeaderRow) (\s@DelimitedTextImportOptions' {} a -> s {hasHeaderRow = a} :: DelimitedTextImportOptions)

-- | A parameter to indicate whether empty rows should be ignored or be
-- included in the import.
delimitedTextImportOptions_ignoreEmptyRows :: Lens.Lens' DelimitedTextImportOptions (Prelude.Maybe Prelude.Bool)
delimitedTextImportOptions_ignoreEmptyRows = Lens.lens (\DelimitedTextImportOptions' {ignoreEmptyRows} -> ignoreEmptyRows) (\s@DelimitedTextImportOptions' {} a -> s {ignoreEmptyRows = a} :: DelimitedTextImportOptions)

-- | The delimiter to use for separating columns in a single row of the
-- input.
delimitedTextImportOptions_delimiter :: Lens.Lens' DelimitedTextImportOptions Prelude.Text
delimitedTextImportOptions_delimiter = Lens.lens (\DelimitedTextImportOptions' {delimiter} -> delimiter) (\s@DelimitedTextImportOptions' {} a -> s {delimiter = a} :: DelimitedTextImportOptions)

instance Data.FromJSON DelimitedTextImportOptions where
  parseJSON =
    Data.withObject
      "DelimitedTextImportOptions"
      ( \x ->
          DelimitedTextImportOptions'
            Prelude.<$> (x Data..:? "dataCharacterEncoding")
            Prelude.<*> (x Data..:? "hasHeaderRow")
            Prelude.<*> (x Data..:? "ignoreEmptyRows")
            Prelude.<*> (x Data..: "delimiter")
      )

instance Prelude.Hashable DelimitedTextImportOptions where
  hashWithSalt _salt DelimitedTextImportOptions' {..} =
    _salt
      `Prelude.hashWithSalt` dataCharacterEncoding
      `Prelude.hashWithSalt` hasHeaderRow
      `Prelude.hashWithSalt` ignoreEmptyRows
      `Prelude.hashWithSalt` delimiter

instance Prelude.NFData DelimitedTextImportOptions where
  rnf DelimitedTextImportOptions' {..} =
    Prelude.rnf dataCharacterEncoding
      `Prelude.seq` Prelude.rnf hasHeaderRow
      `Prelude.seq` Prelude.rnf ignoreEmptyRows
      `Prelude.seq` Prelude.rnf delimiter

instance Data.ToJSON DelimitedTextImportOptions where
  toJSON DelimitedTextImportOptions' {..} =
    Data.object
      ( Prelude.catMaybes
          [ ("dataCharacterEncoding" Data..=)
              Prelude.<$> dataCharacterEncoding,
            ("hasHeaderRow" Data..=) Prelude.<$> hasHeaderRow,
            ("ignoreEmptyRows" Data..=)
              Prelude.<$> ignoreEmptyRows,
            Prelude.Just ("delimiter" Data..= delimiter)
          ]
      )