{-# LANGUAGE DeriveGeneric #-}
{-# LANGUAGE DuplicateRecordFields #-}
{-# LANGUAGE NamedFieldPuns #-}
{-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE RecordWildCards #-}
{-# LANGUAGE StrictData #-}
{-# LANGUAGE TypeFamilies #-}
{-# LANGUAGE NoImplicitPrelude #-}
{-# OPTIONS_GHC -fno-warn-unused-binds #-}
{-# OPTIONS_GHC -fno-warn-unused-imports #-}
{-# OPTIONS_GHC -fno-warn-unused-matches #-}

-- Derived from AWS service descriptions, licensed under Apache 2.0.

-- |
-- Module      : Amazonka.LakeFormation.GetResourceLFTags
-- Copyright   : (c) 2013-2023 Brendan Hay
-- License     : Mozilla Public License, v. 2.0.
-- Maintainer  : Brendan Hay
-- Stability   : auto-generated
-- Portability : non-portable (GHC extensions)
--
-- Returns the LF-tags applied to a resource.
module Amazonka.LakeFormation.GetResourceLFTags
  ( -- * Creating a Request
    GetResourceLFTags (..),
    newGetResourceLFTags,

    -- * Request Lenses
    getResourceLFTags_catalogId,
    getResourceLFTags_showAssignedLFTags,
    getResourceLFTags_resource,

    -- * Destructuring the Response
    GetResourceLFTagsResponse (..),
    newGetResourceLFTagsResponse,

    -- * Response Lenses
    getResourceLFTagsResponse_lFTagOnDatabase,
    getResourceLFTagsResponse_lFTagsOnColumns,
    getResourceLFTagsResponse_lFTagsOnTable,
    getResourceLFTagsResponse_httpStatus,
  )
where

import qualified Amazonka.Core as Core
import qualified Amazonka.Core.Lens.Internal as Lens
import qualified Amazonka.Data as Data
import Amazonka.LakeFormation.Types
import qualified Amazonka.Prelude as Prelude
import qualified Amazonka.Request as Request
import qualified Amazonka.Response as Response

-- | /See:/ 'newGetResourceLFTags' smart constructor.
data GetResourceLFTags = GetResourceLFTags'
  { -- | The identifier for the Data Catalog. By default, the account ID. The
    -- Data Catalog is the persistent metadata store. It contains database
    -- definitions, table definitions, and other control information to manage
    -- your Lake Formation environment.
    catalogId :: Prelude.Maybe Prelude.Text,
    -- | Indicates whether to show the assigned LF-tags.
    showAssignedLFTags :: Prelude.Maybe Prelude.Bool,
    -- | The database, table, or column resource for which you want to return
    -- LF-tags.
    resource :: Resource
  }
  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)

-- |
-- Create a value of 'GetResourceLFTags' 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:
--
-- 'catalogId', 'getResourceLFTags_catalogId' - The identifier for the Data Catalog. By default, the account ID. The
-- Data Catalog is the persistent metadata store. It contains database
-- definitions, table definitions, and other control information to manage
-- your Lake Formation environment.
--
-- 'showAssignedLFTags', 'getResourceLFTags_showAssignedLFTags' - Indicates whether to show the assigned LF-tags.
--
-- 'resource', 'getResourceLFTags_resource' - The database, table, or column resource for which you want to return
-- LF-tags.
newGetResourceLFTags ::
  -- | 'resource'
  Resource ->
  GetResourceLFTags
newGetResourceLFTags pResource_ =
  GetResourceLFTags'
    { catalogId = Prelude.Nothing,
      showAssignedLFTags = Prelude.Nothing,
      resource = pResource_
    }

-- | The identifier for the Data Catalog. By default, the account ID. The
-- Data Catalog is the persistent metadata store. It contains database
-- definitions, table definitions, and other control information to manage
-- your Lake Formation environment.
getResourceLFTags_catalogId :: Lens.Lens' GetResourceLFTags (Prelude.Maybe Prelude.Text)
getResourceLFTags_catalogId = Lens.lens (\GetResourceLFTags' {catalogId} -> catalogId) (\s@GetResourceLFTags' {} a -> s {catalogId = a} :: GetResourceLFTags)

-- | Indicates whether to show the assigned LF-tags.
getResourceLFTags_showAssignedLFTags :: Lens.Lens' GetResourceLFTags (Prelude.Maybe Prelude.Bool)
getResourceLFTags_showAssignedLFTags = Lens.lens (\GetResourceLFTags' {showAssignedLFTags} -> showAssignedLFTags) (\s@GetResourceLFTags' {} a -> s {showAssignedLFTags = a} :: GetResourceLFTags)

-- | The database, table, or column resource for which you want to return
-- LF-tags.
getResourceLFTags_resource :: Lens.Lens' GetResourceLFTags Resource
getResourceLFTags_resource = Lens.lens (\GetResourceLFTags' {resource} -> resource) (\s@GetResourceLFTags' {} a -> s {resource = a} :: GetResourceLFTags)

instance Core.AWSRequest GetResourceLFTags where
  type
    AWSResponse GetResourceLFTags =
      GetResourceLFTagsResponse
  request overrides =
    Request.postJSON (overrides defaultService)
  response =
    Response.receiveJSON
      ( \s h x ->
          GetResourceLFTagsResponse'
            Prelude.<$> (x Data..?> "LFTagOnDatabase")
            Prelude.<*> ( x
                            Data..?> "LFTagsOnColumns"
                            Core..!@ Prelude.mempty
                        )
            Prelude.<*> (x Data..?> "LFTagsOnTable")
            Prelude.<*> (Prelude.pure (Prelude.fromEnum s))
      )

instance Prelude.Hashable GetResourceLFTags where
  hashWithSalt _salt GetResourceLFTags' {..} =
    _salt
      `Prelude.hashWithSalt` catalogId
      `Prelude.hashWithSalt` showAssignedLFTags
      `Prelude.hashWithSalt` resource

instance Prelude.NFData GetResourceLFTags where
  rnf GetResourceLFTags' {..} =
    Prelude.rnf catalogId
      `Prelude.seq` Prelude.rnf showAssignedLFTags
      `Prelude.seq` Prelude.rnf resource

instance Data.ToHeaders GetResourceLFTags where
  toHeaders =
    Prelude.const
      ( Prelude.mconcat
          [ "Content-Type"
              Data.=# ( "application/x-amz-json-1.1" ::
                          Prelude.ByteString
                      )
          ]
      )

instance Data.ToJSON GetResourceLFTags where
  toJSON GetResourceLFTags' {..} =
    Data.object
      ( Prelude.catMaybes
          [ ("CatalogId" Data..=) Prelude.<$> catalogId,
            ("ShowAssignedLFTags" Data..=)
              Prelude.<$> showAssignedLFTags,
            Prelude.Just ("Resource" Data..= resource)
          ]
      )

instance Data.ToPath GetResourceLFTags where
  toPath = Prelude.const "/GetResourceLFTags"

instance Data.ToQuery GetResourceLFTags where
  toQuery = Prelude.const Prelude.mempty

-- | /See:/ 'newGetResourceLFTagsResponse' smart constructor.
data GetResourceLFTagsResponse = GetResourceLFTagsResponse'
  { -- | A list of LF-tags applied to a database resource.
    lFTagOnDatabase :: Prelude.Maybe (Prelude.NonEmpty LFTagPair),
    -- | A list of LF-tags applied to a column resource.
    lFTagsOnColumns :: Prelude.Maybe [ColumnLFTag],
    -- | A list of LF-tags applied to a table resource.
    lFTagsOnTable :: Prelude.Maybe (Prelude.NonEmpty LFTagPair),
    -- | The response's http status code.
    httpStatus :: Prelude.Int
  }
  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)

-- |
-- Create a value of 'GetResourceLFTagsResponse' 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:
--
-- 'lFTagOnDatabase', 'getResourceLFTagsResponse_lFTagOnDatabase' - A list of LF-tags applied to a database resource.
--
-- 'lFTagsOnColumns', 'getResourceLFTagsResponse_lFTagsOnColumns' - A list of LF-tags applied to a column resource.
--
-- 'lFTagsOnTable', 'getResourceLFTagsResponse_lFTagsOnTable' - A list of LF-tags applied to a table resource.
--
-- 'httpStatus', 'getResourceLFTagsResponse_httpStatus' - The response's http status code.
newGetResourceLFTagsResponse ::
  -- | 'httpStatus'
  Prelude.Int ->
  GetResourceLFTagsResponse
newGetResourceLFTagsResponse pHttpStatus_ =
  GetResourceLFTagsResponse'
    { lFTagOnDatabase =
        Prelude.Nothing,
      lFTagsOnColumns = Prelude.Nothing,
      lFTagsOnTable = Prelude.Nothing,
      httpStatus = pHttpStatus_
    }

-- | A list of LF-tags applied to a database resource.
getResourceLFTagsResponse_lFTagOnDatabase :: Lens.Lens' GetResourceLFTagsResponse (Prelude.Maybe (Prelude.NonEmpty LFTagPair))
getResourceLFTagsResponse_lFTagOnDatabase = Lens.lens (\GetResourceLFTagsResponse' {lFTagOnDatabase} -> lFTagOnDatabase) (\s@GetResourceLFTagsResponse' {} a -> s {lFTagOnDatabase = a} :: GetResourceLFTagsResponse) Prelude.. Lens.mapping Lens.coerced

-- | A list of LF-tags applied to a column resource.
getResourceLFTagsResponse_lFTagsOnColumns :: Lens.Lens' GetResourceLFTagsResponse (Prelude.Maybe [ColumnLFTag])
getResourceLFTagsResponse_lFTagsOnColumns = Lens.lens (\GetResourceLFTagsResponse' {lFTagsOnColumns} -> lFTagsOnColumns) (\s@GetResourceLFTagsResponse' {} a -> s {lFTagsOnColumns = a} :: GetResourceLFTagsResponse) Prelude.. Lens.mapping Lens.coerced

-- | A list of LF-tags applied to a table resource.
getResourceLFTagsResponse_lFTagsOnTable :: Lens.Lens' GetResourceLFTagsResponse (Prelude.Maybe (Prelude.NonEmpty LFTagPair))
getResourceLFTagsResponse_lFTagsOnTable = Lens.lens (\GetResourceLFTagsResponse' {lFTagsOnTable} -> lFTagsOnTable) (\s@GetResourceLFTagsResponse' {} a -> s {lFTagsOnTable = a} :: GetResourceLFTagsResponse) Prelude.. Lens.mapping Lens.coerced

-- | The response's http status code.
getResourceLFTagsResponse_httpStatus :: Lens.Lens' GetResourceLFTagsResponse Prelude.Int
getResourceLFTagsResponse_httpStatus = Lens.lens (\GetResourceLFTagsResponse' {httpStatus} -> httpStatus) (\s@GetResourceLFTagsResponse' {} a -> s {httpStatus = a} :: GetResourceLFTagsResponse)

instance Prelude.NFData GetResourceLFTagsResponse where
  rnf GetResourceLFTagsResponse' {..} =
    Prelude.rnf lFTagOnDatabase
      `Prelude.seq` Prelude.rnf lFTagsOnColumns
      `Prelude.seq` Prelude.rnf lFTagsOnTable
      `Prelude.seq` Prelude.rnf httpStatus