{-# 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.DynamoDB.ListTagsOfResource
-- Copyright   : (c) 2013-2023 Brendan Hay
-- License     : Mozilla Public License, v. 2.0.
-- Maintainer  : Brendan Hay
-- Stability   : auto-generated
-- Portability : non-portable (GHC extensions)
--
-- List all tags on an Amazon DynamoDB resource. You can call
-- ListTagsOfResource up to 10 times per second, per account.
--
-- For an overview on tagging DynamoDB resources, see
-- <https://docs.aws.amazon.com/amazondynamodb/latest/developerguide/Tagging.html Tagging for DynamoDB>
-- in the /Amazon DynamoDB Developer Guide/.
--
-- This operation returns paginated results.
module Amazonka.DynamoDB.ListTagsOfResource
  ( -- * Creating a Request
    ListTagsOfResource (..),
    newListTagsOfResource,

    -- * Request Lenses
    listTagsOfResource_nextToken,
    listTagsOfResource_resourceArn,

    -- * Destructuring the Response
    ListTagsOfResourceResponse (..),
    newListTagsOfResourceResponse,

    -- * Response Lenses
    listTagsOfResourceResponse_nextToken,
    listTagsOfResourceResponse_tags,
    listTagsOfResourceResponse_httpStatus,
  )
where

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

-- | /See:/ 'newListTagsOfResource' smart constructor.
data ListTagsOfResource = ListTagsOfResource'
  { -- | An optional string that, if supplied, must be copied from the output of
    -- a previous call to ListTagOfResource. When provided in this manner, this
    -- API fetches the next page of results.
    nextToken :: Prelude.Maybe Prelude.Text,
    -- | The Amazon DynamoDB resource with tags to be listed. This value is an
    -- Amazon Resource Name (ARN).
    resourceArn :: Prelude.Text
  }
  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)

-- |
-- Create a value of 'ListTagsOfResource' 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:
--
-- 'nextToken', 'listTagsOfResource_nextToken' - An optional string that, if supplied, must be copied from the output of
-- a previous call to ListTagOfResource. When provided in this manner, this
-- API fetches the next page of results.
--
-- 'resourceArn', 'listTagsOfResource_resourceArn' - The Amazon DynamoDB resource with tags to be listed. This value is an
-- Amazon Resource Name (ARN).
newListTagsOfResource ::
  -- | 'resourceArn'
  Prelude.Text ->
  ListTagsOfResource
newListTagsOfResource pResourceArn_ =
  ListTagsOfResource'
    { nextToken = Prelude.Nothing,
      resourceArn = pResourceArn_
    }

-- | An optional string that, if supplied, must be copied from the output of
-- a previous call to ListTagOfResource. When provided in this manner, this
-- API fetches the next page of results.
listTagsOfResource_nextToken :: Lens.Lens' ListTagsOfResource (Prelude.Maybe Prelude.Text)
listTagsOfResource_nextToken = Lens.lens (\ListTagsOfResource' {nextToken} -> nextToken) (\s@ListTagsOfResource' {} a -> s {nextToken = a} :: ListTagsOfResource)

-- | The Amazon DynamoDB resource with tags to be listed. This value is an
-- Amazon Resource Name (ARN).
listTagsOfResource_resourceArn :: Lens.Lens' ListTagsOfResource Prelude.Text
listTagsOfResource_resourceArn = Lens.lens (\ListTagsOfResource' {resourceArn} -> resourceArn) (\s@ListTagsOfResource' {} a -> s {resourceArn = a} :: ListTagsOfResource)

instance Core.AWSPager ListTagsOfResource where
  page rq rs
    | Core.stop
        ( rs
            Lens.^? listTagsOfResourceResponse_nextToken
            Prelude.. Lens._Just
        ) =
        Prelude.Nothing
    | Core.stop
        ( rs
            Lens.^? listTagsOfResourceResponse_tags
            Prelude.. Lens._Just
        ) =
        Prelude.Nothing
    | Prelude.otherwise =
        Prelude.Just
          Prelude.$ rq
          Prelude.& listTagsOfResource_nextToken
          Lens..~ rs
          Lens.^? listTagsOfResourceResponse_nextToken
          Prelude.. Lens._Just

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

instance Prelude.Hashable ListTagsOfResource where
  hashWithSalt _salt ListTagsOfResource' {..} =
    _salt
      `Prelude.hashWithSalt` nextToken
      `Prelude.hashWithSalt` resourceArn

instance Prelude.NFData ListTagsOfResource where
  rnf ListTagsOfResource' {..} =
    Prelude.rnf nextToken
      `Prelude.seq` Prelude.rnf resourceArn

instance Data.ToHeaders ListTagsOfResource where
  toHeaders =
    Prelude.const
      ( Prelude.mconcat
          [ "X-Amz-Target"
              Data.=# ( "DynamoDB_20120810.ListTagsOfResource" ::
                          Prelude.ByteString
                      ),
            "Content-Type"
              Data.=# ( "application/x-amz-json-1.0" ::
                          Prelude.ByteString
                      )
          ]
      )

instance Data.ToJSON ListTagsOfResource where
  toJSON ListTagsOfResource' {..} =
    Data.object
      ( Prelude.catMaybes
          [ ("NextToken" Data..=) Prelude.<$> nextToken,
            Prelude.Just ("ResourceArn" Data..= resourceArn)
          ]
      )

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

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

-- | /See:/ 'newListTagsOfResourceResponse' smart constructor.
data ListTagsOfResourceResponse = ListTagsOfResourceResponse'
  { -- | If this value is returned, there are additional results to be displayed.
    -- To retrieve them, call ListTagsOfResource again, with NextToken set to
    -- this value.
    nextToken :: Prelude.Maybe Prelude.Text,
    -- | The tags currently associated with the Amazon DynamoDB resource.
    tags :: Prelude.Maybe [Tag],
    -- | The response's http status code.
    httpStatus :: Prelude.Int
  }
  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)

-- |
-- Create a value of 'ListTagsOfResourceResponse' 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:
--
-- 'nextToken', 'listTagsOfResourceResponse_nextToken' - If this value is returned, there are additional results to be displayed.
-- To retrieve them, call ListTagsOfResource again, with NextToken set to
-- this value.
--
-- 'tags', 'listTagsOfResourceResponse_tags' - The tags currently associated with the Amazon DynamoDB resource.
--
-- 'httpStatus', 'listTagsOfResourceResponse_httpStatus' - The response's http status code.
newListTagsOfResourceResponse ::
  -- | 'httpStatus'
  Prelude.Int ->
  ListTagsOfResourceResponse
newListTagsOfResourceResponse pHttpStatus_ =
  ListTagsOfResourceResponse'
    { nextToken =
        Prelude.Nothing,
      tags = Prelude.Nothing,
      httpStatus = pHttpStatus_
    }

-- | If this value is returned, there are additional results to be displayed.
-- To retrieve them, call ListTagsOfResource again, with NextToken set to
-- this value.
listTagsOfResourceResponse_nextToken :: Lens.Lens' ListTagsOfResourceResponse (Prelude.Maybe Prelude.Text)
listTagsOfResourceResponse_nextToken = Lens.lens (\ListTagsOfResourceResponse' {nextToken} -> nextToken) (\s@ListTagsOfResourceResponse' {} a -> s {nextToken = a} :: ListTagsOfResourceResponse)

-- | The tags currently associated with the Amazon DynamoDB resource.
listTagsOfResourceResponse_tags :: Lens.Lens' ListTagsOfResourceResponse (Prelude.Maybe [Tag])
listTagsOfResourceResponse_tags = Lens.lens (\ListTagsOfResourceResponse' {tags} -> tags) (\s@ListTagsOfResourceResponse' {} a -> s {tags = a} :: ListTagsOfResourceResponse) Prelude.. Lens.mapping Lens.coerced

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

instance Prelude.NFData ListTagsOfResourceResponse where
  rnf ListTagsOfResourceResponse' {..} =
    Prelude.rnf nextToken
      `Prelude.seq` Prelude.rnf tags
      `Prelude.seq` Prelude.rnf httpStatus