{-# 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.DAX.UntagResource
-- Copyright : (c) 2013-2023 Brendan Hay
-- License : Mozilla Public License, v. 2.0.
-- Maintainer : Brendan Hay
-- Stability : auto-generated
-- Portability : non-portable (GHC extensions)
--
-- Removes the association of tags from a DAX resource. You can call
-- @UntagResource@ up to 5 times per second, per account.
module Amazonka.DAX.UntagResource
( -- * Creating a Request
UntagResource (..),
newUntagResource,
-- * Request Lenses
untagResource_resourceName,
untagResource_tagKeys,
-- * Destructuring the Response
UntagResourceResponse (..),
newUntagResourceResponse,
-- * Response Lenses
untagResourceResponse_tags,
untagResourceResponse_httpStatus,
)
where
import qualified Amazonka.Core as Core
import qualified Amazonka.Core.Lens.Internal as Lens
import Amazonka.DAX.Types
import qualified Amazonka.Data as Data
import qualified Amazonka.Prelude as Prelude
import qualified Amazonka.Request as Request
import qualified Amazonka.Response as Response
-- | /See:/ 'newUntagResource' smart constructor.
data UntagResource = UntagResource'
{ -- | The name of the DAX resource from which the tags should be removed.
resourceName :: Prelude.Text,
-- | A list of tag keys. If the DAX cluster has any tags with these keys,
-- then the tags are removed from the cluster.
tagKeys :: [Prelude.Text]
}
deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)
-- |
-- Create a value of 'UntagResource' 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:
--
-- 'resourceName', 'untagResource_resourceName' - The name of the DAX resource from which the tags should be removed.
--
-- 'tagKeys', 'untagResource_tagKeys' - A list of tag keys. If the DAX cluster has any tags with these keys,
-- then the tags are removed from the cluster.
newUntagResource ::
-- | 'resourceName'
Prelude.Text ->
UntagResource
newUntagResource pResourceName_ =
UntagResource'
{ resourceName = pResourceName_,
tagKeys = Prelude.mempty
}
-- | The name of the DAX resource from which the tags should be removed.
untagResource_resourceName :: Lens.Lens' UntagResource Prelude.Text
untagResource_resourceName = Lens.lens (\UntagResource' {resourceName} -> resourceName) (\s@UntagResource' {} a -> s {resourceName = a} :: UntagResource)
-- | A list of tag keys. If the DAX cluster has any tags with these keys,
-- then the tags are removed from the cluster.
untagResource_tagKeys :: Lens.Lens' UntagResource [Prelude.Text]
untagResource_tagKeys = Lens.lens (\UntagResource' {tagKeys} -> tagKeys) (\s@UntagResource' {} a -> s {tagKeys = a} :: UntagResource) Prelude.. Lens.coerced
instance Core.AWSRequest UntagResource where
type
AWSResponse UntagResource =
UntagResourceResponse
request overrides =
Request.postJSON (overrides defaultService)
response =
Response.receiveJSON
( \s h x ->
UntagResourceResponse'
Prelude.<$> (x Data..?> "Tags" Core..!@ Prelude.mempty)
Prelude.<*> (Prelude.pure (Prelude.fromEnum s))
)
instance Prelude.Hashable UntagResource where
hashWithSalt _salt UntagResource' {..} =
_salt
`Prelude.hashWithSalt` resourceName
`Prelude.hashWithSalt` tagKeys
instance Prelude.NFData UntagResource where
rnf UntagResource' {..} =
Prelude.rnf resourceName
`Prelude.seq` Prelude.rnf tagKeys
instance Data.ToHeaders UntagResource where
toHeaders =
Prelude.const
( Prelude.mconcat
[ "X-Amz-Target"
Data.=# ("AmazonDAXV3.UntagResource" :: Prelude.ByteString),
"Content-Type"
Data.=# ( "application/x-amz-json-1.1" ::
Prelude.ByteString
)
]
)
instance Data.ToJSON UntagResource where
toJSON UntagResource' {..} =
Data.object
( Prelude.catMaybes
[ Prelude.Just ("ResourceName" Data..= resourceName),
Prelude.Just ("TagKeys" Data..= tagKeys)
]
)
instance Data.ToPath UntagResource where
toPath = Prelude.const "/"
instance Data.ToQuery UntagResource where
toQuery = Prelude.const Prelude.mempty
-- | /See:/ 'newUntagResourceResponse' smart constructor.
data UntagResourceResponse = UntagResourceResponse'
{ -- | The tag keys that have been removed from the cluster.
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 'UntagResourceResponse' 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:
--
-- 'tags', 'untagResourceResponse_tags' - The tag keys that have been removed from the cluster.
--
-- 'httpStatus', 'untagResourceResponse_httpStatus' - The response's http status code.
newUntagResourceResponse ::
-- | 'httpStatus'
Prelude.Int ->
UntagResourceResponse
newUntagResourceResponse pHttpStatus_ =
UntagResourceResponse'
{ tags = Prelude.Nothing,
httpStatus = pHttpStatus_
}
-- | The tag keys that have been removed from the cluster.
untagResourceResponse_tags :: Lens.Lens' UntagResourceResponse (Prelude.Maybe [Tag])
untagResourceResponse_tags = Lens.lens (\UntagResourceResponse' {tags} -> tags) (\s@UntagResourceResponse' {} a -> s {tags = a} :: UntagResourceResponse) Prelude.. Lens.mapping Lens.coerced
-- | The response's http status code.
untagResourceResponse_httpStatus :: Lens.Lens' UntagResourceResponse Prelude.Int
untagResourceResponse_httpStatus = Lens.lens (\UntagResourceResponse' {httpStatus} -> httpStatus) (\s@UntagResourceResponse' {} a -> s {httpStatus = a} :: UntagResourceResponse)
instance Prelude.NFData UntagResourceResponse where
rnf UntagResourceResponse' {..} =
Prelude.rnf tags
`Prelude.seq` Prelude.rnf httpStatus