AssociateDelegateToResource.hs

{-# 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.WorkMail.AssociateDelegateToResource
-- Copyright   : (c) 2013-2023 Brendan Hay
-- License     : Mozilla Public License, v. 2.0.
-- Maintainer  : Brendan Hay
-- Stability   : auto-generated
-- Portability : non-portable (GHC extensions)
--
-- Adds a member (user or group) to the resource\'s set of delegates.
module Amazonka.WorkMail.AssociateDelegateToResource
  ( -- * Creating a Request
    AssociateDelegateToResource (..),
    newAssociateDelegateToResource,

    -- * Request Lenses
    associateDelegateToResource_organizationId,
    associateDelegateToResource_resourceId,
    associateDelegateToResource_entityId,

    -- * Destructuring the Response
    AssociateDelegateToResourceResponse (..),
    newAssociateDelegateToResourceResponse,

    -- * Response Lenses
    associateDelegateToResourceResponse_httpStatus,
  )
where

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
import qualified Amazonka.Request as Request
import qualified Amazonka.Response as Response
import Amazonka.WorkMail.Types

-- | /See:/ 'newAssociateDelegateToResource' smart constructor.
data AssociateDelegateToResource = AssociateDelegateToResource'
  { -- | The organization under which the resource exists.
    organizationId :: Prelude.Text,
    -- | The resource for which members (users or groups) are associated.
    resourceId :: Prelude.Text,
    -- | The member (user or group) to associate to the resource.
    entityId :: Prelude.Text
  }
  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)

-- |
-- Create a value of 'AssociateDelegateToResource' 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:
--
-- 'organizationId', 'associateDelegateToResource_organizationId' - The organization under which the resource exists.
--
-- 'resourceId', 'associateDelegateToResource_resourceId' - The resource for which members (users or groups) are associated.
--
-- 'entityId', 'associateDelegateToResource_entityId' - The member (user or group) to associate to the resource.
newAssociateDelegateToResource ::
  -- | 'organizationId'
  Prelude.Text ->
  -- | 'resourceId'
  Prelude.Text ->
  -- | 'entityId'
  Prelude.Text ->
  AssociateDelegateToResource
newAssociateDelegateToResource
  pOrganizationId_
  pResourceId_
  pEntityId_ =
    AssociateDelegateToResource'
      { organizationId =
          pOrganizationId_,
        resourceId = pResourceId_,
        entityId = pEntityId_
      }

-- | The organization under which the resource exists.
associateDelegateToResource_organizationId :: Lens.Lens' AssociateDelegateToResource Prelude.Text
associateDelegateToResource_organizationId = Lens.lens (\AssociateDelegateToResource' {organizationId} -> organizationId) (\s@AssociateDelegateToResource' {} a -> s {organizationId = a} :: AssociateDelegateToResource)

-- | The resource for which members (users or groups) are associated.
associateDelegateToResource_resourceId :: Lens.Lens' AssociateDelegateToResource Prelude.Text
associateDelegateToResource_resourceId = Lens.lens (\AssociateDelegateToResource' {resourceId} -> resourceId) (\s@AssociateDelegateToResource' {} a -> s {resourceId = a} :: AssociateDelegateToResource)

-- | The member (user or group) to associate to the resource.
associateDelegateToResource_entityId :: Lens.Lens' AssociateDelegateToResource Prelude.Text
associateDelegateToResource_entityId = Lens.lens (\AssociateDelegateToResource' {entityId} -> entityId) (\s@AssociateDelegateToResource' {} a -> s {entityId = a} :: AssociateDelegateToResource)

instance Core.AWSRequest AssociateDelegateToResource where
  type
    AWSResponse AssociateDelegateToResource =
      AssociateDelegateToResourceResponse
  request overrides =
    Request.postJSON (overrides defaultService)
  response =
    Response.receiveEmpty
      ( \s h x ->
          AssociateDelegateToResourceResponse'
            Prelude.<$> (Prelude.pure (Prelude.fromEnum s))
      )

instance Prelude.Hashable AssociateDelegateToResource where
  hashWithSalt _salt AssociateDelegateToResource' {..} =
    _salt
      `Prelude.hashWithSalt` organizationId
      `Prelude.hashWithSalt` resourceId
      `Prelude.hashWithSalt` entityId

instance Prelude.NFData AssociateDelegateToResource where
  rnf AssociateDelegateToResource' {..} =
    Prelude.rnf organizationId
      `Prelude.seq` Prelude.rnf resourceId
      `Prelude.seq` Prelude.rnf entityId

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

instance Data.ToJSON AssociateDelegateToResource where
  toJSON AssociateDelegateToResource' {..} =
    Data.object
      ( Prelude.catMaybes
          [ Prelude.Just
              ("OrganizationId" Data..= organizationId),
            Prelude.Just ("ResourceId" Data..= resourceId),
            Prelude.Just ("EntityId" Data..= entityId)
          ]
      )

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

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

-- | /See:/ 'newAssociateDelegateToResourceResponse' smart constructor.
data AssociateDelegateToResourceResponse = AssociateDelegateToResourceResponse'
  { -- | The response's http status code.
    httpStatus :: Prelude.Int
  }
  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)

-- |
-- Create a value of 'AssociateDelegateToResourceResponse' 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:
--
-- 'httpStatus', 'associateDelegateToResourceResponse_httpStatus' - The response's http status code.
newAssociateDelegateToResourceResponse ::
  -- | 'httpStatus'
  Prelude.Int ->
  AssociateDelegateToResourceResponse
newAssociateDelegateToResourceResponse pHttpStatus_ =
  AssociateDelegateToResourceResponse'
    { httpStatus =
        pHttpStatus_
    }

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

instance
  Prelude.NFData
    AssociateDelegateToResourceResponse
  where
  rnf AssociateDelegateToResourceResponse' {..} =
    Prelude.rnf httpStatus